+ more vararray stuff

rtl/inc/variant.inc

@@ -51,7 +51,7 @@ procedure variant_init(var v : tvardata);[Public,Alias:'FPC_VARIANT_INIT'];
 procedure variant_clear(var v : tvardata);[Public,Alias:'FPC_VARIANT_CLEAR'];
   begin
     if assigned(VarClearProc) then
-      VarClearProc(v)
+      VarClearProc(v);
   end;
 
 
@@ -594,7 +594,10 @@ procedure initvariantmanager;
 
 {
   $Log$
-  Revision 1.25  2005-02-24 22:36:36  florian
+  Revision 1.26  2005-03-25 19:02:59  florian
+    + more vararray stuff
+
+  Revision 1.25  2005/02/24 22:36:36  florian
     + some variant stuff fixed and added
 
   Revision 1.24  2005/02/14 17:13:29  peter

rtl/inc/varianth.inc

@@ -66,7 +66,7 @@ type
    end;
 
    tvararrayboundarray = array[0..0] of tvararraybound;
-   tvararraycoorarray = array[0..0] of longint;
+   tvararraycoorarray = array[0..0] of SizeInt;
 
    tvarop = (opadd,opsubtract,opmultiply,opdivide,opintdivide,opmodulus,
              opshiftleft,opshiftright,opand,opor,opxor,opcompare,opnegate,
@@ -318,7 +318,10 @@ operator <=(const op1,op2 : variant) dest : boolean;
 
 {
   $Log$
-  Revision 1.19  2005-03-25 18:03:50  florian
+  Revision 1.20  2005-03-25 19:02:59  florian
+    + more vararray stuff
+
+  Revision 1.19  2005/03/25 18:03:50  florian
     + some vararray stuff added
 
   Revision 1.18  2005/02/14 17:13:29  peter