Bläddra i källkod

don't use int switch for empty cases

Nicolas Cannasse 16 år sedan
förälder
incheckning
04e78540dc
1 ändrade filer med 3 tillägg och 0 borttagningar
  1. 3 0
      gencpp.ml

+ 3 - 0
gencpp.ml

@@ -609,6 +609,9 @@ let list_num l = string_of_int (List.length l);;
 
 
 
 
 let only_int_cases cases =
 let only_int_cases cases =
+	match cases with
+	| [] -> false
+	| _ ->
 	not (List.exists (fun (cases,expression) -> 
 	not (List.exists (fun (cases,expression) -> 
 			List.exists (fun case -> match case.eexpr with TConst (TInt _) -> false | _ -> true ) cases
 			List.exists (fun case -> match case.eexpr with TConst (TInt _) -> false | _ -> true ) cases
 				) cases );;
 				) cases );;