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

* fix Mantis #30494 by applying patch from Maciej Izak

Browse Source 
+ added test

git-svn-id: trunk@34381 -
This commit is contained in:
svenbarth 2016-08-26 14:23:23 +00:00
parent d46c015eb1
commit aaceb5518f
3 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13730,6 +13730,7 @@ tests/webtbf/tw2996.pp svneol=native#text/plain
tests/webtbf/tw3000.pp svneol=native#text/plain
tests/webtbf/tw30022.pp svneol=native#text/plain
tests/webtbf/tw3047.pp svneol=native#text/plain
tests/webtbf/tw30494.pp svneol=native#text/pascal
tests/webtbf/tw3114.pp svneol=native#text/plain
tests/webtbf/tw3116.pp svneol=native#text/plain
tests/webtbf/tw3126.pp svneol=native#text/plain

11
compiler/pexpr.pas
View File

@ -1456,10 +1456,13 @@ implementation
spezdef:=generate_specialization_phase2(spezcontext,tstoreddef(spezdef),false,'');
spezcontext.free;
spezcontext:=nil;
srsym:=spezdef.typesym;
srsymtable:=srsym.owner;
check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
result:=true;
if spezdef<>generrordef then
begin
srsym:=spezdef.typesym;
srsymtable:=srsym.owner;
check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
result:=true;
end;
end;
else
internalerror(2015070302);

15
tests/webtbf/tw30494.pp Normal file
View File

@ -0,0 +1,15 @@
{ %FAIL }
program tw30494;
{$MODE DELPHI}
type
TFoo<T: TObject> = record
end;
var
foo: TFoo<Integer>;
begin
end.