add syntax support for extended data segments

2022-06-09 20:21:57 -06:00
parent c743e11ffd
commit 32392dcc29
7 changed files with 52 additions and 23 deletions
@@ -700,7 +700,7 @@ datasShouldBeValid m@Module { datas, mems, imports } =
    foldMap (isDataValid ctx) datas
    where
        isDataValid :: Ctx -> DataSegment -> ValidationResult
-        isDataValid ctx (DataSegment memIdx offset _) =
+        isDataValid ctx (DataSegment (ActiveData memIdx offset) _) =
            let check = runChecker ctx $ do
                    isConstExpression offset
                    t <- getExpressionType offset