diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-07 13:35:27 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-07 14:22:34 +0100 |
| commit | abb875d921f3c89416e74513d41f54b5ed69d6bc (patch) | |
| tree | 636465dcc6768323c0ba31125df2fe97876c567c | |
| parent | 4d208aed2f433cd2f46a7df016bad50af2e07e40 (diff) | |
| download | haskell-abb875d921f3c89416e74513d41f54b5ed69d6bc.tar.gz | |
some nats should be lnats
| -rw-r--r-- | rts/sm/GC.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 53c35c9d7f..6098e7955c 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -1510,7 +1510,7 @@ resize_generations (void) nat g; if (major_gc && RtsFlags.GcFlags.generations > 1) { - nat live, size, min_alloc, words; + lnat live, size, min_alloc, words; const nat max = RtsFlags.GcFlags.maxHeapSize; const nat gens = RtsFlags.GcFlags.generations; |