diff options
author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2018-11-28 13:16:54 +0100 |
---|---|---|
committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2018-11-28 13:16:54 +0100 |
commit | 09ebc4ffc4fa22e04e89f47d2f860cc831d6c23c (patch) | |
tree | 24e4ab5ea6c71742415afb9867dfe3c6c278fdd8 /backend | |
parent | 3af2dc7aaa8c8139ddd26589258f2b289425f591 (diff) | |
download | compcert-kvx-09ebc4ffc4fa22e04e89f47d2f860cc831d6c23c.tar.gz compcert-kvx-09ebc4ffc4fa22e04e89f47d2f860cc831d6c23c.zip |
compilation Asmexpandaux both for x86/ and mppa_k1c/
Diffstat (limited to 'backend')
-rw-r--r-- | backend/Asmaux.v | 5 | ||||
-rw-r--r-- | backend/Asmexpandaux.ml | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/backend/Asmaux.v b/backend/Asmaux.v new file mode 100644 index 00000000..51e94f6b --- /dev/null +++ b/backend/Asmaux.v @@ -0,0 +1,5 @@ +Require Import Asm. +Require Import AST. + +(* Constant only needed by Asmexpandaux.ml *) +Definition dummy_function := {| fn_code := nil; fn_sig := signature_main |}.
\ No newline at end of file diff --git a/backend/Asmexpandaux.ml b/backend/Asmexpandaux.ml index f5c76925..b1d822db 100644 --- a/backend/Asmexpandaux.ml +++ b/backend/Asmexpandaux.ml @@ -15,6 +15,7 @@ pseudo-instructions *) open Asm +open Asmaux open AST open Camlcoq @@ -26,7 +27,10 @@ let emit i = current_code := i :: !current_code (* Generation of fresh labels *) +(* now imported from Asmaux.ml let dummy_function = { fn_code = []; fn_sig = signature_main } +*) + let current_function = ref dummy_function let next_label = ref (None: label option) |