# HG changeset patch
# User unc0rr
# Date 1336859666 -14400
# Node ID 26f960656cc9cdacf8cf946975d6fa3939bca79a
# Parent  159616c24bb80a73fa873eba49ae9c0c607d0807
help pas2c

diff -r 159616c24bb8 -r 26f960656cc9 hedgewars/LuaPas.pas
--- a/hedgewars/LuaPas.pas	Sun May 13 00:50:45 2012 +0400
+++ b/hedgewars/LuaPas.pas	Sun May 13 01:54:26 2012 +0400
@@ -14,7 +14,9 @@
 {.$DEFINE LUA_GETHOOK}
 
 type
+{$IFNDEF PAS2C}    
     size_t   = Cardinal;
+{$ENDIF}
     Psize_t  = ^size_t;
     PPointer = ^Pointer;
 
diff -r 159616c24bb8 -r 26f960656cc9 hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Sun May 13 00:50:45 2012 +0400
+++ b/hedgewars/hwengine.pas	Sun May 13 01:54:26 2012 +0400
@@ -354,7 +354,7 @@
     if recordFileName = '' then
         begin
         InitIPC;
-        SendIPCAndWaitReply('C');        // ask for game config
+        SendIPCAndWaitReply(_S'C');        // ask for game config
         end
     else
         LoadRecordFromFile(recordFileName);
diff -r 159616c24bb8 -r 26f960656cc9 hedgewars/pas2c.h
--- a/hedgewars/pas2c.h	Sun May 13 00:50:45 2012 +0400
+++ b/hedgewars/pas2c.h	Sun May 13 01:54:26 2012 +0400
@@ -2,6 +2,7 @@
 
 #include <stdint.h>
 #include <stdbool.h>
+#include <wchar.h>
 
 typedef union string255_
     {
@@ -36,6 +37,7 @@
 typedef int32_t LongInt;
 typedef uint64_t QWord;
 typedef int64_t Int64;
+typedef LongWord Cardinal;
 
 typedef LongInt Integer;
 typedef float extended;
@@ -52,6 +54,7 @@
 typedef LongWord * PLongWord;
 typedef Integer * PInteger;
 typedef int PtrInt;
+typedef wchar_t widechar;
 
 #ifdef __GNUG__
 #define NULL __null
diff -r 159616c24bb8 -r 26f960656cc9 hedgewars/pas2cSystem.pas
--- a/hedgewars/pas2cSystem.pas	Sun May 13 00:50:45 2012 +0400
+++ b/hedgewars/pas2cSystem.pas	Sun May 13 01:54:26 2012 +0400
@@ -13,8 +13,8 @@
     QWord = integer;
     GLint = integer;
     GLuint = integer;
-    gl_unsigned_byte = integer;
     int = integer;
+    size_t = integer;
 
     pointer = pointer;