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

* comment and formatting fixes by Christian Budde (mantis #19919)

Browse Source 
git-svn-id: trunk@18134 -
This commit is contained in:
Jonas Maebe 2011-08-07 10:10:51 +00:00
parent 29d33f1aa9
commit 0a88009059
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/math.pp
View File

@ -2365,8 +2365,8 @@ begin
end; end;
// dilemma here. asm can do the two comparisons in one go? // dilemma here. asm can do the two comparisons in one go?
// but pascal is portable and can be i inline;ed. Ah well, we need purepascal's anyway: // but pascal is portable and can be inlined. Ah well, we need purepascal's anyway:
function CompareValue ( const A, B : Integer) : TValueRelationship; function CompareValue(const A, B : Integer): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
@ -2377,7 +2377,7 @@ begin
result:=LessThanValue; result:=LessThanValue;
end; end;
function CompareValue ( const A, B : Int64) : TValueRelationship; function CompareValue(const A, B: Int64): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
@ -2388,7 +2388,7 @@ begin
result:=LessThanValue; result:=LessThanValue;
end; end;
function CompareValue ( const A, B : QWord) : TValueRelationship; function CompareValue(const A, B: QWord): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
@ -2400,7 +2400,7 @@ begin
end; end;
{$ifdef FPC_HAS_TYPE_SINGLE} {$ifdef FPC_HAS_TYPE_SINGLE}
function CompareValue ( const A, B : Single; delta : Single = 0.0) : TValueRelationship; function CompareValue(const A, B: Single; delta: Single = 0.0): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
if abs(a-b)<=delta then if abs(a-b)<=delta then
@ -2412,7 +2412,7 @@ end;
{$endif} {$endif}
{$ifdef FPC_HAS_TYPE_DOUBLE} {$ifdef FPC_HAS_TYPE_DOUBLE}
function CompareValue ( const A, B : Double; delta : Double = 0.0) : TValueRelationship; function CompareValue(const A, B: Double; delta: Double = 0.0): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
if abs(a-b)<=delta then if abs(a-b)<=delta then
@ -2424,7 +2424,7 @@ end;
{$endif} {$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
function CompareValue ( const A, B : Extended; delta : Extended = 0.0) : TValueRelationship; function CompareValue (const A, B: Extended; delta: Extended = 0.0): TValueRelationship;
begin begin
result:=GreaterThanValue; result:=GreaterThanValue;
if abs(a-b)<=delta then if abs(a-b)<=delta then