paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed potential range errors in indexbyte/indexword

Browse Source 
git-svn-id: trunk@33567 -
This commit is contained in:
Jonas Maebe 2016-04-28 20:33:06 +00:00
parent 141a24e29c
commit 162c4ef6f3
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/jvm/jvm.inc
View File

@ -188,8 +188,8 @@ function IndexByte(const buf: array of jbyte;len:SizeInt;b:jbyte):SizeInt;
i: SizeInt;
begin
if len<0 then
len:=high(buf);
for i:=0 to len do
len:=high(buf)+1;
for i:=0 to len-1 do
if buf[i]=b then
exit(i);
IndexByte:=-1;
@ -201,8 +201,8 @@ var
i: SizeInt;
begin
if len<0 then
len:=high(buf);
for i:=0 to len do
len:=high(buf)+1;
for i:=0 to len-1 do
if jbyte(buf[i])=b then
exit(i);
IndexByte:=-1;
@ -227,8 +227,8 @@ function IndexWord(const buf: array of jshort;len:SizeInt;b:jshort):SizeInt;
i: SizeInt;
begin
if len<0 then
len:=high(buf);
for i:=0 to len do
len:=high(buf)+1;
for i:=0 to len-1 do
if buf[i]=b then
exit(i);
IndexWord:=-1;
@ -240,8 +240,8 @@ function IndexWord(const buf: array of jchar;len:SizeInt;b:jchar):SizeInt;
i: SizeInt;
begin
if len<0 then
len:=high(buf);
for i:=0 to len do
len:=high(buf)+1;
for i:=0 to len-1 do
if buf[i]=b then
exit(i);
IndexWord:=-1;
@ -254,8 +254,8 @@ function IndexWord(const buf: array of jchar;len:SizeInt;b:jshort):SizeInt;
begin
c:=jchar(b);
if len<0 then
len:=high(buf);
for i:=0 to len do
len:=high(buf)+1;
for i:=0 to len-1 do
if buf[i]=c then
exit(i);
IndexWord:=-1;