paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 13:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch for 8452 committed

Browse Source 
git-svn-id: trunk@6781 -
This commit is contained in:
marco 2007-03-10 21:05:48 +00:00
parent e52a4e3b9f
commit b7b057d570
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/math.pp
View File

@ -527,6 +527,8 @@ function ifthen(val:boolean;const iftrue:String ; const iffalse:String ='') :Str
function CompareValue ( const A, B : Integer) : TValueRelationship; inline;
function CompareValue ( const A, B : Int64) : TValueRelationship; inline;
function CompareValue ( const A, B : QWord) : TValueRelationship; inline;
{$ifdef FPC_HAS_TYPE_SINGLE}
function CompareValue ( const A, B : Single; delta : Single = 0.0 ) : TValueRelationship; inline;
{$endif}
@ -2303,6 +2305,17 @@ begin
result:=LessThanValue;
end;
function CompareValue ( const A, B : QWord) : TValueRelationship;
begin
result:=GreaterThanValue;
if a=b then
result:=EqualsValue
else
if a<b then
result:=LessThanValue;
end;
{$ifdef FPC_HAS_TYPE_SINGLE}
function CompareValue ( const A, B : Single; delta : Single = 0.0) : TValueRelationship;
begin