equal
deleted
inserted
replaced
807 | otherwise = liftM (text "else" $$) $ (phrase2C . wrapPhrase) (fromJust mphrase2) |
807 | otherwise = liftM (text "else" $$) $ (phrase2C . wrapPhrase) (fromJust mphrase2) |
808 phrase2C asgn@(Assignment ref expr) = do |
808 phrase2C asgn@(Assignment ref expr) = do |
809 r <- ref2C ref |
809 r <- ref2C ref |
810 t <- gets lastType |
810 t <- gets lastType |
811 case (t, expr) of |
811 case (t, expr) of |
|
812 (_, Reference r') | ref == r' -> do |
|
813 e <- ref2C r' |
|
814 return $ text "UNUSED" <+> parens e <> semi |
812 (BTFunction {}, (Reference r')) -> do |
815 (BTFunction {}, (Reference r')) -> do |
813 e <- ref2C r' |
816 e <- ref2C r' |
814 return $ r <+> text "=" <+> e <> semi |
817 return $ r <+> text "=" <+> e <> semi |
815 (BTString, _) -> do |
818 (BTString, _) -> do |
816 void $ expr2C expr |
819 void $ expr2C expr |