# HG changeset patch
# User unc0rr
# Date 1341001201 -14400
# Node ID 92b6d8ae99e49afbe36f9005bfdbc78e480bb0a0
# Parent  4e35c45d0853b130e3e579edd499b9301b2b2d3a
Don't produce unnecessary and erroneous defines

diff -r 4e35c45d0853 -r 92b6d8ae99e4 tools/pas2c.hs
--- 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 "{"