+ 788,793 and 802

tests/webtbs/tbug788.pp

@@ -0,0 +1,11 @@
+Uses Math;
+
+Var
+   I : Integer;
+
+Begin
+   For I := 0 To 359 Do
+   Begin
+      WriteLn( RadToDeg(ArcSin( DegToRad(Real(I)))):3:18);
+   End
+End.

tests/webtbs/tbug793.pp

@@ -0,0 +1,29 @@
+{$MODE Delphi}
+
+program bug;
+type
+
+TMyObject = class
+  public
+    constructor Create; virtual;
+    constructor Init;
+end;
+
+var
+  M: TMyObject;
+
+
+constructor TMyObject.Create;
+begin
+  Writeln('Now executing  TmyObject.Create');
+end;
+
+constructor TMyObject.Init;
+begin
+  Create;
+  Writeln('Now finishing the INIT constructor.');
+end;
+
+begin
+  M := TMyObject.Init;
+end.

tests/webtbs/tbug802.pp

@@ -0,0 +1,9 @@
+program test;
+  function testf (a:byte;b:integer;c:char):char;
+  begin
+    testf:=c;
+  end;
+begin
+  writeln('"',testf(0,-1,'A'),'"');
+end.
+