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

*wince : fpcmm, wincemm switchables, default fpcmm

Browse Source 
git-svn-id: trunk@4531 -
This commit is contained in:
oro06 2006-09-02 07:21:33 +00:00
parent e7fc75258b
commit b708277232
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
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} //{$define HAS_MT_MEMORYMANAGER} //uncomment line to switch from fpcmm to wincemm
{ include system-independent routine headers } { include system-independent routine headers }
{$I systemh.inc} {$I systemh.inc}
@ -1580,7 +1580,9 @@ procedure InitWinCEWidestrings;
widestringmanager.LowerWideStringProc:=@WinCEWideLower; widestringmanager.LowerWideStringProc:=@WinCEWideLower;
end; end;
(*
{$IFDEF HAS_MT_MEMORYMANAGER}
{**************************************************************************** {****************************************************************************
Memory manager Memory manager
****************************************************************************} ****************************************************************************}
@ -1652,7 +1654,9 @@ function SysGetFPCHeapStatus:TFPCHeapStatus;
begin begin
fillchar(Result,sizeof(Result),0); fillchar(Result,sizeof(Result),0);
end; end;
*)
{$ENDIF HAS_MT_MEMORYMANAGER}
{**************************************************************************** {****************************************************************************
Error Message writing using messageboxes Error Message writing using messageboxes
****************************************************************************} ****************************************************************************}
@ -1787,8 +1791,10 @@ begin
if not IsLibrary then if not IsLibrary then
SysInstance:=GetModuleHandle(nil); SysInstance:=GetModuleHandle(nil);
MainInstance:=SysInstance; MainInstance:=SysInstance;
{$IFNDEF HAS_MT_MEMORYMANAGER}
{ Setup Heap } { Setup Heap }
InitHeap; InitHeap;
{$ENDIF HAS_MT_MEMORYMANAGER}
SysInitExceptions; SysInitExceptions;
if not IsLibrary then if not IsLibrary then
begin begin