Skip to content
GitLab
Menu
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
d2a09a13
Commit
d2a09a13
authored
Feb 14, 2000
by
sewardj
Browse files
[project @ 2000-02-14 10:59:30 by sewardj]
Tart up printStackChunk a bit./
parent
d381d209
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Printer.c
View file @
d2a09a13
/* -----------------------------------------------------------------------------
* $Id: Printer.c,v 1.2
0
2000/0
1
/14 1
4
:5
6:40 simonmar
Exp $
* $Id: Printer.c,v 1.2
1
2000/0
2
/14 1
0
:5
9:30 sewardj
Exp $
*
* (c) The GHC Team, 1994-2000.
*
...
...
@@ -410,7 +410,7 @@ void printStackChunk( StgPtr sp, StgPtr spBottom )
sp
++
;
small_bitmap:
while
(
bitmap
!=
0
)
{
fprintf
(
stderr
,
"
Stac
k[%d] (%p) = "
,
spBottom
-
sp
,
sp
);
fprintf
(
stderr
,
"
st
k[%d] (%p) = "
,
spBottom
-
sp
,
sp
);
if
((
bitmap
&
1
)
==
0
)
{
printPtr
((
P_
)
*
sp
);
fprintf
(
stderr
,
"
\n
"
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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