On 20 Apr 2012, at 17:27, OBones wrote:

> I'm trying to compile the following code under FreePascal 2.6.0 :
> 
> function MyGetCurrentThreadId: DWORD; assembler;
> asm
>  {$IFDEF WIN32}
>  push    ecx
>  mov     ecx,fs:[dword ptr $18]

Use this instead:
 mov     ecx,dword ptr fs:[$18]

>  {$IFDEF WIN64}
>  push    rcx
>  mov     rcx,gs:[abs qword ptr $30]

And this:
 mov     rcx,qword ptr gs:[$30]


Jonas
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to