jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Add an alias for ack_name type

Browse source
This commit is contained in:
jeltz 2020-12-20 18:12:48 +01:00
parent 9447e3566f
commit a1390a5dae
Signed by: jeltz
GPG key ID: 800882B66C0C3326
3 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
compiler/global/names.ml
View file

@ -32,6 +32,7 @@
type name = string
type module_name = name
type ack_name = name
type modul =
| Pervasives

2
compiler/heptagon/heptagon.ml
View file

@ -94,7 +94,7 @@ and op =
| Econcat
| Ereinit
and ack = { ack_name : string; ack_params : static_exp list }
and ack = { ack_name : ack_name; ack_params : static_exp list }
and pat =
| Etuplepat of pat list

3
compiler/heptagon/parsing/hept_parsetree.ml
View file

@ -41,6 +41,7 @@ type module_name = Names.modul
(** state_names, [automata] translate them in constructors with a fresh type. *)
type state_name = Names.name
type ack_name = Names.ack_name
type qualname =
| Q of Names.qualname (* already qualified name *)
@ -129,7 +130,7 @@ and op =
| Econcat
| Ereinit
and ack = { ack_name: string; ack_params: static_exp list }
and ack = { ack_name : ack_name; ack_params : static_exp list }
and pat =
| Etuplepat of pat list