* new bugs

tests/webtbs/tw2176.pp

@@ -36,6 +36,7 @@ begin
     i.Show;        //writes nothing
   except           //does not excepts
     WriteLn('Problem');
+    halt(1);
   end;
   //in delphi it works OK
 end.

tests/webtbs/tw2197.pp

@@ -0,0 +1,16 @@
+
+{ Source provided for Free Pascal Bug Report 2197 }
+{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
+{ e-mail: [email protected] }
+{$APPTYPE CONSOLE}
+{modified sample of Vlad Smaglyuk}
+ procedure Average ({const} Row : Array of byte);
+  begin
+    writeln('Procedure body');
+  end;
+ BEGIN
+     writeln('Before call');
+     Average([1,2,3]);
+     writeln('After call');
+ END.
+

tests/webtbs/tw2198.pp

@@ -0,0 +1,33 @@
+{ Source provided for Free Pascal Bug Report 2198 }
+{ Submitted by "Sebastian Günther" on  2002-10-23 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+
+type
+  TTest = class
+    procedure x;
+    procedure x(i: Integer);
+  end;
+
+procedure TTest.x;
+const s = 'Test1';
+begin
+  writeln(s);
+end;
+
+procedure TTest.x(i: Integer);
+const s = 'Test2';
+begin
+  writeln(s);
+end;
+
+var
+  t : ttest;
+begin
+  t:=ttest.create;
+  t.x;
+  t.x(1);
+  t.free;
+end.
+