From f48b2041f9375f7b6f0c1395daa05f9ecba82212 Mon Sep 17 00:00:00 2001
From: Rafal Kolanski <rafal.kolanski@proofcraft.systems>
Date: Thu, 20 Jan 2022 03:53:17 +1100
Subject: [PATCH] aarch64 haskell: add TX2 hardware config

Signed-off-by: Rafal Kolanski <rafal.kolanski@proofcraft.systems>
---
 .../src/SEL4/Machine/Hardware/AARCH64/TX2.hs  | 70 +++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 spec/haskell/src/SEL4/Machine/Hardware/AARCH64/TX2.hs

diff --git a/spec/haskell/src/SEL4/Machine/Hardware/AARCH64/TX2.hs b/spec/haskell/src/SEL4/Machine/Hardware/AARCH64/TX2.hs
new file mode 100644
index 000000000..53a10b5e9
--- /dev/null
+++ b/spec/haskell/src/SEL4/Machine/Hardware/AARCH64/TX2.hs
@@ -0,0 +1,70 @@
+--
+-- Copyright 2022, Proofcraft Pty Ltd
+--
+-- SPDX-License-Identifier: GPL-2.0-only
+--
+
+{-# LANGUAGE EmptyDataDecls, ForeignFunctionInterface, GeneralizedNewtypeDeriving #-}
+
+module SEL4.Machine.Hardware.AARCH64.TX2 where
+
+import Prelude hiding (Word)
+import SEL4.Machine.RegisterSet
+import Foreign.Ptr
+import Data.Bits
+import Data.Word(Word8, Word16, Word32)
+import Data.Ix
+
+data CallbackData
+
+newtype IRQ = IRQ Word32
+    deriving (Enum, Ord, Ix, Eq, Show)
+
+instance Bounded IRQ where
+    minBound = IRQ 0
+    maxBound = IRQ 383
+
+newtype PAddr = PAddr { fromPAddr :: Word }
+    deriving (Integral, Real, Show, Eq, Num, Bits, FiniteBits, Ord, Enum, Bounded)
+
+physBase :: PAddr
+physBase = PAddr 0x80000000
+
+pageColourBits :: Int
+pageColourBits = error "unused on this architecture"
+
+irqInvalid :: IRQ
+irqInvalid = IRQ 0xFFFF -- -1 in 16 bits
+
+{- simulator callback stubs - we do not plan to support the simulator on this
+   platform -}
+
+getMemoryRegions :: Ptr CallbackData -> IO [(PAddr, PAddr)]
+getMemoryRegions _ = error "unimplemented"
+
+getDeviceRegions :: Ptr CallbackData -> IO [(PAddr, PAddr)]
+getDeviceRegions _ = error "unimplemented"
+
+getKernelDevices :: Ptr CallbackData -> IO [(PAddr, PPtr Word)]
+getKernelDevices _ = error "unimplemented"
+
+maskInterrupt :: Ptr CallbackData -> Bool -> IRQ -> IO ()
+maskInterrupt env mask (IRQ irq) = error "unimplemented"
+
+loadWordCallback :: Ptr CallbackData -> PAddr -> IO Word
+loadWordCallback = error "unimplemented"
+
+storeWordCallback :: Ptr CallbackData -> PAddr -> Word -> IO ()
+storeWordCallback = error "unimplemented"
+
+getActiveIRQ :: Ptr CallbackData -> IO (Maybe IRQ)
+getActiveIRQ = error "unimplemented"
+
+ackInterrupt :: Ptr CallbackData -> IRQ -> IO ()
+ackInterrupt _ _ = error "unimplemented"
+
+configureTimer :: Ptr CallbackData -> IO IRQ
+configureTimer env = error "unimplemented"
+
+resetTimer :: Ptr CallbackData -> IO ()
+resetTimer env = error "unimplemented"