diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-10 22:50:06 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-10 22:50:06 +0200 |
commit | 7cc001e63990ae5e8cf2f75b5148093e31fbdc85 (patch) | |
tree | 2bc8e68ebe99c4b2d169e713b8f805eb1f34c2c4 /mppa_k1c/TargetPrinter.ml | |
parent | 84d6fd30d9cbf684fa14d2f54c23ef582b298eb0 (diff) | |
download | compcert-kvx-7cc001e63990ae5e8cf2f75b5148093e31fbdc85.tar.gz compcert-kvx-7cc001e63990ae5e8cf2f75b5148093e31fbdc85.zip |
get / set k1
Diffstat (limited to 'mppa_k1c/TargetPrinter.ml')
-rw-r--r-- | mppa_k1c/TargetPrinter.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index 3aa6b319..beac8cfe 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -274,8 +274,14 @@ module Target (*: TARGET*) = fprintf oc " goto %a\n" print_label s | Pcb (bt, r, lbl) | Pcbu (bt, r, lbl) -> fprintf oc " cb.%a %a? %a\n" bcond bt ireg r print_label lbl + | Ploopdo (r, lbl) -> - fprintf oc " loopdo %a, %a\n" ireg r print_label lbl + fprintf oc " loopdo %a, %a\n" ireg r print_label lbl + | Pgetn(n, dst) -> + 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 + | Pjumptable (idx_reg, tbl) -> let lbl = new_label() in (* jumptables := (lbl, tbl) :: !jumptables; *) |