From e181d8c351b016037fb44d880be6c61f7dff3fa8 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 16 Apr 1987 15:30:25 +0000
Subject: [PATCH] Eliminate reference to TC_STRING
---
v7/src/microcode/bintopsb.c | 4 ++--
v8/src/microcode/bintopsb.c | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index f9656968f..d7fe0c671 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.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/bintopsb.c,v 9.24 1987/04/16 02:05:24 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.25 1987/04/16 15:30:25 jinx Exp $
*
* This File contains the code to translate internal format binary
* files to portable format.
@@ -133,7 +133,7 @@ print_a_char(c, name)
Mem_Base[(Scn)] = Make_Non_Pointer((Code), (Obj)); \
*Old_Address++ = Make_Non_Pointer(TC_BROKEN_HEART, (Obj)); \
(Obj) += 1; \
- *(FObj)++ = Make_Non_Pointer(TC_STRING, 0); \
+ *(FObj)++ = Make_Non_Pointer(TC_CHARACTER_STRING, 0); \
*(FObj)++ = Old_Contents; \
i = Get_Integer(Old_Contents); \
NStrings += 1; \
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 6ed1f7fa0..db968577e 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.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/bintopsb.c,v 9.24 1987/04/16 02:05:24 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.25 1987/04/16 15:30:25 jinx Exp $
*
* This File contains the code to translate internal format binary
* files to portable format.
@@ -133,7 +133,7 @@ print_a_char(c, name)
Mem_Base[(Scn)] = Make_Non_Pointer((Code), (Obj)); \
*Old_Address++ = Make_Non_Pointer(TC_BROKEN_HEART, (Obj)); \
(Obj) += 1; \
- *(FObj)++ = Make_Non_Pointer(TC_STRING, 0); \
+ *(FObj)++ = Make_Non_Pointer(TC_CHARACTER_STRING, 0); \
*(FObj)++ = Old_Contents; \
i = Get_Integer(Old_Contents); \
NStrings += 1; \
--
2.25.1