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

Fixed a bug in the C backend (using the wrong type in a call)

Browse Source
This commit is contained in:
Neil Brown 2009-03-22 14:27:46 +00:00
parent 81ebebe4fe
commit 3801857817
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/GenerateC.hs
View File

@ -646,7 +646,7 @@ cgenVariableWithAM checkValid v am
case t of case t of
A.Array _ innerT -> A.Array _ innerT ->
do (cg, ct) <- inner v do (cg, ct) <- inner v
innerCT <- call getCType m t A.Original innerCT <- call getCType m innerT A.Original
let cast = tell ["("] >> genType innerT >> tell ["*)"] let cast = tell ["("] >> genType innerT >> tell ["*)"]
return (tell ["("] >> cast >> tell ["(("] >> cg >> tell [")->data))"] return (tell ["("] >> cast >> tell ["(("] >> cg >> tell [")->data))"]
, Pointer $ innerCT) , Pointer $ innerCT)