--- a/tools/pas2c/Pas2C.hs	Sun Feb 16 16:56:53 2014 +0400
+++ b/tools/pas2c/Pas2C.hs	Sun Feb 16 22:06:55 2014 +0400
@@ -809,6 +809,9 @@
     r <- ref2C ref
     t <- gets lastType
     case (t, expr) of
+        (_, Reference r') | ref == r' -> do
+            e <- ref2C r'
+            return $ text "UNUSED" <+> parens e <> semi
         (BTFunction {}, (Reference r')) -> do
             e <- ref2C r'
             return $ r <+> text "=" <+> e <> semi