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

* inline the ** operators since they just call functions directly

Browse Source 
git-svn-id: trunk@11461 -
This commit is contained in:
Almindor 2008-07-26 10:31:23 +00:00
parent a9d85dea89
commit 3588a9d02c
1 changed files with 4 additions and 4 deletions

8
rtl/objpas/math.pp
View File

@ -314,8 +314,8 @@ function power(base,exponent : float) : float;
{ base^exponent }
function intpower(base : float;const exponent : Integer) : float;
operator ** (bas,expo : float) e: float;
operator ** (bas,expo : int64) i: int64;
operator ** (bas,expo : float) e: float; inline;
operator ** (bas,expo : int64) i: int64; inline;
{ number converting }
@ -909,13 +909,13 @@ function intpower(base : float;const exponent : Integer) : float;
end;
operator ** (bas,expo : float) e: float;
operator ** (bas,expo : float) e: float; inline;
begin
e:=power(bas,expo);
end;
operator ** (bas,expo : int64) i: int64;
operator ** (bas,expo : int64) i: int64; inline;
begin
i:=round(intpower(bas,expo));
end;