From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 10 Mar 2008 19:18:01 +0000 (+0000)
Subject: 1.0.15.18: kill commented out ALLOCATION from x86-64
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dee739730210c96a20c15a3e08c831c9615ac95f;p=sbcl.git

1.0.15.18: kill commented out ALLOCATION from x86-64

 * 'twas a duplicate of ALLOCATION-TRAMP.
---

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index e150e7e..6c53ab4 100644
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -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.
diff --git a/version.lisp-expr b/version.lisp-expr
index 35ce4cf..d9723ca 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.15.17"
+"1.0.15.18"