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

Correction: lsl and lsr are impure

Browse Source
This commit is contained in:
Sander Spies 2020-02-06 17:30:50 +01:00
parent 9433fa9bc4
commit e14dd18680
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/passes/7-self_mini_c/self_mini_c.ml
View File

@ -20,7 +20,7 @@ let is_pure_constant : constant -> bool =
| C_UNIT | C_UNIT
| C_CAR | C_CDR | C_PAIR | C_CAR | C_CDR | C_PAIR
| C_NIL | C_CONS | C_NIL | C_CONS
| C_NEG | C_OR | C_AND | C_LSL | C_LSR | C_XOR | C_NOT | C_NEG | C_OR | C_AND | C_XOR | C_NOT
| C_EQ | C_NEQ | C_LT | C_LE | C_GT | C_GE | C_EQ | C_NEQ | C_LT | C_LE | C_GT | C_GE
| C_SOME | C_SOME
| C_UPDATE | C_MAP_GET | C_MAP_FIND_OPT | C_MAP_ADD | C_MAP_UPDATE | C_UPDATE | C_MAP_GET | C_MAP_FIND_OPT | C_MAP_ADD | C_MAP_UPDATE
@ -31,7 +31,7 @@ let is_pure_constant : constant -> bool =
| C_HASH_KEY | C_BYTES_PACK | C_CONCAT | C_HASH_KEY | C_BYTES_PACK | C_CONCAT
-> true -> true
(* unfortunately impure: *) (* unfortunately impure: *)
| C_ADD | C_SUB |C_MUL|C_DIV|C_MOD | C_ADD | C_SUB |C_MUL|C_DIV|C_MOD | C_LSL | C_LSR
(* impure: *) (* impure: *)
| C_ASSERTION | C_ASSERT_INFERRED | C_ASSERTION | C_ASSERT_INFERRED
| C_MAP_GET_FORCE | C_MAP_FIND | C_MAP_GET_FORCE | C_MAP_FIND