usr/src/boot/efi/include/Base.h
1252
#define RETURN_ADDRESS(L) ((L == 0) ? _ReturnAddress() : (VOID *) 0)
usr/src/boot/efi/include/Base.h
1266
#define RETURN_ADDRESS(L) __builtin_return_address (L)
usr/src/boot/efi/include/Base.h
1277
#define RETURN_ADDRESS(L) ((VOID *) 0)
usr/src/boot/libsa/qdivrem.c
128
u[3] = HHALF(tmp.ul[L]);
usr/src/boot/libsa/qdivrem.c
129
u[4] = LHALF(tmp.ul[L]);
usr/src/boot/libsa/qdivrem.c
133
v[3] = HHALF(tmp.ul[L]);
usr/src/boot/libsa/qdivrem.c
134
v[4] = LHALF(tmp.ul[L]);
usr/src/boot/libsa/qdivrem.c
159
tmp.ul[L] = COMBINE(q3, q4);
usr/src/boot/libsa/qdivrem.c
267
tmp.ul[L] = COMBINE(uspace[3], uspace[4]);
usr/src/boot/libsa/qdivrem.c
272
tmp.ul[L] = COMBINE(qspace[3], qspace[4]);
usr/src/boot/libsa/qdivrem.c
97
tmp.ul[H] = tmp.ul[L] = 1 / zero;
usr/src/boot/sys/x86/include/_stdint.h
54
#define INT64_C(c) (c ## L)
usr/src/cmd/audio/utilities/AudioTypePcm.cc
101
long2dbl(long L)
usr/src/cmd/audio/utilities/AudioTypePcm.cc
103
return ((unsigned long)L == 0x80000000 ? -1. : (double)L / 2147483647.);
usr/src/cmd/awk_xpg4/awk.h
463
#define M_MB_L(s) L##s
usr/src/cmd/csh/sh.h
273
} L;
usr/src/cmd/csh/sh.h
278
#define t_dlef L.T_dlef
usr/src/cmd/csh/sh.h
279
#define t_dcar L.T_dcar
usr/src/cmd/lp/cmd/lpforms.c
132
static int L = 0;
usr/src/cmd/lp/cmd/lpforms.c
310
L = 1;
usr/src/cmd/lp/cmd/lpforms.c
929
whichVal = (pf->paper && (L == 0) ? 0 : 1);
usr/src/cmd/nohup/nohup.c
358
struct ps_lwphandle *L;
usr/src/cmd/nohup/nohup.c
367
L = Lgrab(g_proc, lsp->pr_lwpid, &err);
usr/src/cmd/nohup/nohup.c
368
(void) Lsetrun(L, 0, PRSABORT);
usr/src/cmd/nohup/nohup.c
369
Lfree(L);
usr/src/cmd/nohup/nohup.c
383
struct ps_lwphandle *L;
usr/src/cmd/nohup/nohup.c
400
L = Lgrab(g_proc, lsp->pr_lwpid, &err);
usr/src/cmd/nohup/nohup.c
401
(void) Lputareg(L, R_R0, ERESTART);
usr/src/cmd/nohup/nohup.c
402
Lsync(L);
usr/src/cmd/nohup/nohup.c
403
Lfree(L);
usr/src/cmd/pools/poold/libjpool/jpool.c
148
jobject L;
usr/src/cmd/pools/poold/libjpool/jpool.c
150
L = (*jenv)->NewObject(jenv,
usr/src/cmd/pools/poold/libjpool/jpool.c
153
jresult, ALadd, L);
usr/src/cmd/ptools/prun/prun.c
142
struct ps_lwphandle *L;
usr/src/cmd/ptools/prun/prun.c
152
if ((L = Lgrab(P, info->pr_lwpid, &gcode)) != NULL) {
usr/src/cmd/ptools/prun/prun.c
153
(void) Lsetrun(L, 0, 0);
usr/src/cmd/ptools/prun/prun.c
154
Lfree(L);
usr/src/cmd/ptools/pstop/pstop.c
113
struct ps_lwphandle *L;
usr/src/cmd/ptools/pstop/pstop.c
123
if ((L = Lgrab(P, info->pr_lwpid, &gcode)) != NULL) {
usr/src/cmd/ptools/pstop/pstop.c
124
(void) Ldstop(L);
usr/src/cmd/ptools/pstop/pstop.c
125
Lfree(L);
usr/src/cmd/sendmail/db/include/lock.h
159
#define TXN_IS_HOLDING(L) ((L)->txnoff != 0 /* INVALID_REG_OFFSET */)
usr/src/cmd/sort/check.c
42
fail_check(line_rec_t *L, int flags, u_longlong_t lineno)
usr/src/cmd/sort/check.c
48
if ((length = (ssize_t)wcstombs(NULL, L->l_data.wp, 0)) < 0)
usr/src/cmd/sort/check.c
55
(void) wcstombs(line, L->l_data.wp, L->l_data_length);
usr/src/cmd/sort/check.c
58
line = L->l_data.sp;
usr/src/cmd/sort/check.c
59
length = L->l_data_length;
usr/src/cmd/sort/fields.c
1046
L->l_collate_bufsize - coll_offset * sizeof (wchar_t))
usr/src/cmd/sort/fields.c
1057
field_convert(field_t *F, line_rec_t *L, int flags, vchar_t field_separator)
usr/src/cmd/sort/fields.c
1068
field_delimit(cur_fieldp, L, &start, &end);
usr/src/cmd/sort/fields.c
1070
field_delimit_tabbed(cur_fieldp, L, &start, &end,
usr/src/cmd/sort/fields.c
1080
distance = cur_fieldp->f_convert(cur_fieldp, L,
usr/src/cmd/sort/fields.c
1088
ASSERT(L->l_collate_bufsize > 0);
usr/src/cmd/sort/fields.c
1089
L->l_collate_bufsize *= 2;
usr/src/cmd/sort/fields.c
1090
L->l_collate.sp =
usr/src/cmd/sort/fields.c
1091
safe_realloc(L->l_collate.sp,
usr/src/cmd/sort/fields.c
1092
L->l_collate_bufsize);
usr/src/cmd/sort/fields.c
1106
xstrninv(L->l_collate.sp, coll_offset, distance);
usr/src/cmd/sort/fields.c
1107
*(L->l_collate.sp + coll_offset + distance) =
usr/src/cmd/sort/fields.c
1114
if (coll_offset >= L->l_collate_bufsize) {
usr/src/cmd/sort/fields.c
1116
ASSERT(L->l_collate_bufsize > 0);
usr/src/cmd/sort/fields.c
1117
L->l_collate_bufsize *= 2;
usr/src/cmd/sort/fields.c
1118
L->l_collate.sp = safe_realloc(L->l_collate.sp,
usr/src/cmd/sort/fields.c
1119
L->l_collate_bufsize);
usr/src/cmd/sort/fields.c
1126
*(L->l_collate.sp + coll_offset) = INTERFIELD_SEPARATOR;
usr/src/cmd/sort/fields.c
1132
L->l_collate_length = coll_offset;
usr/src/cmd/sort/fields.c
1134
return (L->l_collate_length);
usr/src/cmd/sort/fields.c
1138
field_convert_wide(field_t *F, line_rec_t *L, int flags,
usr/src/cmd/sort/fields.c
1147
field_delimit_wide(cur_fieldp, L, &start, &end);
usr/src/cmd/sort/fields.c
1149
field_delimit_tabbed_wide(cur_fieldp, L, &start, &end,
usr/src/cmd/sort/fields.c
1155
distance = cur_fieldp->f_convert(cur_fieldp, L,
usr/src/cmd/sort/fields.c
1160
ASSERT(L->l_collate_bufsize > 0);
usr/src/cmd/sort/fields.c
1161
L->l_collate_bufsize *= 2;
usr/src/cmd/sort/fields.c
1162
L->l_collate.wp = safe_realloc(
usr/src/cmd/sort/fields.c
1163
L->l_collate.wp,
usr/src/cmd/sort/fields.c
1164
L->l_collate_bufsize);
usr/src/cmd/sort/fields.c
1175
xwcsninv(L->l_collate.wp, coll_offset, distance);
usr/src/cmd/sort/fields.c
1176
*(L->l_collate.wp + coll_offset + distance) =
usr/src/cmd/sort/fields.c
1183
if (coll_offset * sizeof (wchar_t) >= L->l_collate_bufsize) {
usr/src/cmd/sort/fields.c
1185
ASSERT(L->l_collate_bufsize > 0);
usr/src/cmd/sort/fields.c
1186
L->l_collate_bufsize *= 2;
usr/src/cmd/sort/fields.c
1187
L->l_collate.wp = safe_realloc(L->l_collate.wp,
usr/src/cmd/sort/fields.c
1188
L->l_collate_bufsize);
usr/src/cmd/sort/fields.c
1195
*(L->l_collate.wp + coll_offset) = W_INTERFIELD_SEPARATOR;
usr/src/cmd/sort/fields.c
1201
L->l_collate_length = coll_offset * sizeof (wchar_t);
usr/src/cmd/sort/fields.c
1203
xwcsntomsb(L->l_collate.wp, coll_offset);
usr/src/cmd/sort/fields.c
1206
return (L->l_collate_length);
usr/src/cmd/sort/fields.c
1218
line_convert(line_rec_t *L)
usr/src/cmd/sort/fields.c
1223
if (L->l_raw_collate.sp != NULL)
usr/src/cmd/sort/fields.c
1226
if (L->l_data_length + 1 > bufsize) {
usr/src/cmd/sort/fields.c
1227
buffer = safe_realloc(buffer, L->l_data_length + 1);
usr/src/cmd/sort/fields.c
1228
bufsize = L->l_data_length + 1;
usr/src/cmd/sort/fields.c
1231
(void) strncpy(buffer, L->l_data.sp, L->l_data_length);
usr/src/cmd/sort/fields.c
1232
buffer[L->l_data_length] = '\0';
usr/src/cmd/sort/fields.c
1234
L->l_raw_collate.sp = safe_realloc(L->l_raw_collate.sp,
usr/src/cmd/sort/fields.c
1235
xfrm_ops->sx_len(buffer, L->l_data_length) + 1);
usr/src/cmd/sort/fields.c
1236
xfrm_ops->sx_xfrm(L->l_raw_collate.sp, buffer,
usr/src/cmd/sort/fields.c
1237
xfrm_ops->sx_len(buffer, L->l_data_length) + 1);
usr/src/cmd/sort/fields.c
1243
line_convert_wide(line_rec_t *L)
usr/src/cmd/sort/fields.c
1250
if (L->l_raw_collate.wp != NULL)
usr/src/cmd/sort/fields.c
1253
if (L->l_data_length + 1 > bufsize) {
usr/src/cmd/sort/fields.c
1254
buffer = safe_realloc(buffer, (L->l_data_length + 1) *
usr/src/cmd/sort/fields.c
1256
bufsize = L->l_data_length + 1;
usr/src/cmd/sort/fields.c
1259
(void) wcsncpy(buffer, L->l_data.wp, L->l_data_length);
usr/src/cmd/sort/fields.c
1260
buffer[L->l_data_length] = L'\0';
usr/src/cmd/sort/fields.c
1263
L->l_raw_collate.wp = safe_realloc(L->l_raw_collate.wp, dlength *
usr/src/cmd/sort/fields.c
1265
(void) wcsxfrm(L->l_raw_collate.wp, buffer, dlength);
usr/src/cmd/sort/fields.c
363
field_boundary(field_t *F, line_rec_t *L, int is_end, int is_blanks)
usr/src/cmd/sort/fields.c
365
char *S = L->l_data.sp;
usr/src/cmd/sort/fields.c
367
char *eol = S + L->l_data_length;
usr/src/cmd/sort/fields.c
375
return (L->l_data_length);
usr/src/cmd/sort/fields.c
390
if ((ret = MAX(T - S, 0) + offset) >= L->l_data_length)
usr/src/cmd/sort/fields.c
391
return (L->l_data_length);
usr/src/cmd/sort/fields.c
397
field_delimit(field_t *F, line_rec_t *L, ssize_t *start, ssize_t *end)
usr/src/cmd/sort/fields.c
401
*start = field_boundary(F, L, 0,
usr/src/cmd/sort/fields.c
403
*end = field_boundary(F, L, 1,
usr/src/cmd/sort/fields.c
408
field_boundary_wide(field_t *F, line_rec_t *L, int is_end, int is_blanks)
usr/src/cmd/sort/fields.c
410
wchar_t *S = L->l_data.wp;
usr/src/cmd/sort/fields.c
412
wchar_t *eol = S + L->l_data_length;
usr/src/cmd/sort/fields.c
420
return (L->l_data_length);
usr/src/cmd/sort/fields.c
435
if ((ret = MAX(T - S, 0) + offset) >= L->l_data_length)
usr/src/cmd/sort/fields.c
436
return (L->l_data_length);
usr/src/cmd/sort/fields.c
442
field_delimit_wide(field_t *F, line_rec_t *L, ssize_t *start, ssize_t *end)
usr/src/cmd/sort/fields.c
446
*start = field_boundary_wide(F, L, 0,
usr/src/cmd/sort/fields.c
448
*end = field_boundary_wide(F, L, 1,
usr/src/cmd/sort/fields.c
453
field_boundary_tabbed(field_t *F, line_rec_t *L, int is_end, int is_blanks,
usr/src/cmd/sort/fields.c
456
char *S = L->l_data.sp;
usr/src/cmd/sort/fields.c
458
char *eol = S + L->l_data_length;
usr/src/cmd/sort/fields.c
466
return (L->l_data_length);
usr/src/cmd/sort/fields.c
471
return (L->l_data_length);
usr/src/cmd/sort/fields.c
481
if ((ret = MAX(T - S, 0) + offset) >= L->l_data_length) {
usr/src/cmd/sort/fields.c
482
if (L->l_data_length <= 0)
usr/src/cmd/sort/fields.c
484
if (S[L->l_data_length - 1] == delimiter.sc) {
usr/src/cmd/sort/fields.c
485
return (L->l_data_length - 1);
usr/src/cmd/sort/fields.c
487
return (L->l_data_length);
usr/src/cmd/sort/fields.c
504
field_delimit_tabbed(field_t *F, line_rec_t *L, ssize_t *start, ssize_t *end,
usr/src/cmd/sort/fields.c
509
*start = field_boundary_tabbed(F, L, 0, F->f_options &
usr/src/cmd/sort/fields.c
511
*end = field_boundary_tabbed(F, L, 1, F->f_options &
usr/src/cmd/sort/fields.c
516
field_boundary_tabbed_wide(field_t *F, line_rec_t *L, int is_end, int is_blanks,
usr/src/cmd/sort/fields.c
519
wchar_t *S = L->l_data.wp;
usr/src/cmd/sort/fields.c
521
wchar_t *eol = S + L->l_data_length;
usr/src/cmd/sort/fields.c
529
return (L->l_data_length);
usr/src/cmd/sort/fields.c
534
return (L->l_data_length);
usr/src/cmd/sort/fields.c
544
if ((ret = MAX(T - S, 0) + offset) >= L->l_data_length) {
usr/src/cmd/sort/fields.c
545
if (L->l_data_length <= 0)
usr/src/cmd/sort/fields.c
547
if (S[L->l_data_length - 1] == delimiter.wc) {
usr/src/cmd/sort/fields.c
548
return (L->l_data_length - 1);
usr/src/cmd/sort/fields.c
550
return (L->l_data_length);
usr/src/cmd/sort/fields.c
561
field_delimit_tabbed_wide(field_t *F, line_rec_t *L, ssize_t *start,
usr/src/cmd/sort/fields.c
566
*start = field_boundary_tabbed_wide(F, L, 0, F->f_options &
usr/src/cmd/sort/fields.c
568
*end = field_boundary_tabbed_wide(F, L, 1, F->f_options &
usr/src/cmd/sort/fields.c
574
field_convert_month(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
583
if (sizeof (char) > L->l_collate_bufsize - coll_offset)
usr/src/cmd/sort/fields.c
592
while (IS_BLANK(*(L->l_data.sp + month_offset))) {
usr/src/cmd/sort/fields.c
598
month_candidate[j] = toupper((L->l_data.sp + month_offset)[j]);
usr/src/cmd/sort/fields.c
602
*(L->l_collate.sp + coll_offset) = '\0' + j + MO_OFFSET;
usr/src/cmd/sort/fields.c
612
*(L->l_collate.sp + coll_offset) = '\0' + MO_NONE;
usr/src/cmd/sort/fields.c
614
val = field_convert_alpha_simple(F, L, delimiter, data_offset,
usr/src/cmd/sort/fields.c
625
field_convert_month_wide(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
632
wchar_t *buffer = L->l_collate.wp + coll_offset;
usr/src/cmd/sort/fields.c
636
if (L->l_collate_bufsize - coll_offset * sizeof (wchar_t) <
usr/src/cmd/sort/fields.c
643
while (W_IS_BLANK(*(L->l_data.wp + month_offset))) {
usr/src/cmd/sort/fields.c
648
month = L->l_data.wp + month_offset;
usr/src/cmd/sort/fields.c
662
val = field_convert_alpha_wide(F, L, delimiter, data_offset,
usr/src/cmd/sort/fields.c
677
field_convert_alpha(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
693
char t = (L->l_data.sp)[i];
usr/src/cmd/sort/fields.c
711
L->l_collate_bufsize - coll_offset)
usr/src/cmd/sort/fields.c
712
return (xfrm_ops->sx_xfrm(L->l_collate.sp + coll_offset,
usr/src/cmd/sort/fields.c
720
field_convert_alpha_simple(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
734
(void) memcpy(compose, L->l_data.sp + data_offset, data_length);
usr/src/cmd/sort/fields.c
739
L->l_collate_bufsize - coll_offset)
usr/src/cmd/sort/fields.c
740
return (xfrm_ops->sx_xfrm(L->l_collate.sp + coll_offset,
usr/src/cmd/sort/fields.c
748
field_convert_alpha_wide(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
759
wchar_t t = (L->l_data.wp)[i];
usr/src/cmd/sort/fields.c
776
if ((dlength * sizeof (wchar_t)) < L->l_collate_bufsize -
usr/src/cmd/sort/fields.c
778
ret = (ssize_t)wcsxfrm(L->l_collate.wp + coll_offset, compose,
usr/src/cmd/sort/fields.c
796
field_convert_numeric(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
800
char *buffer = L->l_collate.sp + coll_offset;
usr/src/cmd/sort/fields.c
811
number = L->l_data.sp + data_offset;
usr/src/cmd/sort/fields.c
829
(L->l_collate_bufsize - coll_offset))
usr/src/cmd/sort/fields.c
933
L->l_collate_bufsize - coll_offset)
usr/src/cmd/sort/fields.c
941
field_convert_numeric_wide(field_t *F, line_rec_t *L, vchar_t delimiter,
usr/src/cmd/sort/fields.c
945
wchar_t *buffer = L->l_collate.wp + coll_offset;
usr/src/cmd/sort/fields.c
957
number = L->l_data.wp + data_offset;
usr/src/cmd/sort/fields.c
965
sizeof (int)) > (L->l_collate_bufsize - coll_offset))
usr/src/cmd/spell/hashcheck.c
51
int empty = L;
usr/src/cmd/spell/hashlook.c
40
#define MASK (~((unsigned long)1L<<L))
usr/src/cmd/spell/hashlook.c
86
t = y >> (long) (L+1-w);
usr/src/cmd/spell/hashlook.c
92
t = v + (y>> (long)(L-w));
usr/src/cmd/spell/huff.c
100
#define MASK (~((unsigned long)1<<L)) /* mask out sign */
usr/src/cmd/spell/huff.c
114
*pk = y >> (long)(L+QW-w);
usr/src/cmd/spell/huff.c
119
if ((l += QW) > L)
usr/src/cmd/spell/huff.c
121
*pk = v + (y>>(long)(L-w));
usr/src/cmd/spell/huff.c
142
if ((l += QW) > L)
usr/src/cmd/spell/huff.c
197
cs = cq<<(L-w);
usr/src/cmd/spell/huff.c
198
qcs = (((long)(q-1)<<w) + cq) << (L-QW-w);
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
505
char L[64];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
506
char *const R = &L[32];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
516
L[j] = block[IP[j]-1];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
574
R[j] = L[j] ^ f[P[j]-1];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
581
L[j] = tempL[j];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
583
memcpy(L, tempL, 32);
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
590
t = L[j];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
591
L[j] = R[j];
usr/src/lib/gss_mechs/mech_krb5/crypto/des/afsstring2key.c
599
block[j] = L[FP[j]-1];
usr/src/lib/gss_mechs/mech_krb5/include/port-sockets.h
138
#define SG_SET(SG, B, L) ((SG)->iov_base = (char*)(B), (SG)->iov_len = (L))
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
110
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
111
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
123
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
124
if((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
133
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
134
if((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
65
#define DEBUG(L, STR, A1, A2, A3)
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
72
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
73
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
90
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/hbaapi/common/HBAAPILIB-sun.c
91
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB.c
113
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB.c
114
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB.c
126
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB.c
127
if((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB.c
136
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/hbaapi/common/HBAAPILIB.c
137
if((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB.c
68
#define DEBUG(L, STR, A1, A2, A3)
usr/src/lib/hbaapi/common/HBAAPILIB.c
75
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/hbaapi/common/HBAAPILIB.c
76
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/hbaapi/common/HBAAPILIB.c
93
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/hbaapi/common/HBAAPILIB.c
94
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/libc/port/fp/ashldi3.c
50
aa.ul[L] << (shift - LONG_BITS);
usr/src/lib/libc/port/fp/ashldi3.c
51
aa.ul[L] = 0;
usr/src/lib/libc/port/fp/ashldi3.c
54
(aa.ul[L] >> (LONG_BITS - shift));
usr/src/lib/libc/port/fp/ashldi3.c
55
aa.ul[L] <<= shift;
usr/src/lib/libc/port/fp/ashrdi3.c
58
aa.ul[L] = shift >= QUAD_BITS ? s :
usr/src/lib/libc/port/fp/ashrdi3.c
62
aa.ul[L] = (aa.ul[L] >> shift) |
usr/src/lib/libc/port/fp/cmpdi2.c
51
aa.ul[L] < bb.ul[L] ? 0 : aa.ul[L] > bb.ul[L] ? 2 : 1);
usr/src/lib/libc/port/fp/floatdidf.c
44
d += aa.ul[L];
usr/src/lib/libc/port/fp/floatdisf.c
44
d += aa.ul[L];
usr/src/lib/libc/port/fp/floatundidf.c
44
d += aa.ul[L];
usr/src/lib/libc/port/fp/floatundisf.c
44
d += aa.ul[L];
usr/src/lib/libc/port/fp/lshrdi3.c
48
aa.ul[L] = shift >= QUAD_BITS ? 0 :
usr/src/lib/libc/port/fp/lshrdi3.c
52
aa.ul[L] = (aa.ul[L] >> shift) |
usr/src/lib/libc/port/fp/muldi3.c
108
#define u0 u.ul[L]
usr/src/lib/libc/port/fp/muldi3.c
110
#define v0 v.ul[L]
usr/src/lib/libc/port/fp/muldi3.c
157
prod.ul[H] = high + (negmid ? -mid : mid) + low.ul[L] +
usr/src/lib/libc/port/fp/muldi3.c
159
prod.ul[L] = low.ul[L];
usr/src/lib/libc/port/fp/muldi3.c
241
prod.ul[L] = prodl;
usr/src/lib/libc/port/fp/qdivrem.c
128
u[3] = HHALF(tmp.ul[L]);
usr/src/lib/libc/port/fp/qdivrem.c
129
u[4] = LHALF(tmp.ul[L]);
usr/src/lib/libc/port/fp/qdivrem.c
133
v[3] = HHALF(tmp.ul[L]);
usr/src/lib/libc/port/fp/qdivrem.c
134
v[4] = LHALF(tmp.ul[L]);
usr/src/lib/libc/port/fp/qdivrem.c
159
tmp.ul[L] = COMBINE(q3, q4);
usr/src/lib/libc/port/fp/qdivrem.c
267
tmp.ul[L] = COMBINE(uspace[3], uspace[4]);
usr/src/lib/libc/port/fp/qdivrem.c
272
tmp.ul[L] = COMBINE(qspace[3], qspace[4]);
usr/src/lib/libc/port/fp/qdivrem.c
97
tmp.ul[H] = tmp.ul[L] = 1 / zero;
usr/src/lib/libc/port/fp/ucmpdi2.c
50
aa.ul[L] < bb.ul[L] ? 0 : aa.ul[L] > bb.ul[L] ? 2 : 1);
usr/src/lib/libc/port/gen/crypt.c
1010
static char L[64];
usr/src/lib/libc/port/gen/crypt.c
1021
char *R = &L[32];
usr/src/lib/libc/port/gen/crypt.c
1024
L[j] = block[IP[j]-1];
usr/src/lib/libc/port/gen/crypt.c
1047
R[j] = L[j] ^ f[P[j]-1];
usr/src/lib/libc/port/gen/crypt.c
1049
L[j] = tempL[j];
usr/src/lib/libc/port/gen/crypt.c
1052
t = L[j];
usr/src/lib/libc/port/gen/crypt.c
1053
L[j] = R[j];
usr/src/lib/libc/port/gen/crypt.c
1057
block[j] = L[FP[j]-1];
usr/src/lib/libc/port/print/doprnt.c
1006
*--bp = (CHAR_T)lll + L('0');
usr/src/lib/libc/port/print/doprnt.c
126
*wp = L('\0'); \
usr/src/lib/libc/port/print/doprnt.c
297
static const CHAR_T uc_digs[] = L("0123456789ABCDEF");
usr/src/lib/libc/port/print/doprnt.c
298
static const CHAR_T lc_digs[] = L("0123456789abcdef");
usr/src/lib/libc/port/print/doprnt.c
300
static const CHAR_T digits[] = L("01234567890");
usr/src/lib/libc/port/print/doprnt.c
301
static const CHAR_T skips[] = L("# +-.'0123456789h$");
usr/src/lib/libc/port/print/doprnt.c
73
#define L(x) L##x
usr/src/lib/libc/port/print/doprnt.c
90
#define _P_HYPHEN L("-")
usr/src/lib/libc/port/print/doprnt.c
91
#define _P_PLUS L("+")
usr/src/lib/libc/port/print/doprnt.c
92
#define _P_BLANK L(" ")
usr/src/lib/libc/port/print/doprnt.c
93
#define _P_ZEROx L("0x")
usr/src/lib/libc/port/print/doprnt.c
94
#define _P_ZEROX L("0X")
usr/src/lib/libcrypt/common/des_crypt.c
275
static char L[64];
usr/src/lib/libcrypt/common/des_crypt.c
292
(void) _des_decrypt1(block, L, IP, &L[32],
usr/src/lib/libcrypt/common/des_crypt.c
295
(void) des_encrypt1(block, L, IP, &L[32],
usr/src/lib/libcrypt/common/des_decrypt.c
100
L[j] = tempL[j];
usr/src/lib/libcrypt/common/des_decrypt.c
106
t2 = L[j];
usr/src/lib/libcrypt/common/des_decrypt.c
107
L[j] = R[j];
usr/src/lib/libcrypt/common/des_decrypt.c
115
block[j] = L[FP[j]-1];
usr/src/lib/libcrypt/common/des_decrypt.c
36
_des_decrypt1(char *block, char *L, char *IP, char *R, char *preS, char *E, char KS[][48], char S[][64], char *f, char *tempL, char *P, char *FP)
usr/src/lib/libcrypt/common/des_decrypt.c
46
L[j] = block[IP[j]-1];
usr/src/lib/libcrypt/common/des_decrypt.c
94
R[j] = L[j] ^ f[P[j]-1];
usr/src/lib/libcrypt/common/des_encrypt.c
105
t2 = L[j];
usr/src/lib/libcrypt/common/des_encrypt.c
106
L[j] = R[j];
usr/src/lib/libcrypt/common/des_encrypt.c
114
block[j] = L[FP[j]-1];
usr/src/lib/libcrypt/common/des_encrypt.c
35
des_encrypt1(char *block, char *L, char *IP, char *R, char *preS, char *E,
usr/src/lib/libcrypt/common/des_encrypt.c
46
L[j] = block[IP[j]-1];
usr/src/lib/libcrypt/common/des_encrypt.c
93
R[j] = L[j] ^ f[P[j]-1];
usr/src/lib/libcrypt/common/des_encrypt.c
99
L[j] = tempL[j];
usr/src/lib/libldap5/sources/ldap/common/sort.c
66
auto keything_t **L = (keything_t**)Lv;
usr/src/lib/libldap5/sources/ldap/common/sort.c
68
auto keycmp_t *cmp = (*L)->kt_cmp;
usr/src/lib/libldap5/sources/ldap/common/sort.c
69
return cmp->kc_cmp( cmp->kc_arg, (*L)->kt_key, (*R)->kt_key );
usr/src/lib/libproc/common/Pcontrol.c
1253
struct ps_lwphandle *L;
usr/src/lib/libproc/common/Pcontrol.c
1255
while ((L = P->hashtab[i]) != NULL)
usr/src/lib/libproc/common/Pcontrol.c
1256
Lfree_internal(P, L);
usr/src/lib/libproc/common/Pcontrol.c
3217
struct ps_lwphandle *L;
usr/src/lib/libproc/common/Pcontrol.c
3220
(L = *Lp) != NULL; Lp = &L->lwp_hash)
usr/src/lib/libproc/common/Pcontrol.c
3221
if (L->lwp_id == lwpid)
usr/src/lib/libproc/common/Pcontrol.c
3249
struct ps_lwphandle *L;
usr/src/lib/libproc/common/Pcontrol.c
3265
else if ((L = malloc(sizeof (struct ps_lwphandle))) == NULL)
usr/src/lib/libproc/common/Pcontrol.c
3273
(void) memset(L, 0, sizeof (*L));
usr/src/lib/libproc/common/Pcontrol.c
3274
L->lwp_ctlfd = -1;
usr/src/lib/libproc/common/Pcontrol.c
3275
L->lwp_statfd = -1;
usr/src/lib/libproc/common/Pcontrol.c
3276
L->lwp_proc = P;
usr/src/lib/libproc/common/Pcontrol.c
3277
L->lwp_id = lwpid;
usr/src/lib/libproc/common/Pcontrol.c
3278
*Lp = L; /* insert into the hash table */
usr/src/lib/libproc/common/Pcontrol.c
3281
if (getlwpstatus(P, lwpid, &L->lwp_status) == -1) {
usr/src/lib/libproc/common/Pcontrol.c
3285
L->lwp_state = PS_DEAD;
usr/src/lib/libproc/common/Pcontrol.c
3288
return (L);
usr/src/lib/libproc/common/Pcontrol.c
3314
L->lwp_statfd = fd;
usr/src/lib/libproc/common/Pcontrol.c
3316
if (pread(fd, &L->lwp_status, sizeof (L->lwp_status), (off_t)0) < 0) {
usr/src/lib/libproc/common/Pcontrol.c
3345
L->lwp_ctlfd = fd;
usr/src/lib/libproc/common/Pcontrol.c
3347
L->lwp_state =
usr/src/lib/libproc/common/Pcontrol.c
3348
((L->lwp_status.pr_flags & (PR_STOPPED|PR_ISTOP))
usr/src/lib/libproc/common/Pcontrol.c
3354
return (L);
usr/src/lib/libproc/common/Pcontrol.c
3357
Lfree_internal(P, L);
usr/src/lib/libproc/common/Pcontrol.c
3393
Lfree(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3395
struct ps_prochandle *P = L->lwp_proc;
usr/src/lib/libproc/common/Pcontrol.c
3398
Lfree_internal(P, L);
usr/src/lib/libproc/common/Pcontrol.c
3403
Lfree_internal(struct ps_prochandle *P, struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3405
*Lfind_slot(P, L->lwp_id) = L->lwp_hash; /* delete from hash table */
usr/src/lib/libproc/common/Pcontrol.c
3406
if (L->lwp_ctlfd >= 0)
usr/src/lib/libproc/common/Pcontrol.c
3407
(void) close(L->lwp_ctlfd);
usr/src/lib/libproc/common/Pcontrol.c
3408
if (L->lwp_statfd >= 0)
usr/src/lib/libproc/common/Pcontrol.c
3409
(void) close(L->lwp_statfd);
usr/src/lib/libproc/common/Pcontrol.c
3412
(void) memset(L, 0, sizeof (*L));
usr/src/lib/libproc/common/Pcontrol.c
3413
L->lwp_ctlfd = -1;
usr/src/lib/libproc/common/Pcontrol.c
3414
L->lwp_statfd = -1;
usr/src/lib/libproc/common/Pcontrol.c
3416
free(L);
usr/src/lib/libproc/common/Pcontrol.c
3423
Lstate(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3425
return (L->lwp_state);
usr/src/lib/libproc/common/Pcontrol.c
3434
Lctlfd(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3436
return (L->lwp_ctlfd);
usr/src/lib/libproc/common/Pcontrol.c
3445
Lpsinfo(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3447
if (Plwp_getpsinfo(L->lwp_proc, L->lwp_id, &L->lwp_psinfo) == -1)
usr/src/lib/libproc/common/Pcontrol.c
3450
return (&L->lwp_psinfo);
usr/src/lib/libproc/common/Pcontrol.c
3459
Lstatus(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3461
return (&L->lwp_status);
usr/src/lib/libproc/common/Pcontrol.c
3468
Lprochandle(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3470
return (L->lwp_proc);
usr/src/lib/libproc/common/Pcontrol.c
3478
Lsync(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3480
int ctlfd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Pcontrol.c
3485
if (L->lwp_flags & SETHOLD) {
usr/src/lib/libproc/common/Pcontrol.c
3489
iov[n].iov_base = (caddr_t)&L->lwp_status.pr_lwphold;
usr/src/lib/libproc/common/Pcontrol.c
3490
iov[n++].iov_len = sizeof (L->lwp_status.pr_lwphold);
usr/src/lib/libproc/common/Pcontrol.c
3492
if (L->lwp_flags & SETREGS) {
usr/src/lib/libproc/common/Pcontrol.c
3496
iov[n].iov_base = (caddr_t)&L->lwp_status.pr_reg[0];
usr/src/lib/libproc/common/Pcontrol.c
3497
iov[n++].iov_len = sizeof (L->lwp_status.pr_reg);
usr/src/lib/libproc/common/Pcontrol.c
3503
L->lwp_flags &= ~(SETHOLD|SETREGS);
usr/src/lib/libproc/common/Pcontrol.c
3512
Lstopstatus(struct ps_lwphandle *L,
usr/src/lib/libproc/common/Pcontrol.c
3516
int ctlfd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Pcontrol.c
3521
switch (L->lwp_state) {
usr/src/lib/libproc/common/Pcontrol.c
3542
Pdprintf("Lstopstatus: corrupted state: %d\n", L->lwp_state);
usr/src/lib/libproc/common/Pcontrol.c
3562
if (L->lwp_state == PS_DEAD)
usr/src/lib/libproc/common/Pcontrol.c
3570
Lsync(L);
usr/src/lib/libproc/common/Pcontrol.c
3572
if (pread(L->lwp_statfd, &L->lwp_status,
usr/src/lib/libproc/common/Pcontrol.c
3573
sizeof (L->lwp_status), (off_t)0) < 0)
usr/src/lib/libproc/common/Pcontrol.c
3584
L->lwp_state = PS_LOST;
usr/src/lib/libproc/common/Pcontrol.c
3605
L->lwp_state = PS_UNDEAD;
usr/src/lib/libproc/common/Pcontrol.c
3611
if ((L->lwp_status.pr_flags & (PR_STOPPED|PR_ISTOP))
usr/src/lib/libproc/common/Pcontrol.c
3613
L->lwp_state = PS_RUN;
usr/src/lib/libproc/common/Pcontrol.c
3621
L->lwp_state = PS_STOP;
usr/src/lib/libproc/common/Pcontrol.c
3624
prldump("Lstopstatus", &L->lwp_status);
usr/src/lib/libproc/common/Pcontrol.c
3626
switch (L->lwp_status.pr_why) {
usr/src/lib/libproc/common/Pcontrol.c
3647
Lwait(struct ps_lwphandle *L, uint_t msec)
usr/src/lib/libproc/common/Pcontrol.c
3649
return (Lstopstatus(L, PCWSTOP, msec));
usr/src/lib/libproc/common/Pcontrol.c
3656
Lstop(struct ps_lwphandle *L, uint_t msec)
usr/src/lib/libproc/common/Pcontrol.c
3658
return (Lstopstatus(L, PCSTOP, msec));
usr/src/lib/libproc/common/Pcontrol.c
3665
Ldstop(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3667
return (Lstopstatus(L, PCDSTOP, 0));
usr/src/lib/libproc/common/Pcontrol.c
3674
Lgetareg(struct ps_lwphandle *L, int regno, prgreg_t *preg)
usr/src/lib/libproc/common/Pcontrol.c
3681
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Pcontrol.c
3686
*preg = L->lwp_status.pr_reg[regno];
usr/src/lib/libproc/common/Pcontrol.c
3694
Lputareg(struct ps_lwphandle *L, int regno, prgreg_t reg)
usr/src/lib/libproc/common/Pcontrol.c
3701
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Pcontrol.c
3706
L->lwp_status.pr_reg[regno] = reg;
usr/src/lib/libproc/common/Pcontrol.c
3707
L->lwp_flags |= SETREGS; /* set registers before continuing */
usr/src/lib/libproc/common/Pcontrol.c
3712
Lsetrun(struct ps_lwphandle *L,
usr/src/lib/libproc/common/Pcontrol.c
3716
int ctlfd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Pcontrol.c
3726
if (L->lwp_state != PS_STOP &&
usr/src/lib/libproc/common/Pcontrol.c
3727
(L->lwp_status.pr_flags & sbits) == 0) {
usr/src/lib/libproc/common/Pcontrol.c
3732
Lsync(L); /* flush registers */
usr/src/lib/libproc/common/Pcontrol.c
3742
} else if (sig && sig != L->lwp_status.pr_cursig) {
usr/src/lib/libproc/common/Pcontrol.c
3757
L->lwp_proc->info_valid = 0; /* will need to update map and file info */
usr/src/lib/libproc/common/Pcontrol.c
3758
L->lwp_proc->state = PS_RUN;
usr/src/lib/libproc/common/Pcontrol.c
3759
L->lwp_state = PS_RUN;
usr/src/lib/libproc/common/Pcontrol.c
3763
if (errno != EBUSY || L->lwp_status.pr_why != PR_JOBCONTROL)
usr/src/lib/libproc/common/Pcontrol.c
3764
return (Lstopstatus(L, PCNULL, 0));
usr/src/lib/libproc/common/Pcontrol.c
3771
Lclearsig(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3773
int ctlfd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Pcontrol.c
3778
L->lwp_status.pr_cursig = 0;
usr/src/lib/libproc/common/Pcontrol.c
3783
Lclearfault(struct ps_lwphandle *L)
usr/src/lib/libproc/common/Pcontrol.c
3785
int ctlfd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Pcontrol.c
3799
Lxecbkpt(struct ps_lwphandle *L, ulong_t saved)
usr/src/lib/libproc/common/Pcontrol.c
3801
struct ps_prochandle *P = L->lwp_proc;
usr/src/lib/libproc/common/Pcontrol.c
3804
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Pcontrol.c
3809
Lsync(L);
usr/src/lib/libproc/common/Pcontrol.c
3810
error = execute_bkpt(L->lwp_ctlfd,
usr/src/lib/libproc/common/Pcontrol.c
3811
&P->status.pr_flttrace, &L->lwp_status.pr_lwphold,
usr/src/lib/libproc/common/Pcontrol.c
3812
L->lwp_status.pr_reg[R_PC], saved);
usr/src/lib/libproc/common/Pcontrol.c
3813
rv = Lstopstatus(L, PCNULL, 0);
usr/src/lib/libproc/common/Pcontrol.c
3816
if (L->lwp_status.pr_why == PR_JOBCONTROL &&
usr/src/lib/libproc/common/Pcontrol.c
3818
L->lwp_state = PS_RUN;
usr/src/lib/libproc/common/Pcontrol.c
3835
Lxecwapt(struct ps_lwphandle *L, const prwatch_t *wp)
usr/src/lib/libproc/common/Pcontrol.c
3837
struct ps_prochandle *P = L->lwp_proc;
usr/src/lib/libproc/common/Pcontrol.c
3840
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Pcontrol.c
3845
Lsync(L);
usr/src/lib/libproc/common/Pcontrol.c
3846
error = execute_wapt(L->lwp_ctlfd,
usr/src/lib/libproc/common/Pcontrol.c
3847
&P->status.pr_flttrace, &L->lwp_status.pr_lwphold, wp);
usr/src/lib/libproc/common/Pcontrol.c
3848
rv = Lstopstatus(L, PCNULL, 0);
usr/src/lib/libproc/common/Pcontrol.c
3851
if (L->lwp_status.pr_why == PR_JOBCONTROL &&
usr/src/lib/libproc/common/Pcontrol.c
3853
L->lwp_state = PS_RUN;
usr/src/lib/libproc/common/Pcontrol.c
3866
Lstack(struct ps_lwphandle *L, stack_t *stkp)
usr/src/lib/libproc/common/Pcontrol.c
3868
struct ps_prochandle *P = L->lwp_proc;
usr/src/lib/libproc/common/Pcontrol.c
3869
uintptr_t addr = L->lwp_status.pr_ustack;
usr/src/lib/libproc/common/Pcontrol.c
3889
Lmain_stack(struct ps_lwphandle *L, stack_t *stkp)
usr/src/lib/libproc/common/Pcontrol.c
3891
struct ps_prochandle *P = L->lwp_proc;
usr/src/lib/libproc/common/Pcontrol.c
3893
if (Lstack(L, stkp) != 0)
usr/src/lib/libproc/common/Pcontrol.c
3905
ucontext_t *ctxp = (void *)L->lwp_status.pr_oldcontext;
usr/src/lib/libproc/common/Pcontrol.c
3912
ucontext32_t *ctxp = (void *)L->lwp_status.pr_oldcontext;
usr/src/lib/libproc/common/Pcontrol.c
3927
Lalt_stack(struct ps_lwphandle *L, stack_t *stkp)
usr/src/lib/libproc/common/Pcontrol.c
3929
if (L->lwp_status.pr_altstack.ss_flags & SS_DISABLE) {
usr/src/lib/libproc/common/Pcontrol.c
3934
*stkp = L->lwp_status.pr_altstack;
usr/src/lib/libproc/common/Plwpregs.c
207
refresh_status(struct ps_prochandle *P, lwpid_t lwpid, struct ps_lwphandle *L,
usr/src/lib/libproc/common/Plwpregs.c
219
if (L != NULL) {
usr/src/lib/libproc/common/Plwpregs.c
221
(void) memcpy(&L->lwp_status.pr_reg, rp, n);
usr/src/lib/libproc/common/Plwpregs.c
223
(void) memcpy(&L->lwp_status.pr_fpreg, rp, n);
usr/src/lib/libproc/common/Plwpregs.c
225
(void) Lstopstatus(L, PCNULL, 0);
usr/src/lib/libproc/common/Plwpregs.c
240
struct ps_lwphandle *L;
usr/src/lib/libproc/common/Plwpregs.c
258
if ((L = Lfind(P, lwpid)) != NULL) {
usr/src/lib/libproc/common/Plwpregs.c
259
Lsync(L);
usr/src/lib/libproc/common/Plwpregs.c
260
fd = L->lwp_ctlfd;
usr/src/lib/libproc/common/Plwpregs.c
280
refresh_status(P, lwpid, L, cmd, rp, n);
usr/src/lib/libproc/common/Plwpregs.c
308
setlwpregs_lwp(struct ps_lwphandle *L, long cmd, const void *rp, size_t n)
usr/src/lib/libproc/common/Plwpregs.c
312
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Plwpregs.c
322
Lsync(L);
usr/src/lib/libproc/common/Plwpregs.c
323
if (writev(L->lwp_ctlfd, iov, 2) == -1)
usr/src/lib/libproc/common/Plwpregs.c
325
refresh_status(L->lwp_proc, L->lwp_id, L, cmd, rp, n);
usr/src/lib/libproc/common/Plwpregs.c
343
Lgetregs(struct ps_lwphandle *L, prgregset_t *gregs)
usr/src/lib/libproc/common/Plwpregs.c
345
(void) memcpy(gregs, L->lwp_status.pr_reg, sizeof (prgregset_t));
usr/src/lib/libproc/common/Plwpregs.c
356
Lsetregs(struct ps_lwphandle *L, const prgregset_t *gregs)
usr/src/lib/libproc/common/Plwpregs.c
358
return (setlwpregs_lwp(L, PCSREG, gregs, sizeof (prgregset_t)));
usr/src/lib/libproc/common/Plwpregs.c
374
Lgetfpregs(struct ps_lwphandle *L, prfpregset_t *fpregs)
usr/src/lib/libproc/common/Plwpregs.c
376
(void) memcpy(fpregs, &L->lwp_status.pr_fpreg, sizeof (prfpregset_t));
usr/src/lib/libproc/common/Plwpregs.c
389
Lsetfpregs(struct ps_lwphandle *L, const prfpregset_t *fpregs)
usr/src/lib/libproc/common/Plwpregs.c
391
return (setlwpregs_lwp(L, PCSFPREG, fpregs, sizeof (prfpregset_t)));
usr/src/lib/libproc/common/Plwpregs.c
450
Lgetxregs(struct ps_lwphandle *L, prxregset_t **xregs, size_t *sizep)
usr/src/lib/libproc/common/Plwpregs.c
454
if (L->lwp_state != PS_DEAD) {
usr/src/lib/libproc/common/Plwpregs.c
455
if (L->lwp_state != PS_STOP) {
usr/src/lib/libproc/common/Plwpregs.c
459
return (getlwpfile_alloc(L->lwp_proc, L->lwp_id, "xregs",
usr/src/lib/libproc/common/Plwpregs.c
463
if ((lwp = getlwpcore(L->lwp_proc, L->lwp_id)) != NULL &&
usr/src/lib/libproc/common/Plwpregs.c
486
Lsetxregs(struct ps_lwphandle *L, const prxregset_t *xregs, size_t len)
usr/src/lib/libproc/common/Plwpregs.c
488
return (setlwpregs_lwp(L, PCSXREG, xregs, len));
usr/src/lib/libsqlite/src/parse.y
305
groupby_opt(P) having_opt(Q) orderby_opt(Z) limit_opt(L). {
usr/src/lib/libsqlite/src/parse.y
306
A = sqliteSelectNew(W,X,Y,P,Q,Z,D,L.limit,L.offset);
usr/src/lib/libsqlite/src/parse.y
427
using_opt(U) ::= USING LP idxlist(L) RP. {U = L;}
usr/src/lib/libxcurses/h/m_wchar.h
64
#define M_MB_L(s) L##s
usr/src/lib/libxcurses/h/posix/mkslocal.h
177
#define DEF_NLSPATH "/lib/nls/locale/%L/%N.cat"
usr/src/lib/smhba/common/SMHBAAPILIB.c
104
#define DEBUG(L, STR, A1, A2, A3)
usr/src/lib/smhba/common/SMHBAAPILIB.c
111
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/smhba/common/SMHBAAPILIB.c
112
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/smhba/common/SMHBAAPILIB.c
129
#define DEBUG(L, STR, A1, A2, A3)\
usr/src/lib/smhba/common/SMHBAAPILIB.c
130
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/smhba/common/SMHBAAPILIB.c
149
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/smhba/common/SMHBAAPILIB.c
150
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/smhba/common/SMHBAAPILIB.c
162
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/smhba/common/SMHBAAPILIB.c
163
if ((L) <= _hbaapi_debuglevel) {\
usr/src/lib/smhba/common/SMHBAAPILIB.c
172
#define DEBUG(L, STR, A1, A2, A3) \
usr/src/lib/smhba/common/SMHBAAPILIB.c
173
if ((L) <= _hbaapi_debuglevel) {\
usr/src/test/os-tests/tests/xsave/bad_xregs.c
650
struct ps_lwphandle *L;
usr/src/test/os-tests/tests/xsave/bad_xregs.c
668
L = Lgrab(P, targ, &ret);
usr/src/test/os-tests/tests/xsave/bad_xregs.c
669
if (L == NULL) {
usr/src/test/os-tests/tests/xsave/bad_xregs.c
674
ret = Lstop(L, 0);
usr/src/test/os-tests/tests/xsave/bad_xregs.c
679
if (Lgetxregs(L, &bad_xregs_pxr, &bad_xregs_size) != 0) {
usr/src/test/os-tests/tests/xsave/bad_xregs.c
701
if (Lsetxregs(L, buf, len) != -1) {
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
105
if (Lsetrun(L, 0, 0) != 0) {
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
113
fd = Lctlfd(L);
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
39
struct ps_lwphandle *L;
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
58
L = Lgrab(P, targ, &ret);
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
59
if (L == NULL) {
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
64
ret = Lstop(L, 0);
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
69
if (Lgetxregs(L, &prx, &prx_len) != 0) {
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
75
if (Lsetxregs(L, prx, prx_len) != 0) {
usr/src/test/os-tests/tests/xsave/xregs_roundtrip.c
81
if (Lgetxregs(L, &prx_alt, &prx_alt_len) != 0) {
usr/src/tools/smatch/src/ident-list.h
47
IDENT(L);
usr/src/tools/smatch/src/validation/preprocessor/wide.c
1
#define A(x) L##x
usr/src/uts/common/fs/smbclnt/netsmb/nsmb_kdf.c
109
uint32_t L = keylen << 3; /* key len in bits */
usr/src/uts/common/fs/smbclnt/netsmb/nsmb_kdf.c
136
kdfbuf[pos++] = (uint8_t)(L >> 8);
usr/src/uts/common/fs/smbclnt/netsmb/nsmb_kdf.c
137
kdfbuf[pos++] = (uint8_t)L;
usr/src/uts/common/fs/smbsrv/smb3_kdf.c
109
uint32_t L = keylen << 3; /* key len in bits */
usr/src/uts/common/fs/smbsrv/smb3_kdf.c
136
kdfbuf[pos++] = (uint8_t)(L >> 8);
usr/src/uts/common/fs/smbsrv/smb3_kdf.c
137
kdfbuf[pos++] = (uint8_t)L;
usr/src/uts/common/fs/zfs/lua/lapi.c
1000
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
1001
o = L->top - 1;
usr/src/uts/common/fs/zfs/lua/lapi.c
1003
status = luaU_dump(L, getproto(o), writer, data, 0);
usr/src/uts/common/fs/zfs/lua/lapi.c
1006
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1011
LUA_API int lua_status (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1012
return L->status;
usr/src/uts/common/fs/zfs/lua/lapi.c
102
res = (luaD_rawrunprotected(L, &growstack, &size) == LUA_OK);
usr/src/uts/common/fs/zfs/lua/lapi.c
1020
LUA_API int lua_gc (lua_State *L, int what, int data) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1023
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1024
g = G(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1036
luaC_fullgc(L, 0);
usr/src/uts/common/fs/zfs/lua/lapi.c
104
if (res && ci->top < L->top + size)
usr/src/uts/common/fs/zfs/lua/lapi.c
105
ci->top = L->top + size; /* adjust frame top */
usr/src/uts/common/fs/zfs/lua/lapi.c
1051
luaC_forcestep(L); /* do a single step */
usr/src/uts/common/fs/zfs/lua/lapi.c
1058
luaC_forcestep(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
106
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1084
luaC_changemode(L, KGC_GEN);
usr/src/uts/common/fs/zfs/lua/lapi.c
1088
luaC_changemode(L, KGC_NORMAL);
usr/src/uts/common/fs/zfs/lua/lapi.c
1093
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1104
LUA_API int lua_error (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1105
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1106
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
1107
luaG_errormsg(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1113
LUA_API int lua_next (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1116
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1117
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
1118
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
1119
more = luaH_next(L, hvalue(t), L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
1121
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1124
L->top -= 1; /* remove key */
usr/src/uts/common/fs/zfs/lua/lapi.c
1125
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1130
LUA_API void lua_concat (lua_State *L, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1131
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1132
api_checknelems(L, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
1134
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1135
luaV_concat(L, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
1138
setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));
usr/src/uts/common/fs/zfs/lua/lapi.c
1139
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1142
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1146
LUA_API void lua_len (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1148
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1149
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
1150
luaV_objlen(L, L->top, t);
usr/src/uts/common/fs/zfs/lua/lapi.c
1151
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1152
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1156
LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1158
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1159
if (ud) *ud = G(L)->ud;
usr/src/uts/common/fs/zfs/lua/lapi.c
1160
f = G(L)->frealloc;
usr/src/uts/common/fs/zfs/lua/lapi.c
1161
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1166
LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1167
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1168
G(L)->ud = ud;
usr/src/uts/common/fs/zfs/lua/lapi.c
1169
G(L)->frealloc = f;
usr/src/uts/common/fs/zfs/lua/lapi.c
1170
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1174
LUA_API void *lua_newuserdata (lua_State *L, size_t size) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1176
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1177
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1178
u = luaS_newudata(L, size, NULL);
usr/src/uts/common/fs/zfs/lua/lapi.c
1179
setuvalue(L, L->top, u);
usr/src/uts/common/fs/zfs/lua/lapi.c
1180
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1181
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1212
LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1215
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1216
name = aux_upvalue(index2addr(L, funcindex), n, &val, NULL);
usr/src/uts/common/fs/zfs/lua/lapi.c
1218
setobj2s(L, L->top, val);
usr/src/uts/common/fs/zfs/lua/lapi.c
1219
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1221
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1226
LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1231
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1232
fi = index2addr(L, funcindex);
usr/src/uts/common/fs/zfs/lua/lapi.c
1233
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
1236
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
1237
setobj(L, val, L->top);
usr/src/uts/common/fs/zfs/lua/lapi.c
1238
luaC_barrier(L, owner, L->top);
usr/src/uts/common/fs/zfs/lua/lapi.c
1240
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1245
static UpVal **getupvalref (lua_State *L, int fidx, int n, LClosure **pf) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1247
StkId fi = index2addr(L, fidx);
usr/src/uts/common/fs/zfs/lua/lapi.c
1248
api_check(L, ttisLclosure(fi), "Lua function expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
1250
api_check(L, (1 <= n && n <= f->p->sizeupvalues), "invalid upvalue index");
usr/src/uts/common/fs/zfs/lua/lapi.c
1256
LUA_API void *lua_upvalueid (lua_State *L, int fidx, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1257
StkId fi = index2addr(L, fidx);
usr/src/uts/common/fs/zfs/lua/lapi.c
126
LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) {
usr/src/uts/common/fs/zfs/lua/lapi.c
1260
return *getupvalref(L, fidx, n, NULL);
usr/src/uts/common/fs/zfs/lua/lapi.c
1264
api_check(L, 1 <= n && n <= f->nupvalues, "invalid upvalue index");
usr/src/uts/common/fs/zfs/lua/lapi.c
1268
api_check(L, 0, "closure expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
1275
LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1,
usr/src/uts/common/fs/zfs/lua/lapi.c
1278
UpVal **up1 = getupvalref(L, fidx1, n1, &f1);
usr/src/uts/common/fs/zfs/lua/lapi.c
1279
UpVal **up2 = getupvalref(L, fidx2, n2, NULL);
usr/src/uts/common/fs/zfs/lua/lapi.c
128
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
1281
luaC_objbarrier(L, f1, *up2);
usr/src/uts/common/fs/zfs/lua/lapi.c
129
old = G(L)->panic;
usr/src/uts/common/fs/zfs/lua/lapi.c
130
G(L)->panic = panicf;
usr/src/uts/common/fs/zfs/lua/lapi.c
131
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
136
LUA_API const lua_Number *lua_version (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
138
if (L == NULL) return &version;
usr/src/uts/common/fs/zfs/lua/lapi.c
139
else return G(L)->version;
usr/src/uts/common/fs/zfs/lua/lapi.c
152
LUA_API int lua_absindex (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
155
: cast_int(L->top - L->ci->func + idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
159
LUA_API int lua_gettop (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
160
return cast_int(L->top - (L->ci->func + 1));
usr/src/uts/common/fs/zfs/lua/lapi.c
164
LUA_API void lua_settop (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
165
StkId func = L->ci->func;
usr/src/uts/common/fs/zfs/lua/lapi.c
166
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
168
api_check(L, idx <= L->stack_last - (func + 1), "new top too large");
usr/src/uts/common/fs/zfs/lua/lapi.c
169
while (L->top < (func + 1) + idx)
usr/src/uts/common/fs/zfs/lua/lapi.c
170
setnilvalue(L->top++);
usr/src/uts/common/fs/zfs/lua/lapi.c
171
L->top = (func + 1) + idx;
usr/src/uts/common/fs/zfs/lua/lapi.c
174
api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top");
usr/src/uts/common/fs/zfs/lua/lapi.c
175
L->top += idx+1; /* `subtract' index (index is negative) */
usr/src/uts/common/fs/zfs/lua/lapi.c
177
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
181
LUA_API void lua_remove (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
183
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
184
p = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
185
api_checkstackindex(L, idx, p);
usr/src/uts/common/fs/zfs/lua/lapi.c
186
while (++p < L->top) setobjs2s(L, p-1, p);
usr/src/uts/common/fs/zfs/lua/lapi.c
187
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
188
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
192
LUA_API void lua_insert (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
195
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
196
p = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
197
api_checkstackindex(L, idx, p);
usr/src/uts/common/fs/zfs/lua/lapi.c
198
for (q = L->top; q > p; q--) /* use L->top as a temporary */
usr/src/uts/common/fs/zfs/lua/lapi.c
199
setobjs2s(L, q, q - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
200
setobjs2s(L, p, L->top);
usr/src/uts/common/fs/zfs/lua/lapi.c
201
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
205
static void moveto (lua_State *L, TValue *fr, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
206
TValue *to = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
207
api_checkvalidindex(L, to);
usr/src/uts/common/fs/zfs/lua/lapi.c
208
setobj(L, to, fr);
usr/src/uts/common/fs/zfs/lua/lapi.c
210
luaC_barrier(L, clCvalue(L->ci->func), fr);
usr/src/uts/common/fs/zfs/lua/lapi.c
216
LUA_API void lua_replace (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
217
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
218
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
219
moveto(L, L->top - 1, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
220
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
221
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
225
LUA_API void lua_copy (lua_State *L, int fromidx, int toidx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
227
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
228
fr = index2addr(L, fromidx);
usr/src/uts/common/fs/zfs/lua/lapi.c
229
moveto(L, fr, toidx);
usr/src/uts/common/fs/zfs/lua/lapi.c
230
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
234
LUA_API void lua_pushvalue (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
235
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
236
setobj2s(L, L->top, index2addr(L, idx));
usr/src/uts/common/fs/zfs/lua/lapi.c
237
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
238
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
248
LUA_API int lua_type (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
249
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
254
LUA_API const char *lua_typename (lua_State *L, int t) {
usr/src/uts/common/fs/zfs/lua/lapi.c
255
UNUSED(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
260
LUA_API int lua_iscfunction (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
261
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
266
LUA_API int lua_isnumber (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
268
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
273
LUA_API int lua_isstring (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
274
int t = lua_type(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
279
LUA_API int lua_isuserdata (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
280
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
285
LUA_API int lua_rawequal (lua_State *L, int index1, int index2) {
usr/src/uts/common/fs/zfs/lua/lapi.c
286
StkId o1 = index2addr(L, index1);
usr/src/uts/common/fs/zfs/lua/lapi.c
287
StkId o2 = index2addr(L, index2);
usr/src/uts/common/fs/zfs/lua/lapi.c
292
LUA_API void lua_arith (lua_State *L, int op) {
usr/src/uts/common/fs/zfs/lua/lapi.c
295
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
297
api_checknelems(L, 2);
usr/src/uts/common/fs/zfs/lua/lapi.c
299
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
300
setobjs2s(L, L->top, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
301
L->top++;
usr/src/uts/common/fs/zfs/lua/lapi.c
303
o1 = L->top - 2;
usr/src/uts/common/fs/zfs/lua/lapi.c
304
o2 = L->top - 1;
usr/src/uts/common/fs/zfs/lua/lapi.c
309
luaV_arith(L, o1, o1, o2, cast(TMS, op - LUA_OPADD + TM_ADD));
usr/src/uts/common/fs/zfs/lua/lapi.c
310
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
311
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
315
LUA_API int lua_compare (lua_State *L, int index1, int index2, int op) {
usr/src/uts/common/fs/zfs/lua/lapi.c
318
lua_lock(L); /* may call tag method */
usr/src/uts/common/fs/zfs/lua/lapi.c
319
o1 = index2addr(L, index1);
usr/src/uts/common/fs/zfs/lua/lapi.c
320
o2 = index2addr(L, index2);
usr/src/uts/common/fs/zfs/lua/lapi.c
323
case LUA_OPEQ: i = equalobj(L, o1, o2); break;
usr/src/uts/common/fs/zfs/lua/lapi.c
324
case LUA_OPLT: i = luaV_lessthan(L, o1, o2); break;
usr/src/uts/common/fs/zfs/lua/lapi.c
325
case LUA_OPLE: i = luaV_lessequal(L, o1, o2); break;
usr/src/uts/common/fs/zfs/lua/lapi.c
326
default: api_check(L, 0, "invalid option");
usr/src/uts/common/fs/zfs/lua/lapi.c
329
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
334
LUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *isnum) {
usr/src/uts/common/fs/zfs/lua/lapi.c
336
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
348
LUA_API lua_Integer lua_tointegerx (lua_State *L, int idx, int *isnum) {
usr/src/uts/common/fs/zfs/lua/lapi.c
350
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
365
LUA_API lua_Unsigned lua_tounsignedx (lua_State *L, int idx, int *isnum) {
usr/src/uts/common/fs/zfs/lua/lapi.c
367
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
382
LUA_API int lua_toboolean (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
383
const TValue *o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
388
LUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) {
usr/src/uts/common/fs/zfs/lua/lapi.c
389
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
391
lua_lock(L); /* `luaV_tostring' may create a new string */
usr/src/uts/common/fs/zfs/lua/lapi.c
392
if (!luaV_tostring(L, o)) { /* conversion failed? */
usr/src/uts/common/fs/zfs/lua/lapi.c
394
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
397
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
398
o = index2addr(L, idx); /* previous call may reallocate the stack */
usr/src/uts/common/fs/zfs/lua/lapi.c
399
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
406
LUA_API size_t lua_rawlen (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
407
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
417
LUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
418
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
426
LUA_API void *lua_touserdata (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
427
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
436
LUA_API lua_State *lua_tothread (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
437
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
442
LUA_API const void *lua_topointer (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
443
StkId o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
452
return lua_touserdata(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
464
LUA_API void lua_pushnil (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
465
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
466
setnilvalue(L->top);
usr/src/uts/common/fs/zfs/lua/lapi.c
467
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
468
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
472
LUA_API void lua_pushnumber (lua_State *L, lua_Number n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
473
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
474
setnvalue(L->top, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
475
luai_checknum(L, L->top,
usr/src/uts/common/fs/zfs/lua/lapi.c
476
luaG_runerror(L, "C API - attempt to push a signaling NaN"));
usr/src/uts/common/fs/zfs/lua/lapi.c
477
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
478
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
48
#define api_checkvalidindex(L, o) api_check(L, isvalid(o), "invalid index")
usr/src/uts/common/fs/zfs/lua/lapi.c
482
LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
483
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
484
setnvalue(L->top, cast_num(n));
usr/src/uts/common/fs/zfs/lua/lapi.c
485
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
486
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
490
LUA_API void lua_pushunsigned (lua_State *L, lua_Unsigned u) {
usr/src/uts/common/fs/zfs/lua/lapi.c
492
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
494
setnvalue(L->top, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
495
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
496
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
50
#define api_checkstackindex(L, i, o) \
usr/src/uts/common/fs/zfs/lua/lapi.c
500
LUA_API const char *lua_pushlstring (lua_State *L, const char *s, size_t len) {
usr/src/uts/common/fs/zfs/lua/lapi.c
502
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
503
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
504
ts = luaS_newlstr(L, s, len);
usr/src/uts/common/fs/zfs/lua/lapi.c
505
setsvalue2s(L, L->top, ts);
usr/src/uts/common/fs/zfs/lua/lapi.c
506
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
507
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
51
api_check(L, isstackindex(i, o), "index not in the stack")
usr/src/uts/common/fs/zfs/lua/lapi.c
512
LUA_API const char *lua_pushstring (lua_State *L, const char *s) {
usr/src/uts/common/fs/zfs/lua/lapi.c
514
lua_pushnil(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
519
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
520
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
521
ts = luaS_new(L, s);
usr/src/uts/common/fs/zfs/lua/lapi.c
522
setsvalue2s(L, L->top, ts);
usr/src/uts/common/fs/zfs/lua/lapi.c
523
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
524
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
530
LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt,
usr/src/uts/common/fs/zfs/lua/lapi.c
533
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
534
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
535
ret = luaO_pushvfstring(L, fmt, argp);
usr/src/uts/common/fs/zfs/lua/lapi.c
536
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
54
static TValue *index2addr (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
541
LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) {
usr/src/uts/common/fs/zfs/lua/lapi.c
544
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
545
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
547
ret = luaO_pushvfstring(L, fmt, argp);
usr/src/uts/common/fs/zfs/lua/lapi.c
549
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
55
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lapi.c
554
LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
555
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
557
setfvalue(L->top, fn);
usr/src/uts/common/fs/zfs/lua/lapi.c
561
api_checknelems(L, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
562
api_check(L, n <= MAXUPVAL, "upvalue index too large");
usr/src/uts/common/fs/zfs/lua/lapi.c
563
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
564
cl = luaF_newCclosure(L, n);
usr/src/uts/common/fs/zfs/lua/lapi.c
566
L->top -= n;
usr/src/uts/common/fs/zfs/lua/lapi.c
568
setobj2n(L, &cl->c.upvalue[n], L->top + n);
usr/src/uts/common/fs/zfs/lua/lapi.c
569
setclCvalue(L, L->top, cl);
usr/src/uts/common/fs/zfs/lua/lapi.c
571
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
572
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
576
LUA_API void lua_pushboolean (lua_State *L, int b) {
usr/src/uts/common/fs/zfs/lua/lapi.c
577
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
578
setbvalue(L->top, (b != 0)); /* ensure that true is 1 */
usr/src/uts/common/fs/zfs/lua/lapi.c
579
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
58
api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index");
usr/src/uts/common/fs/zfs/lua/lapi.c
580
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
584
LUA_API void lua_pushlightuserdata (lua_State *L, void *p) {
usr/src/uts/common/fs/zfs/lua/lapi.c
585
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
586
setpvalue(L->top, p);
usr/src/uts/common/fs/zfs/lua/lapi.c
587
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
588
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
59
if (o >= L->top) return NONVALIDVALUE;
usr/src/uts/common/fs/zfs/lua/lapi.c
592
LUA_API int lua_pushthread (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lapi.c
593
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
594
setthvalue(L, L->top, L);
usr/src/uts/common/fs/zfs/lua/lapi.c
595
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
596
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
597
return (G(L)->mainthread == L);
usr/src/uts/common/fs/zfs/lua/lapi.c
607
LUA_API void lua_getglobal (lua_State *L, const char *var) {
usr/src/uts/common/fs/zfs/lua/lapi.c
608
Table *reg = hvalue(&G(L)->l_registry);
usr/src/uts/common/fs/zfs/lua/lapi.c
610
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
612
setsvalue2s(L, L->top++, luaS_new(L, var));
usr/src/uts/common/fs/zfs/lua/lapi.c
613
luaV_gettable(L, gt, L->top - 1, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
614
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
618
LUA_API void lua_gettable (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
620
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
621
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
622
luaV_gettable(L, t, L->top - 1, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
623
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
627
LUA_API void lua_getfield (lua_State *L, int idx, const char *k) {
usr/src/uts/common/fs/zfs/lua/lapi.c
629
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
63
api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index");
usr/src/uts/common/fs/zfs/lua/lapi.c
630
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
631
setsvalue2s(L, L->top, luaS_new(L, k));
usr/src/uts/common/fs/zfs/lua/lapi.c
632
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
633
luaV_gettable(L, t, L->top - 1, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
634
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
638
LUA_API void lua_rawget (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
64
return L->top + idx;
usr/src/uts/common/fs/zfs/lua/lapi.c
640
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
641
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
642
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
643
setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1));
usr/src/uts/common/fs/zfs/lua/lapi.c
644
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
648
LUA_API void lua_rawgeti (lua_State *L, int idx, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
650
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
651
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
652
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
653
setobj2s(L, L->top, luaH_getint(hvalue(t), n));
usr/src/uts/common/fs/zfs/lua/lapi.c
654
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
655
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
659
LUA_API void lua_rawgetp (lua_State *L, int idx, const void *p) {
usr/src/uts/common/fs/zfs/lua/lapi.c
662
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
663
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
664
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
666
setobj2s(L, L->top, luaH_get(hvalue(t), &k));
usr/src/uts/common/fs/zfs/lua/lapi.c
667
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
668
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
67
return &G(L)->l_registry;
usr/src/uts/common/fs/zfs/lua/lapi.c
672
LUA_API void lua_createtable (lua_State *L, int narray, int nrec) {
usr/src/uts/common/fs/zfs/lua/lapi.c
674
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
675
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
676
t = luaH_new(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
677
sethvalue(L, L->top, t);
usr/src/uts/common/fs/zfs/lua/lapi.c
678
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
680
luaH_resize(L, t, narray, nrec);
usr/src/uts/common/fs/zfs/lua/lapi.c
681
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
685
LUA_API int lua_getmetatable (lua_State *L, int objindex) {
usr/src/uts/common/fs/zfs/lua/lapi.c
689
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
690
obj = index2addr(L, objindex);
usr/src/uts/common/fs/zfs/lua/lapi.c
699
mt = G(L)->mt[ttypenv(obj)];
usr/src/uts/common/fs/zfs/lua/lapi.c
70
api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large");
usr/src/uts/common/fs/zfs/lua/lapi.c
705
sethvalue(L, L->top, mt);
usr/src/uts/common/fs/zfs/lua/lapi.c
706
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
709
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
714
LUA_API void lua_getuservalue (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
716
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
717
o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
718
api_check(L, ttisuserdata(o), "userdata expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
720
sethvalue(L, L->top, uvalue(o)->env);
usr/src/uts/common/fs/zfs/lua/lapi.c
722
setnilvalue(L->top);
usr/src/uts/common/fs/zfs/lua/lapi.c
723
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
724
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
733
LUA_API void lua_setglobal (lua_State *L, const char *var) {
usr/src/uts/common/fs/zfs/lua/lapi.c
734
Table *reg = hvalue(&G(L)->l_registry);
usr/src/uts/common/fs/zfs/lua/lapi.c
736
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
737
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
739
setsvalue2s(L, L->top++, luaS_new(L, var));
usr/src/uts/common/fs/zfs/lua/lapi.c
740
luaV_settable(L, gt, L->top - 1, L->top - 2);
usr/src/uts/common/fs/zfs/lua/lapi.c
741
L->top -= 2; /* pop value and key */
usr/src/uts/common/fs/zfs/lua/lapi.c
742
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
746
LUA_API void lua_settable (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
748
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
749
api_checknelems(L, 2);
usr/src/uts/common/fs/zfs/lua/lapi.c
750
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
751
luaV_settable(L, t, L->top - 2, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
752
L->top -= 2; /* pop index and value */
usr/src/uts/common/fs/zfs/lua/lapi.c
753
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
757
LUA_API void lua_setfield (lua_State *L, int idx, const char *k) {
usr/src/uts/common/fs/zfs/lua/lapi.c
759
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
760
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
761
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
762
setsvalue2s(L, L->top++, luaS_new(L, k));
usr/src/uts/common/fs/zfs/lua/lapi.c
763
luaV_settable(L, t, L->top - 1, L->top - 2);
usr/src/uts/common/fs/zfs/lua/lapi.c
764
L->top -= 2; /* pop value and key */
usr/src/uts/common/fs/zfs/lua/lapi.c
765
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
769
LUA_API void lua_rawset (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
771
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
772
api_checknelems(L, 2);
usr/src/uts/common/fs/zfs/lua/lapi.c
773
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
774
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
775
setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1);
usr/src/uts/common/fs/zfs/lua/lapi.c
777
luaC_barrierback(L, gcvalue(t), L->top-1);
usr/src/uts/common/fs/zfs/lua/lapi.c
778
L->top -= 2;
usr/src/uts/common/fs/zfs/lua/lapi.c
779
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
783
LUA_API void lua_rawseti (lua_State *L, int idx, int n) {
usr/src/uts/common/fs/zfs/lua/lapi.c
785
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
786
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
787
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
788
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
789
luaH_setint(L, hvalue(t), n, L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
790
luaC_barrierback(L, gcvalue(t), L->top-1);
usr/src/uts/common/fs/zfs/lua/lapi.c
791
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
792
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
796
LUA_API void lua_rawsetp (lua_State *L, int idx, const void *p) {
usr/src/uts/common/fs/zfs/lua/lapi.c
799
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
800
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
801
t = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
802
api_check(L, ttistable(t), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
804
setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
805
luaC_barrierback(L, gcvalue(t), L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
806
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
807
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
811
LUA_API int lua_setmetatable (lua_State *L, int objindex) {
usr/src/uts/common/fs/zfs/lua/lapi.c
814
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
815
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
816
obj = index2addr(L, objindex);
usr/src/uts/common/fs/zfs/lua/lapi.c
817
if (ttisnil(L->top - 1))
usr/src/uts/common/fs/zfs/lua/lapi.c
820
api_check(L, ttistable(L->top - 1), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
821
mt = hvalue(L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
827
luaC_objbarrierback(L, gcvalue(obj), mt);
usr/src/uts/common/fs/zfs/lua/lapi.c
828
luaC_checkfinalizer(L, gcvalue(obj), mt);
usr/src/uts/common/fs/zfs/lua/lapi.c
835
luaC_objbarrier(L, rawuvalue(obj), mt);
usr/src/uts/common/fs/zfs/lua/lapi.c
836
luaC_checkfinalizer(L, gcvalue(obj), mt);
usr/src/uts/common/fs/zfs/lua/lapi.c
841
G(L)->mt[ttypenv(obj)] = mt;
usr/src/uts/common/fs/zfs/lua/lapi.c
845
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
846
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
85
static void growstack (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/lapi.c
851
LUA_API void lua_setuservalue (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
853
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
854
api_checknelems(L, 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
855
o = index2addr(L, idx);
usr/src/uts/common/fs/zfs/lua/lapi.c
856
api_check(L, ttisuserdata(o), "userdata expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
857
if (ttisnil(L->top - 1))
usr/src/uts/common/fs/zfs/lua/lapi.c
860
api_check(L, ttistable(L->top - 1), "table expected");
usr/src/uts/common/fs/zfs/lua/lapi.c
861
uvalue(o)->env = hvalue(L->top - 1);
usr/src/uts/common/fs/zfs/lua/lapi.c
862
luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));
usr/src/uts/common/fs/zfs/lua/lapi.c
864
L->top--;
usr/src/uts/common/fs/zfs/lua/lapi.c
865
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
87
luaD_growstack(L, size);
usr/src/uts/common/fs/zfs/lua/lapi.c
874
#define checkresults(L,na,nr) \
usr/src/uts/common/fs/zfs/lua/lapi.c
875
api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \
usr/src/uts/common/fs/zfs/lua/lapi.c
879
LUA_API int lua_getctx (lua_State *L, int *ctx) {
usr/src/uts/common/fs/zfs/lua/lapi.c
880
if (L->ci->callstatus & CIST_YIELDED) {
usr/src/uts/common/fs/zfs/lua/lapi.c
881
if (ctx) *ctx = L->ci->u.c.ctx;
usr/src/uts/common/fs/zfs/lua/lapi.c
882
return L->ci->u.c.status;
usr/src/uts/common/fs/zfs/lua/lapi.c
888
LUA_API void lua_callk (lua_State *L, int nargs, int nresults, int ctx,
usr/src/uts/common/fs/zfs/lua/lapi.c
891
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
892
api_check(L, k == NULL || !isLua(L->ci),
usr/src/uts/common/fs/zfs/lua/lapi.c
894
api_checknelems(L, nargs+1);
usr/src/uts/common/fs/zfs/lua/lapi.c
895
api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread");
usr/src/uts/common/fs/zfs/lua/lapi.c
896
checkresults(L, nargs, nresults);
usr/src/uts/common/fs/zfs/lua/lapi.c
897
func = L->top - (nargs+1);
usr/src/uts/common/fs/zfs/lua/lapi.c
898
if (k != NULL && L->nny == 0) { /* need to prepare continuation? */
usr/src/uts/common/fs/zfs/lua/lapi.c
899
L->ci->u.c.k = k; /* save continuation */
usr/src/uts/common/fs/zfs/lua/lapi.c
900
L->ci->u.c.ctx = ctx; /* save context */
usr/src/uts/common/fs/zfs/lua/lapi.c
901
luaD_call(L, func, nresults, 1); /* do the call */
usr/src/uts/common/fs/zfs/lua/lapi.c
904
luaD_call(L, func, nresults, 0); /* just do the call */
usr/src/uts/common/fs/zfs/lua/lapi.c
905
adjustresults(L, nresults);
usr/src/uts/common/fs/zfs/lua/lapi.c
906
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
91
LUA_API int lua_checkstack (lua_State *L, int size) {
usr/src/uts/common/fs/zfs/lua/lapi.c
920
static void f_call (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/lapi.c
922
luaD_call(L, c->func, c->nresults, 0);
usr/src/uts/common/fs/zfs/lua/lapi.c
927
LUA_API int lua_pcallk (lua_State *L, int nargs, int nresults, int errfunc,
usr/src/uts/common/fs/zfs/lua/lapi.c
93
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lapi.c
932
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
933
api_check(L, k == NULL || !isLua(L->ci),
usr/src/uts/common/fs/zfs/lua/lapi.c
935
api_checknelems(L, nargs+1);
usr/src/uts/common/fs/zfs/lua/lapi.c
936
api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread");
usr/src/uts/common/fs/zfs/lua/lapi.c
937
checkresults(L, nargs, nresults);
usr/src/uts/common/fs/zfs/lua/lapi.c
94
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
941
StkId o = index2addr(L, errfunc);
usr/src/uts/common/fs/zfs/lua/lapi.c
942
api_checkstackindex(L, errfunc, o);
usr/src/uts/common/fs/zfs/lua/lapi.c
943
func = savestack(L, o);
usr/src/uts/common/fs/zfs/lua/lapi.c
945
c.func = L->top - (nargs+1); /* function to be called */
usr/src/uts/common/fs/zfs/lua/lapi.c
946
if (k == NULL || L->nny > 0) { /* no continuation or no yieldable? */
usr/src/uts/common/fs/zfs/lua/lapi.c
948
status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func);
usr/src/uts/common/fs/zfs/lua/lapi.c
95
if (L->stack_last - L->top > size) /* stack large enough? */
usr/src/uts/common/fs/zfs/lua/lapi.c
951
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lapi.c
955
ci->extra = savestack(L, c.func);
usr/src/uts/common/fs/zfs/lua/lapi.c
956
ci->u.c.old_allowhook = L->allowhook;
usr/src/uts/common/fs/zfs/lua/lapi.c
957
ci->u.c.old_errfunc = L->errfunc;
usr/src/uts/common/fs/zfs/lua/lapi.c
958
L->errfunc = func;
usr/src/uts/common/fs/zfs/lua/lapi.c
961
luaD_call(L, c.func, nresults, 1); /* do the call */
usr/src/uts/common/fs/zfs/lua/lapi.c
963
L->errfunc = ci->u.c.old_errfunc;
usr/src/uts/common/fs/zfs/lua/lapi.c
966
adjustresults(L, nresults);
usr/src/uts/common/fs/zfs/lua/lapi.c
967
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
972
LUA_API int lua_load (lua_State *L, lua_Reader reader, void *data,
usr/src/uts/common/fs/zfs/lua/lapi.c
976
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
978
luaZ_init(L, &z, reader, data);
usr/src/uts/common/fs/zfs/lua/lapi.c
979
status = luaD_protectedparser(L, &z, chunkname, mode);
usr/src/uts/common/fs/zfs/lua/lapi.c
98
int inuse = cast_int(L->top - L->stack) + EXTRA_STACK;
usr/src/uts/common/fs/zfs/lua/lapi.c
981
LClosure *f = clLvalue(L->top - 1); /* get newly created function */
usr/src/uts/common/fs/zfs/lua/lapi.c
984
Table *reg = hvalue(&G(L)->l_registry);
usr/src/uts/common/fs/zfs/lua/lapi.c
987
setobj(L, f->upvals[0]->v, gt);
usr/src/uts/common/fs/zfs/lua/lapi.c
988
luaC_barrier(L, f->upvals[0], gt);
usr/src/uts/common/fs/zfs/lua/lapi.c
991
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lapi.c
996
LUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data) {
usr/src/uts/common/fs/zfs/lua/lapi.c
999
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lapi.h
14
#define api_incr_top(L) {L->top++; api_check(L, L->top <= L->ci->top, \
usr/src/uts/common/fs/zfs/lua/lapi.h
17
#define adjustresults(L,nres) \
usr/src/uts/common/fs/zfs/lua/lapi.h
18
{ if ((nres) == LUA_MULTRET && L->ci->top < L->top) L->ci->top = L->top; }
usr/src/uts/common/fs/zfs/lua/lapi.h
20
#define api_checknelems(L,n) api_check(L, (n) < (L->top - L->ci->func), \
usr/src/uts/common/fs/zfs/lua/lauxlib.c
100
while (lua_getstack(L, le, &ar)) { li = le; le *= 2; }
usr/src/uts/common/fs/zfs/lua/lauxlib.c
104
if (lua_getstack(L, m, &ar)) li = m + 1;
usr/src/uts/common/fs/zfs/lua/lauxlib.c
111
LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
114
int top = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
117
if (msg) lua_pushfstring(L, "%s\n", msg);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
118
lua_pushliteral(L, "stack traceback:");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
121
lua_pushliteral(L, "\n\t..."); /* add a '...' */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
126
lua_pushfstring(L, "\n\t%s:", ar.short_src);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
128
lua_pushfstring(L, "%d:", ar.currentline);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
129
lua_pushliteral(L, " in ");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
130
pushfuncname(L, &ar);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
132
lua_pushliteral(L, "\n\t(...tail calls...)");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
133
lua_concat(L, lua_gettop(L) - top);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
136
lua_concat(L, lua_gettop(L) - top);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
148
LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
150
if (!lua_getstack(L, 0, &ar)) /* no stack frame? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
151
return luaL_error(L, "bad argument #%d (%s)", narg, extramsg);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
152
lua_getinfo(L, "n", &ar);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
156
return luaL_error(L, "calling " LUA_QS " on bad self (%s)",
usr/src/uts/common/fs/zfs/lua/lauxlib.c
160
ar.name = (pushglobalfuncname(L, &ar)) ? lua_tostring(L, -1) : "?";
usr/src/uts/common/fs/zfs/lua/lauxlib.c
161
return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)",
usr/src/uts/common/fs/zfs/lua/lauxlib.c
166
static int typeerror (lua_State *L, int narg, const char *tname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
167
const char *msg = lua_pushfstring(L, "%s expected, got %s",
usr/src/uts/common/fs/zfs/lua/lauxlib.c
168
tname, luaL_typename(L, narg));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
169
return luaL_argerror(L, narg, msg);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
173
static void tag_error (lua_State *L, int narg, int tag) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
174
typeerror(L, narg, lua_typename(L, tag));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
178
LUALIB_API void luaL_where (lua_State *L, int level) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
180
if (lua_getstack(L, level, &ar)) { /* check function at level */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
181
lua_getinfo(L, "Sl", &ar); /* get info about it */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
183
lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
187
lua_pushliteral(L, ""); /* else, no information available... */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
191
LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
194
luaL_where(L, 1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
195
lua_pushvfstring(L, fmt, argp);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
197
lua_concat(L, 2);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
198
return lua_error(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
233
LUALIB_API int luaL_newmetatable (lua_State *L, const char *tname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
234
luaL_getmetatable(L, tname); /* try to get metatable */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
235
if (!lua_isnil(L, -1)) /* name already in use? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
237
lua_pop(L, 1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
238
lua_newtable(L); /* create metatable */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
239
lua_pushvalue(L, -1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
240
lua_setfield(L, LUA_REGISTRYINDEX, tname); /* registry.name = metatable */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
245
LUALIB_API void luaL_setmetatable (lua_State *L, const char *tname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
246
luaL_getmetatable(L, tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
247
lua_setmetatable(L, -2);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
251
LUALIB_API void *luaL_testudata (lua_State *L, int ud, const char *tname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
252
void *p = lua_touserdata(L, ud);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
254
if (lua_getmetatable(L, ud)) { /* does it have a metatable? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
255
luaL_getmetatable(L, tname); /* get correct metatable */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
256
if (!lua_rawequal(L, -1, -2)) /* not the same? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
258
lua_pop(L, 2); /* remove both metatables */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
266
LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
267
void *p = luaL_testudata(L, ud, tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
268
if (p == NULL) typeerror(L, ud, tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
281
LUALIB_API int luaL_checkoption (lua_State *L, int narg, const char *def,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
283
const char *name = (def) ? luaL_optstring(L, narg, def) :
usr/src/uts/common/fs/zfs/lua/lauxlib.c
284
luaL_checkstring(L, narg);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
289
return luaL_argerror(L, narg,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
290
lua_pushfstring(L, "invalid option " LUA_QS, name));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
294
LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
297
if (!lua_checkstack(L, space + extra)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
299
luaL_error(L, "stack overflow (%s)", msg);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
301
luaL_error(L, "stack overflow");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
306
LUALIB_API void luaL_checktype (lua_State *L, int narg, int t) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
307
if (lua_type(L, narg) != t)
usr/src/uts/common/fs/zfs/lua/lauxlib.c
308
tag_error(L, narg, t);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
312
LUALIB_API void luaL_checkany (lua_State *L, int narg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
313
if (lua_type(L, narg) == LUA_TNONE)
usr/src/uts/common/fs/zfs/lua/lauxlib.c
314
luaL_argerror(L, narg, "value expected");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
318
LUALIB_API const char *luaL_checklstring (lua_State *L, int narg, size_t *len) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
319
const char *s = lua_tolstring(L, narg, len);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
320
if (!s) tag_error(L, narg, LUA_TSTRING);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
325
LUALIB_API const char *luaL_optlstring (lua_State *L, int narg,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
327
if (lua_isnoneornil(L, narg)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
332
else return luaL_checklstring(L, narg, len);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
336
LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
338
lua_Number d = lua_tonumberx(L, narg, &isnum);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
340
tag_error(L, narg, LUA_TNUMBER);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
345
LUALIB_API lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number def) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
346
return luaL_opt(L, luaL_checknumber, narg, def);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
350
LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
352
lua_Integer d = lua_tointegerx(L, narg, &isnum);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
354
tag_error(L, narg, LUA_TNUMBER);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
359
LUALIB_API lua_Unsigned luaL_checkunsigned (lua_State *L, int narg) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
361
lua_Unsigned d = lua_tounsignedx(L, narg, &isnum);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
363
tag_error(L, narg, LUA_TNUMBER);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
368
LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int narg,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
370
return luaL_opt(L, luaL_checkinteger, narg, def);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
374
LUALIB_API lua_Unsigned luaL_optunsigned (lua_State *L, int narg,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
376
return luaL_opt(L, luaL_checkunsigned, narg, def);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
38
static int findfield (lua_State *L, int objidx, int level) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
39
if (level == 0 || !lua_istable(L, -1))
usr/src/uts/common/fs/zfs/lua/lauxlib.c
399
lua_State *L = B->L;
usr/src/uts/common/fs/zfs/lua/lauxlib.c
406
luaL_error(L, "buffer too large");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
408
newbuff = (char *)lua_newuserdata(L, newsize * sizeof(char));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
41
lua_pushnil(L); /* start 'next' loop */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
412
lua_remove(L, -2); /* remove old buffer */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
42
while (lua_next(L, -2)) { /* for each pair in table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
43
if (lua_type(L, -2) == LUA_TSTRING) { /* ignore non-string keys */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
433
lua_State *L = B->L;
usr/src/uts/common/fs/zfs/lua/lauxlib.c
434
lua_pushlstring(L, B->b, B->n);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
436
lua_remove(L, -2); /* remove old buffer */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
44
if (lua_rawequal(L, objidx, -1)) { /* found object? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
447
lua_State *L = B->L;
usr/src/uts/common/fs/zfs/lua/lauxlib.c
449
const char *s = lua_tolstring(L, -1, &l);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
45
lua_pop(L, 1); /* remove value (but keep name) */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
451
lua_insert(L, -2); /* put value below buffer */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
453
lua_remove(L, (buffonstack(B)) ? -2 : -1); /* remove value */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
457
LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
458
B->L = L;
usr/src/uts/common/fs/zfs/lua/lauxlib.c
465
LUALIB_API char *luaL_buffinitsize (lua_State *L, luaL_Buffer *B, size_t sz) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
466
luaL_buffinit(L, B);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
48
else if (findfield(L, objidx, level - 1)) { /* try recursively */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
483
LUALIB_API int luaL_ref (lua_State *L, int t) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
485
if (lua_isnil(L, -1)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
486
lua_pop(L, 1); /* remove from stack */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
489
t = lua_absindex(L, t);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
49
lua_remove(L, -2); /* remove table (but keep name) */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
490
lua_rawgeti(L, t, freelist); /* get first free element */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
491
ref = (int)lua_tointeger(L, -1); /* ref = t[freelist] */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
492
lua_pop(L, 1); /* remove it from stack */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
494
lua_rawgeti(L, t, ref); /* remove it from list */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
495
lua_rawseti(L, t, freelist); /* (t[freelist] = t[ref]) */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
498
ref = (int)lua_rawlen(L, t) + 1; /* get a new reference */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
499
lua_rawseti(L, t, ref);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
50
lua_pushliteral(L, ".");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
504
LUALIB_API void luaL_unref (lua_State *L, int t, int ref) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
506
t = lua_absindex(L, t);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
507
lua_rawgeti(L, t, freelist);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
508
lua_rawseti(L, t, ref); /* t[ref] = t[freelist] */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
509
lua_pushinteger(L, ref);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
51
lua_insert(L, -2); /* place '.' between the two names */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
510
lua_rawseti(L, t, freelist); /* t[freelist] = ref */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
52
lua_concat(L, 3);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
529
static const char *getS (lua_State *L, void *ud, size_t *size) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
531
(void)L; /* not used */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
539
LUALIB_API int luaL_loadbufferx (lua_State *L, const char *buff, size_t size,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
544
return lua_load(L, getS, &ls, name, mode);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
548
LUALIB_API int luaL_loadstring (lua_State *L, const char *s) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
549
return luaL_loadbuffer(L, s, strlen(s), s);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
556
LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
557
if (!lua_getmetatable(L, obj)) /* no metatable? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
559
lua_pushstring(L, event);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
56
lua_pop(L, 1); /* remove value */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
560
lua_rawget(L, -2);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
561
if (lua_isnil(L, -1)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
562
lua_pop(L, 2); /* remove metatable and metafield */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
566
lua_remove(L, -2); /* remove only metatable */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
572
LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
573
obj = lua_absindex(L, obj);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
574
if (!luaL_getmetafield(L, obj, event)) /* no metafield? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
576
lua_pushvalue(L, obj);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
577
lua_call(L, 1, 1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
582
LUALIB_API int luaL_len (lua_State *L, int idx) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
585
lua_len(L, idx);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
586
l = (int)lua_tointegerx(L, -1, &isnum);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
588
luaL_error(L, "object length is not a number");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
589
lua_pop(L, 1); /* remove object */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
594
LUALIB_API const char *luaL_tolstring (lua_State *L, int idx, size_t *len) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
595
if (!luaL_callmeta(L, idx, "__tostring")) { /* no metafield? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
596
switch (lua_type(L, idx)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
599
lua_pushvalue(L, idx);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
602
lua_pushstring(L, (lua_toboolean(L, idx) ? "true" : "false"));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
605
lua_pushliteral(L, "nil");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
608
lua_pushfstring(L, "%s: %p", luaL_typename(L, idx),
usr/src/uts/common/fs/zfs/lua/lauxlib.c
609
lua_topointer(L, idx));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
613
return lua_tolstring(L, -1, len);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
62
static int pushglobalfuncname (lua_State *L, lua_Debug *ar) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
624
static const char *luaL_findtable (lua_State *L, int idx,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
627
if (idx) lua_pushvalue(L, idx);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
63
int top = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
631
lua_pushlstring(L, fname, e - fname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
632
lua_rawget(L, -2);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
633
if (lua_isnil(L, -1)) { /* no such field? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
634
lua_pop(L, 1); /* remove this nil */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
635
lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
636
lua_pushlstring(L, fname, e - fname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
637
lua_pushvalue(L, -2);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
638
lua_settable(L, -4); /* set new table into field */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
64
lua_getinfo(L, "f", ar); /* push function */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
640
else if (!lua_istable(L, -1)) { /* field has a non-table value? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
641
lua_pop(L, 2); /* remove table and value */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
644
lua_remove(L, -2); /* remove previous table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
65
lua_pushglobaltable(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
66
if (findfield(L, top + 1, 2)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
667
LUALIB_API void luaL_pushmodule (lua_State *L, const char *modname,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
669
luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 1); /* get _LOADED table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
67
lua_copy(L, -1, top + 1); /* move name to proper place */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
670
lua_getfield(L, -1, modname); /* get _LOADED[modname] */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
671
if (!lua_istable(L, -1)) { /* not found? */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
672
lua_pop(L, 1); /* remove previous result */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
674
lua_pushglobaltable(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
675
if (luaL_findtable(L, 0, modname, sizehint) != NULL)
usr/src/uts/common/fs/zfs/lua/lauxlib.c
676
luaL_error(L, "name conflict for module " LUA_QS, modname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
677
lua_pushvalue(L, -1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
678
lua_setfield(L, -3, modname); /* _LOADED[modname] = new table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
68
lua_pop(L, 2); /* remove pushed values */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
680
lua_remove(L, -2); /* remove _LOADED table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
684
LUALIB_API void luaL_openlib (lua_State *L, const char *libname,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
686
luaL_checkversion(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
688
luaL_pushmodule(L, libname, libsize(l)); /* get/create library table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
689
lua_insert(L, -(nup + 1)); /* move library table to below upvalues */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
692
luaL_setfuncs(L, l, nup);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
694
lua_pop(L, nup); /* remove upvalues */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
705
LUALIB_API void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
706
luaL_checkversion(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
707
luaL_checkstack(L, nup, "too many upvalues");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
711
lua_pushvalue(L, -nup);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
712
lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
713
lua_setfield(L, -(nup + 2), l->name);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
715
lua_pop(L, nup); /* remove upvalues */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
72
lua_settop(L, top); /* remove function and global table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
723
LUALIB_API int luaL_getsubtable (lua_State *L, int idx, const char *fname) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
724
lua_getfield(L, idx, fname);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
725
if (lua_istable(L, -1)) return 1; /* table already there */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
727
lua_pop(L, 1); /* remove previous result */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
728
idx = lua_absindex(L, idx);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
729
lua_newtable(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
730
lua_pushvalue(L, -1); /* copy to be left at top */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
731
lua_setfield(L, idx, fname); /* assign new table to field */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
743
LUALIB_API void luaL_requiref (lua_State *L, const char *modname,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
745
lua_pushcfunction(L, openf);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
746
lua_pushstring(L, modname); /* argument to open function */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
747
lua_call(L, 1, 1); /* open module */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
748
luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
749
lua_pushvalue(L, -2); /* make copy of module (call result) */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
750
lua_setfield(L, -2, modname); /* _LOADED[modname] = module */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
751
lua_pop(L, 1); /* remove _LOADED table */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
753
lua_pushvalue(L, -1); /* copy of 'mod' */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
754
lua_setglobal(L, modname); /* _G[modname] = module */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
759
LUALIB_API const char *luaL_gsub (lua_State *L, const char *s, const char *p,
usr/src/uts/common/fs/zfs/lua/lauxlib.c
764
luaL_buffinit(L, &b);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
772
return lua_tostring(L, -1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
776
LUALIB_API void luaL_checkversion_ (lua_State *L, lua_Number ver) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
777
const lua_Number *v = lua_version(L);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
779
luaL_error(L, "multiple Lua VMs detected");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
78
static void pushfuncname (lua_State *L, lua_Debug *ar) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
781
luaL_error(L, "version mismatch: app. needs %f, Lua core provides %f",
usr/src/uts/common/fs/zfs/lua/lauxlib.c
784
lua_pushnumber(L, -(lua_Number)0x1234);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
785
if (lua_tointeger(L, -1) != -0x1234 ||
usr/src/uts/common/fs/zfs/lua/lauxlib.c
786
lua_tounsigned(L, -1) != (lua_Unsigned)-0x1234)
usr/src/uts/common/fs/zfs/lua/lauxlib.c
787
luaL_error(L, "bad conversion number->int;"
usr/src/uts/common/fs/zfs/lua/lauxlib.c
789
lua_pop(L, 1);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
80
lua_pushfstring(L, "function " LUA_QS, ar->name);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
82
lua_pushliteral(L, "main chunk");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
84
if (pushglobalfuncname(L, ar)) {
usr/src/uts/common/fs/zfs/lua/lauxlib.c
85
lua_pushfstring(L, "function " LUA_QS, lua_tostring(L, -1));
usr/src/uts/common/fs/zfs/lua/lauxlib.c
86
lua_remove(L, -2); /* remove name */
usr/src/uts/common/fs/zfs/lua/lauxlib.c
89
lua_pushliteral(L, "?");
usr/src/uts/common/fs/zfs/lua/lauxlib.c
92
lua_pushfstring(L, "function <%s:%d>", ar->short_src, ar->linedefined);
usr/src/uts/common/fs/zfs/lua/lauxlib.c
96
static int countlevels (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lauxlib.h
100
#define luaL_newlib(L,l) (luaL_newlibtable(L,l), luaL_setfuncs(L,l,0))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
102
#define luaL_argcheck(L, cond,numarg,extramsg) \
usr/src/uts/common/fs/zfs/lua/lauxlib.h
103
((void)((cond) || luaL_argerror(L, (numarg), (extramsg))))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
104
#define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
105
#define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
106
#define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
107
#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
108
#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
109
#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
111
#define luaL_typename(L,i) lua_typename(L, lua_type(L,(i)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
113
#define luaL_dofile(L, fn) \
usr/src/uts/common/fs/zfs/lua/lauxlib.h
114
(luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
116
#define luaL_dostring(L, s) \
usr/src/uts/common/fs/zfs/lua/lauxlib.h
117
(luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
119
#define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
121
#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
123
#define luaL_loadbuffer(L,s,sz,n) luaL_loadbufferx(L,s,sz,n,NULL)
usr/src/uts/common/fs/zfs/lua/lauxlib.h
136
lua_State *L;
usr/src/uts/common/fs/zfs/lua/lauxlib.h
147
LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
154
LUALIB_API char *(luaL_buffinitsize) (lua_State *L, luaL_Buffer *B, size_t sz);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
164
LUALIB_API void (luaL_pushmodule) (lua_State *L, const char *modname,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
166
LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
169
#define luaL_register(L,n,l) (luaL_openlib(L,(n),(l),0))
usr/src/uts/common/fs/zfs/lua/lauxlib.h
28
LUALIB_API void (luaL_checkversion_) (lua_State *L, lua_Number ver);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
29
#define luaL_checkversion(L) luaL_checkversion_(L, LUA_VERSION_NUM)
usr/src/uts/common/fs/zfs/lua/lauxlib.h
31
LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
32
LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
33
LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
34
LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
35
LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
37
LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
39
LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
40
LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
42
LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
43
LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
45
LUALIB_API lua_Unsigned (luaL_checkunsigned) (lua_State *L, int numArg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
46
LUALIB_API lua_Unsigned (luaL_optunsigned) (lua_State *L, int numArg,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
49
LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
50
LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
51
LUALIB_API void (luaL_checkany) (lua_State *L, int narg);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
53
LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
54
LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
55
LUALIB_API void *(luaL_testudata) (lua_State *L, int ud, const char *tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
56
LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
58
LUALIB_API void (luaL_where) (lua_State *L, int lvl);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
59
LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
61
LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
68
LUALIB_API int (luaL_ref) (lua_State *L, int t);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
69
LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
71
LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
73
LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
75
LUALIB_API int (luaL_len) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
77
LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
80
LUALIB_API void (luaL_setfuncs) (lua_State *L, const luaL_Reg *l, int nup);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
82
LUALIB_API int (luaL_getsubtable) (lua_State *L, int idx, const char *fname);
usr/src/uts/common/fs/zfs/lua/lauxlib.h
84
LUALIB_API void (luaL_traceback) (lua_State *L, lua_State *L1,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
87
LUALIB_API void (luaL_requiref) (lua_State *L, const char *modname,
usr/src/uts/common/fs/zfs/lua/lauxlib.h
97
#define luaL_newlibtable(L,l) \
usr/src/uts/common/fs/zfs/lua/lauxlib.h
98
lua_createtable(L, 0, sizeof(l)/sizeof((l)[0]) - 1)
usr/src/uts/common/fs/zfs/lua/lbaselib.c
101
if (luaL_getmetafield(L, 1, "__metatable"))
usr/src/uts/common/fs/zfs/lua/lbaselib.c
102
return luaL_error(L, "cannot change a protected metatable");
usr/src/uts/common/fs/zfs/lua/lbaselib.c
103
lua_settop(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
104
lua_setmetatable(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
109
static int luaB_rawequal (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
110
luaL_checkany(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
111
luaL_checkany(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
112
lua_pushboolean(L, lua_rawequal(L, 1, 2));
usr/src/uts/common/fs/zfs/lua/lbaselib.c
117
static int luaB_rawlen (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
118
int t = lua_type(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
119
luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1,
usr/src/uts/common/fs/zfs/lua/lbaselib.c
121
lua_pushinteger(L, lua_rawlen(L, 1));
usr/src/uts/common/fs/zfs/lua/lbaselib.c
126
static int luaB_rawget (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
127
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
128
luaL_checkany(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
129
lua_settop(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
130
lua_rawget(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
134
static int luaB_rawset (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
135
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
136
luaL_checkany(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
137
luaL_checkany(L, 3);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
138
lua_settop(L, 3);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
139
lua_rawset(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
144
static int luaB_collectgarbage (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
151
int o = optsnum[luaL_checkoption(L, 1, "collect", opts)];
usr/src/uts/common/fs/zfs/lua/lbaselib.c
152
int ex = luaL_optint(L, 2, 0);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
153
int res = lua_gc(L, o, ex);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
156
int b = lua_gc(L, LUA_GCCOUNTB, 0);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
157
lua_pushnumber(L, res + ((lua_Number)b/1024));
usr/src/uts/common/fs/zfs/lua/lbaselib.c
158
lua_pushinteger(L, b);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
162
lua_pushboolean(L, res);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
166
lua_pushinteger(L, res);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
173
static int luaB_type (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
174
luaL_checkany(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
175
lua_pushstring(L, luaL_typename(L, 1));
usr/src/uts/common/fs/zfs/lua/lbaselib.c
180
static int pairsmeta (lua_State *L, const char *method, int iszero,
usr/src/uts/common/fs/zfs/lua/lbaselib.c
182
if (!luaL_getmetafield(L, 1, method)) { /* no metamethod? */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
183
luaL_checktype(L, 1, LUA_TTABLE); /* argument must be a table */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
184
lua_pushcfunction(L, iter); /* will return generator, */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
185
lua_pushvalue(L, 1); /* state, */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
186
if (iszero) lua_pushinteger(L, 0); /* and initial value */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
187
else lua_pushnil(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
190
lua_pushvalue(L, 1); /* argument 'self' to metamethod */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
191
lua_call(L, 1, 3); /* get 3 values from metamethod */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
197
static int luaB_next (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
198
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
199
lua_settop(L, 2); /* create a 2nd argument if there isn't one */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
200
if (lua_next(L, 1))
usr/src/uts/common/fs/zfs/lua/lbaselib.c
203
lua_pushnil(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
209
static int luaB_pairs (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
210
return pairsmeta(L, "__pairs", 0, luaB_next);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
214
static int ipairsaux (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
215
int i = luaL_checkint(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
216
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
218
lua_pushinteger(L, i);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
219
lua_rawgeti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
220
return (lua_isnil(L, -1)) ? 1 : 2;
usr/src/uts/common/fs/zfs/lua/lbaselib.c
224
static int luaB_ipairs (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
225
return pairsmeta(L, "__ipairs", 1, ipairsaux);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
229
static int luaB_assert (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
230
if (!lua_toboolean(L, 1))
usr/src/uts/common/fs/zfs/lua/lbaselib.c
231
return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!"));
usr/src/uts/common/fs/zfs/lua/lbaselib.c
232
return lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
236
static int luaB_select (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
237
int n = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
238
if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
239
lua_pushinteger(L, n-1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
243
int i = luaL_checkint(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
246
luaL_argcheck(L, 1 <= i, 1, "index out of range");
usr/src/uts/common/fs/zfs/lua/lbaselib.c
251
static int luaB_tostring (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
252
luaL_checkany(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
253
luaL_tolstring(L, 1, NULL);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
281
LUAMOD_API int luaopen_base (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
283
lua_pushglobaltable(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
284
lua_pushglobaltable(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
285
lua_setfield(L, -2, "_G");
usr/src/uts/common/fs/zfs/lua/lbaselib.c
287
luaL_setfuncs(L, base_funcs, 0);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
288
lua_pushliteral(L, LUA_VERSION);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
289
lua_setfield(L, -2, "_VERSION"); /* set global _VERSION */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
32
static int luaB_tonumber (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
33
if (lua_isnoneornil(L, 2)) { /* standard conversion */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
35
lua_Number n = lua_tonumberx(L, 1, &isnum);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
37
lua_pushnumber(L, n);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
40
luaL_checkany(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
44
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
46
int base = luaL_checkint(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
48
luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range");
usr/src/uts/common/fs/zfs/lua/lbaselib.c
63
lua_pushnumber(L, (neg) ? -n : n);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
68
lua_pushnil(L); /* not a number */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
73
static int luaB_error (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
74
int level = luaL_optint(L, 2, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
75
lua_settop(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
76
if (lua_isstring(L, 1) && level > 0) { /* add extra information? */
usr/src/uts/common/fs/zfs/lua/lbaselib.c
77
luaL_where(L, level);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
78
lua_pushvalue(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
79
lua_concat(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
81
return lua_error(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
85
static int luaB_getmetatable (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
86
luaL_checkany(L, 1);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
87
if (!lua_getmetatable(L, 1)) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
88
lua_pushnil(L);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
91
luaL_getmetafield(L, 1, "__metatable");
usr/src/uts/common/fs/zfs/lua/lbaselib.c
96
static int luaB_setmetatable (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbaselib.c
97
int t = lua_type(L, 2);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
98
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/lbaselib.c
99
luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2,
usr/src/uts/common/fs/zfs/lua/lbitlib.c
103
static int b_lshift (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
104
return b_shift(L, luaL_checkunsigned(L, 1), luaL_checkint(L, 2));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
108
static int b_rshift (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
109
return b_shift(L, luaL_checkunsigned(L, 1), -luaL_checkint(L, 2));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
113
static int b_arshift (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
114
b_uint r = luaL_checkunsigned(L, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
115
int i = luaL_checkint(L, 2);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
117
return b_shift(L, r, -i);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
122
lua_pushunsigned(L, r);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
128
static int b_rot (lua_State *L, int i) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
129
b_uint r = luaL_checkunsigned(L, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
134
lua_pushunsigned(L, trim(r));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
139
static int b_lrot (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
140
return b_rot(L, luaL_checkint(L, 2));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
144
static int b_rrot (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
145
return b_rot(L, -luaL_checkint(L, 2));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
155
static int fieldargs (lua_State *L, int farg, int *width) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
156
int f = luaL_checkint(L, farg);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
157
int w = luaL_optint(L, farg + 1, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
158
luaL_argcheck(L, 0 <= f, farg, "field cannot be negative");
usr/src/uts/common/fs/zfs/lua/lbitlib.c
159
luaL_argcheck(L, 0 < w, farg + 1, "width must be positive");
usr/src/uts/common/fs/zfs/lua/lbitlib.c
161
luaL_error(L, "trying to access non-existent bits");
usr/src/uts/common/fs/zfs/lua/lbitlib.c
167
static int b_extract (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
169
b_uint r = luaL_checkunsigned(L, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
170
int f = fieldargs(L, 2, &w);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
172
lua_pushunsigned(L, r);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
177
static int b_replace (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
179
b_uint r = luaL_checkunsigned(L, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
180
b_uint v = luaL_checkunsigned(L, 2);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
181
int f = fieldargs(L, 3, &w);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
185
lua_pushunsigned(L, r);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
208
LUAMOD_API int luaopen_bit32 (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
209
luaL_newlib(L, bitlib);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
36
static b_uint andaux (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
37
int i, n = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
40
r &= luaL_checkunsigned(L, i);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
45
static int b_and (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
46
b_uint r = andaux(L);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
47
lua_pushunsigned(L, r);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
52
static int b_test (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
53
b_uint r = andaux(L);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
54
lua_pushboolean(L, r != 0);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
59
static int b_or (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
60
int i, n = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
63
r |= luaL_checkunsigned(L, i);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
64
lua_pushunsigned(L, trim(r));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
69
static int b_xor (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
70
int i, n = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
73
r ^= luaL_checkunsigned(L, i);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
74
lua_pushunsigned(L, trim(r));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
79
static int b_not (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
80
b_uint r = ~luaL_checkunsigned(L, 1);
usr/src/uts/common/fs/zfs/lua/lbitlib.c
81
lua_pushunsigned(L, trim(r));
usr/src/uts/common/fs/zfs/lua/lbitlib.c
86
static int b_shift (lua_State *L, b_uint r, int i) {
usr/src/uts/common/fs/zfs/lua/lbitlib.c
98
lua_pushunsigned(L, r);
usr/src/uts/common/fs/zfs/lua/lcode.c
215
luaM_growvector(fs->ls->L, f->code, fs->pc, f->sizecode, Instruction,
usr/src/uts/common/fs/zfs/lua/lcode.c
219
luaM_growvector(fs->ls->L, f->lineinfo, fs->pc, f->sizelineinfo, int,
usr/src/uts/common/fs/zfs/lua/lcode.c
291
lua_State *L = fs->ls->L;
usr/src/uts/common/fs/zfs/lua/lcode.c
292
TValue *idx = luaH_set(L, fs->h, key);
usr/src/uts/common/fs/zfs/lua/lcode.c
309
luaM_growvector(L, f->k, k, f->sizek, TValue, MAXARG_Ax, "constants");
usr/src/uts/common/fs/zfs/lua/lcode.c
311
setobj(L, &f->k[k], v);
usr/src/uts/common/fs/zfs/lua/lcode.c
313
luaC_barrier(L, f, v);
usr/src/uts/common/fs/zfs/lua/lcode.c
320
setsvalue(fs->ls->L, &o, s);
usr/src/uts/common/fs/zfs/lua/lcode.c
327
lua_State *L = fs->ls->L;
usr/src/uts/common/fs/zfs/lua/lcode.c
332
setsvalue(L, L->top++, luaS_newlstr(L, (char *)&r, sizeof(r)));
usr/src/uts/common/fs/zfs/lua/lcode.c
333
n = addk(fs, L->top - 1, &o);
usr/src/uts/common/fs/zfs/lua/lcode.c
334
L->top--;
usr/src/uts/common/fs/zfs/lua/lcode.c
353
sethvalue(fs->ls->L, &k, fs->h);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
103
static int luaB_costatus (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
104
lua_State *co = lua_tothread(L, 1);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
105
luaL_argcheck(L, co, 1, "coroutine expected");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
106
if (L == co) lua_pushliteral(L, "running");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
110
lua_pushliteral(L, "suspended");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
115
lua_pushliteral(L, "normal"); /* it is running */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
117
lua_pushliteral(L, "dead");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
119
lua_pushliteral(L, "suspended"); /* initial state */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
123
lua_pushliteral(L, "dead");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
131
static int luaB_corunning (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
132
int ismain = lua_pushthread(L);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
133
lua_pushboolean(L, ismain);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
150
LUAMOD_API int luaopen_coroutine (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
151
luaL_newlib(L, co_funcs);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
19
static int auxresume (lua_State *L, lua_State *co, int narg) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
22
lua_pushliteral(L, "too many arguments to resume");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
26
lua_pushliteral(L, "cannot resume dead coroutine");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
29
lua_xmove(L, co, narg);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
30
status = lua_resume(co, L, narg);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
33
if (!lua_checkstack(L, nres + 1)) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
35
lua_pushliteral(L, "too many results to resume");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
38
lua_xmove(co, L, nres); /* move yielded values */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
42
lua_xmove(co, L, 1); /* move error message */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
48
static int luaB_coresume (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
49
lua_State *co = lua_tothread(L, 1);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
51
luaL_argcheck(L, co, 1, "coroutine expected");
usr/src/uts/common/fs/zfs/lua/lcorolib.c
52
r = auxresume(L, co, lua_gettop(L) - 1);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
54
lua_pushboolean(L, 0);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
55
lua_insert(L, -2);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
59
lua_pushboolean(L, 1);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
60
lua_insert(L, -(r + 1));
usr/src/uts/common/fs/zfs/lua/lcorolib.c
66
static int luaB_auxwrap (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
67
lua_State *co = lua_tothread(L, lua_upvalueindex(1));
usr/src/uts/common/fs/zfs/lua/lcorolib.c
68
int r = auxresume(L, co, lua_gettop(L));
usr/src/uts/common/fs/zfs/lua/lcorolib.c
70
if (lua_isstring(L, -1)) { /* error object is a string? */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
71
luaL_where(L, 1); /* add extra info */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
72
lua_insert(L, -2);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
73
lua_concat(L, 2);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
75
return lua_error(L); /* propagate error */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
81
static int luaB_cocreate (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
83
luaL_checktype(L, 1, LUA_TFUNCTION);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
84
NL = lua_newthread(L);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
85
lua_pushvalue(L, 1); /* move function to top */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
86
lua_xmove(L, NL, 1); /* move function from L to NL */
usr/src/uts/common/fs/zfs/lua/lcorolib.c
91
static int luaB_cowrap (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
92
luaB_cocreate(L);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
93
lua_pushcclosure(L, luaB_auxwrap, 1);
usr/src/uts/common/fs/zfs/lua/lcorolib.c
98
static int luaB_yield (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lcorolib.c
99
return lua_yield(L, lua_gettop(L));
usr/src/uts/common/fs/zfs/lua/ldebug.c
102
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
125
static const char *findlocal (lua_State *L, CallInfo *ci, int n,
usr/src/uts/common/fs/zfs/lua/ldebug.c
140
StkId limit = (ci == L->ci) ? L->top : ci->next->func;
usr/src/uts/common/fs/zfs/lua/ldebug.c
151
LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
153
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
154
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
156
if (!isLfunction(L->top - 1)) /* not a Lua function? */
usr/src/uts/common/fs/zfs/lua/ldebug.c
159
name = luaF_getlocalname(clLvalue(L->top - 1)->p, n, 0);
usr/src/uts/common/fs/zfs/lua/ldebug.c
163
name = findlocal(L, ar->i_ci, n, &pos);
usr/src/uts/common/fs/zfs/lua/ldebug.c
165
setobj2s(L, L->top, pos);
usr/src/uts/common/fs/zfs/lua/ldebug.c
166
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
169
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
170
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
175
LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
178
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
179
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
180
name = findlocal(L, ar->i_ci, n, &pos);
usr/src/uts/common/fs/zfs/lua/ldebug.c
182
setobjs2s(L, pos, L->top - 1);
usr/src/uts/common/fs/zfs/lua/ldebug.c
183
L->top--; /* pop value */
usr/src/uts/common/fs/zfs/lua/ldebug.c
184
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
185
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
208
static void collectvalidlines (lua_State *L, Closure *f) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
210
setnilvalue(L->top);
usr/src/uts/common/fs/zfs/lua/ldebug.c
211
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
217
Table *t = luaH_new(L); /* new table to store active lines */
usr/src/uts/common/fs/zfs/lua/ldebug.c
218
sethvalue(L, L->top, t); /* push it on stack */
usr/src/uts/common/fs/zfs/lua/ldebug.c
219
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
222
luaH_setint(L, t, lineinfo[i], &v); /* table[line] = true */
usr/src/uts/common/fs/zfs/lua/ldebug.c
227
static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar,
usr/src/uts/common/fs/zfs/lua/ldebug.c
259
ar->namewhat = getfuncname(L, ci->previous, &ar->name);
usr/src/uts/common/fs/zfs/lua/ldebug.c
278
LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
283
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
284
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
287
func = L->top - 1;
usr/src/uts/common/fs/zfs/lua/ldebug.c
288
api_check(L, ttisfunction(func), "function expected");
usr/src/uts/common/fs/zfs/lua/ldebug.c
290
L->top--; /* pop function */
usr/src/uts/common/fs/zfs/lua/ldebug.c
298
status = auxgetinfo(L, what, ar, cl, ci);
usr/src/uts/common/fs/zfs/lua/ldebug.c
300
setobjs2s(L, L->top, func);
usr/src/uts/common/fs/zfs/lua/ldebug.c
301
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
303
swapextra(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
305
collectvalidlines(L, cl);
usr/src/uts/common/fs/zfs/lua/ldebug.c
306
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
33
static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name);
usr/src/uts/common/fs/zfs/lua/ldebug.c
459
static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
47
static void swapextra (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
48
if (L->status == LUA_YIELD) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
49
CallInfo *ci = L->ci; /* get function that yielded */
usr/src/uts/common/fs/zfs/lua/ldebug.c
493
*name = getstr(G(L)->tmname[tm]);
usr/src/uts/common/fs/zfs/lua/ldebug.c
51
ci->func = restorestack(L, ci->extra);
usr/src/uts/common/fs/zfs/lua/ldebug.c
52
ci->extra = savestack(L, temp);
usr/src/uts/common/fs/zfs/lua/ldebug.c
527
l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
528
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldebug.c
539
luaG_runerror(L, "attempt to %s %s " LUA_QS " (a %s value)",
usr/src/uts/common/fs/zfs/lua/ldebug.c
542
luaG_runerror(L, "attempt to %s a %s value", op, t);
usr/src/uts/common/fs/zfs/lua/ldebug.c
546
l_noret luaG_concaterror (lua_State *L, StkId p1, StkId p2) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
549
luaG_typeerror(L, p1, "concatenate");
usr/src/uts/common/fs/zfs/lua/ldebug.c
553
l_noret luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
557
luaG_typeerror(L, p2, "perform arithmetic on");
usr/src/uts/common/fs/zfs/lua/ldebug.c
561
l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
565
luaG_runerror(L, "attempt to compare two %s values", t1);
usr/src/uts/common/fs/zfs/lua/ldebug.c
567
luaG_runerror(L, "attempt to compare %s with %s", t1, t2);
usr/src/uts/common/fs/zfs/lua/ldebug.c
571
static void addinfo (lua_State *L, const char *msg) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
572
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldebug.c
582
luaO_pushfstring(L, "%s:%d: %s", buff, line, msg);
usr/src/uts/common/fs/zfs/lua/ldebug.c
587
l_noret luaG_errormsg (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
588
if (L->errfunc != 0) { /* is there an error handling function? */
usr/src/uts/common/fs/zfs/lua/ldebug.c
589
StkId errfunc = restorestack(L, L->errfunc);
usr/src/uts/common/fs/zfs/lua/ldebug.c
590
if (!ttisfunction(errfunc)) luaD_throw(L, LUA_ERRERR);
usr/src/uts/common/fs/zfs/lua/ldebug.c
591
setobjs2s(L, L->top, L->top - 1); /* move argument */
usr/src/uts/common/fs/zfs/lua/ldebug.c
592
setobjs2s(L, L->top - 1, errfunc); /* push function */
usr/src/uts/common/fs/zfs/lua/ldebug.c
593
L->top++;
usr/src/uts/common/fs/zfs/lua/ldebug.c
594
luaD_call(L, L->top - 2, 1, 0); /* call it */
usr/src/uts/common/fs/zfs/lua/ldebug.c
596
luaD_throw(L, LUA_ERRRUN);
usr/src/uts/common/fs/zfs/lua/ldebug.c
60
LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
600
l_noret luaG_runerror (lua_State *L, const char *fmt, ...) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
603
addinfo(L, luaO_pushvfstring(L, fmt, argp));
usr/src/uts/common/fs/zfs/lua/ldebug.c
605
luaG_errormsg(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
65
if (isLua(L->ci))
usr/src/uts/common/fs/zfs/lua/ldebug.c
66
L->oldpc = L->ci->u.l.savedpc;
usr/src/uts/common/fs/zfs/lua/ldebug.c
67
L->hook = func;
usr/src/uts/common/fs/zfs/lua/ldebug.c
68
L->basehookcount = count;
usr/src/uts/common/fs/zfs/lua/ldebug.c
69
resethookcount(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
70
L->hookmask = cast_byte(mask);
usr/src/uts/common/fs/zfs/lua/ldebug.c
75
LUA_API lua_Hook lua_gethook (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
76
return L->hook;
usr/src/uts/common/fs/zfs/lua/ldebug.c
80
LUA_API int lua_gethookmask (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
81
return L->hookmask;
usr/src/uts/common/fs/zfs/lua/ldebug.c
85
LUA_API int lua_gethookcount (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
86
return L->basehookcount;
usr/src/uts/common/fs/zfs/lua/ldebug.c
90
LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) {
usr/src/uts/common/fs/zfs/lua/ldebug.c
94
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldebug.c
95
for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous)
usr/src/uts/common/fs/zfs/lua/ldebug.c
97
if (level == 0 && ci != &L->base_ci) { /* level found? */
usr/src/uts/common/fs/zfs/lua/ldebug.h
18
#define resethookcount(L) (L->hookcount = L->basehookcount)
usr/src/uts/common/fs/zfs/lua/ldebug.h
24
LUAI_FUNC l_noret luaG_typeerror (lua_State *L, const TValue *o,
usr/src/uts/common/fs/zfs/lua/ldebug.h
26
LUAI_FUNC l_noret luaG_concaterror (lua_State *L, StkId p1, StkId p2);
usr/src/uts/common/fs/zfs/lua/ldebug.h
27
LUAI_FUNC l_noret luaG_aritherror (lua_State *L, const TValue *p1,
usr/src/uts/common/fs/zfs/lua/ldebug.h
29
LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1,
usr/src/uts/common/fs/zfs/lua/ldebug.h
31
LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...);
usr/src/uts/common/fs/zfs/lua/ldebug.h
32
LUAI_FUNC l_noret luaG_errormsg (lua_State *L);
usr/src/uts/common/fs/zfs/lua/ldo.c
103
L->top = oldtop + 1;
usr/src/uts/common/fs/zfs/lua/ldo.c
107
l_noret luaD_throw (lua_State *L, int errcode) {
usr/src/uts/common/fs/zfs/lua/ldo.c
108
if (L->errorJmp) { /* thread has an error handler? */
usr/src/uts/common/fs/zfs/lua/ldo.c
109
L->errorJmp->status = errcode; /* set status */
usr/src/uts/common/fs/zfs/lua/ldo.c
110
LUAI_THROW(L, L->errorJmp); /* jump to it */
usr/src/uts/common/fs/zfs/lua/ldo.c
113
L->status = cast_byte(errcode); /* mark it as dead */
usr/src/uts/common/fs/zfs/lua/ldo.c
114
if (G(L)->mainthread->errorJmp) { /* main thread has a handler? */
usr/src/uts/common/fs/zfs/lua/ldo.c
115
setobjs2s(L, G(L)->mainthread->top++, L->top - 1); /* copy error obj. */
usr/src/uts/common/fs/zfs/lua/ldo.c
116
luaD_throw(G(L)->mainthread, errcode); /* re-throw in main thread */
usr/src/uts/common/fs/zfs/lua/ldo.c
119
if (G(L)->panic) { /* panic function? */
usr/src/uts/common/fs/zfs/lua/ldo.c
120
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
121
G(L)->panic(L); /* call it (last chance to jump out) */
usr/src/uts/common/fs/zfs/lua/ldo.c
129
int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) {
usr/src/uts/common/fs/zfs/lua/ldo.c
130
unsigned short oldnCcalls = L->nCcalls;
usr/src/uts/common/fs/zfs/lua/ldo.c
133
lj.previous = L->errorJmp; /* chain new error handler */
usr/src/uts/common/fs/zfs/lua/ldo.c
134
L->errorJmp = &lj;
usr/src/uts/common/fs/zfs/lua/ldo.c
135
LUAI_TRY(L, &lj,
usr/src/uts/common/fs/zfs/lua/ldo.c
136
(*f)(L, ud);
usr/src/uts/common/fs/zfs/lua/ldo.c
138
L->errorJmp = lj.previous; /* restore old error handler */
usr/src/uts/common/fs/zfs/lua/ldo.c
139
L->nCcalls = oldnCcalls;
usr/src/uts/common/fs/zfs/lua/ldo.c
146
static void correctstack (lua_State *L, TValue *oldstack) {
usr/src/uts/common/fs/zfs/lua/ldo.c
149
L->top = (L->top - oldstack) + L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
150
for (up = L->openupval; up != NULL; up = up->gch.next)
usr/src/uts/common/fs/zfs/lua/ldo.c
151
gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
152
for (ci = L->ci; ci != NULL; ci = ci->previous) {
usr/src/uts/common/fs/zfs/lua/ldo.c
153
ci->top = (ci->top - oldstack) + L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
154
ci->func = (ci->func - oldstack) + L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
156
ci->u.l.base = (ci->u.l.base - oldstack) + L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
165
void luaD_reallocstack (lua_State *L, int newsize) {
usr/src/uts/common/fs/zfs/lua/ldo.c
166
TValue *oldstack = L->stack;
usr/src/uts/common/fs/zfs/lua/ldo.c
167
int lim = L->stacksize;
usr/src/uts/common/fs/zfs/lua/ldo.c
169
lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK);
usr/src/uts/common/fs/zfs/lua/ldo.c
170
luaM_reallocvector(L, L->stack, L->stacksize, newsize, TValue);
usr/src/uts/common/fs/zfs/lua/ldo.c
172
setnilvalue(L->stack + lim); /* erase new segment */
usr/src/uts/common/fs/zfs/lua/ldo.c
173
L->stacksize = newsize;
usr/src/uts/common/fs/zfs/lua/ldo.c
174
L->stack_last = L->stack + newsize - EXTRA_STACK;
usr/src/uts/common/fs/zfs/lua/ldo.c
175
correctstack(L, oldstack);
usr/src/uts/common/fs/zfs/lua/ldo.c
179
void luaD_growstack (lua_State *L, int n) {
usr/src/uts/common/fs/zfs/lua/ldo.c
180
int size = L->stacksize;
usr/src/uts/common/fs/zfs/lua/ldo.c
182
luaD_throw(L, LUA_ERRERR);
usr/src/uts/common/fs/zfs/lua/ldo.c
184
int needed = cast_int(L->top - L->stack) + n + EXTRA_STACK;
usr/src/uts/common/fs/zfs/lua/ldo.c
189
luaD_reallocstack(L, ERRORSTACKSIZE);
usr/src/uts/common/fs/zfs/lua/ldo.c
190
luaG_runerror(L, "stack overflow");
usr/src/uts/common/fs/zfs/lua/ldo.c
193
luaD_reallocstack(L, newsize);
usr/src/uts/common/fs/zfs/lua/ldo.c
198
static int stackinuse (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldo.c
200
StkId lim = L->top;
usr/src/uts/common/fs/zfs/lua/ldo.c
201
for (ci = L->ci; ci != NULL; ci = ci->previous) {
usr/src/uts/common/fs/zfs/lua/ldo.c
202
lua_assert(ci->top <= L->stack_last);
usr/src/uts/common/fs/zfs/lua/ldo.c
205
return cast_int(lim - L->stack) + 1; /* part of stack in use */
usr/src/uts/common/fs/zfs/lua/ldo.c
209
void luaD_shrinkstack (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldo.c
210
int inuse = stackinuse(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
214
goodsize >= L->stacksize) /* would grow instead of shrink? */
usr/src/uts/common/fs/zfs/lua/ldo.c
215
condmovestack(L); /* don't change stack (change only for debugging) */
usr/src/uts/common/fs/zfs/lua/ldo.c
217
luaD_reallocstack(L, goodsize); /* shrink it */
usr/src/uts/common/fs/zfs/lua/ldo.c
221
void luaD_hook (lua_State *L, int event, int line) {
usr/src/uts/common/fs/zfs/lua/ldo.c
222
lua_Hook hook = L->hook;
usr/src/uts/common/fs/zfs/lua/ldo.c
223
if (hook && L->allowhook) {
usr/src/uts/common/fs/zfs/lua/ldo.c
224
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
225
ptrdiff_t top = savestack(L, L->top);
usr/src/uts/common/fs/zfs/lua/ldo.c
226
ptrdiff_t ci_top = savestack(L, ci->top);
usr/src/uts/common/fs/zfs/lua/ldo.c
231
luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */
usr/src/uts/common/fs/zfs/lua/ldo.c
232
ci->top = L->top + LUA_MINSTACK;
usr/src/uts/common/fs/zfs/lua/ldo.c
233
lua_assert(ci->top <= L->stack_last);
usr/src/uts/common/fs/zfs/lua/ldo.c
234
L->allowhook = 0; /* cannot call hooks inside a hook */
usr/src/uts/common/fs/zfs/lua/ldo.c
236
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
237
(*hook)(L, &ar);
usr/src/uts/common/fs/zfs/lua/ldo.c
238
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
239
lua_assert(!L->allowhook);
usr/src/uts/common/fs/zfs/lua/ldo.c
240
L->allowhook = 1;
usr/src/uts/common/fs/zfs/lua/ldo.c
241
ci->top = restorestack(L, ci_top);
usr/src/uts/common/fs/zfs/lua/ldo.c
242
L->top = restorestack(L, top);
usr/src/uts/common/fs/zfs/lua/ldo.c
248
static void callhook (lua_State *L, CallInfo *ci) {
usr/src/uts/common/fs/zfs/lua/ldo.c
256
luaD_hook(L, hook, -1);
usr/src/uts/common/fs/zfs/lua/ldo.c
261
static StkId adjust_varargs (lua_State *L, Proto *p, int actual) {
usr/src/uts/common/fs/zfs/lua/ldo.c
267
luaD_checkstack(L, p->maxstacksize); /* check again for new 'base' */
usr/src/uts/common/fs/zfs/lua/ldo.c
268
fixed = L->top - actual; /* first fixed argument */
usr/src/uts/common/fs/zfs/lua/ldo.c
269
base = L->top; /* final position of first argument */
usr/src/uts/common/fs/zfs/lua/ldo.c
271
setobjs2s(L, L->top++, fixed + i);
usr/src/uts/common/fs/zfs/lua/ldo.c
278
static StkId tryfuncTM (lua_State *L, StkId func) {
usr/src/uts/common/fs/zfs/lua/ldo.c
279
const TValue *tm = luaT_gettmbyobj(L, func, TM_CALL);
usr/src/uts/common/fs/zfs/lua/ldo.c
281
ptrdiff_t funcr = savestack(L, func);
usr/src/uts/common/fs/zfs/lua/ldo.c
283
luaG_typeerror(L, func, "call");
usr/src/uts/common/fs/zfs/lua/ldo.c
285
for (p = L->top; p > func; p--) setobjs2s(L, p, p-1);
usr/src/uts/common/fs/zfs/lua/ldo.c
286
incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
287
func = restorestack(L, funcr); /* previous call may change stack */
usr/src/uts/common/fs/zfs/lua/ldo.c
288
setobj2s(L, func, tm); /* tag method is the new function to be called */
usr/src/uts/common/fs/zfs/lua/ldo.c
294
#define next_ci(L) (L->ci = (L->ci->next ? L->ci->next : luaE_extendCI(L)))
usr/src/uts/common/fs/zfs/lua/ldo.c
300
int luaD_precall (lua_State *L, StkId func, int nresults) {
usr/src/uts/common/fs/zfs/lua/ldo.c
304
ptrdiff_t funcr = savestack(L, func);
usr/src/uts/common/fs/zfs/lua/ldo.c
312
luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */
usr/src/uts/common/fs/zfs/lua/ldo.c
313
ci = next_ci(L); /* now 'enter' new function */
usr/src/uts/common/fs/zfs/lua/ldo.c
315
ci->func = restorestack(L, funcr);
usr/src/uts/common/fs/zfs/lua/ldo.c
316
ci->top = L->top + LUA_MINSTACK;
usr/src/uts/common/fs/zfs/lua/ldo.c
317
lua_assert(ci->top <= L->stack_last);
usr/src/uts/common/fs/zfs/lua/ldo.c
319
luaC_checkGC(L); /* stack grow uses memory */
usr/src/uts/common/fs/zfs/lua/ldo.c
320
if (L->hookmask & LUA_MASKCALL)
usr/src/uts/common/fs/zfs/lua/ldo.c
321
luaD_hook(L, LUA_HOOKCALL, -1);
usr/src/uts/common/fs/zfs/lua/ldo.c
322
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
323
n = (*f)(L); /* do the actual call */
usr/src/uts/common/fs/zfs/lua/ldo.c
324
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
325
api_checknelems(L, n);
usr/src/uts/common/fs/zfs/lua/ldo.c
326
luaD_poscall(L, L->top - n);
usr/src/uts/common/fs/zfs/lua/ldo.c
332
n = cast_int(L->top - func) - 1; /* number of real arguments */
usr/src/uts/common/fs/zfs/lua/ldo.c
333
luaD_checkstack(L, p->maxstacksize);
usr/src/uts/common/fs/zfs/lua/ldo.c
335
setnilvalue(L->top++); /* complete missing arguments */
usr/src/uts/common/fs/zfs/lua/ldo.c
337
func = restorestack(L, funcr);
usr/src/uts/common/fs/zfs/lua/ldo.c
341
base = adjust_varargs(L, p, n);
usr/src/uts/common/fs/zfs/lua/ldo.c
342
func = restorestack(L, funcr); /* previous call can change stack */
usr/src/uts/common/fs/zfs/lua/ldo.c
344
ci = next_ci(L); /* now 'enter' new function */
usr/src/uts/common/fs/zfs/lua/ldo.c
349
lua_assert(ci->top <= L->stack_last);
usr/src/uts/common/fs/zfs/lua/ldo.c
352
L->top = ci->top;
usr/src/uts/common/fs/zfs/lua/ldo.c
353
luaC_checkGC(L); /* stack grow uses memory */
usr/src/uts/common/fs/zfs/lua/ldo.c
354
if (L->hookmask & LUA_MASKCALL)
usr/src/uts/common/fs/zfs/lua/ldo.c
355
callhook(L, ci);
usr/src/uts/common/fs/zfs/lua/ldo.c
359
func = tryfuncTM(L, func); /* retry with 'function' tag method */
usr/src/uts/common/fs/zfs/lua/ldo.c
360
return luaD_precall(L, func, nresults); /* now it must be a function */
usr/src/uts/common/fs/zfs/lua/ldo.c
366
int luaD_poscall (lua_State *L, StkId firstResult) {
usr/src/uts/common/fs/zfs/lua/ldo.c
369
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
370
if (L->hookmask & (LUA_MASKRET | LUA_MASKLINE)) {
usr/src/uts/common/fs/zfs/lua/ldo.c
371
if (L->hookmask & LUA_MASKRET) {
usr/src/uts/common/fs/zfs/lua/ldo.c
372
ptrdiff_t fr = savestack(L, firstResult); /* hook may change stack */
usr/src/uts/common/fs/zfs/lua/ldo.c
373
luaD_hook(L, LUA_HOOKRET, -1);
usr/src/uts/common/fs/zfs/lua/ldo.c
374
firstResult = restorestack(L, fr);
usr/src/uts/common/fs/zfs/lua/ldo.c
376
L->oldpc = ci->previous->u.l.savedpc; /* 'oldpc' for caller function */
usr/src/uts/common/fs/zfs/lua/ldo.c
380
L->ci = ci = ci->previous; /* back to caller */
usr/src/uts/common/fs/zfs/lua/ldo.c
382
for (i = wanted; i != 0 && firstResult < L->top; i--)
usr/src/uts/common/fs/zfs/lua/ldo.c
383
setobjs2s(L, res++, firstResult++);
usr/src/uts/common/fs/zfs/lua/ldo.c
386
L->top = res;
usr/src/uts/common/fs/zfs/lua/ldo.c
397
void luaD_call (lua_State *L, StkId func, int nResults, int allowyield) {
usr/src/uts/common/fs/zfs/lua/ldo.c
398
if (++L->nCcalls >= LUAI_MAXCCALLS) {
usr/src/uts/common/fs/zfs/lua/ldo.c
399
if (L->nCcalls == LUAI_MAXCCALLS)
usr/src/uts/common/fs/zfs/lua/ldo.c
400
luaG_runerror(L, "C stack overflow");
usr/src/uts/common/fs/zfs/lua/ldo.c
401
else if (L->nCcalls >= (LUAI_MAXCCALLS + (LUAI_MAXCCALLS>>3)))
usr/src/uts/common/fs/zfs/lua/ldo.c
402
luaD_throw(L, LUA_ERRERR); /* error while handing stack error */
usr/src/uts/common/fs/zfs/lua/ldo.c
404
if (!allowyield) L->nny++;
usr/src/uts/common/fs/zfs/lua/ldo.c
405
if (!luaD_precall(L, func, nResults)) /* is a Lua function? */
usr/src/uts/common/fs/zfs/lua/ldo.c
406
luaV_execute(L); /* call it */
usr/src/uts/common/fs/zfs/lua/ldo.c
407
if (!allowyield) L->nny--;
usr/src/uts/common/fs/zfs/lua/ldo.c
408
L->nCcalls--;
usr/src/uts/common/fs/zfs/lua/ldo.c
412
static void finishCcall (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldo.c
413
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
416
lua_assert(L->nny == 0);
usr/src/uts/common/fs/zfs/lua/ldo.c
419
L->errfunc = ci->u.c.old_errfunc;
usr/src/uts/common/fs/zfs/lua/ldo.c
422
adjustresults(L, ci->nresults);
usr/src/uts/common/fs/zfs/lua/ldo.c
428
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
429
n = (*ci->u.c.k)(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
430
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
431
api_checknelems(L, n);
usr/src/uts/common/fs/zfs/lua/ldo.c
433
luaD_poscall(L, L->top - n);
usr/src/uts/common/fs/zfs/lua/ldo.c
437
static void unroll (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/ldo.c
440
if (L->ci == &L->base_ci) /* stack is empty? */
usr/src/uts/common/fs/zfs/lua/ldo.c
442
if (!isLua(L->ci)) /* C function? */
usr/src/uts/common/fs/zfs/lua/ldo.c
443
finishCcall(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
445
luaV_finishOp(L); /* finish interrupted instruction */
usr/src/uts/common/fs/zfs/lua/ldo.c
446
luaV_execute(L); /* execute down to higher C 'boundary' */
usr/src/uts/common/fs/zfs/lua/ldo.c
455
static CallInfo *findpcall (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ldo.c
457
for (ci = L->ci; ci != NULL; ci = ci->previous) { /* search for a pcall */
usr/src/uts/common/fs/zfs/lua/ldo.c
465
static int recover (lua_State *L, int status) {
usr/src/uts/common/fs/zfs/lua/ldo.c
467
CallInfo *ci = findpcall(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
470
oldtop = restorestack(L, ci->extra);
usr/src/uts/common/fs/zfs/lua/ldo.c
471
luaF_close(L, oldtop);
usr/src/uts/common/fs/zfs/lua/ldo.c
472
seterrorobj(L, status, oldtop);
usr/src/uts/common/fs/zfs/lua/ldo.c
473
L->ci = ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
474
L->allowhook = ci->u.c.old_allowhook;
usr/src/uts/common/fs/zfs/lua/ldo.c
475
L->nny = 0; /* should be zero to be yieldable */
usr/src/uts/common/fs/zfs/lua/ldo.c
476
luaD_shrinkstack(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
477
L->errfunc = ci->u.c.old_errfunc;
usr/src/uts/common/fs/zfs/lua/ldo.c
489
static l_noret resume_error (lua_State *L, const char *msg, StkId firstArg) {
usr/src/uts/common/fs/zfs/lua/ldo.c
490
L->top = firstArg; /* remove args from the stack */
usr/src/uts/common/fs/zfs/lua/ldo.c
491
setsvalue2s(L, L->top, luaS_new(L, msg)); /* push error message */
usr/src/uts/common/fs/zfs/lua/ldo.c
492
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
493
luaD_throw(L, -1); /* jump back to 'lua_resume' */
usr/src/uts/common/fs/zfs/lua/ldo.c
50
#define LUAI_THROW(L,c) longjmp(&(c)->b)
usr/src/uts/common/fs/zfs/lua/ldo.c
500
static void resume_cb (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/ldo.c
501
int nCcalls = L->nCcalls;
usr/src/uts/common/fs/zfs/lua/ldo.c
503
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
505
resume_error(L, "C stack overflow", firstArg);
usr/src/uts/common/fs/zfs/lua/ldo.c
506
if (L->status == LUA_OK) { /* may be starting a coroutine */
usr/src/uts/common/fs/zfs/lua/ldo.c
507
if (ci != &L->base_ci) /* not in base level? */
usr/src/uts/common/fs/zfs/lua/ldo.c
508
resume_error(L, "cannot resume non-suspended coroutine", firstArg);
usr/src/uts/common/fs/zfs/lua/ldo.c
51
#define LUAI_TRY(L,c,a) if (setjmp(&(c)->b) == 0) { a }
usr/src/uts/common/fs/zfs/lua/ldo.c
510
if (!luaD_precall(L, firstArg - 1, LUA_MULTRET)) /* Lua function? */
usr/src/uts/common/fs/zfs/lua/ldo.c
511
luaV_execute(L); /* call it */
usr/src/uts/common/fs/zfs/lua/ldo.c
513
else if (L->status != LUA_YIELD)
usr/src/uts/common/fs/zfs/lua/ldo.c
514
resume_error(L, "cannot resume dead coroutine", firstArg);
usr/src/uts/common/fs/zfs/lua/ldo.c
516
L->status = LUA_OK;
usr/src/uts/common/fs/zfs/lua/ldo.c
517
ci->func = restorestack(L, ci->extra);
usr/src/uts/common/fs/zfs/lua/ldo.c
519
luaV_execute(L); /* just continue running Lua code */
usr/src/uts/common/fs/zfs/lua/ldo.c
525
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
526
n = (*ci->u.c.k)(L); /* call continuation */
usr/src/uts/common/fs/zfs/lua/ldo.c
527
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
528
api_checknelems(L, n);
usr/src/uts/common/fs/zfs/lua/ldo.c
529
firstArg = L->top - n; /* yield results come from continuation */
usr/src/uts/common/fs/zfs/lua/ldo.c
531
luaD_poscall(L, firstArg); /* finish 'luaD_precall' */
usr/src/uts/common/fs/zfs/lua/ldo.c
533
unroll(L, NULL);
usr/src/uts/common/fs/zfs/lua/ldo.c
535
lua_assert(nCcalls == L->nCcalls);
usr/src/uts/common/fs/zfs/lua/ldo.c
539
LUA_API int lua_resume (lua_State *L, lua_State *from, int nargs) {
usr/src/uts/common/fs/zfs/lua/ldo.c
541
int oldnny = L->nny; /* save 'nny' */
usr/src/uts/common/fs/zfs/lua/ldo.c
542
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
543
luai_userstateresume(L, nargs);
usr/src/uts/common/fs/zfs/lua/ldo.c
544
L->nCcalls = (from) ? from->nCcalls + 1 : 1;
usr/src/uts/common/fs/zfs/lua/ldo.c
545
L->nny = 0; /* allow yields */
usr/src/uts/common/fs/zfs/lua/ldo.c
546
api_checknelems(L, (L->status == LUA_OK) ? nargs + 1 : nargs);
usr/src/uts/common/fs/zfs/lua/ldo.c
547
status = luaD_rawrunprotected(L, resume_cb, L->top - nargs);
usr/src/uts/common/fs/zfs/lua/ldo.c
552
if (recover(L, status)) /* recover point? */
usr/src/uts/common/fs/zfs/lua/ldo.c
553
status = luaD_rawrunprotected(L, unroll, NULL); /* run continuation */
usr/src/uts/common/fs/zfs/lua/ldo.c
555
L->status = cast_byte(status); /* mark thread as `dead' */
usr/src/uts/common/fs/zfs/lua/ldo.c
556
seterrorobj(L, status, L->top);
usr/src/uts/common/fs/zfs/lua/ldo.c
557
L->ci->top = L->top;
usr/src/uts/common/fs/zfs/lua/ldo.c
56
#define LUAI_THROW(L,c) throw(c)
usr/src/uts/common/fs/zfs/lua/ldo.c
561
lua_assert(status == L->status);
usr/src/uts/common/fs/zfs/lua/ldo.c
563
L->nny = oldnny; /* restore 'nny' */
usr/src/uts/common/fs/zfs/lua/ldo.c
564
L->nCcalls--;
usr/src/uts/common/fs/zfs/lua/ldo.c
565
lua_assert(L->nCcalls == ((from) ? from->nCcalls : 0));
usr/src/uts/common/fs/zfs/lua/ldo.c
566
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
57
#define LUAI_TRY(L,c,a) \
usr/src/uts/common/fs/zfs/lua/ldo.c
571
LUA_API int lua_yieldk (lua_State *L, int nresults, int ctx, lua_CFunction k) {
usr/src/uts/common/fs/zfs/lua/ldo.c
572
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
573
luai_userstateyield(L, nresults);
usr/src/uts/common/fs/zfs/lua/ldo.c
574
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
575
api_checknelems(L, nresults);
usr/src/uts/common/fs/zfs/lua/ldo.c
576
if (L->nny > 0) {
usr/src/uts/common/fs/zfs/lua/ldo.c
577
if (L != G(L)->mainthread)
usr/src/uts/common/fs/zfs/lua/ldo.c
578
luaG_runerror(L, "attempt to yield across a C-call boundary");
usr/src/uts/common/fs/zfs/lua/ldo.c
580
luaG_runerror(L, "attempt to yield from outside a coroutine");
usr/src/uts/common/fs/zfs/lua/ldo.c
582
L->status = LUA_YIELD;
usr/src/uts/common/fs/zfs/lua/ldo.c
583
ci->extra = savestack(L, ci->func); /* save current 'func' */
usr/src/uts/common/fs/zfs/lua/ldo.c
585
api_check(L, k == NULL, "hooks cannot continue after yielding");
usr/src/uts/common/fs/zfs/lua/ldo.c
590
ci->func = L->top - nresults - 1; /* protect stack below results */
usr/src/uts/common/fs/zfs/lua/ldo.c
591
luaD_throw(L, LUA_YIELD);
usr/src/uts/common/fs/zfs/lua/ldo.c
594
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
599
int luaD_pcall (lua_State *L, Pfunc func, void *u,
usr/src/uts/common/fs/zfs/lua/ldo.c
602
CallInfo *old_ci = L->ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
603
lu_byte old_allowhooks = L->allowhook;
usr/src/uts/common/fs/zfs/lua/ldo.c
604
unsigned short old_nny = L->nny;
usr/src/uts/common/fs/zfs/lua/ldo.c
605
ptrdiff_t old_errfunc = L->errfunc;
usr/src/uts/common/fs/zfs/lua/ldo.c
606
L->errfunc = ef;
usr/src/uts/common/fs/zfs/lua/ldo.c
607
status = luaD_rawrunprotected(L, func, u);
usr/src/uts/common/fs/zfs/lua/ldo.c
609
StkId oldtop = restorestack(L, old_top);
usr/src/uts/common/fs/zfs/lua/ldo.c
610
luaF_close(L, oldtop); /* close possible pending closures */
usr/src/uts/common/fs/zfs/lua/ldo.c
611
seterrorobj(L, status, oldtop);
usr/src/uts/common/fs/zfs/lua/ldo.c
612
L->ci = old_ci;
usr/src/uts/common/fs/zfs/lua/ldo.c
613
L->allowhook = old_allowhooks;
usr/src/uts/common/fs/zfs/lua/ldo.c
614
L->nny = old_nny;
usr/src/uts/common/fs/zfs/lua/ldo.c
615
luaD_shrinkstack(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
617
L->errfunc = old_errfunc;
usr/src/uts/common/fs/zfs/lua/ldo.c
63
#define LUAI_THROW(L,c) _longjmp((c)->b, 1)
usr/src/uts/common/fs/zfs/lua/ldo.c
635
static void checkmode (lua_State *L, const char *mode, const char *x) {
usr/src/uts/common/fs/zfs/lua/ldo.c
637
luaO_pushfstring(L,
usr/src/uts/common/fs/zfs/lua/ldo.c
639
luaD_throw(L, LUA_ERRSYNTAX);
usr/src/uts/common/fs/zfs/lua/ldo.c
64
#define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a }
usr/src/uts/common/fs/zfs/lua/ldo.c
644
static void f_parser (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/ldo.c
650
checkmode(L, p->mode, "binary");
usr/src/uts/common/fs/zfs/lua/ldo.c
651
cl = luaU_undump(L, p->z, &p->buff, p->name);
usr/src/uts/common/fs/zfs/lua/ldo.c
654
checkmode(L, p->mode, "text");
usr/src/uts/common/fs/zfs/lua/ldo.c
655
cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c);
usr/src/uts/common/fs/zfs/lua/ldo.c
659
UpVal *up = luaF_newupval(L);
usr/src/uts/common/fs/zfs/lua/ldo.c
661
luaC_objbarrier(L, cl, up);
usr/src/uts/common/fs/zfs/lua/ldo.c
666
int luaD_protectedparser (lua_State *L, ZIO *z, const char *name,
usr/src/uts/common/fs/zfs/lua/ldo.c
670
L->nny++; /* cannot yield during parsing */
usr/src/uts/common/fs/zfs/lua/ldo.c
675
luaZ_initbuffer(L, &p.buff);
usr/src/uts/common/fs/zfs/lua/ldo.c
676
status = luaD_pcall(L, f_parser, &p, savestack(L, L->top), L->errfunc);
usr/src/uts/common/fs/zfs/lua/ldo.c
677
luaZ_freebuffer(L, &p.buff);
usr/src/uts/common/fs/zfs/lua/ldo.c
678
luaM_freearray(L, p.dyd.actvar.arr, p.dyd.actvar.size);
usr/src/uts/common/fs/zfs/lua/ldo.c
679
luaM_freearray(L, p.dyd.gt.arr, p.dyd.gt.size);
usr/src/uts/common/fs/zfs/lua/ldo.c
680
luaM_freearray(L, p.dyd.label.arr, p.dyd.label.size);
usr/src/uts/common/fs/zfs/lua/ldo.c
681
L->nny--;
usr/src/uts/common/fs/zfs/lua/ldo.c
69
#define LUAI_THROW(L,c) longjmp((c)->b, 1)
usr/src/uts/common/fs/zfs/lua/ldo.c
70
#define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a }
usr/src/uts/common/fs/zfs/lua/ldo.c
88
static void seterrorobj (lua_State *L, int errcode, StkId oldtop) {
usr/src/uts/common/fs/zfs/lua/ldo.c
91
setsvalue2s(L, oldtop, G(L)->memerrmsg); /* reuse preregistered msg. */
usr/src/uts/common/fs/zfs/lua/ldo.c
95
setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling"));
usr/src/uts/common/fs/zfs/lua/ldo.c
99
setobjs2s(L, oldtop, L->top - 1); /* error message on current top */
usr/src/uts/common/fs/zfs/lua/ldo.h
16
#define luaD_checkstack(L,n) if (L->stack_last - L->top <= (n)) \
usr/src/uts/common/fs/zfs/lua/ldo.h
17
luaD_growstack(L, n); else condmovestack(L);
usr/src/uts/common/fs/zfs/lua/ldo.h
20
#define incr_top(L) {L->top++; luaD_checkstack(L,0);}
usr/src/uts/common/fs/zfs/lua/ldo.h
22
#define savestack(L,p) ((char *)(p) - (char *)L->stack)
usr/src/uts/common/fs/zfs/lua/ldo.h
23
#define restorestack(L,n) ((TValue *)((char *)L->stack + (n)))
usr/src/uts/common/fs/zfs/lua/ldo.h
27
typedef void (*Pfunc) (lua_State *L, void *ud);
usr/src/uts/common/fs/zfs/lua/ldo.h
29
LUAI_FUNC int luaD_protectedparser (lua_State *L, ZIO *z, const char *name,
usr/src/uts/common/fs/zfs/lua/ldo.h
31
LUAI_FUNC void luaD_hook (lua_State *L, int event, int line);
usr/src/uts/common/fs/zfs/lua/ldo.h
32
LUAI_FUNC int luaD_precall (lua_State *L, StkId func, int nresults);
usr/src/uts/common/fs/zfs/lua/ldo.h
33
LUAI_FUNC void luaD_call (lua_State *L, StkId func, int nResults,
usr/src/uts/common/fs/zfs/lua/ldo.h
35
LUAI_FUNC int luaD_pcall (lua_State *L, Pfunc func, void *u,
usr/src/uts/common/fs/zfs/lua/ldo.h
37
LUAI_FUNC int luaD_poscall (lua_State *L, StkId firstResult);
usr/src/uts/common/fs/zfs/lua/ldo.h
38
LUAI_FUNC void luaD_reallocstack (lua_State *L, int newsize);
usr/src/uts/common/fs/zfs/lua/ldo.h
39
LUAI_FUNC void luaD_growstack (lua_State *L, int n);
usr/src/uts/common/fs/zfs/lua/ldo.h
40
LUAI_FUNC void luaD_shrinkstack (lua_State *L);
usr/src/uts/common/fs/zfs/lua/ldo.h
42
LUAI_FUNC l_noret luaD_throw (lua_State *L, int errcode);
usr/src/uts/common/fs/zfs/lua/ldo.h
43
LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud);
usr/src/uts/common/fs/zfs/lua/ldump.c
162
int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip)
usr/src/uts/common/fs/zfs/lua/ldump.c
165
D.L=L;
usr/src/uts/common/fs/zfs/lua/ldump.c
19
lua_State* L;
usr/src/uts/common/fs/zfs/lua/ldump.c
33
lua_unlock(D->L);
usr/src/uts/common/fs/zfs/lua/ldump.c
34
D->status=(*D->writer)(D->L,b,size,D->data);
usr/src/uts/common/fs/zfs/lua/ldump.c
35
lua_lock(D->L);
usr/src/uts/common/fs/zfs/lua/lfunc.c
100
setobj(L, &uv->u.value, uv->v); /* move value to upvalue slot */
usr/src/uts/common/fs/zfs/lua/lfunc.c
110
Proto *luaF_newproto (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
111
Proto *f = &luaC_newobj(L, LUA_TPROTO, sizeof(Proto), NULL, 0)->p;
usr/src/uts/common/fs/zfs/lua/lfunc.c
135
void luaF_freeproto (lua_State *L, Proto *f) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
136
luaM_freearray(L, f->code, f->sizecode);
usr/src/uts/common/fs/zfs/lua/lfunc.c
137
luaM_freearray(L, f->p, f->sizep);
usr/src/uts/common/fs/zfs/lua/lfunc.c
138
luaM_freearray(L, f->k, f->sizek);
usr/src/uts/common/fs/zfs/lua/lfunc.c
139
luaM_freearray(L, f->lineinfo, f->sizelineinfo);
usr/src/uts/common/fs/zfs/lua/lfunc.c
140
luaM_freearray(L, f->locvars, f->sizelocvars);
usr/src/uts/common/fs/zfs/lua/lfunc.c
141
luaM_freearray(L, f->upvalues, f->sizeupvalues);
usr/src/uts/common/fs/zfs/lua/lfunc.c
142
luaM_free(L, f);
usr/src/uts/common/fs/zfs/lua/lfunc.c
23
Closure *luaF_newCclosure (lua_State *L, int n) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
24
Closure *c = &luaC_newobj(L, LUA_TCCL, sizeCclosure(n), NULL, 0)->cl;
usr/src/uts/common/fs/zfs/lua/lfunc.c
30
Closure *luaF_newLclosure (lua_State *L, int n) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
31
Closure *c = &luaC_newobj(L, LUA_TLCL, sizeLclosure(n), NULL, 0)->cl;
usr/src/uts/common/fs/zfs/lua/lfunc.c
39
UpVal *luaF_newupval (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
40
UpVal *uv = &luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal), NULL, 0)->uv;
usr/src/uts/common/fs/zfs/lua/lfunc.c
47
UpVal *luaF_findupval (lua_State *L, StkId level) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
48
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lfunc.c
49
GCObject **pp = &L->openupval;
usr/src/uts/common/fs/zfs/lua/lfunc.c
55
lua_assert(!isold(o) || isold(obj2gco(L)));
usr/src/uts/common/fs/zfs/lua/lfunc.c
64
uv = &luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal), pp, 0)->uv;
usr/src/uts/common/fs/zfs/lua/lfunc.c
82
void luaF_freeupval (lua_State *L, UpVal *uv) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
85
luaM_free(L, uv); /* free upvalue */
usr/src/uts/common/fs/zfs/lua/lfunc.c
89
void luaF_close (lua_State *L, StkId level) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
91
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lfunc.c
92
while (L->openupval != NULL && (uv = gco2uv(L->openupval))->v >= level) {
usr/src/uts/common/fs/zfs/lua/lfunc.c
95
L->openupval = uv->next; /* remove from `open' list */
usr/src/uts/common/fs/zfs/lua/lfunc.c
97
luaF_freeupval(L, uv); /* free upvalue */
usr/src/uts/common/fs/zfs/lua/lfunc.h
21
LUAI_FUNC Proto *luaF_newproto (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lfunc.h
22
LUAI_FUNC Closure *luaF_newCclosure (lua_State *L, int nelems);
usr/src/uts/common/fs/zfs/lua/lfunc.h
23
LUAI_FUNC Closure *luaF_newLclosure (lua_State *L, int nelems);
usr/src/uts/common/fs/zfs/lua/lfunc.h
24
LUAI_FUNC UpVal *luaF_newupval (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lfunc.h
25
LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level);
usr/src/uts/common/fs/zfs/lua/lfunc.h
26
LUAI_FUNC void luaF_close (lua_State *L, StkId level);
usr/src/uts/common/fs/zfs/lua/lfunc.h
27
LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f);
usr/src/uts/common/fs/zfs/lua/lfunc.h
28
LUAI_FUNC void luaF_freeupval (lua_State *L, UpVal *uv);
usr/src/uts/common/fs/zfs/lua/lgc.c
1000
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1004
markobject(g, L); /* mark running thread */
usr/src/uts/common/fs/zfs/lua/lgc.c
1022
separatetobefnz(L, 0); /* separate objects to be finalized */
usr/src/uts/common/fs/zfs/lua/lgc.c
1040
static lu_mem singlestep (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1041
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1062
work = atomic(L); /* add what was traversed by 'atomic' */
usr/src/uts/common/fs/zfs/lua/lgc.c
1064
sw = entersweep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1071
sweepwholelist(L, &g->strt.hash[g->sweepstrgc + i]);
usr/src/uts/common/fs/zfs/lua/lgc.c
1079
g->sweepfin = sweeplist(L, g->sweepfin, GCSWEEPMAX);
usr/src/uts/common/fs/zfs/lua/lgc.c
1089
g->sweepgc = sweeplist(L, g->sweepgc, GCSWEEPMAX);
usr/src/uts/common/fs/zfs/lua/lgc.c
1095
sweeplist(L, &mt, 1);
usr/src/uts/common/fs/zfs/lua/lgc.c
1096
checkSizes(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1110
void luaC_runtilstate (lua_State *L, int statesmask) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1111
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1113
singlestep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1117
static void generationalcollection (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1118
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1121
luaC_fullgc(L, 0); /* perform a full regular collection */
usr/src/uts/common/fs/zfs/lua/lgc.c
1126
luaC_runtilstate(L, bitmask(GCSpause)); /* run complete (minor) cycle */
usr/src/uts/common/fs/zfs/lua/lgc.c
1139
static void incstep (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1140
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1148
lu_mem work = singlestep(L); /* do some work */
usr/src/uts/common/fs/zfs/lua/lgc.c
1163
void luaC_forcestep (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1164
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1166
if (isgenerational(g)) generationalcollection(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1167
else incstep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1170
GCTM(L, 1); /* call one finalizer */
usr/src/uts/common/fs/zfs/lua/lgc.c
1177
void luaC_step (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1178
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1179
if (g->gcrunning) luaC_forcestep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1189
void luaC_fullgc (lua_State *L, int isemergency) {
usr/src/uts/common/fs/zfs/lua/lgc.c
1190
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1197
callallpendingfinalizers(L, 1);
usr/src/uts/common/fs/zfs/lua/lgc.c
1202
entersweep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
1205
luaC_runtilstate(L, bitmask(GCSpause));
usr/src/uts/common/fs/zfs/lua/lgc.c
1206
luaC_runtilstate(L, ~bitmask(GCSpause)); /* start new collection */
usr/src/uts/common/fs/zfs/lua/lgc.c
1207
luaC_runtilstate(L, bitmask(GCSpause)); /* run entire collection */
usr/src/uts/common/fs/zfs/lua/lgc.c
1210
luaC_runtilstate(L, bitmask(GCSpropagate));
usr/src/uts/common/fs/zfs/lua/lgc.c
1215
callallpendingfinalizers(L, 1);
usr/src/uts/common/fs/zfs/lua/lgc.c
135
void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v) {
usr/src/uts/common/fs/zfs/lua/lgc.c
136
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
155
void luaC_barrierback_ (lua_State *L, GCObject *o) {
usr/src/uts/common/fs/zfs/lua/lgc.c
156
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
172
LUAI_FUNC void luaC_barrierproto_ (lua_State *L, Proto *p, Closure *c) {
usr/src/uts/common/fs/zfs/lua/lgc.c
173
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
176
luaC_objbarrier(L, p, c);
usr/src/uts/common/fs/zfs/lua/lgc.c
212
GCObject *luaC_newobj (lua_State *L, int tt, size_t sz, GCObject **list,
usr/src/uts/common/fs/zfs/lua/lgc.c
214
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
215
char *raw = cast(char *, luaM_newobject(L, novariant(tt), sz));
usr/src/uts/common/fs/zfs/lua/lgc.c
663
static void freeobj (lua_State *L, GCObject *o) {
usr/src/uts/common/fs/zfs/lua/lgc.c
665
case LUA_TPROTO: luaF_freeproto(L, gco2p(o)); break;
usr/src/uts/common/fs/zfs/lua/lgc.c
667
luaM_freemem(L, o, sizeLclosure(gco2lcl(o)->nupvalues));
usr/src/uts/common/fs/zfs/lua/lgc.c
671
luaM_freemem(L, o, sizeCclosure(gco2ccl(o)->nupvalues));
usr/src/uts/common/fs/zfs/lua/lgc.c
674
case LUA_TUPVAL: luaF_freeupval(L, gco2uv(o)); break;
usr/src/uts/common/fs/zfs/lua/lgc.c
675
case LUA_TTABLE: luaH_free(L, gco2t(o)); break;
usr/src/uts/common/fs/zfs/lua/lgc.c
676
case LUA_TTHREAD: luaE_freethread(L, gco2th(o)); break;
usr/src/uts/common/fs/zfs/lua/lgc.c
677
case LUA_TUSERDATA: luaM_freemem(L, o, sizeudata(gco2u(o))); break;
usr/src/uts/common/fs/zfs/lua/lgc.c
679
G(L)->strt.nuse--;
usr/src/uts/common/fs/zfs/lua/lgc.c
682
luaM_freemem(L, o, sizestring(gco2ts(o)));
usr/src/uts/common/fs/zfs/lua/lgc.c
690
#define sweepwholelist(L,p) sweeplist(L,p,MAX_LUMEM)
usr/src/uts/common/fs/zfs/lua/lgc.c
691
static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count);
usr/src/uts/common/fs/zfs/lua/lgc.c
698
static void sweepthread (lua_State *L, lua_State *L1) {
usr/src/uts/common/fs/zfs/lua/lgc.c
700
sweepwholelist(L, &L1->openupval); /* sweep open upvalues */
usr/src/uts/common/fs/zfs/lua/lgc.c
703
if (G(L)->gckind != KGC_EMERGENCY)
usr/src/uts/common/fs/zfs/lua/lgc.c
719
static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count) {
usr/src/uts/common/fs/zfs/lua/lgc.c
720
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
739
freeobj(L, curr); /* erase 'curr' */
usr/src/uts/common/fs/zfs/lua/lgc.c
745
sweepthread(L, gco2th(curr)); /* sweep thread's upvalues */
usr/src/uts/common/fs/zfs/lua/lgc.c
758
static GCObject **sweeptolive (lua_State *L, GCObject **p, int *n) {
usr/src/uts/common/fs/zfs/lua/lgc.c
763
p = sweeplist(L, p, 1);
usr/src/uts/common/fs/zfs/lua/lgc.c
778
static void checkSizes (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
779
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
783
luaS_resize(L, hs); /* halve its size */
usr/src/uts/common/fs/zfs/lua/lgc.c
784
luaZ_freebuffer(L, &g->buff); /* free concatenation buffer */
usr/src/uts/common/fs/zfs/lua/lgc.c
803
static void dothecall (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/lgc.c
805
luaD_call(L, L->top - 2, 0, 0);
usr/src/uts/common/fs/zfs/lua/lgc.c
809
static void GCTM (lua_State *L, int propagateerrors) {
usr/src/uts/common/fs/zfs/lua/lgc.c
810
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
813
setgcovalue(L, &v, udata2finalize(g));
usr/src/uts/common/fs/zfs/lua/lgc.c
814
tm = luaT_gettmbyobj(L, &v, TM_GC);
usr/src/uts/common/fs/zfs/lua/lgc.c
817
lu_byte oldah = L->allowhook;
usr/src/uts/common/fs/zfs/lua/lgc.c
819
L->allowhook = 0; /* stop debug hooks during GC metamethod */
usr/src/uts/common/fs/zfs/lua/lgc.c
821
setobj2s(L, L->top, tm); /* push finalizer... */
usr/src/uts/common/fs/zfs/lua/lgc.c
822
setobj2s(L, L->top + 1, &v); /* ... and its argument */
usr/src/uts/common/fs/zfs/lua/lgc.c
823
L->top += 2; /* and (next line) call the finalizer */
usr/src/uts/common/fs/zfs/lua/lgc.c
824
status = luaD_pcall(L, dothecall, NULL, savestack(L, L->top - 2), 0);
usr/src/uts/common/fs/zfs/lua/lgc.c
825
L->allowhook = oldah; /* restore hooks */
usr/src/uts/common/fs/zfs/lua/lgc.c
829
const char *msg = (ttisstring(L->top - 1))
usr/src/uts/common/fs/zfs/lua/lgc.c
830
? svalue(L->top - 1)
usr/src/uts/common/fs/zfs/lua/lgc.c
832
luaO_pushfstring(L, "error in __gc metamethod (%s)", msg);
usr/src/uts/common/fs/zfs/lua/lgc.c
835
luaD_throw(L, status); /* re-throw error */
usr/src/uts/common/fs/zfs/lua/lgc.c
845
static void separatetobefnz (lua_State *L, int all) {
usr/src/uts/common/fs/zfs/lua/lgc.c
846
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
873
void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) {
usr/src/uts/common/fs/zfs/lua/lgc.c
874
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
884
g->sweepgc = sweeptolive(L, g->sweepgc, NULL);
usr/src/uts/common/fs/zfs/lua/lgc.c
936
static int entersweep (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
937
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
943
g->sweepfin = sweeptolive(L, &g->finobj, &n);
usr/src/uts/common/fs/zfs/lua/lgc.c
944
g->sweepgc = sweeptolive(L, &g->allgc, &n);
usr/src/uts/common/fs/zfs/lua/lgc.c
952
void luaC_changemode (lua_State *L, int mode) {
usr/src/uts/common/fs/zfs/lua/lgc.c
953
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
957
luaC_runtilstate(L, bitmask(GCSpropagate));
usr/src/uts/common/fs/zfs/lua/lgc.c
965
entersweep(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
966
luaC_runtilstate(L, ~sweepphases);
usr/src/uts/common/fs/zfs/lua/lgc.c
974
static void callallpendingfinalizers (lua_State *L, int propagateerrors) {
usr/src/uts/common/fs/zfs/lua/lgc.c
975
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
978
GCTM(L, propagateerrors);
usr/src/uts/common/fs/zfs/lua/lgc.c
983
void luaC_freeallobjects (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.c
984
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lgc.c
986
separatetobefnz(L, 1); /* separate all objects with finalizers */
usr/src/uts/common/fs/zfs/lua/lgc.c
988
callallpendingfinalizers(L, 0);
usr/src/uts/common/fs/zfs/lua/lgc.c
991
sweepwholelist(L, &g->finobj); /* finalizers can create objs. in 'finobj' */
usr/src/uts/common/fs/zfs/lua/lgc.c
992
sweepwholelist(L, &g->allgc);
usr/src/uts/common/fs/zfs/lua/lgc.c
994
sweepwholelist(L, &g->strt.hash[i]);
usr/src/uts/common/fs/zfs/lua/lgc.c
999
static l_mem atomic (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lgc.h
122
#define luaC_condGC(L,c) \
usr/src/uts/common/fs/zfs/lua/lgc.h
123
{if (G(L)->GCdebt > 0) {c;}; condchangemem(L);}
usr/src/uts/common/fs/zfs/lua/lgc.h
124
#define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);)
usr/src/uts/common/fs/zfs/lua/lgc.h
127
#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \
usr/src/uts/common/fs/zfs/lua/lgc.h
128
luaC_barrier_(L,obj2gco(p),gcvalue(v)); }
usr/src/uts/common/fs/zfs/lua/lgc.h
130
#define luaC_barrierback(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \
usr/src/uts/common/fs/zfs/lua/lgc.h
131
luaC_barrierback_(L,p); }
usr/src/uts/common/fs/zfs/lua/lgc.h
133
#define luaC_objbarrier(L,p,o) \
usr/src/uts/common/fs/zfs/lua/lgc.h
135
luaC_barrier_(L,obj2gco(p),obj2gco(o)); }
usr/src/uts/common/fs/zfs/lua/lgc.h
137
#define luaC_objbarrierback(L,p,o) \
usr/src/uts/common/fs/zfs/lua/lgc.h
138
{ if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); }
usr/src/uts/common/fs/zfs/lua/lgc.h
140
#define luaC_barrierproto(L,p,c) \
usr/src/uts/common/fs/zfs/lua/lgc.h
141
{ if (isblack(obj2gco(p))) luaC_barrierproto_(L,p,c); }
usr/src/uts/common/fs/zfs/lua/lgc.h
143
LUAI_FUNC void luaC_freeallobjects (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lgc.h
144
LUAI_FUNC void luaC_step (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lgc.h
145
LUAI_FUNC void luaC_forcestep (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lgc.h
146
LUAI_FUNC void luaC_runtilstate (lua_State *L, int statesmask);
usr/src/uts/common/fs/zfs/lua/lgc.h
147
LUAI_FUNC void luaC_fullgc (lua_State *L, int isemergency);
usr/src/uts/common/fs/zfs/lua/lgc.h
148
LUAI_FUNC GCObject *luaC_newobj (lua_State *L, int tt, size_t sz,
usr/src/uts/common/fs/zfs/lua/lgc.h
150
LUAI_FUNC void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v);
usr/src/uts/common/fs/zfs/lua/lgc.h
151
LUAI_FUNC void luaC_barrierback_ (lua_State *L, GCObject *o);
usr/src/uts/common/fs/zfs/lua/lgc.h
152
LUAI_FUNC void luaC_barrierproto_ (lua_State *L, Proto *p, Closure *c);
usr/src/uts/common/fs/zfs/lua/lgc.h
153
LUAI_FUNC void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt);
usr/src/uts/common/fs/zfs/lua/lgc.h
155
LUAI_FUNC void luaC_changemode (lua_State *L, int mode);
usr/src/uts/common/fs/zfs/lua/llex.c
105
msg = luaO_pushfstring(ls->L, "%s:%d: %s", buff, ls->linenumber, msg);
usr/src/uts/common/fs/zfs/lua/llex.c
107
luaO_pushfstring(ls->L, "%s near %s", msg, txtToken(ls, token));
usr/src/uts/common/fs/zfs/lua/llex.c
108
luaD_throw(ls->L, LUA_ERRSYNTAX);
usr/src/uts/common/fs/zfs/lua/llex.c
123
lua_State *L = ls->L;
usr/src/uts/common/fs/zfs/lua/llex.c
125
TString *ts = luaS_newlstr(L, str, l); /* create new string */
usr/src/uts/common/fs/zfs/lua/llex.c
126
setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */
usr/src/uts/common/fs/zfs/lua/llex.c
127
o = luaH_set(L, ls->fs->h, L->top - 1);
usr/src/uts/common/fs/zfs/lua/llex.c
132
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/llex.c
137
L->top--; /* remove string from stack */
usr/src/uts/common/fs/zfs/lua/llex.c
157
void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source,
usr/src/uts/common/fs/zfs/lua/llex.c
160
ls->L = L;
usr/src/uts/common/fs/zfs/lua/llex.c
168
ls->envn = luaS_new(L, LUA_ENV); /* create env name */
usr/src/uts/common/fs/zfs/lua/llex.c
170
luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */
usr/src/uts/common/fs/zfs/lua/llex.c
57
luaZ_resizebuffer(ls->L, b, newsize);
usr/src/uts/common/fs/zfs/lua/llex.c
63
void luaX_init (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/llex.c
66
TString *ts = luaS_new(L, luaX_tokens[i]);
usr/src/uts/common/fs/zfs/lua/llex.c
76
return (lisprint(token)) ? luaO_pushfstring(ls->L, LUA_QL("%c"), token) :
usr/src/uts/common/fs/zfs/lua/llex.c
77
luaO_pushfstring(ls->L, "char(%d)", token);
usr/src/uts/common/fs/zfs/lua/llex.c
82
return luaO_pushfstring(ls->L, LUA_QS, s);
usr/src/uts/common/fs/zfs/lua/llex.c
95
return luaO_pushfstring(ls->L, LUA_QS, luaZ_buffer(ls->buff));
usr/src/uts/common/fs/zfs/lua/llex.h
58
struct lua_State *L;
usr/src/uts/common/fs/zfs/lua/llex.h
68
LUAI_FUNC void luaX_init (lua_State *L);
usr/src/uts/common/fs/zfs/lua/llex.h
69
LUAI_FUNC void luaX_setinput (lua_State *L, LexState *ls, ZIO *z,
usr/src/uts/common/fs/zfs/lua/llimits.h
157
#define lua_lock(L) ((void) 0)
usr/src/uts/common/fs/zfs/lua/llimits.h
158
#define lua_unlock(L) ((void) 0)
usr/src/uts/common/fs/zfs/lua/llimits.h
162
#define luai_threadyield(L) {lua_unlock(L); lua_lock(L);}
usr/src/uts/common/fs/zfs/lua/llimits.h
172
#define luai_userstateopen(L) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
176
#define luai_userstateclose(L) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
180
#define luai_userstatethread(L,L1) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
184
#define luai_userstatefree(L,L1) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
188
#define luai_userstateresume(L,n) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
192
#define luai_userstateyield(L,n) ((void)L)
usr/src/uts/common/fs/zfs/lua/llimits.h
295
#define condmovestack(L) ((void)0)
usr/src/uts/common/fs/zfs/lua/llimits.h
298
#define condmovestack(L) luaD_reallocstack((L), (L)->stacksize)
usr/src/uts/common/fs/zfs/lua/llimits.h
302
#define condchangemem(L) condmovestack(L)
usr/src/uts/common/fs/zfs/lua/llimits.h
304
#define condchangemem(L) \
usr/src/uts/common/fs/zfs/lua/llimits.h
305
((void)(!(G(L)->gcrunning) || (luaC_fullgc(L, 0), 1)))
usr/src/uts/common/fs/zfs/lua/llimits.h
76
#define luai_apicheck(L,e) assert(e)
usr/src/uts/common/fs/zfs/lua/llimits.h
78
#define luai_apicheck(L,e) lua_assert(e)
usr/src/uts/common/fs/zfs/lua/lmem.c
46
void *luaM_growaux_ (lua_State *L, void *block, int *size, size_t size_elems,
usr/src/uts/common/fs/zfs/lua/lmem.c
52
luaG_runerror(L, "too many %s (limit is %d)", what, limit);
usr/src/uts/common/fs/zfs/lua/lmem.c
60
newblock = luaM_reallocv(L, block, *size, newsize, size_elems);
usr/src/uts/common/fs/zfs/lua/lmem.c
66
l_noret luaM_toobig (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lmem.c
67
luaG_runerror(L, "memory allocation error: block too big");
usr/src/uts/common/fs/zfs/lua/lmem.c
75
void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) {
usr/src/uts/common/fs/zfs/lua/lmem.c
77
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lmem.c
82
luaC_fullgc(L, 1); /* force a GC whenever possible */
usr/src/uts/common/fs/zfs/lua/lmem.c
86
api_check(L, nsize > realosize,
usr/src/uts/common/fs/zfs/lua/lmem.c
89
luaC_fullgc(L, 1); /* try to free some memory... */
usr/src/uts/common/fs/zfs/lua/lmem.c
93
luaD_throw(L, LUA_ERRMEM);
usr/src/uts/common/fs/zfs/lua/lmem.h
24
#define luaM_reallocv(L,b,on,n,e) \
usr/src/uts/common/fs/zfs/lua/lmem.h
26
(cast(size_t, (n)+1) > MAX_SIZET/(e)) ? (luaM_toobig(L), 0) : 0), \
usr/src/uts/common/fs/zfs/lua/lmem.h
27
luaM_realloc_(L, (b), (on)*(e), (n)*(e)))
usr/src/uts/common/fs/zfs/lua/lmem.h
29
#define luaM_freemem(L, b, s) luaM_realloc_(L, (b), (s), 0)
usr/src/uts/common/fs/zfs/lua/lmem.h
30
#define luaM_free(L, b) luaM_realloc_(L, (b), sizeof(*(b)), 0)
usr/src/uts/common/fs/zfs/lua/lmem.h
31
#define luaM_freearray(L, b, n) luaM_reallocv(L, (b), n, 0, sizeof((b)[0]))
usr/src/uts/common/fs/zfs/lua/lmem.h
33
#define luaM_malloc(L,s) luaM_realloc_(L, NULL, 0, (s))
usr/src/uts/common/fs/zfs/lua/lmem.h
34
#define luaM_new(L,t) cast(t *, luaM_malloc(L, sizeof(t)))
usr/src/uts/common/fs/zfs/lua/lmem.h
35
#define luaM_newvector(L,n,t) \
usr/src/uts/common/fs/zfs/lua/lmem.h
36
cast(t *, luaM_reallocv(L, NULL, 0, n, sizeof(t)))
usr/src/uts/common/fs/zfs/lua/lmem.h
38
#define luaM_newobject(L,tag,s) luaM_realloc_(L, NULL, tag, (s))
usr/src/uts/common/fs/zfs/lua/lmem.h
40
#define luaM_growvector(L,v,nelems,size,t,limit,e) \
usr/src/uts/common/fs/zfs/lua/lmem.h
42
((v)=cast(t *, luaM_growaux_(L,v,&(size),sizeof(t),limit,e)))
usr/src/uts/common/fs/zfs/lua/lmem.h
44
#define luaM_reallocvector(L, v,oldn,n,t) \
usr/src/uts/common/fs/zfs/lua/lmem.h
45
((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t))))
usr/src/uts/common/fs/zfs/lua/lmem.h
47
LUAI_FUNC l_noret luaM_toobig (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lmem.h
50
LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize,
usr/src/uts/common/fs/zfs/lua/lmem.h
52
LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size,
usr/src/uts/common/fs/zfs/lua/lobject.c
169
static void pushstr (lua_State *L, const char *str, size_t l) {
usr/src/uts/common/fs/zfs/lua/lobject.c
170
setsvalue2s(L, L->top++, luaS_newlstr(L, str, l));
usr/src/uts/common/fs/zfs/lua/lobject.c
175
const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) {
usr/src/uts/common/fs/zfs/lua/lobject.c
180
luaD_checkstack(L, 2); /* fmt + item */
usr/src/uts/common/fs/zfs/lua/lobject.c
181
pushstr(L, fmt, e - fmt);
usr/src/uts/common/fs/zfs/lua/lobject.c
186
pushstr(L, s, strlen(s));
usr/src/uts/common/fs/zfs/lua/lobject.c
192
pushstr(L, &buff, 1);
usr/src/uts/common/fs/zfs/lua/lobject.c
196
setnvalue(L->top++, cast_num(va_arg(argp, int)));
usr/src/uts/common/fs/zfs/lua/lobject.c
200
setnvalue(L->top++, cast_num(va_arg(argp, l_uacNumber)));
usr/src/uts/common/fs/zfs/lua/lobject.c
206
pushstr(L, buff, l);
usr/src/uts/common/fs/zfs/lua/lobject.c
210
pushstr(L, "%", 1);
usr/src/uts/common/fs/zfs/lua/lobject.c
214
luaG_runerror(L,
usr/src/uts/common/fs/zfs/lua/lobject.c
222
luaD_checkstack(L, 1);
usr/src/uts/common/fs/zfs/lua/lobject.c
223
pushstr(L, fmt, strlen(fmt));
usr/src/uts/common/fs/zfs/lua/lobject.c
224
if (n > 0) luaV_concat(L, n + 1);
usr/src/uts/common/fs/zfs/lua/lobject.c
225
return svalue(L->top - 1);
usr/src/uts/common/fs/zfs/lua/lobject.c
229
const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) {
usr/src/uts/common/fs/zfs/lua/lobject.c
233
msg = luaO_pushvfstring(L, fmt, argp);
usr/src/uts/common/fs/zfs/lua/lobject.h
200
#define setgcovalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
204
#define setsvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
208
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
210
#define setuvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
213
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
215
#define setthvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
218
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
220
#define setclLvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
223
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
225
#define setclCvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
228
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
230
#define sethvalue(L,obj,x) \
usr/src/uts/common/fs/zfs/lua/lobject.h
233
checkliveness(G(L),io); }
usr/src/uts/common/fs/zfs/lua/lobject.h
239
#define setobj(L,obj1,obj2) \
usr/src/uts/common/fs/zfs/lua/lobject.h
242
checkliveness(G(L),io1); }
usr/src/uts/common/fs/zfs/lua/lobject.h
266
#define luai_checknum(L,o,c) { /* empty */ }
usr/src/uts/common/fs/zfs/lua/lobject.h
352
#define setobj(L,obj1,obj2) \
usr/src/uts/common/fs/zfs/lua/lobject.h
355
checkliveness(G(L),o1_); }
usr/src/uts/common/fs/zfs/lua/lobject.h
373
#define luai_checknum(L,o,c) { if (!ttisnumber(o)) c; }
usr/src/uts/common/fs/zfs/lua/lobject.h
599
LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt,
usr/src/uts/common/fs/zfs/lua/lobject.h
601
LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...);
usr/src/uts/common/fs/zfs/lua/lparser.c
1144
checklimit(ls->fs, nvars + ls->L->nCcalls, LUAI_MAXCCALLS,
usr/src/uts/common/fs/zfs/lua/lparser.c
1186
label = luaS_new(ls->L, "break");
usr/src/uts/common/fs/zfs/lua/lparser.c
1198
const char *msg = luaO_pushfstring(fs->ls->L,
usr/src/uts/common/fs/zfs/lua/lparser.c
130
luaX_syntaxerror(ls, luaO_pushfstring(ls->L,
usr/src/uts/common/fs/zfs/lua/lparser.c
1617
Closure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
usr/src/uts/common/fs/zfs/lua/lparser.c
1621
Closure *cl = luaF_newLclosure(L, 1); /* create main closure */
usr/src/uts/common/fs/zfs/lua/lparser.c
1623
setclLvalue(L, L->top, cl);
usr/src/uts/common/fs/zfs/lua/lparser.c
1624
incr_top(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
1625
funcstate.f = cl->l.p = luaF_newproto(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
1626
funcstate.f->source = luaS_new(L, name); /* create and anchor TString */
usr/src/uts/common/fs/zfs/lua/lparser.c
1630
luaX_setinput(L, &lexstate, z, funcstate.f->source, firstchar);
usr/src/uts/common/fs/zfs/lua/lparser.c
168
luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars,
usr/src/uts/common/fs/zfs/lua/lparser.c
172
luaC_objbarrier(ls->L, f, varname);
usr/src/uts/common/fs/zfs/lua/lparser.c
183
luaM_growvector(ls->L, dyd->actvar.arr, dyd->actvar.n + 1,
usr/src/uts/common/fs/zfs/lua/lparser.c
234
luaM_growvector(fs->ls->L, f->upvalues, fs->nups, f->sizeupvalues,
usr/src/uts/common/fs/zfs/lua/lparser.c
240
luaC_objbarrier(fs->ls->L, f, name);
usr/src/uts/common/fs/zfs/lua/lparser.c
330
lua_State *L = ls->L;
usr/src/uts/common/fs/zfs/lua/lparser.c
331
++L->nCcalls;
usr/src/uts/common/fs/zfs/lua/lparser.c
332
checklimit(ls->fs, L->nCcalls, LUAI_MAXCCALLS, "C levels");
usr/src/uts/common/fs/zfs/lua/lparser.c
336
#define leavelevel(ls) ((ls)->L->nCcalls--)
usr/src/uts/common/fs/zfs/lua/lparser.c
347
const char *msg = luaO_pushfstring(ls->L,
usr/src/uts/common/fs/zfs/lua/lparser.c
386
luaM_growvector(ls->L, l->arr, n, l->size,
usr/src/uts/common/fs/zfs/lua/lparser.c
453
TString *n = luaS_new(ls->L, "break");
usr/src/uts/common/fs/zfs/lua/lparser.c
466
msg = luaO_pushfstring(ls->L, msg, getstr(gt->name), gt->line);
usr/src/uts/common/fs/zfs/lua/lparser.c
499
lua_State *L = ls->L;
usr/src/uts/common/fs/zfs/lua/lparser.c
504
luaM_growvector(L, f->p, fs->np, f->sizep, Proto *, MAXARG_Bx, "functions");
usr/src/uts/common/fs/zfs/lua/lparser.c
507
f->p[fs->np++] = clp = luaF_newproto(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
508
luaC_objbarrier(L, f, clp);
usr/src/uts/common/fs/zfs/lua/lparser.c
527
lua_State *L = ls->L;
usr/src/uts/common/fs/zfs/lua/lparser.c
546
fs->h = luaH_new(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
548
sethvalue2s(L, L->top, fs->h);
usr/src/uts/common/fs/zfs/lua/lparser.c
549
incr_top(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
555
lua_State *L = ls->L;
usr/src/uts/common/fs/zfs/lua/lparser.c
560
luaM_reallocvector(L, f->code, f->sizecode, fs->pc, Instruction);
usr/src/uts/common/fs/zfs/lua/lparser.c
562
luaM_reallocvector(L, f->lineinfo, f->sizelineinfo, fs->pc, int);
usr/src/uts/common/fs/zfs/lua/lparser.c
564
luaM_reallocvector(L, f->k, f->sizek, fs->nk, TValue);
usr/src/uts/common/fs/zfs/lua/lparser.c
566
luaM_reallocvector(L, f->p, f->sizep, fs->np, Proto *);
usr/src/uts/common/fs/zfs/lua/lparser.c
568
luaM_reallocvector(L, f->locvars, f->sizelocvars, fs->nlocvars, LocVar);
usr/src/uts/common/fs/zfs/lua/lparser.c
570
luaM_reallocvector(L, f->upvalues, f->sizeupvalues, fs->nups, Upvaldesc);
usr/src/uts/common/fs/zfs/lua/lparser.c
576
L->top--; /* pop table of constants */
usr/src/uts/common/fs/zfs/lua/lparser.c
577
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lparser.c
78
luaO_pushfstring(ls->L, "%s expected", luaX_token2str(ls, token)));
usr/src/uts/common/fs/zfs/lua/lparser.c
83
lua_State *L = fs->ls->L;
usr/src/uts/common/fs/zfs/lua/lparser.c
88
: luaO_pushfstring(L, "function at line %d", line);
usr/src/uts/common/fs/zfs/lua/lparser.c
89
msg = luaO_pushfstring(L, "too many %s (limit is %d) in %s",
usr/src/uts/common/fs/zfs/lua/lparser.h
115
LUAI_FUNC Closure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
usr/src/uts/common/fs/zfs/lua/lstate.c
110
CallInfo *luaE_extendCI (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
111
CallInfo *ci = luaM_new(L, CallInfo);
usr/src/uts/common/fs/zfs/lua/lstate.c
112
lua_assert(L->ci->next == NULL);
usr/src/uts/common/fs/zfs/lua/lstate.c
113
L->ci->next = ci;
usr/src/uts/common/fs/zfs/lua/lstate.c
114
ci->previous = L->ci;
usr/src/uts/common/fs/zfs/lua/lstate.c
120
void luaE_freeCI (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
121
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lstate.c
126
luaM_free(L, ci);
usr/src/uts/common/fs/zfs/lua/lstate.c
131
static void stack_init (lua_State *L1, lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
134
L1->stack = luaM_newvector(L, BASIC_STACK_SIZE, TValue);
usr/src/uts/common/fs/zfs/lua/lstate.c
151
static void freestack (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
152
if (L->stack == NULL)
usr/src/uts/common/fs/zfs/lua/lstate.c
154
L->ci = &L->base_ci; /* free the entire 'ci' list */
usr/src/uts/common/fs/zfs/lua/lstate.c
155
luaE_freeCI(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
156
luaM_freearray(L, L->stack, L->stacksize); /* free stack array */
usr/src/uts/common/fs/zfs/lua/lstate.c
163
static void init_registry (lua_State *L, global_State *g) {
usr/src/uts/common/fs/zfs/lua/lstate.c
166
Table *registry = luaH_new(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
167
sethvalue(L, &g->l_registry, registry);
usr/src/uts/common/fs/zfs/lua/lstate.c
168
luaH_resize(L, registry, LUA_RIDX_LAST, 0);
usr/src/uts/common/fs/zfs/lua/lstate.c
170
setthvalue(L, &mt, L);
usr/src/uts/common/fs/zfs/lua/lstate.c
171
luaH_setint(L, registry, LUA_RIDX_MAINTHREAD, &mt);
usr/src/uts/common/fs/zfs/lua/lstate.c
173
sethvalue(L, &mt, luaH_new(L));
usr/src/uts/common/fs/zfs/lua/lstate.c
174
luaH_setint(L, registry, LUA_RIDX_GLOBALS, &mt);
usr/src/uts/common/fs/zfs/lua/lstate.c
181
static void f_luaopen (lua_State *L, void *ud) {
usr/src/uts/common/fs/zfs/lua/lstate.c
182
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
184
stack_init(L, L); /* init stack */
usr/src/uts/common/fs/zfs/lua/lstate.c
185
init_registry(L, g);
usr/src/uts/common/fs/zfs/lua/lstate.c
186
luaS_resize(L, MINSTRTABSIZE); /* initial size of string table */
usr/src/uts/common/fs/zfs/lua/lstate.c
187
luaT_init(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
188
luaX_init(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
190
g->memerrmsg = luaS_newliteral(L, MEMERRMSG);
usr/src/uts/common/fs/zfs/lua/lstate.c
194
luai_userstateopen(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
202
static void preinit_state (lua_State *L, global_State *g) {
usr/src/uts/common/fs/zfs/lua/lstate.c
203
G(L) = g;
usr/src/uts/common/fs/zfs/lua/lstate.c
204
L->stack = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
205
L->ci = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
206
L->stacksize = 0;
usr/src/uts/common/fs/zfs/lua/lstate.c
207
L->errorJmp = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
208
L->nCcalls = 0;
usr/src/uts/common/fs/zfs/lua/lstate.c
209
L->hook = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
210
L->hookmask = 0;
usr/src/uts/common/fs/zfs/lua/lstate.c
211
L->basehookcount = 0;
usr/src/uts/common/fs/zfs/lua/lstate.c
212
L->allowhook = 1;
usr/src/uts/common/fs/zfs/lua/lstate.c
213
resethookcount(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
214
L->openupval = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
215
L->nny = 1;
usr/src/uts/common/fs/zfs/lua/lstate.c
216
L->status = LUA_OK;
usr/src/uts/common/fs/zfs/lua/lstate.c
217
L->errfunc = 0;
usr/src/uts/common/fs/zfs/lua/lstate.c
221
static void close_state (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
222
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
223
luaF_close(L, L->stack); /* close all upvalues for this thread */
usr/src/uts/common/fs/zfs/lua/lstate.c
224
luaC_freeallobjects(L); /* collect all objects */
usr/src/uts/common/fs/zfs/lua/lstate.c
226
luai_userstateclose(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
227
luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size);
usr/src/uts/common/fs/zfs/lua/lstate.c
228
luaZ_freebuffer(L, &g->buff);
usr/src/uts/common/fs/zfs/lua/lstate.c
229
freestack(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
231
(*g->frealloc)(g->ud, fromstate(L), sizeof(LG), 0); /* free main block */
usr/src/uts/common/fs/zfs/lua/lstate.c
235
LUA_API lua_State *lua_newthread (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
237
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
238
luaC_checkGC(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
239
L1 = &luaC_newobj(L, LUA_TTHREAD, sizeof(LX), NULL, offsetof(LX, l))->th;
usr/src/uts/common/fs/zfs/lua/lstate.c
240
setthvalue(L, L->top, L1);
usr/src/uts/common/fs/zfs/lua/lstate.c
241
api_incr_top(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
242
preinit_state(L1, G(L));
usr/src/uts/common/fs/zfs/lua/lstate.c
243
L1->hookmask = L->hookmask;
usr/src/uts/common/fs/zfs/lua/lstate.c
244
L1->basehookcount = L->basehookcount;
usr/src/uts/common/fs/zfs/lua/lstate.c
245
L1->hook = L->hook;
usr/src/uts/common/fs/zfs/lua/lstate.c
247
luai_userstatethread(L, L1);
usr/src/uts/common/fs/zfs/lua/lstate.c
248
stack_init(L1, L); /* init stack */
usr/src/uts/common/fs/zfs/lua/lstate.c
249
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
254
void luaE_freethread (lua_State *L, lua_State *L1) {
usr/src/uts/common/fs/zfs/lua/lstate.c
258
luai_userstatefree(L, L1);
usr/src/uts/common/fs/zfs/lua/lstate.c
260
luaM_free(L, l);
usr/src/uts/common/fs/zfs/lua/lstate.c
266
lua_State *L;
usr/src/uts/common/fs/zfs/lua/lstate.c
270
L = &l->l.l;
usr/src/uts/common/fs/zfs/lua/lstate.c
272
L->next = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
273
L->tt = LUA_TTHREAD;
usr/src/uts/common/fs/zfs/lua/lstate.c
275
L->marked = luaC_white(g);
usr/src/uts/common/fs/zfs/lua/lstate.c
277
preinit_state(L, g);
usr/src/uts/common/fs/zfs/lua/lstate.c
280
g->mainthread = L;
usr/src/uts/common/fs/zfs/lua/lstate.c
281
g->seed = makeseed(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
290
luaZ_initbuffer(L, &g->buff);
usr/src/uts/common/fs/zfs/lua/lstate.c
306
if (luaD_rawrunprotected(L, f_luaopen, NULL) != LUA_OK) {
usr/src/uts/common/fs/zfs/lua/lstate.c
308
close_state(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
309
L = NULL;
usr/src/uts/common/fs/zfs/lua/lstate.c
311
return L;
usr/src/uts/common/fs/zfs/lua/lstate.c
315
LUA_API void lua_close (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
316
L = G(L)->mainthread; /* only the main thread can be closed */
usr/src/uts/common/fs/zfs/lua/lstate.c
317
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
318
close_state(L);
usr/src/uts/common/fs/zfs/lua/lstate.c
75
#define fromstate(L) (cast(LX *, cast(lu_byte *, (L)) - offsetof(LX, l)))
usr/src/uts/common/fs/zfs/lua/lstate.c
87
static unsigned int makeseed (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstate.c
91
addbuff(buff, p, L); /* heap variable */
usr/src/uts/common/fs/zfs/lua/lstate.h
179
#define G(L) (L->l_G)
usr/src/uts/common/fs/zfs/lua/lstate.h
222
LUAI_FUNC void luaE_freethread (lua_State *L, lua_State *L1);
usr/src/uts/common/fs/zfs/lua/lstate.h
223
LUAI_FUNC CallInfo *luaE_extendCI (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lstate.h
224
LUAI_FUNC void luaE_freeCI (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lstring.c
103
ts = &luaC_newobj(L, tag, totalsize, list, 0)->ts;
usr/src/uts/common/fs/zfs/lua/lstring.c
116
static TString *newshrstr (lua_State *L, const char *str, size_t l,
usr/src/uts/common/fs/zfs/lua/lstring.c
119
stringtable *tb = &G(L)->strt;
usr/src/uts/common/fs/zfs/lua/lstring.c
122
luaS_resize(L, tb->size*2); /* too crowded */
usr/src/uts/common/fs/zfs/lua/lstring.c
124
s = createstrobj(L, str, l, LUA_TSHRSTR, h, list);
usr/src/uts/common/fs/zfs/lua/lstring.c
133
static TString *internshrstr (lua_State *L, const char *str, size_t l) {
usr/src/uts/common/fs/zfs/lua/lstring.c
135
global_State *g = G(L);
usr/src/uts/common/fs/zfs/lua/lstring.c
144
if (isdead(G(L), o)) /* string is dead (but was not collected yet)? */
usr/src/uts/common/fs/zfs/lua/lstring.c
149
return newshrstr(L, str, l, h); /* not found; create a new string */
usr/src/uts/common/fs/zfs/lua/lstring.c
156
TString *luaS_newlstr (lua_State *L, const char *str, size_t l) {
usr/src/uts/common/fs/zfs/lua/lstring.c
158
return internshrstr(L, str, l);
usr/src/uts/common/fs/zfs/lua/lstring.c
161
luaM_toobig(L);
usr/src/uts/common/fs/zfs/lua/lstring.c
162
return createstrobj(L, str, l, LUA_TLNGSTR, G(L)->seed, NULL);
usr/src/uts/common/fs/zfs/lua/lstring.c
170
TString *luaS_new (lua_State *L, const char *str) {
usr/src/uts/common/fs/zfs/lua/lstring.c
171
return luaS_newlstr(L, str, strlen(str));
usr/src/uts/common/fs/zfs/lua/lstring.c
175
Udata *luaS_newudata (lua_State *L, size_t s, Table *e) {
usr/src/uts/common/fs/zfs/lua/lstring.c
178
luaM_toobig(L);
usr/src/uts/common/fs/zfs/lua/lstring.c
179
u = &luaC_newobj(L, LUA_TUSERDATA, sizeof(Udata) + s, NULL, 0)->u;
usr/src/uts/common/fs/zfs/lua/lstring.c
64
void luaS_resize (lua_State *L, int newsize) {
usr/src/uts/common/fs/zfs/lua/lstring.c
66
stringtable *tb = &G(L)->strt;
usr/src/uts/common/fs/zfs/lua/lstring.c
68
luaC_runtilstate(L, ~bitmask(GCSsweepstring));
usr/src/uts/common/fs/zfs/lua/lstring.c
70
luaM_reallocvector(L, tb->hash, tb->size, newsize, GCObject *);
usr/src/uts/common/fs/zfs/lua/lstring.c
89
luaM_reallocvector(L, tb->hash, tb->size, newsize, GCObject *);
usr/src/uts/common/fs/zfs/lua/lstring.c
98
static TString *createstrobj (lua_State *L, const char *str, size_t l,
usr/src/uts/common/fs/zfs/lua/lstring.h
19
#define luaS_newliteral(L, s) (luaS_newlstr(L, "" s, \
usr/src/uts/common/fs/zfs/lua/lstring.h
40
LUAI_FUNC void luaS_resize (lua_State *L, int newsize);
usr/src/uts/common/fs/zfs/lua/lstring.h
41
LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, Table *e);
usr/src/uts/common/fs/zfs/lua/lstring.h
42
LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l);
usr/src/uts/common/fs/zfs/lua/lstring.h
43
LUAI_FUNC TString *luaS_new (lua_State *L, const char *str);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
102
static int str_lower (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1031
static void createmetatable (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1032
lua_createtable(L, 0, 1); /* table to be metatable for strings */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1033
lua_pushliteral(L, ""); /* dummy string */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1034
lua_pushvalue(L, -2); /* copy table */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1035
lua_setmetatable(L, -2); /* set table as metatable for strings */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1036
lua_pop(L, 1); /* pop dummy string */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1037
lua_pushvalue(L, -2); /* get string library */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1038
lua_setfield(L, -2, "__index"); /* metatable.__index = string */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1039
lua_pop(L, 1); /* pop metatable */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1046
LUAMOD_API int luaopen_string (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1047
luaL_newlib(L, strlib);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
1048
createmetatable(L);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
106
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
107
char *p = luaL_buffinitsize(L, &b, l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
115
static int str_upper (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
119
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
120
char *p = luaL_buffinitsize(L, &b, l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
131
static int str_rep (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
133
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
134
int n = luaL_checkint(L, 2);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
135
const char *sep = luaL_optlstring(L, 3, "", &lsep);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
136
if (n <= 0) lua_pushliteral(L, "");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
138
return luaL_error(L, "resulting string too large");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
142
char *p = luaL_buffinitsize(L, &b, totallen);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
156
static int str_byte (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
158
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
159
size_t posi = posrelat(luaL_optinteger(L, 2, 1), l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
160
size_t pose = posrelat(luaL_optinteger(L, 3, posi), l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
167
return luaL_error(L, "string slice too long");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
168
luaL_checkstack(L, n, "string slice too long");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
170
lua_pushinteger(L, uchar(s[posi+i-1]));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
175
static int str_char (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
176
int n = lua_gettop(L); /* number of arguments */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
179
char *p = luaL_buffinitsize(L, &b, n);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
181
int c = luaL_checkint(L, i);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
182
luaL_argcheck(L, uchar(c) == c, i, "value out of range");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
190
static int writer (lua_State *L, const void* b, size_t size, void* B) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
191
(void)L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
197
static int str_dump (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
199
luaL_checktype(L, 1, LUA_TFUNCTION);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
200
lua_settop(L, 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
201
luaL_buffinit(L,&b);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
202
if (lua_dump(L, writer, &b) != 0)
usr/src/uts/common/fs/zfs/lua/lstrlib.c
203
return luaL_error(L, "unable to dump given function");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
226
lua_State *L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
252
return luaL_error(ms->L, "invalid capture index %%%d", l + 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
261
return luaL_error(ms->L, "invalid pattern capture");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
269
luaL_error(ms->L, "malformed pattern (ends with " LUA_QL("%%") ")");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
276
luaL_error(ms->L, "malformed pattern (missing " LUA_QL("]") ")");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
358
luaL_error(ms->L, "malformed pattern "
usr/src/uts/common/fs/zfs/lua/lstrlib.c
408
if (level >= LUA_MAXCAPTURES) luaL_error(ms->L, "too many captures");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
442
luaL_error(ms->L, "pattern too complex");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
476
luaL_error(ms->L, "missing " LUA_QL("[") " after "
usr/src/uts/common/fs/zfs/lua/lstrlib.c
570
lua_pushlstring(ms->L, s, e - s); /* add whole match */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
572
luaL_error(ms->L, "invalid capture index");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
576
if (l == CAP_UNFINISHED) luaL_error(ms->L, "unfinished capture");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
578
lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
580
lua_pushlstring(ms->L, ms->capture[i].init, l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
588
luaL_checkstack(ms->L, nlevels, "too many captures");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
60
static int str_len (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
607
static int str_find_aux (lua_State *L, int find) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
609
const char *s = luaL_checklstring(L, 1, &ls);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
610
const char *p = luaL_checklstring(L, 2, &lp);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
611
size_t init = posrelat(luaL_optinteger(L, 3, 1), ls);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
614
lua_pushnil(L); /* cannot find anything */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
618
if (find && (lua_toboolean(L, 4) || nospecials(p, lp))) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
62
luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
622
lua_pushinteger(L, s2 - s + 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
623
lua_pushinteger(L, s2 - s + lp);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
63
lua_pushinteger(L, (lua_Integer)l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
634
ms.L = L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
645
lua_pushinteger(L, s1 - s + 1); /* start */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
646
lua_pushinteger(L, res - s); /* end */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
654
lua_pushnil(L); /* not found */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
659
static int str_find (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
660
return str_find_aux(L, 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
664
static int str_match (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
665
return str_find_aux(L, 0);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
669
static int gmatch_aux (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
672
const char *s = lua_tolstring(L, lua_upvalueindex(1), &ls);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
673
const char *p = lua_tolstring(L, lua_upvalueindex(2), &lp);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
675
ms.L = L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
680
for (src = s + (size_t)lua_tointeger(L, lua_upvalueindex(3));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
689
lua_pushinteger(L, newstart);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
690
lua_replace(L, lua_upvalueindex(3));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
698
static int str_gmatch (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
699
luaL_checkstring(L, 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
700
luaL_checkstring(L, 2);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
701
lua_settop(L, 2);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
702
lua_pushinteger(L, 0);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
703
lua_pushcclosure(L, gmatch_aux, 3);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
711
const char *news = lua_tolstring(ms->L, 3, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
719
luaL_error(ms->L, "invalid use of " LUA_QL("%c")
usr/src/uts/common/fs/zfs/lua/lstrlib.c
736
lua_State *L = ms->L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
740
lua_pushvalue(L, 3);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
742
lua_call(L, n, 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
747
lua_gettable(L, 3);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
755
if (!lua_toboolean(L, -1)) { /* nil or false? */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
756
lua_pop(L, 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
757
lua_pushlstring(L, s, e - s); /* keep original text */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
759
else if (!lua_isstring(L, -1))
usr/src/uts/common/fs/zfs/lua/lstrlib.c
76
static int str_sub (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
760
luaL_error(L, "invalid replacement value (a %s)", luaL_typename(L, -1));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
765
static int str_gsub (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
767
const char *src = luaL_checklstring(L, 1, &srcl);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
768
const char *p = luaL_checklstring(L, 2, &lp);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
769
int tr = lua_type(L, 3);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
770
size_t max_s = luaL_optinteger(L, 4, srcl+1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
775
luaL_argcheck(L, tr == LUA_TNUMBER || tr == LUA_TSTRING ||
usr/src/uts/common/fs/zfs/lua/lstrlib.c
778
luaL_buffinit(L, &b);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
78
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
782
ms.L = L;
usr/src/uts/common/fs/zfs/lua/lstrlib.c
79
size_t start = posrelat(luaL_checkinteger(L, 2), l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
80
size_t end = posrelat(luaL_optinteger(L, 3, -1), l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
805
lua_pushinteger(L, n); /* number of substitutions */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
84
lua_pushlstring(L, s + start - 1, end - start + 1);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
85
else lua_pushliteral(L, "");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
863
static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
865
const char *s = luaL_checklstring(L, arg, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
887
static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
891
luaL_error(L, "invalid format (repeated flags)");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
90
static int str_reverse (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
900
luaL_error(L, "invalid format (width or precision too long)");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
922
static int str_format (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lstrlib.c
923
int top = lua_gettop(L);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
926
const char *strfrmt = luaL_checklstring(L, arg, &sfl);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
929
luaL_buffinit(L, &b);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
93
const char *s = luaL_checklstring(L, 1, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
94
char *p = luaL_buffinitsize(L, &b, l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
940
luaL_argerror(L, arg, "no value");
usr/src/uts/common/fs/zfs/lua/lstrlib.c
941
strfrmt = scanformat(L, strfrmt, form);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
944
nb = str_sprintf(buff, form, luaL_checkint(L, arg));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
948
lua_Number n = luaL_checknumber(L, arg);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
951
luaL_argcheck(L, -1 < diff && diff < 1, arg,
usr/src/uts/common/fs/zfs/lua/lstrlib.c
958
lua_Number n = luaL_checknumber(L, arg);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
961
luaL_argcheck(L, -1 < diff && diff < 1, arg,
usr/src/uts/common/fs/zfs/lua/lstrlib.c
974
nb = str_sprintf(buff, form, (LUA_FLTFRM_T)luaL_checknumber(L, arg));
usr/src/uts/common/fs/zfs/lua/lstrlib.c
979
addquoted(L, &b, arg);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
984
const char *s = luaL_tolstring(L, arg, &l);
usr/src/uts/common/fs/zfs/lua/lstrlib.c
993
lua_pop(L, 1); /* remove result from 'luaL_tolstring' */
usr/src/uts/common/fs/zfs/lua/lstrlib.c
998
return luaL_error(L, "invalid option " LUA_QL("%%%c") " to "
usr/src/uts/common/fs/zfs/lua/ltable.c
144
static int findindex (lua_State *L, Table *t, StkId key) {
usr/src/uts/common/fs/zfs/lua/ltable.c
163
luaG_runerror(L, "invalid key to " LUA_QL("next")); /* key not found */
usr/src/uts/common/fs/zfs/lua/ltable.c
169
int luaH_next (lua_State *L, Table *t, StkId key) {
usr/src/uts/common/fs/zfs/lua/ltable.c
170
int i = findindex(L, t, key); /* find original element */
usr/src/uts/common/fs/zfs/lua/ltable.c
174
setobj2s(L, key+1, &t->array[i]);
usr/src/uts/common/fs/zfs/lua/ltable.c
180
setobj2s(L, key, gkey(gnode(t, i)));
usr/src/uts/common/fs/zfs/lua/ltable.c
181
setobj2s(L, key+1, gval(gnode(t, i)));
usr/src/uts/common/fs/zfs/lua/ltable.c
270
static void setarrayvector (lua_State *L, Table *t, int size) {
usr/src/uts/common/fs/zfs/lua/ltable.c
272
luaM_reallocvector(L, t->array, t->sizearray, size, TValue);
usr/src/uts/common/fs/zfs/lua/ltable.c
279
static void setnodevector (lua_State *L, Table *t, int size) {
usr/src/uts/common/fs/zfs/lua/ltable.c
289
luaG_runerror(L, "table overflow");
usr/src/uts/common/fs/zfs/lua/ltable.c
291
t->node = luaM_newvector(L, size, Node);
usr/src/uts/common/fs/zfs/lua/ltable.c
304
void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize) {
usr/src/uts/common/fs/zfs/lua/ltable.c
310
setarrayvector(L, t, nasize);
usr/src/uts/common/fs/zfs/lua/ltable.c
312
setnodevector(L, t, nhsize);
usr/src/uts/common/fs/zfs/lua/ltable.c
318
luaH_setint(L, t, i + 1, &t->array[i]);
usr/src/uts/common/fs/zfs/lua/ltable.c
321
luaM_reallocvector(L, t->array, oldasize, nasize, TValue);
usr/src/uts/common/fs/zfs/lua/ltable.c
329
setobjt2t(L, luaH_set(L, t, gkey(old)), gval(old));
usr/src/uts/common/fs/zfs/lua/ltable.c
333
luaM_freearray(L, nold, cast(size_t, twoto(oldhsize))); /* free old array */
usr/src/uts/common/fs/zfs/lua/ltable.c
337
void luaH_resizearray (lua_State *L, Table *t, int nasize) {
usr/src/uts/common/fs/zfs/lua/ltable.c
339
luaH_resize(L, t, nasize, nsize);
usr/src/uts/common/fs/zfs/lua/ltable.c
343
static void rehash (lua_State *L, Table *t, const TValue *ek) {
usr/src/uts/common/fs/zfs/lua/ltable.c
358
luaH_resize(L, t, nasize, totaluse - na);
usr/src/uts/common/fs/zfs/lua/ltable.c
368
Table *luaH_new (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltable.c
369
Table *t = &luaC_newobj(L, LUA_TTABLE, sizeof(Table), NULL, 0)->h;
usr/src/uts/common/fs/zfs/lua/ltable.c
374
setnodevector(L, t, 0);
usr/src/uts/common/fs/zfs/lua/ltable.c
379
void luaH_free (lua_State *L, Table *t) {
usr/src/uts/common/fs/zfs/lua/ltable.c
381
luaM_freearray(L, t->node, cast(size_t, sizenode(t)));
usr/src/uts/common/fs/zfs/lua/ltable.c
382
luaM_freearray(L, t->array, t->sizearray);
usr/src/uts/common/fs/zfs/lua/ltable.c
383
luaM_free(L, t);
usr/src/uts/common/fs/zfs/lua/ltable.c
405
TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key) {
usr/src/uts/common/fs/zfs/lua/ltable.c
407
if (ttisnil(key)) luaG_runerror(L, "table index is nil");
usr/src/uts/common/fs/zfs/lua/ltable.c
408
else if (ttisnumber(key) && luai_numisnan(L, nvalue(key)))
usr/src/uts/common/fs/zfs/lua/ltable.c
409
luaG_runerror(L, "table index is NaN");
usr/src/uts/common/fs/zfs/lua/ltable.c
415
rehash(L, t, key); /* grow table */
usr/src/uts/common/fs/zfs/lua/ltable.c
417
return luaH_set(L, t, key); /* insert key into grown table */
usr/src/uts/common/fs/zfs/lua/ltable.c
436
setobj2t(L, gkey(mp), key);
usr/src/uts/common/fs/zfs/lua/ltable.c
437
luaC_barrierback(L, obj2gco(t), key);
usr/src/uts/common/fs/zfs/lua/ltable.c
511
TValue *luaH_set (lua_State *L, Table *t, const TValue *key) {
usr/src/uts/common/fs/zfs/lua/ltable.c
515
else return luaH_newkey(L, t, key);
usr/src/uts/common/fs/zfs/lua/ltable.c
519
void luaH_setint (lua_State *L, Table *t, int key, TValue *value) {
usr/src/uts/common/fs/zfs/lua/ltable.c
527
cell = luaH_newkey(L, t, &k);
usr/src/uts/common/fs/zfs/lua/ltable.c
529
setobj2t(L, cell, value);
usr/src/uts/common/fs/zfs/lua/ltable.h
26
LUAI_FUNC void luaH_setint (lua_State *L, Table *t, int key, TValue *value);
usr/src/uts/common/fs/zfs/lua/ltable.h
29
LUAI_FUNC TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key);
usr/src/uts/common/fs/zfs/lua/ltable.h
30
LUAI_FUNC TValue *luaH_set (lua_State *L, Table *t, const TValue *key);
usr/src/uts/common/fs/zfs/lua/ltable.h
31
LUAI_FUNC Table *luaH_new (lua_State *L);
usr/src/uts/common/fs/zfs/lua/ltable.h
32
LUAI_FUNC void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize);
usr/src/uts/common/fs/zfs/lua/ltable.h
33
LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, int nasize);
usr/src/uts/common/fs/zfs/lua/ltable.h
34
LUAI_FUNC void luaH_free (lua_State *L, Table *t);
usr/src/uts/common/fs/zfs/lua/ltable.h
35
LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key);
usr/src/uts/common/fs/zfs/lua/ltablib.c
100
last = luaL_opt(L, luaL_checkint, 4, luaL_len(L, 1));
usr/src/uts/common/fs/zfs/lua/ltablib.c
101
luaL_buffinit(L, &b);
usr/src/uts/common/fs/zfs/lua/ltablib.c
103
addfield(L, &b, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
107
addfield(L, &b, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
119
static int pack (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
120
int n = lua_gettop(L); /* number of elements to pack */
usr/src/uts/common/fs/zfs/lua/ltablib.c
121
lua_createtable(L, n, 1); /* create result table */
usr/src/uts/common/fs/zfs/lua/ltablib.c
122
lua_pushinteger(L, n);
usr/src/uts/common/fs/zfs/lua/ltablib.c
123
lua_setfield(L, -2, "n"); /* t.n = number of elements */
usr/src/uts/common/fs/zfs/lua/ltablib.c
126
lua_pushvalue(L, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
127
lua_rawseti(L, -2, 1); /* insert first element */
usr/src/uts/common/fs/zfs/lua/ltablib.c
128
lua_replace(L, 1); /* move table into index 1 */
usr/src/uts/common/fs/zfs/lua/ltablib.c
130
lua_rawseti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
136
static int unpack (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
139
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/ltablib.c
140
i = luaL_optint(L, 2, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
141
e = luaL_opt(L, luaL_checkint, 3, luaL_len(L, 1));
usr/src/uts/common/fs/zfs/lua/ltablib.c
144
if (n > (INT_MAX - 10) || !lua_checkstack(L, ++n))
usr/src/uts/common/fs/zfs/lua/ltablib.c
145
return luaL_error(L, "too many results to unpack");
usr/src/uts/common/fs/zfs/lua/ltablib.c
146
lua_rawgeti(L, 1, i); /* push arg[i] (avoiding overflow problems) */
usr/src/uts/common/fs/zfs/lua/ltablib.c
148
lua_rawgeti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
165
static void set2 (lua_State *L, int i, int j) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
166
lua_rawseti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
167
lua_rawseti(L, 1, j);
usr/src/uts/common/fs/zfs/lua/ltablib.c
170
static int sort_comp (lua_State *L, int a, int b) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
171
if (!lua_isnil(L, 2)) { /* function? */
usr/src/uts/common/fs/zfs/lua/ltablib.c
173
lua_pushvalue(L, 2);
usr/src/uts/common/fs/zfs/lua/ltablib.c
174
lua_pushvalue(L, a-1); /* -1 to compensate function */
usr/src/uts/common/fs/zfs/lua/ltablib.c
175
lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */
usr/src/uts/common/fs/zfs/lua/ltablib.c
176
lua_call(L, 2, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
177
res = lua_toboolean(L, -1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
178
lua_pop(L, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
182
return lua_compare(L, a, b, LUA_OPLT);
usr/src/uts/common/fs/zfs/lua/ltablib.c
185
static void auxsort (lua_State *L, int l, int u) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
189
lua_rawgeti(L, 1, l);
usr/src/uts/common/fs/zfs/lua/ltablib.c
19
#define aux_getn(L,n) (luaL_checktype(L, n, LUA_TTABLE), luaL_len(L, n))
usr/src/uts/common/fs/zfs/lua/ltablib.c
190
lua_rawgeti(L, 1, u);
usr/src/uts/common/fs/zfs/lua/ltablib.c
191
if (sort_comp(L, -1, -2)) /* a[u] < a[l]? */
usr/src/uts/common/fs/zfs/lua/ltablib.c
192
set2(L, l, u); /* swap a[l] - a[u] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
194
lua_pop(L, 2);
usr/src/uts/common/fs/zfs/lua/ltablib.c
197
lua_rawgeti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
198
lua_rawgeti(L, 1, l);
usr/src/uts/common/fs/zfs/lua/ltablib.c
199
if (sort_comp(L, -2, -1)) /* a[i]<a[l]? */
usr/src/uts/common/fs/zfs/lua/ltablib.c
200
set2(L, i, l);
usr/src/uts/common/fs/zfs/lua/ltablib.c
202
lua_pop(L, 1); /* remove a[l] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
203
lua_rawgeti(L, 1, u);
usr/src/uts/common/fs/zfs/lua/ltablib.c
204
if (sort_comp(L, -1, -2)) /* a[u]<a[i]? */
usr/src/uts/common/fs/zfs/lua/ltablib.c
205
set2(L, i, u);
usr/src/uts/common/fs/zfs/lua/ltablib.c
207
lua_pop(L, 2);
usr/src/uts/common/fs/zfs/lua/ltablib.c
210
lua_rawgeti(L, 1, i); /* Pivot */
usr/src/uts/common/fs/zfs/lua/ltablib.c
211
lua_pushvalue(L, -1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
212
lua_rawgeti(L, 1, u-1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
213
set2(L, i, u-1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
218
while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
219
if (i>=u) luaL_error(L, "invalid order function for sorting");
usr/src/uts/common/fs/zfs/lua/ltablib.c
220
lua_pop(L, 1); /* remove a[i] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
223
while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
224
if (j<=l) luaL_error(L, "invalid order function for sorting");
usr/src/uts/common/fs/zfs/lua/ltablib.c
225
lua_pop(L, 1); /* remove a[j] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
228
lua_pop(L, 3); /* pop pivot, a[i], a[j] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
231
set2(L, i, j);
usr/src/uts/common/fs/zfs/lua/ltablib.c
233
lua_rawgeti(L, 1, u-1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
234
lua_rawgeti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
235
set2(L, u-1, i); /* swap pivot (a[u-1]) with a[i] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
24
static int maxn (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
244
auxsort(L, j, i); /* call recursively the smaller one */
usr/src/uts/common/fs/zfs/lua/ltablib.c
248
static int sort (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
249
int n = aux_getn(L, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
250
luaL_checkstack(L, 40, ""); /* assume array is smaller than 2^40 */
usr/src/uts/common/fs/zfs/lua/ltablib.c
251
if (!lua_isnoneornil(L, 2)) /* is there a 2nd argument? */
usr/src/uts/common/fs/zfs/lua/ltablib.c
252
luaL_checktype(L, 2, LUA_TFUNCTION);
usr/src/uts/common/fs/zfs/lua/ltablib.c
253
lua_settop(L, 2); /* make sure there is two arguments */
usr/src/uts/common/fs/zfs/lua/ltablib.c
254
auxsort(L, 1, n);
usr/src/uts/common/fs/zfs/lua/ltablib.c
26
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/ltablib.c
27
lua_pushnil(L); /* first key */
usr/src/uts/common/fs/zfs/lua/ltablib.c
275
LUAMOD_API int luaopen_table (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
276
luaL_newlib(L, tab_funcs);
usr/src/uts/common/fs/zfs/lua/ltablib.c
279
lua_getfield(L, -1, "unpack");
usr/src/uts/common/fs/zfs/lua/ltablib.c
28
while (lua_next(L, 1)) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
280
lua_setglobal(L, "unpack");
usr/src/uts/common/fs/zfs/lua/ltablib.c
29
lua_pop(L, 1); /* remove value */
usr/src/uts/common/fs/zfs/lua/ltablib.c
30
if (lua_type(L, -1) == LUA_TNUMBER) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
31
lua_Number v = lua_tonumber(L, -1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
35
lua_pushnumber(L, max);
usr/src/uts/common/fs/zfs/lua/ltablib.c
41
static int tinsert (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
42
int e = aux_getn(L, 1) + 1; /* first empty element */
usr/src/uts/common/fs/zfs/lua/ltablib.c
44
switch (lua_gettop(L)) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
51
pos = luaL_checkint(L, 2); /* 2nd argument is the position */
usr/src/uts/common/fs/zfs/lua/ltablib.c
52
luaL_argcheck(L, 1 <= pos && pos <= e, 2, "position out of bounds");
usr/src/uts/common/fs/zfs/lua/ltablib.c
54
lua_rawgeti(L, 1, i-1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
55
lua_rawseti(L, 1, i); /* t[i] = t[i-1] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
60
return luaL_error(L, "wrong number of arguments to " LUA_QL("insert"));
usr/src/uts/common/fs/zfs/lua/ltablib.c
63
lua_rawseti(L, 1, pos); /* t[pos] = v */
usr/src/uts/common/fs/zfs/lua/ltablib.c
68
static int tremove (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
69
int size = aux_getn(L, 1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
70
int pos = luaL_optint(L, 2, size);
usr/src/uts/common/fs/zfs/lua/ltablib.c
72
luaL_argcheck(L, 1 <= pos && pos <= size + 1, 1, "position out of bounds");
usr/src/uts/common/fs/zfs/lua/ltablib.c
73
lua_rawgeti(L, 1, pos); /* result = t[pos] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
75
lua_rawgeti(L, 1, pos+1);
usr/src/uts/common/fs/zfs/lua/ltablib.c
76
lua_rawseti(L, 1, pos); /* t[pos] = t[pos+1] */
usr/src/uts/common/fs/zfs/lua/ltablib.c
78
lua_pushnil(L);
usr/src/uts/common/fs/zfs/lua/ltablib.c
79
lua_rawseti(L, 1, pos); /* t[pos] = nil */
usr/src/uts/common/fs/zfs/lua/ltablib.c
84
static void addfield (lua_State *L, luaL_Buffer *b, int i) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
85
lua_rawgeti(L, 1, i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
86
if (!lua_isstring(L, -1))
usr/src/uts/common/fs/zfs/lua/ltablib.c
87
luaL_error(L, "invalid value (%s) at index %d in table for "
usr/src/uts/common/fs/zfs/lua/ltablib.c
88
LUA_QL("concat"), luaL_typename(L, -1), i);
usr/src/uts/common/fs/zfs/lua/ltablib.c
93
static int tconcat (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltablib.c
97
const char *sep = luaL_optlstring(L, 2, "", &lsep);
usr/src/uts/common/fs/zfs/lua/ltablib.c
98
luaL_checktype(L, 1, LUA_TTABLE);
usr/src/uts/common/fs/zfs/lua/ltablib.c
99
i = luaL_optint(L, 3, 1);
usr/src/uts/common/fs/zfs/lua/ltm.c
32
void luaT_init (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/ltm.c
42
G(L)->tmname[i] = luaS_new(L, luaT_eventname[i]);
usr/src/uts/common/fs/zfs/lua/ltm.c
43
luaS_fix(G(L)->tmname[i]); /* never collect these names */
usr/src/uts/common/fs/zfs/lua/ltm.c
63
const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event) {
usr/src/uts/common/fs/zfs/lua/ltm.c
73
mt = G(L)->mt[ttypenv(o)];
usr/src/uts/common/fs/zfs/lua/ltm.c
75
return (mt ? luaH_getstr(mt, G(L)->tmname[event]) : luaO_nilobject);
usr/src/uts/common/fs/zfs/lua/ltm.h
53
LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
usr/src/uts/common/fs/zfs/lua/ltm.h
55
LUAI_FUNC void luaT_init (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
131
LUA_API void (lua_close) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
132
LUA_API lua_State *(lua_newthread) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
134
LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
usr/src/uts/common/fs/zfs/lua/lua.h
137
LUA_API const lua_Number *(lua_version) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
143
LUA_API int (lua_absindex) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
144
LUA_API int (lua_gettop) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
145
LUA_API void (lua_settop) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
146
LUA_API void (lua_pushvalue) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
147
LUA_API void (lua_remove) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
148
LUA_API void (lua_insert) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
149
LUA_API void (lua_replace) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
150
LUA_API void (lua_copy) (lua_State *L, int fromidx, int toidx);
usr/src/uts/common/fs/zfs/lua/lua.h
151
LUA_API int (lua_checkstack) (lua_State *L, int sz);
usr/src/uts/common/fs/zfs/lua/lua.h
160
LUA_API int (lua_isnumber) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
161
LUA_API int (lua_isstring) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
162
LUA_API int (lua_iscfunction) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
163
LUA_API int (lua_isuserdata) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
164
LUA_API int (lua_type) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
165
LUA_API const char *(lua_typename) (lua_State *L, int tp);
usr/src/uts/common/fs/zfs/lua/lua.h
167
LUA_API lua_Number (lua_tonumberx) (lua_State *L, int idx, int *isnum);
usr/src/uts/common/fs/zfs/lua/lua.h
168
LUA_API lua_Integer (lua_tointegerx) (lua_State *L, int idx, int *isnum);
usr/src/uts/common/fs/zfs/lua/lua.h
169
LUA_API lua_Unsigned (lua_tounsignedx) (lua_State *L, int idx, int *isnum);
usr/src/uts/common/fs/zfs/lua/lua.h
170
LUA_API int (lua_toboolean) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
171
LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len);
usr/src/uts/common/fs/zfs/lua/lua.h
172
LUA_API size_t (lua_rawlen) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
173
LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
174
LUA_API void *(lua_touserdata) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
175
LUA_API lua_State *(lua_tothread) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
176
LUA_API const void *(lua_topointer) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
191
LUA_API void (lua_arith) (lua_State *L, int op);
usr/src/uts/common/fs/zfs/lua/lua.h
197
LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2);
usr/src/uts/common/fs/zfs/lua/lua.h
198
LUA_API int (lua_compare) (lua_State *L, int idx1, int idx2, int op);
usr/src/uts/common/fs/zfs/lua/lua.h
204
LUA_API void (lua_pushnil) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
205
LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n);
usr/src/uts/common/fs/zfs/lua/lua.h
206
LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n);
usr/src/uts/common/fs/zfs/lua/lua.h
207
LUA_API void (lua_pushunsigned) (lua_State *L, lua_Unsigned n);
usr/src/uts/common/fs/zfs/lua/lua.h
208
LUA_API const char *(lua_pushlstring) (lua_State *L, const char *s, size_t l);
usr/src/uts/common/fs/zfs/lua/lua.h
209
LUA_API const char *(lua_pushstring) (lua_State *L, const char *s);
usr/src/uts/common/fs/zfs/lua/lua.h
210
LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt,
usr/src/uts/common/fs/zfs/lua/lua.h
212
LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...);
usr/src/uts/common/fs/zfs/lua/lua.h
213
LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
214
LUA_API void (lua_pushboolean) (lua_State *L, int b);
usr/src/uts/common/fs/zfs/lua/lua.h
215
LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p);
usr/src/uts/common/fs/zfs/lua/lua.h
216
LUA_API int (lua_pushthread) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
222
LUA_API void (lua_getglobal) (lua_State *L, const char *var);
usr/src/uts/common/fs/zfs/lua/lua.h
223
LUA_API void (lua_gettable) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
224
LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k);
usr/src/uts/common/fs/zfs/lua/lua.h
225
LUA_API void (lua_rawget) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
226
LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
227
LUA_API void (lua_rawgetp) (lua_State *L, int idx, const void *p);
usr/src/uts/common/fs/zfs/lua/lua.h
228
LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec);
usr/src/uts/common/fs/zfs/lua/lua.h
229
LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz);
usr/src/uts/common/fs/zfs/lua/lua.h
230
LUA_API int (lua_getmetatable) (lua_State *L, int objindex);
usr/src/uts/common/fs/zfs/lua/lua.h
231
LUA_API void (lua_getuservalue) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
237
LUA_API void (lua_setglobal) (lua_State *L, const char *var);
usr/src/uts/common/fs/zfs/lua/lua.h
238
LUA_API void (lua_settable) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
239
LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k);
usr/src/uts/common/fs/zfs/lua/lua.h
240
LUA_API void (lua_rawset) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
241
LUA_API void (lua_rawseti) (lua_State *L, int idx, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
242
LUA_API void (lua_rawsetp) (lua_State *L, int idx, const void *p);
usr/src/uts/common/fs/zfs/lua/lua.h
243
LUA_API int (lua_setmetatable) (lua_State *L, int objindex);
usr/src/uts/common/fs/zfs/lua/lua.h
244
LUA_API void (lua_setuservalue) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
250
LUA_API void (lua_callk) (lua_State *L, int nargs, int nresults, int ctx,
usr/src/uts/common/fs/zfs/lua/lua.h
252
#define lua_call(L,n,r) lua_callk(L, (n), (r), 0, NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
254
LUA_API int (lua_getctx) (lua_State *L, int *ctx);
usr/src/uts/common/fs/zfs/lua/lua.h
256
LUA_API int (lua_pcallk) (lua_State *L, int nargs, int nresults, int errfunc,
usr/src/uts/common/fs/zfs/lua/lua.h
258
#define lua_pcall(L,n,r,f) lua_pcallk(L, (n), (r), (f), 0, NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
260
LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt,
usr/src/uts/common/fs/zfs/lua/lua.h
264
LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data);
usr/src/uts/common/fs/zfs/lua/lua.h
270
LUA_API int (lua_yieldk) (lua_State *L, int nresults, int ctx,
usr/src/uts/common/fs/zfs/lua/lua.h
272
#define lua_yield(L,n) lua_yieldk(L, (n), 0, NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
273
LUA_API int (lua_resume) (lua_State *L, lua_State *from, int narg);
usr/src/uts/common/fs/zfs/lua/lua.h
274
LUA_API int (lua_status) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
293
LUA_API int (lua_gc) (lua_State *L, int what, int data);
usr/src/uts/common/fs/zfs/lua/lua.h
300
LUA_API int (lua_error) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
302
LUA_API int (lua_next) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
304
LUA_API void (lua_concat) (lua_State *L, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
305
LUA_API void (lua_len) (lua_State *L, int idx);
usr/src/uts/common/fs/zfs/lua/lua.h
307
LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud);
usr/src/uts/common/fs/zfs/lua/lua.h
308
LUA_API void (lua_setallocf) (lua_State *L, lua_Alloc f, void *ud);
usr/src/uts/common/fs/zfs/lua/lua.h
318
#define lua_tonumber(L,i) lua_tonumberx(L,i,NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
319
#define lua_tointeger(L,i) lua_tointegerx(L,i,NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
320
#define lua_tounsigned(L,i) lua_tounsignedx(L,i,NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
322
#define lua_pop(L,n) lua_settop(L, -(n)-1)
usr/src/uts/common/fs/zfs/lua/lua.h
324
#define lua_newtable(L) lua_createtable(L, 0, 0)
usr/src/uts/common/fs/zfs/lua/lua.h
326
#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
usr/src/uts/common/fs/zfs/lua/lua.h
328
#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0)
usr/src/uts/common/fs/zfs/lua/lua.h
330
#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION)
usr/src/uts/common/fs/zfs/lua/lua.h
331
#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE)
usr/src/uts/common/fs/zfs/lua/lua.h
332
#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
usr/src/uts/common/fs/zfs/lua/lua.h
333
#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL)
usr/src/uts/common/fs/zfs/lua/lua.h
334
#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN)
usr/src/uts/common/fs/zfs/lua/lua.h
335
#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD)
usr/src/uts/common/fs/zfs/lua/lua.h
336
#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE)
usr/src/uts/common/fs/zfs/lua/lua.h
337
#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0)
usr/src/uts/common/fs/zfs/lua/lua.h
339
#define lua_pushliteral(L, s) \
usr/src/uts/common/fs/zfs/lua/lua.h
340
lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
usr/src/uts/common/fs/zfs/lua/lua.h
342
#define lua_pushglobaltable(L) \
usr/src/uts/common/fs/zfs/lua/lua.h
343
lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_GLOBALS)
usr/src/uts/common/fs/zfs/lua/lua.h
345
#define lua_tostring(L,i) lua_tolstring(L, (i), NULL)
usr/src/uts/common/fs/zfs/lua/lua.h
378
typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
usr/src/uts/common/fs/zfs/lua/lua.h
381
LUA_API int (lua_getstack) (lua_State *L, int level, lua_Debug *ar);
usr/src/uts/common/fs/zfs/lua/lua.h
382
LUA_API int (lua_getinfo) (lua_State *L, const char *what, lua_Debug *ar);
usr/src/uts/common/fs/zfs/lua/lua.h
383
LUA_API const char *(lua_getlocal) (lua_State *L, const lua_Debug *ar, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
384
LUA_API const char *(lua_setlocal) (lua_State *L, const lua_Debug *ar, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
385
LUA_API const char *(lua_getupvalue) (lua_State *L, int funcindex, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
386
LUA_API const char *(lua_setupvalue) (lua_State *L, int funcindex, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
388
LUA_API void *(lua_upvalueid) (lua_State *L, int fidx, int n);
usr/src/uts/common/fs/zfs/lua/lua.h
389
LUA_API void (lua_upvaluejoin) (lua_State *L, int fidx1, int n1,
usr/src/uts/common/fs/zfs/lua/lua.h
392
LUA_API int (lua_sethook) (lua_State *L, lua_Hook func, int mask, int count);
usr/src/uts/common/fs/zfs/lua/lua.h
393
LUA_API lua_Hook (lua_gethook) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
394
LUA_API int (lua_gethookmask) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
395
LUA_API int (lua_gethookcount) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
54
typedef int (*lua_CFunction) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lua.h
60
typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz);
usr/src/uts/common/fs/zfs/lua/lua.h
62
typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud);
usr/src/uts/common/fs/zfs/lua/luaconf.h
263
#define lua_cpcall(L,f,u) \
usr/src/uts/common/fs/zfs/lua/luaconf.h
264
(lua_pushcfunction(L, (f)), \
usr/src/uts/common/fs/zfs/lua/luaconf.h
265
lua_pushlightuserdata(L,(u)), \
usr/src/uts/common/fs/zfs/lua/luaconf.h
266
lua_pcall(L,1,0,0))
usr/src/uts/common/fs/zfs/lua/luaconf.h
291
#define lua_strlen(L,i) lua_rawlen(L, (i))
usr/src/uts/common/fs/zfs/lua/luaconf.h
293
#define lua_objlen(L,i) lua_rawlen(L, (i))
usr/src/uts/common/fs/zfs/lua/luaconf.h
295
#define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ)
usr/src/uts/common/fs/zfs/lua/luaconf.h
296
#define lua_lessthan(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPLT)
usr/src/uts/common/fs/zfs/lua/luaconf.h
431
#define luai_nummod(L,a,b) ((a) % (b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
432
#define luai_numpow(L,a,b) (lcompat_pow((a),(b)))
usr/src/uts/common/fs/zfs/lua/luaconf.h
437
#define luai_numadd(L,a,b) ((a)+(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
438
#define luai_numsub(L,a,b) ((a)-(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
439
#define luai_nummul(L,a,b) ((a)*(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
440
#define luai_numdiv(L,a,b) ((a)/(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
441
#define luai_numunm(L,a) (-(a))
usr/src/uts/common/fs/zfs/lua/luaconf.h
443
#define luai_numlt(L,a,b) ((a)<(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
444
#define luai_numle(L,a,b) ((a)<=(b))
usr/src/uts/common/fs/zfs/lua/luaconf.h
445
#define luai_numisnan(L,a) (!luai_numeq((a), (a)))
usr/src/uts/common/fs/zfs/lua/lualib.h
15
LUAMOD_API int (luaopen_base) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
18
LUAMOD_API int (luaopen_coroutine) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
21
LUAMOD_API int (luaopen_table) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
24
LUAMOD_API int (luaopen_io) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
27
LUAMOD_API int (luaopen_os) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
30
LUAMOD_API int (luaopen_string) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
33
LUAMOD_API int (luaopen_bit32) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
36
LUAMOD_API int (luaopen_math) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
39
LUAMOD_API int (luaopen_debug) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
42
LUAMOD_API int (luaopen_package) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lualib.h
46
LUALIB_API void (luaL_openlibs) (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lundump.c
100
f->k=luaM_newvector(S->L,n,TValue);
usr/src/uts/common/fs/zfs/lua/lundump.c
119
setsvalue2n(S->L,o,LoadString(S));
usr/src/uts/common/fs/zfs/lua/lundump.c
125
f->p=luaM_newvector(S->L,n,Proto*);
usr/src/uts/common/fs/zfs/lua/lundump.c
130
f->p[i]=luaF_newproto(S->L);
usr/src/uts/common/fs/zfs/lua/lundump.c
139
f->upvalues=luaM_newvector(S->L,n,Upvaldesc);
usr/src/uts/common/fs/zfs/lua/lundump.c
154
f->lineinfo=luaM_newvector(S->L,n,int);
usr/src/uts/common/fs/zfs/lua/lundump.c
158
f->locvars=luaM_newvector(S->L,n,LocVar);
usr/src/uts/common/fs/zfs/lua/lundump.c
206
Closure* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name)
usr/src/uts/common/fs/zfs/lua/lundump.c
216
S.L=L;
usr/src/uts/common/fs/zfs/lua/lundump.c
220
cl=luaF_newLclosure(L,1);
usr/src/uts/common/fs/zfs/lua/lundump.c
221
setclLvalue(L,L->top,cl); incr_top(L);
usr/src/uts/common/fs/zfs/lua/lundump.c
222
cl->l.p=luaF_newproto(L);
usr/src/uts/common/fs/zfs/lua/lundump.c
227
cl=luaF_newLclosure(L,cl->l.p->sizeupvalues);
usr/src/uts/common/fs/zfs/lua/lundump.c
229
setclLvalue(L,L->top-1,cl);
usr/src/uts/common/fs/zfs/lua/lundump.c
231
luai_verifycode(L,buff,cl->l.p);
usr/src/uts/common/fs/zfs/lua/lundump.c
24
lua_State* L;
usr/src/uts/common/fs/zfs/lua/lundump.c
32
luaO_pushfstring(S->L,"%s: %s precompiled chunk",S->name,why);
usr/src/uts/common/fs/zfs/lua/lundump.c
33
luaD_throw(S->L,LUA_ERRSYNTAX);
usr/src/uts/common/fs/zfs/lua/lundump.c
42
#define luai_verifycode(L,b,f) /* empty */
usr/src/uts/common/fs/zfs/lua/lundump.c
80
char* s=luaZ_openspace(S->L,S->b,size);
usr/src/uts/common/fs/zfs/lua/lundump.c
82
return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */
usr/src/uts/common/fs/zfs/lua/lundump.c
89
f->code=luaM_newvector(S->L,n,Instruction);
usr/src/uts/common/fs/zfs/lua/lundump.h
14
LUAI_FUNC Closure* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name);
usr/src/uts/common/fs/zfs/lua/lundump.h
20
LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip);
usr/src/uts/common/fs/zfs/lua/lvm.c
100
setobj2s(L, L->top++, p3); /* 3rd argument */
usr/src/uts/common/fs/zfs/lua/lvm.c
102
luaD_call(L, L->top - (4 - hasres), hasres, isLua(L->ci));
usr/src/uts/common/fs/zfs/lua/lvm.c
104
p3 = restorestack(L, result);
usr/src/uts/common/fs/zfs/lua/lvm.c
105
setobjs2s(L, p3, --L->top);
usr/src/uts/common/fs/zfs/lua/lvm.c
110
void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) {
usr/src/uts/common/fs/zfs/lua/lvm.c
118
(tm = fasttm(L, h->metatable, TM_INDEX)) == NULL) { /* or no TM? */
usr/src/uts/common/fs/zfs/lua/lvm.c
119
setobj2s(L, val, res);
usr/src/uts/common/fs/zfs/lua/lvm.c
124
else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_INDEX)))
usr/src/uts/common/fs/zfs/lua/lvm.c
125
luaG_typeerror(L, t, "index");
usr/src/uts/common/fs/zfs/lua/lvm.c
127
callTM(L, tm, t, key, val, 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
132
luaG_runerror(L, "loop in gettable");
usr/src/uts/common/fs/zfs/lua/lvm.c
136
void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
usr/src/uts/common/fs/zfs/lua/lvm.c
147
((tm = fasttm(L, h->metatable, TM_NEWINDEX)) == NULL &&
usr/src/uts/common/fs/zfs/lua/lvm.c
152
(oldval = luaH_newkey(L, h, key), 1)))) {
usr/src/uts/common/fs/zfs/lua/lvm.c
154
setobj2t(L, oldval, val); /* assign new value to that entry */
usr/src/uts/common/fs/zfs/lua/lvm.c
156
luaC_barrierback(L, obj2gco(h), val);
usr/src/uts/common/fs/zfs/lua/lvm.c
162
if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_NEWINDEX)))
usr/src/uts/common/fs/zfs/lua/lvm.c
163
luaG_typeerror(L, t, "index");
usr/src/uts/common/fs/zfs/lua/lvm.c
166
callTM(L, tm, t, key, val, 0);
usr/src/uts/common/fs/zfs/lua/lvm.c
171
luaG_runerror(L, "loop in settable");
usr/src/uts/common/fs/zfs/lua/lvm.c
175
static int call_binTM (lua_State *L, const TValue *p1, const TValue *p2,
usr/src/uts/common/fs/zfs/lua/lvm.c
177
const TValue *tm = luaT_gettmbyobj(L, p1, event); /* try first operand */
usr/src/uts/common/fs/zfs/lua/lvm.c
179
tm = luaT_gettmbyobj(L, p2, event); /* try second operand */
usr/src/uts/common/fs/zfs/lua/lvm.c
181
callTM(L, tm, p1, p2, res, 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
186
static const TValue *get_equalTM (lua_State *L, Table *mt1, Table *mt2,
usr/src/uts/common/fs/zfs/lua/lvm.c
188
const TValue *tm1 = fasttm(L, mt1, event);
usr/src/uts/common/fs/zfs/lua/lvm.c
192
tm2 = fasttm(L, mt2, event);
usr/src/uts/common/fs/zfs/lua/lvm.c
200
static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2,
usr/src/uts/common/fs/zfs/lua/lvm.c
202
if (!call_binTM(L, p1, p2, L->top, event))
usr/src/uts/common/fs/zfs/lua/lvm.c
205
return !l_isfalse(L->top);
usr/src/uts/common/fs/zfs/lua/lvm.c
231
int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) {
usr/src/uts/common/fs/zfs/lua/lvm.c
234
return luai_numlt(L, nvalue(l), nvalue(r));
usr/src/uts/common/fs/zfs/lua/lvm.c
237
else if ((res = call_orderTM(L, l, r, TM_LT)) < 0)
usr/src/uts/common/fs/zfs/lua/lvm.c
238
luaG_ordererror(L, l, r);
usr/src/uts/common/fs/zfs/lua/lvm.c
243
int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) {
usr/src/uts/common/fs/zfs/lua/lvm.c
246
return luai_numle(L, nvalue(l), nvalue(r));
usr/src/uts/common/fs/zfs/lua/lvm.c
249
else if ((res = call_orderTM(L, l, r, TM_LE)) >= 0) /* first try `le' */
usr/src/uts/common/fs/zfs/lua/lvm.c
251
else if ((res = call_orderTM(L, r, l, TM_LT)) < 0) /* else try `lt' */
usr/src/uts/common/fs/zfs/lua/lvm.c
252
luaG_ordererror(L, l, r);
usr/src/uts/common/fs/zfs/lua/lvm.c
260
int luaV_equalobj_ (lua_State *L, const TValue *t1, const TValue *t2) {
usr/src/uts/common/fs/zfs/lua/lvm.c
273
else if (L == NULL) return 0;
usr/src/uts/common/fs/zfs/lua/lvm.c
274
tm = get_equalTM(L, uvalue(t1)->metatable, uvalue(t2)->metatable, TM_EQ);
usr/src/uts/common/fs/zfs/lua/lvm.c
279
else if (L == NULL) return 0;
usr/src/uts/common/fs/zfs/lua/lvm.c
280
tm = get_equalTM(L, hvalue(t1)->metatable, hvalue(t2)->metatable, TM_EQ);
usr/src/uts/common/fs/zfs/lua/lvm.c
288
callTM(L, tm, t1, t2, L->top, 1); /* call TM */
usr/src/uts/common/fs/zfs/lua/lvm.c
289
return !l_isfalse(L->top);
usr/src/uts/common/fs/zfs/lua/lvm.c
293
void luaV_concat (lua_State *L, int total) {
usr/src/uts/common/fs/zfs/lua/lvm.c
296
StkId top = L->top;
usr/src/uts/common/fs/zfs/lua/lvm.c
298
if (!(ttisstring(top-2) || ttisnumber(top-2)) || !tostring(L, top-1)) {
usr/src/uts/common/fs/zfs/lua/lvm.c
299
if (!call_binTM(L, top-2, top-1, top-2, TM_CONCAT))
usr/src/uts/common/fs/zfs/lua/lvm.c
300
luaG_concaterror(L, top-2, top-1);
usr/src/uts/common/fs/zfs/lua/lvm.c
303
(void)tostring(L, top - 2); /* result is first operand */
usr/src/uts/common/fs/zfs/lua/lvm.c
305
setobjs2s(L, top - 2, top - 1); /* result is second op. */
usr/src/uts/common/fs/zfs/lua/lvm.c
313
for (i = 1; i < total && tostring(L, top-i-1); i++) {
usr/src/uts/common/fs/zfs/lua/lvm.c
316
luaG_runerror(L, "string length overflow");
usr/src/uts/common/fs/zfs/lua/lvm.c
319
buffer = luaZ_openspace(L, &G(L)->buff, tl);
usr/src/uts/common/fs/zfs/lua/lvm.c
327
setsvalue2s(L, top-n, luaS_newlstr(L, buffer, tl));
usr/src/uts/common/fs/zfs/lua/lvm.c
330
L->top -= n-1; /* popped 'n' strings and pushed one */
usr/src/uts/common/fs/zfs/lua/lvm.c
335
void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) {
usr/src/uts/common/fs/zfs/lua/lvm.c
340
tm = fasttm(L, h->metatable, TM_LEN);
usr/src/uts/common/fs/zfs/lua/lvm.c
350
tm = luaT_gettmbyobj(L, rb, TM_LEN);
usr/src/uts/common/fs/zfs/lua/lvm.c
352
luaG_typeerror(L, rb, "get length of");
usr/src/uts/common/fs/zfs/lua/lvm.c
356
callTM(L, tm, rb, rb, ra, 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
371
static lua_Number luaV_div (lua_State *L, lua_Number m, lua_Number n) {
usr/src/uts/common/fs/zfs/lua/lvm.c
374
luaG_runerror(L, "attempt to divide by zero");
usr/src/uts/common/fs/zfs/lua/lvm.c
391
static lua_Number luaV_mod (lua_State *L, lua_Number m, lua_Number n) {
usr/src/uts/common/fs/zfs/lua/lvm.c
394
luaG_runerror(L, "attempt to perform 'n%%0'");
usr/src/uts/common/fs/zfs/lua/lvm.c
409
void luaV_arith (lua_State *L, StkId ra, const TValue *rb,
usr/src/uts/common/fs/zfs/lua/lvm.c
421
res = luaV_div(L, nvalue(b), nvalue(c));
usr/src/uts/common/fs/zfs/lua/lvm.c
423
res = luaV_mod(L, nvalue(b), nvalue(c));
usr/src/uts/common/fs/zfs/lua/lvm.c
429
else if (!call_binTM(L, rb, rc, ra, op))
usr/src/uts/common/fs/zfs/lua/lvm.c
430
luaG_aritherror(L, rb, rc);
usr/src/uts/common/fs/zfs/lua/lvm.c
461
static void pushclosure (lua_State *L, Proto *p, UpVal **encup, StkId base,
usr/src/uts/common/fs/zfs/lua/lvm.c
466
Closure *ncl = luaF_newLclosure(L, nup);
usr/src/uts/common/fs/zfs/lua/lvm.c
468
setclLvalue(L, ra, ncl); /* anchor new closure in stack */
usr/src/uts/common/fs/zfs/lua/lvm.c
47
int luaV_tostring (lua_State *L, StkId obj) {
usr/src/uts/common/fs/zfs/lua/lvm.c
471
ncl->l.upvals[i] = luaF_findupval(L, base + uv[i].idx);
usr/src/uts/common/fs/zfs/lua/lvm.c
475
luaC_barrierproto(L, p, ncl);
usr/src/uts/common/fs/zfs/lua/lvm.c
483
void luaV_finishOp (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lvm.c
484
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lvm.c
492
setobjs2s(L, base + GETARG_A(inst), --L->top);
usr/src/uts/common/fs/zfs/lua/lvm.c
496
int res = !l_isfalse(L->top - 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
497
L->top--;
usr/src/uts/common/fs/zfs/lua/lvm.c
501
ttisnil(luaT_gettmbyobj(L, base + GETARG_B(inst), TM_LE)))
usr/src/uts/common/fs/zfs/lua/lvm.c
509
StkId top = L->top - 1; /* top when 'call_binTM' was called */
usr/src/uts/common/fs/zfs/lua/lvm.c
512
setobj2s(L, top - 2, top); /* put TM result in proper position */
usr/src/uts/common/fs/zfs/lua/lvm.c
514
L->top = top - 1; /* top is one after last element (at top-2) */
usr/src/uts/common/fs/zfs/lua/lvm.c
515
luaV_concat(L, total); /* concat them (may yield again) */
usr/src/uts/common/fs/zfs/lua/lvm.c
518
setobj2s(L, ci->u.l.base + GETARG_A(inst), L->top - 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
519
L->top = ci->top; /* restore top */
usr/src/uts/common/fs/zfs/lua/lvm.c
524
L->top = ci->top; /* correct top */
usr/src/uts/common/fs/zfs/lua/lvm.c
529
L->top = ci->top; /* adjust results */
usr/src/uts/common/fs/zfs/lua/lvm.c
54
setsvalue2s(L, obj, luaS_newlstr(L, s, l));
usr/src/uts/common/fs/zfs/lua/lvm.c
545
#define luai_runtimecheck(L, c) /* void */
usr/src/uts/common/fs/zfs/lua/lvm.c
564
if (a > 0) luaF_close(L, ci->u.l.base + a - 1); \
usr/src/uts/common/fs/zfs/lua/lvm.c
573
#define checkGC(L,c) \
usr/src/uts/common/fs/zfs/lua/lvm.c
574
Protect( luaC_condGC(L,{L->top = (c); /* limit of live values */ \
usr/src/uts/common/fs/zfs/lua/lvm.c
575
luaC_step(L); \
usr/src/uts/common/fs/zfs/lua/lvm.c
576
L->top = ci->top;}) /* restore top */ \
usr/src/uts/common/fs/zfs/lua/lvm.c
577
luai_threadyield(L); )
usr/src/uts/common/fs/zfs/lua/lvm.c
585
setnvalue(ra, op(L, nb, nc)); \
usr/src/uts/common/fs/zfs/lua/lvm.c
587
else { Protect(luaV_arith(L, ra, rb, rc, tm)); } }
usr/src/uts/common/fs/zfs/lua/lvm.c
594
void luaV_execute (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lvm.c
595
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lvm.c
60
static void traceexec (lua_State *L) {
usr/src/uts/common/fs/zfs/lua/lvm.c
600
lua_assert(ci == L->ci);
usr/src/uts/common/fs/zfs/lua/lvm.c
608
if ((L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT)) &&
usr/src/uts/common/fs/zfs/lua/lvm.c
609
(--L->hookcount == 0 || L->hookmask & LUA_MASKLINE)) {
usr/src/uts/common/fs/zfs/lua/lvm.c
61
CallInfo *ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lvm.c
610
Protect(traceexec(L));
usr/src/uts/common/fs/zfs/lua/lvm.c
615
lua_assert(base <= L->top && L->top < L->stack + L->stacksize);
usr/src/uts/common/fs/zfs/lua/lvm.c
618
setobjs2s(L, ra, RB(i));
usr/src/uts/common/fs/zfs/lua/lvm.c
62
lu_byte mask = L->hookmask;
usr/src/uts/common/fs/zfs/lua/lvm.c
622
setobj2s(L, ra, rb);
usr/src/uts/common/fs/zfs/lua/lvm.c
628
setobj2s(L, ra, rb);
usr/src/uts/common/fs/zfs/lua/lvm.c
63
int counthook = ((mask & LUA_MASKCOUNT) && L->hookcount == 0);
usr/src/uts/common/fs/zfs/lua/lvm.c
642
setobj2s(L, ra, cl->upvals[b]->v);
usr/src/uts/common/fs/zfs/lua/lvm.c
646
Protect(luaV_gettable(L, cl->upvals[b]->v, RKC(i), ra));
usr/src/uts/common/fs/zfs/lua/lvm.c
649
Protect(luaV_gettable(L, RB(i), RKC(i), ra));
usr/src/uts/common/fs/zfs/lua/lvm.c
65
resethookcount(L); /* reset count */
usr/src/uts/common/fs/zfs/lua/lvm.c
653
Protect(luaV_settable(L, cl->upvals[a]->v, RKB(i), RKC(i)));
usr/src/uts/common/fs/zfs/lua/lvm.c
657
setobj(L, uv->v, ra);
usr/src/uts/common/fs/zfs/lua/lvm.c
658
luaC_barrier(L, uv, ra);
usr/src/uts/common/fs/zfs/lua/lvm.c
661
Protect(luaV_settable(L, ra, RKB(i), RKC(i)));
usr/src/uts/common/fs/zfs/lua/lvm.c
666
Table *t = luaH_new(L);
usr/src/uts/common/fs/zfs/lua/lvm.c
667
sethvalue(L, ra, t);
usr/src/uts/common/fs/zfs/lua/lvm.c
669
luaH_resize(L, t, luaO_fb2int(b), luaO_fb2int(c));
usr/src/uts/common/fs/zfs/lua/lvm.c
670
checkGC(L, ra + 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
674
setobjs2s(L, ra+1, rb);
usr/src/uts/common/fs/zfs/lua/lvm.c
675
Protect(luaV_gettable(L, rb, RKC(i), ra));
usr/src/uts/common/fs/zfs/lua/lvm.c
702
setnvalue(ra, luai_numunm(L, nb));
usr/src/uts/common/fs/zfs/lua/lvm.c
705
Protect(luaV_arith(L, ra, rb, rb, TM_UNM));
usr/src/uts/common/fs/zfs/lua/lvm.c
71
luaD_hook(L, LUA_HOOKCOUNT, -1); /* call count hook */
usr/src/uts/common/fs/zfs/lua/lvm.c
714
Protect(luaV_objlen(L, ra, RB(i)));
usr/src/uts/common/fs/zfs/lua/lvm.c
720
L->top = base + c + 1; /* mark the end of concat operands */
usr/src/uts/common/fs/zfs/lua/lvm.c
721
Protect(luaV_concat(L, c - b + 1));
usr/src/uts/common/fs/zfs/lua/lvm.c
724
setobjs2s(L, ra, rb);
usr/src/uts/common/fs/zfs/lua/lvm.c
725
checkGC(L, (ra >= rb ? ra + 1 : rb));
usr/src/uts/common/fs/zfs/lua/lvm.c
726
L->top = ci->top; /* restore top */
usr/src/uts/common/fs/zfs/lua/lvm.c
735
if (cast_int(equalobj(L, rb, rc)) != GETARG_A(i))
usr/src/uts/common/fs/zfs/lua/lvm.c
743
if (luaV_lessthan(L, RKB(i), RKC(i)) != GETARG_A(i))
usr/src/uts/common/fs/zfs/lua/lvm.c
751
if (luaV_lessequal(L, RKB(i), RKC(i)) != GETARG_A(i))
usr/src/uts/common/fs/zfs/lua/lvm.c
768
setobjs2s(L, ra, rb);
usr/src/uts/common/fs/zfs/lua/lvm.c
77
ci->u.l.savedpc <= L->oldpc || /* when jump back (loop), or when */
usr/src/uts/common/fs/zfs/lua/lvm.c
775
if (b != 0) L->top = ra+b; /* else previous instruction set top */
usr/src/uts/common/fs/zfs/lua/lvm.c
776
if (luaD_precall(L, ra, nresults)) { /* C function? */
usr/src/uts/common/fs/zfs/lua/lvm.c
777
if (nresults >= 0) L->top = ci->top; /* adjust results */
usr/src/uts/common/fs/zfs/lua/lvm.c
78
newline != getfuncline(p, pcRel(L->oldpc, p))) /* enter a new line */
usr/src/uts/common/fs/zfs/lua/lvm.c
781
ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lvm.c
788
if (b != 0) L->top = ra+b; /* else previous instruction set top */
usr/src/uts/common/fs/zfs/lua/lvm.c
79
luaD_hook(L, LUA_HOOKLINE, newline); /* call line hook */
usr/src/uts/common/fs/zfs/lua/lvm.c
790
if (luaD_precall(L, ra, LUA_MULTRET)) /* C function? */
usr/src/uts/common/fs/zfs/lua/lvm.c
794
CallInfo *nci = L->ci; /* called frame */
usr/src/uts/common/fs/zfs/lua/lvm.c
802
if (cl->p->sizep > 0) luaF_close(L, oci->u.l.base);
usr/src/uts/common/fs/zfs/lua/lvm.c
805
setobjs2s(L, ofunc + aux, nfunc + aux);
usr/src/uts/common/fs/zfs/lua/lvm.c
807
oci->top = L->top = ofunc + (L->top - nfunc); /* correct top */
usr/src/uts/common/fs/zfs/lua/lvm.c
81
L->oldpc = ci->u.l.savedpc;
usr/src/uts/common/fs/zfs/lua/lvm.c
810
ci = L->ci = oci; /* remove new frame */
usr/src/uts/common/fs/zfs/lua/lvm.c
811
lua_assert(L->top == oci->u.l.base + getproto(ofunc)->maxstacksize);
usr/src/uts/common/fs/zfs/lua/lvm.c
817
if (b != 0) L->top = ra+b-1;
usr/src/uts/common/fs/zfs/lua/lvm.c
818
if (cl->p->sizep > 0) luaF_close(L, base);
usr/src/uts/common/fs/zfs/lua/lvm.c
819
b = luaD_poscall(L, ra);
usr/src/uts/common/fs/zfs/lua/lvm.c
82
if (L->status == LUA_YIELD) { /* did hook yield? */
usr/src/uts/common/fs/zfs/lua/lvm.c
823
ci = L->ci;
usr/src/uts/common/fs/zfs/lua/lvm.c
824
if (b) L->top = ci->top;
usr/src/uts/common/fs/zfs/lua/lvm.c
832
lua_Number idx = luai_numadd(L, nvalue(ra), step); /* increment index */
usr/src/uts/common/fs/zfs/lua/lvm.c
834
if (luai_numlt(L, 0, step) ? luai_numle(L, idx, limit)
usr/src/uts/common/fs/zfs/lua/lvm.c
835
: luai_numle(L, limit, idx)) {
usr/src/uts/common/fs/zfs/lua/lvm.c
84
L->hookcount = 1; /* undo decrement to zero */
usr/src/uts/common/fs/zfs/lua/lvm.c
846
luaG_runerror(L, LUA_QL("for") " initial value must be a number");
usr/src/uts/common/fs/zfs/lua/lvm.c
848
luaG_runerror(L, LUA_QL("for") " limit must be a number");
usr/src/uts/common/fs/zfs/lua/lvm.c
850
luaG_runerror(L, LUA_QL("for") " step must be a number");
usr/src/uts/common/fs/zfs/lua/lvm.c
851
setnvalue(ra, luai_numsub(L, nvalue(ra), nvalue(pstep)));
usr/src/uts/common/fs/zfs/lua/lvm.c
856
setobjs2s(L, cb+2, ra+2);
usr/src/uts/common/fs/zfs/lua/lvm.c
857
setobjs2s(L, cb+1, ra+1);
usr/src/uts/common/fs/zfs/lua/lvm.c
858
setobjs2s(L, cb, ra);
usr/src/uts/common/fs/zfs/lua/lvm.c
859
L->top = cb + 3; /* func. + 2 args (state and index) */
usr/src/uts/common/fs/zfs/lua/lvm.c
860
Protect(luaD_call(L, cb, GETARG_C(i), 1));
usr/src/uts/common/fs/zfs/lua/lvm.c
861
L->top = ci->top;
usr/src/uts/common/fs/zfs/lua/lvm.c
87
ci->func = L->top - 1; /* protect stack below results */
usr/src/uts/common/fs/zfs/lua/lvm.c
870
setobjs2s(L, ra, ra + 1); /* save control variable */
usr/src/uts/common/fs/zfs/lua/lvm.c
879
if (n == 0) n = cast_int(L->top - ra) - 1;
usr/src/uts/common/fs/zfs/lua/lvm.c
88
luaD_throw(L, LUA_YIELD);
usr/src/uts/common/fs/zfs/lua/lvm.c
884
luai_runtimecheck(L, ttistable(ra));
usr/src/uts/common/fs/zfs/lua/lvm.c
888
luaH_resizearray(L, h, last); /* pre-allocate it at once */
usr/src/uts/common/fs/zfs/lua/lvm.c
891
luaH_setint(L, h, last--, val);
usr/src/uts/common/fs/zfs/lua/lvm.c
892
luaC_barrierback(L, obj2gco(h), val);
usr/src/uts/common/fs/zfs/lua/lvm.c
894
L->top = ci->top; /* correct top (in case of previous open call) */
usr/src/uts/common/fs/zfs/lua/lvm.c
900
pushclosure(L, p, cl->upvals, base, ra); /* create a new one */
usr/src/uts/common/fs/zfs/lua/lvm.c
902
setclLvalue(L, ra, ncl); /* push cashed closure */
usr/src/uts/common/fs/zfs/lua/lvm.c
903
checkGC(L, ra + 1);
usr/src/uts/common/fs/zfs/lua/lvm.c
911
Protect(luaD_checkstack(L, n));
usr/src/uts/common/fs/zfs/lua/lvm.c
913
L->top = ra + n;
usr/src/uts/common/fs/zfs/lua/lvm.c
917
setobjs2s(L, ra + j, base - n + j);
usr/src/uts/common/fs/zfs/lua/lvm.c
93
static void callTM (lua_State *L, const TValue *f, const TValue *p1,
usr/src/uts/common/fs/zfs/lua/lvm.c
95
ptrdiff_t result = savestack(L, p3);
usr/src/uts/common/fs/zfs/lua/lvm.c
96
setobj2s(L, L->top++, f); /* push function */
usr/src/uts/common/fs/zfs/lua/lvm.c
97
setobj2s(L, L->top++, p1); /* 1st argument */
usr/src/uts/common/fs/zfs/lua/lvm.c
98
setobj2s(L, L->top++, p2); /* 2nd argument */
usr/src/uts/common/fs/zfs/lua/lvm.h
16
#define tostring(L,o) (ttisstring(o) || (luaV_tostring(L, o)))
usr/src/uts/common/fs/zfs/lua/lvm.h
20
#define equalobj(L,o1,o2) (ttisequal(o1, o2) && luaV_equalobj_(L, o1, o2))
usr/src/uts/common/fs/zfs/lua/lvm.h
26
LUAI_FUNC int luaV_equalobj_ (lua_State *L, const TValue *t1, const TValue *t2);
usr/src/uts/common/fs/zfs/lua/lvm.h
29
LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
usr/src/uts/common/fs/zfs/lua/lvm.h
30
LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r);
usr/src/uts/common/fs/zfs/lua/lvm.h
32
LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj);
usr/src/uts/common/fs/zfs/lua/lvm.h
33
LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key,
usr/src/uts/common/fs/zfs/lua/lvm.h
35
LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key,
usr/src/uts/common/fs/zfs/lua/lvm.h
37
LUAI_FUNC void luaV_finishOp (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lvm.h
38
LUAI_FUNC void luaV_execute (lua_State *L);
usr/src/uts/common/fs/zfs/lua/lvm.h
39
LUAI_FUNC void luaV_concat (lua_State *L, int total);
usr/src/uts/common/fs/zfs/lua/lvm.h
40
LUAI_FUNC void luaV_arith (lua_State *L, StkId ra, const TValue *rb,
usr/src/uts/common/fs/zfs/lua/lvm.h
42
LUAI_FUNC void luaV_objlen (lua_State *L, StkId ra, const TValue *rb);
usr/src/uts/common/fs/zfs/lua/lzio.c
23
lua_State *L = z->L;
usr/src/uts/common/fs/zfs/lua/lzio.c
25
lua_unlock(L);
usr/src/uts/common/fs/zfs/lua/lzio.c
26
buff = z->reader(L, z->data, &size);
usr/src/uts/common/fs/zfs/lua/lzio.c
27
lua_lock(L);
usr/src/uts/common/fs/zfs/lua/lzio.c
36
void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) {
usr/src/uts/common/fs/zfs/lua/lzio.c
37
z->L = L;
usr/src/uts/common/fs/zfs/lua/lzio.c
68
char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n) {
usr/src/uts/common/fs/zfs/lua/lzio.c
71
luaZ_resizebuffer(L, buff, n);
usr/src/uts/common/fs/zfs/lua/lzio.h
29
#define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0)
usr/src/uts/common/fs/zfs/lua/lzio.h
38
#define luaZ_resizebuffer(L, buff, size) \
usr/src/uts/common/fs/zfs/lua/lzio.h
39
(luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \
usr/src/uts/common/fs/zfs/lua/lzio.h
42
#define luaZ_freebuffer(L, buff) luaZ_resizebuffer(L, buff, 0)
usr/src/uts/common/fs/zfs/lua/lzio.h
45
LUAI_FUNC char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n);
usr/src/uts/common/fs/zfs/lua/lzio.h
46
LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader,
usr/src/uts/common/fs/zfs/lua/lzio.h
59
lua_State *L; /* Lua state (for reader) */
usr/src/uts/common/gssapi/mechs/krb5/include/k5-thread.h
214
#define k5_debug_update_loc(L) ((L) = K5_DEBUG_LOC)
usr/src/uts/common/io/audio/impl/audio_grc3.c
114
DEFINE_CONVD(L, 4096)
usr/src/uts/common/io/audio/impl/audio_grc3.c
131
ITERATION(L); ITERATION(L); ITERATION(L); ITERATION(L);
usr/src/uts/common/io/audio/impl/audio_grc3.c
308
GRC3_RESAMPLE(L)
usr/src/uts/common/io/audio/impl/audio_grc3.c
90
DEFINE_FILTER(L)
usr/src/uts/common/io/bnxe/577xx/drivers/common/include/debug.h
29
#define WIDEN2(x) L ## x
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
934
#define EXT_IS_LUN_BIT_SET(P, L) \
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
935
(((P)->mask[L / 8] & (0x80 >> (L % 8))) ? 1 : 0)
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
937
#define EXT_SET_LUN_BIT(P, L) \
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
938
((P)->mask[L / 8] |= (0x80 >> (L % 8)))
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
940
#define EXT_CLR_LUN_BIT(P, L) \
usr/src/uts/common/sys/fibre-channel/fca/qlc/exioct.h
941
((P)->mask[L / 8] &= ~(0x80 >> (L % 8)))
usr/src/uts/sun/io/audio/drv/audiocs/audio_4231.h
390
#define CS4231_DMA_POWER(S, L) ((S)->cs_dma_ops->cs_dma_power)(S, L)
