diff options
Diffstat (limited to 'compiler/PureUtils.ml')
| -rw-r--r-- | compiler/PureUtils.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index fdd14eba..82a578d9 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -90,6 +90,9 @@ let compute_literal_type (cv : literal) : literal_type = | VScalar sv -> TInteger sv.int_ty | VBool _ -> TBool | VChar _ -> TChar + | VStr _ | VByteStr _ -> + craise_opt_meta __FILE__ __LINE__ None + "String and byte string literals are unsupported" let var_get_id (v : var) : VarId.id = v.id |