[fpc-pascal] GetCurrentThreadID under FreeBSD vs Linux

[Graeme Geldenhuys]

On 2013-02-08 17:08, Ewald wrote:
>     {$macro on}
>     {$define Debug_ThreadSelf:= ptruint(GetCurrentThreadID)}

I must confess I haven't used macros in FPC. Also the code I'm working
with is cross platform and cross compiler. I don't know if Delphi
supports such macros. Quick search in Delphi 7 help (lowest Delphi we
support) doesn't list $macro anywhere.


>     FmtStr(LThreadID, '%.4d', [ptruint(GetCurrentThreadID)]);
> 
> It can be that `ptruint` is defined in `unixtype`, but I don't know for
> sure.

OK, then what I did would suffice for now. Thanks for the feedback.


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/