mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 07:09:23 +02:00
* patch by J. Gareth Moreton: aarch64 EXTDEBUG fixes and extensions, resolves #38383
git-svn-id: trunk@48337 -
This commit is contained in:
parent
1351ccb3bf
commit
2519fb1266
@ -1018,6 +1018,7 @@ implementation
|
|||||||
A_TST,
|
A_TST,
|
||||||
A_FCMP,A_FCMPE,
|
A_FCMP,A_FCMPE,
|
||||||
A_CBZ,A_CBNZ,
|
A_CBZ,A_CBNZ,
|
||||||
|
A_PRFM,A_PRFUM,
|
||||||
A_RET:
|
A_RET:
|
||||||
result:=operand_read;
|
result:=operand_read;
|
||||||
A_STR,A_STUR:
|
A_STR,A_STUR:
|
||||||
@ -1026,14 +1027,6 @@ implementation
|
|||||||
else
|
else
|
||||||
{ check for pre/post indexed in spilling_get_operation_type_ref }
|
{ check for pre/post indexed in spilling_get_operation_type_ref }
|
||||||
result:=operand_read;
|
result:=operand_read;
|
||||||
A_STLXP,
|
|
||||||
A_STLXR,
|
|
||||||
A_STXP,
|
|
||||||
A_STXR:
|
|
||||||
if opnr=0 then
|
|
||||||
result:=operand_write
|
|
||||||
else
|
|
||||||
result:=operand_read;
|
|
||||||
A_STP:
|
A_STP:
|
||||||
begin
|
begin
|
||||||
if opnr in [0,1] then
|
if opnr in [0,1] then
|
||||||
@ -1102,12 +1095,21 @@ implementation
|
|||||||
A_FCVTZS,
|
A_FCVTZS,
|
||||||
A_SDIV,
|
A_SDIV,
|
||||||
A_SMULL,
|
A_SMULL,
|
||||||
|
A_STLXP,
|
||||||
|
A_STLXR,
|
||||||
|
A_STXP,
|
||||||
|
A_STXR,
|
||||||
A_SUB,
|
A_SUB,
|
||||||
|
A_SXTB,
|
||||||
|
A_SXTH,
|
||||||
|
A_SXTW,
|
||||||
A_UBFIZ,
|
A_UBFIZ,
|
||||||
A_UBFX,
|
A_UBFX,
|
||||||
A_UCVTF,
|
A_UCVTF,
|
||||||
A_UDIV,
|
A_UDIV,
|
||||||
A_UMULL:
|
A_UMULL,
|
||||||
|
A_UXTB,
|
||||||
|
A_UXTH:
|
||||||
if opnr=0 then
|
if opnr=0 then
|
||||||
result:=operand_write
|
result:=operand_write
|
||||||
else
|
else
|
||||||
|
@ -587,6 +587,9 @@ implementation
|
|||||||
manipulated_a: tcgint;
|
manipulated_a: tcgint;
|
||||||
leftover_a: word;
|
leftover_a: word;
|
||||||
begin
|
begin
|
||||||
|
{$ifdef extdebug}
|
||||||
|
list.concat(tai_comment.Create(strpnew('Generating constant ' + tostr(a))));
|
||||||
|
{$endif extdebug}
|
||||||
case a of
|
case a of
|
||||||
{ Small positive number }
|
{ Small positive number }
|
||||||
$0..$FFFF:
|
$0..$FFFF:
|
||||||
|
Loading…
Reference in New Issue
Block a user