[project @ 1999-10-15 11:02:06 by sewardj]

Added basic support for foreign export dynamic.

Many aspects of it are still broken:
* Only supports x86-linux.
* The range of allowable types is small: Char Int Float Double
  Addr and Word.
* Adjustor thunks are never freed.
* Returning Doubles or Floats doesn't work at all.

I expect to fix some of these shortly.  foreign import also
needs redoing, so it can accept any number of arguments of
any type.

Also:
* Fixed setRtsFlags in Evaluator.c to make it endian-independent.
* Fixed raisePrim in Evaluator.c so things like division by zero,
  array index errors, etc, throw an exception instead of
  terminating StgHugs.  raisePrim is renamed makeErrorCall.

1 files changed, 2 insertions, 4 deletions

diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c
index 0cfc6b7f0c..e3590ae69d 100644
--- a/ghc/rts/Disassembler.c
+++ b/ghc/rts/Disassembler.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-1998.
  *
  * $RCSfile: Disassembler.c,v $
- * $Revision: 1.7 $
- * $Date: 1999/07/06 16:40:24 $
+ * $Revision: 1.8 $
+ * $Date: 1999/10/15 11:03:01 $
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -336,14 +336,12 @@ InstrPtr disInstr( StgBCO *bco, InstrPtr pc )
     case i_UNPACK_DOUBLE:
             return disNone(bco,pc,"UNPACK_DOUBLE");
 
-#ifdef PROVIDE_STABLE
     case i_VAR_STABLE:
             return disInt(bco,pc,"VAR_STABLE");
     case i_PACK_STABLE:
             return disNone(bco,pc,"PACK_STABLE");
     case i_UNPACK_STABLE:
             return disNone(bco,pc,"UNPACK_STABLE");
-#endif
 
     case i_PRIMOP1:
         {