|
@@ -1477,7 +1477,7 @@ and type_switch ctx e cases def need_val p =
|
|
|
List.map (fun c ->
|
|
List.map (fun c ->
|
|
|
match c with
|
|
match c with
|
|
|
| CExpr (({ eexpr = TConst c }) as e) ->
|
|
| CExpr (({ eexpr = TConst c }) as e) ->
|
|
|
- if Hashtbl.mem consts c then error "Duplicate constant in swtich" e.epos;
|
|
|
|
|
|
|
+ if Hashtbl.mem consts c then error "Duplicate constant in switch" e.epos;
|
|
|
Hashtbl.add consts c true;
|
|
Hashtbl.add consts c true;
|
|
|
e
|
|
e
|
|
|
| CExpr c -> c
|
|
| CExpr c -> c
|
Nicolas Cannasse