mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-31 16:50:47 +02:00
* new bugs
This commit is contained in:
parent
3b771392a1
commit
bbcc0c4f9d
23
tests/webtbs/tw2703.pp
Normal file
23
tests/webtbs/tw2703.pp
Normal 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
14
tests/webtbs/tw2704.pp
Normal 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
17
tests/webtbs/tw2705.pp
Normal 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
27
tests/webtbs/tw2706.pp
Normal 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
12
tests/webtbs/tw2707.pp
Normal 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
17
tests/webtbs/tw2708.pp
Normal 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
20
tests/webtbs/uw2706a.pp
Normal 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
9
tests/webtbs/uw2706b.pp
Normal file
@ -0,0 +1,9 @@
|
||||
unit uw2706b;
|
||||
{$mode delphi}
|
||||
interface
|
||||
type
|
||||
TX = class
|
||||
end;
|
||||
|
||||
implementation
|
||||
end.
|
Loading…
Reference in New Issue
Block a user