From ed6ecf40db8fa3be66a1d2408125a910bc2f079f Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 17 May 2004 07:33:01 +0000
Subject: [PATCH]  * fixes from Luiz Am?rico

---
 rtl/objpas/strutils.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/strutils.pp b/rtl/objpas/strutils.pp
index a027528aa6..23a2c4885a 100644
--- a/rtl/objpas/strutils.pp
+++ b/rtl/objpas/strutils.pp
@@ -477,11 +477,11 @@ Function PosEx(const SubStr, S: string; Offset: Cardinal): Integer;
 var i : pchar;
 begin
   if (offset<1) or (offset>length(s)) then exit(0);
-  i:=strpos(@s[1],@substr[offset]);
+  i:=strpos(@s[offset],@substr[1]);
   if i=nil then
     PosEx:=0   
   else
-    PosEx:=(i-pchar(s))+offset;
+    PosEx:=succ(i-pchar(s));
 end;
 
 
@@ -658,7 +658,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2004-03-19 12:54:22  marco
+  Revision 1.5  2004-05-17 07:33:01  marco
+   * fixes from Luiz Am?rico
+
+  Revision 1.4  2004/03/19 12:54:22  marco
    * more strutils small things
 
   Revision 1.3  2004/03/18 16:55:47  marco