Changeset 11154


Ignore:
Timestamp:
Oct 18, 2008, 5:10:33 PM (11 years ago)
Author:
gz
Message:

Merge compiler policy init source of trunk and working-0711 branches, conditionalized with #+/- ccl-0711 so there are no actual changes in behavior

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r11088 r11154  
    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                   #+ccl-0711 (< (debug-optimize-quantity env) 2)
     48                   #-ccl-0711 (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
     49               #'(lambda (env)
     50                   #+ccl-0711 nil
     51                   #-ccl-0711 (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
    5052               #'(lambda (env)
    5153                   (let* ((safety (safety-optimize-quantity env)))
     
    5456                              safety)))) ; trust-declarations
    5557               #'(lambda (env)
    56                    (>= (speed-optimize-quantity env)
    57                        (+ (space-optimize-quantity env) 2)))    ; open-code-inline
     58                   #+ccl-0711 (> (speed-optimize-quantity env)
     59                                 (space-optimize-quantity env))
     60                   #-ccl-0711 (>= (speed-optimize-quantity env)
     61                                  (+ (space-optimize-quantity env) 2))) ; open-code-inline
    5862               #'(lambda (env)
    5963                   (and (eq (speed-optimize-quantity env) 3)
     
    6872                   (and (neq (compilation-speed-optimize-quantity env) 3)
    6973                        (neq (safety-optimize-quantity env) 3)
    70                         (neq (debug-optimize-quantity env) 3)))   ; allow-transforms
     74                        #+ccl-0711 (neq (speed-optimize-quantity env) 0)
     75                        (neq (debug-optimize-quantity env) 3))) ; allow-transforms
    7176               #'(lambda (var env)       ; force-boundp-checks
    7277                   (declare (ignore var))
Note: See TracChangeset for help on using the changeset viewer.