paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 13:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: Fixed compilation for 64bit

Browse Source 
git-svn-id: trunk@39169 -
This commit is contained in:
martin 2012-10-26 00:52:10 +00:00
parent f5a27a1725
commit b8b76ba108
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Source/x64.inc
View File

@ -14,7 +14,7 @@ procedure x64call(
_RCX, _RDX, _R8, _R9: IPointer;
var _XMM0: Double;
_XMM1, _XMM2, _XMM3: Double;
aStack: Pointer; aItems: IntPtr); assembler; {$IFDEF FPC}nostackframe;{$ENDIF}
aStack: Pointer; aItems: {$IFDEF FPC}PtrUInt{$ELSE}IntPtr{$ENDIF}); assembler; {$IFDEF FPC}nostackframe;{$ENDIF}
asm
(* Registers:
RCX: Address
@ -37,7 +37,7 @@ asm
mov rdx, aStack
jmp @compareitems
@work:
push [rdx]
push qword ptr [rdx]
dec rcx
sub rdx,8
@compareitems: