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
1d4102fe
Commit
1d4102fe
authored
Jan 10, 2000
by
sewardj
Browse files
[project @ 2000-01-10 16:27:03 by sewardj]
nameRunIO --> nameRunIO_toplevel
parent
9df21476
Changes
3
Hide whitespace changes
Inline
Side-by-side
ghc/interpreter/hugs.c
View file @
1d4102fe
...
...
@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: hugs.c,v $
* $Revision: 1.3
3
$
* $Date: 2000/01/0
7
16:
56:47
$
* $Revision: 1.3
4
$
* $Date: 2000/01/
1
0 16:
27:03
$
* ------------------------------------------------------------------------*/
#include
<setjmp.h>
...
...
@@ -1406,7 +1406,7 @@ static Void local evaluator() { /* evaluate expr and print value */
#if 1
if
(
isProgType
(
ks
,
bd
))
{
inputExpr
=
ap
(
nameRunIO
,
inputExpr
);
inputExpr
=
ap
(
nameRunIO
_toplevel
,
inputExpr
);
evalExp
();
Putchar
(
'\n'
);
}
else
{
...
...
@@ -1420,7 +1420,7 @@ static Void local evaluator() { /* evaluate expr and print value */
}
inputExpr
=
ap2
(
findName
(
findText
(
"show"
)),
d
,
inputExpr
);
inputExpr
=
ap
(
findName
(
findText
(
"putStr"
)),
inputExpr
);
inputExpr
=
ap
(
nameRunIO
,
inputExpr
);
inputExpr
=
ap
(
nameRunIO
_toplevel
,
inputExpr
);
evalExp
();
printf
(
"
\n
"
);
if
(
addType
)
{
...
...
ghc/interpreter/link.c
View file @
1d4102fe
...
...
@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: link.c,v $
* $Revision: 1.2
8
$
* $Date: 2000/01/10 16:2
3:32
$
* $Revision: 1.2
9
$
* $Date: 2000/01/10 16:2
7:04
$
* ------------------------------------------------------------------------*/
#include
"prelude.h"
...
...
@@ -89,7 +89,7 @@ Name nameBind; /* for translating monad comps */
Name
nameZero
;
/* for monads with a zero */
Name
nameId
;
Name
nameRunIO
;
Name
nameRunIO
_toplevel
;
Name
namePrint
;
Name
nameOtherwise
;
...
...
@@ -459,7 +459,7 @@ Void linkPreludeNames(void) { /* Hook to names defined in Prelude */
/* static(tidyInfix) */
nameNegate
=
linkName
(
"negate"
);
/* user interface */
nameRunIO
=
linkName
(
"hugsprimRunIO_toplevel"
);
nameRunIO
_toplevel
=
linkName
(
"hugsprimRunIO_toplevel"
);
namePrint
=
linkName
(
"print"
);
/* desugar */
nameOtherwise
=
linkName
(
"otherwise"
);
...
...
ghc/interpreter/link.h
View file @
1d4102fe
extern
Cell
conCons
;
extern
Name
nameRunIO
;
extern
Name
nameRunIO
_toplevel
;
/* The following data constructors are used to box unboxed
* arguments and are treated differently by the code generator.
...
...
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