From e58e92c4fad902e5a08afc08c471d0106b231b99 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Jan 2006 19:46:14 +0000
Subject: [PATCH]   * added sumInt

git-svn-id: trunk@2380 -
---
 rtl/objpas/math.pp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/rtl/objpas/math.pp b/rtl/objpas/math.pp
index 71970f0cbf..b23d1d85ab 100644
--- a/rtl/objpas/math.pp
+++ b/rtl/objpas/math.pp
@@ -304,6 +304,8 @@ function mean(const data : array of float) : float;
 function sum(const data : array of float) : float;
 function mean(const data : PFloat; Const N : longint) : float;
 function sum(const data : PFloat; Const N : Longint) : float;
+function sumInt(const data : PInt64;Const N : longint) : Int64;
+function sumInt(const data : array of Int64) : Int64;
 function sumofsquares(const data : array of float) : float;
 function sumofsquares(const data : PFloat; Const N : Integer) : float;
 { calculates the sum and the sum of squares of data }
@@ -752,6 +754,23 @@ function sum(const data : PFloat;Const N : longint) : float;
        sum:=sum+data[i];
   end;
 
+function sumInt(const data : PInt64;Const N : longint) : Int64;
+
+  var
+     i : longint;
+
+  begin
+     sumInt:=0;
+     for i:=0 to N-1 do
+       sumInt:=sumInt+data[i];
+  end;
+
+function sumInt(const data : array of Int64) : Int64;
+
+  begin
+     Result:=SumInt(@Data[0],High(Data)+1);
+  end;
+
  function sumofsquares(const data : array of float) : float;
 
  begin