paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 19:46:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added mode objfpc to prevent alignment problems

Browse Source 
git-svn-id: trunk@8926 -
This commit is contained in:
Vincent Snijders 2007-10-25 14:34:01 +00:00
parent ebe62e17ae
commit a9b0952c77
2 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/bench/shootout/src/recursive.lpi
View File

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

10
tests/bench/shootout/src/recursive.pp
View File

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