projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.7.26:
[sbcl.git]
/
src
/
compiler
/
sparc
/
vm.lisp
diff --git
a/src/compiler/sparc/vm.lisp
b/src/compiler/sparc/vm.lisp
index
40eca83
..
cf1041d
100644
(file)
--- a/
src/compiler/sparc/vm.lisp
+++ b/
src/compiler/sparc/vm.lisp
@@
-271,11
+271,8
@@
;; A catch or unwind block.
(catch-block control-stack :element-size sb!vm::kludge-nondeterministic-catch-block-size))
;; A catch or unwind block.
(catch-block control-stack :element-size sb!vm::kludge-nondeterministic-catch-block-size))
-
-
\f
\f
-;;;; Make some random tns for important registers.
-
+;;;; Make some miscellaneous TNs for important registers.
(macrolet ((defregtn (name sc)
(let ((offset-sym (symbolicate name "-OFFSET"))
(tn-sym (symbolicate name "-TN")))
(macrolet ((defregtn (name sc)
(let ((offset-sym (symbolicate name "-OFFSET"))
(tn-sym (symbolicate name "-TN")))
@@
-294,10
+291,8
@@
(defregtn cfp any-reg)
(defregtn ocfp any-reg)
(defregtn nsp any-reg))
(defregtn cfp any-reg)
(defregtn ocfp any-reg)
(defregtn nsp any-reg))
-
-
\f
\f
-;;; If value can be represented as an immediate constant, then return the
+;;; If VALUE can be represented as an immediate constant, then return the
;;; appropriate SC number, otherwise return NIL.
(!def-vm-support-routine immediate-constant-sc (value)
(typecase value
;;; appropriate SC number, otherwise return NIL.
(!def-vm-support-routine immediate-constant-sc (value)
(typecase value
@@
-311,7
+306,6
@@
(if (static-symbol-p value)
(sc-number-or-lose 'immediate)
nil))))
(if (static-symbol-p value)
(sc-number-or-lose 'immediate)
nil))))
-
\f
;;;; function call parameters
\f
;;;; function call parameters
@@
-328,16
+322,14
@@
(def!constant nfp-save-offset 2)
;; the number of arguments/return values passed in registers.
(def!constant nfp-save-offset 2)
;; the number of arguments/return values passed in registers.
- ;;
(def!constant register-arg-count 6)
;; names to use for the argument registers.
(def!constant register-arg-count 6)
;; names to use for the argument registers.
- ;;
(defparameter register-arg-names '(a0 a1 a2 a3 a4 a5))
(defparameter register-arg-names '(a0 a1 a2 a3 a4 a5))
-); eval-when (:compile-toplevel :load-toplevel :execute)
+) ; EVAL-WHEN
-;;; a list of TN's describing the register arguments.
+;;; a list of TN's describing the register arguments
(defparameter *register-arg-tns*
(mapcar (lambda (n)
(make-random-tn :kind :normal
(defparameter *register-arg-tns*
(mapcar (lambda (n)
(make-random-tn :kind :normal
@@
-347,7
+339,6
@@
;;; This is used by the debugger.
(def!constant single-value-return-byte-offset 8)
;;; This is used by the debugger.
(def!constant single-value-return-byte-offset 8)
-
\f
;;; This function is called by debug output routines that want a
;;; pretty name for a TN's location. It returns a thing that can be
\f
;;; This function is called by debug output routines that want a
;;; pretty name for a TN's location. It returns a thing that can be