Changeset 634

Timestamp:

Mar 7, 2004, 12:02:46 AM (21 years ago)

Author:

Gary Byers

Message:

Don't use dynamic block/go tags.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (7 diffs)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -35 +35 @@
   `(let* ((*ppc2-tail-allow* *ppc2-tail-allow*)
           (*ppc2-reckless* *ppc2-reckless*)
-          (*ppc2-inhibit-eventchecks* *ppc2-inhibit-eventchecks*)
           (*ppc2-open-code-inline* *ppc2-open-code-inline*)
           (*ppc2-trust-declarations* *ppc2-trust-declarations*))
@@ -112 +111 @@
 
 (defvar *ppc-current-context-annotation* nil)
-(defvar *ppc2-inhibit-eventchecks* nil)
 (defvar *ppc2-woi* nil)
 (defvar *ppc2-open-code-inline* nil)
@@ -362 +360 @@
     (let* ((*ppc2-cur-afunc* afunc)
            (*ppc2-returning-values* nil)
-           (*ppc2-inhibit-eventchecks* nil)
            (*ppc-current-context-annotation* nil)
            (*ppc2-woi* nil)
@@ -561 +558 @@
     (locally (declare (fixnum decls))
       (setq *ppc2-tail-allow* (neq 0 (%ilogand2 $decl_tailcalls decls))
-            *ppc2-inhibit-eventchecks* (or *ppc2-woi* (neq 0 (%ilogand2 $decl_eventchk decls)))
             *ppc2-open-code-inline* (neq 0 (%ilogand2 $decl_opencodeinline decls))
             *ppc2-reckless* (neq 0 (%ilogand2 $decl_unsafe decls))
@@ -5393 +5389 @@
     (ppc2-compare seg vreg xfer form1 form2 cr-bit true-p)))
 
-(defppc2 ppc2-embedded-non-local-lexit embedded-nlexit (seg vreg xfer form)
-  (ppc2-form seg vreg xfer form))
-
-(defppc2 ppc2-embedded-call embedded-call (seg vreg xfer form)
-  (ppc2-form seg vreg xfer form))
+
 
 (defppc2 ppc2-%word-to-int %word-to-int (seg vreg xfer form)
@@ -5528 +5520 @@
   (ppc2-nil seg vreg xfer))
 
-(defppc2 ppc2-newblocktag newblocktag (seg vreg xfer)
-  (when vreg
-    (! newblocktag)
-    (<- ppc::arg_z))
-  (^))
-
-(defppc2 ppc2-newgotag newgotag (seg vreg xfer)
-  (when vreg
-    (! newgotag)
-    (<- ppc::arg_z))
-  (^))
 
 (defppc2 ppc2-symbol-name symbol-name (seg vreg xfer sym)
@@ -7065 +7046 @@
         (^)))))
 
-; The form in question just binds *interrupt-level* to -1, but we want
-; to disable the generation of event-polling sequences that would otherwise
-; appear lexically within the body.
+
 (defppc2 ppc2-without-interrupts without-interrupts (seg vreg xfer oldlevel body)
-  (let* ((*ppc2-inhibit-eventchecks* t)
-         (cleanup-label (backend-get-next-label))
+  (let* ((cleanup-label (backend-get-next-label))
          (protform-label (backend-get-next-label))
          (old-stack (ppc2-encode-stack)))