From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 25 Nov 1994 22:57:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6971
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d11069fae97dd421760826d0a4cff4937e6a8d4;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 661ebfc01..327cec123 100644
--- a/v8/src/compiler/midend/fakeprim.scm
+++ b/v8/src/compiler/midend/fakeprim.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fakeprim.scm,v 1.1 1994/11/19 02:04:29 adams Exp $
+$Id: fakeprim.scm,v 1.2 1994/11/25 22:57:50 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -729,6 +729,14 @@ MIT in each case. |#
 
 (cookie-call %small-fixnum? '#F value 'precision-bits)
 
+
+(define %profile-data
+  ;; (CALL ',%profile-data '#F '<data>)
+  (make-operator/simple* "#[profile-data]" '(UNSPECIFIC-RESULT)))
+
+(cookie-call %profile-data '#F 'data)
+
+
 (define (make-operator/out-of-line name . more)
   (apply make-operator name
 	 '(SIDE-EFFECT-INSENSITIVE)