new constant : C_CREATE_CONTRACT
This commit is contained in:
parent
79c15693f9
commit
3260e87d67
@ -146,6 +146,7 @@ let constant ppf : constant' -> unit = function
|
|||||||
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
||||||
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
||||||
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
||||||
|
| C_CREATE_CONTRACT -> fprintf ppf "CREATE_CONTRACT"
|
||||||
|
|
||||||
let literal ppf (l : literal) =
|
let literal ppf (l : literal) =
|
||||||
match l with
|
match l with
|
||||||
|
@ -288,3 +288,4 @@ and constant' =
|
|||||||
| C_SELF_ADDRESS
|
| C_SELF_ADDRESS
|
||||||
| C_IMPLICIT_ACCOUNT
|
| C_IMPLICIT_ACCOUNT
|
||||||
| C_SET_DELEGATE
|
| C_SET_DELEGATE
|
||||||
|
| C_CREATE_CONTRACT
|
||||||
|
@ -242,6 +242,7 @@ and constant ppf : constant' -> unit = function
|
|||||||
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
||||||
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
||||||
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
||||||
|
| C_CREATE_CONTRACT -> fprintf ppf "CREATE_CONTRACT"
|
||||||
|
|
||||||
let%expect_test _ =
|
let%expect_test _ =
|
||||||
Format.printf "%a" value (D_bytes (Bytes.of_string "foo")) ;
|
Format.printf "%a" value (D_bytes (Bytes.of_string "foo")) ;
|
||||||
|
Loading…
Reference in New Issue
Block a user