diff options
Diffstat (limited to 'backend/PrintAsmaux.ml')
-rw-r--r-- | backend/PrintAsmaux.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 4a612c26..0ca5b8e0 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -129,6 +129,12 @@ let cfi_rel_offset = else (fun _ _ _ -> ()) +let cfi_section = + if Configuration.asm_supports_cfi then + (fun oc -> fprintf oc " .cfi_sections .debug_frame\n") + else + (fun _ -> ()) + (* Basic printing functions *) let coqint oc n = fprintf oc "%ld" (camlint_of_coqint n) |