[Lazarus] Weird object variables access - fpc issue?

[el es]

On 23/10/17 20:00, Giuliano Colla via Lazarus wrote:
[snip]

I don't remember if I was hitting AV using Now(), likely I wasn't - 
but due to 'normal' Now() being not thread safe, I was getting inconsistent 
timing results, when I used Now() both in main thread and in the thread;

So with my application I ended up re-implementing Now() into ThreadNow :

var ThreadNowInUse :boolean = false; // unit global 'just' above the function

function TMyThread.ThreadNow: TDateTime;

var ASystemTime : TSYSTEMTIME;  // struct.inc, I'm under Windows

begin
  repeat
  until not ThreadNowInUse;  // 
  
  try
    ThreadNowInUse :=true;
    GetSystemTime(ASystemTime);
    Result := SystemTimeToDateTime(ASystemTime);
  finally
    ThreadNowInUse := false;
  end;

end;

Hope this helps

el es