From 41cf599ebeea11e0434f5cba1d701f79c37bdc04 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sun, 19 Apr 2009 13:22:24 +0000 Subject: [PATCH] Fixed non-top-level records in the C backend --- backends/GenerateC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs index efc74eb..f99d042 100644 --- a/backends/GenerateC.hs +++ b/backends/GenerateC.hs @@ -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 ()