diff --git a/.gitattributes b/.gitattributes index 517640c5c7..138499c6c9 100644 --- a/.gitattributes +++ b/.gitattributes @@ -5640,6 +5640,7 @@ tests/bench/shootout/src/mandelbrot.pp svneol=native#text/plain tests/bench/shootout/src/meteorshower.pp svneol=native#text/x-pascal tests/bench/shootout/src/nsieve.pp svneol=native#text/plain tests/bench/shootout/src/partialsums.pp svneol=native#text/plain +tests/bench/shootout/src/recursive.lpi svneol=native#text/plain tests/bench/shootout/src/recursive.pp svneol=native#text/plain tests/bench/shootout/src/regexdna.pp svneol=native#text/plain tests/bench/shootout/src/simple_hash.pp svneol=native#text/plain diff --git a/tests/bench/shootout/src/recursive.lpi b/tests/bench/shootout/src/recursive.lpi new file mode 100644 index 0000000000..91ae33a001 --- /dev/null +++ b/tests/bench/shootout/src/recursive.lpi @@ -0,0 +1,63 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/tests/bench/shootout/src/recursive.pp b/tests/bench/shootout/src/recursive.pp index 264a21055e..85f45a3a9d 100644 --- a/tests/bench/shootout/src/recursive.pp +++ b/tests/bench/shootout/src/recursive.pp @@ -7,7 +7,7 @@ program recursive; -{$I-} +{$I-}{$OPTIMIZATION TAILREC} var n : integer; @@ -28,7 +28,7 @@ begin else Fib := Fib(n - 2) + Fib(n - 1) end; { Fib } -function FibFP(n : double): double; +function FibFP(n : double): double; inline; begin if n < 2 then FibFP := 1