Alpha fixes.
/* -----------------------------------------------------------------------------
- * $Id: Stg.h,v 1.55 2003/08/22 22:24:16 sof Exp $
+ * $Id: Stg.h,v 1.56 2003/09/21 13:22:01 igloo Exp $
*
* (c) The GHC Team, 1998-1999
*
/* Configuration */
#include "config.h"
+/* This needs to be up near the top as the register line on alpha needs
+ * to be before all procedures */
+#include "TailCalls.h"
+
#if __GNUC__ >= 3
/* Assume that a flexible array member at the end of a struct
* can be defined thus: T arr[]; */
#include "SMP.h"
#include "MachRegs.h"
#include "Regs.h"
-#include "TailCalls.h"
#include "Block.h"
/* RTS public interface */
/* -----------------------------------------------------------------------------
- * $Id: TailCalls.h,v 1.13 2003/08/29 16:00:26 simonmar Exp $
+ * $Id: TailCalls.h,v 1.14 2003/09/21 13:22:02 igloo Exp $
*
* (c) The GHC Team, 1998-1999
*
#ifdef alpha_TARGET_ARCH
+#ifdef IN_STG_CODE
register void *_procedure __asm__("$27");
+#endif
#define JMP_(cont) \
do { _procedure = (void *)(cont); \
#if defined(alpha_TARGET_ARCH)
/* To get the definition of PAL_imb: */
-#include <machine/pal.h>
+# if defined(linux_TARGET_OS)
+# include <asm/pal.h>
+# else
+# include <machine/pal.h>
+# endif
#endif
#if defined(ia64_TARGET_ARCH)
/* -----------------------------------------------------------------------------
- * $Id: Signals.c,v 1.37 2003/04/01 15:05:22 sof Exp $
+ * $Id: Signals.c,v 1.38 2003/09/21 13:22:03 igloo Exp $
*
* (c) The GHC Team, 1998-1999
*
#include "StablePriv.h"
#ifdef alpha_TARGET_ARCH
-# include <machine/fpu.h>
+# if defined(linux_TARGET_OS)
+# include <asm/fpu.h>
+# else
+# include <machine/fpu.h>
+# endif
#endif
#ifdef HAVE_UNISTD_H