Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
cadc82fc
Commit
cadc82fc
authored
Sep 16, 1999
by
simonmar
Browse files
[project @ 1999-09-16 12:29:55 by simonmar]
Fix for DEBUG && !PROFILING
parent
3b5c5b4d
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/ProfHeap.c
View file @
cadc82fc
/* -----------------------------------------------------------------------------
* $Id: ProfHeap.c,v 1.
1
1999/09/1
5
1
3:46:28
simonmar Exp $
* $Id: ProfHeap.c,v 1.
2
1999/09/1
6
1
2:29:55
simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -33,6 +33,18 @@ static void fprint_data(FILE *fp);
char
prof_filename
[
128
];
/* urk */
FILE
*
prof_file
;
#ifdef DEBUG_HEAP_PROF
void
initProfiling
(
void
)
{
initHeapProfiling
();
}
void
endProfiling
(
void
)
{
endHeapProfiling
();
}
#endif
/* DEBUG_HEAP_PROF */
nat
initHeapProfiling
(
void
)
{
...
...
ghc/rts/ProfRts.h
View file @
cadc82fc
/* -----------------------------------------------------------------------------
* $Id: ProfRts.h,v 1.
5
1999/09/1
5
1
3:45:18
simonmar Exp $
* $Id: ProfRts.h,v 1.
6
1999/09/1
6
1
2:29:55
simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -7,6 +7,11 @@
*
* ---------------------------------------------------------------------------*/
#if defined(PROFILING) || defined(DEBUG)
void
initProfiling
(
void
);
void
endProfiling
(
void
);
#endif
#ifdef PROFILING
void
report_ccs_profiling
(
void
);
...
...
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