paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 09:07:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check if optinfo is assigned before using it, resolves #39913

Browse Source
This commit is contained in:
florian 2022-10-21 21:14:39 +02:00
parent 2c51abf40d
commit 2b48afe151
2 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optdfa.pas
View File

@ -888,7 +888,7 @@ unit optdfa;
exit;
include(node.flags,nf_processing);
if not(DFASetIn(node.optinfo^.life,nodetosearch.optinfo^.index)) then
if not(assigned(node.optinfo)) or not(DFASetIn(node.optinfo^.life,nodetosearch.optinfo^.index)) then
exit;
{ we do not need this info always, so try to safe some time here, CheckAndWarn

32
tests/webtbs/tw39913.pp Normal file
View File

@ -0,0 +1,32 @@
{ %opt=-O3 }
{$mode objfpc}{$H+}
type
TDynCardinalArray = array of Cardinal;
function Test(N: Cardinal): TDynCardinalArray;
var
L: Cardinal;
begin
SetLength(Result, 0);
if N <= 1 then
Exit
else
begin
L := 0;
if N mod 2 = 0 then
begin
Inc(L);
SetLength(Result, L);
Result[L - 1] := 2;
end;
Inc(L);
SetLength(Result, L);
Result[L - 1] := N;
end;
end;
begin
Test(2);
WriteLn('OK');
end.