diff --git a/rtl/wince/system.pp b/rtl/wince/system.pp
index 785e19b32c..84a06be6c5 100644
--- a/rtl/wince/system.pp
+++ b/rtl/wince/system.pp
@@ -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}