paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix NtpGetHeapProcess for Win64 system

Browse Source 
git-svn-id: trunk@33013 -
This commit is contained in:
pierre 2016-01-28 15:06:39 +00:00
parent 1e5883b6d1
commit 9881125ba1
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/winunits-jedi/src/jwanative.pas
View File

@ -8310,9 +8310,9 @@ asm
mov EAX, DWORD PTR [EAX+018h] // PEB+$30 holds the ProcessHeap's handle
{$endif}
{$ifdef cpux86_64}
mov RAX, GS:[48] // EAX now holds the TEB address
mov RAX, [RAX+060h] // TEB+$30 holds the PEB address
mov RAX, DWORD PTR [RAX+48] // PEB+$30 holds the ProcessHeap's handle
mov RAX, GS:[030h] // EAX now holds the TEB address
mov RAX, [RAX+060h] // TEB+$60 holds the PEB address
mov RAX, QWORD PTR [RAX+030h] // PEB+$30 holds the ProcessHeap's handle
{$endif cpux86_64}
end;