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

Added some extra paranoid bracketing

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 21:12:46 +00:00
parent 34ae9861d0
commit 3739ff7cbd
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/GenerateC.hs
View File

@ -690,7 +690,7 @@ cgenVariableWithAM checkValid v am fct
A.SubscriptFromFor m' subCheck start count A.SubscriptFromFor m' subCheck start count
-> do ct <- details v -> do ct <- details v
return (do let check = if checkValid then subCheck else A.NoCheck return (do let check = if checkValid then subCheck else A.NoCheck
tell ["(&"] tell ["(&("]
cgenVariableWithAM checkValid v A.Original id cgenVariableWithAM checkValid v A.Original id
call genArraySubscript A.NoCheck v [(m', call genArraySubscript A.NoCheck v [(m',
case check of case check of
@ -705,7 +705,7 @@ cgenVariableWithAM checkValid v am fct
genMeta m' genMeta m'
tell [")"] tell [")"]
)] )]
tell [")"] tell ["))"]
, ct) , ct)
-- | Collect all the plain subscripts on a variable, so we can combine them. -- | Collect all the plain subscripts on a variable, so we can combine them.
collectSubs :: A.Variable -> CGen ([A.Expression], A.Variable, A.Type) collectSubs :: A.Variable -> CGen ([A.Expression], A.Variable, A.Type)