Procházet zdrojové kódy

* wince memory manager is fixed and enabled by default.

git-svn-id: trunk@4532 -
yury před 19 roky
rodič
revize
747bd411f3
1 změnil soubory, kde provedl 2 přidání a 6 odebrání
  1. 2 6
      rtl/wince/system.pp

+ 2 - 6
rtl/wince/system.pp

@@ -24,7 +24,7 @@ interface
 {$define WINCE_EXCEPTION_HANDLING}
 {$define DISABLE_NO_THREAD_MANAGER}
 {$define HAS_CMDLINE}
-//{$define HAS_MT_MEMORYMANAGER}  //uncomment line to switch from fpcmm to wincemm
+{$define HAS_MT_MEMORYMANAGER}  // comment this line to switch from wincemm to fpcmm
 
 { include system-independent routine headers }
 {$I systemh.inc}
@@ -1610,11 +1610,7 @@ begin
     runerror(204)
   else
     if (size > 0) and (p <> nil) then
-      begin
-        if (size <> _msize(p)) then
-          runerror(204);
-        Result:=SysFreeMem(P);
-      end;
+      Result:=SysFreeMem(P);
 end;
 
 Function SysAllocMem(Size : ptrint) : Pointer;