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

Fixed non-top-level records in the C backend

Browse Source
This commit is contained in:
Neil Brown 2009-04-19 13:22:24 +00:00
parent 40e0399e4c
commit 41cf599ebe
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

@ -1500,7 +1500,7 @@ cgenRecordTypeSpec extraStuff n attr fs
cgenForwardDeclaration :: Bool -> A.Specification -> CGen ()
cgenForwardDeclaration _ (A.Specification _ n st@(A.Proc _ _ _ _))
= genProcSpec TopLevel n st True
cgenForwardDeclaration True (A.Specification _ n (A.RecordType _ b fs))
cgenForwardDeclaration _ (A.Specification _ n (A.RecordType _ b fs))
= call genRecordTypeSpec False n b fs
cgenForwardDeclaration _ _ = return ()