diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 10:41:21 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 10:41:21 +0100 |
| commit | d58ae381a0ba929e993c21a6ae65428071f84d3e (patch) | |
| tree | 947b9446bfd9a8ea89caf4519e3d9804244f014c /ia32 | |
| parent | 1772a8118fae5152439965b2f9c9887c60a57c37 (diff) | |
| parent | d4389977e95d3569ff0abb53e1b1fba20254b21e (diff) | |
| download | compcert-kvx-d58ae381a0ba929e993c21a6ae65428071f84d3e.tar.gz compcert-kvx-d58ae381a0ba929e993c21a6ae65428071f84d3e.zip | |
Merge github.com:AbsInt/CompCert
Diffstat (limited to 'ia32')
| -rw-r--r-- | ia32/PrintAsm.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index e6f905a3..b42f4314 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -80,8 +80,8 @@ module Cygwin_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc symb = - fprintf oc "%s" (extern_atom symb) + let symbol oc s = + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc "L%d" lbl @@ -177,9 +177,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 s = + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc ".L%d" lbl @@ -231,8 +231,8 @@ module MacOS_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc symb = - fprintf oc "_%s" (extern_atom symb) + let symbol oc s = + raw_symbol oc (extern_atom symb) let label oc lbl = fprintf oc "L%d" lbl |