From 0eeb3e8d49d7110aaaeef8fdb60a02f0f8cde8e2 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 27 Oct 2013 16:47:34 +0000
Subject: [PATCH] * check if the pointer is really assigned when trying to
 remove unneeded jumps

git-svn-id: trunk@25867 -
---
 compiler/aoptobj.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index ea9eb34f0e..c0b5de665a 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -1379,7 +1379,7 @@ Unit AoptObj;
                               p:=hp2;
                               continue;
                             end
-                          else
+                          else if assigned(hp1) then
                             begin
                               if hp1.typ = ait_label then
                                 SkipLabels(hp1,hp1);