mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 13:59:34 +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_FCMP,A_FCMPE,
|
||||
A_CBZ,A_CBNZ,
|
||||
A_PRFM,A_PRFUM,
|
||||
A_RET:
|
||||
result:=operand_read;
|
||||
A_STR,A_STUR:
|
||||
@ -1026,14 +1027,6 @@ implementation
|
||||
else
|
||||
{ check for pre/post indexed in spilling_get_operation_type_ref }
|
||||
result:=operand_read;
|
||||
A_STLXP,
|
||||
A_STLXR,
|
||||
A_STXP,
|
||||
A_STXR:
|
||||
if opnr=0 then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STP:
|
||||
begin
|
||||
if opnr in [0,1] then
|
||||
@ -1102,12 +1095,21 @@ implementation
|
||||
A_FCVTZS,
|
||||
A_SDIV,
|
||||
A_SMULL,
|
||||
A_STLXP,
|
||||
A_STLXR,
|
||||
A_STXP,
|
||||
A_STXR,
|
||||
A_SUB,
|
||||
A_SXTB,
|
||||
A_SXTH,
|
||||
A_SXTW,
|
||||
A_UBFIZ,
|
||||
A_UBFX,
|
||||
A_UCVTF,
|
||||
A_UDIV,
|
||||
A_UMULL:
|
||||
A_UMULL,
|
||||
A_UXTB,
|
||||
A_UXTH:
|
||||
if opnr=0 then
|
||||
result:=operand_write
|
||||
else
|
||||
|
@ -587,6 +587,9 @@ implementation
|
||||
manipulated_a: tcgint;
|
||||
leftover_a: word;
|
||||
begin
|
||||
{$ifdef extdebug}
|
||||
list.concat(tai_comment.Create(strpnew('Generating constant ' + tostr(a))));
|
||||
{$endif extdebug}
|
||||
case a of
|
||||
{ Small positive number }
|
||||
$0..$FFFF:
|
||||
|
Loading…
Reference in New Issue
Block a user