Changeset 9414 for branches


Ignore:
Timestamp:
May 9, 2008, 2:08:31 AM (17 years ago)
Author:
Gary Byers
Message:

Tweak a few policy things.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711-perf/ccl/compiler/nx-basic.lisp

    r9165 r9414  
    4545(let ((policy (%istruct 'compiler-policy
    4646               #'(lambda (env)
    47                    (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
    48                #'(lambda (env)
    49                    (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
     47                   (< (debug-optimize-quantity env) 2))   ;  allow-tail-recursion-elimination
     48               #'false   ; inhibit-register-allocation
    5049               #'(lambda (env)
    5150                   (let* ((safety (safety-optimize-quantity env)))
    … …  
    5453                              safety)))) ; trust-declarations
    5554               #'(lambda (env)
    56                    (>= (speed-optimize-quantity env)
    57                        (+ (space-optimize-quantity env) 2)))   ; open-code-inline
     55                   (> (speed-optimize-quantity env)
     56                      (space-optimize-quantity env)))   ; open-code-inline
    5857               #'(lambda (env)
    5958                   (and (eq (speed-optimize-quantity env) 3)
    … …  
    6564                   (neq (debug-optimize-quantity env) 3))   ; inline-self-calls
    6665               #'(lambda (env)
    67                    (and (neq (compilation-speed-optimize-quantity env) 3)
    68                         (neq (safety-optimize-quantity env) 3)
    69                         (neq (debug-optimize-quantity env) 3)))   ; allow-transforms
     66                   (unless (eql (safety-optimize-quantity env) 3)
     67                     (and (neq (compilation-speed-optimize-quantity env) 3)
     68                          (neq (speed-optimize-quantity env) 0)
     69                          (neq (debug-optimize-quantity env) 3))))   ; allow-transforms
    7070               #'(lambda (var env)       ; force-boundp-checks
    7171                   (declare (ignore var))
Note: See TracChangeset for help on using the changeset viewer.