PR#437

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3586 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2001-07-20 14:18:08 +00:00 · 2001-07-20 14:18:08 +00:00 · 695cfee080
parent 41dc6c3f04
commit 695cfee080
1 changed files with 1 additions and 0 deletions
--- a/byterun/memory.c
+++ b/byterun/memory.c
@ -224,6 +224,7 @@ value alloc_shr (mlsize_t wosize, tag_t tag)
 {
  char *hp, *new_block;

+  if (wosize > Max_wosize) raise_out_of_memory ();
  hp = fl_allocate (wosize);
  if (hp == NULL){
    new_block = expand_heap (wosize);