paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replaced CompareChar by CompareByte, saves one redirection

Browse Source
This commit is contained in:
florian 2005-01-09 10:38:59 +00:00
parent eae6d4fc8b
commit 9191989228
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/astrings.inc
View File

@ -615,7 +615,7 @@ begin
begin begin
inc(i); inc(i);
if (SubStr[1]=pc^) and if (SubStr[1]=pc^) and
(CompareChar(Substr[1],pc^,Length(SubStr))=0) then (CompareByte(Substr[1],pc^,Length(SubStr))=0) then
begin begin
Pos:=i; Pos:=i;
exit; exit;
@ -868,7 +868,10 @@ end;
{ {
$Log$ $Log$
Revision 1.51 2004-12-02 17:56:01 peter Revision 1.52 2005-01-09 10:38:59 florian
* replaced CompareChar by CompareByte, saves one redirection
Revision 1.51 2004/12/02 17:56:01 peter
* prevent crash when appending empty string * prevent crash when appending empty string
Revision 1.50 2004/11/17 22:19:04 peter Revision 1.50 2004/11/17 22:19:04 peter