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

Delete unused NoneExpr

Browse Source
This commit is contained in:
Tom Jack 2019-10-07 08:47:51 -05:00 committed by Lesenechal Remi
parent 3a14ef26ef
commit 1c2c6cbc43
4 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/passes/1-parser/pascaligo/AST.ml
View File

@ -408,7 +408,6 @@ and lhs =
and rhs = and rhs =
Expr of expr Expr of expr
| NoneExpr of c_None
and loop = and loop =
While of while_loop reg While of while_loop reg
@ -760,7 +759,6 @@ let lhs_to_region : lhs -> Region.t = function
let rhs_to_region = function let rhs_to_region = function
Expr e -> expr_to_region e Expr e -> expr_to_region e
| NoneExpr r -> r
let selection_to_region = function let selection_to_region = function
FieldName {region; _} FieldName {region; _}

1
src/passes/1-parser/pascaligo/AST.mli
View File

@ -392,7 +392,6 @@ and lhs =
and rhs = and rhs =
Expr of expr Expr of expr
| NoneExpr of c_None
and loop = and loop =
While of while_loop reg While of while_loop reg

1
src/passes/1-parser/pascaligo/ParserLog.ml
View File

@ -311,7 +311,6 @@ and print_assignment {value; _} =
and print_rhs = function and print_rhs = function
Expr e -> print_expr e Expr e -> print_expr e
| NoneExpr r -> print_token r "None"
and print_lhs = function and print_lhs = function
Path path -> print_path path Path path -> print_path path

1
src/passes/2-simplify/pascaligo.ml
View File

@ -782,7 +782,6 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
let (a , loc) = r_split a in let (a , loc) = r_split a in
let%bind value_expr = match a.rhs with let%bind value_expr = match a.rhs with
| Expr e -> simpl_expression e | Expr e -> simpl_expression e
| NoneExpr reg -> simpl_expression (EConstr (NoneExpr reg))
in in
match a.lhs with match a.lhs with
| Path path -> ( | Path path -> (