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

* fixed #8156

Browse Source 
git-svn-id: trunk@6101 -
This commit is contained in:
florian 2007-01-21 16:15:19 +00:00
parent 9398d67e51
commit 7d3d64e2ec
3 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7989,6 +7989,7 @@ tests/webtbs/tw8145.pp svneol=native#text/plain
tests/webtbs/tw8148.pp svneol=native#text/plain
tests/webtbs/tw8150a.pp svneol=native#text/plain
tests/webtbs/tw8150d.pp svneol=native#text/plain
tests/webtbs/tw8156.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

11
compiler/pdecl.pas
View File

@ -493,6 +493,17 @@ implementation
if isunique then
begin
hdef:=tstoreddef(hdef).getcopy;
{ fix name, it is used e.g. for tables }
if is_class_or_interface_or_dispinterface(hdef) then
with tobjectdef(hdef) do
begin
stringdispose(objname);
stringdispose(objrealname);
objrealname:=stringdup(orgtypename);
objname:=stringdup(upper(orgtypename));
end;
include(hdef.defoptions,df_unique);
end;
if not assigned(hdef.typesym) then

8
tests/webtbs/tw8156.pp Normal file
View File

@ -0,0 +1,8 @@
{$mode objfpc}
type
A = type IInterface;
B = type IInterface;
begin
end.