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

Added a few useful error messages in the C backend

Browse Source
This commit is contained in:
Neil Brown 2009-02-02 18:26:12 +00:00
parent 96934c871d
commit 1cde2bd959
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/GenerateC.hs
View File

@ -594,6 +594,8 @@ cgenLiteralRepr (A.ArrayListLiteral m aes) (A.Array {})
= genLeftB >> call genArrayLiteralElems aes >> genRightB = genLeftB >> call genArrayLiteralElems aes >> genRightB
cgenLiteralRepr (A.ArrayListLiteral _ es) t@(A.List {}) cgenLiteralRepr (A.ArrayListLiteral _ es) t@(A.List {})
= call genListLiteral es t = call genListLiteral es t
cgenLiteralRepr (A.ArrayListLiteral m _) t
= diePC m $ formatCode "Unknown type for array/list literal: %" t
-- | Generate an expression inside a record literal. -- | Generate an expression inside a record literal.
-- --
@ -649,6 +651,7 @@ cgenArrayLiteralElems :: A.Structured A.Expression -> CGen ()
cgenArrayLiteralElems (A.Only _ e) = call genUnfoldedExpression e cgenArrayLiteralElems (A.Only _ e) = call genUnfoldedExpression e
cgenArrayLiteralElems (A.Several _ aes) cgenArrayLiteralElems (A.Several _ aes)
= seqComma $ map cgenArrayLiteralElems aes = seqComma $ map cgenArrayLiteralElems aes
cgenArrayLiteralElems x = call genMissingC $ formatCode "Missing cgenArrayLiteralElems for %" x
genByteLiteral :: Meta -> String -> CGen () genByteLiteral :: Meta -> String -> CGen ()
genByteLiteral m s genByteLiteral m s