From acdf91483a9076570c17580c177e8c8b705860cc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 4 Feb 1991 18:35:44 +0000 Subject: [PATCH] Added stuff for freelisting INSTRUCTION structures. --- compiler/alloc.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp index 74941bda6..7c279f4ba 100644 --- a/compiler/alloc.lisp +++ b/compiler/alloc.lisp @@ -245,7 +245,16 @@ (setf (global-conflicts-kind structure) kind) (setf (global-conflicts-tn structure) tn) (setf (global-conflicts-block structure) block) - (setf (global-conflicts-number structure) number)))) + (setf (global-conflicts-number structure) number))) + + ((instruction (prev info . #.assem::instruction-slot-order)) + ((setf (assem::node-next structure) nil)) + ((setf (assem::node-vop structure) assem::*current-vop*) + (setf (assem::node-prev structure) prev) + (setf (assem::instruction-info structure) info) + . #.(mapcar #'(lambda (slot) + `(setf (,slot structure) ,slot) + assem::instruction-slot-order))))) ;;; NUKE-IR2-COMPONENT -- Interface -- GitLab