Skip to content
Snippets Groups Projects
Commit ded28e0c authored by wlott's avatar wlott
Browse files

Defined CURRENT-FRAME-SIZE, because the ``machine-independant'' version

assumed the existance of a storage class ``stack.''
parent dfe6903b
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; 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 ;;; This file contains the VM definition for the MIPS R2000 and the new
;;; object format. ;;; object format.
...@@ -111,7 +111,16 @@ ...@@ -111,7 +111,16 @@
(define-storage-class random-immediate 17 immediate-constant) (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 ;;; ### this needs work
...@@ -208,7 +217,7 @@ ...@@ -208,7 +217,7 @@
|# |#
;;;; ;;;; Primitive-type-of and friends.
;;; Primitive-Type-Of -- Interface ;;; Primitive-Type-Of -- Interface
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment