From 7aef4970c36b45f50dc61d66353dc759b438e706 Mon Sep 17 00:00:00 2001
From: Robert Norton
Date: Wed, 14 Mar 2018 18:02:10 +0000
Subject: Add and use execute_branch and execute_branch_pcc functions to align
 code with existing MIPS and CHERI specs.

---
 cheri/cheri_insts.sail          | 18 ++++++------------
 cheri/cheri_prelude_common.sail |  7 +++++++
 2 files changed, 13 insertions(+), 12 deletions(-)

(limited to 'cheri')

diff --git a/cheri/cheri_insts.sail b/cheri/cheri_insts.sail
index 6e2b2282..c832d70c 100644
--- a/cheri/cheri_insts.sail
+++ b/cheri/cheri_insts.sail
@@ -1053,13 +1053,11 @@ function clause execute (CCall(cs, cb, 0b00000000001)) = /* selector=1 */
   else if (cs_cursor >= getCapTop(cs_val)) then
     raise_c2_exception(CapEx_LengthViolation, cs)
   else
-    let csUnsealed = capStructToCapReg({cs_val with
+    {
+      execute_branch_pcc({cs_val with
         sealed=false,
         otype=zeros()
-    }) in {
-      delayedPC = to_bits(64, getCapOffset(cs_val));
-      delayedPCC = csUnsealed;
-      branchPending = 0b1;
+      });
       inCCallDelay  = 0b1;
       C26 = capStructToCapReg({cb_val with
         sealed=false,
@@ -1088,8 +1086,7 @@ function clause execute (CBX(cb, imm, notset)) =
   else if (((readCapReg(cb)).tag) ^ notset) then
     {
       let offset : bits(64) = (sign_extend(imm @ 0b00) + 4) in
-      delayedPC     = PC + offset;
-      branchPending = 0b1;
+      execute_branch(PC + offset);
     }
   /* END_CBtag */
 }
@@ -1104,8 +1101,7 @@ function clause execute (CBZ(cb, imm, notzero)) =
   else if (((readCapReg(cb)) == null_cap) ^ notzero) then
     {
       let offset : bits(64) = (sign_extend(imm @ 0b00) + 4) in
-      delayedPC     = PC + offset;
-      branchPending = 0b1;
+      execute_branch(PC + offset);
     }
   /* END_CBz */
 }
@@ -1144,9 +1140,7 @@ function clause execute(CJALR(cd, cb, link)) =
             writeCapReg(cd, linkCap)
         else
             assert(false, "");
-      delayedPC =  to_bits(64, getCapOffset(cb_val));
-      delayedPCC = capStructToCapReg(cb_val);
-      branchPending = 0b1;
+      execute_branch_pcc(cb_val);
     }
   /* END_CJALR */
 }
diff --git a/cheri/cheri_prelude_common.sail b/cheri/cheri_prelude_common.sail
index 0072ded7..09e07f70 100644
--- a/cheri/cheri_prelude_common.sail
+++ b/cheri/cheri_prelude_common.sail
@@ -185,6 +185,13 @@ bitfield CapCauseReg : bits(16) = {
 
 register CapCause : CapCauseReg
 
+val execute_branch_pcc : CapStruct -> unit effect {wreg}
+function execute_branch_pcc(newPCC) = {
+  delayedPC = to_bits(64, getCapOffset(newPCC));
+  delayedPCC = capStructToCapReg(newPCC);
+  branchPending = 0b1;
+}
+
 function SignalException (ex) = 
   {
     if (not (CP0Status.EXL())) then {
-- 
cgit v1.2.3