QB64 crash!?

[eoredson]

Try this code and tell me what happens..

btw: It does not display an error..

Code: (Select All)

Print clock$

Function clock$
  clock$ = "date/time is:"
  clock$ = clock$ + Date$ + " " + Time$
End Function

[SMcNeill]

It generates a never-ending recursive call back to clock$, which keeps adding Date$ and Time$ to clock$, until they grow so large, you run out of memory and stack space and crash.

[johannhowitzer]

I don't even need to run it to tell what will happen - the second line of the function is recursively calling the function, which repeats infinitely.  Change the function to do this instead:

c$ = "date/time is:"
clock$ = c$ + date$ + " " + time$

[SMcNeill]

Code: (Select All)

Print clock$

Function clock$
    _Delay .001
    Static count
    count = count + 1
    Print count; "recursive calls in..."
    clock$ = "date/time is:"
    clock$ = clock$ + Date$ + " " + Time$
End Function

14,415 recursive calls to the function, and then it crashes for me.

[Pete]

Time after time, time after time, time after time...

- Cindi Lauper

[eoredson]

It generates a never-ending recursive call back to clock$, which keeps adding Date$ and Time$ to clock$, until they grow so large, you run out of memory and stack space and crash.

My question was that since the following code crashes with an Out Of Memory box:

Code: (Select All)

Dim Large(1024, 1024, 1024, 1024) As Double

Obviously because you can't assign an 8 Terabyte array,

then why can't QB64 display an Out Of Stack box??

Erik.