From 7fa2308f8f0b01e4a73845590fc451bd63d507b0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Jun 1987 20:56:37 +0000 Subject: [PATCH] Define new type code for compiled code blocks to guarantee that they are not put in pure space. --- v7/src/microcode/gctype.c | 4 ++-- v8/src/microcode/gctype.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/gctype.c b/v7/src/microcode/gctype.c index 5f3904700..9b0e9bbfd 100644 --- a/v7/src/microcode/gctype.c +++ b/v7/src/microcode/gctype.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/gctype.c,v 9.22 1987/04/03 00:14:08 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/gctype.c,v 9.23 1987/06/05 20:56:37 cph Rel $ * * This file contains the table which maps between Types and * GC Types. @@ -108,7 +108,7 @@ int GC_Type_Map[MAX_SAFE_TYPE + 1] = { GC_Pair, /* TC_COMPILER_LINK */ GC_Non_Pointer, /* TC_STACK_ENVIRONMENT */ GC_Pair, /* TC_COMPLEX */ - GC_Undefined, /* 0x3D */ + GC_Vector, /* TC_COMPILED_CODE_BLOCK */ GC_Undefined, /* 0x3E */ GC_Undefined, /* 0x3F */ GC_Undefined, /* 0x40 */ diff --git a/v8/src/microcode/gctype.c b/v8/src/microcode/gctype.c index 465ff9d58..2758e8f17 100644 --- a/v8/src/microcode/gctype.c +++ b/v8/src/microcode/gctype.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/gctype.c,v 9.22 1987/04/03 00:14:08 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/gctype.c,v 9.23 1987/06/05 20:56:37 cph Rel $ * * This file contains the table which maps between Types and * GC Types. @@ -108,7 +108,7 @@ int GC_Type_Map[MAX_SAFE_TYPE + 1] = { GC_Pair, /* TC_COMPILER_LINK */ GC_Non_Pointer, /* TC_STACK_ENVIRONMENT */ GC_Pair, /* TC_COMPLEX */ - GC_Undefined, /* 0x3D */ + GC_Vector, /* TC_COMPILED_CODE_BLOCK */ GC_Undefined, /* 0x3E */ GC_Undefined, /* 0x3F */ GC_Undefined, /* 0x40 */ -- 2.25.1