From a536ca7ed24accbf056cda71082910c1c1fed9fb Mon Sep 17 00:00:00 2001 From: ssmith Date: Wed, 11 Jan 1995 20:42:06 +0000 Subject: [PATCH] Added *privilege-level* --- v8/src/compiler/machines/i386/lapgen.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/machines/i386/lapgen.scm b/v8/src/compiler/machines/i386/lapgen.scm index eeed3d332..5a31d5bd2 100644 --- a/v8/src/compiler/machines/i386/lapgen.scm +++ b/v8/src/compiler/machines/i386/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: lapgen.scm,v 1.1 1995/01/10 20:52:58 adams Exp $ +$Id: lapgen.scm,v 1.2 1995/01/11 20:42:06 ssmith Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -676,4 +676,12 @@ MIT in each case. |# (define (lookup-arithmetic-method operator methods) (cdr (or (assq operator (cdr methods)) - (error "Unknown operator" operator)))) \ No newline at end of file + (error "Unknown operator" operator)))) + + +;; This has been copied from the Spectrum's file (sort of). I've used +;; so many things from the Spectrum's files that have this variable in +;; it that I defined it here since I don't know what it is. I set +;; it to 0 instead of 3 since I don't even know why it should be used. +;; Potential bug. +(define-integrable *privilege-level* 0) -- 2.25.1