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

* don't throw an error if a non-generic is tried to be specialized, resolves #21238

Browse Source 
git-svn-id: trunk@20607 -
This commit is contained in:
florian 2012-03-23 20:32:40 +00:00
parent a7fe7b5d06
commit 0f9b8c8936
3 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11334,6 +11334,7 @@ tests/webtbf/tw20907.pp svneol=native#text/plain
tests/webtbf/tw20907a.pp svneol=native#text/plain
tests/webtbf/tw21078.pp svneol=native#text/plain
tests/webtbf/tw21087.pp svneol=native#text/plain
tests/webtbf/tw21238.pp svneol=native#text/pascal
tests/webtbf/tw2128.pp svneol=native#text/plain
tests/webtbf/tw2129.pp svneol=native#text/plain
tests/webtbf/tw21466.pas svneol=native#text/pascal

3
compiler/ptype.pas
View File

@ -922,7 +922,8 @@ implementation
begin
generate_specialization(def,false,name,nil,'');
{ handle nested types }
post_comp_expr_gendef(def);
if assigned(def) then
post_comp_expr_gendef(def);
end
else
begin

12
tests/webtbf/tw21238.pp Normal file
View File

@ -0,0 +1,12 @@
{ %fail }
{$mode delphi}
uses
classes;
procedure FormShow(Sender: TObject);
var
List: TList<Byte>;
begin
end;
begin
end.