diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-03 10:11:23 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-24 17:38:06 +0100 |
commit | 1e29e518e62ad88e9c2e2b180beb07434a07cdd7 (patch) | |
tree | 515e91150bc6db4910daa97ba99611192b01fe2f /backend | |
parent | 794ae6fb64e89175b40288369011f4fc51e0ac53 (diff) | |
download | compcert-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.tar.gz compcert-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.zip |
Record public global definitions via field "prog_public" in AST.program.
For the moment, this field is ignored.
Diffstat (limited to 'backend')
-rw-r--r-- | backend/CMparser.mly | 2 | ||||
-rw-r--r-- | backend/Unusedglob.ml | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/backend/CMparser.mly b/backend/CMparser.mly index ad92a12e..10cf8bf4 100644 --- a/backend/CMparser.mly +++ b/backend/CMparser.mly @@ -400,10 +400,12 @@ let mkmatch expr cases = prog: EQUAL STRINGLIT global_declarations EOF { { prog_defs = List.rev $3; + prog_public = List.map fst $3; (* FIXME *) prog_main = intern_string $2; } } | global_declarations EOF { { prog_defs = List.rev $1; + prog_public = List.map fst $1; (* FIXME *) prog_main = intern_string "main" } } ; diff --git a/backend/Unusedglob.ml b/backend/Unusedglob.ml index 1a88ee96..3834f8e6 100644 --- a/backend/Unusedglob.ml +++ b/backend/Unusedglob.ml @@ -81,6 +81,7 @@ let rec filter used = function let filter_prog used p = { prog_defs = filter used p.prog_defs; + prog_public = p.prog_public; prog_main = p.prog_main } (* Entry point *) |