From 78d1b92d2febc72834b39358da9ab2cd4ba27eca Mon Sep 17 00:00:00 2001 From: Vincent Snijders Date: Wed, 18 Feb 2009 20:33:03 +0000 Subject: [PATCH] * updated to the current version from the shootout git-svn-id: trunk@12748 - --- tests/bench/shootout/src/knucleotide.pp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/tests/bench/shootout/src/knucleotide.pp b/tests/bench/shootout/src/knucleotide.pp index d22f6d2cf5..767c01c811 100644 --- a/tests/bench/shootout/src/knucleotide.pp +++ b/tests/bench/shootout/src/knucleotide.pp @@ -1,13 +1,13 @@ -(* The Computer Language Shootout +(* The Computer Language Benchmarks Game http://shootout.alioth.debian.org/ contributed by Josh Goldfoot modified by Vincent Snijders *) -program knucleotide; +{$mode objfpc} -{$mode objfpc}{$I-}{$INLINE ON} +program knucleotide; (* simple_hash available from CVS *) @@ -21,7 +21,7 @@ const 1572869, 3145739, 6291469, 12582917, 25165843, 50331653, 100663319, 201326611, 402653189, 805306457, 1610612741, 3221225473, 4294967291 ); - + type { TNonFreePooledMemManager - a memory manager for records without freeing } @@ -243,7 +243,7 @@ begin end; result := nil; end; - + {==============================================================================} type @@ -393,3 +393,4 @@ begin //SetPrecisionMode(pmDouble); main; end. +