From 1ac6a5038df5fb795a97709aef552ca8a5c1ca7f Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Sun, 4 Jul 2010 02:14:46 -0700
Subject: [PATCH] Comment-out glue interrupt-flag test; unclear why it breaks,
 but glue call-tree is always finite anyways so not a big deal for now.

---
 src/boot/me/trans.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index e6662ed6eb2..0815fbac5c8 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -1342,7 +1342,10 @@ let trans_visitor
       abi.Abi.abi_emit_fn_prologue (emitter())
         framesz callsz nabi_rust (upcall_fixup "upcall_grow_task");
       write_frame_info_ptrs None;
-      check_interrupt_flag ();
+      (* FIXME: not clear why, but checking interrupt in glue context
+       * causes many.rs to crash when run on a sufficiently large number
+       * of tasks; possibly a weird interaction with growing? *)
+      (* check_interrupt_flag (); *)
       iflog (fun _ -> annotate "finished prologue");
 
   and emitted_quads e =