Resolves #39643
@@ -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 }
@@ -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;
+ V.A := 1;
+ V.B := 2;
+ V.C := 3;
+ V.D := 4;
+ WriteLn('Expected=1 Actual=', AsmFunc(@V));
+end.