From ebd674d40e107e4e8f093b4e28e067beea068312 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 2 Jan 2020 19:14:18 +0000
Subject: [PATCH]   * fixed TAOptBase.SkipEntryExitMarker() not initialising
 out parameter in     all cases (patch by J. Gareth Moreton, mantis #36372)

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

diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas
index 64fb5c3e0c..7266992943 100644
--- a/compiler/aoptbase.pas
+++ b/compiler/aoptbase.pas
@@ -266,9 +266,9 @@ unit aoptbase;
   class function TAOptBase.SkipEntryExitMarker(current: tai; out next: tai): boolean;
     begin
       result:=true;
+      next:=current;
       if current.typ<>ait_marker then
         exit;
-      next:=current;
       while GetNextInstruction(next,next) do
         begin
           if (next.typ<>ait_marker) or not(tai_marker(next).Kind in [mark_Position,mark_BlockStart]) then