diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2016-09-20 16:17:27 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-09-20 16:17:27 +0200 |
| commit | d857db508c318887463dde2039c9bfe99cdeebfa (patch) | |
| tree | 8cf1d98876f4c72e624892103917be5286c95c17 /cparser/Unblock.ml | |
| parent | 99554c986d023d00192eb3d1fbfe1c0cc138596e (diff) | |
| parent | 20f226ce463221032238895264c73d2207bf31d8 (diff) | |
| download | compcert-d857db508c318887463dde2039c9bfe99cdeebfa.tar.gz compcert-d857db508c318887463dde2039c9bfe99cdeebfa.zip | |
Merge pull request #139 from AbsInt/advanced-diagnostics
Advanced diagnostics
Diffstat (limited to 'cparser/Unblock.ml')
| -rw-r--r-- | cparser/Unblock.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Unblock.ml b/cparser/Unblock.ml index 0669be6e..87b2f9bb 100644 --- a/cparser/Unblock.ml +++ b/cparser/Unblock.ml @@ -32,7 +32,7 @@ let rec local_initializer env path init k = let (ty_elt, sz) = match unroll env path.etyp with | TArray(ty_elt, Some sz, _) -> (ty_elt, sz) - | _ -> fatal_error "Wrong type for array initializer" in + | _ -> fatal_error no_loc "Wrong type for array initializer" in let rec array_init pos il = if pos >= sz then k else begin let (i1, il') = |