From 8109e38db28ee6d9b97f5a0871361c09db23c07d Mon Sep 17 00:00:00 2001
From: Vincent Snijders <vincents@freepascal.org>
Date: Fri, 15 Dec 2006 09:34:43 +0000
Subject: [PATCH] * use mode fpc, because that uses slightly less memory

git-svn-id: trunk@5603 -
---
 tests/bench/shootout/src/nsieve.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/bench/shootout/src/nsieve.pp b/tests/bench/shootout/src/nsieve.pp
index ba9e3e3547..d2e8fa718b 100644
--- a/tests/bench/shootout/src/nsieve.pp
+++ b/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);