paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +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> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="6"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
@ -11,6 +11,7 @@
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
@ -18,7 +19,6 @@
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
@ -43,8 +43,17 @@
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<D2Extensions Value="False"/>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>
<TargetCPU Value="i386"/>
<Optimizations> <Optimizations>
<OptimizationLevel Value="3"/> <OptimizationLevel Value="3"/>
</Optimizations> </Optimizations>
@ -56,7 +65,10 @@
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
</Linking> </Linking>
<Other> <Other>
<CustomOptions Value="-Cppentium4"/> <CustomOptions Value="-Cppentium4
-Oppentium4
-Cs512000
"/>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

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

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