diff options
Diffstat (limited to 'arm')
| -rw-r--r-- | arm/Asmexpand.ml | 2 | ||||
| -rw-r--r-- | arm/TargetPrinter.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/arm/Asmexpand.ml b/arm/Asmexpand.ml index 990f207d..fad13c9f 100644 --- a/arm/Asmexpand.ml +++ b/arm/Asmexpand.ml @@ -377,7 +377,7 @@ let expand_instruction instr = | Pbuiltin (ef,args,res) -> begin match ef with | EF_builtin (name,sg) -> - expand_builtin_inline (extern_atom name) args res + expand_builtin_inline (camlstring_of_coqstring name) args res | EF_vload chunk -> expand_builtin_vload chunk args res | EF_vstore chunk -> diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 2e676090..04226900 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -777,7 +777,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = begin match ef with | EF_annot(txt, targs) -> fprintf oc "%s annotation: " comment; - print_annot_text preg "sp" oc (extern_atom txt) args; + print_annot_text preg "sp" oc (camlstring_of_coqstring txt) args; 0 | EF_debug(kind, txt, targs) -> print_debug_info comment print_file_line preg "sp" oc @@ -785,7 +785,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = 0 | EF_inline_asm(txt, sg, clob) -> fprintf oc "%s begin inline assembly\n\t" comment; - print_inline_asm preg oc (extern_atom txt) sg args res; + print_inline_asm preg oc (camlstring_of_coqstring txt) sg args res; fprintf oc "%s end inline assembly\n" comment; 5 (* hoping this is an upper bound... *) | _ -> |