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