From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Tue, 16 Aug 2005 12:40:31 +0000 (+0000)
Subject: 0.9.3.56:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a6d3d28acd3433c02a081d42dab15bdfe101794b;p=sbcl.git

0.9.3.56:
	Comment fixes from THS (sbcl-devel 2005-08-16).
---

diff --git a/src/assembly/mips/arith.lisp b/src/assembly/mips/arith.lisp
index 1cbbbbd..902acdf 100644
--- a/src/assembly/mips/arith.lisp
+++ b/src/assembly/mips/arith.lisp
@@ -1,6 +1,15 @@
 (in-package "SB!VM")
 
 
+
+;;;; Addition and subtraction.
+
+;;; static-fun-offset returns the address of the raw_addr slot of
+;;; a static function's fdefn.
+
+;;; Note that there is only one use of static-fun-offset outside this
+;;; file (in genesis.lisp)
+
 (define-assembly-routine (generic-+
                           (:cost 10)
                           (:return-style :full-call)
@@ -101,6 +110,10 @@
   DONE)
 
 
+
+;;;; Multiplication
+
+
 (define-assembly-routine (generic-*
                           (:cost 25)
                           (:return-style :full-call)
diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index 4da2a83..257ed24 100644
--- a/src/code/mips-vm.lisp
+++ b/src/code/mips-vm.lisp
@@ -53,7 +53,6 @@
   ;; hacky pointer arithmetic thing.  -- CSR, 2002-09-01
   (int-sap (deref (context-pc-addr context)
                   #!-little-endian 1
-                  ;; Untested
                   #!+little-endian 0)))
 
 (define-alien-routine ("os_context_register_addr" context-register-addr)
diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 3745ef1..abaa89d 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -795,7 +795,7 @@
 ;;; positions are known. Space is made in SEGMENT for at least SIZE
 ;;; bytes. When all output has been generated, the MAYBE-SHRINK
 ;;; functions for all choosers are called with three arguments: the
-;;; segment, the position, and a magic value. The MAYBE- SHRINK
+;;; segment, the position, and a magic value. The MAYBE-SHRINK
 ;;; decides if it can use a shorter sequence, and if so, emits that
 ;;; sequence to the segment and returns T. If it can't do better than
 ;;; the worst case, it should return NIL (without emitting anything).
@@ -814,8 +814,8 @@
 
 ;;; This is called in EMIT-CHOOSER and COMPRESS-SEGMENT in order to
 ;;; recompute the current alignment information in light of this
-;;; chooser. If the alignment guaranteed byte the chooser is less then
-;;; the segments current alignment, we have to adjust the segments
+;;; chooser. If the alignment guaranteed by the chooser is less than
+;;; the segment's current alignment, we have to adjust the segment's
 ;;; notion of the current alignment.
 ;;;
 ;;; The hard part is recomputing the sync posn, because it's not just
@@ -1051,7 +1051,7 @@
   (values))
 
 ;;; Grovel over segment, filling in any backpatches. If any choosers
-;;; are left over, we need to emit their worst case varient.
+;;; are left over, we need to emit their worst case variant.
 (defun process-back-patches (segment)
   (do* ((prev nil)
         (remaining (segment-annotations segment) next)
diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp
index 8cb79e2..da5a322 100644
--- a/src/compiler/mips/call.lisp
+++ b/src/compiler/mips/call.lisp
@@ -35,7 +35,7 @@
       (make-restricted-tn *backend-t-primitive-type* register-arg-scn)))
 
 ;;; This is similar to MAKE-RETURN-PC-PASSING-LOCATION, but makes a
-;;; location to pass Old-FP in. This is (obviously) wired in the
+;;; location to pass OLD-FP in. This is (obviously) wired in the
 ;;; standard convention, but is totally unrestricted in non-standard
 ;;; conventions, since we can always fetch it off of the stack using
 ;;; the arg pointer.
@@ -208,7 +208,7 @@
 ;;; In the general case, we have to do three things:
 ;;;  -- Default unsupplied register values.  This need only be done when a
 ;;;     single value is returned, since register values are defaulted by the
-;;;     called in the non-single case.
+;;;     callee in the non-single case.
 ;;;  -- Default unsupplied stack values.  This needs to be done whenever there
 ;;;     are stack values.
 ;;;  -- Reset SP.  This must be done whenever other than 1 value is returned,
@@ -240,7 +240,7 @@ regs-defaulted
         ...
 
 defaulting-done
-        move sp ocfp                    ; Reset SP.
+        move csp ocfp                    ; Reset SP.
 <end of code>
 
 <elsewhere>
@@ -284,7 +284,7 @@ default-value-8
               (inst addu temp nargs-tn (fixnumize (- register-arg-count)))
               (move csp-tn ocfp-tn t)))
 
-        ;; Do the single value calse.
+        ;; Do the single value case.
         (do ((i 1 (1+ i))
              (val (tn-ref-across values) (tn-ref-across val)))
             ((= i (min nvals register-arg-count)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 71384b5..25fe9cc 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".)
-"0.9.3.55"
+"0.9.3.56"