paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 16:22:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* if cs_opt_level3 is not set, limit lookahead of GetNextInstructionUsingReg to one instruction:

Browse Source 
only -O3 means do the really slow optimizations

git-svn-id: trunk@23459 -
This commit is contained in:
florian 2013-01-20 14:57:51 +00:00
parent a78af5b8fe
commit 82f3ec7922
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/aoptcpu.pas
View File

@ -73,7 +73,7 @@ Type
Implementation
uses
cutils,verbose,globals,
cutils,verbose,globtype,globals,
systems,
cpuinfo,
cgobj,cgutils,procinfo,
@ -308,7 +308,7 @@ Implementation
Next:=Current;
repeat
Result:=GetNextInstruction(Next,Next);
until not(Result) or (Next.typ<>ait_instruction) or (RegInInstruction(reg,Next)) or
until not(cs_opt_level3 in current_settings.optimizerswitches) or not(Result) or (Next.typ<>ait_instruction) or (RegInInstruction(reg,Next)) or
(is_calljmp(taicpu(Next).opcode)) or (RegInInstruction(NR_PC,Next));
end;