thread_id is of type TThreadID in FPC/Lazarus

[neurolabusc]

With FPC the function GetCurrentThreadId() returns type TThreadID, but the current code expects NativeInt.Can you type cast this, or is that not what is intended:

  function  TPythonInputOutput.GetCurrentThreadSlotIdx : Integer;
  var
  {$IFDEF FPC}
  thread_id : TThreadID;
  {$ELSE}
    thread_id : NativeInt;
  {$ENDIF}
    i : Integer;
  begin
    thread_id := GetCurrentThreadId;
    for i := 0 to FLinesPerThread.Count-1 do
      if NativeInt(FLinesPerThread.Objects[i]) = NativeInt(thread_id) then
        begin
          Result := i;
          Exit;
        end;
    Result := FLinesPerThread.AddObject( '', TObject(thread_id) );
  end;

[pyscripter]

The code is reported to compile with fpc. Why do you want to introduce this change?

type TThreadID = PtrUInt;
and
PtrUInt = NativeUInt, which can be safely typecast to NativeInt.

[neurolabusc]

Which version of FPC are you using, and is this on Windows or Unix? The current code does not compile using FPC 3.3.1 (trunk) on MacOS (Unix).

[pyscripter]

Does this work? (from https://github.com/Alexey-T/Python-for-Lazarus/)

function  TPythonInputOutput.GetCurrentThreadSlotIdx : Integer;
var
  thread_id : TObject;
  i : Integer;
begin
  thread_id := TObject(GetCurrentThreadId);
  for i := 0 to FLinesPerThread.Count-1 do
    if FLinesPerThread.Objects[i] = thread_id then
      begin
        Result := i;
        Exit;
      end;
  Result := FLinesPerThread.AddObject( '', thread_id );
end;

[pyscripter]

I have committed the above change which should not work with all versions.