Browse Source

+ parsing of variant dispatching

git-svn-id: trunk@3387 -
florian 19 years ago
parent
commit
f7817b5669
3 changed files with 7 additions and 0 deletions
  1. 5 0
      compiler/pexpr.pas
  2. 1 0
      compiler/psystem.pas
  3. 1 0
      compiler/symdef.pas

+ 5 - 0
compiler/pexpr.pas

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

+ 1 - 0
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;

+ 1 - 0
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,