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

* extend procvar_dec so that procvars don't have to be registered

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

8
compiler/ptype.pas
View File

@ -1562,7 +1562,7 @@ implementation
end;
function procvar_dec(genericdef:tstoreddef;genericlist:tfphashobjectlist):tdef;
function procvar_dec(genericdef:tstoreddef;genericlist:tfphashobjectlist;doregister:boolean):tdef;
var
is_func:boolean;
pd:tabstractprocdef;
@ -1580,7 +1580,7 @@ implementation
is_func:=(token=_FUNCTION);
consume(token);
pd:=cprocvardef.create(normal_function_level,true);
pd:=cprocvardef.create(normal_function_level,doregister);
{ usage of specialized type inside its generic template }
if assigned(genericdef) then
@ -1955,7 +1955,7 @@ implementation
_PROCEDURE,
_FUNCTION:
begin
def:=procvar_dec(genericdef,genericlist);
def:=procvar_dec(genericdef,genericlist,true);
{$ifdef jvm}
jvm_create_procvar_class(name,def);
{$endif}
@ -1983,7 +1983,7 @@ implementation
begin
consume(_REFERENCE);
consume(_TO);
def:=procvar_dec(genericdef,genericlist);
def:=procvar_dec(genericdef,genericlist,true);
{ could be errordef in case of a syntax error }
if assigned(def) and
(def.typ=procvardef) then