@@ -921,6 +921,11 @@ cgOp (LUpdateVec ety c) [v,i,e] = do
921 nv' <- inst $ InsertElement nv ne ni []
921 nv' <- inst $ InsertElement nv ne ni []
922 box fty nv'
922 box fty nv'
924+cgOp (LBitCast from to) [x] = do
925+ nx <- unbox (FArith from) x
926+ nx' <- inst $ BitCast nx (ftyToTy (FArith to)) []
924cgOp LStrEq [x,y] = do
929cgOp LStrEq [x,y] = do
925 x' <- unbox FString x
930 x' <- unbox FString x
926 y' <- unbox FString y
931 y' <- unbox FString y