diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-30 12:10:07 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-30 12:10:07 +0000 |
commit | 40141e6651bf02ef56d35bd6b3e64e4445d1593f (patch) | |
tree | e2b5929ae5715f8b41d1666c652446a38ce98dae /powerpc | |
parent | 11409781d99e934dc1cd7d27e397c55faab5792b (diff) |
Updated Linux conventions
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1301 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc')
-rw-r--r-- | powerpc/PrintAsm.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index c2964cd..31143fb 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -94,7 +94,8 @@ let label_high oc lbl = let comment = match target with - | MacOS|Linux -> ";" + | MacOS -> ";" + | Linux -> "#" | Diab -> "%" let constant oc cst = @@ -117,10 +118,12 @@ let constant oc cst = end | Csymbol_sda(s, n) -> begin match target with + | MacOS -> + assert false + | Linux -> + fprintf oc "(%a)@sda21" symbol_offset (s, camlint_of_coqint n) | Diab -> fprintf oc "(%a)@sdarx" symbol_offset (s, camlint_of_coqint n) - | _ -> - assert false end let num_crbit = function |