Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Name variables properly

master
Mark Shinwell 2017-03-01 07:59:20 +00:00
parent c49f12361b
commit 102a6cabc2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asmcomp/interval.ml
View File

@ -152,10 +152,10 @@ let build_intervals fd =
insert_destroyed_at_oper intervals i !pos;
walk_instruction body;
walk_instruction i.next
| Icatch(_, body, handler) ->
| Icatch(_, handlers, body) ->
insert_destroyed_at_oper intervals i !pos;
List.iter (fun (_, i) -> walk_instruction i) body;
walk_instruction handler;
List.iter (fun (_, i) -> walk_instruction i) handlers;
walk_instruction body;
walk_instruction i.next
| Iexit _ ->
insert_destroyed_at_oper intervals i !pos;