From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Thu, 10 Jun 1993 01:06:33 +0000 (+0000)
Subject: Add interpreter register FREE.
X-Git-Tag: 20090517-FFI~8342
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25d09b04bbf7b180cdd13b6c00df1035d1e4845d;p=mit-scheme.git

Add interpreter register FREE.
---

diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm
index fceb50a2d..4ac875a99 100644
--- a/v7/src/compiler/machines/C/machin.scm
+++ b/v7/src/compiler/machines/C/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: machin.scm,v 1.2 1993/06/10 01:06:33 jawilson Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -250,6 +250,8 @@ MIT in each case. |#
      (interpreter-dynamic-link))
     ((VALUE)
      (interpreter-value-register))
+    ((FREE)
+     (interpreter-free-pointer))
     ((INTERPRETER-CALL-RESULT:ACCESS)
      (interpreter-register:access))
     ((INTERPRETER-CALL-RESULT:CACHE-REFERENCE)