Changeset 9255


Ignore:
Timestamp:
Apr 24, 2008, 8:58:40 AM (12 years ago)
Author:
gb
Message:

Construct compiler policy with the-typechecks replacing inhibit-eventchecks.

File:
1 edited

Legend:

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

    r9163 r9255  
    5555               #'(lambda (env)
    5656                   (>= (speed-optimize-quantity env)
    57                        (+ (space-optimize-quantity env) 2)))   ; open-code-inline
     57                       (+ (space-optimize-quantity env) 2)))    ; open-code-inline
    5858               #'(lambda (env)
    5959                   (and (eq (speed-optimize-quantity env) 3)
    6060                        (eq (safety-optimize-quantity env) 0)))   ; inhibit-safety-checking
    6161               #'(lambda (env)
    62                    (and (eq (speed-optimize-quantity env) 3)
    63                         (eq (safety-optimize-quantity env) 0)))   ; inhibit-event-polling
     62                   (let* ((safety (safety-optimize-quantity env)))
     63                     (or (eq safety 3)
     64                         (> safety (speed-optimize-quantity env)))))          ;the-typechecks
    6465               #'(lambda (env)
    6566                   (neq (debug-optimize-quantity env) 3))   ; inline-self-calls
     
    8182                                   (open-code-inline nil oci-p)
    8283                                   (inhibit-safety-checking nil ischeck-p)
    83                                    (inhibit-event-polling nil iep-p)
    8484                                   (inline-self-calls nil iscall-p)
    8585                                   (allow-transforms nil at-p)
    8686                                   (force-boundp-checks nil fb-p)
    87                                    (allow-constant-substitution nil acs-p))
     87                                   (allow-constant-substitution nil acs-p)
     88                                   (the-typechecks nil tt-p))
    8889    (let ((p (copy-uvector policy)))
    8990      (if atr-p (setf (policy.allow-tail-recursion-elimination p) allow-tail-recursion-elimination))
     
    9293      (if oci-p (setf (policy.open-code-inline p) open-code-inline))
    9394      (if ischeck-p (setf (policy.inhibit-safety-checking p) inhibit-safety-checking))
    94       (if iep-p (setf (policy.inhibit-event-checking p) inhibit-event-polling))
    9595      (if iscall-p (setf (policy.inline-self-calls p) inline-self-calls))
    9696      (if at-p (setf (policy.allow-transforms p) allow-transforms))
    9797      (if fb-p (setf (policy.force-boundp-checks p) force-boundp-checks))
    9898      (if acs-p (setf (policy.allow-constant-substitution p) allow-constant-substitution))
     99      (if tt-p (setf (policy.the-typechecks p) the-typechecks))
    99100      p))
    100101  (defun %default-compiler-policy () policy))
Note: See TracChangeset for help on using the changeset viewer.