From bdef58ec08c13f1b91ae23ea28ae9805df68a66e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 9 May 2003 19:45:53 +0000
Subject: [PATCH] Make sure that "gccode.h" is included whenever
 HAS_COMPILER_SUPPORT is defined.

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

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index aabc78e60..664a7b9c8 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,8 +1,9 @@
 /* -*-C-*-
 
-$Id: uxtrap.c,v 1.37 2003/02/14 18:28:24 cph Exp $
+$Id: uxtrap.c,v 1.38 2003/05/09 19:45:53 cph Exp $
 
-Copyright (c) 1990-2002 Massachusetts Institute of Technology
+Copyright 1990,1991,1992,1993,1995,1997 Massachusetts Institute of Technology
+Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -391,6 +392,10 @@ DEFUN_VOID (soft_reset)
   setup_trap_frame (0, 0, 0, (&trinfo), new_stack_pointer);
 }
 
+#ifdef HAS_COMPILER_SUPPORT
+#  include "gccode.h"
+#endif
+
 #if !defined(HAVE_STRUCT_SIGCONTEXT) || !defined(HAS_COMPILER_SUPPORT) || defined(USE_STACKLETS)
 
 static struct trap_recovery_info dummy_recovery_info =
@@ -427,8 +432,6 @@ DEFUN (continue_from_trap, (signo, info, scp),
    4) set up a recovery frame for the interpreter so that debuggers can
       display more information. */
 
-#include "gccode.h"
-
 #define SCHEME_ALIGNMENT_MASK		((sizeof (long)) - 1)
 #define STACK_ALIGNMENT_MASK		SCHEME_ALIGNMENT_MASK
 #define FREE_PARANOIA_MARGIN		0x100
-- 
2.25.1