Browse Source

* adds,subs,muls,divs compilerprocs declaration was fixed.

git-svn-id: trunk@1312 -
yury 20 years ago
parent
commit
09bb934c15
1 changed files with 9 additions and 4 deletions
  1. 9 4
      rtl/wince/system.pp

+ 9 - 4
rtl/wince/system.pp

@@ -172,6 +172,11 @@ function ui64tod(i : qword) : double; compilerproc;
 function i64tod(i : int64) : double; compilerproc;
    cdecl;external 'coredll' name '__i64tod';
 
+function adds(s1,s2 : single) : single; compilerproc;
+function subs(s1,s2 : single) : single; compilerproc;
+function muls(s1,s2 : single) : single; compilerproc;
+function divs(s1,s2 : single) : single; compilerproc;
+
 implementation
 
 var
@@ -221,22 +226,22 @@ function fpc_abs_real(d : double) : double;compilerproc;
 function fpc_sqrt_real(d : double) : double;compilerproc;
    external 'coredll' name 'sqrt';
 
-function adds(s1,s2 : single) : single; compilerproc;
+function adds(s1,s2 : single) : single;
 begin
   adds := addd(s1, s2);
 end;
 
-function subs(s1,s2 : single) : single; compilerproc;
+function subs(s1,s2 : single) : single;
 begin
   subs := subd(s1, s2);
 end;
 
-function muls(s1,s2 : single) : single; compilerproc;
+function muls(s1,s2 : single) : single;
 begin
   muls := muld(s1, s2);
 end;
 
-function divs(s1,s2 : single) : single; compilerproc;
+function divs(s1,s2 : single) : single;
 begin
   divs := divd(s1, s2);
 end;