* new bugs

tests/webtbf/tw2721.pp

@@ -0,0 +1,22 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2721 }
+{ Submitted by "marcov" on  2003-10-07 }
+{ e-mail:  }
+{$mode Delphi}
+
+type
+  TIntfPersistent = class
+  public
+    function _Release: Integer; virtual; cdecl;
+    end;
+
+  t2 = class(Tintfpersistent)
+    public
+     function _Release: Integer; override; stdcall;
+    end;
+
+
+begin
+end.
+

tests/webtbs/tw2713.pp

@@ -0,0 +1,32 @@
+{ Source provided for Free Pascal Bug Report 2713 }
+{ Submitted by "Wiktor Sywula" on  2003-10-05 }
+{ e-mail: wswiktor@poczta.fm }
+UNIT tw2713;
+
+{$MODE OBJFPC}
+
+INTERFACE
+
+type trek=record
+        a,b,c:word;
+     end;
+
+procedure rek(var r:trek; a,b,c:word);
+function rek(a,b,c:word):trek;
+
+IMPLEMENTATION
+
+procedure rek(var r:trek; a,b,c:word);
+begin
+  r.a:=a;
+  r.b:=b;
+  r.c:=c;
+end;
+
+function rek(a,b,c:word):trek;
+begin
+  rek(rek,a,b,c);
+end;
+
+
+END.

tests/webtbs/tw2719.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 2719 }
+{ Submitted by "Samuel L.B." on  2003-10-06 }
+{ e-mail: NLBCHGPOHSXQ@spammotel.com }
+program A;
+
+const
+  cmConnect: Char =    #1;
+  cmDisconnect: Char = #2;
+
+function GetCh(Id: Byte): Char;
+begin
+end;
+
+begin
+  case GetCh(1) of
+    cmConnect:  ;
+    cmDisconnect: ;
+  end;
+end.

tests/webtbs/tw2721.pp

@@ -0,0 +1,20 @@
+{ Source provided for Free Pascal Bug Report 2721 }
+{ Submitted by "marcov" on  2003-10-07 }
+{ e-mail:  }
+{$mode Delphi}
+
+type
+  TIntfPersistent = class
+  public
+    function _Release: Integer; virtual; cdecl;
+    end;
+
+  t2 = class(Tintfpersistent)
+    public
+     function _Release: Integer; override;
+    end;
+
+
+begin
+end.
+

tests/webtbs/tw2723.pp

@@ -0,0 +1,15 @@
+{ Source provided for Free Pascal Bug Report 2723 }
+{ Submitted by "marco" on  2003-10-07 }
+{ e-mail:  }
+{$ifdef fpc}{$mode delphi}{$endif}
+function GetClassParent(AClass: TClass): TClass; assembler;
+asm
+        MOV     EAX, [AClass].vmtParent      // line 1324
+        TEST    Result, EAX
+        JE      @@Exit
+        MOV     EAX, [EAX]
+@@Exit:
+end;
+
+begin
+end.