diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2018-03-23 15:32:36 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2018-04-04 16:30:09 +0200 |
commit | c81c303db03ba732bda8612381e8569db181a541 (patch) | |
tree | ecff2a29321170d2eda10667c62d843ffd464f43 /mppa_k1c/Asm.v | |
parent | 447ceed8642e2ed000a20036298adb8448ac594b (diff) | |
download | compcert-kvx-c81c303db03ba732bda8612381e8569db181a541.tar.gz compcert-kvx-c81c303db03ba732bda8612381e8569db181a541.zip |
MPPA - mppa_call branch cleaning
Diffstat (limited to 'mppa_k1c/Asm.v')
-rw-r--r-- | mppa_k1c/Asm.v | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/mppa_k1c/Asm.v b/mppa_k1c/Asm.v index 7603a1f9..707273a6 100644 --- a/mppa_k1c/Asm.v +++ b/mppa_k1c/Asm.v @@ -568,17 +568,7 @@ Definition goto_label (f: function) (lbl: label) (rs: regset) (m: mem) := | _ => Stuck end end. -(* -Definition do_call (f: function) (lbl: label) (rs: regset) (m: mem) := - match label_pos lbl 0 (fn_code f) with - | None => Stuck - | Some pos => - match rs#PC with - | Vptr b ofs => Next (rs#PC <- (Vptr b (Ptrofs.repr pos))#RA <- (rs#PC)) m - | _ => Stuck - end - end. -*) + (** Auxiliaries for memory accesses *) Definition eval_offset (ofs: offset) : ptrofs := @@ -638,7 +628,6 @@ Definition exec_instr (f: function) (i: instruction) (rs: regset) (m: mem) : out Next (rs#PC <- (rs#RA)) m | Pcall s => Next (rs#RA <- (Val.offset_ptr (rs#PC) Ptrofs.one)#PC <- (Genv.symbol_address ge s Ptrofs.zero)) m - (* Next (rs#PC <- (Genv.symbol_address ge s Ptrofs.zero)) m *) | Pgoto s => Next (rs#PC <- (Genv.symbol_address ge s Ptrofs.zero)) m | Pmv d s => |