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

Fix an unused-bind warning -- rhsSizes isn't used when retyping

Browse Source
This commit is contained in:
Adam Sampson 2007-08-06 23:24:12 +00:00
parent 0a0110d122
commit 2cf3579446
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GenerateC.hs
View File

@ -1308,7 +1308,7 @@ cintroduceSpec ops (A.Specification _ n (A.Proc _ sm fs p))
tell ["}\n"]
cintroduceSpec ops (A.Specification _ n (A.Retypes m am t v))
= do origT <- typeOfVariable v
let (rhs, rhsSizes) = abbrevVariable ops A.Abbrev origT v
let (rhs, _) = abbrevVariable ops A.Abbrev origT v
call genDecl ops am t n
tell [" = "]
-- For scalar types that are VAL abbreviations (e.g. VAL INT64),