* return proper var* value for variants in tvariantdef.getvardef

git-svn-id: trunk@7106 -

compiler/symdef.pas

@@ -112,6 +112,7 @@ interface
           function getcopy : tstoreddef;override;
           function GetTypeName:string;override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
+          function  getvardef:longint;override;
           procedure setsize;
           function is_publishable : boolean;override;
           function needs_inittable : boolean;override;
@@ -1846,6 +1847,12 @@ implementation
       end;
 
 
+    function tvariantdef.getvardef : longint;
+      begin
+        Result:=varVariant;
+      end;
+
+
     procedure tvariantdef.setsize;
       begin
 {$ifdef cpu64bit}