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

* fixed compilation for wince.

Browse Source 
git-svn-id: trunk@7517 -
This commit is contained in:
yury 2007-05-29 17:03:03 +00:00
parent 8bcb6e689d
commit 0c6fb09094
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/thread.inc
View File

@ -24,8 +24,10 @@ Var
procedure InitThread(stklen:SizeUInt); procedure InitThread(stklen:SizeUInt);
begin begin
SysResetFPU; SysResetFPU;
{$ifndef HAS_MEMORYMANAGER}
{ initialize this thread's heap } { initialize this thread's heap }
InitHeapThread; InitHeapThread;
{$endif HAS_MEMORYMANAGER}
if MemoryManager.InitThread <> nil then if MemoryManager.InitThread <> nil then
MemoryManager.InitThread(); MemoryManager.InitThread();
{ ExceptAddrStack and ExceptObjectStack are threadvars } { ExceptAddrStack and ExceptObjectStack are threadvars }
@ -43,7 +45,9 @@ Var
procedure DoneThread; procedure DoneThread;
begin begin
{$ifndef HAS_MEMORYMANAGER}
FinalizeHeap; FinalizeHeap;
{$endif HAS_MEMORYMANAGER}
if MemoryManager.DoneThread <> nil then if MemoryManager.DoneThread <> nil then
MemoryManager.DoneThread(); MemoryManager.DoneThread();
CurrentTM.ReleaseThreadVars; CurrentTM.ReleaseThreadVars;

2
rtl/inc/threadvr.inc
View File

@ -95,7 +95,9 @@ begin
{ install threadvar handler } { install threadvar handler }
fpc_threadvar_relocate_proc:=RelocProc; fpc_threadvar_relocate_proc:=RelocProc;
{$ifdef FPC_HAS_FEATURE_HEAP} {$ifdef FPC_HAS_FEATURE_HEAP}
{$ifndef HAS_MEMORYMANAGER}
RelocateHeap; RelocateHeap;
{$endif HAS_MEMORYMANAGER}
{$endif} {$endif}
end; end;