aboutsummaryrefslogtreecommitdiffstats
path: root/cparser/Parse.ml
diff options
context:
space:
mode:
Diffstat (limited to 'cparser/Parse.ml')
-rw-r--r--cparser/Parse.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml
index 507aea36..dceb9b11 100644
--- a/cparser/Parse.ml
+++ b/cparser/Parse.ml
@@ -24,7 +24,7 @@ let transform_program t p name =
(run_pass Unblock.program 'b'
(run_pass Bitfields.program 'f'
p)))) in
- (Rename.program p1 (Filename.chop_suffix name ".c"))
+ (Rename.program p1)
let parse_transformations s =
let t = ref CharSet.empty in