paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/freebsd/tthread.inc
View File

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