* added [] crash test for array of byte

  * added TObject property test

tests/test/testaoc.pp

@@ -31,6 +31,10 @@ Program TestAOC;
        end;
 }
 
+procedure testit2 (args: array of byte);
+begin
+end;
+
 Procedure Testit (Args: Array of const);
 
 Var I : longint;
@@ -86,6 +90,7 @@ begin
   S:='Ansistring 1';
   T:='AnsiString 2';
   writeln ('Size of VarRec : ',Sizeof(TVarRec));
+  Testit ([]);
   Testit ([1,2]);
   Testit (['A','B']);
   Testit ([TRUE,FALSE,TRUE]);
@@ -96,4 +101,7 @@ begin
   Testit ([ObjA,ObjB]);
   Testit ([1.234,1.234]);
   TestIt ([AClass]);
+
+  TestIt2 ([]);
+  TestIt2 ([1,2]);
 end.

tests/test/testrtti.pp

@@ -32,6 +32,7 @@ Type
        FExtended : Extended;
        FMyEnum   : TMyEnum;
        FAnsiString   : AnsiSTring;
+       FObj      : TObject;
        FStored   : Boolean;
        Function GetBoolean : Boolean;
        Function GetByte : Byte;
@@ -83,6 +84,7 @@ Type
        Constructor Create;
        Destructor Destroy;override;
        Published
+       Property ObjField: TObject read FObj write FObj;
        Property BooleanField : Boolean Read FBoolean Write FBoolean;
        Property ByteField : Byte Read FByte Write FByte;
        Property CharField : Char Read FChar Write FChar;