From 927928036669e8ad3b4f54ca8ac670f1938aa514 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Sun, 12 Sep 2010 15:06:11 +0200
Subject: [PATCH] libmml: Fix Free, Realloc.

---
 Projects/libmml/libmml.lpr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Projects/libmml/libmml.lpr b/Projects/libmml/libmml.lpr
index 826ccd0..1791ea5 100644
--- a/Projects/libmml/libmml.lpr
+++ b/Projects/libmml/libmml.lpr
@@ -99,7 +99,7 @@ begin
     if debug then
       writeln(last_error);
   end else
-    Free(ptr);
+    FreeMem(ptr);
 end;
 
 function alloc_mem(size, objsize: PtrUInt): Pointer;
@@ -109,7 +109,7 @@ end;
 
 function realloc_mem(ptr: Pointer; size, objsize: PtrUInt): Pointer;
 begin
-  result := ReAlloc(ptr, size*objsize);
+  result := ReAllocMem(ptr, size*objsize);
 end;
 
 { Mouse }