paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 21:50:27 +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); Current := tai(Current.Next);
While Assigned(Current) And While Assigned(Current) And
((Current.typ In SkipInstr) or ((Current.typ In SkipInstr) or
{$if defined(SPARC) or defined(MIPS)} {$if defined(SPARCGEN) or defined(MIPS)}
((Current.typ=ait_instruction) and ((Current.typ=ait_instruction) and
(taicpu(Current).opcode=A_NOP) (taicpu(Current).opcode=A_NOP)
) or ) or
{$endif SPARC or MIPS} {$endif SPARCGEN or MIPS}
((Current.typ = ait_label) And ((Current.typ = ait_label) And
labelCanBeSkipped(Tai_Label(Current)))) Do labelCanBeSkipped(Tai_Label(Current)))) Do
Current := tai(Current.Next); Current := tai(Current.Next);

2
compiler/aoptobj.pas
View File

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