* new bugs

This commit is contained in:
peter 2003-10-02 17:47:02 +00:00
parent 3b771392a1
commit bbcc0c4f9d
8 changed files with 139 additions and 0 deletions

23
tests/webtbs/tw2703.pp Normal file
View File

@ -0,0 +1,23 @@
{ %cpu=i386 }
{$mode delphi}
{ Source provided for Free Pascal Bug Report 2703 }
{ Submitted by "Johannes Berg" on 2003-10-01 }
{ e-mail: johannes -at- sipsolutions -dot- de }
function InterlockedIncrement(var I: Integer): Integer;
asm
MOV EDX,1
XCHG EAX,EDX
LOCK XADD [EDX],EAX
INC EAX
end;
var
i : integer;
begin
i:=1;
i:=InterlockedIncrement(i);
if i<>2 then
halt(1);
end.

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

@ -0,0 +1,14 @@
{ Source provided for Free Pascal Bug Report 2704 }
{ Submitted by "Johannes Berg" on 2003-10-01 }
{ e-mail: johannes -at- sipsolutions -dot- de }
program h;
{$mode delphi}
type
TTest = class
constructor Create; virtual; abstract;
end;
begin
end.

17
tests/webtbs/tw2705.pp Normal file
View File

@ -0,0 +1,17 @@
{ Source provided for Free Pascal Bug Report 2705 }
{ Submitted by "Johannes Berg" on 2003-10-01 }
{ e-mail: johannes -at- sipsolutions -dot- de }
program i;
{$mode delphi}
type
TClassA = class
end;
TClassB = class
FA: TClassA;
property a: TClassA read FA write FA default nil;
end;
begin
end.

27
tests/webtbs/tw2706.pp Normal file
View File

@ -0,0 +1,27 @@
{ Source provided for Free Pascal Bug Report 2706 }
{ Submitted by "Johannes Berg" on 2003-10-01 }
{ e-mail: johannes -at- sipsolutions -dot- de }
program j;
{$mode delphi}
uses
uw2706b, uw2706a;
type
TClassB = class(TClassA)
end;
TClassC = class
FB: TClassB;
procedure Test;
end;
procedure TClassC.Test;
var
LX: TX;
begin
FB.CT(LX);
end;
begin
end.

12
tests/webtbs/tw2707.pp Normal file
View File

@ -0,0 +1,12 @@
{ Source provided for Free Pascal Bug Report 2707 }
{ Submitted by "Johannes Berg" on 2003-10-02 }
{ e-mail: johannes -at- sipsolutions -dot- de }
type
PSSL_METHOD = pointer;
PSSL_CTX = pointer;
var
MN_SSL_CTX_new : function(method: PSSL_METHOD): PSSL_CTX cdecl = nil;
begin
end.

17
tests/webtbs/tw2708.pp Normal file
View File

@ -0,0 +1,17 @@
{ Source provided for Free Pascal Bug Report 2708 }
{ Submitted by "Johannes Berg" on 2003-10-02 }
{ e-mail: johannes -at- sipsolutions -dot- de }
program k;
{$mode delphi}
type
TA = class
procedure a; overload; virtual; abstract;
procedure a(const s:string); overload;
end;
procedure TA.a(const s:string);
begin
end;
begin
end.

20
tests/webtbs/uw2706a.pp Normal file
View File

@ -0,0 +1,20 @@
unit uw2706a;
{$mode delphi}
interface
uses
uw2706b;
type
TClassA = class
protected
procedure CT(const X: TX);
end;
implementation
procedure TClassA.CT(const X: TX);
begin
end;
end.

9
tests/webtbs/uw2706b.pp Normal file
View File

@ -0,0 +1,9 @@
unit uw2706b;
{$mode delphi}
interface
type
TX = class
end;
implementation
end.