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

AArch64 asm reader: add support for fpcmp(e) conditions

Browse Source 
Resolves #39643
This commit is contained in:
Jonas Maebe 2022-04-03 13:20:23 +02:00
parent b1f85792d7
commit 9813eb9048
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/aarch64/racpugas.pas
View File

@ -564,6 +564,7 @@ Unit racpugas;
case actopcode of
A_CSEL,A_CSINC,A_CSINV,A_CSNEG,A_CSET,A_CSETM,
A_CINC,A_CINV,A_CNEG,A_CCMN,A_CCMP,
A_FCCMP,A_FCCMPE,
A_B:
begin
{ search for condition, conditions are always 2 chars }

32
tests/webtbs/tw39643.pp Normal file
View File

@ -0,0 +1,32 @@
{ %cpu=aarch64 }
{ %norun }
{$mode delphi}
program AsmQBug;
type
PVector = ^TVector;
TVector = record
A, B, C, D: Single;
end;
function AsmFunc(V: PVector): Single;
{ Delphi code:
begin
Result := V.A;
end; }
asm
// This gives error "unknown identifier: NE"
fccmp d0, d0, #0x0, ne
fccmpe d0, d0, #0x0, ne
end;
var
V: TVector;
begin
V.A := 1;
V.B := 2;
V.C := 3;
V.D := 4;
WriteLn('Expected=1 Actual=', AsmFunc(@V));
end.