Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tools/pas2c/Pas2C.hs
changeset 13878 0ce8aad17c24
parent 13862 0ecf77e203c0
child 13887 5988e73080a3 
--- a/tools/pas2c/Pas2C.hs	Tue Oct 09 09:58:33 2018 -0400
+++ b/tools/pas2c/Pas2C.hs	Tue Oct 09 11:28:07 2018 -0400
@@ -612,7 +612,7 @@
     varDeclDecision True True varStr expStr = varStr <+> expStr
     varDeclDecision False True varStr expStr = if externVar then varStr else varStr <+> expStr
     varDeclDecision False False varStr expStr = varStr <+> expStr
-    varDeclDecision True False varStr expStr = varStr <+> expStr
+    varDeclDecision True False _ _ = empty
     arrayDimension a = case a of
         ArrayDecl Nothing t' -> let a' = arrayDimension t' in 
                                    if a' > 3 then error "Dynamic array with dimension > 4 is not supported." else 1 + a'
hedgewars