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

* fpc_int_real fixed for wince.

Browse Source 
git-svn-id: trunk@4095 -
This commit is contained in:
yury 2006-07-05 22:08:53 +00:00
parent f9f7531db6
commit 47bd76cd2f
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/wince/system.pp
View File

@ -214,9 +214,18 @@ end;
{$ifdef CPUARM}
{$define FPC_SYSTEM_HAS_INT}
function floor(d : double) : double;
cdecl;external 'coredll' name 'floor';
function ceil(d : double) : double;
cdecl;external 'coredll' name 'ceil';
function fpc_int_real(d: ValReal): ValReal;compilerproc;
begin
fpc_int_real := i64tod(trunc(d));
if d > 0 then
fpc_int_real:=floor(d)
else
fpc_int_real:=ceil(d);
end;
{$define FPC_SYSTEM_HAS_TRUNC}