Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix pas2c build a bit more
authorunc0rr
Fri, 05 Oct 2018 21:41:56 +0200
changeset 13862 0ecf77e203c0
parent 13861 d82c580b6596
child 13863 4f123ac4f002
Fix pas2c build a bit more
hedgewars/uCommandHandlers.pas file | annotate | diff | comparison | revisions
tools/pas2c/Pas2C.hs file | annotate | diff | comparison | revisions 
--- a/hedgewars/uCommandHandlers.pas	Fri Oct 05 21:31:58 2018 +0200
+++ b/hedgewars/uCommandHandlers.pas	Fri Oct 05 21:41:56 2018 +0200
@@ -445,7 +445,7 @@
         t:= 1;
     tb:= t mod 255;
     // Delegate the actual change to /timer
-    ParseCommand('timer ' + Chr(tb + Ord('0')), true);
+    ParseCommand('timer ' + Char(tb + Ord('0')), true);
     end;
 end;
 
--- a/tools/pas2c/Pas2C.hs	Fri Oct 05 21:31:58 2018 +0200
+++ b/tools/pas2c/Pas2C.hs	Fri Oct 05 21:41:56 2018 +0200
@@ -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 _ _ = empty
+    varDeclDecision True False varStr expStr = varStr <+> expStr
     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