From: Thiemo S. <th...@us...> - 2007-09-01 18:06:22
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12272/src/compiler/mips Modified Files: c-call.lisp macros.lisp Log Message: 1.0.9.20: Add #+sb-doc conditionals. Index: c-call.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/c-call.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- c-call.lisp 13 May 2006 20:02:55 -0000 1.10 +++ c-call.lisp 1 Sep 2007 18:06:17 -0000 1.11 @@ -315,6 +315,7 @@ ;;; callback wrapper #-sb-xc-host (defun alien-callback-assembler-wrapper (index result-type argument-types) + #!+sb-doc "Cons up a piece of code which calls enter-alien-callback with INDEX and a pointer to the arguments." (flet ((make-gpr (n) Index: macros.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/macros.lisp,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- macros.lisp 21 Jul 2007 13:33:53 -0000 1.18 +++ macros.lisp 1 Sep 2007 18:06:17 -0000 1.19 @@ -24,6 +24,7 @@ ;;; Instruction-like macros. (defmacro move (dst src &optional (always-emit-code-p nil)) + #!+sb-doc "Move SRC into DST (unless they are location= and ALWAYS-EMIT-CODE-P is nil)." (once-only ((n-dst dst) @@ -61,6 +62,7 @@ (- other-pointer-lowtag)))) (defmacro load-type (target source &optional (offset 0)) + #!+sb-doc "Loads the type bits of a pointer into target independent of byte-ordering issues." (once-only ((n-target target) @@ -77,6 +79,7 @@ ;;; return instructions. (defmacro lisp-jump (function lip) + #!+sb-doc "Jump to the lisp function FUNCTION. LIP is an interior-reg temporary." `(progn (inst addu ,lip ,function (- (ash simple-fun-code-offset word-shift) @@ -85,6 +88,7 @@ (move code-tn ,function t))) (defmacro lisp-return (return-pc lip &key (offset 0) (frob-code t)) + #!+sb-doc "Return to RETURN-PC. LIP is an interior-reg temporary." `(progn (inst addu ,lip ,return-pc @@ -96,6 +100,7 @@ (defmacro emit-return-pc (label) + #!+sb-doc "Emit a return-pc header word. LABEL is the label to use for this return-pc." `(progn (align n-lowtag-bits) @@ -124,6 +129,7 @@ (storew reg cfp-tn offset)))))) (defmacro maybe-load-stack-tn (reg reg-or-stack) + #!+sb-doc "Move the TN Reg-Or-Stack into Reg if it isn't already there." (once-only ((n-reg reg) (n-stack reg-or-stack)) @@ -216,12 +222,14 @@ (align word-shift))))) (defmacro error-call (vop error-code &rest values) + #!+sb-doc "Cause an error. ERROR-CODE is the error to cause." (cons 'progn (emit-error-break vop error-trap error-code values))) (defmacro cerror-call (vop label error-code &rest values) + #!+sb-doc "Cause a continuable error. If the error is continued, execution resumes at LABEL." `(progn @@ -230,6 +238,7 @@ ,@(emit-error-break vop cerror-trap error-code values)))) (defmacro generate-error-code (vop error-code &rest values) + #!+sb-doc "Generate-Error-Code Error-code Value* Emit code for an error with the specified Error-Code and context Values." `(assemble (*elsewhere*) @@ -239,6 +248,7 @@ start-lab))) (defmacro generate-cerror-code (vop error-code &rest values) + #!+sb-doc "Generate-CError-Code Error-code Value* Emit code for a continuable error with the specified Error-Code and context Values. If the error is continued, execution resumes after |