From 076df335e894d1dd6d9c99ce4358e56cee41f9bc Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 28 Jul 2008 12:47:24 +0000
Subject: [PATCH] + benchmark to test md5 improvement by internal rol

git-svn-id: trunk@11471 -
---
 .gitattributes      |  1 +
 tests/bench/bmd5.pp | 26 ++++++++++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 tests/bench/bmd5.pp

diff --git a/.gitattributes b/.gitattributes
index dc9a647d28..61eb6c2777 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6168,6 +6168,7 @@ tests/bench/bansi1.pp -text
 tests/bench/bansi1mt.pp svneol=native#text/plain
 tests/bench/blists1.inc svneol=native#text/plain
 tests/bench/blists1.pp svneol=native#text/plain
+tests/bench/bmd5.pp svneol=native#text/plain
 tests/bench/dmisc.pas svneol=native#text/plain
 tests/bench/drystone.pas svneol=native#text/plain
 tests/bench/pi.c -text
diff --git a/tests/bench/bmd5.pp b/tests/bench/bmd5.pp
new file mode 100644
index 0000000000..4ee60df201
--- /dev/null
+++ b/tests/bench/bmd5.pp
@@ -0,0 +1,26 @@
+{$mode objfpc}
+uses
+  stopuhr,md5;
+
+
+const
+  Strings: array[1..7] of string = (
+    '',
+    'a',
+    'abc',
+    'message digest',
+    'abcdefghijklmnopqrstuvwxyz',
+    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789',
+    '12345678901234567890123456789012345678901234567890123456789012345678901234567890'
+    );
+
+var
+  i,j : integer;
+  s : string;
+begin
+  start;
+  for i:=1 to 500000 do
+    for j:=low(Strings) to high(Strings) do
+      MDString(Strings[j],MD_VERSION_5);
+  stop;
+end.