From 2d80706bbe01987e12b12543da075fd69c29438f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 12 Apr 1990 21:39:22 +0000 Subject: [PATCH] Flushed move-arguments, move-results. --- compiler/pseudo-vops.lisp | 26 -------------------------- 1 file changed, 26 deletions(-) diff --git a/compiler/pseudo-vops.lisp b/compiler/pseudo-vops.lisp index a12fda1c9..6657bda5f 100644 --- a/compiler/pseudo-vops.lisp +++ b/compiler/pseudo-vops.lisp @@ -35,29 +35,3 @@ (unassemble (funcall (symbol-function name) node x y)))) - -;;; Move the specified arg-vals into the argument passing locations for -;;; callee-2env. FP and NFP are the callee's FP and NFP allocated by -;;; ALLOCATE-FRAME. Representation selection inserts the appropriate -;;; move-argument VOPs before this VOP, changing the arg-val operands to be -;;; references to the passing locations. -;;; -(define-vop (move-arguments) - (:args (args :more t)) - (:info fp nfp callee-2env) - (:ignore args fp nfp callee-2env) - (:generator 0)) - -;;; Similar to move-arguments, but emits the argument moves for a full call -;;; with NARGS args. FP is the callee's frame pointer (allocated by -;;; ALLOCATE-FULL-CALL-FRAME.) -;;; -(define-vop (move-full-call-arguments move-arguments) - (:info fp nargs)) - -;;; Used for known return. Much like MOVE-ARGUMENTS, but the target frame -;;; pointers are obtained from the current environment. OLD-CONT is used for -;;; FP and the old NFP is computed with COMPUTE-OLD-NFP. -;;; -(define-vop (move-results move-arguments) - (:info locs)) -- GitLab