summaryrefslogtreecommitdiff
path: root/aarch64/main.sail
diff options
context:
space:
mode:
authorAlasdair Armstrong2018-02-15 17:27:58 +0000
committerAlasdair Armstrong2018-02-15 18:18:53 +0000
commit6b3688cff73efd4b860002443c297ae585b2a690 (patch)
tree337fa7560ca3d33878d28f314fe5a4a721165540 /aarch64/main.sail
parentc191c71c11189b1dbb3b98b64a27adc9c38734aa (diff)
Update duopod spec so it has no address translation
Also update the main aarch64 (no_vector) spec with latest asl_parser
Diffstat (limited to 'aarch64/main.sail')
-rw-r--r--aarch64/main.sail9
1 files changed, 7 insertions, 2 deletions
diff --git a/aarch64/main.sail b/aarch64/main.sail
index eaaf4f7f..fd590b2c 100644
--- a/aarch64/main.sail
+++ b/aarch64/main.sail
@@ -5,8 +5,13 @@ val fetch_and_execute : unit -> unit effect {escape, undef, wreg, rreg, rmem, wm
function fetch_and_execute () =
while true do {
- let instr = aget_Mem(_PC, 4, AccType_IFETCH);
- decode(instr);
+ try {
+ let instr = aget_Mem(_PC, 4, AccType_IFETCH);
+ decode(instr);
+ } catch {
+ Error_See("HINT") => (),
+ exn => throw(exn)
+ };
if __BranchTaken then __BranchTaken = false else _PC = _PC + 4
}