+ Variant type conversion rules

rtl/inc/astrings.inc

@@ -407,6 +407,7 @@ end;
 
 Procedure fpc_AnsiStr_CheckRange(len,index : SizeInt);[Public,Alias : 'FPC_ANSISTR_RANGECHECK'];  {$ifdef hascompilerproc} compilerproc; {$endif}
 begin
+  Writeln('Check range ',len,'>=',index);
   if (index>len) or (Index<1) then
     HandleErrorFrame(201,get_frame);
 end;
@@ -879,7 +880,10 @@ end;
 
 {
   $Log$
-  Revision 1.55  2005-02-14 17:13:22  peter
+  Revision 1.56  2005-04-06 07:43:02  michael
+  + Variant type conversion rules
+
+  Revision 1.55  2005/02/14 17:13:22  peter
     * truncate log
 
   Revision 1.54  2005/01/28 19:50:51  peter