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

* Avoid AV

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-12 19:40:57 +01:00
parent ecef61e9c5
commit 51ce1e883f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-passrc/src/pastree.pp
View File

@ -5301,6 +5301,7 @@ begin
S.Add(GetOperatorDeclaration(Full));
ProcType.GetArguments(S);
If Assigned((Proctype as TPasFunctionType).ResultEl) then
if Assigned(TPasFunctionType(ProcType).ResultEl.ResultType) then
With TPasFunctionType(ProcType).ResultEl.ResultType do
begin
T:=' : ';