Add new operation to clobber compiled-closure frames.
authorChris Hanson <org/chris-hanson/cph>
Thu, 3 Aug 1989 23:07:15 +0000 (23:07 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 3 Aug 1989 23:07:15 +0000 (23:07 +0000)
v7/src/runtime/udata.scm

index ebe0ce44513feaffd6ba0b1c0f6091ed76b8836e..e390fae449d2a77ab38006a17070d64096700ea4 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.9 1989/06/13 21:57:05 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.10 1989/08/03 23:07:15 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -144,6 +144,12 @@ MIT in each case. |#
 (define-integrable (compiled-closure/ref closure index)
   ;; 68020 specific -- must be rewritten in compiler interface.
   ((ucode-primitive primitive-object-ref 2) closure (+ 2 index)))
+
+(define-integrable (compiled-closure/set! closure index value)
+  ;; 68020 specific -- must be rewritten in compiler interface.
+  ((ucode-primitive primitive-object-set! 3) closure (+ 2 index) value)
+  unspecific)
+
 ;;; These are now pretty useless.
 
 (define (compiled-procedure-entry procedure)