balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'feature/env-impurity' into 'dev'

Browse Source 
Treat transaction environment operators as impure

See merge request ligolang/ligo!346
This commit is contained in:
Pierre-Emmanuel Wulfman 2020-04-22 09:35:51 +00:00
commit e6cba7c34f
3 changed files with 91 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

134
src/bin/expect_tests/contract_tests.ml
View File

@ -7,16 +7,16 @@ let bad_contract basename =
let%expect_test _ =
run_ligo_good [ "measure-contract" ; contract "coase.ligo" ; "main" ] ;
[%expect {| 1872 bytes |}] ;
[%expect {| 1874 bytes |}] ;
run_ligo_good [ "measure-contract" ; contract "multisig.ligo" ; "main" ] ;
[%expect {| 1187 bytes |}] ;
[%expect {| 1189 bytes |}] ;
run_ligo_good [ "measure-contract" ; contract "multisig-v2.ligo" ; "main" ] ;
[%expect {| 2886 bytes |}] ;
[%expect {| 2897 bytes |}] ;
run_ligo_good [ "measure-contract" ; contract "vote.mligo" ; "main" ] ;
[%expect {| 581 bytes |}] ;
[%expect {| 617 bytes |}] ;
run_ligo_good [ "compile-parameter" ; contract "coase.ligo" ; "main" ; "Buy_single (record card_to_buy = 1n end)" ] ;
[%expect {| (Left (Left 1)) |}] ;
@ -122,16 +122,18 @@ let%expect_test _ =
PAIR ;
PAIR ;
DUP ;
DIP { DUP } ;
SWAP ;
CDR ;
DIP { DIP 7 { DUP } ;
DIG 7 ;
DIP { DIP 6 { DUP } ;
DIG 6 ;
SENDER ;
PAIR ;
SOME ;
DIP { DIP { DUP } ; SWAP ; CAR ; CDR } } ;
DIP { DUP ; CAR ; CDR } } ;
UPDATE ;
DIP { DUP } ;
SWAP ;
DIP { DUP } ;
SWAP ;
DIP { DUP ; CDR ; SWAP ; CAR ; CAR } ;
SWAP ;
PAIR ;
@ -148,7 +150,7 @@ let%expect_test _ =
DUP ;
NIL operation ;
PAIR ;
DIP { DROP 11 } }
DIP { DROP 12 } }
{ DUP ;
DIP { DIP 2 { DUP } ; DIG 2 } ;
PAIR ;
@ -317,10 +319,16 @@ let%expect_test _ =
COMPARE ;
NEQ ;
IF { PUSH string "Counters does not match" ; FAILWITH }
{ DIP 2 { DUP } ;
DIG 2 ;
{ DUP ;
DIP { DIP 2 { DUP } ; DIG 2 ; CAR ; CAR } ;
PAIR ;
DIP { DIP { DUP } ; SWAP ; CDR ; CAR ; CHAIN_ID ; SWAP ; PAIR } ;
PAIR ;
PACK ;
DIP 3 { DUP } ;
DIG 3 ;
CDR ;
DIP { DIP { DUP } ; SWAP ; CAR ; CAR ; PUSH nat 0 ; SWAP ; PAIR } ;
DIP { DIP 2 { DUP } ; DIG 2 ; CAR ; CAR ; PUSH nat 0 ; SWAP ; PAIR } ;
ITER { SWAP ;
PAIR ;
DUP ;
@ -347,16 +355,7 @@ let%expect_test _ =
COMPARE ;
EQ ;
IF { DUP ;
DIP { DIP 3 { DUP } ;
DIG 3 ;
CDR ;
DIP { DIP 7 { DUP } ;
DIG 7 ;
DIP { DIP 9 { DUP } ; DIG 9 ; CAR ; CAR } ;
PAIR ;
DIP { DIP 8 { DUP } ; DIG 8 ; CDR ; CAR ; CHAIN_ID ; SWAP ; PAIR } ;
PAIR ;
PACK } } ;
DIP { DIP 3 { DUP } ; DIG 3 ; CDR ; DIP { DIP 7 { DUP } ; DIG 7 } } ;
CHECK_SIGNATURE ;
IF { DIP 5 { DUP } ;
DIG 5 ;
@ -421,14 +420,14 @@ let%expect_test _ =
DIP { DROP 7 } } ;
DUP ;
CDR ;
DIP { DIP 2 { DUP } ; DIG 2 ; CDR ; CDR } ;
DIP { DIP 3 { DUP } ; DIG 3 ; CDR ; CDR } ;
COMPARE ;
LT ;
IF { PUSH string "Not enough signatures passed the check" ; FAILWITH }
{ DIP 2 { DUP } ;
DIG 2 ;
DIP 3 { DUP } ;
{ DIP 3 { DUP } ;
DIG 3 ;
DIP 4 { DUP } ;
DIG 4 ;
CAR ;
CDR ;
PUSH nat 1 ;
@ -437,16 +436,16 @@ let%expect_test _ =
SWAP ;
PAIR ;
PAIR ;
DIP 3 { DUP } ;
DIG 3 ;
DIP 4 { DUP } ;
DIG 4 ;
DIP { DUP } ;
SWAP ;
DIP { DROP 2 } } ;
DIP 3 { DUP } ;
DIG 3 ;
DIP 4 { DUP } ;
DIG 4 ;
DIP { DUP } ;
SWAP ;
DIP { DROP 3 } } ;
DIP { DROP 4 } } ;
DIP { DUP } ;
SWAP ;
UNIT ;
@ -576,21 +575,23 @@ let%expect_test _ =
DIP { DUP } ;
SWAP ;
DIP { DROP 2 } } ;
DIP 2 { DUP } ;
DIG 2 ;
CAR ;
DIP { DUP } ;
PAIR ;
DIP 2 { DUP } ;
DIG 2 ;
SWAP ;
PUSH bool True ;
SENDER ;
UPDATE ;
DIP 3 { DUP } ;
DIG 3 ;
DIP 2 { DUP } ;
DIG 2 ;
SWAP ;
CAR ;
PAIR ;
CDR ;
DIP { DUP } ;
SWAP ;
PAIR ;
DIP { DROP 2 } } ;
DIP { DROP 3 } } ;
DUP ;
CAR ;
DIP { DUP } ;
@ -887,14 +888,16 @@ let%expect_test _ =
PAIR ;
DUP ;
CDR ;
DIP { DUP } ;
SWAP ;
NOW ;
SENDER ;
DIP 3 { DUP } ;
DIG 3 ;
CAR ;
IF_LEFT
{ DIP { DUP } ;
SWAP ;
DIP 2 { DUP } ;
DIG 2 ;
{ DIP 3 { DUP } ;
DIG 3 ;
DIP 4 { DUP } ;
DIG 4 ;
CAR ;
CAR ;
CDR ;
@ -906,10 +909,10 @@ let%expect_test _ =
PAIR ;
PAIR ;
DIP { DROP } }
{ DIP { DUP } ;
SWAP ;
DIP 2 { DUP } ;
DIG 2 ;
{ DIP 3 { DUP } ;
DIG 3 ;
DIP 4 { DUP } ;
DIG 4 ;
CDR ;
CDR ;
PUSH nat 1 ;
@ -921,12 +924,9 @@ let%expect_test _ =
PAIR ;
DIP { DROP } } ;
DUP ;
DIP { DUP } ;
SWAP ;
CDR ;
CAR ;
PUSH bool True ;
SENDER ;
DIP 2 { DUP } ;
DIG 2 ;
DIP { DIP { DUP } ; SWAP ; CDR ; CAR ; PUSH bool True } ;
UPDATE ;
DIP { DUP ; CAR ; SWAP ; CDR ; CDR } ;
PAIR ;
@ -934,7 +934,7 @@ let%expect_test _ =
PAIR ;
NIL operation ;
PAIR ;
DIP { DROP 4 } } ;
DIP { DROP 6 } } ;
DIP { DROP } } } |}]
let%expect_test _ =
@ -950,6 +950,28 @@ let%expect_test _ =
PAIR ;
DIP { DROP 2 } } } |}]
let%expect_test _ =
run_ligo_good [ "compile-contract" ; contract "amount_lambda.mligo" ; "main" ] ;
(* AMOUNT should occur inside the second lambda, but not the first lambda *)
[%expect {|
{ parameter bool ;
storage (lambda unit mutez) ;
code { DUP ;
CAR ;
IF { AMOUNT ;
DUP ;
LAMBDA
(pair mutez unit)
mutez
{ DUP ; CAR ; SWAP ; CDR ; DIP { DUP } ; SWAP ; DIP { DROP 2 } } ;
SWAP ;
APPLY ;
DIP { DROP } }
{ LAMBDA unit mutez { DROP ; AMOUNT } } ;
NIL operation ;
PAIR ;
DIP { DROP } } } |}]
let%expect_test _ =
run_ligo_bad [ "compile-contract" ; contract "bad_type_operator.ligo" ; "main" ] ;
[%expect {|

3
src/passes/11-self_mini_c/self_mini_c.ml
View File

@ -25,12 +25,13 @@ let is_pure_constant : constant' -> bool =
| C_SOME
| C_UPDATE | C_MAP_FIND_OPT | C_MAP_ADD | C_MAP_UPDATE
| C_INT | C_ABS | C_IS_NAT
| C_BALANCE | C_AMOUNT | C_ADDRESS | C_NOW | C_SOURCE | C_SENDER | C_CHAIN_ID
| C_ADDRESS
| C_SET_MEM | C_SET_ADD | C_SET_REMOVE | C_SLICE
| C_SHA256 | C_SHA512 | C_BLAKE2b | C_CHECK_SIGNATURE
| C_HASH_KEY | C_BYTES_PACK | C_CONCAT
-> true
(* unfortunately impure: *)
| C_BALANCE | C_AMOUNT | C_NOW | C_SOURCE | C_SENDER | C_CHAIN_ID
| C_ADD | C_SUB |C_MUL|C_DIV|C_MOD | C_LSL | C_LSR
(* impure: *)
| C_ASSERTION | C_ASSERT_INFERRED

11
src/test/contracts/amount_lambda.mligo Normal file
View File

@ -0,0 +1,11 @@
(* should return a constant function *)
let f1 (x : unit) : unit -> tez =
let amt : tez = Current.amount in
fun (x : unit) -> amt
(* should return an impure function *)
let f2 (x : unit) : unit -> tez =
fun (x : unit) -> Current.amount
let main (b,s : bool * (unit -> tez)) : operation list * (unit -> tez) =
(([] : operation list), (if b then f1 () else f2 ()))