paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 12:51:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unique iunknown problem

Browse Source 
git-svn-id: trunk@6208 -
This commit is contained in:
peter 2007-01-26 21:35:53 +00:00
parent 2109469767
commit 34a5236dd0
3 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -8005,6 +8005,7 @@ tests/webtbs/tw8155.pp svneol=native#text/plain
tests/webtbs/tw8156.pp svneol=native#text/plain
tests/webtbs/tw8171.pp svneol=native#text/plain
tests/webtbs/tw8172.pp svneol=native#text/plain
tests/webtbs/tw8180.pp svneol=native#text/plain
tests/webtbs/tw8183.pp svneol=native#text/plain
tests/webtbs/tw8199.pp svneol=native#text/plain
tests/webtbs/tw8222.pp svneol=native#text/plain
@ -8058,6 +8059,7 @@ tests/webtbs/uw4541.pp svneol=native#text/plain
tests/webtbs/uw6203.pp svneol=native#text/plain
tests/webtbs/uw6767.pp svneol=native#text/plain
tests/webtbs/uw7381.pp svneol=native#text/plain
tests/webtbs/uw8180.pp svneol=native#text/plain
utils/Makefile svneol=native#text/plain
utils/Makefile.fpc svneol=native#text/plain
utils/README -text

14
tests/webtbs/tw8180.pp Normal file
View File

@ -0,0 +1,14 @@
{ %recompile }
uses uw8180;
type
tcl=class(TInterfacedObject,XStr)
end;
var
x : tcl;
begin
x:=tcl.create;
x._Addref;
end.

10
tests/webtbs/uw8180.pp Normal file
View File

@ -0,0 +1,10 @@
unit uw8180;
interface
type
XStr=type iinterface;
implementation
end.