projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.5.10:
[sbcl.git]
/
src
/
compiler
/
mips
/
vm.lisp
diff --git
a/src/compiler/mips/vm.lisp
b/src/compiler/mips/vm.lisp
index
fb2eeb3
..
340066e
100644
(file)
--- a/
src/compiler/mips/vm.lisp
+++ b/
src/compiler/mips/vm.lisp
@@
-263,12
+263,8
@@
(defregtn nsp any-reg)
(defregtn nfp any-reg))
\f
(defregtn nsp any-reg)
(defregtn nfp any-reg))
\f
-;;;
-;;; Immediate-Constant-SC -- Interface
-;;;
-;;; 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.
;;; appropriate SC number, otherwise return NIL.
-;;;
(!def-vm-support-routine immediate-constant-sc (value)
(typecase value
((integer 0 0)
(!def-vm-support-routine immediate-constant-sc (value)
(typecase value
((integer 0 0)
@@
-314,7
+310,7
@@
;;;
(defconstant-eqx register-arg-names '(a0 a1 a2 a3 a4 a5) #'equal)
;;;
(defconstant-eqx register-arg-names '(a0 a1 a2 a3 a4 a5) #'equal)
-); Eval-When (Compile Load Eval)
+) ; EVAL-WHEN
;;; A list of TN's describing the register arguments.
;;; A list of TN's describing the register arguments.
@@
-326,18
+322,11
@@
:offset n))
*register-arg-offsets*))
:offset n))
*register-arg-offsets*))
-;;; SINGLE-VALUE-RETURN-BYTE-OFFSET
-;;;
;;; This is used by the debugger.
;;; This is used by the debugger.
-;;;
(defconstant single-value-return-byte-offset 8)
(defconstant single-value-return-byte-offset 8)
-
\f
\f
-;;; LOCATION-PRINT-NAME -- Interface
-;;;
-;;; This function is called by debug output routines that want a pretty name
+;;; 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 printed with PRINC.
;;; for a TN's location. It returns a thing that can be printed with PRINC.
-;;;
(!def-vm-support-routine location-print-name (tn)
(declare (type tn tn))
(let ((sb (sb-name (sc-sb (tn-sc tn))))
(!def-vm-support-routine location-print-name (tn)
(declare (type tn tn))
(let ((sb (sb-name (sc-sb (tn-sc tn))))