implement sign-extension operators proposal

2021-03-16 21:49:02 -07:00
parent 6131babc8e
commit 36cc7a1c16
3 changed files with 40 additions and 1 deletions
@@ -57,7 +57,14 @@ import GHC.Generics (Generic)

 data BitSize = BS32 | BS64 deriving (Show, Eq, Generic, NFData)

-data IUnOp = IClz | ICtz | IPopcnt deriving (Show, Eq, Generic, NFData)
+data IUnOp =
+    IClz
+    | ICtz
+    | IPopcnt
+    | IExtend8S
+    | IExtend16S
+    | IExtend32S
+    deriving (Show, Eq, Generic, NFData)

 data IBinOp =
    IAdd