d                 275 host/buildvm_lib.c       double d = strtod(p, &ep);
d                 282 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                 104 lauxlib.h      #define luaL_optstring(L,n,d)	(luaL_optlstring(L, (n), (d), NULL))
d                 106 lauxlib.h      #define luaL_optint(L,n,d)	((int)luaL_optinteger(L, (n), (d)))
d                 108 lauxlib.h      #define luaL_optlong(L,n,d)	((long)luaL_optinteger(L, (n), (d)))
d                 120 lauxlib.h      #define luaL_opt(L,f,n,d)	(lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
d                 400 lib_ffi.c          CType *d = ctype_get(cts, cd->ctypeid);
d                 401 lib_ffi.c          if (ctype_isextern(d->info)) {
d                 404 lib_ffi.c      	d = ctype_child(cts, d);
d                 405 lib_ffi.c      	if (!ctype_isattrib(d->info)) break;
d                 406 lib_ffi.c      	if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size;
d                 408 lib_ffi.c            if (!((d->info|qual) & CTF_CONST)) {
d                 409 lib_ffi.c      	lj_cconv_ct_tv(cts, d, *(void **)cdataptr(cd), o, 0);
d                 534 lib_ffi.c        CType *d = ctype_raw(cts, id);
d                 537 lib_ffi.c        if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || ctype_isenum(d->info)))
d                 540 lib_ffi.c          GCcdata *cd = lj_cdata_new(cts, id, d->size);
d                 541 lib_ffi.c          lj_cconv_ct_tv(cts, d, cdataptr(cd), o, CCF_CAST);
d                 128 lib_io.c         lua_Number d;
d                 129 lib_io.c         if (fscanf(fp, LUA_NUMBER_SCAN, &d) == 1) {
d                 131 lib_io.c             int32_t i = lj_num2int(d);
d                 132 lib_io.c             if (d == (lua_Number)i && !tvismzero((cTValue *)&d)) {
d                 137 lib_io.c           setnumV(L->top++, d);
d                 115 lib_math.c     typedef union { uint64_t u64; double d; } U64double;
d                 143 lib_math.c         u.d = d = d * 3.14159265358979323846 + 2.7182818284590452354;
d                 159 lib_math.c       double d;
d                 162 lib_math.c       d = u.d - 1.0;
d                 178 lib_math.c           d = lj_vm_floor(d*r1) + 1.0;  /* d is an int in range [1, r1] */
d                 192 lib_math.c           d = lj_vm_floor(d*(r2-r1+1.0)) + r1;  /* d is an int in range [r1, r2] */
d                 196 lib_math.c           setintV(L->top-1, lj_num2int(d));
d                 201 lib_math.c       setnumV(L->top++, d);
d                 163 lib_os.c           if (d < 0)
d                 165 lib_os.c           res = d;
d                  56 lj_bc.h          (((BCIns)(o))|((BCIns)(a)<<8)|((BCIns)(d)<<16))
d                 163 lj_ccall.c       if (!ccall_classify_struct(cts, d, rcl, 0)) { \
d                 165 lj_ccall.c         if (ccall_struct_arg(cc, cts, d, rcl, o, narg)) goto err_nyi; \
d                 175 lj_ccall.c         int n2 = ctype_isvector(d->info) ? 1 : n; \
d                 233 lj_ccall.c       isfp = (ccall_classify_struct(cts, d, ct) > 1);
d                 241 lj_ccall.c         if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \
d                 274 lj_ccall.c       if ((d->info & CTF_ALIGN) > CTALIGN_PTR) { \
d                 319 lj_ccall.c         ((double *)dp)[0] = cc->fpr[0].d; \
d                 320 lj_ccall.c         ((double *)dp)[1] = cc->fpr[1].d; \
d                 324 lj_ccall.c       unsigned int cl = ccall_classify_struct(cts, d); \
d                 340 lj_ccall.c         int n2 = ctype_isvector(d->info) ? 1 : n*isfp; \
d                 347 lj_ccall.c           if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \
d                 350 lj_ccall.c         if (!LJ_TARGET_IOS && (d->info & CTF_ALIGN) > CTALIGN_PTR) \
d                 358 lj_ccall.c           if (LJ_TARGET_IOS && d->size < 8) goto err_nyi; \
d                 394 lj_ccall.c         if (ctype_isinteger(d->info) || ctype_isfp(d->info)) \
d                 413 lj_ccall.c           d = ctype_get(cts, CTID_DOUBLE);  /* FPRs always hold doubles. */ \
d                 455 lj_ccall.c         ((double *)dp)[0] = cc->fpr[0].d; \
d                 456 lj_ccall.c         ((double *)dp)[1] = cc->fpr[1].d; \
d                 467 lj_ccall.c       if ((d->info & CTF_ALIGN) > CTALIGN_PTR) \
d                 485 lj_ccall.c         dp = n == 1 ? (void *)&cc->fpr[nfpr].f : (void *)&cc->fpr[nfpr].d; \
d                 542 lj_ccall.c         ((double *)dp)[0] = cc->fpr[0].d; \
d                 543 lj_ccall.c         ((double *)dp)[1] = cc->fpr[1].d; \
d                 694 lj_ccall.c       lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg));
d                 872 lj_ccall.c     	*(double *)((uint8_t *)dp + ofs) = cc->fpr[i].d;
d                 984 lj_ccall.c         CType *d;
d                1000 lj_ccall.c         d = ctype_raw(cts, did);
d                1001 lj_ccall.c         sz = d->size;
d                1004 lj_ccall.c         if (ctype_isnum(d->info)) {
d                1006 lj_ccall.c           if ((d->info & CTF_FP))
d                1008 lj_ccall.c         } else if (ctype_isvector(d->info)) {
d                1013 lj_ccall.c         } else if (ctype_isstruct(d->info)) {
d                1015 lj_ccall.c         } else if (ctype_iscomplex(d->info)) {
d                1026 lj_ccall.c         if (CCALL_ALIGN_STACKARG && !rp && (d->info & CTF_ALIGN) > CTALIGN_PTR) {
d                1027 lj_ccall.c           MSize align = (1u << ctype_align(d->info-CTALIGN_PTR)) -1;
d                1044 lj_ccall.c         lj_cconv_ct_tv(cts, d, (uint8_t *)dp, o, CCF_ARG(narg));
d                1046 lj_ccall.c         if (ctype_isinteger_or_bool(d->info) && d->size < 4) {
d                1047 lj_ccall.c           if (d->info & CTF_UNSIGNED)
d                1048 lj_ccall.c     	*(uint32_t *)dp = d->size == 1 ? (uint32_t)*(uint8_t *)dp :
d                1051 lj_ccall.c     	*(int32_t *)dp = d->size == 1 ? (int32_t)*(int8_t *)dp :
d                1055 lj_ccall.c         if (isfp && d->size == sizeof(float))
d                1059 lj_ccall.c         if ((ctype_isinteger_or_bool(d->info) || ctype_isenum(d->info)
d                1063 lj_ccall.c     	 ) && d->size <= 4) {
d                1079 lj_ccall.c           cc->fpr[nfpr-1].d[0] = cc->fpr[nfpr-2].d[1];  /* Split complex double. */
d                1080 lj_ccall.c           cc->fpr[nfpr-2].d[1] = 0;
d                  67 lj_ccall.h       double d;
d                  81 lj_ccall.h       double d;
d                 109 lj_ccall.h       double d;
d                 125 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                 466 lj_cconv.c       CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                 467 lj_cconv.c       CTSize size = d->size, esize = dc->size, ofs = 0;
d                 475 lj_cconv.c           cconv_err_initov(cts, d);
d                 492 lj_cconv.c       CTypeID id = d->sib;
d                 518 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 531 lj_cconv.c       memset(dp, 0, d->size);  /* Much simpler to clear the struct first. */
d                 532 lj_cconv.c       cconv_substruct_tab(cts, d, dp, t, &i, flags);
d                 569 lj_cconv.c         if (ctype_isenum(d->info)) {  /* Match string against enum constant. */
d                 571 lj_cconv.c           CType *cct = lj_ctype_getfield(cts, d, str, &ofs);
d                 574 lj_cconv.c           lua_assert(d->size == 4);
d                 577 lj_cconv.c         } else if (ctype_isrefarray(d->info)) {  /* Copy string to array. */
d                 578 lj_cconv.c           CType *dc = ctype_rawchild(cts, d);
d                 582 lj_cconv.c           if (d->size != 0 && d->size < sz)
d                 583 lj_cconv.c     	sz = d->size;
d                 592 lj_cconv.c         if (ctype_isarray(d->info)) {
d                 593 lj_cconv.c           cconv_array_tab(cts, d, dp, tabV(o), flags);
d                 595 lj_cconv.c         } else if (ctype_isstruct(d->info)) {
d                 596 lj_cconv.c           cconv_struct_tab(cts, d, dp, tabV(o), flags);
d                 616 lj_cconv.c         void *p = lj_ccallback_new(cts, d, funcV(o));
d                 624 lj_cconv.c         cconv_err_convtv(cts, d, o, flags);
d                 628 lj_cconv.c       if (ctype_isenum(d->info)) d = ctype_child(cts, d);
d                 629 lj_cconv.c       lj_cconv_ct_ct(cts, d, s, dp, sp, flags);
d                 635 lj_cconv.c       CTInfo info = d->info;
d                 672 lj_cconv.c       CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                 676 lj_cconv.c         cconv_err_initov(cts, d);
d                 690 lj_cconv.c       CTypeID id = d->sib;
d                 703 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 707 lj_cconv.c           if ((d->info & CTF_UNION)) break;
d                 718 lj_cconv.c       cconv_substruct_init(cts, d, dp, o, len, &i);
d                 720 lj_cconv.c         cconv_err_initov(cts, d);
d                 729 lj_cconv.c       if (!(ctype_isrefarray(d->info) || ctype_isstruct(d->info)))
d                 731 lj_cconv.c       if (tvistab(o) || (tvisstr(o) && !ctype_isstruct(d->info)))
d                 733 lj_cconv.c       if (tviscdata(o) && lj_ctype_rawref(cts, cdataV(o)->ctypeid) == d)
d                 744 lj_cconv.c       else if (len == 1 && !lj_cconv_multi_init(cts, d, o))
d                 745 lj_cconv.c         lj_cconv_ct_tv(cts, d, dp, o, 0);
d                 746 lj_cconv.c       else if (ctype_isarray(d->info))  /* Also handles valarray init with len>1. */
d                 747 lj_cconv.c         cconv_array_init(cts, d, sz, dp, o, len);
d                 748 lj_cconv.c       else if (ctype_isstruct(d->info))
d                 749 lj_cconv.c         cconv_struct_init(cts, d, sz, dp, o, len);
d                 751 lj_cconv.c         cconv_err_initov(cts, d);
d                 260 lj_cdata.c       if (ctype_isconstval(d->info)) {
d                 262 lj_cdata.c       } else if (ctype_isbitfield(d->info)) {
d                 263 lj_cdata.c         if (((d->info|qual) & CTF_CONST)) goto err_const;
d                 264 lj_cdata.c         lj_cconv_bf_tv(cts, d, dp, o);
d                 269 lj_cdata.c       lua_assert(ctype_ispointer(d->info) || ctype_isfield(d->info));
d                 270 lj_cdata.c       d = ctype_child(cts, d);
d                 273 lj_cdata.c       if (ctype_isref(d->info)) {
d                 274 lj_cdata.c         lua_assert(d->size == CTSIZE_PTR);
d                 276 lj_cdata.c         d = ctype_child(cts, d);
d                 281 lj_cdata.c         if (ctype_isattrib(d->info)) {
d                 282 lj_cdata.c           if (ctype_attrib(d->info) == CTA_QUAL) qual |= d->size;
d                 286 lj_cdata.c         d = ctype_child(cts, d);
d                 289 lj_cdata.c       lua_assert(ctype_hassize(d->info) && !ctype_isvoid(d->info));
d                 291 lj_cdata.c       if (((d->info|qual) & CTF_CONST)) {
d                 296 lj_cdata.c       lj_cconv_ct_tv(cts, d, dp, o, 0);
d                 306 lj_clib.c          CType *d;
d                 309 lj_clib.c            d = ctype_rawchild(cts, ct);
d                 310 lj_clib.c            n += ((d->size + 3) & ~3);
d                 391 lj_crecord.c     IRType dt = crec_ct2irt(ctype_ctsG(J2G(J)), d);
d                 393 lj_crecord.c     CTSize dsize = d->size, ssize = s->size;
d                 394 lj_crecord.c     CTInfo dinfo = d->info, sinfo = s->info;
d                 533 lj_crecord.c       crec_copy(J, dp, sp, lj_ir_kint(J, dsize), d);
d                 625 lj_crecord.c       if (ctype_isenum(d->info)) {  /* Match string against enum constant. */
d                 628 lj_crecord.c         CType *cct = lj_ctype_getfield(cts, d, str, &ofs);
d                 637 lj_crecord.c       } else if (ctype_isrefarray(d->info)) {  /* Copy string to array. */
d                 688 lj_crecord.c     if (ctype_isenum(d->info)) d = ctype_child(cts, d);
d                 689 lj_crecord.c     return crec_ct_ct(J, d, s, dp, sp, svisnz);
d                 959 lj_crecord.c     CType *d = ctype_raw(cts, id);
d                 964 lj_crecord.c       TRef sp = J->base[1] ? crec_ct_tv(J, d, 0, J->base[1], &rd->argv[1]) :
d                 978 lj_crecord.c         sz0 = lj_ctype_vlsize(cts, d, 0);
d                 979 lj_crecord.c         sz1 = lj_ctype_vlsize(cts, d, 1);
d                 999 lj_crecord.c   	!lj_cconv_multi_init(cts, d, &rd->argv[1])) {
d                1001 lj_crecord.c       } else if (ctype_isarray(d->info)) {
d                1002 lj_crecord.c         CType *dc = ctype_rawchild(cts, d);  /* Array element type. */
d                1024 lj_crecord.c       } else if (ctype_isstruct(d->info)) {
d                1025 lj_crecord.c         CTypeID fid = d->sib;
d                1061 lj_crecord.c   	crec_ct_tv(J, d, dp, J->base[1], &rd->argv[1]);
d                1065 lj_crecord.c   	crec_ct_tv(J, d, dp, lj_ir_kint(J, 0), &tv);
d                1106 lj_crecord.c       CType *d;
d                1121 lj_crecord.c       d = ctype_raw(cts, did);
d                1122 lj_crecord.c       if (!(ctype_isnum(d->info) || ctype_isptr(d->info) ||
d                1123 lj_crecord.c   	  ctype_isenum(d->info)))
d                1125 lj_crecord.c       tr = crec_ct_tv(J, d, 0, *base, o);
d                1126 lj_crecord.c       if (ctype_isinteger_or_bool(d->info)) {
d                1127 lj_crecord.c         if (d->size < 4) {
d                1128 lj_crecord.c   	if ((d->info & CTF_UNSIGNED))
d                1129 lj_crecord.c   	  tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_U8 : IRT_U16, 0);
d                1131 lj_crecord.c   	  tr = emitconv(tr, IRT_INT, d->size==1 ? IRT_I8 : IRT_I16,IRCONV_SEXT);
d                1133 lj_crecord.c       } else if (LJ_SOFTFP32 && ctype_isfp(d->info) && d->size > 4) {
d                1139 lj_crecord.c       if (!ctype_isfp(d->info)) {
d                1155 lj_crecord.c       if (!ctype_isfp(d->info) && ngpr) {
d                1872 lj_crecord.c     CType *d, *ct = lj_ctype_rawref(cts, cdataV(&rd->argv[0])->ctypeid);
d                1877 lj_crecord.c         d = ctype_get(cts, CTID_INT32);
d                1879 lj_crecord.c         d = ctype_get(cts, CTID_DOUBLE);
d                1880 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                 429 lj_parse.c     #define bcemit_AD(fs, o, a, d)		bcemit_INS(fs, BCINS_AD(o, a, d))
d                  93 lj_strfmt.c      { uint32_t d = (x*(((1<<sh)+sc-1)/sc))>>sh; x -= d*sc; *p++ = (char)('0'+d); }
d                 210 lj_strfmt.c          uint32_t d;
d                 217 lj_strfmt.c    	d = (c * 205) >> 11; c -= d * 10; *p++ = (char)('0'+d);
d                  70 lj_strfmt_num.c   { uint32_t d = (x*(((1<<sh)+sc-1)/sc))>>sh; x -= d*sc; *p++ = (char)('0'+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                 207 lj_tab.c           ptrdiff_t d = (char *)node - (char *)knode;
d                 208 lj_tab.c           setfreetop(t, node, (Node *)((char *)getfreetop(kt, knode) + d));
d                 215 lj_tab.c             setmref(n->next, next == NULL? next : (Node *)((char *)next + d));