[fpc-devel]promised tthread patch

[Johannes Berg]

On Sat, 2003-11-15 at 04:37, Pedro Lopez-Cabanillas wrote:
> Can you include also a patch for rtl/objpas/classes/classesh.inc ?

Sorry! Here it is (inline, so short):

--- ./objpas/classes/classesh.inc       3 Nov 2003 09:42:28 -0000      
1.6
+++ ./objpas/classes/classesh.inc       16 Nov 2003 18:38:44 -0000
@@ -1123,11 +1123,22 @@
     property Terminated: Boolean read FTerminated;
   public
 {$ifdef Unix}
+{$IFDEF VER1_0} // keeping this around for ver 1 now
     { Needed for linux }
     FStackPointer : Pointer;
     FStackSize    : integer;
     FCallExitProcess : boolean;
+{$ELSE}
+private
+    // see tthread.inc, ThreadFunc and TThread.Resume
+    // these are FDs used from CreateSuspended
+    FCreateSuspDescriptorIn, FCreateSuspDescriptorOut: LongInt;
+{$IFDEF LINUX}
+    FPid: LongInt;
+{$ENDIF}
+{$ENDIF}
 {$endif}
+public
     constructor Create(CreateSuspended: Boolean);
     destructor Destroy; override;
     procedure Resume;


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/20031116/77b1c7b8/attachment.sig>