Changeset 9254


Ignore:
Timestamp:
Apr 24, 2008, 8:57:54 AM (11 years ago)
Author:
gb
Message:

Don't define or reference nx-inhibit-eventchecks.
Do define nx-the-typechecks.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r9244 r9254  
    305305  (nx-apply-env-hook policy.allow-transforms env))
    306306
    307 (defun nx-inhibit-eventchecks (env)
    308   (unless (eq (safety-optimize-quantity env) 3)
    309     (nx-apply-env-hook policy.inhibit-event-checking env)))
     307
    310308
    311309(defun nx-force-boundp-checks (var env)
     
    315313(defun nx-substititute-constant-value (symbol value env)
    316314  (nx-apply-env-hook policy.allow-constant-substitution symbol value env))
     315
     316(defun nx-the-typechecks (env)
     317  (nx-apply-env-hook policy.the-typechecks env))
    317318
    318319#-bccl
     
    697698            (%ilogior
    698699             (if (nx-tailcalls env) $decl_tailcalls 0)
    699              (if (nx-inhibit-eventchecks env) $decl_eventchk 0)
    700700             (if (nx-open-code-in-line env) $decl_opencodeinline 0)
    701701             (if (nx-inhibit-safety-checking env) $decl_unsafe 0)
Note: See TracChangeset for help on using the changeset viewer.