help pas2c
authorunc0rr
Sun, 13 May 2012 01:54:26 +0400
changeset 7073 26f960656cc9
parent 7072 159616c24bb8
child 7074 3f23bd0f2af2
help pas2c
hedgewars/LuaPas.pas
hedgewars/hwengine.pas
hedgewars/pas2c.h
hedgewars/pas2cSystem.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;
 
--- 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);
--- 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
--- 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;