Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a3858cfc
Commit
a3858cfc
authored
Feb 14, 2000
by
sewardj
Browse files
[project @ 2000-02-14 11:13:11 by sewardj]
cosmetic wibbles
parent
43a49524
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/interpreter/interface.c
View file @
a3858cfc
...
...
@@ -7,8 +7,8 @@
* Hugs version 1.4, December 1997
*
* $RCSfile: interface.c,v $
* $Revision: 1.3
0
$
* $Date: 2000/02/
09 14:50:20
$
* $Revision: 1.3
1
$
* $Date: 2000/02/
14 11:13:11
$
* ------------------------------------------------------------------------*/
#include
"prelude.h"
...
...
@@ -21,7 +21,7 @@
#include
"object.h"
#define DEBUG_IFACE
/*
#define DEBUG_IFACE
*/
#define VERBOSE FALSE
extern
void
print
(
Cell
,
Int
);
...
...
@@ -1093,7 +1093,7 @@ static ObjectCode* startGHCModule_partial_load ( String objNm, Int objSz )
ERRMSG
(
0
)
"Validation of object file
\"
%s
\"
failed"
,
objNm
EEND
;
}
if
(
!
ocGetNames
(
oc
,
0
||
VERBOSE
))
{
if
(
!
ocGetNames
(
oc
,
VERBOSE
))
{
ERRMSG
(
0
)
"Reading of symbol names in object file
\"
%s
\"
failed"
,
objNm
EEND
;
}
...
...
@@ -1319,11 +1319,11 @@ static Void finishGHCModule ( Cell root )
#endif
/* Last, but by no means least ... */
if
(
!
ocResolve
(
module
(
mod
).
object
,
0
||
VERBOSE
))
if
(
!
ocResolve
(
module
(
mod
).
object
,
VERBOSE
))
internal
(
"finishGHCModule: object resolution failed"
);
for
(
oc
=
module
(
mod
).
objectExtras
;
oc
;
oc
=
oc
->
next
)
{
if
(
!
ocResolve
(
oc
,
0
||
VERBOSE
))
if
(
!
ocResolve
(
oc
,
VERBOSE
))
internal
(
"finishGHCModule: extra object resolution failed"
);
}
}
...
...
ghc/interpreter/link.c
View file @
a3858cfc
...
...
@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: link.c,v $
* $Revision: 1.4
2
$
* $Date: 2000/02/
09 14:50:20
$
* $Revision: 1.4
3
$
* $Date: 2000/02/
14 11:13:11
$
* ------------------------------------------------------------------------*/
#include
"prelude.h"
...
...
@@ -409,7 +409,6 @@ Void linkPreludeCM(void) { /* Hook to cfuns and mfuns in */
nameEq
=
linkName
(
"=="
);
nameFromInt
=
linkName
(
"fromInt"
);
nameFromInteger
=
linkName
(
"fromInteger"
);
nameFromDouble
=
linkName
(
"fromDouble"
);
nameReturn
=
linkName
(
"return"
);
nameBind
=
linkName
(
">>="
);
nameLe
=
linkName
(
"<="
);
...
...
@@ -484,8 +483,10 @@ Void linkPreludeNames(void) { /* Hook to names defined in Prelude */
namePmInt
=
linkName
(
"hugsprimPmInt"
);
namePmInteger
=
linkName
(
"hugsprimPmInteger"
);
namePmDouble
=
linkName
(
"hugsprimPmDouble"
);
nameFromDouble
=
linkName
(
"fromDouble"
);
namePmFromInteger
=
linkName
(
"hugsprimPmFromInteger"
);
namePmSubtract
=
linkName
(
"hugsprimPmSubtract"
);
namePmLe
=
linkName
(
"hugsprimPmLe"
);
...
...
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