@@ -921,6 +921,11 @@ cgOp (LUpdateVec ety c) [v,i,e] = do
921921 nv' <- inst $ InsertElement nv ne ni []
922922 box fty nv'
923923
924+cgOp (LBitCast from to) [x] = do
925+ nx <- unbox (FArith from) x
926+ nx' <- inst $ BitCast nx (ftyToTy (FArith to)) []
927+ box (FArith to) nx'
928+
924929cgOp LStrEq [x,y] = do
925930 x' <- unbox FString x
926931 y' <- unbox FString y