* Hugs version 1.4, December 1997
*
* $RCSfile: interface.c,v $
- * $Revision: 1.19 $
- * $Date: 2000/01/06 14:17:16 $
+ * $Revision: 1.20 $
+ * $Date: 2000/01/06 16:33:10 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
Sym(stg_gc_noregs) \
Sym(stg_gc_seq_1) \
Sym(stg_gc_d1) \
+ Sym(stg_gc_f1) \
Sym(stg_chk_0) \
Sym(stg_chk_1) \
Sym(stg_gen_chk) \
Sym(waitReadzh_fast) \
Sym(waitWritezh_fast) \
Sym(CHARLIKE_closure) \
+ Sym(INTLIKE_closure) \
Sym(suspendThread) \
Sym(resumeThread) \
Sym(stackOverflow) \
Sym(__int_encodeDouble) \
Sym(mpz_cmp_si) \
Sym(mpz_cmp) \
+ Sym(__mpn_gcd_1) \
Sym(newArrayzh_fast) \
Sym(unsafeThawArrayzh_fast) \
Sym(newDoubleArrayzh_fast) \
Sym(newCharArrayzh_fast) \
Sym(newMutVarzh_fast) \
Sym(quotRemIntegerzh_fast) \
+ Sym(quotIntegerzh_fast) \
+ Sym(remIntegerzh_fast) \
+ Sym(divExactIntegerzh_fast) \
Sym(divModIntegerzh_fast) \
Sym(timesIntegerzh_fast) \
Sym(minusIntegerzh_fast) \
/* AJG Hack */
+#if 0
#undef EXTERN_SYMS
#define EXTERN_SYMS
+#endif
/* entirely bogus claims about types of these symbols */
#define Sym(vvv) extern int vvv;
* included in the distribution.
*
* $RCSfile: link.c,v $
- * $Revision: 1.25 $
- * $Date: 2000/01/05 19:10:21 $
+ * $Revision: 1.26 $
+ * $Date: 2000/01/06 16:33:10 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
nameMkI = addWiredInBoxingTycon("PrelBase","Int", "I#",1,0,INT_REP );
nameMkW = addWiredInBoxingTycon("PrelAddr","Word", "W#",1,0,WORD_REP );
nameMkA = addWiredInBoxingTycon("PrelAddr","Addr", "A#",1,0,ADDR_REP );
- nameMkF = addWiredInBoxingTycon("PrelBase","Float", "F#",1,0,FLOAT_REP );
- nameMkD = addWiredInBoxingTycon("PrelBase","Double","D#",1,0,DOUBLE_REP);
+ nameMkF = addWiredInBoxingTycon("PrelFloat","Float", "F#",1,0,FLOAT_REP );
+ nameMkD = addWiredInBoxingTycon("PrelFloat","Double","D#",1,0,DOUBLE_REP);
nameMkInteger
- = addWiredInBoxingTycon("PrelBase","Integer","Integer#",1,0,0);
+ = addWiredInBoxingTycon("PrelNum","Integer","Integer#",1,0,0);
nameMkPrimByteArray
= addWiredInBoxingTycon("PrelGHC","ByteArray","PrimByteArray#",1,0,0);
* included in the distribution.
*
* $RCSfile: storage.c,v $
- * $Revision: 1.30 $
- * $Date: 2000/01/05 15:57:41 $
+ * $Revision: 1.31 $
+ * $Date: 2000/01/06 16:33:10 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
if (tycon(i).tuple == n) return i;
if (combined)
- m = findFakeModule(findText(n==0 ? "PrelBase" : "PrelTup")); else
+ m = findFakeModule(findText(n<=1 ? "PrelBase" : "PrelTup")); else
m = findModule(findText("Prelude"));
setCurrModule(m);