paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 16:10:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed index* to conform to the assembler implementations (interpret

Browse Source 
negative upper bound as maximum)
This commit is contained in:
Jonas Maebe 2004-01-10 17:01:29 +00:00
parent d312aa6c9c
commit 6fe31d0d90
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/generic.inc
View File

@ -115,6 +115,10 @@ var
I : longint;
begin
I:=0;
{ simulate assembler implementations behaviour, which is expected }
{ fpc_pchar_to_ansistr in astrings.inc }
if (len < 0) then
len := high(longint);
while (I<Len) and (bytearray(buf)[I]<>b) do
inc(I);
if (i=Len) then
@ -132,6 +136,8 @@ var
I : longint;
begin
I:=0;
if (len < 0) then
len := high(longint);
while (I<Len) and (wordarray(buf)[I]<>b) do
inc(I);
if (i=Len) then
@ -149,6 +155,8 @@ var
I : longint;
begin
I:=0;
if (len < 0) then
len := high(longint);
while (I<Len) and (longintarray(buf)[I]<>b) do inc(I);
if (i=Len) then
i:=-1; {Can't use 0, since it is a possible value for index}
@ -1014,7 +1022,11 @@ end;
{
$Log$
Revision 1.63 2003-12-16 09:43:04 daniel
Revision 1.64 2004-01-10 17:01:29 jonas
* changed index* to conform to the assembler implementations (interpret
negative upper bound as maximum)
Revision 1.63 2003/12/16 09:43:04 daniel
* Use of 0 instead of nil fixed
Revision 1.62 2003/12/06 13:25:30 jonas