X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fmips%2Fassem-rtns.lisp;h=f0f6397462ad96df93bc51b74252dcec15823cf1;hb=9a641acd464b948a8ef57d37907a6995333f570a;hp=4836e5b9339e2f5a0911d557cf0686c382da54db;hpb=3d1044ebd697fd4831eb5998a5f245fe596c9606;p=sbcl.git

diff --git a/src/assembly/mips/assem-rtns.lisp b/src/assembly/mips/assem-rtns.lisp
index 4836e5b..f0f6397 100644
--- a/src/assembly/mips/assem-rtns.lisp
+++ b/src/assembly/mips/assem-rtns.lisp
@@ -59,7 +59,7 @@
   (inst subu count (fixnumize 1))
   (inst bne count zero-tn loop)
   (inst addu dst n-word-bytes)
-		
+
   (inst b done)
   (inst nop)
 
@@ -75,12 +75,12 @@
   DEFAULT-A5-AND-ON
   (move a5 null-tn)
   DONE
-  
+
   ;; Clear the stack.
   (move ocfp-tn cfp-tn)
   (move cfp-tn ocfp)
   (inst addu csp-tn ocfp-tn nvals)
-  
+
   ;; Return.
   (lisp-return lra lip))
 
@@ -119,7 +119,7 @@
 
   ;; Calculate NARGS (as a fixnum)
   (inst subu nargs csp-tn args)
-     
+
   ;; Load the argument regs (must do this now, 'cause the blt might
   ;; trash these locations)
   (inst lw a0 args (* 0 n-word-bytes))
@@ -134,7 +134,7 @@
   (inst blez count done)
   (inst addu src args (* n-word-bytes register-arg-count))
   (inst addu dst cfp-tn (* n-word-bytes register-arg-count))
-	
+
   LOOP
   ;; Copy one arg.
   (inst lw temp src)
@@ -143,18 +143,18 @@
   (inst addu count (fixnumize -1))
   (inst bgtz count loop)
   (inst addu dst dst n-word-bytes)
-	
+
   DONE
   ;; We are done.  Do the jump.
-  (progn
-    (loadw temp lexenv closure-fun-slot fun-pointer-lowtag)
-    (lisp-jump temp lip)))
+  (loadw temp lexenv closure-fun-slot fun-pointer-lowtag)
+  (lisp-jump temp lip))
 
 
 ;;;; Non-local exit noise.
 
 (define-assembly-routine
     (unwind
+     (:return-style :none)
      (:translate %continue-unwind)
      (:policy :fast-safe))
     ((:arg block (any-reg descriptor-reg) a0-offset)
@@ -175,48 +175,48 @@
   (loadw target-uwp block unwind-block-current-uwp-slot)
   (inst bne cur-uwp target-uwp do-uwp)
   (inst nop)
-      
+
   (move cur-uwp block)
 
-  do-exit
-      
+  DO-EXIT
+
   (loadw cfp-tn cur-uwp unwind-block-current-cont-slot)
   (loadw code-tn cur-uwp unwind-block-current-code-slot)
-  (progn
-    (loadw lra cur-uwp unwind-block-entry-pc-slot)
-    (lisp-return lra lip :frob-code nil))
+  (loadw lra cur-uwp unwind-block-entry-pc-slot)
+  (lisp-return lra lip :frob-code nil)
 
-  do-uwp
+  DO-UWP
 
   (loadw next-uwp cur-uwp unwind-block-current-uwp-slot)
   (inst b do-exit)
   (store-symbol-value next-uwp *current-unwind-protect-block*))
 
 (define-assembly-routine
-    throw
+    (throw
+     (:return-style :none))
     ((:arg target descriptor-reg a0-offset)
      (:arg start any-reg ocfp-offset)
      (:arg count any-reg nargs-offset)
      (:temp catch any-reg a1-offset)
      (:temp tag descriptor-reg a2-offset))
-  
-  (progn start count) ; We just need them in the registers.
+
+  (declare (ignore start count)) ; We only need them in the registers.
 
   (load-symbol-value catch *current-catch-block*)
-  
-  loop
-  
+
+  LOOP
+
   (let ((error (generate-error-code nil unseen-throw-tag-error target)))
     (inst beq catch zero-tn error)
     (inst nop))
-  
+
   (loadw tag catch catch-block-tag-slot)
   (inst beq tag target exit)
   (inst nop)
   (inst b loop)
   (loadw catch catch catch-block-previous-catch-slot)
-  
+
   EXIT
-  
+
   (inst j (make-fixup 'unwind :assembly-routine))
   (move target catch t))