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

* ifthen doesn't need mathinline. It is not internal on some platforms.

Browse Source 
git-svn-id: trunk@5221 -
This commit is contained in:
marco 2006-11-04 16:01:32 +00:00
parent 86f1fe11d6
commit 66d37158e1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/math.pp
View File

@ -478,10 +478,10 @@ function norm(const data : array of Extended) : float;
function norm(const data : PExtended; Const N : Integer) : float;
{$endif FPC_HAS_TYPE_EXTENDED}
function ifthen(val:boolean;const iftrue:integer; const iffalse:integer= 0) :integer; {$ifdef MATHINLINE}inline; {$endif}
function ifthen(val:boolean;const iftrue:int64 ; const iffalse:int64 = 0) :int64; {$ifdef MATHINLINE}inline; {$endif}
function ifthen(val:boolean;const iftrue:double ; const iffalse:double =0.0):double; {$ifdef MATHINLINE}inline; {$endif}
function ifthen(val:boolean;const iftrue:String ; const iffalse:String ='') :String; {$ifdef MATHINLINE}inline; {$endif}
function ifthen(val:boolean;const iftrue:integer; const iffalse:integer= 0) :integer; inline;
function ifthen(val:boolean;const iftrue:int64 ; const iffalse:int64 = 0) :int64; inline;
function ifthen(val:boolean;const iftrue:double ; const iffalse:double =0.0):double; inline;
function ifthen(val:boolean;const iftrue:String ; const iffalse:String ='') :String; inline;
function CompareValue ( const A, B : Integer) : TValueRelationship; inline;
function CompareValue ( const A, B : Int64) : TValueRelationship; inline;
@ -2101,7 +2101,7 @@ begin
if val then result:=iftrue else result:=iffalse;
end;
function ifthen(val:boolean;const iftrue:String ; const iffalse:String ='') :String; {$ifdef MATHINLINE}inline; {$endif}
function ifthen(val:boolean;const iftrue:String ; const iffalse:String ='') :String; inline;
begin
if val then result:=iftrue else result:=iffalse;
end;