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

* allow generic parameters as array range, resolves #33414

Browse Source 
git-svn-id: trunk@38532 -
This commit is contained in:
florian 2018-03-15 21:45:23 +00:00
parent 3e7af376fe
commit 1bc322c218
3 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16076,6 +16076,7 @@ tests/webtbs/tw3328a.pp svneol=native#text/plain
tests/webtbs/tw3328b.pp svneol=native#text/plain
tests/webtbs/tw3334.pp svneol=native#text/plain
tests/webtbs/tw3340.pp svneol=native#text/plain
tests/webtbs/tw33414.pp svneol=native#text/pascal
tests/webtbs/tw33417.pp svneol=native#text/pascal
tests/webtbs/tw3348.pp svneol=native#text/plain
tests/webtbs/tw3349.pp svneol=native#text/plain

7
compiler/ptype.pas
View File

@ -1322,6 +1322,13 @@ implementation
else
Message1(parser_e_type_cant_be_used_in_array_index,def.typename);
end;
{ generic parameter? }
undefineddef:
begin
lowval:=0;
highval:=1;
indexdef:=def;
end;
else
Message(sym_e_error_in_type_def);
end;

20
tests/webtbs/tw33414.pp Normal file
View File

@ -0,0 +1,20 @@
{$mode objfpc}{$H+}
uses Classes, SysUtils;
type
generic TFoo<SomeEnum> = class
m: array[SomeEnum] of integer;
end;
TEnum = (e0, e1);
var
a: specialize TFoo<TEnum>;
begin
if low(a.m)<>e0 then
halt(1);
if high(a.m)<>e1 then
halt(1);
writeln('ok');
end.