k1c -> kvx changes

1 files changed, 0 insertions, 229 deletions

diff --git a/mppa_k1c/PrintOp.ml b/mppa_k1c/PrintOp.ml
deleted file mode 100644
index da7d6c32..00000000
--- a/mppa_k1c/PrintOp.ml
+++ /dev/null
@@ -1,229 +0,0 @@
-(* *************************************************************)
-(*                                                             *)
-(*             The Compcert verified compiler                  *)
-(*                                                             *)
-(*           Sylvain Boulmé     Grenoble-INP, VERIMAG          *)
-(*           Xavier Leroy       INRIA Paris-Rocquencourt       *)
-(*           David Monniaux     CNRS, VERIMAG                  *)
-(*           Cyril Six          Kalray                         *)
-(*                                                             *)
-(*  Copyright Kalray. Copyright VERIMAG. All rights reserved.  *)
-(*  This file is distributed under the terms of the INRIA      *)
-(*  Non-Commercial License Agreement.                          *)
-(*                                                             *)
-(* *************************************************************)
-
-(** Pretty-printing of operators, conditions, addressing modes *)
-
-open Printf
-open Camlcoq
-open Integers
-open Op
-open ExtValues
-   
-let comparison_name = function
-  | Ceq -> "=="
-  | Cne -> "!="
-  | Clt -> "<"
-  | Cle -> "<="
-  | Cgt -> ">"
-  | Cge -> ">="
-
-let print_condition reg pp = function
-  | (Ccomp c, [r1;r2]) ->
-      fprintf pp "%a %ss %a" reg r1 (comparison_name c) reg r2
-  | (Ccompu c, [r1;r2]) ->
-      fprintf pp "%a %su %a" reg r1 (comparison_name c) reg r2
-  | (Ccompimm(c, n), [r1]) ->
-      fprintf pp "%a %ss %ld" reg r1 (comparison_name c) (camlint_of_coqint n)
-  | (Ccompuimm(c, n), [r1]) ->
-      fprintf pp "%a %su %ld" reg r1 (comparison_name c) (camlint_of_coqint n)
-  | (Ccompf c, [r1;r2]) ->
-      fprintf pp "%a %sf %a" reg r1 (comparison_name c) reg r2
-  | (Ccompl c, [r1;r2]) ->
-      fprintf pp "%a %sls %a" reg r1 (comparison_name c) reg r2
-  | (Ccomplu c, [r1;r2]) ->
-      fprintf pp "%a %slu %a" reg r1 (comparison_name c) reg r2
-  | (Ccomplimm(c, n), [r1]) ->
-      fprintf pp "%a %sls %Ld" reg r1 (comparison_name c) (camlint64_of_coqint n)
-  | (Ccompluimm(c, n), [r1]) ->
-      fprintf pp "%a %slu %Lu" reg r1 (comparison_name c) (camlint64_of_coqint n)
-  | (Cnotcompf c, [r1;r2]) ->
-      fprintf pp "%a not(%sf) %a" reg r1 (comparison_name c) reg r2
-  | (Ccompfs c, [r1;r2]) ->
-      fprintf pp "%a %sfs %a" reg r1 (comparison_name c) reg r2
-  | (Cnotcompfs c, [r1;r2]) ->
-      fprintf pp "%a not(%sfs) %a" reg r1 (comparison_name c) reg r2
-  | _ ->
-      fprintf pp "<bad condition>"
-
-let print_condition0 reg pp cond0 rc =
-  match cond0 with
-  | Ccomp0 c -> fprintf pp "%a %ss 0" reg rc (comparison_name c)
-  | Ccompu0 c -> fprintf pp "%a %su 0" reg rc (comparison_name c)
-  | Ccompl0 c -> fprintf pp "%a %ss 0" reg rc (comparison_name c)
-  | Ccomplu0 c -> fprintf pp "%a %su 0" reg rc (comparison_name c)
-
-let int_of_s14 = function
-  | SHIFT1 -> 1
-  | SHIFT2 -> 2
-  | SHIFT3 -> 3
-  | SHIFT4 -> 4
-            
-let print_operation reg pp op = match op with
-  | Omove, [r1] -> reg pp r1
-  | Ointconst n, [] -> fprintf pp "%ld" (camlint_of_coqint n)
-  | Olongconst n, [] -> fprintf pp "%LdL" (camlint64_of_coqint n)
-  | Ofloatconst n, [] -> fprintf pp "%F" (camlfloat_of_coqfloat n)
-  | Osingleconst n, [] -> fprintf pp "%Ff" (camlfloat_of_coqfloat32 n)
-  | Oaddrsymbol(id, ofs), [] ->
-      fprintf pp "\"%s\" + %Ld" (extern_atom id) (camlint64_of_ptrofs ofs)
-  | Oaddrstack ofs, [] ->
-      fprintf pp "stack(%Ld)" (camlint64_of_ptrofs ofs)
-  | Ocast8signed, [r1] -> fprintf pp "int8signed(%a)" reg r1
-  | Ocast16signed, [r1] -> fprintf pp "int16signed(%a)" reg r1
-  | Oadd, [r1;r2] -> fprintf pp "%a + %a" reg r1 reg r2
-  | Oaddimm n, [r1] -> fprintf pp "%a + %ld" reg r1 (camlint_of_coqint n)
-  | Oaddx(s14), [r1; r2] -> fprintf pp "(%a << %d) + %a" reg r1 (int_of_s14 s14) reg r2
-  | Oaddximm(s14, imm), [r1] -> fprintf pp "(%a << %d) + %ld" reg r1 (int_of_s14 s14) (camlint_of_coqint imm)
-  | Oneg, [r1] -> fprintf pp "-(%a)" reg r1
-  | Osub, [r1;r2] -> fprintf pp "%a - %a" reg r1 reg r2
-  | Orevsubimm(imm), [r1] -> fprintf pp "%ld - %a" (camlint_of_coqint imm) reg r1
-  | Orevsubx(s14), [r1; r2] -> fprintf pp "%a - (%a << %d)" reg r2 reg r1 (int_of_s14 s14)
-  | Orevsubximm(s14, imm), [r1] -> fprintf pp "%ld - (%a << %d)" (camlint_of_coqint imm) reg r1 (int_of_s14 s14)
-  | Omul, [r1;r2] -> fprintf pp "%a * %a" reg r1 reg r2
-  | Omulimm(imm), [r1] -> fprintf pp "%a * %ld" reg r1 (camlint_of_coqint imm)
-  | Omulhs, [r1;r2] -> fprintf pp "%a *hs %a" reg r1 reg r2
-  | Omulhu, [r1;r2] -> fprintf pp "%a *hu %a" reg r1 reg r2
-  | Odiv, [r1;r2] -> fprintf pp "%a /s %a" reg r1 reg r2
-  | Odivu, [r1;r2] -> fprintf pp "%a /u %a" reg r1 reg r2
-  | Omod, [r1;r2] -> fprintf pp "%a %%s %a" reg r1 reg r2
-  | Omodu, [r1;r2] -> fprintf pp "%a %%u %a" reg r1 reg r2
-  | Oand, [r1;r2] -> fprintf pp "%a & %a" reg r1 reg r2
-  | Oandimm n, [r1] -> fprintf pp "%a & %ld" reg r1 (camlint_of_coqint n)
-  | Oor, [r1;r2] -> fprintf pp "%a | %a" reg r1 reg r2
-  | Oorimm n, [r1] ->  fprintf pp "%a | %ld" reg r1 (camlint_of_coqint n)
-  | Oxor, [r1;r2] -> fprintf pp "%a ^ %a" reg r1 reg r2
-  | Oxorimm n, [r1] -> fprintf pp "%a ^ %ld" reg r1 (camlint_of_coqint n)
-  | Onxor, [r1;r2] -> fprintf pp "~(%a ^ %a)" reg r1 reg r2
-  | Onxorimm n, [r1] -> fprintf pp "~(%a ^ %ld)" reg r1 (camlint_of_coqint n)
-  | Onot, [r1] -> fprintf pp "~%a" reg r1
-  | Oandn, [r1; r2] -> fprintf pp "(~%a) & %a" reg r1 reg r2
-  | Oandnimm n, [r1] -> fprintf pp "(~%a) & %ld" reg r1 (camlint_of_coqint n)
-  | Oorn, [r1;r2] -> fprintf pp "(~%a) | %a" reg r1 reg r2
-  | Oornimm n, [r1] -> fprintf pp "(~%a) | %ld" reg r1 (camlint_of_coqint n)
-  | Oshl, [r1;r2] -> fprintf pp "%a << %a" reg r1 reg r2
-  | Oshlimm n, [r1] -> fprintf pp "%a << %ld" reg r1 (camlint_of_coqint n)
-  | Oshr, [r1;r2] -> fprintf pp "%a >>s %a" reg r1 reg r2
-  | Oshrimm n, [r1] -> fprintf pp "%a >>s %ld" reg r1 (camlint_of_coqint n)
-  | Oshru, [r1;r2] -> fprintf pp "%a >>u %a" reg r1 reg r2
-  | Oshruimm n, [r1] -> fprintf pp "%a >>u %ld" reg r1 (camlint_of_coqint n)
-  | Oshrximm n, [r1] -> fprintf pp "%a >>x %ld" reg r1 (camlint_of_coqint n)
-  | Ororimm n, [r1] -> fprintf pp "(%a ror %ld)" reg r1 (camlint_of_coqint n)
-  | Omadd, [r1; r2; r3] -> fprintf pp "%a + %a * %a" reg r1 reg r2 reg r3
-  | Omaddimm imm, [r1; r2] -> fprintf pp "%a + %a * %ld" reg r1 reg r2 (camlint_of_coqint imm)
-  | Omsub, [r1; r2; r3] -> fprintf pp "%a - %a * %a" reg r1 reg r2 reg r3
-
-  | Omakelong, [r1;r2] -> fprintf pp "makelong(%a,%a)" reg r1 reg r2
-  | Olowlong, [r1] -> fprintf pp "lowlong(%a)" reg r1
-  | Ohighlong, [r1] -> fprintf pp "highlong(%a)" reg r1
-  | Ocast32signed, [r1] -> fprintf pp "long32signed(%a)" reg r1
-  | Ocast32unsigned, [r1] -> fprintf pp "long32unsigned(%a)" reg r1
-  | Oaddl, [r1;r2] -> fprintf pp "%a +l %a" reg r1 reg r2
-  | Oaddlimm n, [r1] -> fprintf pp "%a +l %Ld" reg r1 (camlint64_of_coqint n)
-  | Oaddxl(s14), [r1; r2] -> fprintf pp "(%a <<l %d) +l %a" reg r1 (int_of_s14 s14) reg r2
-  | Oaddxlimm(s14, imm), [r1] -> fprintf pp "(%a <<l %d) +l %Ld" reg r1 (int_of_s14 s14) (camlint64_of_coqint imm)
-  | Orevsublimm(imm), [r1] -> fprintf pp "%Ld -l %a" (camlint64_of_coqint imm) reg r1
-  | Orevsubxl(s14), [r1; r2] -> fprintf pp "%a -l (%a <<l %d)" reg r2 reg r1  (int_of_s14 s14)
-  | Orevsubxlimm(s14, imm), [r1] -> fprintf pp "%Ld -l (%a <<l %d)" (camlint64_of_coqint imm) reg r1 (int_of_s14 s14)
-  | Onegl, [r1] -> fprintf pp "-l (%a)" reg r1
-  | Osubl, [r1;r2] -> fprintf pp "%a -l %a" reg r1 reg r2
-  | Omull, [r1;r2] -> fprintf pp "%a *l %a" reg r1 reg r2
-  | Omullimm(imm), [r1] -> fprintf pp "%a *l %Ld" reg r1 (camlint64_of_coqint imm)
-  | Omullhs, [r1;r2] -> fprintf pp "%a *lhs %a" reg r1 reg r2
-  | Omullhu, [r1;r2] -> fprintf pp "%a *lhu %a" reg r1 reg r2
-  | Odivl, [r1;r2] -> fprintf pp "%a /ls %a" reg r1 reg r2
-  | Odivlu, [r1;r2] -> fprintf pp "%a /lu %a" reg r1 reg r2
-  | Omodl, [r1;r2] -> fprintf pp "%a %%ls %a" reg r1 reg r2
-  | Omodlu, [r1;r2] -> fprintf pp "%a %%lu %a" reg r1 reg r2
-  | Oandl, [r1;r2] -> fprintf pp "%a &l %a" reg r1 reg r2
-  | Oandlimm n, [r1] -> fprintf pp "%a &l %Ld" reg r1 (camlint64_of_coqint n)
-  | Oorl, [r1;r2] -> fprintf pp "%a |l %a" reg r1 reg r2
-  | Oorlimm n, [r1] ->  fprintf pp "%a |l %Ld" reg r1 (camlint64_of_coqint n)
-  | Onorl, [r1; r2] -> fprintf pp "~(%a |l %a)" reg r1 reg r2
-  | Onorlimm n, [r1] -> fprintf pp "~(%a |l %Ld)" reg r1 (camlint64_of_coqint n)
-  | Oxorl, [r1;r2] -> fprintf pp "%a ^l %a" reg r1 reg r2
-  | Oxorlimm n, [r1] -> fprintf pp "%a ^l %Ld" reg r1 (camlint64_of_coqint n)
-  | Onxorl, [r1;r2] -> fprintf pp "~(%a ^l %a)" reg r1 reg r2
-  | Onxorlimm n, [r1] -> fprintf pp "~(%a ^l %Ld)" reg r1 (camlint64_of_coqint n)
-  | Onotl, [r1] -> fprintf pp "~%a" reg r1
-  | Oandnl, [r1;r2] -> fprintf pp "(~%a) &l %a" reg r1 reg r2
-  | Oandnlimm n, [r1] -> fprintf pp "(~%a) &l %Ld" reg r1 (camlint64_of_coqint n)
-  | Oornl, [r1;r2] -> fprintf pp "(~%a) |l %a" reg r1 reg r2
-  | Oornlimm n, [r1;r2] -> fprintf pp "(~%a) |l %Ld" reg r1 (camlint64_of_coqint n)
-  | Oshll, [r1;r2] -> fprintf pp "%a <<l %a" reg r1 reg r2
-  | Oshllimm n, [r1] -> fprintf pp "%a <<l %Ld" reg r1 (camlint64_of_coqint n)
-  | Oshrl, [r1;r2] -> fprintf pp "%a >>ls %a" reg r1 reg r2
-  | Oshrlimm n, [r1] -> fprintf pp "%a >>ls %ld" reg r1 (camlint_of_coqint n)
-  | Oshrlu, [r1;r2] -> fprintf pp "%a >>lu %a" reg r1 reg r2
-  | Oshrluimm n, [r1] -> fprintf pp "%a >>lu %ld" reg r1 (camlint_of_coqint n)
-  | Oshrxlimm n, [r1] -> fprintf pp "%a >>lx %ld" reg r1 (camlint_of_coqint n)
-  | Omaddl, [r1; r2; r3] -> fprintf pp "%a +l %a *l %a" reg r1 reg r2 reg r3
-  | Omaddlimm imm, [r1; r2] -> fprintf pp "%a +l %a *l %Ld" reg r1 reg r2 (camlint64_of_coqint imm)
-  | Omsubl, [r1; r2; r3] -> fprintf pp "%a -l %a *l %a" reg r1 reg r2 reg r3
-
-  | Onegf, [r1] -> fprintf pp "negf(%a)" reg r1
-  | Oabsf, [r1] -> fprintf pp "absf(%a)" reg r1
-  | Oaddf, [r1;r2] -> fprintf pp "%a +f %a" reg r1 reg r2
-  | Osubf, [r1;r2] -> fprintf pp "%a -f %a" reg r1 reg r2
-  | Omulf, [r1;r2] -> fprintf pp "%a *f %a" reg r1 reg r2
-  | Odivf, [r1;r2] -> fprintf pp "%a /f %a" reg r1 reg r2
-  | Onegfs, [r1] -> fprintf pp "negfs(%a)" reg r1
-  | Oabsfs, [r1] -> fprintf pp "absfs(%a)" reg r1
-  | Oaddfs, [r1;r2] -> fprintf pp "%a +fs %a" reg r1 reg r2
-  | Osubfs, [r1;r2] -> fprintf pp "%a -fs %a" reg r1 reg r2
-  | Omulfs, [r1;r2] -> fprintf pp "%a *fs %a" reg r1 reg r2
-  | Odivfs, [r1;r2] -> fprintf pp "%a /fs %a" reg r1 reg r2
-  | Osingleoffloat, [r1] -> fprintf pp "singleoffloat(%a)" reg r1
-  | Ofloatofsingle, [r1] -> fprintf pp "floatofsingle(%a)" reg r1
-  | Ointoffloat, [r1] -> fprintf pp "intoffloat(%a)" reg r1
-  | Ointuoffloat, [r1] -> fprintf pp "intuoffloat(%a)" reg r1
-  | Ointofsingle, [r1] -> fprintf pp "intofsingle(%a)" reg r1
-  | Ointuofsingle, [r1] -> fprintf pp "intuofsingle(%a)" reg r1
-  | Osingleofint, [r1] -> fprintf pp "singleofint(%a)" reg r1
-  | Osingleofintu, [r1] -> fprintf pp "singleofintu(%a)" reg r1
-  | Olongoffloat, [r1] -> fprintf pp "longoffloat(%a)" reg r1
-  | Olonguoffloat, [r1] -> fprintf pp "longuoffloat(%a)" reg r1
-  | Ofloatoflong, [r1] -> fprintf pp "floatoflong(%a)" reg r1
-  | Ofloatoflongu, [r1] -> fprintf pp "floatoflongu(%a)" reg r1
-  | Olongofsingle, [r1] -> fprintf pp "longofsingle(%a)" reg r1
-  | Olonguofsingle, [r1] -> fprintf pp "longuofsingle(%a)" reg r1
-  | Osingleoflong, [r1] -> fprintf pp "singleoflong(%a)" reg r1
-  | Osingleoflongu, [r1] -> fprintf pp "singleoflongu(%a)" reg r1
-  | Ocmp c, args -> print_condition reg pp (c, args)
-
-  | Oextfz(stop, start), [r1] -> fprintf pp "extfz(%ld, %ld, %a)" (camlint_of_coqint stop)  (camlint_of_coqint start) reg r1
-  | Oextfs(stop, start), [r1] -> fprintf pp "extfs(%ld, %ld, %a)"  (camlint_of_coqint stop) (camlint_of_coqint start) reg r1
-  | Oextfzl(stop, start), [r1] -> fprintf pp "extfzl(%ld, %ld, %a)"  (camlint_of_coqint stop)  (camlint_of_coqint start) reg r1
-  | Oextfsl(stop, start), [r1] -> fprintf pp "extfsl(%ld, %ld, %a)"  (camlint_of_coqint stop)  (camlint_of_coqint start) reg r1
-  | Oinsf(stop, start), [r1; r2] -> fprintf pp "insf(%ld, %ld, %a, %a)"  (camlint_of_coqint stop)  (camlint_of_coqint start) reg r1 reg r2
-  | Oinsfl(stop, start), [r1; r2] -> fprintf pp "insfl(%ld, %ld, %a, %a)"  (camlint_of_coqint stop)  (camlint_of_coqint start) reg r1 reg r2
-  | Osel(cond0, ty), [r1; r2; rc] ->
-     print_condition0 reg pp cond0 rc;
-     fprintf pp " ? %a : %a" reg r1 reg r2                              
-  | Oselimm(cond0, imm), [r1; rc] ->
-     print_condition0 reg pp cond0 rc;
-     fprintf pp " ? %a : %ld" reg r1 (camlint_of_coqint imm)
-  | Osellimm(cond0, imm), [r1; rc] ->
-     print_condition0 reg pp cond0 rc;
-     fprintf pp " ? %a :l %Ld" reg r1 (camlint64_of_coqint imm)
- | _, _ -> fprintf pp "<bad operator>"
-
-let print_addressing reg pp = function
-  | Aindexed2XS scale, [r1;r2] -> fprintf pp "%a + (%a << %ld)" reg r1 reg r2 (camlint_of_coqint scale)
-  | Aindexed2, [r1;r2] -> fprintf pp "%a + %a" reg r1 reg r2
-  | Aindexed n, [r1] -> fprintf pp "%a + %Ld" reg r1 (camlint64_of_ptrofs n)
-  | Aglobal(id, ofs), [] ->
-      fprintf pp "\"%s\" + %Ld" (extern_atom id) (camlint64_of_ptrofs ofs)
-  | Ainstack ofs, [] -> fprintf pp "stack(%Ld)" (camlint64_of_ptrofs ofs)
-  | _ -> fprintf pp "<bad addressing>"