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

* Fixes range check errors, by Anton (bug id 19038)

Browse Source 
git-svn-id: trunk@17226 -
This commit is contained in:
michael 2011-04-02 15:44:41 +00:00
parent f235e4c116
commit b78f9f7706
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pastree.pp
View File

@ -2609,7 +2609,7 @@ Var
I : Integer;
begin
For I:=0 to Length(Params) do
For I:=0 to High(Params) do
begin
If (Result<>'') then
Result:=Result+', ';
@ -2647,7 +2647,7 @@ Function TRecordValues.GetDeclaration(Full : Boolean):AnsiString;
Var
I : Integer;
begin
For I:=0 to Length(Fields) do
For I:=0 to High(Fields) do
begin
If Result='' then
Result:=Result+'; ';
@ -2708,7 +2708,7 @@ Var
I : Integer;
begin
For I:=0 to Length(Values) do
For I:=0 to High(Values) do
begin
If Result='' then
Result:=Result+', ';