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

Use value $00000F00 instead of $F0000000 for IF_FPMASK, and adapt all floating point constants, to avoid IF_VFPv4 having the same value as IF_PASS2

Browse Source 
git-svn-id: trunk@49096 -
This commit is contained in:
pierre 2021-03-31 21:03:50 +00:00
parent cc64d9eb4e
commit 8ea95e9b95
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/arm/aasmcpu.pas
View File

@ -166,14 +166,14 @@ uses
IF_ARMv7M = $00F00000; IF_ARMv7M = $00F00000;
IF_ARMv7EM = $01000000; IF_ARMv7EM = $01000000;
IF_FPMASK = $F0000000; IF_FPMASK = $00000F00;
IF_FPA = $10000000; IF_FPA = $00000100;
IF_VFPv2 = $20000000; IF_VFPv2 = $00000200;
IF_VFPv3 = $40000000; IF_VFPv3 = $00000400;
IF_VFPv4 = $80000000; IF_VFPv4 = $00000800;
{ if the instruction can change in a second pass } { if the instruction can change in a second pass }
IF_PASS2 = longint($80000000); IF_PASS2 = $80000000;
type type
TInsTabCache=array[TasmOp] of longint; TInsTabCache=array[TasmOp] of longint;
@ -278,7 +278,7 @@ uses
private private
{ arm version info } { arm version info }
fArmVMask, fArmVMask,
fArmMask : longint; fArmMask : longword;
{ next fields are filled in pass1, so pass2 is faster } { next fields are filled in pass1, so pass2 is faster }
inssize : shortint; inssize : shortint;
insoffset : longint; insoffset : longint;