Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
6a9485d7
Commit
6a9485d7
authored
Sep 21, 2003
by
igloo
Browse files
[project @ 2003-09-21 13:22:01 by igloo]
Alpha fixes.
parent
963cece5
Changes
4
Hide whitespace changes
Inline
Side-by-side
ghc/includes/Stg.h
View file @
6a9485d7
/* -----------------------------------------------------------------------------
* $Id: Stg.h,v 1.5
5
2003/0
8
/2
2 22:24:16 sof
Exp $
* $Id: Stg.h,v 1.5
6
2003/0
9
/2
1 13:22:01 igloo
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -36,6 +36,10 @@
/* 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[]; */
...
...
@@ -183,7 +187,6 @@ typedef StgWord64 LW_;
#include
"SMP.h"
#include
"MachRegs.h"
#include
"Regs.h"
#include
"TailCalls.h"
#include
"Block.h"
/* RTS public interface */
...
...
ghc/includes/TailCalls.h
View file @
6a9485d7
/* -----------------------------------------------------------------------------
* $Id: TailCalls.h,v 1.1
3
2003/0
8
/2
9
1
6:00:26 simonmar
Exp $
* $Id: TailCalls.h,v 1.1
4
2003/0
9
/2
1
1
3:22:02 igloo
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -98,7 +98,9 @@ extern void __DISCARD__(void);
#ifdef alpha_TARGET_ARCH
#ifdef IN_STG_CODE
register
void
*
_procedure
__asm__
(
"$27"
);
#endif
#define JMP_(cont) \
do { _procedure = (void *)(cont); \
...
...
ghc/rts/Adjustor.c
View file @
6a9485d7
...
...
@@ -73,7 +73,11 @@ static unsigned char __obscure_ccall_ret_code [] =
#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)
...
...
ghc/rts/Signals.c
View file @
6a9485d7
/* -----------------------------------------------------------------------------
* $Id: Signals.c,v 1.3
7
2003/0
4/01 15:05:22 sof
Exp $
* $Id: Signals.c,v 1.3
8
2003/0
9/21 13:22:03 igloo
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -19,7 +19,11 @@
#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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment