@@ -316,7 +316,7 @@ cgExpr (SCon tag name args) = do
316316 tagPtr <- inst $ GetElementPtr True con [ConstantOperand (C.Int 32 0), ConstantOperand (C.Int 32 0)] []
317317 inst' $ Store False tagPtr (ConstantOperand (C.Int 32 (fromIntegral tag))) Nothing 0 []
318318 forM_ (zip argVals [0..]) $ \(arg, i) -> do
319− ptr <- inst $ GetElementPtr True arg [ ConstantOperand (C.Int 32 0)
319+ ptr <- inst $ GetElementPtr True con [ ConstantOperand (C.Int 32 0)
320320 , ConstantOperand (C.Int 32 1)
321321 , ConstantOperand (C.Int 32 i)] []
322322 inst' $ Store False ptr arg Nothing 0 []