# HG changeset patch # User nemo # Date 1301797028 14400 # Node ID 90266b67fff8d0aea8041ce81beb4fefa08de9b3 # Parent 8be2a0e9d276bd26962ebc740cf5d3fb646e66ab This better matches lua headers diff -r 8be2a0e9d276 -r 90266b67fff8 hedgewars/LuaPas.pas --- a/hedgewars/LuaPas.pas Sat Apr 02 20:33:06 2011 -0400 +++ b/hedgewars/LuaPas.pas Sat Apr 02 22:17:08 2011 -0400 @@ -241,7 +241,7 @@ function lua_tonumber(L : Plua_State; idx : LongInt) : lua_Number; cdecl; external LuaLibName; -function lua_tointeger(L : Plua_State; idx : PtrInt) : lua_Integer; +function lua_tointeger(L : Plua_State; idx : LongInt) : lua_Integer; cdecl; external LuaLibName; function lua_toboolean(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName; @@ -618,9 +618,9 @@ def : lua_Number) : lua_Number; cdecl; external LuaLibName; -function luaL_checkinteger(L : Plua_State; numArg : PtrInt) : lua_Integer; +function luaL_checkinteger(L : Plua_State; numArg : LongInt) : lua_Integer; cdecl; external LuaLibName; -function luaL_optinteger(L : Plua_State; nArg : PtrInt; +function luaL_optinteger(L : Plua_State; nArg : LongInt; def : lua_Integer) : lua_Integer; cdecl; external LuaLibName; @@ -681,10 +681,10 @@ extramsg : PChar): LongInt; function luaL_checkstring(L : Plua_State; n : LongInt) : PChar; function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar; -function luaL_checkint(L : Plua_State; n : LongInt) : LongInt; -function luaL_optint(L : Plua_State; n, d : LongInt): LongInt; -function luaL_checklong(L : Plua_State; n : LongInt) : LongInt; -function luaL_optlong(L : Plua_State; n : LongInt; d : LongInt) : LongInt; +function luaL_checkint(L : Plua_State; n : LongInt) : lua_Integer; +function luaL_optint(L : Plua_State; n : LongInt; d : lua_Integer): lua_Integer; +function luaL_checklong(L : Plua_State; n : LongInt) : lua_Integer; +function luaL_optlong(L : Plua_State; n : LongInt; d : lua_Integer) : lua_Integer; function luaL_typename(L : Plua_State; idx : LongInt) : PChar; @@ -935,22 +935,22 @@ luaL_optstring := luaL_optlstring(L, n, d, nil); end; -function luaL_checkint(L : Plua_State; n : PtrInt) : PtrInt; +function luaL_checkint(L : Plua_State; n : LongInt) : lua_Integer; begin luaL_checkint := luaL_checkinteger(L, n); end; -function luaL_optint(L : Plua_State; n, d : PtrInt): PtrInt; +function luaL_optint(L : Plua_State; n : LongInt; d : lua_Integer): lua_Integer; begin luaL_optint := luaL_optinteger(L, n, d); end; -function luaL_checklong(L : Plua_State; n : PtrInt) : PtrInt; +function luaL_checklong(L : Plua_State; n : LongInt) : lua_Integer; begin luaL_checklong := luaL_checkinteger(L, n); end; -function luaL_optlong(L : Plua_State; n : PtrInt; d : PtrInt) : PtrInt; +function luaL_optlong(L : Plua_State; n : LongInt; d : lua_Integer) : lua_Integer; begin luaL_optlong := luaL_optinteger(L, n, d); end;