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

* fixed TAOptBase.SkipEntryExitMarker() not initialising out parameter in

Browse Source 
all cases (patch by J. Gareth Moreton, mantis #36372)

git-svn-id: trunk@43843 -
This commit is contained in:
Jonas Maebe 2020-01-02 19:14:18 +00:00
parent 37327af58b
commit ebd674d40e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aoptbase.pas
View File

@ -266,9 +266,9 @@ unit aoptbase;
class function TAOptBase.SkipEntryExitMarker(current: tai; out next: tai): boolean; class function TAOptBase.SkipEntryExitMarker(current: tai; out next: tai): boolean;
begin begin
result:=true; result:=true;
next:=current;
if current.typ<>ait_marker then if current.typ<>ait_marker then
exit; exit;
next:=current;
while GetNextInstruction(next,next) do while GetNextInstruction(next,next) do
begin begin
if (next.typ<>ait_marker) or not(tai_marker(next).Kind in [mark_Position,mark_BlockStart]) then if (next.typ<>ait_marker) or not(tai_marker(next).Kind in [mark_Position,mark_BlockStart]) then