diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 11:17:39 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 11:17:39 +0100 |
commit | b0eb1dfc9fd7b15c556c49101390d882b0f00f8a (patch) | |
tree | 58bd8ccbbcdc2756fa323ac79aa3041c714b34ec | |
parent | d4389977e95d3569ff0abb53e1b1fba20254b21e (diff) | |
download | compcert-b0eb1dfc9fd7b15c556c49101390d882b0f00f8a.tar.gz compcert-b0eb1dfc9fd7b15c556c49101390d882b0f00f8a.zip |
The parameter should also have the old name.
-rw-r--r-- | ia32/PrintAsm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index 036dbda8..2bcd8daf 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -80,7 +80,7 @@ module Cygwin_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc s = + let symbol oc symb = raw_symbol oc (extern_atom symb) let label oc lbl = @@ -129,7 +129,7 @@ module ELF_System = let raw_symbol oc s = fprintf oc "%s" s - let symbol oc s = + let symbol oc symb = raw_symbol oc (extern_atom symb) let label oc lbl = @@ -182,7 +182,7 @@ module MacOS_System = let raw_symbol oc s = fprintf oc "_%s" s - let symbol oc s = + let symbol oc symb = raw_symbol oc (extern_atom symb) let label oc lbl = |