diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-31 17:07:23 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-31 17:07:23 +0200 |
| commit | 7c18e5fbe3dee48b6a7f38d19cbb19427e6722fd (patch) | |
| tree | 858521fce02f42fbb1b5325e6c845fba5186bd70 /backend/Injectproof.v | |
| parent | ee6b5b9e5445f64b26776cf16c2b9cef60b84574 (diff) | |
| download | compcert-kvx-7c18e5fbe3dee48b6a7f38d19cbb19427e6722fd.tar.gz compcert-kvx-7c18e5fbe3dee48b6a7f38d19cbb19427e6722fd.zip | |
external call
Diffstat (limited to 'backend/Injectproof.v')
| -rw-r--r-- | backend/Injectproof.v | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/backend/Injectproof.v b/backend/Injectproof.v index 40c39b89..c9493baf 100644 --- a/backend/Injectproof.v +++ b/backend/Injectproof.v @@ -1624,7 +1624,14 @@ Section INJECTOR. constructor; auto. rewrite params_preserved with (f:=f)(tf:=x) by assumption. apply match_regs_refl. - - admit. + - (* external call *) + monadInv FUN. + econstructor; split. + + apply Smallstep.plus_one. + apply exec_function_external. + eapply external_call_symbols_preserved; eauto. apply senv_preserved. + + constructor; auto. + - admit. Admitted. |