let
make_simple kind =
match
kind
with
|
Ctrl
->
mctrl
|
Addr
->
maddr
|
Data
->
mdata