paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added b.cc/b.cs support to AArch64 assembler reader (mantis #38485)

Browse Source 
git-svn-id: trunk@48803 -
This commit is contained in:
Jonas Maebe 2021-02-24 15:40:22 +00:00
parent 236bef961c
commit cfa3f4fa8c
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aarch64/racpugas.pas
View File

@ -556,6 +556,10 @@ Unit racpugas;
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
case actopcode of
A_CSEL,A_CSINC,A_CSINV,A_CSNEG,A_CSET,A_CSETM,
@ -568,11 +572,16 @@ Unit racpugas;
begin
{ workaround for DFA bug }
result:=low(tasmcond);
for result:=low(tasmcond) to high(tasmcond) do
for result:=low(uppercond2str) to high(uppercond2str) do
begin
if hs=uppercond2str[result] then
exit;
end;
for result:=low(extracond2str) to high(extracond2str) do
begin
if hs=extracond2str[result] then
exit;
end;
end;
end;
else