diff options
Diffstat (limited to 'exportclight/ExportClight.ml')
| -rw-r--r-- | exportclight/ExportClight.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/exportclight/ExportClight.ml b/exportclight/ExportClight.ml index 397d04b1..9563d551 100644 --- a/exportclight/ExportClight.ml +++ b/exportclight/ExportClight.ml @@ -135,6 +135,11 @@ let coqsingle p n = let coqN p n = fprintf p "%ld%%N" (N.to_int32 n) +(* Coq strings *) + +let coqstring p s = + fprintf p "\"%s\"" (camlstring_of_coqstring s) + (* Raw attributes *) let attribute p a = @@ -201,7 +206,8 @@ and typlist p = function and callconv p cc = if cc = cc_default then fprintf p "cc_default" - else fprintf p "{|cc_vararg:=%b; cc_structret:=%b|}" cc.cc_vararg cc.cc_structret + else fprintf p "{|cc_vararg:=%b; cc_unproto:=%b; cc_structret:=%b|}" + cc.cc_vararg cc.cc_unproto cc.cc_structret (* External functions *) @@ -262,7 +268,7 @@ let external_function p = function fprintf p "@[<hov 2>(EF_inline_asm %ld%%positive@ %a@ %a)@]" (P.to_int32 text) signatur sg - (print_list ident) clob + (print_list coqstring) clob (* Expressions *) |