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

* correctly handle static arrays with a lower index <> 0

Browse Source 
+ added test

git-svn-id: trunk@46901 -
This commit is contained in:
svenbarth 2020-09-19 21:20:07 +00:00
parent 449cc8f152
commit 2c372071fd
3 changed files with 50 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -14405,6 +14405,7 @@ tests/test/tarrconstr12.pp svneol=native#text/pascal
tests/test/tarrconstr13.pp svneol=native#text/pascal
tests/test/tarrconstr14.pp svneol=native#text/pascal
tests/test/tarrconstr15.pp svneol=native#text/pascal
tests/test/tarrconstr16.pp svneol=native#text/pascal
tests/test/tarrconstr2.pp svneol=native#text/pascal
tests/test/tarrconstr3.pp svneol=native#text/pascal
tests/test/tarrconstr4.pp svneol=native#text/pascal

2
compiler/ncnv.pas
View File

@ -2119,7 +2119,7 @@ implementation
cassignmentnode.create(
cvecnode.create(
ctemprefnode.create(arrnode),
cordconstnode.create(paracount,tarraydef(totypedef).rangedef,false)),
cordconstnode.create(paracount+tarraydef(totypedef).lowrange,tarraydef(totypedef).rangedef,false)),
elemnode.left));
elemnode.left:=nil;
inc(paracount);

48
tests/test/tarrconstr16.pp Normal file
View File

@ -0,0 +1,48 @@
program tarrconstr16;
type
TEnum = (
teOne,
teTwo,
teThree
);
TTest1 = array[0..2] of LongInt;
TTest2 = array[1..3] of LongInt;
TTest3 = array[TEnum] of LongInt;
TTest4 = array[-1..1] of LongInt;
procedure CheckArray(Actual, Expected: array of LongInt; Code: LongInt);
var
i: SizeInt;
begin
if Length(Actual) <> Length(Expected) then
Halt(Code);
for i := 0 to High(Actual) do
if Actual[i] <> Expected[i] then
Halt(Code);
end;
var
arr1: TTest1;
arr2: TTest2;
arr3: TTest3;
arr4: TTest4;
begin
FillChar(arr1, SizeOf(arr1), 0);
FillChar(arr2, SizeOf(arr2), 0);
FillChar(arr3, SizeOf(arr3), 0);
FillChar(arr4, SizeOf(arr4), 0);
arr1 := [1, 2, 3];
CheckArray(arr1, [1, 2, 3], 1);
arr2 := [1, 2, 3];
CheckArray(arr2, [1, 2, 3], 2);
arr3 := [1, 2, 3];
CheckArray(arr3, [1, 2, 3], 3);
arr4 := [1, 2, 3];
CheckArray(arr4, [1, 2, 3], 4);
end.