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

* don't perform call/jmp into push/jmp in case we're generating

Browse Source 
pic, as that optimization is invalid in that case

git-svn-id: trunk@10655 -
This commit is contained in:
Jonas Maebe 2008-04-13 17:03:07 +00:00
parent 97f2a80d0d
commit a3b877247c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/i386/popt386.pas
View File

@ -2046,6 +2046,7 @@ begin
case taicpu(p).opcode Of
A_CALL:
if (current_settings.optimizecputype < cpu_Pentium2) and
not(cs_create_pic in current_settings.moduleswitches) and
GetNextInstruction(p, hp1) and
(hp1.typ = ait_instruction) and
(taicpu(hp1).opcode = A_JMP) and