mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 10:29:17 +02:00
+ Removed erroneously committed debug statement
This commit is contained in:
parent
ba4454e2cb
commit
0274b9b848
@ -407,7 +407,6 @@ 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;
|
||||
@ -880,7 +879,10 @@ end;
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
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
|
||||
* replaced CompareChar by CompareByte, saves one redirection
|
||||
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user