paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:10:19 +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}
{ the external directive isn't really necessary here because it is overridden by external (FK) }
function addd(d1,d2 : double) : double; compilerproc;
cdecl;external 'coredll' name '__addd';
@ -282,22 +280,22 @@ end;
function adds(s1,s2 : single) : single;
begin
adds := addd(s1, s2);
adds := double(s1) + double(s2);
end;
function subs(s1,s2 : single) : single;
begin
subs := subd(s1, s2);
subs := double(s1) - double(s2);
end;
function muls(s1,s2 : single) : single;
begin
muls := muld(s1, s2);
muls := double(s1) * double(s2);
end;
function divs(s1,s2 : single) : single;
begin
divs := divd(s1, s2);
divs := double(s1) / double(s2);
end;
{$endif CPUARM}