diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-04-27 01:28:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-04-27 01:28:26 +0100 |
| commit | 31f16fab381e54a857eed30fb371014a3b5e67e7 (patch) | |
| tree | 12dfc748cdeb531f24e017dda14731786cbc283c /rts/Linker.c | |
| parent | 5a3fdc0ce364a26362f6aee5ce6075eb10e8f811 (diff) | |
| download | haskell-31f16fab381e54a857eed30fb371014a3b5e67e7.tar.gz | |
Win32 build fix
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 6085f9ce14..7a1f550a4b 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2461,8 +2461,8 @@ addSection ( ObjectCode* oc, SectionKind kind, s->next = oc->sections; oc->sections = s; - IF_DEBUG(linker, debugBelch("addSection: %p-%p (size %" FMT_Int "), kind %d\n", - start, ((char*)end)-1, (StgInt)end - (StgInt)start + 1, kind )); + IF_DEBUG(linker, debugBelch("addSection: %p-%p (size %lld), kind %d\n", + start, ((char*)end)-1, ((long long)(size_t)end) - ((long long)(size_t)start) + 1, kind )); } |