* use mode fpc, because that uses slightly less memory

git-svn-id: trunk@5603 -

tests/bench/shootout/src/nsieve.pp

@@ -6,15 +6,15 @@
 
 program nsieve;
 
-{$mode objfpc}{$I-}
+{$mode fpc}{$I-}
 
 var
-  n : integer;
+  n : longint;
 
-procedure primes(n : integer); inline;
+procedure primes(n : longint); inline;
 var
   flags: PBoolean;
-  size,i,j,count : integer;
+  size,i,j,count : longint;
 begin
   size := 10000 shl n;
   flags := getmem(size+1);