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

* compiler procs fixes.

Browse Source 
git-svn-id: trunk@3664 -
This commit is contained in:
yury 2006-05-24 23:53:53 +00:00
parent 5d82676f78
commit a4c152e384
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/wince/system.pp
View File

@ -222,25 +222,25 @@ end;
{$define FPC_SYSTEM_HAS_TRUNC} {$define FPC_SYSTEM_HAS_TRUNC}
function __dtoi64(d: double) : int64; external 'coredll'; function __dtoi64(d: double) : int64; external 'coredll';
function fpc_trunc_real(d : ValReal) : int64; assembler; nostackframe; compilerproc; {$ifdef SYSTEMINLINE}inline;{$endif} function fpc_trunc_real(d : ValReal) : int64; assembler; nostackframe; compilerproc;
asm asm
bl __dtoi64 b __dtoi64
end; end;
{$define FPC_SYSTEM_HAS_ABS} {$define FPC_SYSTEM_HAS_ABS}
function fabs(d: double): double; external 'coredll'; function fabs(d: double): double; external 'coredll';
function fpc_abs_real(d : ValReal) : ValReal; assembler; nostackframe; compilerproc; {$ifdef SYSTEMINLINE}inline;{$endif} function fpc_abs_real(d : ValReal) : ValReal; assembler; nostackframe; compilerproc;
asm asm
bl fabs b fabs
end; end;
{$define FPC_SYSTEM_HAS_SQRT} {$define FPC_SYSTEM_HAS_SQRT}
function coresqrt(d: double): double; external 'coredll' name 'sqrt'; function coresqrt(d: double): double; external 'coredll' name 'sqrt';
function fpc_sqrt_real(d : ValReal) : ValReal; assembler; nostackframe; compilerproc; {$ifdef SYSTEMINLINE}inline;{$endif} function fpc_sqrt_real(d : ValReal) : ValReal; assembler; nostackframe; compilerproc;
asm asm
bl coresqrt b coresqrt
end; end;
function adds(s1,s2 : single) : single; function adds(s1,s2 : single) : single;