test: un boolean et une fonction check_for_interrupt inseree dans la conversion pour permettre a Coq IDE d'interrompre Coq

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3871 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/util.ml b/lib/util.ml
index eca6e9885e..982546ca9c 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -723,3 +723,10 @@ let heap_size () =
   (max_words_total * Sys.word_size / 8)
 
 let heap_size_kb () = (heap_size () + 1023) / 1024
+
+(*s interruption *)
+
+let interrupt = ref false
+let check_for_interrupt () = 
+  if !interrupt then begin interrupt := false; raise Sys.Break end
+