diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:53:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:53:24 +0000 |
| commit | 150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6 (patch) | |
| tree | 617f13ae77fa27d366c3fad92965583dcdf42896 /rts/RtsUtils.c | |
| parent | f2b02ce821f793bd1ccc23f2bcbef8efc82dd38e (diff) | |
| download | haskell-150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6.tar.gz | |
Fix C/Haskell type mismatches
Diffstat (limited to 'rts/RtsUtils.c')
| -rw-r--r-- | rts/RtsUtils.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index a62a459be2..7048e94cd0 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -298,14 +298,14 @@ nat stg_strlen(char *s) ToDo: put this somewhere sensible. ------------------------------------------------------------------------- */ -static I_ __GenSymCounter = 0; +static HsInt __GenSymCounter = 0; -I_ +HsInt genSymZh(void) { return(__GenSymCounter++); } -I_ +HsInt resetGenSymZh(void) /* it's your funeral */ { __GenSymCounter=0; |