(in-package "SB!VM");;;; Return-multiple with other than one value#+sb-assembling ;; we don't want a vop for this one.(define-assembly-routine    (return-multiple     (:return-style :none))     ;; These four are really arguments.    ((:temp nvals any-reg nargs-offset)     (:temp vals any-reg nl0-offset)     (:temp ocfp any-reg nl1-offset)     (:temp lra descriptor-reg lra-offset)     ;; These are just needed to facilitate the transfer     (:temp lip interior-reg lip-offset)     (:temp count any-reg nl2-offset)     (:temp dst any-reg nl3-offset)     (:temp temp descriptor-reg l0-offset)     ;; These are needed so we can get at the register args.     (:temp a0 descriptor-reg a0-offset)     (:temp a1 descriptor-reg a1-offset)     (:temp a2 descriptor-reg a2-offset)     (:temp a3 descriptor-reg a3-offset)     (:temp a4 descriptor-reg a4-offset)     (:temp a5 descriptor-reg a5-offset))  ;; Note, because of the way the return-multiple vop is written, we can  ;; assume that we are never called with nvals == 1 and that a0 has already  ;; been loaded.  (inst blez nvals DEFAULT-A0-AND-ON)  (inst subu count nvals (fixnumize 2))  (inst blez count DEFAULT-A2-AND-ON)  (inst lw a1 vals (* 1 n-word-bytes))  (inst subu count (fixnumize 1))  (inst blez count DEFAULT-A3-AND-ON)  (inst lw a2 vals (* 2 n-word-bytes))  (inst subu count (fixnumize 1))  (inst blez count DEFAULT-A4-AND-ON)  (inst lw a3 vals (* 3 n-word-bytes))  (inst subu count (fixnumize 1))  (inst blez count DEFAULT-A5-AND-ON)  (inst lw a4 vals (* 4 n-word-bytes))  (inst subu count (fixnumize 1))  (inst blez count done)  (inst lw a5 vals (* 5 n-word-bytes))  ;; Copy the remaining args to the top of the stack.  (inst addu vals (fixnumize register-arg-count))  (inst addu dst cfp-tn (fixnumize register-arg-count))  LOOP  (inst lw temp vals)  (inst addu vals n-word-bytes)  (inst subu count (fixnumize 1))  (inst sw temp dst)  (inst bne count LOOP)  (inst addu dst n-word-bytes)  (inst b DONE)  (inst nop)  DEFAULT-A0-AND-ON  (move a0 null-tn)  (move a1 null-tn)  DEFAULT-A2-AND-ON  (move a2 null-tn)  DEFAULT-A3-AND-ON  (move a3 null-tn)  DEFAULT-A4-AND-ON  (move a4 null-tn)  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));;;; tail-call-variable.#+sb-assembling ;; no vop for this one either.(define-assembly-routine    (tail-call-variable     (:return-style :none))    ;; These are really args.    ((:temp args any-reg nl0-offset)     (:temp lexenv descriptor-reg lexenv-offset)     ;; We need to compute this     (:temp nargs any-reg nargs-offset)     ;; These are needed by the blitting code.     (:temp src any-reg nl1-offset)     (:temp dst any-reg nl2-offset)     (:temp count any-reg nl3-offset)     (:temp temp descriptor-reg l0-offset)     ;; Needed for the jump     (:temp lip interior-reg lip-offset)     ;; These are needed so we can get at the register args.     (:temp a0 descriptor-reg a0-offset)     (:temp a1 descriptor-reg a1-offset)     (:temp a2 descriptor-reg a2-offset)     (:temp a3 descriptor-reg a3-offset)     (:temp a4 descriptor-reg a4-offset)     (:temp a5 descriptor-reg a5-offset))  ;; 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))  (inst lw a1 args (* 1 n-word-bytes))  (inst lw a2 args (* 2 n-word-bytes))  (inst lw a3 args (* 3 n-word-bytes))  (inst lw a4 args (* 4 n-word-bytes))  (inst lw a5 args (* 5 n-word-bytes))  ;; Calc SRC, DST, and COUNT  (inst subu count nargs (fixnumize register-arg-count))  (inst blez count done)  (inst addu src args (fixnumize register-arg-count))  (inst addu dst cfp-tn (fixnumize register-arg-count))  LOOP  ;; Copy one arg.  (inst lw temp src)  (inst addu src n-word-bytes)  (inst subu count (fixnumize 1))  (inst sw temp dst)  (inst bgtz count LOOP)  (inst addu dst n-word-bytes)  DONE  ;; We are done.  Do the jump.  (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)     (:arg start (any-reg descriptor-reg) ocfp-offset)     (:arg count (any-reg descriptor-reg) nargs-offset)     (:temp lip interior-reg lip-offset)     (:temp lra descriptor-reg lra-offset)     (:temp cur-uwp any-reg nl0-offset)     (:temp next-uwp any-reg nl1-offset)     (:temp target-uwp any-reg nl2-offset))  (declare (ignore start count))  (let ((error (generate-error-code nil invalid-unwind-error)))    (inst beq block error)    (inst nop))  (load-symbol-value cur-uwp *current-unwind-protect-block*)  (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  (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)  (lisp-return lra lip :frob-code nil)  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     (: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))  (declare (ignore start count)) ; We only 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 beq catch 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))