From ded28e0c091f3b7e8733ee23d7956be0254cf7d0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 3 Feb 1990 17:04:45 +0000
Subject: [PATCH] Defined CURRENT-FRAME-SIZE, because the
 ``machine-independant'' version assumed the existance of a storage class
 ``stack.''

---
 compiler/mips/vm.lisp | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index b097135fa..be249598b 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.4 1990/02/03 13:06:38 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.5 1990/02/03 17:04:45 wlott Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
@@ -111,7 +111,16 @@
 (define-storage-class random-immediate 17 immediate-constant)
 
 
-;;;;
+;;;; Interfaces for stack sizes.
+
+(defun current-frame-size ()
+  (* word-bytes
+     (finite-sb-current-size
+      (sc-sb (svref *sc-numbers* (sc-number-or-lose 'control-stack))))))
+
+
+
+;;;; Move costs.
 
 ;;; ### this needs work
 
@@ -208,7 +217,7 @@
 |#
 
 
-;;;; 
+;;;; Primitive-type-of and friends.
 
 ;;; Primitive-Type-Of  --  Interface
 ;;;
-- 
GitLab