Changeset 12594

Timestamp:

Aug 16, 2009, 2:53:25 PM (15 years ago)

Author:

Gary Byers

Message:

In {PPC2,X862}-FLET, just treat the body as a LOCALLY form if none
of the local functions are referenced. (This is a workaround for
the fact that {PPC2,X862}-SEQ-FBIND and some of the functions it
calls box return values unnecessarily while unwinding and may decide
to do that before realizing that no unwinding is necessary.)

Location:

trunk/source/compiler

Files:

• PPC/ppc2.lisp (modified) (1 diff)
• X86/x862.lisp (modified) (1 diff)

trunk/source/compiler/PPC/ppc2.lisp

@@ -7408 +7408 @@
 
 (defppc2 ppc2-flet flet (seg vreg xfer vars afuncs body p2decls)
-  (ppc2-seq-fbind seg vreg xfer vars afuncs body p2decls))
+  (if (dolist (afunc afuncs)
+        (unless (eql 0 (afunc-fn-refcount afunc))
+          (return t)))
+    (ppc2-seq-fbind seg vreg xfer vars afuncs body p2decls)
+    (with-ppc-p2-declarations p2-decls
+      (ppc2-form seg vreg xfer body))))
 
 (defppc2 ppc2-labels labels (seg vreg xfer vars afuncs body p2decls)

trunk/source/compiler/X86/x862.lisp

@@ -8297 +8297 @@
 
 (defx862 x862-flet flet (seg vreg xfer vars afuncs body p2decls)
-  (x862-seq-fbind seg vreg xfer vars afuncs body p2decls))
+  (if (dolist (afunc afuncs)
+        (unless (eql 0 (afunc-fn-refcount afunc))
+          (return t)))
+    (x862-seq-fbind seg vreg xfer vars afuncs body p2decls)
+    (with-x86-p2-declarations p2decls
+      (x862-form seg vreg xfer body))))
 
 (defx862 x862-labels labels (seg vreg xfer vars afuncs body p2decls)