paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +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 DISABLE_NO_THREAD_MANAGER}
{$define HAS_CMDLINE}
//{$define HAS_MT_MEMORYMANAGER}
//{$define HAS_MT_MEMORYMANAGER} //uncomment line to switch from fpcmm to wincemm
{ include system-independent routine headers }
{$I systemh.inc}
@ -1580,7 +1580,9 @@ procedure InitWinCEWidestrings;
widestringmanager.LowerWideStringProc:=@WinCEWideLower;
end;
(*
{$IFDEF HAS_MT_MEMORYMANAGER}
{****************************************************************************
Memory manager
****************************************************************************}
@ -1652,7 +1654,9 @@ function SysGetFPCHeapStatus:TFPCHeapStatus;
begin
fillchar(Result,sizeof(Result),0);
end;
*)
{$ENDIF HAS_MT_MEMORYMANAGER}
{****************************************************************************
Error Message writing using messageboxes
****************************************************************************}
@ -1787,8 +1791,10 @@ begin
if not IsLibrary then
SysInstance:=GetModuleHandle(nil);
MainInstance:=SysInstance;
{$IFNDEF HAS_MT_MEMORYMANAGER}
{ Setup Heap }
InitHeap;
{$ENDIF HAS_MT_MEMORYMANAGER}
SysInitExceptions;
if not IsLibrary then
begin