* when declaring a generic type ensure that the newly added dummy symbol correctly resolves to potential symbols from another unit

+ added tests

compiler/pdecl.pas

@@ -853,6 +853,8 @@ implementation
                       Include(sym.symoptions,sp_generic_dummy);
                       ttypesym(sym).typedef.typesym:=sym;
                       sym.visibility:=symtablestack.top.currentvisibility;
+                      { add as dummy symbol before adding it to the symtable stack }
+                      add_generic_dummysym(sym,typename);
                       symtablestack.top.insertsym(sym);
                       ttypesym(sym).typedef.owner:=sym.owner;
                     end

tests/test/tgeneric124.pp

@@ -0,0 +1,18 @@
+{ %NORUN }
+
+program tgeneric124;
+
+{$mode delphi}
+
+uses
+  Classes;
+
+type
+  TNotifyEvent<T> = procedure(Sender: TObject; const item: T) of object;
+
+var
+  { this needs to find Classes.TNotifyEvent }
+  n: TNotifyEvent;
+begin
+
+end.

tests/test/tgeneric125.pp

@@ -0,0 +1,18 @@
+{ %NORUN }
+
+program tgeneric125;
+
+{$mode objfpc}
+
+uses
+  Classes;
+
+type
+  generic TNotifyEvent<T> = procedure(Sender: TObject; const item: T) of object;
+
+var
+  { this needs to find Classes.TNotifyEvent }
+  n: TNotifyEvent;
+begin
+
+end.