Commit 3e2cd89a authored by Simon Marlow's avatar Simon Marlow
Browse files

Change some ints to unsigned ints

Fixes some gratuitous warnings when compiling via C with -fhpc
parent 000be170
......@@ -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;
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment