+ parsing of variant dispatching

git-svn-id: trunk@3387 -

compiler/pexpr.pas

@@ -1890,6 +1890,11 @@ implementation
                          end;
                        variantdef:
                          begin
+                           { dispatch call }
+                           if token=_ID then
+                             begin
+                               consume(_ID);
+                             end;
                          end;
                        classrefdef:
                          begin

compiler/psystem.pas

@@ -376,6 +376,7 @@ implementation
         loadtype('variant',cvarianttype);
         loadtype('olevariant',colevarianttype);
         loadtype('methodpointer',methodpointertype);
+        loadtype('HRESULT',hresulttype);
 {$ifdef cpu64bit}
         uinttype:=u64inttype;
         sinttype:=s64inttype;

compiler/symdef.pas

@@ -669,6 +669,7 @@ interface
        cfiletype,                 { get the same definition for all file }
                                   { used for stabs }
        methodpointertype,         { typecasting of methodpointers to extract self }
+       hresulttype,
        { we use only one variant def for every variant class }
        cvarianttype,
        colevarianttype,