X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fcall.lisp;h=02d93ae81cf7751b21e2234d41fc22373101770a;hb=94c003b32e49fc11a182d50c405ffa18183aa005;hp=ff31fe14df755564e78f9e41375306b3c9558b45;hpb=0d74ed478e7f3af5d3292153726373763631aa8e;p=sbcl.git

diff --git a/src/compiler/hppa/call.lisp b/src/compiler/hppa/call.lisp
index ff31fe1..02d93ae 100644
--- a/src/compiler/hppa/call.lisp
+++ b/src/compiler/hppa/call.lisp
@@ -774,12 +774,7 @@ default-value-8
                 (insert-step-instrumenting (callable-tn)
                   ;; Conditionally insert a conditional trap:
                   (when step-instrumenting
-                    ;; Get the symbol-value of SB!IMPL::*STEPPING*
-                    (inst ldw (- (+ symbol-value-slot
-                                    (truncate (static-symbol-offset 'sb!impl::*stepping*)
-                                    n-word-bytes))
-                                 other-pointer-lowtag)
-                              null-tn stepping)
+                    (load-symbol-value stepping sb!impl::*stepping*)
                     ;; If it's not NIL, trap.
                     ;(inst comb := stepping null-tn step-done-label)
                     (inst comb := null-tn null-tn step-done-label :nullify t)
@@ -1025,10 +1020,13 @@ default-value-8
       (lisp-return lra-arg :offset 2)
       ;; Nope, not the single case.
       (emit-label not-single)
+      ;; most of these moves will not be emitted and therefor
+      ;; isn't suitable to put in the delay slot below. But if
+      ;; you do, dont forget to force-emit as in (move src dst t)
       (move ocfp-arg ocfp)
       (move lra-arg lra)
       (move vals-arg vals)
-      (move nvals-arg nvals) ; FIX-lav: cant utilize branch-delay-slot, why?
+      (move nvals-arg nvals)
       (let ((fixup (make-fixup 'return-multiple :assembly-routine)))
         (inst ldil fixup tmp)
         (inst be fixup lisp-heap-space tmp :nullify t)))
@@ -1061,7 +1059,7 @@ default-value-8
 
 ;;; Copy a more arg from the argument area to the end of the current frame.
 ;;; Fixed is the number of non-more arguments.
-;;; FIX-lav: old hppa code look smarter.
+;;; FIXME-lav: old hppa code look smarter.
 (define-vop (copy-more-arg)
   (:temporary (:sc any-reg :offset nl0-offset) result)
   (:temporary (:sc any-reg :offset nl1-offset) count)
@@ -1097,11 +1095,11 @@ default-value-8
       (inst add nargs-tn cfp-tn src)
 
       (emit-label loop)
-      ; decrease src, then load src into temp
+      ;; decrease src, then load src into temp
       (inst ldwm (- n-word-bytes) src temp)
-      ; increase, compare if count >= to zero, if true, jump
+      ;; increase, compare if count >= to zero, if true, jump
       (inst addib :>= (fixnumize -1) count loop)
-      ; decrease dst, then store temp at dst
+      ;; decrease dst, then store temp at dst
       (inst stwm temp (- n-word-bytes) dst)
 
       (emit-label do-regs)
@@ -1252,12 +1250,7 @@ default-value-8
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 3
-    ;; Get the symbol-value of SB!IMPL::*STEPPING*
-    (inst ldw (- (+ symbol-value-slot
-                    (truncate (static-symbol-offset 'sb!impl::*stepping*)
-                              n-word-bytes))
-                 other-pointer-lowtag)
-              null-tn stepping)
+    (load-symbol-value stepping sb!impl::*stepping*)
     ;; If it's not NIL, trap.
     (inst comb := stepping null-tn DONE :nullify t)
     ;; CONTEXT-PC will be pointing here when the interrupt is handled,