···

       
28
       
28
       
 
       
    # Fix https://ghc.haskell.org/trac/ghc/ticket/12130

     

       
29
       
29
       
 
       
    (fetchFilteredPatch { url = https://git.haskell.org/ghc.git/patch/4d71cc89b4e9648f3fbb29c8fcd25d725616e265; sha256 = "0syaxb4y4s2dc440qmrggb4vagvqqhb55m6mx12rip4i9qhxl8k0"; })

     

       
30
       
30
       
 
       
    (fetchFilteredPatch { url = https://git.haskell.org/ghc.git/patch/2f8cd14fe909a377b3e084a4f2ded83a0e6d44dd; sha256 = "06zvlgcf50ab58bw6yw3krn45dsmhg4cmlz4nqff8k4z1f1bj01v"; })

     

       
31
       
31
       
-
       
  ];

     

       
31
       
31
       
+
       
  ] ++ stdenv.lib.optional stdenv.isLinux ./ghc-no-madv-free.patch;

     

       
32
       
32
       
 
       


     

       
33
       
33
       
 
       
  buildInputs = [ ghc perl hscolour ];

     

       
34
       
34
       
 
       


     

···

       
1
       
1
       
+
       
diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c

     

       
2
       
2
       
+
       
index 99620ee..e052a84 100644

     

       
3
       
3
       
+
       
--- a/rts/posix/OSMem.c

     

       
4
       
4
       
+
       
+++ b/rts/posix/OSMem.c

     

       
5
       
5
       
+
       
@@ -523,13 +523,7 @@ void osDecommitMemory(void *at, W_ size)

     

       
6
       
6
       
+
       
         sysErrorBelch("unable to make released memory unaccessible");

     

       
7
       
7
       
+
       
 #endif

     

       
8
       
8
       
+
       
 

     

       
9
       
9
       
+
       
-#ifdef MADV_FREE

     

       
10
       
10
       
+
       
-    // Try MADV_FREE first, FreeBSD has both and MADV_DONTNEED

     

       
11
       
11
       
+
       
-    // just swaps memory out

     

       
12
       
12
       
+
       
-    r = madvise(at, size, MADV_FREE);

     

       
13
       
13
       
+
       
-#else

     

       
14
       
14
       
+
       
     r = madvise(at, size, MADV_DONTNEED);

     

       
15
       
15
       
+
       
-#endif

     

       
16
       
16
       
+
       
     if(r < 0)

     

       
17
       
17
       
+
       
         sysErrorBelch("unable to decommit memory");

     

       
18
       
18
       
+
       
 }