module Riscv:sig
..end
RISC-V instructions
type
arg =
| |
Cte of |
(* | immediate value | *) |
| |
Reg of |
(* | register or pseudo-register | *) |
typelabel =
string
RTL graph labels
type
rtl_node = {
|
label : |
(* | entry label | *) |
|
op : |
(* | name of the RISC-V operator | *) |
|
dest : |
(* | destination register, if present | *) |
|
args : |
(* | arguments | *) |
|
exits : |
(* | exit labels | *) |
}
typertl =
rtl_node list
typeriscv =
rtl_node
val print_riscv : Stdlib.out_channel -> rtl_node -> unit
printing function for a RISC-V instruction