* fix compile failures

2025-09-05 20:30:53 +02:00 · 2005-04-05 21:04:34 +00:00 · 2005-04-05 21:04:34 +00:00 · 86c939c17c
commit 86c939c17c
parent 4f647737ed
4 changed files with 5 additions and 1 deletions
--- a/tests/tbs/ub0489.pp
+++ b/tests/tbs/ub0489.pp
@ -1,4 +1,5 @@
 {$mode delphi}
+{$inline on}

 unit ub0489;

--- a/tests/webtbf/tw3716.pp
+++ b/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: marc@freepascal.org }
--- a/tests/webtbs/tw3708.pp
+++ b/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);
--- a/tests/webtbs/tw3870.pp
+++ b/tests/webtbs/tw3870.pp
@ -4,6 +4,7 @@
 program AssertFormatBug;
  { Illustrates bug with using Format in Assert }

+{$mode objfpc}
 {$assertions on}

 uses