diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:34:22 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:34:22 +0200 |
commit | ad8f16390a68b0cf8e4da39d2ae5d1ad30026803 (patch) | |
tree | 5f0e12eccd40bcc688408cb5d07dc8d850832384 /mppa_k1c/extractionMachdep.v | |
parent | fb77ce264f957a1ee3f87e537b55afbb10785ecf (diff) | |
parent | cba53c98b999eea7984e4ffd24a9449abea3e0e2 (diff) | |
download | compcert-kvx-ad8f16390a68b0cf8e4da39d2ae5d1ad30026803.tar.gz compcert-kvx-ad8f16390a68b0cf8e4da39d2ae5d1ad30026803.zip |
Merge remote-tracking branch 'origin/mppa-peephole' into mppa-work
Diffstat (limited to 'mppa_k1c/extractionMachdep.v')
-rw-r--r-- | mppa_k1c/extractionMachdep.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mppa_k1c/extractionMachdep.v b/mppa_k1c/extractionMachdep.v index e70f51de..fdecd2a3 100644 --- a/mppa_k1c/extractionMachdep.v +++ b/mppa_k1c/extractionMachdep.v @@ -22,6 +22,9 @@ Require Archi Asm. Extract Constant Archi.ptr64 => " Configuration.model = ""64"" ". Extract Constant Archi.pic_code => "fun () -> false". (* for the time being *) +Extract Constant Peephole.print_found_store => +"fun offset x -> Printf.printf ""found offset = %ld\n"" (Camlcoq.camlint_of_coqint offset); x". + (* Asm *) (* Extract Constant Asm.low_half => "fun _ _ _ -> assert false". |