diff options
Diffstat (limited to 'kernel/vm.ml')
| -rw-r--r-- | kernel/vm.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index de9bd753a0..131e8320f4 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -469,8 +469,6 @@ let check_cofix vcf1 vcf2 = (current_cofix vcf1 = current_cofix vcf2) && (Obj.size (last (Obj.repr vcf1)) = Obj.size (last (Obj.repr vcf2))) -external print_point : Obj.t -> unit = "coq_print_pointer" - let reduce_cofix k vcf = let fc_typ = ((Obj.obj (last (Obj.repr vcf))) : tcode array) in let ndef = Array.length fc_typ in |