diff options
| author | Ian Lynagh <igloo@earth.li> | 2006-10-04 12:58:57 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2006-10-04 12:58:57 +0000 |
| commit | 87c36991c22f208623c96506c64c6c163361e45b (patch) | |
| tree | b1e419e54fda7a68aba2129951e60504d2928b80 | |
| parent | 3932b76369acda843a6c998449bf953a7cb2f5fc (diff) | |
| download | haskell-87c36991c22f208623c96506c64c6c163361e45b.tar.gz | |
Fix unregisterised alpha builds
| -rw-r--r-- | rts/StgCRun.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/StgCRun.c b/rts/StgCRun.c index 302e910939..9d80bdbf64 100644 --- a/rts/StgCRun.c +++ b/rts/StgCRun.c @@ -50,6 +50,7 @@ * in libc.a clobbers $s6. */ #include "ghcconfig.h" +#ifndef USE_MINIINTERPRETER #ifdef alpha_HOST_ARCH #define alpha_EXTRA_CAREFUL register long fake_ra __asm__("$26"); @@ -60,6 +61,7 @@ register double fake_f8 __asm__("$f8"); register double fake_f9 __asm__("$f9"); #endif #endif +#endif /* include Stg.h first because we want real machine regs in here: we * have to get the value of R1 back from Stg land to C land intact. |