From 64468eda2bc40c874cddd4a6d9972af5ec224dc2 Mon Sep 17 00:00:00 2001
From: Robert Norton
Date: Thu, 12 Oct 2017 17:14:40 +0100
Subject: Work around warning in ocaml shallow embedding of mips caused by
 buggy code generation for dubious casting enumeration to int.

---
 mips/mips_tlb.sail | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mips/mips_tlb.sail')

diff --git a/mips/mips_tlb.sail b/mips/mips_tlb.sail
index 2e40deed..d72e0e75 100644
--- a/mips/mips_tlb.sail
+++ b/mips/mips_tlb.sail
@@ -108,7 +108,7 @@ function (bit[64], bool) TLBTranslateC ((bit[64]) vAddr, (MemAccessType) accessT
       case 0b01 -> (Supervisor, None)                       (* xsseg - supervisor mapped *)
       case 0b00 -> (User, None) (* xuseg - user mapped *)
     } in
-    if (((nat)currentAccessLevel) < ((nat)requiredLevel)) then
+    if ((int_of_accessLevel(currentAccessLevel)) < (int_of_accessLevel(requiredLevel))) then
       (SignalExceptionBadAddr(if (accessType == StoreData) then AdES else AdEL, vAddr))
     else 
       let (pa, c) = switch(addr) {
-- 
cgit v1.2.3