From 399d82e1da8ddef74297867282862598aa96fd97 Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Fri, 21 Oct 2022 17:09:55 +0200
Subject: [PATCH] - remove unused consume_generic_interface; it has been
 superseded by handle_generic_interface in 17a0ac7fc03

---
 compiler/pdecsub.pas | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 1884f01d09..bc99de3713 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -701,42 +701,6 @@ implementation
             current_tokenpos:=storepos;
           end;
 
-        procedure consume_generic_interface;
-          var
-            genparalist : tfpobjectlist;
-            prettyname,
-            specializename : ansistring;
-            genname,
-            ugenname : tidstring;
-            gencount : string;
-          begin
-            consume(_LSHARPBRACKET);
-            genparalist:=tfpobjectlist.create(false);
-
-            if not parse_generic_specialization_types(genparalist,nil,prettyname,specializename) then
-              srsym:=generrorsym
-            else
-              begin
-                str(genparalist.count,gencount);
-                genname:=sp+'$'+gencount;
-                { ToDo: handle nested interfaces }
-                genname:=generate_generic_name(genname,specializename,'');
-                ugenname:=upper(genname);
-
-                srsym:=search_object_name(ugenname,false);
-
-                if not assigned(srsym) then
-                  begin
-                    Message1(type_e_generic_declaration_does_not_match,sp+'<'+prettyname+'>');
-                    srsym:=nil;
-                    exit;
-                  end;
-              end;
-
-            genparalist.free;
-            consume(_RSHARPBRACKET);
-          end;
-
         function handle_generic_interface:boolean;
           var
             i : longint;