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 /driver/Interp.ml | |
| parent | 794ae6fb64e89175b40288369011f4fc51e0ac53 (diff) | |
| download | compcert-kvx-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.tar.gz compcert-kvx-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.zip | |
Record public global definitions via field "prog_public" in AST.program.
For the moment, this field is ignored.
Diffstat (limited to 'driver/Interp.ml')
| -rw-r--r-- | driver/Interp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index e277ebe0..1291d70c 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -612,7 +612,8 @@ let change_main_function p old_main old_main_ty = fn_params = []; fn_vars = []; fn_body = body } in let new_main_id = intern_string "___main" in { prog_main = new_main_id; - prog_defs = (new_main_id, Gfun(Internal new_main_fn)) :: p.prog_defs } + prog_defs = (new_main_id, Gfun(Internal new_main_fn)) :: p.prog_defs; + prog_public = p.prog_public } let rec find_main_function name = function | [] -> None |