[MLton-commit] r4861

[Vesa K. <ve...@ml...>]

Changed to import malloc and free statically rather than dynamically
(through dl* functions).  The reason for this change is that dynamic
import of malloc and free is problematic on at least the MinGW platform
and there seems to be no reason to prefer dynamic import.

----------------------------------------------------------------------

U   mlton/trunk/lib/mlnlffi/memory/memalloc-a4-unix.sml

----------------------------------------------------------------------

Modified: mlton/trunk/lib/mlnlffi/memory/memalloc-a4-unix.sml
===================================================================
--- mlton/trunk/lib/mlnlffi/memory/memalloc-a4-unix.sml	2006-11-22 16:50:00 UTC (rev 4860)
+++ mlton/trunk/lib/mlnlffi/memory/memalloc-a4-unix.sml	2006-11-27 09:36:16 UTC (rev 4861)
@@ -21,6 +21,7 @@
     type addr = Ptr.t
     type addr' = addr
 
+(*
     structure DL = DynLinkage
 
     fun main's s = DL.lib_symbol (DL.main_lib, s)
@@ -37,8 +38,8 @@
         let val p_u = _import * : MLton.Pointer.t -> addr -> unit;
         in p_u (DL.addr free_h) a
         end
+*)
 
-(*
     fun sys_malloc (n : Word32.word) = 
         let val w_p = _import "malloc" : Word32.word -> addr;
             val a = w_p n
@@ -49,7 +50,6 @@
         let val p_u = _import "free" : addr -> unit;
         in p_u a
         end
-*)
 
     fun alloc bytes = sys_malloc bytes
     fun free a = sys_free a