mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 23:31:34 +02:00
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:
parent
04683c5f13
commit
6204da6248
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -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
37
tests/webtbs/tw18103a.pp
Normal 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
37
tests/webtbs/tw18103b.pp
Normal 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
35
tests/webtbs/tw18103c.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user