m2-internship/dwarf-synthesis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Simplest: catch inconsistent subroutine in of_prog

Browse source
This commit is contained in:
Théophile Bastian 2018-11-16 19:11:52 +01:00
parent b4043249f9
commit 7ffc33d7a8
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
DwarfSynth/Simplest.ml
View file

@ -407,7 +407,13 @@ let of_prog prog : cfa_changes =
(try (try
let res = cleanup_fde @@ process_sub sub in let res = cleanup_fde @@ process_sub sub in
StrMap.add (BStd.Sub.name sub) res accu StrMap.add (BStd.Sub.name sub) res accu
with InvalidSub -> accu) with
| InvalidSub -> accu
| Inconsistent tid ->
Format.eprintf "Inconsistent TId %a in subroutine %s, skipping.@."
BStd.Tid.pp tid (BStd.Sub.name sub);
accu
)
in in
let subroutines = BStd.Term.enum BStd.sub_t prog in let subroutines = BStd.Term.enum BStd.sub_t prog in
BStd.Seq.fold subroutines BStd.Seq.fold subroutines