paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 06:47:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* updated to the current version from the shootout

Browse Source 
git-svn-id: trunk@12748 -
This commit is contained in:
Vincent Snijders 2009-02-18 20:33:03 +00:00
parent cb7f19e798
commit 78d1b92d2f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/bench/shootout/src/knucleotide.pp
View File

@ -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.