Source file `ram_arch.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Base
open! Hardcaml

type t =
  | Distributed
  | Blockram of Collision_mode.t
  | Ultraram
[@@deriving sexp_of]

let to_xpm_parameter = function
  | Distributed -> "distributed"
  | Blockram _ -> "block"
  | Ultraram -> "ultra"
;;