Skip to content

Commit 6b3ab43

Browse files
committed
Remove the last compiler-warnings
(Hopefully)
1 parent bbe4c1a commit 6b3ab43

File tree

2 files changed

+4
-5
lines changed

2 files changed

+4
-5
lines changed

difftype.ml

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -32,11 +32,13 @@ type 'a diff =
3232
| SEQ of 'a diff * 'a diff
3333

3434
let rec csize bp = match bp with
35-
| UP(t1,t2) -> zsize t1 + zsize t2
36-
| SEQ(p1,p2) -> csize p1 + csize p2
35+
| UP(t1,t2) -> zsize t1 + zsize t2
36+
| SEQ(p1,p2) -> csize p1 + csize p2
37+
| _ -> failwith "unsupported csize"
3738

3839
let fsize bp = match bp with
3940
| UP(t,_) -> zsize t
41+
| _ -> failwith "unsupported fsize"
4042

4143
let rec string_of_difftype f = function
4244
| PENDING_ID a -> "?= " ^ f a

visitor_j.ml

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -555,8 +555,6 @@ and trans_top top =
555555
| EmptyDef _ -> mkA("edef", "N/H")
556556
| NotParsedCorrectly _ -> mkA("NCP","N/H")
557557
| FinalDef _ -> mkA("fdef", "N/H")
558-
| _ -> mkA("top", "N/H")
559-
(* and trans_include (inc_f, inc_pos) = *)
560558

561559
and trans_include { i_include = inc_f} =
562560
let ie s = mkA("inc_elem", s) in
@@ -574,7 +572,6 @@ let trans_prg2 prg =
574572
(List.map (fun (a, _) -> a)
575573
(List.filter (fun a -> match a with (FinalDef _, _) -> false | _ -> true)
576574
prg))
577-
(*List.map (fun (tl,_) -> trans_top tl) prg *)
578575
in
579576
let tops_envs =
580577
Type_annoter_c.annotate_program

0 commit comments

Comments
 (0)