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

* more fixes for VASM for ARM

Browse Source 
git-svn-id: trunk@49398 -
This commit is contained in:
florian 2021-05-23 19:46:40 +00:00
parent e9b3db0d78
commit 814b68fac0
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/arm/agarmgas.pas
View File

@ -436,6 +436,16 @@ unit agarmgas;
internalerror(2003112903);
end;
end
{ syscall number for vasm does not need a # }
else if (target_asm.id=as_arm_vasm) and (i=0) and ((op=A_SWI) or (op=A_SVC)) then
begin
case taicpu(hp).oper[0]^.typ of
top_const:
s:=s+sep+tostr(taicpu(hp).oper[0]^.val);
else
internalerror(2021052301);
end;
end
else
s:=s+sep+getopstr(taicpu(hp).oper[i]^);

4
compiler/fpcdefs.inc
View File

@ -224,6 +224,10 @@
{$if defined(CPUARMHF) and not(defined(FPC_OARM)) and not(defined(FPC_ARMEL)) and not(defined(FPC_ARMEB))}
{$define FPC_ARMHF}
{$endif}
{ inherit FPC_OARM? }
{$if defined(CPUARM) and not(defined(FPC_ARMHF)) and not(defined(FPC_ARMEL)) and not(defined(FPC_ARMEB))}
{$define FPC_ARMHF}
{$endif}
{$endif arm}
{$ifdef m68k}