diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-19 10:09:04 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-19 10:09:04 +0000 |
| commit | a57e55b095c48d8ca27b2ec13f4d138655618577 (patch) | |
| tree | 7c1ae79eed0ec62f3a5fb6c436cf3d036bdc003c /rts/sm/BlockAlloc.c | |
| parent | 24ad9cf0325bb5fedc9f0ca8bd70f78096d8d326 (diff) | |
| download | haskell-a57e55b095c48d8ca27b2ec13f4d138655618577.tar.gz | |
fix a tiny bug spotted by gcc 4.3
Diffstat (limited to 'rts/sm/BlockAlloc.c')
| -rw-r--r-- | rts/sm/BlockAlloc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c index 0bffa82993..81baf6c196 100644 --- a/rts/sm/BlockAlloc.c +++ b/rts/sm/BlockAlloc.c @@ -332,7 +332,7 @@ allocGroup (nat n) ln = log_2_ceil(n); - while (free_list[ln] == NULL && ln < MAX_FREE_LIST) { + while (ln < MAX_FREE_LIST && free_list[ln] == NULL) { ln++; } |