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

* fixed test according to Kylix behaviour (which means current

Browse Source 
FPC behaviour is wrong)

git-svn-id: trunk@6851 -
This commit is contained in:
Jonas Maebe 2007-03-14 18:27:01 +00:00
parent e0171f4e1f
commit ac585ea201
3 changed files with 46 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7173,6 +7173,7 @@ tests/webtbf/tw3716.pp svneol=native#text/plain
tests/webtbf/tw3738.pp svneol=native#text/plain
tests/webtbf/tw3740.pp svneol=native#text/plain
tests/webtbf/tw3790.pp svneol=native#text/plain
tests/webtbf/tw3930a.pp svneol=native#text/plain
tests/webtbf/tw3931b.pp svneol=native#text/plain
tests/webtbf/tw3969.pp svneol=native#text/plain
tests/webtbf/tw4103.pp svneol=native#text/plain

25
tests/webtbf/tw3930a.pp Normal file
View File

@ -0,0 +1,25 @@
{ %fail }
{ Gives under Kylix:
tw3930a.pp(22) Error: Incompatible types: 'TMyStringList' and 'TStringList'
}
{$ifdef fpc}
{$mode objfpc}
{$endif}
uses
Classes;
type
TMyStringList = type TStringlist;
var
list : TMyStringList;
begin
list:=TMyStringList.Create;
end.

39
tests/webtbs/tw3930.pp
View File

@ -1,19 +1,20 @@
{$mode objfpc}
uses
classes;
type
TMyStringList = type TStringlist;
var
list : TMyStringList;
begin
list:=TMyStringList.Create;
list.Free;
if pointer(TMyStringList)=pointer(TStringList) then
halt(1);
writeln('ok');
end.
{$ifdef fpc}
{$mode objfpc}
{$endif}
uses
Classes;
type
TMyStringList = type TStringlist;
var
list : TMyStringList;
begin
TMyStringList.Create.Free;
if pointer(TMyStringList)<>pointer(TStringList) then
halt(1);
writeln('ok');
end.