diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-04-17 16:30:43 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-04-17 16:30:43 +0200 |
| commit | 1b5db339bb05f773a6a132be4c0b8cea54d50461 (patch) | |
| tree | 5c7c767bc107eca66fdf6795777821572c5ec5af /common/Events.v | |
| parent | 3d751c114fe4611a5b72e160127be09cf6c6cfec (diff) | |
| download | compcert-kvx-1b5db339bb05f773a6a132be4c0b8cea54d50461.tar.gz compcert-kvx-1b5db339bb05f773a6a132be4c0b8cea54d50461.zip | |
Experiment: support a subset of GCC's extended asm statements.
Diffstat (limited to 'common/Events.v')
| -rw-r--r-- | common/Events.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/common/Events.v b/common/Events.v index 15bf4e12..62765fd3 100644 --- a/common/Events.v +++ b/common/Events.v @@ -1449,10 +1449,10 @@ Axiom external_functions_properties: (** We treat inline assembly similarly. *) -Parameter inline_assembly_sem: ident -> extcall_sem. +Parameter inline_assembly_sem: ident -> signature -> extcall_sem. Axiom inline_assembly_properties: - forall id, extcall_properties (inline_assembly_sem id) (mksignature nil None cc_default) nil. + forall id sg, extcall_properties (inline_assembly_sem id sg) sg nil. (** ** Combined semantics of external calls *) @@ -1479,8 +1479,8 @@ Definition external_call (ef: external_function): extcall_sem := | EF_free => extcall_free_sem | EF_memcpy sz al => extcall_memcpy_sem sz al | EF_annot txt targs => extcall_annot_sem txt targs - | EF_annot_val txt targ=> extcall_annot_val_sem txt targ - | EF_inline_asm txt => inline_assembly_sem txt + | EF_annot_val txt targ => extcall_annot_val_sem txt targ + | EF_inline_asm txt sg => inline_assembly_sem txt sg end. Theorem external_call_spec: |