d                 217 host/buildvm_lib.c       double d = strtod(p, &ep);
d                 224 host/buildvm_lib.c 	memcpy_endian(optr, &d, sizeof(double));
d                 158 host/minilua.c #define lua_number2int(i,d)((i)=(int)(d))
d                 159 host/minilua.c #define lua_number2integer(i,d)((i)=(lua_Integer)(d))
d                5856 host/minilua.c #define luaL_optstring(L,n,d)(luaL_optlstring(L,(n),(d),NULL))
d                5858 host/minilua.c #define luaL_optint(L,n,d)((int)luaL_optinteger(L,(n),(d)))
d                5861 host/minilua.c #define luaL_opt(L,f,n,d)(lua_isnoneornil(L,(n))?(d):f(L,(n)))
d                5966 host/minilua.c lua_Number d=lua_tonumber(L,narg);
d                5967 host/minilua.c if(d==0&&!lua_isnumber(L,narg))
d                5969 host/minilua.c return d;
d                5972 host/minilua.c lua_Integer d=lua_tointeger(L,narg);
d                5973 host/minilua.c if(d==0&&!lua_isnumber(L,narg))
d                5975 host/minilua.c return d;
d                6761 host/minilua.c lua_Number d;
d                6762 host/minilua.c if(fscanf(f,"%lf",&d)==1){
d                6763 host/minilua.c lua_pushnumber(L,d);
d                  98 lauxlib.h      #define luaL_optstring(L,n,d)	(luaL_optlstring(L, (n), (d), NULL))
d                 100 lauxlib.h      #define luaL_optint(L,n,d)	((int)luaL_optinteger(L, (n), (d)))
d                 102 lauxlib.h      #define luaL_optlong(L,n,d)	((long)luaL_optinteger(L, (n), (d)))
d                 114 lauxlib.h      #define luaL_opt(L,f,n,d)	(lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
d                 399 lib_ffi.c          CType *d = ctype_get(cts, cd->ctypeid);
d                 400 lib_ffi.c          if (ctype_isextern(d->info)) {
d                 403 lib_ffi.c      	d = ctype_child(cts, d);
d                 404 lib_ffi.c      	if (!ctype_isattrib(d->info)) break;
d                 405 lib_ffi.c      	if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size;
d                 407 lib_ffi.c            if (!((d->info|qual) & CTF_CONST)) {
d                 408 lib_ffi.c      	lj_cconv_ct_tv(cts, d, *(void **)cdataptr(cd), o, 0);
d                 536 lib_ffi.c        CType *d = ctype_raw(cts, id);
d                 539 lib_ffi.c        if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || ctype_isenum(d->info)))
d                 542 lib_ffi.c          GCcdata *cd = lj_cdata_new(cts, id, d->size);
d                 543 lib_ffi.c          lj_cconv_ct_tv(cts, d, cdataptr(cd), o, CCF_CAST);
d                 126 lib_io.c         lua_Number d;
d                 127 lib_io.c         if (fscanf(fp, LUA_NUMBER_SCAN, &d) == 1) {
d                 129 lib_io.c             int32_t i = lj_num2int(d);
d                 130 lib_io.c             if (d == (lua_Number)i && !tvismzero((cTValue *)&d)) {
d                 135 lib_io.c           setnumV(L->top++, d);
d                 118 lib_math.c     typedef union { uint64_t u64; double d; } U64double;
d                 146 lib_math.c         u.d = d = d * 3.14159265358979323846 + 2.7182818284590452354;
d                 162 lib_math.c       double d;
d                 165 lib_math.c       d = u.d - 1.0;
d                 181 lib_math.c           d = lj_vm_floor(d*r1) + 1.0;  /* d is an int in range [1, r1] */
d                 195 lib_math.c           d = lj_vm_floor(d*(r2-r1+1.0)) + r1;  /* d is an int in range [r1, r2] */
d                 199 lib_math.c           setintV(L->top-1, lj_num2int(d));
d                 204 lib_math.c       setnumV(L->top++, d);
d                 160 lib_os.c           if (d < 0)
d                 162 lib_os.c           res = d;
d                 722 lib_string.c         uint32_t d;
d                 729 lib_string.c   	d = (c * 205) >> 11; c -= d * 10; luaL_addchar(b, '0'+d);
d                  56 lj_bc.h          (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(d)<<16))
d                 164 lj_ccall.c       if (!ccall_classify_struct(cts, d, rcl, 0)) { \
d                 166 lj_ccall.c         if (ccall_struct_arg(cc, cts, d, rcl, o, narg)) goto err_nyi; \
d                 176 lj_ccall.c         int n2 = ctype_isvector(d->info) ? 1 : n; \
d                 234 lj_ccall.c       isfp = (ccall_classify_struct(cts, d, ct) > 1);
d                 242 lj_ccall.c         if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \
d                 275 lj_ccall.c       if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \
d                 320 lj_ccall.c           d = ctype_get(cts, CTID_DOUBLE);  /* FPRs always hold doubles. */ \
d                 326 lj_ccall.c           if (ctype_isinteger(d->info)) \
d                 394 lj_ccall.c         ((double *)dp)[0] = cc->fpr[0].d; \
d                 395 lj_ccall.c         ((double *)dp)[1] = cc->fpr[1].d; \
d                 407 lj_ccall.c         dp = n == 1 ? (void *)&cc->fpr[nfpr].f : (void *)&cc->fpr[nfpr].d; \
d                 412 lj_ccall.c         if ((d->info & CTF_ALIGN) > CTALIGN_PTR) \
d                 550 lj_ccall.c       lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg));
d                 721 lj_ccall.c         CType *d;
d                 737 lj_ccall.c         d = ctype_raw(cts, did);
d                 738 lj_ccall.c         sz = d->size;
d                 741 lj_ccall.c         if (ctype_isnum(d->info)) {
d                 743 lj_ccall.c           if ((d->info & CTF_FP))
d                 745 lj_ccall.c         } else if (ctype_isvector(d->info)) {
d                 750 lj_ccall.c         } else if (ctype_isstruct(d->info)) {
d                 752 lj_ccall.c         } else if (ctype_iscomplex(d->info)) {
d                 763 lj_ccall.c         if (CCALL_ALIGN_STACKARG && !rp && (d->info & CTF_ALIGN) > CTALIGN_PTR) {
d                 764 lj_ccall.c           MSize align = (1u << ctype_align(d->info-CTALIGN_PTR)) -1;
d                 781 lj_ccall.c         lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg));
d                 783 lj_ccall.c         if (ctype_isinteger_or_bool(d->info) && d->size < 4) {
d                 784 lj_ccall.c           if (d->info & CTF_UNSIGNED)
d                 785 lj_ccall.c     	*(uint32_t *)dp = d->size == 1 ? (uint32_t)*(uint8_t *)dp :
d                 788 lj_ccall.c     	*(int32_t *)dp = d->size == 1 ? (int32_t)*(int8_t *)dp :
d                 803 lj_ccall.c           cc->fpr[nfpr-1].d[0] = cc->fpr[nfpr-2].d[1];  /* Split complex double. */
d                 804 lj_ccall.c           cc->fpr[nfpr-2].d[1] = 0;
d                  67 lj_ccall.h       double d;
d                 104 lj_ccall.h       double d;
d                  23 lj_cconv.c       const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL));
d                  40 lj_cconv.c       const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL));
d                  51 lj_cconv.c       const char *dst = strdata(lj_ctype_repr(cts->L, ctype_typeid(cts, d), NULL));
d                  78 lj_cconv.c       if (!((flags & CCF_CAST) || d == s)) {
d                  80 lj_cconv.c         d = cconv_childqual(cts, d, &dqual);
d                  89 lj_cconv.c           if (ctype_isvoid(d->info) || ctype_isvoid(s->info))
d                  92 lj_cconv.c         if (ctype_type(d->info) != ctype_type(s->info) ||
d                  93 lj_cconv.c     	d->size != s->size)
d                  95 lj_cconv.c         if (ctype_isnum(d->info)) {
d                  96 lj_cconv.c           if (((d->info ^ s->info) & (CTF_BOOL|CTF_FP)))
d                  98 lj_cconv.c         } else if (ctype_ispointer(d->info)) {
d                 100 lj_cconv.c           return lj_cconv_compatptr(cts, d, s, flags|CCF_SAME);
d                 101 lj_cconv.c         } else if (ctype_isstruct(d->info)) {
d                 102 lj_cconv.c           if (d != s)
d                 104 lj_cconv.c         } else if (ctype_isfunc(d->info)) {
d                 121 lj_cconv.c       CTSize dsize = d->size, ssize = s->size;
d                 122 lj_cconv.c       CTInfo dinfo = d->info, sinfo = s->info;
d                 282 lj_cconv.c         d = ctype_child(cts, d);
d                 283 lj_cconv.c         dinfo = d->info;
d                 284 lj_cconv.c         dsize = d->size;
d                 288 lj_cconv.c         d = ctype_child(cts, d);
d                 289 lj_cconv.c         dinfo = d->info;
d                 290 lj_cconv.c         dsize = d->size;
d                 296 lj_cconv.c           CType *dc = ctype_child(cts, d);
d                 308 lj_cconv.c         CType *dc = ctype_child(cts, d);
d                 338 lj_cconv.c         if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv;
d                 344 lj_cconv.c         if (!lj_cconv_compatptr(cts, d, s, flags)) goto err_conv;
d                 350 lj_cconv.c         if ((flags & CCF_CAST) || (d->info & CTF_VLA) || dsize != ssize ||
d                 351 lj_cconv.c     	d->size == CTSIZE_INVALID || !lj_cconv_compatptr(cts, d, s, flags))
d                 357 lj_cconv.c         if ((flags & CCF_CAST) || (d->info & CTF_VLA) || d != s)
d                 366 lj_cconv.c         cconv_err_conv(cts, d, s, flags);
d                 464 lj_cconv.c       CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                 465 lj_cconv.c       CTSize size = d->size, esize = dc->size, ofs = 0;
d                 473 lj_cconv.c           cconv_err_initov(cts, d);
d                 490 lj_cconv.c       CTypeID id = d->sib;
d                 516 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 529 lj_cconv.c       memset(dp, 0, d->size);  /* Much simpler to clear the struct first. */
d                 530 lj_cconv.c       cconv_substruct_tab(cts, d, dp, t, &i, flags);
d                 567 lj_cconv.c         if (ctype_isenum(d->info)) {  /* Match string against enum constant. */
d                 569 lj_cconv.c           CType *cct = lj_ctype_getfield(cts, d, str, &ofs);
d                 572 lj_cconv.c           lua_assert(d->size == 4);
d                 575 lj_cconv.c         } else if (ctype_isrefarray(d->info)) {  /* Copy string to array. */
d                 576 lj_cconv.c           CType *dc = ctype_rawchild(cts, d);
d                 580 lj_cconv.c           if (d->size != 0 && d->size < sz)
d                 581 lj_cconv.c     	sz = d->size;
d                 590 lj_cconv.c         if (ctype_isarray(d->info)) {
d                 591 lj_cconv.c           cconv_array_tab(cts, d, dp, tabV(o), flags);
d                 593 lj_cconv.c         } else if (ctype_isstruct(d->info)) {
d                 594 lj_cconv.c           cconv_struct_tab(cts, d, dp, tabV(o), flags);
d                 614 lj_cconv.c         void *p = lj_ccallback_new(cts, d, funcV(o));
d                 622 lj_cconv.c         cconv_err_convtv(cts, d, o, flags);
d                 626 lj_cconv.c       if (ctype_isenum(d->info)) d = ctype_child(cts, d);
d                 627 lj_cconv.c       lj_cconv_ct_ct(cts, d, s, dp, sp, flags);
d                 633 lj_cconv.c       CTInfo info = d->info;
d                 670 lj_cconv.c       CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                 674 lj_cconv.c         cconv_err_initov(cts, d);
d                 688 lj_cconv.c       CTypeID id = d->sib;
d                 701 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 705 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 716 lj_cconv.c       cconv_substruct_init(cts, d, dp, o, len, &i);
d                 718 lj_cconv.c         cconv_err_initov(cts, d);
d                 727 lj_cconv.c       if (!(ctype_isrefarray(d->info) || ctype_isstruct(d->info)))
d                 729 lj_cconv.c       if (tvistab(o) || (tvisstr(o) && !ctype_isstruct(d->info)))
d                 731 lj_cconv.c       if (tviscdata(o) && lj_ctype_rawref(cts, cdataV(o)->ctypeid) == d)
d                 742 lj_cconv.c       else if (len == 1 && !lj_cconv_multi_init(cts, d, o))
d                 743 lj_cconv.c         lj_cconv_ct_tv(cts, d, dp, o, 0);
d                 744 lj_cconv.c       else if (ctype_isarray(d->info))  /* Also handles valarray init with len>1. */
d                 745 lj_cconv.c         cconv_array_init(cts, d, sz, dp, o, len);
d                 746 lj_cconv.c       else if (ctype_isstruct(d->info))
d                 747 lj_cconv.c         cconv_struct_init(cts, d, sz, dp, o, len);
d                 749 lj_cconv.c         cconv_err_initov(cts, d);
d                 246 lj_cdata.c       if (ctype_isconstval(d->info)) {
d                 248 lj_cdata.c       } else if (ctype_isbitfield(d->info)) {
d                 249 lj_cdata.c         if (((d->info|qual) & CTF_CONST)) goto err_const;
d                 250 lj_cdata.c         lj_cconv_bf_tv(cts, d, dp, o);
d                 255 lj_cdata.c       lua_assert(ctype_ispointer(d->info) || ctype_isfield(d->info));
d                 256 lj_cdata.c       d = ctype_child(cts, d);
d                 259 lj_cdata.c       if (ctype_isref(d->info)) {
d                 260 lj_cdata.c         lua_assert(d->size == CTSIZE_PTR);
d                 262 lj_cdata.c         d = ctype_child(cts, d);
d                 267 lj_cdata.c         if (ctype_isattrib(d->info)) {
d                 268 lj_cdata.c           if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size;
d                 272 lj_cdata.c         d = ctype_child(cts, d);
d                 275 lj_cdata.c       lua_assert(ctype_hassize(d->info) && !ctype_isvoid(d->info));
d                 277 lj_cdata.c       if (((d->info|qual) & CTF_CONST)) {
d                 282 lj_cdata.c       lj_cconv_ct_tv(cts, d, dp, o, 0);
d                 297 lj_clib.c          CType *d;
d                 300 lj_clib.c            d = ctype_rawchild(cts, ct);
d                 301 lj_clib.c            n += ((d->size + 3) & ~3);
d                 390 lj_crecord.c     IRType dt = crec_ct2irt(ctype_ctsG(J2G(J)), d);
d                 392 lj_crecord.c     CTSize dsize = d->size, ssize = s->size;
d                 393 lj_crecord.c     CTInfo dinfo = d->info, sinfo = s->info;
d                 532 lj_crecord.c       crec_copy(J, dp, sp, lj_ir_kint(J, dsize), d);
d                 624 lj_crecord.c       if (ctype_isenum(d->info)) {  /* Match string against enum constant. */
d                 627 lj_crecord.c         CType *cct = lj_ctype_getfield(cts, d, str, &ofs);
d                 636 lj_crecord.c       } else if (ctype_isrefarray(d->info)) {  /* Copy string to array. */
d                 676 lj_crecord.c     if (ctype_isenum(d->info)) d = ctype_child(cts, d);
d                 677 lj_crecord.c     return crec_ct_ct(J, d, s, dp, sp, svisnz);
d                 894 lj_crecord.c     CType *d = ctype_raw(cts, id);
d                 901 lj_crecord.c       TRef sp = J->base[1] ? crec_ct_tv(J, d, 0, J->base[1], &rd->argv[1]) :
d                 911 lj_crecord.c   	!lj_cconv_multi_init(cts, d, &rd->argv[1])) {
d                 913 lj_crecord.c       } else if (ctype_isarray(d->info)) {
d                 914 lj_crecord.c         CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                 935 lj_crecord.c       } else if (ctype_isstruct(d->info)) {
d                 936 lj_crecord.c         CTypeID fid = d->sib;
d                 972 lj_crecord.c   	crec_ct_tv(J, d, dp, J->base[1], &rd->argv[1]);
d                 976 lj_crecord.c   	crec_ct_tv(J, d, dp, lj_ir_kint(J, 0), &tv);
d                1016 lj_crecord.c       CType *d;
d                1031 lj_crecord.c       d = ctype_raw(cts, did);
d                1032 lj_crecord.c       if (!(ctype_isnum(d->info) || ctype_isptr(d->info) ||
d                1033 lj_crecord.c   	  ctype_isenum(d->info)))
d                1035 lj_crecord.c       tr = crec_ct_tv(J, d, 0, *base, o);
d                1036 lj_crecord.c       if (ctype_isinteger_or_bool(d->info)) {
d                1037 lj_crecord.c         if (d->size < 4) {
d                1038 lj_crecord.c   	if ((d->info & CTF_UNSIGNED))
d                1039 lj_crecord.c   	  tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_U8 : IRT_U16, 0);
d                1041 lj_crecord.c   	  tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_I8 : IRT_I16,IRCONV_SEXT);
d                1043 lj_crecord.c       } else if (LJ_SOFTFP && ctype_isfp(d->info) && d->size > 4) {
d                1049 lj_crecord.c       if (!ctype_isfp(d->info)) {
d                1065 lj_crecord.c       if (!ctype_isfp(d->info) && ngpr) {
d                1654 lj_crecord.c     CType *d, *ct = lj_ctype_rawref(cts, cdataV(&rd->argv[0])->ctypeid);
d                1659 lj_crecord.c         d = ctype_get(cts, CTID_INT32);
d                1661 lj_crecord.c         d = ctype_get(cts, CTID_DOUBLE);
d                1662 lj_crecord.c       J->base[0] = crec_ct_tv(J, d, 0, J->base[0], &rd->argv[0]);
d                 127 lj_emit_arm.h      lua_assert(r != d);
d                 133 lj_emit_arm.h  	  emit_dm(as, ARMI_MOV, d, r);
d                 135 lj_emit_arm.h  	  emit_dn(as, ARMI_ADD^k, d, r);
d                 151 lj_emit_arm.h      lua_assert(r != d);
d                 162 lj_emit_arm.h  	  emit_dn(as, ARMI_ADD^k2^inv, d, d);
d                 163 lj_emit_arm.h  	  emit_dn(as, ARMI_ADD^k^inv, d, r);
d                 427 lj_parse.c     #define bcemit_AD(fs, o, a, d)		bcemit_INS(fs, BCINS_AD(o, a, d))
d                 113 lj_strscan.c       uint32_t d = (*p != '.' ? *p : *++p); if (d > '9') d += 9;
d                 114 lj_strscan.c       x = (x << 4) + (d & 15);
d                 198 lj_strscan.c         uint32_t d = 10 * ((*p != '.' ? *p : *++p) & 15); p++;
d                 199 lj_strscan.c         *xip++ = d + ((*p != '.' ? *p : *++p) & 15); p++;
d                 276 lj_strscan.c   	uint32_t d = (xi[i] << 6) + cy;
d                 277 lj_strscan.c   	cy = (((d >> 2) * 5243) >> 17); d = d - cy * 100;  /* Div/mod 100. */
d                 278 lj_strscan.c   	xi[i] = (uint8_t)d;
d                 280 lj_strscan.c   	if (d == 0 && i == DPREV(lo)) lo = i;
d                 187 lj_tab.c           ptrdiff_t d = (char *)node - (char *)knode;
d                 188 lj_tab.c           setmref(node->freetop, (Node *)((char *)noderef(knode->freetop) + d));
d                 195 lj_tab.c             setmref(n->next, next == NULL? next : (Node *)((char *)next + d));