Fixed a bug in determining the sizes for RETYPES

2009-04-04 12:31:25 +00:00 · 2009-04-04 12:31:25 +00:00 · 03bfe593cb
commit 03bfe593cb
parent c361a36e41
1 changed files with 1 additions and 1 deletions
--- 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