diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-02 19:14:18 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-02 19:14:18 +0000 |
commit | 79928296ad7249a68da90daf980176ab23ea81e5 (patch) | |
tree | f8dfd0ba9cfcdc6c4bde0437f3e4043ef06c3dbc /compiler/aoptbase.pas | |
parent | 3d5a1b9a9c887bbd40b94b17e6df03beee6e20b2 (diff) | |
download | fpc-79928296ad7249a68da90daf980176ab23ea81e5.tar.gz |
* fixed TAOptBase.SkipEntryExitMarker() not initialising out parameter in
all cases (patch by J. Gareth Moreton, mantis #36372)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43843 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/aoptbase.pas')
-rw-r--r-- | compiler/aoptbase.pas | 2 |
1 files changed, 1 insertions, 1 deletions
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 |