--- a/tools/pas2c.hs	Fri Jun 29 22:46:58 2012 +0400
+++ b/tools/pas2c.hs	Sat Jun 30 00:20:01 2012 +0400
@@ -424,7 +424,7 @@
 
     let phrasesBlock = if isVoid then ph else t empty <+> res <> semi $+$ ph $+$ text "return" <+> res <> semi
 
-    return [(if notDeclared then funWithVarsToDefine n params else empty) $+$
+    return [(if notDeclared && hasPassByReference params then funWithVarsToDefine n params else empty) $+$
         t empty <+> text (if hasPassByReference params then n ++ "__vars" else n) <> parens p
         $+$
         text "{"