paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 00:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compile failures

Browse Source
This commit is contained in:
peter 2005-04-05 21:04:34 +00:00
parent 4f647737ed
commit 86c939c17c
4 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/tbs/ub0489.pp
View File

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

2
tests/webtbs/tw3716.pp → tests/webtbf/tw3716.pp
View File

@ -1,3 +1,5 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 3716 } { Source provided for Free Pascal Bug Report 3716 }
{ Submitted by "Marc Weustink" on 2005-03-01 } { Submitted by "Marc Weustink" on 2005-03-01 }
{ e-mail: marc@freepascal.org } { e-mail: marc@freepascal.org }

2
tests/webtbs/tw3708.pp
View File

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

1
tests/webtbs/tw3870.pp
View File

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