[Openmcl-cvs-notifications] r8585 - /trunk/source/compiler/X86/x862.lisp

[gb at clozure.com]

Author: gb
Date: Mon Feb 25 06:31:50 2008
New Revision: 8585

Log:
Easier to define X862-%NEW-PTR to do -something- than it would be
to explain why attempts to use it are just artifacts of code-coverage
implementation.  If it's actually called at runtime, %NEW-GCABLE-PTR
is actually called; that isn't necessarily what the user asked for
if they actually called (CCL::%NEW-PTR), but if this is happening
because of the current code-coverage implementation it might prevent
memory from filling up with things that were supposed to have been
allocated via STACK-BLOCK.

Modified:
    trunk/source/compiler/X86/x862.lisp

Modified: trunk/source/compiler/X86/x862.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/x862.lisp (original)
+++ trunk/source/compiler/X86/x862.lisp Mon Feb 25 06:31:50 2008
@@ -9103,16 +9103,23 @@
                              (list nil (list arg))))))))
     =

 =

+(defx862 x862-%new-ptr %new-ptr (seg vreg xfer size clear-p )
+  (x862-call-fn seg
+                vreg
+                xfer
+                (make-acode (%nx1-operator immediate)
+                            '%new-gcable-ptr)
+                (list nil (list clear-p size))
+                nil))
+
 ;------
 =

 #+not-yet
 (progn
 =

 =

-;Make a gcable macptr.
-(defx862 x862-%new-ptr %new-ptr (b vreg xfer size clear-p )
-  (declare (ignore b vreg xfer size clear-p))
-  (error "%New-ptr is a waste of precious silicon."))
+;;;Make a gcable macptr.
+
 =

 =

 =