* fix compile failures

tests/tbs/ub0489.pp

@@ -1,4 +1,5 @@
 {$mode delphi}
+{$inline on}
 
 unit ub0489;
 

tests/webtbs/tw3716.pp → tests/webtbf/tw3716.pp

@@ -1,3 +1,5 @@
+{ %fail }
+
 { Source provided for Free Pascal Bug Report 3716 }
 { Submitted by "Marc Weustink" on  2005-03-01 }
 { e-mail: [email protected] }

tests/webtbs/tw3708.pp

@@ -22,7 +22,7 @@ begin
             end;
         end
       else
-        if (s <> '1.0000000000001') then
+        if (s <> '1'+DecimalSeparator+'0000000000001') then
           begin
             writeln('error');
             halt(1);

tests/webtbs/tw3870.pp

@@ -4,6 +4,7 @@
 program AssertFormatBug;
   { Illustrates bug with using Format in Assert }
 
+{$mode objfpc}
 {$assertions on}
 
 uses