diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-29 15:04:59 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-29 15:04:59 +0000 |
| commit | d9aa9b1a3059bd6c96f83fadec0419c22606f5f3 (patch) | |
| tree | 3f2bd218a055038bd4d8d459bc0405a785d1b43e /includes/Storage.h | |
| parent | 02620e7c705ac946db43e61988ca3781af3f2447 (diff) | |
| download | haskell-d9aa9b1a3059bd6c96f83fadec0419c22606f5f3.tar.gz | |
FIX #2332: avoid overflow on 64-bit machines in the memory allocator
Diffstat (limited to 'includes/Storage.h')
| -rw-r--r-- | includes/Storage.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/includes/Storage.h b/includes/Storage.h index 34a5411918..caa7c1d16d 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -184,10 +184,10 @@ extern void freeStorage(void); -------------------------------------------------------------------------- */ -extern StgPtr allocate ( nat n ); -extern StgPtr allocateInGen ( generation *g, nat n ); -extern StgPtr allocateLocal ( Capability *cap, nat n ); -extern StgPtr allocatePinned ( nat n ); +extern StgPtr allocate ( lnat n ); +extern StgPtr allocateInGen ( generation *g, lnat n ); +extern StgPtr allocateLocal ( Capability *cap, lnat n ); +extern StgPtr allocatePinned ( lnat n ); extern lnat allocatedBytes ( void ); extern bdescr * RTS_VAR(small_alloc_list); |