From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 8 Jan 2009 15:53:41 +0000 (+0000)
Subject: when calling mmap() with MAP_ANON, the fd argument should be -1
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6b179b9985002f5a9515c85e841d79e0e569239f

when calling mmap() with MAP_ANON, the fd argument should be -1
might fix #2925
---

diff --git a/rts/Linker.c b/rts/Linker.c
index ef12e3e..ae1da56 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1744,7 +1744,7 @@ static int ocAllocateSymbolExtras( ObjectCode* oc, int count, int first )
     if( m > n ) // we need to allocate more pages
     {
         oc->symbol_extras = mmapForLinker(sizeof(SymbolExtra) * count, 
-                                          MAP_ANONYMOUS, 0);
+                                          MAP_ANONYMOUS, -1);
     }
     else
     {