diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-28 13:36:53 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-28 13:36:53 +0200 |
| commit | 5492b5b55afa68e3d628da07ff583a0cac79b7e3 (patch) | |
| tree | 65fc4ad3276bc11d88c5b9ed3cf9f96f66425536 /cfrontend/C2C.ml | |
| parent | 89476ea80ecfc7af02ef5026d0f45b61d243e3b0 (diff) | |
| download | compcert-5492b5b55afa68e3d628da07ff583a0cac79b7e3.tar.gz compcert-5492b5b55afa68e3d628da07ff583a0cac79b7e3.zip | |
Added location for the formal parameters and move the end of all
scopes before the last statement.
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index dd55e60f..332665f4 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -1042,6 +1042,7 @@ let convertFundef loc env fd = List.map (fun (id, ty) -> let id' = intern_string id.name in + Debug.atom_parameter fd.fd_name id id'; (id', convertTyp env ty)) fd.fd_params in let vars = |