Commit 3d605c0a authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-06 16:33:10 by sewardj]

Update Hugs' knowledge of the GHC Prelude to track recent Prelude changes.
parent a7c9eb86
......@@ -7,8 +7,8 @@
* 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"
......@@ -2226,6 +2226,7 @@ Type type; {
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) \
......@@ -2269,6 +2270,7 @@ Type type; {
Sym(waitReadzh_fast) \
Sym(waitWritezh_fast) \
Sym(CHARLIKE_closure) \
Sym(INTLIKE_closure) \
Sym(suspendThread) \
Sym(resumeThread) \
Sym(stackOverflow) \
......@@ -2292,6 +2294,7 @@ Type type; {
Sym(__int_encodeDouble) \
Sym(mpz_cmp_si) \
Sym(mpz_cmp) \
Sym(__mpn_gcd_1) \
Sym(newArrayzh_fast) \
Sym(unsafeThawArrayzh_fast) \
Sym(newDoubleArrayzh_fast) \
......@@ -2302,6 +2305,9 @@ Type type; {
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) \
......@@ -2361,8 +2367,10 @@ Type type; {
/* 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;
......
......@@ -9,8 +9,8 @@
* 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"
......@@ -508,10 +508,10 @@ break;
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);
......
......@@ -9,8 +9,8 @@
* 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"
......@@ -812,7 +812,7 @@ Tycon addTupleTycon ( Int n )
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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment