- Ajout d'un cast vm dans la syntaxe : x <: t

    Part contre ces cas sont detruis dans les "Definition" 
    (pas dans les "Lemma") je comprends pas ou ils sont enlev'e...
    Si une id'ee ...

- Correction d'un bug dans vm_compute plusieurs fois signal'e par Roland.

- Meilleur compilation des coinductifs, on utilise maintenant vraimment
  du lazy. 

- Enfin un peu plus de doc dans le code de la vm.

  Benjamin



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

1 files changed, 3 insertions, 4 deletions

diff --git a/kernel/byterun/coq_memory.c b/kernel/byterun/coq_memory.c
index db6aacb92..bfcb6812c 100644
--- a/kernel/byterun/coq_memory.c
+++ b/kernel/byterun/coq_memory.c
@@ -34,7 +34,6 @@ int drawinstr;
 
 long coq_saved_sp_offset;
 value * coq_sp;
-value forcable;
 /* Some predefined pointer code */ 
 code_t accumulate;
 
@@ -135,7 +134,6 @@ value init_coq_vm(value unit) /* ML */
     init_coq_atom_tbl(40);
     /* Initialing the interpreter */
     coq_all_transp = 0;
-    forcable = Val_false;
     init_coq_interpreter();
     
     /* Some predefined pointer code */
@@ -266,8 +264,9 @@ value coq_set_drawinstr(value unit)
   return Val_unit;
 }
 
-value coq_set_forcable (value unit)
+
+value coq_print_pointer(value p)
 {
-  forcable = Val_true;
+  printf("pointer = %X\n", p);
   return Val_unit;
 }