diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 17:24:01 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 17:24:01 +0100 |
| commit | 959542e4cf126c4f46f00c764b5365804de637c6 (patch) | |
| tree | 58eb44d941b65d15537a5c53bccd8257030aadf2 /ia32/PrintAsm.ml | |
| parent | b0c09b32f3e559ca22afc4dc40fdd60964cb3292 (diff) | |
| parent | b0eb1dfc9fd7b15c556c49101390d882b0f00f8a (diff) | |
| download | compcert-959542e4cf126c4f46f00c764b5365804de637c6.tar.gz compcert-959542e4cf126c4f46f00c764b5365804de637c6.zip | |
Merge github.com:AbsInt/CompCert into compcert_windows
Diffstat (limited to 'ia32/PrintAsm.ml')
| -rw-r--r-- | ia32/PrintAsm.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index b0ef0180..2bcd8daf 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -81,7 +81,7 @@ module Cygwin_System = fprintf oc "_%s" s let symbol oc symb = - fprintf oc "%s" (extern_atom symb) + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc "L%d" lbl @@ -128,9 +128,9 @@ module ELF_System = let raw_symbol oc s = fprintf oc "%s" s - - let symbol oc symb = - fprintf oc "%s" (extern_atom symb) + + let symbol oc symb = + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc ".L%d" lbl @@ -183,7 +183,7 @@ module MacOS_System = fprintf oc "_%s" s let symbol oc symb = - fprintf oc "_%s" (extern_atom symb) + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc "L%d" lbl |