Changeset 9417


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

Remove some obsolet bits, add $decl_full_safety bit.
Remove some (68k-era) constructs.

File:
1 edited

Legend:

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

    r8554 r9417  
    9393(defconstant $vrefmask #xff)
    9494
    95 (defconstant $decl_optimize (%ilsl 16 0))
    96 (defconstant $decl_tailcalls (%ilsl 16 1))
    97 (defconstant $decl_opencodeinline (%ilsl 16 4))
    98 (defconstant $decl_eventchk (%ilsl 16 8))
    99 (defconstant $decl_unsafe (%ilsl 16 16))
    100 (defconstant $decl_trustdecls (%ilsl 16 32))
     95(defconstant $decl_optimize (%ilsl 16 0))  ; today's chuckle
     96(defconstant $decl_tailcalls (ash 1 16))
     97(defconstant $decl_opencodeinline (ash 4 16))
     98(defconstant $decl_eventchk (ash 8 16))
     99(defconstant $decl_unsafe (ash 16 16))
     100(defconstant $decl_trustdecls (ash 32 16))
     101(defconstant $decl_full_safety (ash 64 16))
    101102
    102103(defconstant $regnote-ea 1)
     
    541542  `(consp ,x))
    542543
    543 (defmacro defnx2 (name locative arglist &body forms)
    544   (multiple-value-bind (body decls)
    545                        (parse-body forms nil t)
    546     (let ((fn `(nfunction ,name (lambda ,arglist ,@decls (block ,name .,body)))))
    547     `(progn
    548        (record-source-file ',name 'function)
    549        (svset *nx2-specials* (%ilogand operator-id-mask (%nx1-operator ,locative)) ,fn)))))
    550544
    551545(defmacro defnxdecl (sym lambda-list &body forms)
     
    569563         
    570564
    571 (defmacro with-p2-declarations (declsform &body body)
    572   `(let* ((*nx2-tail-allow* *nx2-tail-allow*)
    573           (*nx2-reckless* *nx2-reckless*)
    574           (*nx2-inhibit-eventchecks* *nx2-inhibit-eventchecks*)
    575           (*nx2-open-code-inline* *nx2-open-code-inline*)
    576           (*nx2-trust-declarations* *nx2-trust-declarations*))
    577      (nx2-decls ,declsform)
    578      ,@body))
     565
    579566
    580567(eval-when (:compile-toplevel :load-toplevel :execute)
Note: See TracChangeset for help on using the changeset viewer.