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
14e5c14e
Commit
14e5c14e
authored
Mar 23, 2000
by
simonmar
Browse files
[project @ 2000-03-23 13:13:29 by simonmar]
Avoid loops in CCS graph.
parent
1e5271f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/ProfHeap.c
View file @
14e5c14e
/* -----------------------------------------------------------------------------
* $Id: ProfHeap.c,v 1.
6
2000/03/
08 17:48
:2
4
simonmar Exp $
* $Id: ProfHeap.c,v 1.
7
2000/03/
23 13:13
:2
9
simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
...
...
@@ -270,7 +270,9 @@ clearCCSResid(CostCentreStack *ccs)
ccs
->
mem_resid
=
0
;
for
(
i
=
ccs
->
indexTable
;
i
!=
0
;
i
=
i
->
next
)
{
clearCCSResid
(
i
->
ccs
);
if
(
!
i
->
back_edge
)
{
clearCCSResid
(
i
->
ccs
);
}
}
}
...
...
@@ -307,7 +309,9 @@ reportCCSResid(FILE *fp, CostCentreStack *ccs)
}
for
(
i
=
ccs
->
indexTable
;
i
!=
0
;
i
=
i
->
next
)
{
reportCCSResid
(
fp
,
i
->
ccs
);
if
(
!
i
->
back_edge
)
{
reportCCSResid
(
fp
,
i
->
ccs
);
}
}
}
#endif
...
...
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