On Feb 19, 2:19 pm, Wolf Behrenhoff
<NoSpamPleaseButThisIsVal...@[EMAIL PROTECTED]
> wrote:
> Richard Engebretson schrieb:
>
> > I am running your test on a linux virtual console using nr:longint.
> > Still running after over 125,000 recursions. Don't know ?? 175,000 ...
> > snorrr :-)
>
> Oh! That's interesting!
>
> I did the test under Windows XP (str=string[100])
>
> Turbo Pascal: 140 recursions (depends on the -M setting)
> Free Pascal: 3455 recursions (depends on the -Cs setting)
>
> But 175,000? A difference in three orders of magnitude? Something must
> be VERY different!
>
> Wolf
Test program:
type
str=string[100]; (* change the number *)
procedure foo(nr: integer; s:str);
begin
writeln(nr);
foo(nr+1, s);
end;
var
s:str;
begin
foo(0,s);
end.
+++++++++++++
here is my version;
program test_string ;
type test_strings = string[100] ;
procedure number_of_recursions(nr:longint ; s:test_strings);
begin
writeln(nr);
number_of_recursions(nr+1,s);
end;
var s:test_strings;
begin
number_of_recursions(0,s);
end.
I hope I did that right.
Anyway, it didn't stop on its own, I pressed Control-C (linux
interrupt). I didn't want my machine to eat itself. I've had my
SuSE8.1 linux machine running flawlessly for 3 months in spite of my
freepascal programming. Try that on Windows :-)
Big thanks,
Rick.
|
