Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
214adc50
Commit
214adc50
authored
Apr 29, 2013
by
antirez
Browse files
Lua updated to version 5.1.5.
parent
48ede0d8
Changes
22
Show whitespace changes
Inline
Side-by-side
deps/lua/src/lua.h
View file @
214adc50
/*
/*
** $Id: lua.h,v 1.218.1.
5
20
08/08/06 13:30:12
roberto Exp $
** $Id: lua.h,v 1.218.1.
7
20
12/01/13 20:36:20
roberto Exp $
** Lua - An Extensible Extension Language
** Lua - An Extensible Extension Language
** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
** See Copyright Notice at the end of this file
** See Copyright Notice at the end of this file
...
@@ -17,9 +17,9 @@
...
@@ -17,9 +17,9 @@
#define LUA_VERSION "Lua 5.1"
#define LUA_VERSION "Lua 5.1"
#define LUA_RELEASE "Lua 5.1.
4
"
#define LUA_RELEASE "Lua 5.1.
5
"
#define LUA_VERSION_NUM 501
#define LUA_VERSION_NUM 501
#define LUA_COPYRIGHT "Copyright (C) 1994-20
08
Lua.org, PUC-Rio"
#define LUA_COPYRIGHT "Copyright (C) 1994-20
12
Lua.org, PUC-Rio"
#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
...
@@ -362,7 +362,7 @@ struct lua_Debug {
...
@@ -362,7 +362,7 @@ struct lua_Debug {
/******************************************************************************
/******************************************************************************
* Copyright (C) 1994-20
08
Lua.org, PUC-Rio. All rights reserved.
* Copyright (C) 1994-20
12
Lua.org, PUC-Rio. All rights reserved.
*
*
* Permission is hereby granted, free of charge, to any person obtaining
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
* a copy of this software and associated documentation files (the
...
...
deps/lua/src/lvm.c
View file @
214adc50
/*
/*
** $Id: lvm.c,v 2.63.1.
3
20
07/12/28 15:32:23
roberto Exp $
** $Id: lvm.c,v 2.63.1.
5
20
11/08/17 20:43:11
roberto Exp $
** Lua virtual machine
** Lua virtual machine
** See Copyright Notice in lua.h
** See Copyright Notice in lua.h
*/
*/
...
@@ -133,6 +133,7 @@ void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) {
...
@@ -133,6 +133,7 @@ void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) {
void
luaV_settable
(
lua_State
*
L
,
const
TValue
*
t
,
TValue
*
key
,
StkId
val
)
{
void
luaV_settable
(
lua_State
*
L
,
const
TValue
*
t
,
TValue
*
key
,
StkId
val
)
{
int
loop
;
int
loop
;
TValue
temp
;
for
(
loop
=
0
;
loop
<
MAXTAGLOOP
;
loop
++
)
{
for
(
loop
=
0
;
loop
<
MAXTAGLOOP
;
loop
++
)
{
const
TValue
*
tm
;
const
TValue
*
tm
;
if
(
ttistable
(
t
))
{
/* `t' is a table? */
if
(
ttistable
(
t
))
{
/* `t' is a table? */
...
@@ -141,6 +142,7 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
...
@@ -141,6 +142,7 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
if
(
!
ttisnil
(
oldval
)
||
/* result is no nil? */
if
(
!
ttisnil
(
oldval
)
||
/* result is no nil? */
(
tm
=
fasttm
(
L
,
h
->
metatable
,
TM_NEWINDEX
))
==
NULL
)
{
/* or no TM? */
(
tm
=
fasttm
(
L
,
h
->
metatable
,
TM_NEWINDEX
))
==
NULL
)
{
/* or no TM? */
setobj2t
(
L
,
oldval
,
val
);
setobj2t
(
L
,
oldval
,
val
);
h
->
flags
=
0
;
luaC_barriert
(
L
,
h
,
val
);
luaC_barriert
(
L
,
h
,
val
);
return
;
return
;
}
}
...
@@ -152,7 +154,9 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
...
@@ -152,7 +154,9 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
callTM
(
L
,
tm
,
t
,
key
,
val
);
callTM
(
L
,
tm
,
t
,
key
,
val
);
return
;
return
;
}
}
t
=
tm
;
/* else repeat with `tm' */
/* else repeat with `tm' */
setobj
(
L
,
&
temp
,
tm
);
/* avoid pointing inside table (may rehash) */
t
=
&
temp
;
}
}
luaG_runerror
(
L
,
"loop in settable"
);
luaG_runerror
(
L
,
"loop in settable"
);
}
}
...
...
Prev
1
2
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment