suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug in determining the sizes for RETYPES

Browse Source
This commit is contained in:
Neil Brown 2009-04-04 12:31:25 +00:00
parent c361a36e41
commit 03bfe593cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/BackendPasses.hs
View File

@ -268,7 +268,7 @@ declareSizesArray = occamOnlyPass "Declare array-size arrays"
-- | Generate the @_sizes@ array for a 'Retypes' expression. -- | Generate the @_sizes@ array for a 'Retypes' expression.
retypesSizes :: Meta -> A.Name -> [A.Dimension] -> A.Type -> A.Variable retypesSizes :: Meta -> A.Name -> [A.Dimension] -> A.Type -> A.Variable
-> PassM (A.Name, Maybe A.SpecType) -> 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) = do biDest <- bytesInType (A.Array ds elemT)
tSrc <- astTypeOf v tSrc <- astTypeOf v
biSrc <- bytesInType tSrc biSrc <- bytesInType tSrc