diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-09-15 12:58:45 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-09-15 12:58:47 -0500 |
| commit | 14677cd514553f6bb661bd046f002b8cfe166edf (patch) | |
| tree | 1daaf80becf92607471e86a14c37d9225227a4ff /includes | |
| parent | f11289f65e77b9e3178b08f5ca4472762c77c42e (diff) | |
| download | haskell-14677cd514553f6bb661bd046f002b8cfe166edf.tar.gz | |
Fix freeHaskellFunPtr crash on iOS.
Authored-by: Stephen Blackheath <...@blacksapphire.com>
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/GC.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h index fb5e21e832..1a9203148c 100644 --- a/includes/rts/storage/GC.h +++ b/includes/rts/storage/GC.h @@ -161,6 +161,9 @@ typedef void* AdjustorWritable; typedef void* AdjustorExecutable; AdjustorWritable allocateExec(W_ len, AdjustorExecutable *exec_addr); +#if defined(ios_HOST_OS) +AdjustorWritable execToWritable(AdjustorExecutable exec); +#endif void freeExec (AdjustorExecutable p); // Used by GC checks in external .cmm code: |