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
905723b2
Commit
905723b2
authored
Apr 28, 1999
by
sewardj
Browse files
[project @ 1999-04-28 12:59:51 by sewardj]
Nano-fixes to make it work on sparc-solaris.
parent
e797eb4c
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Evaluator.c
View file @
905723b2
...
...
@@ -5,8 +5,8 @@
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
* $Revision: 1.1
4
$
* $Date: 1999/04/2
7
1
4:07:55
$
* $Revision: 1.1
5
$
* $Date: 1999/04/2
8
1
2:59:51
$
* ---------------------------------------------------------------------------*/
#include
"Rts.h"
...
...
@@ -490,7 +490,7 @@ StgThreadReturnCode enter( StgClosure* obj0 )
/* Start of the bytecode evaluator */
/* ---------------------------------------------------- */
{
# if
!DEBUG &&
USE_GCC_LABELS
# if USE_GCC_LABELS
# define Ins(x) &&l##x
static
void
*
labs
[]
=
{
INSTRLIST
};
# undef Ins
...
...
@@ -532,11 +532,11 @@ StgThreadReturnCode enter( StgClosure* obj0 )
fprintf
(
stderr
,
"Sp = %p
\t
Su = %p
\t
pc = %d
\t
"
,
xSp
,
xSu
,
PC
);
SSS
;
disInstr
(
bco
,
PC
);
//
{ int i;
//
fprintf(stderr,"\n");
//
for (i =
4
; i >= 0; i--)
//
fprintf(stderr, "%d %p\n", i, (StgPtr)(*(Sp+i)));
//
}
{
int
i
;
fprintf
(
stderr
,
"
\n
"
);
for
(
i
=
8
;
i
>=
0
;
i
--
)
fprintf
(
stderr
,
"%d %p
\n
"
,
i
,
(
StgPtr
)(
*
(
Sp
+
i
)));
}
fprintf
(
stderr
,
"
\n
"
);
LLL
;
);
...
...
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