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

* enabled for darwin and solaris

Browse Source 
- removed superfluous call to cosh() which caused fpu overflows

git-svn-id: trunk@4571 -
This commit is contained in:
Jonas Maebe 2006-09-08 16:00:55 +00:00
parent f06ac668b8
commit 27df719ac3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/test/testfpuc.pp
View File

@ -1,4 +1,4 @@
{ %target=linux,freebsd } { %target=linux,freebsd,darwin,solaris }
{$mode objfpc} {$mode objfpc}
program testr; program testr;
@ -29,7 +29,6 @@ begin
f:=f*10.0; f:=f*10.0;
f:=cosh(f); f:=cosh(f);
writeln(buf,round(F)); writeln(buf,round(F));
f:=cosh(f);
end; end;
end; end;