diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-03-06 10:23:18 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-03-06 10:23:18 +0100 |
commit | 2b5f5cb0bb6d8dbf302ab6d84c27eda30252912d (patch) | |
tree | aea549d4f8a35fe5ca70a4eb7c21c2bafdc9781d /cfrontend/PrintClight.ml | |
parent | be2315351761e4fc0430b91ac791d66eec0e0cd7 (diff) | |
download | compcert-kvx-2b5f5cb0bb6d8dbf302ab6d84c27eda30252912d.tar.gz compcert-kvx-2b5f5cb0bb6d8dbf302ab6d84c27eda30252912d.zip |
Add support for EF_runtime externals
Also: in Events, use Senv.equiv to state invariance wrt changes of global envs.
Diffstat (limited to 'cfrontend/PrintClight.ml')
-rw-r--r-- | cfrontend/PrintClight.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml index ed19e178..42892901 100644 --- a/cfrontend/PrintClight.ml +++ b/cfrontend/PrintClight.ml @@ -258,7 +258,7 @@ let print_function p id f = let print_fundef p id fd = match fd with - | External(EF_external(_,_), args, res, cconv) -> + | External((EF_external _ | EF_runtime _), args, res, cconv) -> fprintf p "extern %s;@ @ " (name_cdecl (extern_atom id) (Tfunction(args, res, cconv))) | External(_, _, _, _) -> |