From 695cfee08081903955d9cac8ddac3cba0c1104bb Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Fri, 20 Jul 2001 14:18:08 +0000
Subject: [PATCH] PR#437

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3586 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 byterun/memory.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/byterun/memory.c b/byterun/memory.c
index ac3af8057..4d9d3c9b4 100644
--- 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);