[fpc-devel] strange code in TThread in classesh.inc

[Graeme Geldenhuys]

What is the point of these ifdef's, they are identical in the sense of
variable names and types...?

----------Line 1208 in classesh.inc ------------------------
<snip>
    property Terminated: Boolean read FTerminated;
{$ifdef Unix}
  private
    // see tthread.inc, ThreadFunc and TThread.Resume
    FSem: Pointer;
    FInitialSuspended: boolean;
    FSuspendedExternal: boolean;
  {$ifdef linux}
    FPid: LongInt;
  {$endif}
{$endif}
{$ifdef netwlibc}
  private
    // see tthread.inc, ThreadFunc and TThread.Resume
    FSem: Pointer;
    FInitialSuspended: boolean;
    FSuspendedExternal: boolean;
    FPid: LongInt;
{$endif}
  public
<snip>
----------------------------------

Regards,
  - Graeme -