diff options
| author | simonmar <unknown> | 2001-02-09 17:15:20 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-02-09 17:15:20 +0000 |
| commit | 0370154bef26e4780db3796eacd931afca0ee98e (patch) | |
| tree | 7acb299a531545f113811db2148b3c3277245620 | |
| parent | b65c8197b3b173981917f4bf5a2b3d046b04ab18 (diff) | |
| download | haskell-0370154bef26e4780db3796eacd931afca0ee98e.tar.gz | |
[project @ 2001-02-09 17:15:20 by simonmar]
#if 0 this file (instead of #ifdef INTERPRETER). We'll need the code
later to implement foreign import in the interpreter.
| -rw-r--r-- | ghc/rts/universal_call_c.S | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/ghc/rts/universal_call_c.S b/ghc/rts/universal_call_c.S index 5860ef5f42..f4ed0ab459 100644 --- a/ghc/rts/universal_call_c.S +++ b/ghc/rts/universal_call_c.S @@ -1,18 +1,15 @@ - /* -------------------------------------------------------------------------- * Assembly code to call C and Haskell functions * - * Copyright (c) 1994-1999. + * Copyright (c) 1994-2001. * - * $RCSfile: universal_call_c.S,v $ - * $Revision: 1.9 $ - * $Date: 1999/11/17 13:19:36 $ + * $Id: universal_call_c.S,v 1.10 2001/02/09 17:15:20 simonmar Exp $ * ------------------------------------------------------------------------*/ +#if 0 /* later: GHCI */ + #include "config.h" -#include "options.h" -#ifdef INTERPRETER .file "universal_call_c.S" #if 0 @@ -225,4 +222,4 @@ ADD_UNDERSCORE(universal_call_c_x86_stdcall:) #endif /* i386_TARGET_ARCH */ -#endif /* INTERPRETER */ +#endif /* GHCI */ |