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 10121 8b65699beb56
parent 10120 b7f632c12784
child 10124 aabd1b75d5a3 
--- a/tools/pas2c/Pas2C.hs	Fri Feb 07 15:44:27 2014 +0400
+++ b/tools/pas2c/Pas2C.hs	Fri Feb 07 22:42:57 2014 +0400
@@ -1200,6 +1200,7 @@
         ("pchar", BTString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "_pchar" $ BTPointerTo BTChar))
         ("pchar", BTAString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "_pcharA" $ BTPointerTo BTChar))
         ("shortstring", BTPointerTo _) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "pchar2str" $ BTString))
+        ("ansistring", BTString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "str2astr" $ BTAString))
         (a, _) -> do
             e <- expr2C expr
             t <- id2C IOLookup t'
hedgewars