Browse Source

+ Removed erroneously committed debug statement

michael 20 years ago
parent
commit
0274b9b848
1 changed files with 5 additions and 3 deletions
  1. 5 3
      rtl/inc/astrings.inc

+ 5 - 3
rtl/inc/astrings.inc

@@ -407,7 +407,6 @@ end;
 
 
 Procedure fpc_AnsiStr_CheckRange(len,index : SizeInt);[Public,Alias : 'FPC_ANSISTR_RANGECHECK'];  {$ifdef hascompilerproc} compilerproc; {$endif}
 Procedure fpc_AnsiStr_CheckRange(len,index : SizeInt);[Public,Alias : 'FPC_ANSISTR_RANGECHECK'];  {$ifdef hascompilerproc} compilerproc; {$endif}
 begin
 begin
-  Writeln('Check range ',len,'>=',index);
   if (index>len) or (Index<1) then
   if (index>len) or (Index<1) then
     HandleErrorFrame(201,get_frame);
     HandleErrorFrame(201,get_frame);
 end;
 end;
@@ -880,7 +879,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.56  2005-04-06 07:43:02  michael
+  Revision 1.57  2005-04-06 07:45:14  michael
+  + Removed erroneously committed debug statement
+
+  Revision 1.56  2005/04/06 07:43:02  michael
   + Variant type conversion rules
   + Variant type conversion rules
 
 
   Revision 1.55  2005/02/14 17:13:22  peter
   Revision 1.55  2005/02/14 17:13:22  peter
@@ -895,4 +897,4 @@ end;
   Revision 1.52  2005/01/09 10:38:59  florian
   Revision 1.52  2005/01/09 10:38:59  florian
     * replaced CompareChar by CompareByte, saves one redirection
     * replaced CompareChar by CompareByte, saves one redirection
 
 
-}
+}