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

* fix for bug #16884 for OS/2

Browse Source 
git-svn-id: trunk@29712 -
This commit is contained in:
Tomas Hajny 2015-02-15 19:39:53 +00:00
parent 42cc1d504f
commit 590e2f7977
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classes.inc
View File

@ -236,7 +236,7 @@ begin
// enable for all platforms once http://bugs.freepascal.org/view.php?id=16884
// is fixed for all platforms (in case the fix for non-unix platforms also
// requires this field at least)
{$if defined(unix) or defined(windows)}
{$if defined(unix) or defined(windows) or defined(os2)}
if not FExternalThread and not FInitialSuspended then
Resume;
{$endif}

2
rtl/objpas/classes/classesh.inc
View File

@ -1602,7 +1602,7 @@ type
procedure Queue(aMethod: TThreadMethod);
property ReturnValue: Integer read FReturnValue write FReturnValue;
property Terminated: Boolean read FTerminated;
{$ifdef windows}
{$if defined(windows) or defined(OS2)}
private
FInitialSuspended: boolean;
{$endif}

5
rtl/os2/tthread.inc
View File

@ -107,8 +107,11 @@ var
Flags: cardinal;
begin
AddThread;
Flags := dtStack_Commited;
{ Always start in suspended state, will be resumed in AfterConstruction if necessary
See Mantis #16884 }
Flags := dtStack_Commited or dtSuspended;
FSuspended := CreateSuspended;
FInitialSuspended := CreateSuspended;
if FSuspended then Flags := Flags or dtSuspended;
FHandle := BeginThread (nil, StackSize, @ThreadProc, pointer (Self),
Flags, FThreadID);