From 881caba4c38f78b845005b1fecfcd8c53b1b3a2b Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 28 Dec 2011 18:11:45 +0000
Subject: [PATCH]  * power functions added

git-svn-id: trunk@19900 -
---
 rtl/inc/system.fpd | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
index f373414f42..f3b26efa04 100644
--- a/rtl/inc/system.fpd
+++ b/rtl/inc/system.fpd
@@ -57,6 +57,8 @@ Procedure SetLength(Var S : AStringType; Len : Integer);
 Procedure SetLength(Var A : DynArrayType; Len : Integer);
 Function Length(S : AStringType) : Integer;
 Function Length(A : DynArrayType) : Integer;
+Function Power(Base:double;expon:double):double;
+Function Power(Base:Longint;expon:Longint):Longint;
 Procedure WriteStr(Out S : String; Args : Arguments);
 Procedure ReadStr(Const S : String; Args : Arguments);
 Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);