From 9993f7ecb45c45fad5fb33d92db5a26eede1a3f1 Mon Sep 17 00:00:00 2001 From: blaise Date: Wed, 1 Feb 2012 19:21:23 +0000 Subject: + defcmp: structural equivalence for COM interfaces ~ 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 --- closures/compiler/pmodules.pas | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'closures/compiler/pmodules.pas') 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; -- cgit v1.2.1