paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 09:49:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stacksize fixes for freebsd

Browse Source 
git-svn-id: trunk@1630 -
This commit is contained in:
marco 2005-11-02 14:52:05 +00:00
parent 380d3be22c
commit 6279c187f9
1 changed files with 4 additions and 3 deletions

7
rtl/freebsd/tthread.inc
View File

@ -185,7 +185,8 @@ begin
end;
{ TThread }
constructor TThread.Create(CreateSuspended: Boolean);
constructor TThread.Create(CreateSuspended: Boolean;
const StackSize: DWord = DefaultStackSize);
begin
// lets just hope that the user doesn't create a thread
// via BeginThread and creates the first TThread Object in there!
@ -196,8 +197,8 @@ begin
FSuspendedExternal := false;
FInitialSuspended := CreateSuspended;
FFatalException := nil;
WRITE_DEBUG('creating thread, self = ',longint(self));
FHandle:= BeginThread(@ThreadFunc, Pointer(Self), FThreadID);
WRITE_DEBUG('creating thread, self = ',PtrInt(self));
FHandle:= BeginThread(@ThreadFunc, Pointer(Self), FThreadID,StackSize);
WRITE_DEBUG('TThread.Create done');
end;