Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2003-11

TThread bugfix

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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 Fingerprint = AD02 0176 4E29 C137 1DF6 08D2 FC44 CF86 9AB7 8CA5

Reply by email