Add ManifestExpr

diku-dk · Oct 9, 2023 · afd3e44 · afd3e44
1 parent 91439d1
commit afd3e44
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Futhark/Pass/CoalesceAccess.hs b/src/Futhark/Pass/CoalesceAccess.hs
@@ -174,6 +174,10 @@ transformSegOp pat ctx op = do
             | (arrayName, permutations) <- arrayToPermutationMap
           ]
 
+manifestExpr :: (MonadBuilder CoalesceM) => (VName, Permutation) -> CoalesceM VName
+manifestExpr (arrayName, manifest) =
+  letExp (baseString arrayName) $ BasicOp $ Manifest manifest arrayName
+
 -- =================== Replace array names in AST ===================
 
 replaceArrayNamesInBody :: ArrayNameReplacements -> Body GPU -> Body GPU