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