Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
0578dfbc
Commit
0578dfbc
authored
Sep 17, 2007
by
andy@galois.com
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
removing the functions hs_hpc_read and hs_hpc_write inside Hpc.c, they are dead code.
* To be merged to STABLE. *
parent
66ae7383
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
38 deletions
+0
-38
rts/Hpc.c
rts/Hpc.c
+0
-38
No files found.
rts/Hpc.c
View file @
0578dfbc
...
...
@@ -39,9 +39,6 @@ int totalTixes = 0; // total number of tix boxes.
static
char
*
tixFilename
;
void
hs_hpc_read
(
char
*
filename
);
void
hs_hpc_write
(
char
*
filename
);
static
void
failure
(
char
*
msg
)
{
debugTrace
(
DEBUG_hpc
,
"hpc failure: %s
\n
"
,
msg
);
fprintf
(
stderr
,
"Hpc failure: %s
\n
"
,
msg
);
...
...
@@ -328,41 +325,6 @@ exitHpc(void) {
writeTix
(
f
);
}
void
hs_hpc_read
(
char
*
filename
)
{
HpcModuleInfo
*
orig_modules
=
0
,
*
tmpModule
,
*
tmpOrigModule
;
int
i
;
orig_modules
=
modules
;
modules
=
0
;
if
(
init_open
(
fopen
(
filename
,
"r"
)))
{
readTix
();
// Now we copy across the arrays. O(n^2), but works
for
(
tmpModule
=
modules
;
tmpModule
!=
0
;
tmpModule
=
tmpModule
->
next
)
{
for
(
tmpOrigModule
=
orig_modules
;
tmpOrigModule
!=
0
;
tmpOrigModule
=
tmpOrigModule
->
next
)
{
if
(
!
strcmp
(
tmpModule
->
modName
,
tmpOrigModule
->
modName
))
{
assert
(
tmpModule
->
tixArr
!=
0
);
assert
(
tmpOrigModule
->
tixArr
!=
0
);
assert
(
tmpModule
->
tickCount
==
tmpOrigModule
->
tickCount
);
for
(
i
=
0
;
i
<
tmpModule
->
tickCount
;
i
++
)
{
tmpOrigModule
->
tixArr
[
i
]
=
tmpModule
->
tixArr
[
i
];
}
tmpModule
->
tixArr
=
tmpOrigModule
->
tixArr
;
break
;
}
}
}
}
}
void
hs_hpc_write
(
char
*
filename
)
{
writeTix
(
fopen
(
filename
,
"w"
));
}
//////////////////////////////////////////////////////////////////////////////
// This is the API into Hpc RTS from Haskell, allowing the tixs boxes
// to be first class.
...
...
Write
Preview
Markdown
is supported
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