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

* made Index* usage consistent with astrings.inc

Browse Source
This commit is contained in:
florian 2003-11-05 15:33:51 +00:00
parent d97aa2e973
commit 68e4d5c88a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/wstrings.inc
View File

@ -310,7 +310,7 @@ var
begin begin
if p=nil then if p=nil then
exit; exit;
Size := IndexWord(p^, $7fffffff, 0); Size := IndexWord(p^, -1, 0);
Setlength (result,Size); Setlength (result,Size);
if Size>0 then if Size>0 then
begin begin
@ -327,7 +327,7 @@ var
begin begin
if p=nil then if p=nil then
exit; exit;
Size := IndexWord(p^, $7fffffff, 0); Size := IndexWord(p^, -1, 0);
Setlength (result,Size); Setlength (result,Size);
if Size>0 then if Size>0 then
begin begin
@ -993,7 +993,10 @@ end;
{ {
$Log$ $Log$
Revision 1.31 2003-06-17 19:24:08 jonas Revision 1.32 2003-11-05 15:33:51 florian
* made Index* usage consistent with astrings.inc
Revision 1.31 2003/06/17 19:24:08 jonas
* fixed conversion of fpc_*str_unique to compilerproc * fixed conversion of fpc_*str_unique to compilerproc
Revision 1.30 2003/06/17 16:38:53 jonas Revision 1.30 2003/06/17 16:38:53 jonas