From 1843ed59b593910c4f9967a40815be94ba0b343b Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 1 Nov 2013 20:09:28 +0000
Subject: [PATCH] * set p to a valid instruction

git-svn-id: trunk@25912 -
---
 compiler/i386/popt386.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/i386/popt386.pas b/compiler/i386/popt386.pas
index 952067b6e4..bb704ae2f1 100644
--- a/compiler/i386/popt386.pas
+++ b/compiler/i386/popt386.pas
@@ -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;