From 6ac66f811759acf4c221612c21e4ca6f17787fb4 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 16 Feb 1992 03:04:44 +0000 Subject: [PATCH] Fix START_CLOSURE_RELOCATION. --- v7/src/microcode/cmpintmd/i386.h | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/v7/src/microcode/cmpintmd/i386.h b/v7/src/microcode/cmpintmd/i386.h index 0fa05f0ae..a8f887be4 100644 --- a/v7/src/microcode/cmpintmd/i386.h +++ b/v7/src/microcode/cmpintmd/i386.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/i386.h,v 1.10 1992/02/16 02:07:02 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/i386.h,v 1.11 1992/02/16 03:04:44 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -262,8 +262,10 @@ do { \ #define START_CLOSURE_RELOCATION(scan) do \ { \ SCHEME_OBJECT \ - * _new = ((SCHEME_OBJECT *) (scan)), \ - * _old = (OBJECT_ADDRESS (_new[(OBJECT_DATUM (*_new))])); \ + * _block = ((SCHEME_OBJECT *) (scan)), \ + * _old = (OBJECT_ADDRESS (_block[(OBJECT_DATUM (*_block))])); \ + char * _new = \ + ((char *) (FIRST_MANIFEST_CLOSURE_ENTRY (_block + 1))); \ \ i386_pc_displacement_relocation = (((long) _old) - ((long) _new)); \ } while (0) -- 2.25.1