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

* fix overflow

Browse Source
This commit is contained in:
peter 2004-03-18 17:29:40 +00:00
parent e6365c83ca
commit 9e0fb804f1
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
compiler/ncgcon.pas
View File

@ -67,7 +67,7 @@ implementation
verbose,globals,
symconst,symdef,aasmbase,aasmtai,aasmcpu,defutil,
cpuinfo,cpubase,
cgbase,tgobj,cgobj
cgbase,cgobj
{$ifdef delphi}
,dmisc
{$endif}
@ -268,15 +268,18 @@ implementation
begin
j:=1;
same_string:=true;
for i:=0 to len-1 do
begin
if tai_string(hp1).str[j]<>value_str[i] then
begin
same_string:=false;
break;
end;
inc(j);
end;
if len>0 then
begin
for i:=0 to len-1 do
begin
if tai_string(hp1).str[j]<>value_str[i] then
begin
same_string:=false;
break;
end;
inc(j);
end;
end;
end;
end;
st_ansistring,
@ -308,15 +311,18 @@ implementation
lastlabel:=tai_label(hp2.previous.previous.previous.previous).l;
same_string:=true;
j:=0;
for i:=0 to len-1 do
begin
if tai_string(hp1).str[j]<>value_str[i] then
begin
same_string:=false;
break;
end;
inc(j);
end;
if len>0 then
begin
for i:=0 to len-1 do
begin
if tai_string(hp1).str[j]<>value_str[i] then
begin
same_string:=false;
break;
end;
inc(j);
end;
end;
end;
end;
end;
@ -572,7 +578,10 @@ begin
end.
{
$Log$
Revision 1.38 2004-03-16 16:19:44 peter
Revision 1.39 2004-03-18 17:29:40 peter
* fix overflow
Revision 1.38 2004/03/16 16:19:44 peter
* fix out of bounds for string compares
Revision 1.37 2004/02/26 16:16:38 peter