diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-11 12:05:31 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-11 12:05:31 +0200 |
| commit | 0de3d126e70dfedfd6f74710da31c4b9636f900a (patch) | |
| tree | 43b19f66ef97def541881bceebcbdac4cfca8fb2 /powerpc/TargetPrinter.ml | |
| parent | 2809e264a4c146b31b5009fba08f74d12126a1b3 (diff) | |
| download | compcert-0de3d126e70dfedfd6f74710da31c4b9636f900a.tar.gz compcert-0de3d126e70dfedfd6f74710da31c4b9636f900a.zip | |
Use the gcc version of atomic load.
Diffstat (limited to 'powerpc/TargetPrinter.ml')
| -rw-r--r-- | powerpc/TargetPrinter.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index f5295777..1f1306c0 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -416,6 +416,11 @@ module Target (System : SYSTEM):TARGET = fprintf oc " bl %a\n" symbol s | Pbne lbl -> fprintf oc " bne- %a\n" label (transl_label lbl) + | Pbne_rel ofs -> + let ofs = camlint_of_coqint ofs in + let sign = if ofs >= 0l then "+" else "-" in + let ofs = Int32.abs ofs in + fprintf oc " bne- $%s%ld\n" sign ofs | Pbs(s, sg) -> fprintf oc " b %a\n" symbol s | Pblr -> |