From 436c31700c36ed1862950c3c142ae4bb5120f291 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 2 Nov 1989 04:01:56 +0000 Subject: [PATCH] Fix bug in bchmmg.c by which weak pairs whose cars were compiled procedures would not be updated correctly. --- v7/src/microcode/bchmmg.c | 9 ++++----- v7/src/microcode/version.h | 4 ++-- v8/src/microcode/version.h | 4 ++-- 3 files changed, 8 insertions(+), 9 deletions(-) diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c index 7b31ccd7b..9a01f5304 100644 --- a/v7/src/microcode/bchmmg.c +++ b/v7/src/microcode/bchmmg.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.48 1989/09/20 23:05:48 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.49 1989/11/02 04:01:56 jinx Exp $ Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology @@ -655,8 +655,7 @@ Fix_Weak_Chain() Weak_Chain = (OBJECT_NEW_TYPE (TC_NULL, Weak_Chain)); switch(GC_Type(Temp)) - { - case GC_Non_Pointer: + { case GC_Non_Pointer: *Scan = Temp; continue; @@ -676,7 +675,7 @@ Fix_Weak_Chain() /* Normal pointer types, the broken heart is in the first word. Note that most special types are treated normally here. The BH code updates *Scan if the object has been relocated. - Otherwise it falls through and we replace it with a full #F. + Otherwise it falls through and we replace it with a full SHARP_F. Eliminating this assignment would keep old data (pl. of datum). */ case GC_Cell: @@ -707,7 +706,7 @@ Fix_Weak_Chain() *Scan = Temp; continue; } - Compiled_BH(false, continue); + Compiled_BH(false, { *Scan = Temp; continue; }); *Scan = SHARP_F; continue; diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h index e4ccde11e..db516a8ef 100644 --- a/v7/src/microcode/version.h +++ b/v7/src/microcode/version.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.9 1989/11/02 03:59:26 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -46,7 +46,7 @@ MIT in each case. */ #define VERSION 11 #endif #ifndef SUBVERSION -#define SUBVERSION 8 +#define SUBVERSION 9 #endif #ifndef UCODE_TABLES_FILENAME diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h index 252e2a4b8..54b5ff3a8 100644 --- a/v8/src/microcode/version.h +++ b/v8/src/microcode/version.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.9 1989/11/02 03:59:26 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -46,7 +46,7 @@ MIT in each case. */ #define VERSION 11 #endif #ifndef SUBVERSION -#define SUBVERSION 8 +#define SUBVERSION 9 #endif #ifndef UCODE_TABLES_FILENAME -- 2.25.1