[Sbcl-commits] CVS: sbcl/src/compiler/alpha call.lisp,1.19,1.19.20.1

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory sc8-pr-cvs1:/tmp/cvs-serv7216/src/compiler/alpha

Modified Files:
      Tag: alpha64_branch
	call.lisp 
Log Message:
0.8alpha.0.28.alpha64.2
	STILL NOT WORK!  SIX IMPOSSIBLE ASSERTIONS BEFORE LUNCH!

	Some fairly random 64 bit cleanups in genesis/runtime, to get 
	an SBCL alpha that goes all the way through second genesis and
	a runtime that attempts to laod the core thus created.  Note 
	that the core file thus produced can best be described as
	"broken"



Index: call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/call.lisp,v
retrieving revision 1.19
retrieving revision 1.19.20.1
diff -u -d -r1.19 -r1.19.20.1
--- call.lisp	15 Sep 2002 18:18:13 -0000	1.19
+++ call.lisp	14 May 2003 19:00:14 -0000	1.19.20.1
@@ -541,18 +541,18 @@
   (:ignore val-locs vals)
   (:vop-var vop)
   (:generator 6
-    (trace-table-entry trace-table-fun-epilogue)
-    (maybe-load-stack-tn ocfp-temp ocfp)
-    (maybe-load-stack-tn return-pc-temp return-pc)
-    (move cfp-tn csp-tn)
-    (let ((cur-nfp (current-nfp-tn vop)))
+      (trace-table-entry trace-table-fun-epilogue)
+      (maybe-load-stack-tn ocfp-temp ocfp)
+      (maybe-load-stack-tn return-pc-temp return-pc)
+      (move cfp-tn csp-tn)
+      (let ((cur-nfp (current-nfp-tn vop)))
       (when cur-nfp
 	(inst addq cur-nfp (bytes-needed-for-non-descriptor-stack-frame)
 	      nsp-tn)))
-    (inst subq return-pc-temp (- other-pointer-lowtag n-word-bytes) lip)
-    (move ocfp-temp cfp-tn)
-    (inst ret zero-tn lip 1)
-    (trace-table-entry trace-table-normal)))
+      (inst subq return-pc-temp (- other-pointer-lowtag n-word-bytes) lip)
+      (move ocfp-temp cfp-tn)
+      (inst ret zero-tn lip 1)
+      (trace-table-entry trace-table-normal)))
 
 ;;;; full call:
 ;;;;