[fpc-devel]TThread bugfix

[Johannes Berg]

Here's a bugfix -- threads that are not created suspended should also
have their flags set like that in the constructor...

--- linux/tthread.inc   19 Nov 2003 15:51:54 -0000      1.5
+++ linux/tthread.inc   21 Nov 2003 20:42:56 -0000
@@ -182,7 +184,7 @@
   InitThreads;
   inherited Create;
   FSem := SemaphoreInit;
-  FSuspended := true;
+  FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;
   FFatalException := nil;

johannes
-- 
http://www.sipsolutions.de/
GnuPG key: http://www.sipsolutions.de/keys/JohannesBerg.asc
  Key-ID: 9AB78CA5 Johannes Berg <johannes at sipsolutions.de>
  Fingerprint = AD02 0176 4E29 C137 1DF6 08D2 FC44 CF86 9AB7 8CA5
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 194 bytes
Desc: This is a digitally signed message part
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20031121/180d9a56/attachment.sig>