From 4bc957a1aa3bc241350f8ee2f917dfd0cf80f8f2 Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Wed, 7 Apr 2021 21:32:29 +0200
Subject: [PATCH] * extend procvar_dec so that procvars don't have to be
 registered

---
 compiler/ptype.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/ptype.pas b/compiler/ptype.pas
index ae65cefa94..c3cd026c38 100644
--- a/compiler/ptype.pas
+++ b/compiler/ptype.pas
@@ -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