GitHub-Mirror
/
DelphiLua
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed nil pointers being pushed as userdata instead of actually nil

This commit is contained in:
Mark van Renswoude 2017-05-28 23:50:00 +02:00
parent 47b39799f3
commit f8515a948c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Lua.pas
View File

@ -737,7 +737,12 @@ begin
VariableBoolean: lua_pushboolean(AState, IfThen(AVariable.AsBoolean, 1, 0));
VariableInteger: lua_pushinteger(AState, AVariable.AsInteger);
VariableNumber: lua_pushnumber(AState, AVariable.AsNumber);
VariableUserData: lua_pushlightuserdata(AState, AVariable.AsUserData);
VariableUserData:
if AVariable.AsUserData = nil then
lua_pushnil(AState)
else
lua_pushlightuserdata(AState, AVariable.AsUserData);
VariableString: PushString(AState, AVariable.AsString);
VariableTable: PushTable(AState, AVariable.AsTable);
else
@ -2383,7 +2388,11 @@ end;
procedure TLuaStackWriteParameters.Push(AUserData: Pointer);
begin
lua_pushlightuserdata(State, AUserData);
if AUserData = nil then
lua_pushnil(State)
else
lua_pushlightuserdata(State, AUserData);
Pushed;
end;