Changeset 9415


Ignore:
Timestamp:
May 9, 2008, 9:10:22 AM (11 years ago)
Author:
gb
Message:

Don't pass "the eventcheck bit" into encodsd declaration info.
Do set the "full safety" bit as appropriate, and ensure that conflicting
bits are not set in that case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/nx0.lisp

    r9353 r9415  
    706706      (unless (nx-allow-register-allocation env)
    707707        (nx-inhibit-register-allocation))
    708       (setq *nx-new-p2decls*
    709             (%ilogior
    710              (if (nx-tailcalls env) $decl_tailcalls 0)
    711              (if (nx-inhibit-eventchecks env) $decl_eventchk 0)
    712              (if (nx-open-code-in-line env) $decl_opencodeinline 0)
    713              (if (nx-inhibit-safety-checking env) $decl_unsafe 0)
    714              (if (nx-trust-declarations env) $decl_trustdecls 0))))))
     708      (setq *nx-new-p2decls*
     709            (if (eql (safety-optimize-quantity env) 3)
     710              (logior $decl_full_safety
     711                      (if (nx-tailcalls env) $decl_tailcalls 0))
     712              (%ilogior
     713               (if (nx-tailcalls env) $decl_tailcalls 0)
     714               (if (nx-open-code-in-line env) $decl_opencodeinline 0)
     715               (if (nx-inhibit-safety-checking env) $decl_unsafe 0)
     716               (if (nx-trust-declarations env) $decl_trustdecls 0)))))))
    715717
    716718#|     
Note: See TracChangeset for help on using the changeset viewer.