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

diff --git a/closures/compiler/pdecobj.pas b/closures/compiler/pdecobj.pas
index 098dcc67d1..afb037d800 100644
--- a/closures/compiler/pdecobj.pas
+++ b/closures/compiler/pdecobj.pas
@@ -65,7 +65,7 @@ implementation
         result:=nil;
         consume(_CONSTRUCTOR);
         { must be at same level as in implementation }
-        parse_proc_head(current_structdef,potype_class_constructor,pd);
+        parse_proc_head(current_structdef,potype_class_constructor,ppm_class_method,pd);
         if not assigned(pd) then
           begin
             consume(_SEMICOLON);
@@ -89,7 +89,7 @@ implementation
         result:=nil;
         consume(_CONSTRUCTOR);
         { must be at same level as in implementation }
-        parse_proc_head(current_structdef,potype_constructor,pd);
+        parse_proc_head(current_structdef,potype_constructor,ppm_normal,pd);
         if not assigned(pd) then
           begin
             consume(_SEMICOLON);
@@ -178,7 +178,7 @@ implementation
       begin
         result:=nil;
         consume(_DESTRUCTOR);
-        parse_proc_head(current_structdef,potype_class_destructor,pd);
+        parse_proc_head(current_structdef,potype_class_destructor,ppm_class_method,pd);
         if not assigned(pd) then
           begin
             consume(_SEMICOLON);
@@ -201,7 +201,7 @@ implementation
       begin
         result:=nil;
         consume(_DESTRUCTOR);
-        parse_proc_head(current_structdef,potype_destructor,pd);
+        parse_proc_head(current_structdef,potype_destructor,ppm_normal,pd);
         if not assigned(pd) then
           begin
             consume(_SEMICOLON);
@@ -893,7 +893,7 @@ implementation
 
                 oldparse_only:=parse_only;
                 parse_only:=true;
-                pd:=parse_proc_dec(is_classdef,current_structdef);
+                pd:=parse_proc_dec(current_structdef,as_procparsemode(is_classdef));
 
                 { this is for error recovery as well as forward }
                 { interface mappings, i.e. mapping to a method  }