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

Stopped fixed-sizes being added for TOCKEXTERNAL PROCs

Browse Source
This commit is contained in:
Neil Brown 2009-04-04 13:44:56 +00:00
parent 11cc8c92a7
commit 923b9700d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/BackendPasses.hs
View File

@ -401,8 +401,8 @@ declareSizesArray = occamOnlyPass "Declare array-size arrays"
(rest, moreNew) <- transformFormals ext m fs (rest, moreNew) <- transformFormals ext m fs
return (f : newf : rest, newf : moreNew) return (f : newf : rest, newf : moreNew)
-- But even if all the dimensions are known, we must still add the sizes -- But even if all the dimensions are known, we must still add the sizes
-- as a global thingy: -- as a global thingy (provided it's not an external):
| otherwise -> | isNothing ext ->
do (Just n_sizes, _, _) <- findVarSizes 0 (A.Variable m n) do (Just n_sizes, _, _) <- findVarSizes 0 (A.Variable m n)
addSizes (A.nameName n) n_sizes addSizes (A.nameName n) n_sizes
(rest, moreNew) <- transformFormals ext m fs (rest, moreNew) <- transformFormals ext m fs