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

Fixed an odd monomorphism restriction warning

Browse Source
This commit is contained in:
Neil Brown 2008-03-01 20:13:11 +00:00
parent 50967cba95
commit 01ac2ef21d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/GenerateC.hs
View File

@ -699,7 +699,8 @@ cgenVariable' checkValid v
inner ind sv@(A.SubscriptedVariable _ (A.SubscriptField m n) v) mt inner ind sv@(A.SubscriptedVariable _ (A.SubscriptField m n) v) mt
= do (cg, ind') <- inner ind v mt = do (cg, ind') <- inner ind v mt
t <- typeOfVariable sv t <- typeOfVariable sv
let outerInd = if indirectedType t then -1 else 0 let outerInd :: Int
outerInd = if indirectedType t then -1 else 0
return (addPrefix (addPrefix cg ind' >> tell ["->"] >> genName n) outerInd, 0) return (addPrefix (addPrefix cg ind' >> tell ["->"] >> genName n) outerInd, 0)
inner ind (A.SubscriptedVariable m (A.SubscriptFromFor m' start _) v) mt inner ind (A.SubscriptedVariable m (A.SubscriptFromFor m' start _) v) mt
= inner ind (A.SubscriptedVariable m (A.Subscript m' start) v) mt = inner ind (A.SubscriptedVariable m (A.Subscript m' start) v) mt