paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 18:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made nop handling generic for sparc, so it is used by sparc64 as well

Browse Source 
git-svn-id: trunk@36814 -
This commit is contained in:
florian 2017-07-29 20:06:14 +00:00
parent ba7586a5c8
commit f4718c0969
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptbase.pas
View File

@ -188,11 +188,11 @@ unit aoptbase;
Current := tai(Current.Next);
While Assigned(Current) And
((Current.typ In SkipInstr) or
{$if defined(SPARC) or defined(MIPS)}
{$if defined(SPARCGEN) or defined(MIPS)}
((Current.typ=ait_instruction) and
(taicpu(Current).opcode=A_NOP)
) or
{$endif SPARC or MIPS}
{$endif SPARCGEN or MIPS}
((Current.typ = ait_label) And
labelCanBeSkipped(Tai_Label(Current)))) Do
Current := tai(Current.Next);

2
compiler/aoptobj.pas
View File

@ -1049,7 +1049,7 @@ Unit AoptObj;
Repeat
While Assigned(StartPai) And
((StartPai.typ in (SkipInstr - [ait_regAlloc])) Or
{$if defined(MIPS) or defined(SPARC)}
{$if defined(MIPS) or defined(SPARCGEN)}
((startpai.typ=ait_instruction) and (taicpu(startpai).opcode=A_NOP)) or
{$endif MIPS or SPARC}
((StartPai.typ = ait_label) and