[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

10 Feb 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv5981
Modified Files:
    compiler.lisp 
Log Message:
Moved defconstant +enter-stack-frame-code+ to top of file.
Date: Mon Feb  9 19:25:28 2004
Author: ffjeld
Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.18 movitz/compiler.lisp:1.19

--- movitz/compiler.lisp:1.18	Sun Feb  8 18:24:13 2004
+++ movitz/compiler.lisp	Mon Feb  9 19:25:28 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.18 2004/02/08 23:24:13 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.19 2004/02/10 00:25:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -54,6 +54,11 @@
 (defvar *compiling-function-name*)
 (defvar muerte.cl:*compile-file-pathname* nil)
+(defconstant +enter-stack-frame-code+
+    '((:pushl :ebp)
+      (:movl :esp :ebp)
+      (:pushl :esi)))
+
 (defun duplicatesp (list)
   "Returns TRUE iff at least one object occurs more than once in LIST."
   (if (null list)
@@ -874,11 +879,6 @@
       (values '((:pushl :ebx))
          1))
      (t (error "make-2req confused by loc0: ~W, loc1: ~W" location-0 location-1)))))
-
-(defconstant +enter-stack-frame-code+
-    '((:pushl :ebp)
-      (:movl :esp :ebp)
-      (:pushl :esi)))
#+ignore
 (defun make-compiled-function-body-1rest (form funobj env top-level-p)

    