diff options
| author | Gabor Greif <ggreif@gmail.com> | 2012-12-14 10:23:26 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2012-12-14 10:23:26 +0100 |
| commit | d369ae5d66bb4d3125ba95db830b278e4e253b08 (patch) | |
| tree | f6f9ea70625367c84aa9a59870f9747e2c11e16d /libraries/integer-gmp/cbits | |
| parent | b14ec9cb2dbee06446b9a994cef64f1c66238aa1 (diff) | |
| download | haskell-d369ae5d66bb4d3125ba95db830b278e4e253b08.tar.gz | |
zap obsolete FIXME, fix typos
Diffstat (limited to 'libraries/integer-gmp/cbits')
| -rw-r--r-- | libraries/integer-gmp/cbits/alloc.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/libraries/integer-gmp/cbits/alloc.c b/libraries/integer-gmp/cbits/alloc.c index 0d56c25a52..1e2d56b19b 100644 --- a/libraries/integer-gmp/cbits/alloc.c +++ b/libraries/integer-gmp/cbits/alloc.c @@ -1,11 +1,9 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team, 1998-2008 + * (c) The GHC Team, 1998-2012 * * ---------------------------------------------------------------------------*/ -/* TODO: do we need PosixSource.h ? it lives in rts/ not public includes/ */ -/* #include "PosixSource.h" */ #include "Rts.h" #include "gmp.h" @@ -23,8 +21,8 @@ static void initAllocForGMP( void ) __attribute__((constructor)); and co. The heap objects we use are ByteArray#s which of course have their usual header word or two. But gmp doesn't know about ghc heap objects and header words. So our allocator has to make a ByteArray# and return a pointer - to its interior! When the gmp function returns we recieve that interior - pointer. Then we look back a couple words to get the propper ByteArray# + to its interior! When the gmp function returns we receive that interior + pointer. Then we look back a couple words to get the proper ByteArray# pointer (which then gets returned as a ByteArray# and thus get tracked properly by the GC). |