[Sbcl-commits] CVS: sbcl/src/compiler/x86-64 macros.lisp, 1.25, 1.26

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/x86-64
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv21458/src/compiler/x86-64

Modified Files:
	macros.lisp 
Log Message:
1.0.15.18: kill commented out ALLOCATION from x86-64

 * 'twas a duplicate of ALLOCATION-TRAMP.


Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86-64/macros.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- macros.lisp	9 Nov 2007 17:38:16 -0000	1.25
+++ macros.lisp	10 Mar 2008 19:18:01 -0000	1.26
@@ -213,16 +213,6 @@
              (inst jmp DONE))
            (values)))))
 
-#+nil
-(defun allocation (alloc-tn size &optional ignored)
-  (declare (ignore ignored))
-  (inst push size)
-  (inst lea temp-reg-tn (make-ea :qword
-                            :disp (make-fixup "alloc_tramp" :foreign)))
-  (inst call temp-reg-tn)
-  (inst pop alloc-tn)
-  (values))
-
 ;;; Allocate an other-pointer object of fixed SIZE with a single word
 ;;; header having the specified WIDETAG value. The result is placed in
 ;;; RESULT-TN.