paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +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
inc(i);
if (SubStr[1]=pc^) and
(CompareChar(Substr[1],pc^,Length(SubStr))=0) then
(CompareByte(Substr[1],pc^,Length(SubStr))=0) then
begin
Pos:=i;
exit;
@ -868,7 +868,10 @@ end;
{
$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
Revision 1.50 2004/11/17 22:19:04 peter