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
71e810db
Commit
71e810db
authored
Nov 30, 2006
by
andy@galois.com
Browse files
Misc unsigned printing issues; adding magicTixNumber.
parent
4e3e91e2
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Hpc.c
View file @
71e810db
...
...
@@ -20,9 +20,10 @@
#define DEBUG_HPC 0
static
int
hpc_inited
=
0
;
// Have you started this component?
static
FILE
*
tixFile
;
// file being read/written
static
int
tix_ch
;
// current char
static
int
hpc_inited
=
0
;
// Have you started this component?
static
FILE
*
tixFile
;
// file being read/written
static
int
tix_ch
;
// current char
static
StgWord64
magicTixNumber
;
// Magic/Hash number to mark .tix files
typedef
struct
_Info
{
char
*
modName
;
// name of module
...
...
@@ -124,7 +125,7 @@ static void hpc_init(void) {
expect
(
'i'
);
expect
(
'x'
);
ws
();
expectWord64
();
magicTixNumber
=
expectWord64
();
ws
();
expect
(
'['
);
ws
();
...
...
@@ -156,7 +157,8 @@ static void hpc_init(void) {
if
(
tix_ch
==
','
)
{
expect
(
','
);
ws
();
}}
}
}
expect
(
']'
);
ws
();
tixBoxes
=
(
StgWord64
*
)
calloc
(
totalTixes
,
sizeof
(
StgWord64
));
...
...
@@ -173,6 +175,9 @@ static void hpc_init(void) {
expect
(
']'
);
fclose
(
tixFile
);
}
else
{
// later, we will find a binary specific
magicTixNumber
=
(
StgWord64
)
0
;
}
}
...
...
@@ -285,7 +290,7 @@ exitHpc(void) {
comma
=
0
;
fprintf
(
f
,
"Tix
0 ["
);
fprintf
(
f
,
"Tix
%"
PRIuWORD64
" ["
,
magicTixNumber
);
tmpModule
=
modules
;
for
(;
tmpModule
!=
0
;
tmpModule
=
tmpModule
->
next
)
{
if
(
comma
)
{
...
...
@@ -293,11 +298,11 @@ exitHpc(void) {
}
else
{
comma
=
1
;
}
fprintf
(
f
,
"(
\"
%s
\"
,%
d
)"
,
fprintf
(
f
,
"(
\"
%s
\"
,%
u
)"
,
tmpModule
->
modName
,
tmpModule
->
tickCount
);
#if DEBUG_HPC
fprintf
(
stderr
,
"%s: %
d
(offset=%
d
)
\n
"
,
fprintf
(
stderr
,
"%s: %
u
(offset=%
u
)
\n
"
,
tmpModule
->
modName
,
tmpModule
->
tickCount
,
tmpModule
->
tickOffset
);
...
...
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