0.9.3.58:

[sbcl.git] / src / assembly / mips / arith.lisp

diff --git a/src/assembly/mips/arith.lisp b/src/assembly/mips/arith.lisp
index 1cbbbbd..902acdf 100644 (file)
--- a/src/assembly/mips/arith.lisp
+++ b/src/assembly/mips/arith.lisp
@@ -1,6 +1,15 @@
 (in-package "SB!VM")
 
 
+\f
+;;;; 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)
 
 
+\f
+;;;; Multiplication
+
+
 (define-assembly-routine (generic-*
                           (:cost 25)
                           (:return-style :full-call)