diff options
| -rw-r--r-- | cheri/cheri_prelude_common.sail | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cheri/cheri_prelude_common.sail b/cheri/cheri_prelude_common.sail index 5d88c43a..7d4a7406 100644 --- a/cheri/cheri_prelude_common.sail +++ b/cheri/cheri_prelude_common.sail @@ -177,7 +177,7 @@ function forall Type 'o . 'o SignalException ((Exception) ex) = if (success) then C31 := capStructToCapReg(epcc) else - C31 := capStructToCapReg(int_to_cap(pc)); + C31 := capStructToCapReg(int_to_cap(getCapBase(pcc) + pc)); (* XXX what if not success? *) nextPCC := C29; (* KCC *) delayedPCC := C29; (* always write delayedPCC together whether PCC so |