(loadw a4 vals 4)
(inst addib := (fixnumize -1) count default-a5-and-on :nullify t)
(loadw a5 vals 5)
- (inst addib := (fixnumize -1) count done :nullify t)
+ (inst addib := (fixnumize -1) count done :nullify t)
;; Copy the remaining args to the top of the stack.
(inst addi (* 6 n-word-bytes) vals src)
(move cfp-tn ocfp-tn)
(move old-fp cfp-tn)
(inst add ocfp-tn nvals csp-tn)
-
+
;; Return.
(lisp-return lra))
;; Calculate NARGS (as a fixnum)
(inst sub csp-tn args nargs)
-
+
;; Load the argument regs (must do this now, 'cause the blt might
;; trash these locations)
(loadw a0 args 0)
(inst comb :<= count zero-tn done :nullify t)
(inst addi (* n-word-bytes register-arg-count) args src)
(inst addi (* n-word-bytes register-arg-count) cfp-tn dst)
-
+
LOOP
;; Copy one arg.
(inst ldwm 4 src temp)
(inst addib :> (fixnumize -1) count loop)
(inst stwm temp 4 dst)
-
+
DONE
;; We are done. Do the jump.
(loadw temp lexenv closure-fun-slot fun-pointer-lowtag)
(let ((error (generate-error-code nil invalid-unwind-error)))
(inst bc := nil block zero-tn error))
-
+
(load-symbol-value cur-uwp *current-unwind-protect-block*)
(loadw target-uwp block unwind-block-current-uwp-slot)
(inst bc :<> nil cur-uwp target-uwp do-uwp)
-
+
(move block cur-uwp)
DO-EXIT
-
+
(loadw cfp-tn cur-uwp unwind-block-current-cont-slot)
(loadw code-tn cur-uwp unwind-block-current-code-slot)
(loadw lra cur-uwp unwind-block-entry-pc-slot)
(declare (ignore start count)) ; We just need them in the registers.
(load-symbol-value catch *current-catch-block*)
-
+
LOOP
(let ((error (generate-error-code nil unseen-throw-tag-error target)))
(inst bc := nil catch zero-tn error))
(loadw tag catch catch-block-tag-slot)
(inst comb :<> tag target loop :nullify t)
(loadw catch catch catch-block-previous-catch-slot)
-
+
(inst b *unwind-entry-point*)
(inst move catch target))