paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 04:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set p to a valid instruction

Browse Source 
git-svn-id: trunk@25912 -
This commit is contained in:
florian 2013-11-01 20:09:28 +00:00
parent ce9398f8d8
commit 1843ed59b5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/popt386.pas
View File

@ -1409,6 +1409,7 @@ begin
insertllitem(asml,hp2,hp2.next,hp1);
asml.remove(p);
p.free;
p:=hp1;
end;
if GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_LEA,[S_L]) and
@ -1433,6 +1434,7 @@ begin
DebugMsg('Peephole MovLea2Add done',hp1);
asml.remove(p);
p.free;
p:=hp1;
end;
end;
end;