From b7720bc5973e9890e7c320bb34b784e2e2b2da69 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Fri, 9 Apr 2021 11:02:52 +0200 Subject: Removing addptrofs draft, next will be merging --- riscV/Asmgen.v | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'riscV/Asmgen.v') 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; -- cgit