[Sbcl-commits] CVS: sbcl/src/compiler/mips call.lisp,1.12,1.13 insts.lisp,1.10,1.11

[Thiemo S. <th...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7432/src/compiler/mips

Modified Files:
	call.lisp insts.lisp 
Log Message:
Rename compute-code-from-fn to compute-code-from-lip, except for sparc.


Index: call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/call.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- call.lisp	19 Aug 2005 22:21:02 -0000	1.12
+++ call.lisp	7 Sep 2005 22:23:39 -0000	1.13
@@ -147,7 +147,7 @@
     ;; Compute CODE from the address of this entry point.
     (let ((entry-point (gen-label)))
       (emit-label entry-point)
-      (inst compute-code-from-fn code-tn lip-tn entry-point temp)
+      (inst compute-code-from-lip code-tn lip-tn entry-point temp)
       ;; ### We should also save it on the stack so that the garbage collector
       ;; won't forget about us if we call anyone else.
       )

Index: insts.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/insts.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- insts.lisp	19 Aug 2005 22:21:02 -0000	1.10
+++ insts.lisp	7 Sep 2005 22:23:39 -0000	1.11
@@ -1178,8 +1178,8 @@
                    (inst or temp (ldb (byte 16 0) delta))
                    (inst addu dst src temp))))))
 
-;; code = fn - header - label-offset + other-pointer-tag
-(define-instruction compute-code-from-fn (segment dst src label temp)
+;; code = lip - header - label-offset + other-pointer-lowtag
+(define-instruction compute-code-from-lip (segment dst src label temp)
   (:declare (type tn dst src temp) (type label label))
   (:attributes variable-length)
   (:dependencies (reads src) (writes dst) (writes temp))
@@ -1207,6 +1207,7 @@
                                 (component-header-length)))))))
 
 ;; lra = code + other-pointer-tag + header + label-offset - other-pointer-tag
+;;     = code + header + label-offset
 (define-instruction compute-lra-from-code (segment dst src label temp)
   (:declare (type tn dst src temp) (type label label))
   (:attributes variable-length)