aboutsummaryrefslogtreecommitdiffstats
path: root/cparser/Parse.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2017-02-07 18:57:48 +0100
committerBernhard Schommer <bschommer@users.noreply.github.com>2017-02-17 14:09:56 +0100
commitd0778a80e625cc4a057cc6acf66e58abff13cb46 (patch)
tree99d1f75d2693e6c7fc5b1c016f4e0245906e758d /cparser/Parse.ml
parent80872f3f92e513817cb7f9396a757cf0db95c2c7 (diff)
downloadcompcert-kvx-d0778a80e625cc4a057cc6acf66e58abff13cb46.tar.gz
compcert-kvx-d0778a80e625cc4a057cc6acf66e58abff13cb46.zip
Added new module for checks on elaborated C code
The new module adds a function which is called during parse after all C transformation have taken place for adding additional checks. Currently only unknown attribute are checked. Bug 19872
Diffstat (limited to 'cparser/Parse.ml')
-rw-r--r--cparser/Parse.ml6
1 files changed, 4 insertions, 2 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml
index dceb9b11..0d3003aa 100644
--- a/cparser/Parse.ml
+++ b/cparser/Parse.ml
@@ -23,8 +23,10 @@ let transform_program t p name =
(run_pass PackedStructs.program 'p'
(run_pass Unblock.program 'b'
(run_pass Bitfields.program 'f'
- p)))) in
- (Rename.program p1)
+ p)))) in
+ let p2 = Rename.program p1 in
+ Checks.program p2;
+ p2
let parse_transformations s =
let t = ref CharSet.empty in