diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-05-15 13:26:08 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-05-15 13:26:08 +0000 |
| commit | e204d29d8f1c1a6606067bb7c294aa6bb3a25ad4 (patch) | |
| tree | 5711666eb383627f74c03290c305a4bba32d6a7b /byterun/stacks.c | |
| parent | 3f1b15e439b0dc23116500b57cb3b6649299beec (diff) | |
fail.[ch], stacks.c: ajout de l'exception Stack_overflow
printexc.c: meilleur affichage
memory.c: parentheser comme le suggere gcc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1552 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/stacks.c')
| -rw-r--r-- | byterun/stacks.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/stacks.c b/byterun/stacks.c index 565391926..82f754176 100644 --- a/byterun/stacks.c +++ b/byterun/stacks.c @@ -50,7 +50,7 @@ void realloc_stack() Assert(extern_sp >= stack_low); size = stack_high - stack_low; - if (size >= max_stack_size) raise_out_of_memory(); + if (size >= max_stack_size) raise_stack_overflow(); size *= 2; gc_message ("Growing stack to %luk bytes\n", (unsigned long) size * sizeof(value) / 1024); |