Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
3d605c0a
Commit
3d605c0a
authored
Jan 06, 2000
by
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
Changes
3
Hide whitespace changes
Inline
Side-by-side
ghc/interpreter/interface.c
View file @
3d605c0a
...
...
@@ -7,8 +7,8 @@
* Hugs version 1.4, December 1997
*
* $RCSfile: interface.c,v $
* $Revision: 1.
19
$
* $Date: 2000/01/06 1
4:17
:1
6
$
* $Revision: 1.
20
$
* $Date: 2000/01/06 1
6:33
:1
0
$
* ------------------------------------------------------------------------*/
#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;
...
...
ghc/interpreter/link.c
View file @
3d605c0a
...
...
@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: link.c,v $
* $Revision: 1.2
5
$
* $Date: 2000/01/0
5
1
9:10:21
$
* $Revision: 1.2
6
$
* $Date: 2000/01/0
6
1
6: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
(
"Prel
Base
"
,
"Float"
,
"F#"
,
1
,
0
,
FLOAT_REP
);
nameMkD
=
addWiredInBoxingTycon
(
"Prel
Base
"
,
"Double"
,
"D#"
,
1
,
0
,
DOUBLE_REP
);
nameMkF
=
addWiredInBoxingTycon
(
"Prel
Float
"
,
"Float"
,
"F#"
,
1
,
0
,
FLOAT_REP
);
nameMkD
=
addWiredInBoxingTycon
(
"Prel
Float
"
,
"Double"
,
"D#"
,
1
,
0
,
DOUBLE_REP
);
nameMkInteger
=
addWiredInBoxingTycon
(
"Prel
Base
"
,
"Integer"
,
"Integer#"
,
1
,
0
,
0
);
=
addWiredInBoxingTycon
(
"Prel
Num
"
,
"Integer"
,
"Integer#"
,
1
,
0
,
0
);
nameMkPrimByteArray
=
addWiredInBoxingTycon
(
"PrelGHC"
,
"ByteArray"
,
"PrimByteArray#"
,
1
,
0
,
0
);
...
...
ghc/interpreter/storage.c
View file @
3d605c0a
...
...
@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: storage.c,v $
* $Revision: 1.3
0
$
* $Date: 2000/01/0
5
1
5:57:41
$
* $Revision: 1.3
1
$
* $Date: 2000/01/0
6
1
6: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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment