diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-17 11:24:47 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-17 11:24:47 +0200 |
| commit | e46fa563d09371c74994957e260b7db14df9a7db (patch) | |
| tree | cf68c35c0ea050702ed61c80168072ef77e2e4ce /exportclight/ExportClight.ml | |
| parent | c6e03d61ee776aacc859fd162e47cb7ba0fb3079 (diff) | |
| download | compcert-kvx-e46fa563d09371c74994957e260b7db14df9a7db.tar.gz compcert-kvx-e46fa563d09371c74994957e260b7db14df9a7db.zip | |
Update clightgen w.r.t. EF_inline_asm (type of the clobber list).
Diffstat (limited to 'exportclight/ExportClight.ml')
| -rw-r--r-- | exportclight/ExportClight.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/exportclight/ExportClight.ml b/exportclight/ExportClight.ml index 397d04b1..9f8d596c 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 = @@ -262,7 +267,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 *) |