diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 17:04:34 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 17:04:34 +0200 |
| commit | 667c260620b545c04355dd030fc4430790a3a055 (patch) | |
| tree | 71729199f610fc8c790502f0e41e1530eaf2ae3f /mppa_k1c/Asmvliw.v | |
| parent | 26a7a6598a80c29a139c533419b38be63c88cd76 (diff) | |
| download | compcert-kvx-667c260620b545c04355dd030fc4430790a3a055.tar.gz compcert-kvx-667c260620b545c04355dd030fc4430790a3a055.zip | |
translate load.xs
Diffstat (limited to 'mppa_k1c/Asmvliw.v')
| -rw-r--r-- | mppa_k1c/Asmvliw.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mppa_k1c/Asmvliw.v b/mppa_k1c/Asmvliw.v index d7311272..7a5adf5e 100644 --- a/mppa_k1c/Asmvliw.v +++ b/mppa_k1c/Asmvliw.v @@ -1124,9 +1124,8 @@ Definition parexec_load_reg (chunk: memory_chunk) (rsr rsw: regset) (mr mw: mem) | Some v => Next (rsw#d <- v) mw end. -Definition scale_of_chunk (chunk: memory_chunk) := - Vint (Int.repr - (match chunk with +Definition zscale_of_chunk (chunk: memory_chunk) := + match chunk with | Mint8signed => 0 | Mint8unsigned => 0 | Mint16signed => 1 @@ -1137,7 +1136,8 @@ Definition scale_of_chunk (chunk: memory_chunk) := | Mfloat64 => 3 | Many32 => 2 | Many64 => 3 - end)). + end. +Definition scale_of_chunk chunk := Vint (Int.repr (zscale_of_chunk chunk)). Definition parexec_load_regxs (chunk: memory_chunk) (rsr rsw: regset) (mr mw: mem) (d a ro: ireg) := match Mem.loadv chunk mr (Val.addl (rsr a) (Val.shll (rsr ro) (scale_of_chunk chunk))) with |