* check if the pointer is really assigned when trying to remove unneeded jumps

git-svn-id: trunk@25867 -
2025-06-01 16:44:55 +02:00 · 2013-10-27 16:47:34 +00:00 · 2013-10-27 16:47:34 +00:00 · 0eeb3e8d49
commit 0eeb3e8d49
parent e6a4435330
1 changed files with 1 additions and 1 deletions
--- 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);