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

Removed a leftover suffix involved in declaring channel arrays

Browse Source
This commit is contained in:
Neil Brown 2008-03-06 21:04:11 +00:00
parent 4c1f2a1930
commit 6106fc13a1
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/GenerateCPPCSP.hs
View File

@ -558,7 +558,7 @@ cppdeclareInit m t@(A.Array ds t') var _
call genVariableUnchecked var call genVariableUnchecked var
tell ["_storage,"] tell ["_storage,"]
call genVariableUnchecked var call genVariableUnchecked var
tell ["_actual,"] tell [","]
sequence_ $ intersperse (tell ["*"]) [case dim of A.Dimension d -> tell [show d] | dim <- ds] sequence_ $ intersperse (tell ["*"]) [case dim of A.Dimension d -> tell [show d] | dim <- ds]
tell [");"] tell [");"]
_ -> return () _ -> return ()