mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:49:27 +02:00
c9c1c1686c
U rtl/aarch64/mathu.inc --- Recording mergeinfo for merge of r46880 into '.': U . --- Merging r40512 into '.': A tests/webtbs/tw33607.pp --- Recording mergeinfo for merge of r40512 into '.': G . --- Merging r42961 into '.': U compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r42961 into '.': G . --- Merging r44932 into '.': G compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r44932 into '.': G . --- Merging r44933 into '.': U compiler/aarch64/racpugas.pas --- Recording mergeinfo for merge of r44933 into '.': G . --- Merging r44998 into '.': U compiler/aarch64/racpu.pas --- Recording mergeinfo for merge of r44998 into '.': G . --- Merging r45667 into '.': G compiler/aarch64/racpugas.pas U compiler/rautils.pas A tests/webtbs/tw37218.pp --- Recording mergeinfo for merge of r45667 into '.': G . --- Merging r45814 into '.': U compiler/aarch64/rgcpu.pas A tests/webtbs/tw37393.pp --- Recording mergeinfo for merge of r45814 into '.': G . --- Merging r46690 into '.': G compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r46690 into '.': G . --- Merging r46871 into '.': U compiler/aarch64/cgcpu.pas --- Recording mergeinfo for merge of r46871 into '.': G . git-svn-id: branches/fixes_3_2@47756 -
23 lines
242 B
ObjectPascal
23 lines
242 B
ObjectPascal
{ %CPU=aarch64 }
|
|
program project1;
|
|
uses crt;
|
|
procedure test;
|
|
var a:uint64;
|
|
begin
|
|
a:=1;
|
|
asm
|
|
mov x4,# 0
|
|
mov x12,# 1
|
|
add x4,x4,x12,lsl # 2
|
|
str x4, a
|
|
end;
|
|
|
|
writeln(a);
|
|
if a<>4 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|