From 0851bd0f92d964dd8f40d72b40595b4fab376122 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 Dec 1990 02:00:19 +0000
Subject: [PATCH] Patch around NeXT's missing "etext".

---
 v7/src/microcode/uxtrap.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index 7ad9e9775..f844a003b 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.5 1990/11/13 08:45:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.6 1990/12/30 02:00:19 cph Rel $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -414,6 +414,11 @@ DEFUN (continue_from_trap, (signo, code, scp),
 static SCHEME_OBJECT * EXFUN
   (find_block_address, (char * pc_value, SCHEME_OBJECT * area_start));
 
+#ifndef NeXT
+extern long etext;
+#define get_etext() (&etext)
+#endif
+
 static void
 DEFUN (continue_from_trap, (signo, code, scp),
        int signo AND
@@ -432,7 +437,6 @@ DEFUN (continue_from_trap, (signo, code, scp),
   SCHEME_OBJECT * new_stack_pointer;
   SCHEME_OBJECT * xtra_info;
   struct trap_recovery_info info;
-  extern long etext;
 
 #if 0
   fprintf (stderr, "\ncontinue_from_trap:");
@@ -452,7 +456,7 @@ DEFUN (continue_from_trap, (signo, code, scp),
   }
   else
   {
-    pc_in_C = (the_pc <= ((long) (&etext)));
+    pc_in_C = (the_pc <= ((long) (get_etext ())));
     pc_in_heap =
       ((the_pc < ((long) Heap_Top)) && (the_pc >= ((long) Heap_Bottom)));
     pc_in_constant_space =
-- 
2.25.1