+ defcmp: structural equivalence for COM interfacesblaise

~ pdecobj, pdecsub: parsing mode for routines: normal, class method, nameless routine, method reference
= pdecsub: factored out parse_proc_parameter_dec(); code simplifications
+ symdef: tprocdef.add_to_procsym()
+ ptype, tokens: new UDT -- method reference

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/blaise@20212 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 15 insertions, 0 deletions

diff --git a/closures/compiler/symdef.pas b/closures/compiler/symdef.pas
index 4dea14eb01..3e80f620f4 100644
--- a/closures/compiler/symdef.pas
+++ b/closures/compiler/symdef.pas
@@ -580,6 +580,8 @@ interface
           function  is_methodpointer:boolean;override;
           function  is_addressonly:boolean;override;
           procedure make_external;
+          procedure add_to_procsym; overload; inline;
+          procedure add_to_procsym(sym: {tprocsym}tsym); overload; inline;
        end;
 
        { single linked list of overloaded procs }
@@ -3934,6 +3936,19 @@ implementation
       end;
 
 
+    procedure tprocdef.add_to_procsym; inline;
+      begin
+        tprocsym(procsym).ProcdefList.Add(self);
+      end;
+
+
+    procedure tprocdef.add_to_procsym(sym: {tprocsym}tsym); inline;
+      begin
+        procsym:=sym;
+        add_to_procsym;
+      end;
+
+
     procedure tprocdef.buildderef;
       begin
          inherited buildderef;