From 9191989228483f72e51f307e36c6d2b7c0ec11a4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 9 Jan 2005 10:38:59 +0000
Subject: [PATCH]   * replaced CompareChar by CompareByte, saves one
 redirection

---
 rtl/inc/astrings.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index 036a5949d0..b352972d64 100644
--- a/rtl/inc/astrings.inc
+++ b/rtl/inc/astrings.inc
@@ -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