From 375140d107bc821fe46ce7bfa99886d922574ad9 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 25 Mar 1994 01:02:05 +0000 Subject: [PATCH] Add wabbit-hunting slot. --- v7/src/microcode/fixobj.h | 25 ++++++++++++++++++++----- v8/src/microcode/fixobj.h | 25 ++++++++++++++++++++----- 2 files changed, 40 insertions(+), 10 deletions(-) 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 -- 2.25.1