|
|
|
@ -210,7 +210,7 @@ static const char Lua_header[] = ""
|
|
|
|
|
"#define setobj(L,obj1,obj2) \\\n"
|
|
|
|
|
// NOTE we cannot use aggregate assign so following assigns by field but assumes
|
|
|
|
|
// n covers all value types
|
|
|
|
|
" { TValue *io1=(obj1); io1->tt_ = obj2->tt_; val_(io1).n = val_(obj2).n; \\\n"
|
|
|
|
|
" { TValue *io1=(obj1); const TValue *io2=(obj2); io1->tt_ = io2->tt_; val_(io1).n = val_(io2).n; \\\n"
|
|
|
|
|
" (void)L; checkliveness(L,io1); }\n"
|
|
|
|
|
"#define setobjs2s setobj\n"
|
|
|
|
|
"#define setobj2s setobj\n"
|
|
|
|
@ -220,7 +220,7 @@ static const char Lua_header[] = ""
|
|
|
|
|
"#define setobjt2t setobj\n"
|
|
|
|
|
"#define setobj2n setobj\n"
|
|
|
|
|
"#define setsvalue2n setsvalue\n"
|
|
|
|
|
"#define setobj2t(L,o1,o2) ((void)L, *(o1)=*(o2), checkliveness(L,(o1)))\n"
|
|
|
|
|
"#define setobj2t setobj\n"
|
|
|
|
|
"typedef TValue *StkId;\n"
|
|
|
|
|
"typedef struct TString {\n"
|
|
|
|
|
" CommonHeader;\n"
|
|
|
|
|