diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-04-09 11:02:52 +0200 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-04-09 11:02:52 +0200 |
| commit | b7720bc5973e9890e7c320bb34b784e2e2b2da69 (patch) | |
| tree | 7c4dca4a00586bb9c6f2aaeec24e64a6dc77077f /riscV/Asmgen.v | |
| parent | 2f2e7b1da225aa3bf066c2fc689a08fab9851a53 (diff) | |
| download | compcert-kvx-b7720bc5973e9890e7c320bb34b784e2e2b2da69.tar.gz compcert-kvx-b7720bc5973e9890e7c320bb34b784e2e2b2da69.zip | |
Removing addptrofs draft, next will be merging
Diffstat (limited to 'riscV/Asmgen.v')
| -rw-r--r-- | riscV/Asmgen.v | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/riscV/Asmgen.v b/riscV/Asmgen.v index ff5d1a6e..3e84e950 100644 --- a/riscV/Asmgen.v +++ b/riscV/Asmgen.v @@ -212,12 +212,10 @@ Definition apply_bin_oreg_ireg0 (optR: option oreg) (r1 r2: ireg0): (ireg0 * ire | None => (r1, r2) | Some X0_L => (X0, r1) | Some X0_R => (r1, X0) - | Some SP_S => (X SP, r1) end. Definition get_oreg (optR: option oreg) (r: ireg0) := match optR with - | Some SP_S => X SP | Some X0_L | Some X0_R => X0 | _ => r end. @@ -846,12 +844,6 @@ Definition transl_op do rd <- ireg_of res; let rs := get_oreg optR X0 in OK (Paddiw rd rs n :: k) - | OEaddiw (Some SP_S) n, a1 :: nil => - do rd <- ireg_of res; - do rs <- ireg_of a1; - if Int.eq n Int.zero then - OK (Paddw rd SP rs :: k) - else Error (msg "Asmgen.transl_op") | OEaddiw optR n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; @@ -920,12 +912,6 @@ Definition transl_op do rd <- ireg_of res; let rs := get_oreg optR X0 in OK (Paddil rd rs n :: k) - | OEaddil (Some SP_S) n, a1 :: nil => - do rd <- ireg_of res; - do rs <- ireg_of a1; - if Int64.eq n Int64.zero then - OK (Paddl rd SP rs :: k) - else Error (msg "Asmgen.transl_op") | OEaddil optR n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; |