mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +02:00
+ added b.cc/b.cs support to AArch64 assembler reader (mantis #38485)
git-svn-id: trunk@48803 -
This commit is contained in:
parent
236bef961c
commit
cfa3f4fa8c
@ -556,6 +556,10 @@ Unit racpugas;
|
|||||||
|
|
||||||
|
|
||||||
function taarch64attreader.ToConditionCode(const hs: string; is_operand: boolean): tasmcond;
|
function taarch64attreader.ToConditionCode(const hs: string; is_operand: boolean): tasmcond;
|
||||||
|
{$push}{$j-}
|
||||||
|
const
|
||||||
|
extracond2str: array[C_HS..C_LO] of string[2] = ('CS','CC');
|
||||||
|
{$pop}
|
||||||
begin
|
begin
|
||||||
case actopcode of
|
case actopcode of
|
||||||
A_CSEL,A_CSINC,A_CSINV,A_CSNEG,A_CSET,A_CSETM,
|
A_CSEL,A_CSINC,A_CSINV,A_CSNEG,A_CSET,A_CSETM,
|
||||||
@ -568,11 +572,16 @@ Unit racpugas;
|
|||||||
begin
|
begin
|
||||||
{ workaround for DFA bug }
|
{ workaround for DFA bug }
|
||||||
result:=low(tasmcond);
|
result:=low(tasmcond);
|
||||||
for result:=low(tasmcond) to high(tasmcond) do
|
for result:=low(uppercond2str) to high(uppercond2str) do
|
||||||
begin
|
begin
|
||||||
if hs=uppercond2str[result] then
|
if hs=uppercond2str[result] then
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
for result:=low(extracond2str) to high(extracond2str) do
|
||||||
|
begin
|
||||||
|
if hs=extracond2str[result] then
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user