diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-11 09:28:59 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-11 09:28:59 +0200 |
| commit | cdb5ec57d700c5409c0717bb99258a5effed9601 (patch) | |
| tree | 18d02787dda85ce6eb3f2904bd964c6ab29be50b /mppa_k1c/TargetPrinter.ml | |
| parent | 466767d23cbc816b5787e6768e5f9a98a95abca9 (diff) | |
| download | compcert-kvx-cdb5ec57d700c5409c0717bb99258a5effed9601.tar.gz compcert-kvx-cdb5ec57d700c5409c0717bb99258a5effed9601.zip | |
wfxl / wfxm
Diffstat (limited to 'mppa_k1c/TargetPrinter.ml')
| -rw-r--r-- | mppa_k1c/TargetPrinter.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index beac8cfe..af1c5581 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -281,6 +281,10 @@ module Target (*: TARGET*) = fprintf oc " get %a = $s%ld\n" ireg dst (camlint_of_coqint n) | Psetn(n, dst) -> fprintf oc " set $s%ld = %a\n" (camlint_of_coqint n) ireg dst + | Pwfxl(n, dst) -> + fprintf oc " wfxl $s%ld = %a\n" (camlint_of_coqint n) ireg dst + | Pwfxm(n, dst) -> + fprintf oc " wfxm $s%ld = %a\n" (camlint_of_coqint n) ireg dst | Pjumptable (idx_reg, tbl) -> let lbl = new_label() in |