+ 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, 1 insertions, 2 deletions

diff --git a/closures/compiler/pmodules.pas b/closures/compiler/pmodules.pas
index d8c64a1124..d336ba4d68 100644
--- a/closures/compiler/pmodules.pas
+++ b/closures/compiler/pmodules.pas
@@ -927,8 +927,7 @@ implementation
         st.insert(ps);
         pd:=tprocdef.create(main_program_level);
         include(pd.procoptions,po_global);
-        pd.procsym:=ps;
-        ps.ProcdefList.Add(pd);
+        pd.add_to_procsym(ps);
         { set procdef options }
         pd.proctypeoption:=potype;
         pd.proccalloption:=pocall_default;