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

Fixed retyping non-packed records into arrays

Browse Source
This commit is contained in:
Neil Brown 2009-03-31 16:08:24 +00:00
parent 9f5b685c02
commit 3566c6206f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/BackendPasses.hs
View File

@ -287,6 +287,9 @@ declareSizesArray = occamOnlyPass "Declare array-size arrays"
-- element of its _sizes array. -- element of its _sizes array.
A.UnknownDimension -> A.ExprVariable m $ specificDimSize i v A.UnknownDimension -> A.ExprVariable m $ specificDimSize i v
| (d, i) <- zip ds [0..]] | (d, i) <- zip ds [0..]]
-- Must be an unpacked record if it's not BIJust:
(_, A.Record {}) ->
return $ A.BytesInType m tSrc
_ -> dieP m "Cannot compute size of source type" _ -> dieP m "Cannot compute size of source type"
-- Build the _sizes array for the destination. -- Build the _sizes array for the destination.