paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:46:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wince memory manager is fixed and enabled by default.

Browse Source 
git-svn-id: trunk@4532 -
This commit is contained in:
yury 2006-09-02 08:15:12 +00:00
parent b708277232
commit 747bd411f3
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wince/system.pp
View File

@ -24,7 +24,7 @@ interface
{$define WINCE_EXCEPTION_HANDLING} {$define WINCE_EXCEPTION_HANDLING}
{$define DISABLE_NO_THREAD_MANAGER} {$define DISABLE_NO_THREAD_MANAGER}
{$define HAS_CMDLINE} {$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 } { include system-independent routine headers }
{$I systemh.inc} {$I systemh.inc}
@ -1610,11 +1610,7 @@ begin
runerror(204) runerror(204)
else else
if (size > 0) and (p <> nil) then if (size > 0) and (p <> nil) then
begin Result:=SysFreeMem(P);
if (size <> _msize(p)) then
runerror(204);
Result:=SysFreeMem(P);
end;
end; end;
Function SysAllocMem(Size : ptrint) : Pointer; Function SysAllocMem(Size : ptrint) : Pointer;