Changeset 11153


Ignore:
Timestamp:
Oct 18, 2008, 5:09:56 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
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r11089 r11153  
    4545(let ((policy (%istruct 'compiler-policy
    4646               #'(lambda (env)
    47                    (< (debug-optimize-quantity env) 2))   ;  allow-tail-recursion-elimination
    48                #'false   ; 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
    4952               #'(lambda (env)
    5053                   (let* ((safety (safety-optimize-quantity env)))
     
    5356                              safety)))) ; trust-declarations
    5457               #'(lambda (env)
    55                    (> (speed-optimize-quantity env)
    56                       (space-optimize-quantity env)))   ; 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
    5762               #'(lambda (env)
    5863                   (and (eq (speed-optimize-quantity env) 3)
     
    6772                   (and (neq (compilation-speed-optimize-quantity env) 3)
    6873                        (neq (safety-optimize-quantity env) 3)
    69                         (neq (speed-optimize-quantity env) 0)
     74                        #+ccl-0711 (neq (speed-optimize-quantity env) 0)
    7075                        (neq (debug-optimize-quantity env) 3))) ; allow-transforms
    7176               #'(lambda (var env)       ; force-boundp-checks
Note: See TracChangeset for help on using the changeset viewer.