implement sign-extension operators proposal

2021-03-08 21:35:43 -08:00
parent 4fb4da0f2f
commit d61926e18a
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