* added mode objfpc to prevent alignment problems

git-svn-id: trunk@8926 -

tests/bench/shootout/src/recursive.lpi

@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectOptions>
     <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <MainUnitHasUsesSectionForAllUnits Value="False"/>
@@ -11,6 +11,7 @@
       </Flags>
       <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
     </General>
     <VersionInfo>
@@ -18,7 +19,6 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
@@ -43,8 +43,17 @@
   <CompilerOptions>
     <Version Value="5"/>
     <PathDelim Value="\"/>
+    <Parsing>
+      <SyntaxOptions>
+        <D2Extensions Value="False"/>
+        <CStyleOperator Value="False"/>
+        <AllowLabel Value="False"/>
+        <CPPInline Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <CodeGeneration>
       <Generate Value="Faster"/>
+      <TargetCPU Value="i386"/>
       <Optimizations>
         <OptimizationLevel Value="3"/>
       </Optimizations>
@@ -56,7 +65,10 @@
       <LinkSmart Value="True"/>
     </Linking>
     <Other>
-      <CustomOptions Value="-Cppentium4"/>
+      <CustomOptions Value="-Cppentium4
+-Oppentium4
+-Cs512000
+"/>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>

tests/bench/shootout/src/recursive.pp

@@ -7,12 +7,12 @@
 
 program recursive;
 
-{$I-}{$OPTIMIZATION TAILREC}
+{$mode objfpc}{$I-}{$OPTIMIZATION TAILREC}
 
 var
-   n : integer;
+   n : longint;
 
-function Ack(x : integer; y : integer): integer;
+function Ack(x : longint; y : longint): longint;
 begin
    if x = 0 then
       Ack := y + 1
@@ -21,7 +21,7 @@ begin
    else Ack := Ack(x-1, Ack(x, y-1));
 end; { Ack }
 
-function Fib(n : integer): integer;
+function Fib(n : longint): longint;
 begin
    if n < 2 then
       Fib := 1
@@ -35,7 +35,7 @@ begin
    else FibFP := FibFP(n - 2) + FibFP(n - 1)
 end; { FibFP }
 
-function Tak(x : integer; y: integer; z : integer): integer;
+function Tak(x : longint; y: longint; z : longint): longint;
 begin
    if y < x then
       Tak := Tak( Tak(x-1, y, z), Tak(y-1, z, x), Tak(z-1, x, y) )