[Openmcl-cvs-notifications] r10690 - /trunk/source/level-0/X86/x86-utils.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 01:08:08 2008
New Revision: 10690

Log:
Don't use save3 in x8664 %walk-dynamic-area/%walk-static-area.

Modified:
    trunk/source/level-0/X86/x86-utils.lisp

Modified: trunk/source/level-0/X86/x86-utils.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/level-0/X86/x86-utils.lisp (original)
+++ trunk/source/level-0/X86/x86-utils.lisp Wed Sep 10 01:08:08 2008
@@ -92,14 +92,11 @@
 (defx86lapfunction walk-static-area ((a arg_y) (f arg_z))
   (let ((fun save0)
         (obj save1)
-        (limit save2)
-        (prev save3))
+        (limit save2))
     (save-simple-frame)
     (push (% fun))
     (push (% obj))
     (push (% limit))
-    (push (% prev))
-    (xorl (%l prev) (%l prev))
     (movq (% f) (% fun))
     (movq (@ x8664::area.active (% a)) (% limit))
     (movq (@ x8664::area.low (% a)) (% obj))
@@ -119,7 +116,6 @@
     (jne @cons)
     @misc
     (lea (@ x8664::fulltag-misc (% obj)) (% obj))
-    (movq (% obj) (% prev))
     (movq (% obj) (% arg_z))
     (set-nargs 1)
     (:talign 4)
@@ -162,7 +158,6 @@
     (jmp @uvector-next)
     @cons
     (addq ($ x8664::fulltag-cons) (% obj))
-    (movq (% obj) (% prev))
     (movq (% obj) (% arg_z))
     (set-nargs 1)
     (:talign 4)
@@ -179,7 +174,6 @@
     @test
     (cmpq (% limit) (% obj))
     (jb @loop)
-    (pop (% prev))
     (pop (% limit))
     (pop (% obj))
     (pop (% fun))
@@ -204,15 +198,12 @@
 (defx86lapfunction %walk-dynamic-area ((a arg_y) (f arg_z))
   (let ((fun save0)
         (obj save1)
-        (limit save2)
-        (prev save3))
+        (limit save2))
     (save-simple-frame)
     (push (% fun))
     (push (% obj))
     (push (% limit))
-    (push (% prev))
     (movq (% f) (% fun))
-    (xorl (%l prev) (%l prev))
     (ref-global tenured-area a)
     (movq (@ x8664::area.low (% a)) (% obj))
     (subq ($ (- x8664::cons.size x8664::fulltag-cons))
@@ -242,7 +233,6 @@
     @misc
     (lea (@ x8664::fulltag-misc (% obj)) (% obj))
     (movq (% obj) (% arg_z))
-    (movq (% obj) (% prev))
     (set-nargs 1)
     (:talign 4)
     (call (% fun))
@@ -287,7 +277,6 @@
     (cmpq (% obj) (% limit))
     (movq (% obj) (% arg_z))
     (je @done)
-    (movq (% obj) (% prev))
     (set-nargs 1)
     (:talign 4)
     (call (% fun))
@@ -304,7 +293,6 @@
     (cmpq (% limit) (% obj))
     (jb @loop)
     @done
-    (pop (% prev))
     (pop (% limit))
     (pop (% obj))
     (pop (% fun))