paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 11:29:22 +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); Halt(3);
end; end;
function RetByte: byte; function RetByte: byte; assembler;
var asm
q: qword; movz x0,#22136
begin movk x0,#4660,lsl #16
q:=$1111111112345678; movk x0,#4369,lsl #32
asm movk x0,#4369,lsl #48
ldr x0,q
end;
end; end;
function RetWord: word; function RetWord: word; assembler;
var asm
q: qword; movz x0,#22136
begin movk x0,#4660,lsl #16
q:=$1111111112345678; movk x0,#4369,lsl #32
asm movk x0,#4369,lsl #48
ldr x0,q
end;
end; end;
function RetDWord: dword; function RetDWord: dword; assembler;
var asm
q: qword; movz x0,#22136
begin movk x0,#4660,lsl #16
q:=$1111111112345678; movk x0,#4369,lsl #32
asm movk x0,#4369,lsl #48
ldr x0,q
end;
end; end;
procedure TestParams; procedure TestParams;