diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-07-06 16:00:14 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-07-06 16:00:14 +0200 |
| commit | 7c361e1bf90166ea65c7a9bcde3fcb53f4ef2e8c (patch) | |
| tree | 34a812758978efa8198239c4651f79b52d90e413 /cparser/Parse.ml | |
| parent | 2f31c1867b75040067a1ef74ae32f197e8d296c1 (diff) | |
| parent | 0a4cf6562122684811db5ed3dd059769ca1a06d9 (diff) | |
| download | compcert-7c361e1bf90166ea65c7a9bcde3fcb53f4ef2e8c.tar.gz compcert-7c361e1bf90166ea65c7a9bcde3fcb53f4ef2e8c.zip | |
Merge pull request #48 from AbsInt/json_export
Json export
Diffstat (limited to 'cparser/Parse.ml')
| -rw-r--r-- | cparser/Parse.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml index 317847a7..c9564c08 100644 --- a/cparser/Parse.ml +++ b/cparser/Parse.ml @@ -29,7 +29,7 @@ let transform_program t p name = Some (CtoDwarf.program_to_dwarf p p1 name) else None in - (Rename.program p1),debug + (Rename.program p1 (Filename.chop_suffix name ".c")),debug let parse_transformations s = let t = ref CharSet.empty in |