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
3e2cd89a
Commit
3e2cd89a
authored
Oct 18, 2007
by
Simon Marlow
Browse files
Change some ints to unsigned ints
Fixes some gratuitous warnings when compiling via C with -fhpc
parent
000be170
Changes
2
Hide whitespace changes
Inline
Side-by-side
includes/RtsExternal.h
View file @
3e2cd89a
...
...
@@ -73,13 +73,13 @@ extern void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr,
extern
void
freeHaskellFunctionPtr
(
void
*
ptr
);
/* Hpc stuff */
extern
int
hs_hpc_module
(
char
*
modName
,
int
modCount
,
int
modHashNo
,
StgWord64
*
tixArr
);
extern
int
hs_hpc_module
(
char
*
modName
,
unsigned
int
modCount
,
unsigned
int
modHashNo
,
StgWord64
*
tixArr
);
// Simple linked list of modules
typedef
struct
_HpcModuleInfo
{
char
*
modName
;
// name of module
int
tickCount
;
// number of ticks
int
tickOffset
;
// offset into a single large .tix Array
int
hashNo
;
// Hash number for this module's mix info
unsigned
int
tickCount
;
// number of ticks
unsigned
int
tickOffset
;
// offset into a single large .tix Array
unsigned
int
hashNo
;
// Hash number for this module's mix info
StgWord64
*
tixArr
;
// tix Array; local for this module
struct
_HpcModuleInfo
*
next
;
}
HpcModuleInfo
;
...
...
rts/Hpc.c
View file @
3e2cd89a
...
...
@@ -101,7 +101,7 @@ static StgWord64 expectWord64(void) {
static
void
readTix
(
void
)
{
int
i
;
unsigned
int
i
;
HpcModuleInfo
*
tmpModule
;
totalTixes
=
0
;
...
...
@@ -186,11 +186,11 @@ static void hpc_init(void) {
int
hs_hpc_module
(
char
*
modName
,
int
modCount
,
int
modHashNo
,
unsigned
int
modCount
,
unsigned
int
modHashNo
,
StgWord64
*
tixArr
)
{
HpcModuleInfo
*
tmpModule
,
*
lastModule
;
int
i
;
unsigned
int
i
;
int
offset
=
0
;
debugTrace
(
DEBUG_hpc
,
"hs_hpc_module(%s,%d)"
,
modName
,
modCount
);
...
...
@@ -266,7 +266,7 @@ startupHpc(void) {
static
void
writeTix
(
FILE
*
f
)
{
HpcModuleInfo
*
tmpModule
;
int
i
,
inner_comma
,
outer_comma
;
unsigned
int
i
,
inner_comma
,
outer_comma
;
outer_comma
=
0
;
...
...
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