paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 00:08:43 +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}
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
bl __dtoi64
b __dtoi64
end;
{$define FPC_SYSTEM_HAS_ABS}
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
bl fabs
b fabs
end;
{$define FPC_SYSTEM_HAS_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
bl coresqrt
b coresqrt
end;
function adds(s1,s2 : single) : single;