paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed taarch64abi.pp so it doens't rely on undefined behaviour between the

Browse Source 
end of an inline assembly block and the end of a routine

git-svn-id: trunk@41651 -
This commit is contained in:
Jonas Maebe 2019-03-09 16:11:34 +00:00
parent d34e0b091b
commit cb5b407e89
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tests/test/taarch64abi.pp
View File

@ -23,34 +23,28 @@ begin
Halt(3);
end;
function RetByte: byte;
var
q: qword;
begin
q:=$1111111112345678;
asm
ldr x0,q
end;
function RetByte: byte; assembler;
asm
movz x0,#22136
movk x0,#4660,lsl #16
movk x0,#4369,lsl #32
movk x0,#4369,lsl #48
end;
function RetWord: word;
var
q: qword;
begin
q:=$1111111112345678;
asm
ldr x0,q
end;
function RetWord: word; assembler;
asm
movz x0,#22136
movk x0,#4660,lsl #16
movk x0,#4369,lsl #32
movk x0,#4369,lsl #48
end;
function RetDWord: dword;
var
q: qword;
begin
q:=$1111111112345678;
asm
ldr x0,q
end;
function RetDWord: dword; assembler;
asm
movz x0,#22136
movk x0,#4660,lsl #16
movk x0,#4369,lsl #32
movk x0,#4369,lsl #48
end;
procedure TestParams;