From 122ecaf96d2542978b2717b50f2336d75ff99984 Mon Sep 17 00:00:00 2001 From: ch <ch> Date: Sun, 27 May 1990 16:50:48 +0000 Subject: [PATCH] Added a VOP to obtain the dynamic space free pointer. --- compiler/mips/system.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp index 8c97346d6..d4b11a910 100644 --- a/compiler/mips/system.lisp +++ b/compiler/mips/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.17 1990/05/25 20:04:16 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.18 1990/05/27 16:50:48 ch Exp $ ;;; ;;; MIPS VM definitions of various system hacking operations. ;;; @@ -147,6 +147,15 @@ (inst sll res val (- vm:type-bits 2)) (inst or res res temp))))) + +;;;; Allocation + +(define-vop (dynamic-space-free-pointer) + (:results (int :scs (sap-reg))) + (:translate dynamic-space-free-pointer) + (:policy :fast-safe) + (:generator 1 + (move int alloc-tn))) ;;;; Code object frobbing. -- GitLab