paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 16:19:28 +02: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:

26
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';
@ -162,7 +182,7 @@ var
function MessageBox(w1:longint;l1,l2:PWideChar;w2:longint):longint;
stdcall;external 'coredll' name 'MessageBoxW';
{*****************************************************************************}
{$define FPC_SYSTEM_HAS_MOVE}
@ -1400,7 +1420,7 @@ procedure WinCEWide2AnsiMove(source:pwidechar;var dest:ansistring;len:SizeInt);
setlength(dest, len);
end;
end;
procedure WinCEAnsi2WideMove(source:pchar;var dest:widestring;len:SizeInt);
var
i: integer;
@ -1419,7 +1439,7 @@ procedure WinCEAnsi2WideMove(source:pchar;var dest:widestring;len:SizeInt);
setlength(dest, len);
end;
end;
function WinCEWideUpper(const s : WideString) : WideString;
begin
result:=s;