paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 06:39:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed double comparison on wince

Browse Source 
git-svn-id: trunk@1262 -
This commit is contained in:
florian 2005-10-03 07:43:36 +00:00
parent 022e3ceef8
commit d9c071da6d
2 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nadd.pas
View File

@ -1817,7 +1817,7 @@ implementation
if not(target_info.system in system_wince) then
begin
case tfloatdef(resulttype.def).typ of
case tfloatdef(left.resulttype.def).typ of
s32real:
procname:='float32';
s64real:
@ -1889,7 +1889,7 @@ implementation
else
CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),left.resulttype.def.typename,right.resulttype.def.typename);
end;
case tfloatdef(resulttype.def).typ of
case tfloatdef(left.resulttype.def).typ of
s32real:
procname:=procname+'S';
s64real:

20
rtl/wince/system.pp
View File

@ -110,6 +110,26 @@ function muld(d1,d2 : double) : double; compilerproc;
function divd(d1,d2 : double) : double; compilerproc;
cdecl;external 'coredll' name '__divd';
function eqd(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__eqd';
function ned(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__ned';
function ltd(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__ltd';
function gtd(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__gtd';
function ged(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__ged';
function led(d1,d2 : double) : boolean; compilerproc;
cdecl;external 'coredll' name '__led';
{ ***************** single ******************** }
function eqs(d1,d2 : single) : boolean; compilerproc;
cdecl;external 'coredll' name '__eqs';