* new bugs

tests/webtbs/tw2703.pp

@@ -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.

tests/webtbs/tw2704.pp

@@ -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.

tests/webtbs/tw2705.pp

@@ -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.

tests/webtbs/tw2706.pp

@@ -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.

tests/webtbs/tw2707.pp

@@ -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.

tests/webtbs/tw2708.pp

@@ -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.

tests/webtbs/uw2706a.pp

@@ -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.

tests/webtbs/uw2706b.pp

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