From 03bfe593cb1e785669a54e24dcfc965672b616b8 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 4 Apr 2009 12:31:25 +0000 Subject: [PATCH] Fixed a bug in determining the sizes for RETYPES --- backends/BackendPasses.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs index 097898f..8faea62 100644 --- a/backends/BackendPasses.hs +++ b/backends/BackendPasses.hs @@ -268,7 +268,7 @@ declareSizesArray = occamOnlyPass "Declare array-size arrays" -- | Generate the @_sizes@ array for a 'Retypes' expression. retypesSizes :: Meta -> A.Name -> [A.Dimension] -> A.Type -> A.Variable -> PassM (A.Name, Maybe A.SpecType) - retypesSizes m n_sizes ds elemT v@(A.Variable _ nSrc) + retypesSizes m n_sizes ds elemT v = do biDest <- bytesInType (A.Array ds elemT) tSrc <- astTypeOf v biSrc <- bytesInType tSrc