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

Added a missing case to the C backend

Browse Source
This commit is contained in:
Neil Brown 2009-03-22 22:49:10 +00:00
parent 0fc7266c29
commit 3ae4824184
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/GenerateC.hs
View File

@ -896,6 +896,9 @@ cgenExpression (A.False m) = tell ["false"]
cgenExpression (A.IntrinsicFunctionCall m s es) = call genIntrinsicFunction m s es cgenExpression (A.IntrinsicFunctionCall m s es) = call genIntrinsicFunction m s es
--cgenExpression (A.SubscriptedExpr m s e) --cgenExpression (A.SubscriptedExpr m s e)
--cgenExpression (A.BytesInExpr m e) --cgenExpression (A.BytesInExpr m e)
cgenExpression (A.BytesInExpr m (A.ExprVariable _ v))
= do t <- astTypeOf v
call genBytesIn m t (Right v)
cgenExpression (A.BytesInType m t) = call genBytesIn m t (Left False) cgenExpression (A.BytesInType m t) = call genBytesIn m t (Left False)
--cgenExpression (A.OffsetOf m t n) --cgenExpression (A.OffsetOf m t n)
--cgenExpression (A.ExprConstr {}) --cgenExpression (A.ExprConstr {})