Added a missing case to the C backend

2009-03-22 22:49:10 +00:00 · 2009-03-22 22:49:10 +00:00 · 3ae4824184
commit 3ae4824184
parent 0fc7266c29
1 changed files with 3 additions and 0 deletions
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@ -896,6 +896,9 @@ cgenExpression (A.False m) = tell ["false"]
 cgenExpression (A.IntrinsicFunctionCall m s es) = call genIntrinsicFunction m s es
 --cgenExpression (A.SubscriptedExpr m s 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.OffsetOf m t n)
 --cgenExpression (A.ExprConstr {})