projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.1.33:
[sbcl.git]
/
src
/
compiler
/
alpha
/
vm.lisp
diff --git
a/src/compiler/alpha/vm.lisp
b/src/compiler/alpha/vm.lisp
index
3dd28ab
..
c8f77dd
100644
(file)
--- a/
src/compiler/alpha/vm.lisp
+++ b/
src/compiler/alpha/vm.lisp
@@
-93,10
+93,8
@@
;;; a handy macro so we don't have to keep changing all the numbers
;;; whenever we insert a new storage class.
;;; a handy macro so we don't have to keep changing all the numbers
;;; whenever we insert a new storage class.
-;;;
-;;; FIXME: This macro is not needed in the runtime target.
-(defmacro define-storage-classes (&rest classes)
+(defmacro !define-storage-classes (&rest classes)
(do ((forms (list 'progn)
(let* ((class (car classes))
(sc-name (car class))
(do ((forms (list 'progn)
(let* ((class (car classes))
(sc-name (car class))
@@
-124,9
+122,9
@@
;;; and seems to be working so far -dan
(defconstant sb!vm::kludge-nondeterministic-catch-block-size 7)
;;; and seems to be working so far -dan
(defconstant sb!vm::kludge-nondeterministic-catch-block-size 7)
-(define-storage-classes
+(!define-storage-classes
- ;; Non-immediate contstants in the constant pool
+ ;; non-immediate constants in the constant pool
(constant constant)
;; ZERO and NULL are in registers.
(constant constant)
;; ZERO and NULL are in registers.