1 // SPDX-License-Identifier: MIT
29 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if
34   if (x < 8) return x;  in luaO_int2fb()
39   return ((e+1) << 3) | (cast_int(x) - 8);  in luaO_int2fb()
47   else return ((x & 7) + 8) << (e - 1);  in luaO_fb2int()
57     8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,  in luaO_ceillog2()
58     8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,  in luaO_ceillog2()
59     8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,  in luaO_ceillog2()
60     8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8  in luaO_ceillog2()
63   x--;  in luaO_ceillog2()
64   while (x >= 256) { l += 8; x >>= 8; }  in luaO_ceillog2()
84   if (lisdigit(c)) return c - '0';  in luaO_hexavalue()
85   else return ltolower(c) - 'a' + 10;  in luaO_hexavalue()
94   if (**s == '-') { (*s)++; return 1; }  in isneg()
130   e *= -4;  /* each fractional digit divides value by 2^-4 */  in lua_strx2number()
140       exp1 = exp1 * 10 + *(s++) - '0';  in lua_strx2number()
141     if (neg1) exp1 = -exp1;  in lua_strx2number()
146   if (neg) r = -r;  in lua_strx2number()
147   return ((e >= 0) ? (r * (1ULL << e)) : (r / (1ULL << -e)));  in lua_strx2number()
169   setsvalue2s(L, L->top++, luaS_newlstr(L, str, l));  in pushstr()
180     pushstr(L, fmt, e - fmt);  in luaO_pushvfstring()
195         setnvalue(L->top++, cast_num(va_arg(argp, int)));  in luaO_pushvfstring()
199         setnvalue(L->top++, cast_num(va_arg(argp, l_uacNumber)));  in luaO_pushvfstring()
203         char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */  in luaO_pushvfstring()
224   return svalue(L->top - 1);  in luaO_pushvfstring()
239 #define LL(x)	(sizeof(x)/sizeof(char) - 1)
253       addstr(out, source + 1, bufflen - 1);  in luaO_chunkid()
262       bufflen -= LL(RETS);  in luaO_chunkid()
263       memcpy(out, source + 1 + l - bufflen, bufflen * sizeof(char));  in luaO_chunkid()
269     bufflen -= LL(PRE RETS POS) + 1;  /* save space for prefix+suffix+'\0' */  in luaO_chunkid()
270     if (l < bufflen && nl == NULL) {  /* small one-line source? */  in luaO_chunkid()
274       if (nl != NULL) l = nl - source;  /* stop at first newline */  in luaO_chunkid()