mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 20:45:57 +02:00
* fix Mantis #30494 by applying patch from Maciej Izak
+ added test git-svn-id: trunk@34381 -
This commit is contained in:
parent
d46c015eb1
commit
aaceb5518f
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -13730,6 +13730,7 @@ tests/webtbf/tw2996.pp svneol=native#text/plain
|
|||||||
tests/webtbf/tw3000.pp svneol=native#text/plain
|
tests/webtbf/tw3000.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw30022.pp svneol=native#text/plain
|
tests/webtbf/tw30022.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw3047.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/tw3114.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw3116.pp svneol=native#text/plain
|
tests/webtbf/tw3116.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw3126.pp svneol=native#text/plain
|
tests/webtbf/tw3126.pp svneol=native#text/plain
|
||||||
|
@ -1456,11 +1456,14 @@ implementation
|
|||||||
spezdef:=generate_specialization_phase2(spezcontext,tstoreddef(spezdef),false,'');
|
spezdef:=generate_specialization_phase2(spezcontext,tstoreddef(spezdef),false,'');
|
||||||
spezcontext.free;
|
spezcontext.free;
|
||||||
spezcontext:=nil;
|
spezcontext:=nil;
|
||||||
|
if spezdef<>generrordef then
|
||||||
|
begin
|
||||||
srsym:=spezdef.typesym;
|
srsym:=spezdef.typesym;
|
||||||
srsymtable:=srsym.owner;
|
srsymtable:=srsym.owner;
|
||||||
check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
|
check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
|
||||||
result:=true;
|
result:=true;
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
else
|
else
|
||||||
internalerror(2015070302);
|
internalerror(2015070302);
|
||||||
end;
|
end;
|
||||||
|
15
tests/webtbf/tw30494.pp
Normal file
15
tests/webtbf/tw30494.pp
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
{ %FAIL }
|
||||||
|
|
||||||
|
program tw30494;
|
||||||
|
|
||||||
|
{$MODE DELPHI}
|
||||||
|
|
||||||
|
type
|
||||||
|
TFoo<T: TObject> = record
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
foo: TFoo<Integer>;
|
||||||
|
begin
|
||||||
|
end.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user