GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

all names used internally by macros end with '_'

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2011-04-05 11:24:07 -03:00
parent a25416a8d5
commit 83abbac946
1 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
lobject.h
View File

@ -1,5 +1,5 @@
/*
** $Id: lobject.h,v 2.46 2011/01/07 15:46:27 roberto Exp roberto $
** $Id: lobject.h,v 2.47 2011/02/28 17:32:10 roberto Exp roberto $
** Type definitions for Lua objects
** See Copyright Notice in lua.h
*/
@ -145,61 +145,61 @@ typedef struct lua_TValue {
#define setnilvalue(obj) ((obj)->tt_=LUA_TNIL)
#define setnvalue(obj,x) \
{ TValue *i_o=(obj); i_o->value_.n=(x); i_o->tt_=LUA_TNUMBER; }
{ TValue *io_=(obj); io_->value_.n=(x); io_->tt_=LUA_TNUMBER; }
#define setfvalue(obj,x) \
{ TValue *i_o=(obj); i_o->value_.f=(x); i_o->tt_=LUA_TLCF; }
{ TValue *io_=(obj); io_->value_.f=(x); io_->tt_=LUA_TLCF; }
#define changenvalue(o,x) check_exp((o)->tt_==LUA_TNUMBER, (o)->value_.n=(x))
#define setpvalue(obj,x) \
{ TValue *i_o=(obj); i_o->value_.p=(x); i_o->tt_=LUA_TLIGHTUSERDATA; }
{ TValue *io_=(obj); io_->value_.p=(x); io_->tt_=LUA_TLIGHTUSERDATA; }
#define setbvalue(obj,x) \
{ TValue *i_o=(obj); i_o->value_.b=(x); i_o->tt_=LUA_TBOOLEAN; }
{ TValue *io_=(obj); io_->value_.b=(x); io_->tt_=LUA_TBOOLEAN; }
#define setgcovalue(L,obj,x) \
{ TValue *i_o=(obj); GCObject *i_g=(x); \
i_o->value_.gc=i_g; i_o->tt_=gch(i_g)->tt; }
{ TValue *io_=(obj); GCObject *i_g=(x); \
io_->value_.gc=i_g; io_->tt_=gch(i_g)->tt; }
#define setsvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TSTRING; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TSTRING; \
checkliveness(G(L),io_); }
#define setuvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TUSERDATA; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TUSERDATA; \
checkliveness(G(L),io_); }
#define setthvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TTHREAD; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TTHREAD; \
checkliveness(G(L),io_); }
#define setclvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TFUNCTION; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TFUNCTION; \
checkliveness(G(L),io_); }
#define sethvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TTABLE; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TTABLE; \
checkliveness(G(L),io_); }
#define setptvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value_.gc=cast(GCObject *, (x)); i_o->tt_=LUA_TPROTO; \
checkliveness(G(L),i_o); }
{ TValue *io_=(obj); \
io_->value_.gc=cast(GCObject *, (x)); io_->tt_=LUA_TPROTO; \
checkliveness(G(L),io_); }
#define setdeadvalue(obj) ((obj)->tt_=LUA_TDEADKEY)
#define setobj(L,obj1,obj2) \
{ const TValue *o2=(obj2); TValue *o1=(obj1); \
o1->value_ = o2->value_; o1->tt_=o2->tt_; \
checkliveness(G(L),o1); }
{ const TValue *o2_=(obj2); TValue *o1_=(obj1); \
o1_->value_ = o2_->value_; o1_->tt_=o2_->tt_; \
checkliveness(G(L),o1_); }
/*