Add tests for Mantis 18103 which somehow is completely fixed now (not related

to my last commit though...).

git-svn-id: trunk@20248 -
This commit is contained in:
svenbarth 2012-02-04 14:33:29 +00:00
parent 04683c5f13
commit 6204da6248
4 changed files with 112 additions and 0 deletions

3
.gitattributes vendored
View File

@ -12048,6 +12048,9 @@ tests/webtbs/tw18075.pp svneol=native#text/pascal
tests/webtbs/tw18082.pp svneol=native#text/plain
tests/webtbs/tw18085.pp svneol=native#text/pascal
tests/webtbs/tw18086.pp svneol=native#text/pascal
tests/webtbs/tw18103a.pp svneol=native#text/pascal
tests/webtbs/tw18103b.pp svneol=native#text/pascal
tests/webtbs/tw18103c.pp svneol=native#text/pascal
tests/webtbs/tw18113.pp svneol=native#text/plain
tests/webtbs/tw18123.pp svneol=native#text/pascal
tests/webtbs/tw18127.pp svneol=native#text/pascal

37
tests/webtbs/tw18103a.pp Normal file
View File

@ -0,0 +1,37 @@
program gentest;
// alias test generic class
// example is a subset of a working delphi class
// the nested types are there so that they can be used to defined types (e.g. var p : bwimagespecialization.reft;)
//
{$mode objfpc}
{.define fpchere}
Type
generic tbwimagegen<T> = Class(TObject)
Type
TLocalType = specialize tbwimagegen<T>;
BaseUnit = T;
RefT= ^BaseUnit;
procedure copylines(source: specialize tbwimagegen<T>;xfrom,xto:integer;xdestline:integer=0);
function GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
function GetLinePointer(originy:integer):reft;
property scanline[i:integer]:reft read getlinepointer;
end;
procedure tbwimagegen.copylines(source: specialize tbwimagegen<T>;xfrom,xto:integer;xdestline:integer=0);
begin
end;
function tbwimagegen.GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
begin
end;
function tbwimagegen.GetLinePointer(originy:integer):reft;
begin
end;
begin
end.

37
tests/webtbs/tw18103b.pp Normal file
View File

@ -0,0 +1,37 @@
program gentest;
// alias test generic class
// example is a subset of a working delphi class
// the nested types are there so that they can be used to defined types (e.g. var p : bwimagespecialization.reft;)
//
{$mode objfpc}
{.define fpchere}
Type
generic tbwimagegen<T> = Class(TObject)
Type
TLocalType = tbwimagegen;
BaseUnit = T;
RefT= ^BaseUnit;
procedure copylines(source: tbwimagegen;xfrom,xto:integer;xdestline:integer=0);
function GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
function GetLinePointer(originy:integer):reft;
property scanline[i:integer]:reft read getlinepointer;
end;
procedure tbwimagegen.copylines(source: tbwimagegen;xfrom,xto:integer;xdestline:integer=0);
begin
end;
function tbwimagegen.GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
begin
end;
function tbwimagegen.GetLinePointer(originy:integer):reft;
begin
end;
begin
end.

35
tests/webtbs/tw18103c.pp Normal file
View File

@ -0,0 +1,35 @@
program gentest;
// alias test generic class
// example is a subset of a working delphi class
// the nested types are there so that they can be used to defined types (e.g. var p : bwimagespecialization.reft;)
//
{$mode delphi}
Type
tbwimagegen<T> = Class(TObject)
Type
TLocalType = tbwimagegen<T>;
BaseUnit = T;
RefT= ^BaseUnit;
procedure copylines(source: tbwimagegen<T>;xfrom,xto:integer;xdestline:integer=0);
function GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
function GetLinePointer(originy:integer):reft;
property scanline[i:integer]:reft read getlinepointer;
end;
procedure tbwimagegen<T>.copylines(source: tbwimagegen<T>;xfrom,xto:integer;xdestline:integer=0);
begin
end;
function tbwimagegen<T>.GetImagePointer( OriginX, OriginY : Integer ): reft;inline;
begin
end;
function tbwimagegen<T>.GetLinePointer(originy:integer):reft;
begin
end;
begin
end.