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

* set proctypeoption for procvars

Browse Source
This commit is contained in:
Sven/Sarah Barth 2021-04-07 21:25:53 +02:00
parent 4bc957a1aa
commit 934e3bba63
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ptype.pas
View File

@ -1609,8 +1609,11 @@ implementation
if is_func then
begin
consume(_COLON);
pd.proctypeoption:=potype_function;
pd.returndef:=result_type([stoAllowSpecialization]);
end;
end
else
pd.proctypeoption:=potype_procedure;
if try_to_consume(_OF) then
begin
consume(_OBJECT);