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

* don't call softfp compilerprocs in the implementation of others, but let

Browse Source 
them be called implicitly by the compiler (these symbols are no longer
    accessible from Pascal code since r31404)

git-svn-id: trunk@31477 -
This commit is contained in:
Jonas Maebe 2015-09-02 09:53:57 +00:00
parent 5cfeaedd23
commit 675c02dd17
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/wince/system.pp
View File

@ -105,8 +105,6 @@ function CreateFileW(lpFileName:pwidechar; dwDesiredAccess:DWORD; dwShareMode:DW
{$ifdef CPUARM} {$ifdef CPUARM}
{ the external directive isn't really necessary here because it is overridden by external (FK) }
function addd(d1,d2 : double) : double; compilerproc; function addd(d1,d2 : double) : double; compilerproc;
cdecl;external 'coredll' name '__addd'; cdecl;external 'coredll' name '__addd';
@ -282,22 +280,22 @@ end;
function adds(s1,s2 : single) : single; function adds(s1,s2 : single) : single;
begin begin
adds := addd(s1, s2); adds := double(s1) + double(s2);
end; end;
function subs(s1,s2 : single) : single; function subs(s1,s2 : single) : single;
begin begin
subs := subd(s1, s2); subs := double(s1) - double(s2);
end; end;
function muls(s1,s2 : single) : single; function muls(s1,s2 : single) : single;
begin begin
muls := muld(s1, s2); muls := double(s1) * double(s2);
end; end;
function divs(s1,s2 : single) : single; function divs(s1,s2 : single) : single;
begin begin
divs := divd(s1, s2); divs := double(s1) / double(s2);
end; end;
{$endif CPUARM} {$endif CPUARM}