diff options
| author | Maxime Dénès | 2018-05-16 15:25:34 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-05-16 15:25:34 +0200 |
| commit | d74d72419f5e9b68fe8ec9e8c046faecacf9f2f4 (patch) | |
| tree | 045e6940c2d292f296c577e28ef1fb2d9835e17e /kernel/cemitcodes.ml | |
| parent | 19e24bf1f5eefee37ee2648c04844b5ea3ca2ab2 (diff) | |
| parent | 5c0b2171844cee7a5344c535c2793e362d925e0c (diff) | |
Merge PR #7079: Remove naked pointers from the VM
Diffstat (limited to 'kernel/cemitcodes.ml')
| -rw-r--r-- | kernel/cemitcodes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cemitcodes.ml b/kernel/cemitcodes.ml index 14f4f27c09..cea09c5104 100644 --- a/kernel/cemitcodes.ml +++ b/kernel/cemitcodes.ml @@ -20,7 +20,7 @@ open Mod_subst type emitcodes = String.t -external tcode_of_code : Bytes.t -> int -> Vmvalues.tcode = "coq_tcode_of_code" +external tcode_of_code : Bytes.t -> Vmvalues.tcode = "coq_tcode_of_code" (* Relocation information *) type reloc_info = @@ -82,7 +82,7 @@ let patch buff pl f = (** Order seems important here? *) let reloc = CArray.map (fun (r, pos) -> (f r, pos)) pl.reloc_infos in let buff = patch_int buff reloc in - tcode_of_code buff (Bytes.length buff) + tcode_of_code buff (* Buffering of bytecode *) |