# HG changeset patch
# User unc0rr
# Date 1336855201 -14400
# Node ID 8d4189609e907b7925d9ae731e71e1923979b1d2
# Parent  bcf9d8e64e92fa287feca41e796ceaac2de39f6d
oops, wrong type

diff -r bcf9d8e64e92 -r 8d4189609e90 hedgewars/options.inc
--- a/hedgewars/options.inc	Sat May 12 23:55:09 2012 +0400
+++ b/hedgewars/options.inc	Sun May 13 00:40:01 2012 +0400
@@ -77,3 +77,4 @@
 {$ENDIF}
 
 {$DEFINE _S:=}
+{$DEFINE _P:=}
diff -r bcf9d8e64e92 -r 8d4189609e90 hedgewars/pas2c.h
--- a/hedgewars/pas2c.h	Sat May 12 23:55:09 2012 +0400
+++ b/hedgewars/pas2c.h	Sun May 13 00:40:01 2012 +0400
@@ -49,7 +49,7 @@
 typedef LongInt * PLongInt;
 typedef LongWord * PLongWord;
 typedef Integer * PInteger;
-typedef int * PtrInt;
+typedef int PtrInt;
 
 #ifdef __GNUG__
 #define NULL __null
diff -r bcf9d8e64e92 -r 8d4189609e90 tools/PascalParser.hs
--- a/tools/PascalParser.hs	Sat May 12 23:55:09 2012 +0400
+++ b/tools/PascalParser.hs	Sun May 13 00:40:01 2012 +0400
@@ -357,6 +357,7 @@
         , float pas >>= return . FloatLiteral . show
         , natural pas >>= return . NumberLiteral . show
         , try (string "_S" >> stringLiteral pas) >>= return . StringLiteral
+        , try (string "_P" >> stringLiteral pas) >>= return . PCharLiteral
         , stringLiteral pas >>= return . strOrChar
         , try (string "#$") >> many hexDigit >>= \c -> comments >> return (HexCharCode c)
         , char '#' >> many digit >>= \c -> comments >> return (CharCode c)
diff -r bcf9d8e64e92 -r 8d4189609e90 tools/PascalUnitSyntaxTree.hs
--- a/tools/PascalUnitSyntaxTree.hs	Sat May 12 23:55:09 2012 +0400
+++ b/tools/PascalUnitSyntaxTree.hs	Sun May 13 00:40:01 2012 +0400
@@ -61,6 +61,7 @@
     | PostfixOp String Expression
     | BinOp String Expression Expression
     | StringLiteral String
+    | PCharLiteral String
     | CharCode String
     | HexCharCode String
     | NumberLiteral String