From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 25 Mar 1994 01:02:05 +0000 (+0000)
Subject: Add wabbit-hunting slot.
X-Git-Tag: 20090517-FFI~7208
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=375140d107bc821fe46ce7bfa99886d922574ad9;p=mit-scheme.git

Add wabbit-hunting slot.
---

diff --git a/v7/src/microcode/fixobj.h b/v7/src/microcode/fixobj.h
index a06bc4332..c2e57daaa 100644
--- a/v7/src/microcode/fixobj.h
+++ b/v7/src/microcode/fixobj.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fixobj.h,v 9.36 1993/11/08 20:38:05 cph Exp $
+$Id: fixobj.h,v 9.37 1994/03/25 01:02:05 gjr Exp $
 
-Copyright (c) 1987-1993 Massachusetts Institute of Technology
+Copyright (c) 1987-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -123,6 +123,21 @@ MIT in each case. */
 #define PC_Sample_Prob_Comp_Table	0x3D /* Sure looked compiled ?! */
 #define PC_Sample_UFO_Table		0x3E /* Invalid ENV at sample time  */
 
-#define COMPILED_CODE_BKPT_HANDLER	0x3F
-
-#define NFixed_Objects			0x40
+#define COMPILED_CODE_BKPT_HANDLER	0x3F /* Procedure to invoke when
+						compiled code hits a
+						breakpoint.
+					      */
+
+#define GC_WABBIT_DESCRIPTOR		0x40 /* #F or a vector of 4 elements:
+						- A boolean flag
+						- A vector of objects to find
+						- A vector to fill with
+						  references.
+						- A boolean flag = do you want
+						  a vector of all obj heads
+						  returned in this slot. If so,
+						  slot 0 will be a boolean flag
+						  indicating if there may be more.
+					      */
+
+#define NFixed_Objects			0x41
diff --git a/v8/src/microcode/fixobj.h b/v8/src/microcode/fixobj.h
index a06bc4332..c2e57daaa 100644
--- a/v8/src/microcode/fixobj.h
+++ b/v8/src/microcode/fixobj.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fixobj.h,v 9.36 1993/11/08 20:38:05 cph Exp $
+$Id: fixobj.h,v 9.37 1994/03/25 01:02:05 gjr Exp $
 
-Copyright (c) 1987-1993 Massachusetts Institute of Technology
+Copyright (c) 1987-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -123,6 +123,21 @@ MIT in each case. */
 #define PC_Sample_Prob_Comp_Table	0x3D /* Sure looked compiled ?! */
 #define PC_Sample_UFO_Table		0x3E /* Invalid ENV at sample time  */
 
-#define COMPILED_CODE_BKPT_HANDLER	0x3F
-
-#define NFixed_Objects			0x40
+#define COMPILED_CODE_BKPT_HANDLER	0x3F /* Procedure to invoke when
+						compiled code hits a
+						breakpoint.
+					      */
+
+#define GC_WABBIT_DESCRIPTOR		0x40 /* #F or a vector of 4 elements:
+						- A boolean flag
+						- A vector of objects to find
+						- A vector to fill with
+						  references.
+						- A boolean flag = do you want
+						  a vector of all obj heads
+						  returned in this slot. If so,
+						  slot 0 will be a boolean flag
+						  indicating if there may be more.
+					      */
+
+#define NFixed_Objects			0x41