src/lj_cconv.h

   1 /*
   2 ** C type conversions.
   3 ** Copyright (C) 2005-2023 Mike Pall. See Copyright Notice in luajit.h
   4 */
   5
   6 #ifndef _LJ_CCONV_H
   7 #define _LJ_CCONV_H
   8
   9 #include "lj_obj.h"
  10 #include "lj_ctype.h"
  11
  12 #if LJ_HASFFI
  13
  14 /* Compressed C type index. ORDER CCX. */
  15 enum {
  16   CCX_B,        /* Bool. */
  17   CCX_I,        /* Integer. */
  18   CCX_F,        /* Floating-point number. */
  19   CCX_C,        /* Complex. */
  20   CCX_V,        /* Vector. */
  21   CCX_P,        /* Pointer. */
  22   CCX_A,        /* Refarray. */
  23   CCX_S         /* Struct/union. */
  24 };
  25
  26 /* Convert C type info to compressed C type index. ORDER CT. ORDER CCX. */
  27 static LJ_AINLINE uint32_t cconv_idx(CTInfo info)
  28 {
  29   uint32_t idx = ((info >> 26) & 15u);  /* Dispatch bits. */
  30   lj_assertX(ctype_type(info) <= CT_MAYCONVERT,
  31              "cannot convert ctype %08x", info);
  32 #if LJ_64
  33   idx = ((uint32_t)(U64x(f436fff5,fff7f021) >> 4*idx) & 15u);
  34 #else
  35   idx = (((idx < 8 ? 0xfff7f021u : 0xf436fff5) >> 4*(idx & 7u)) & 15u);
  36 #endif
  37   lj_assertX(idx < 8, "cannot convert ctype %08x", info);
  38   return idx;
  39 }
  40
  41 #define cconv_idx2(dinfo, sinfo) \
  42   ((cconv_idx((dinfo)) << 3) + cconv_idx((sinfo)))
  43
  44 #define CCX(dst, src)           ((CCX_##dst << 3) + CCX_##src)
  45
  46 /* Conversion flags. */
  47 #define CCF_CAST        0x00000001u
  48 #define CCF_FROMTV      0x00000002u
  49 #define CCF_SAME        0x00000004u
  50 #define CCF_IGNQUAL     0x00000008u
  51
  52 #define CCF_ARG_SHIFT   8
  53 #define CCF_ARG(n)      ((n) << CCF_ARG_SHIFT)
  54 #define CCF_GETARG(f)   ((f) >> CCF_ARG_SHIFT)
  55
  56 LJ_FUNC int lj_cconv_compatptr(CTState *cts, CType *d, CType *s, CTInfo flags);
  57 LJ_FUNC void lj_cconv_ct_ct(CTState *cts, CType *d, CType *s,
  58                             uint8_t *dp, uint8_t *sp, CTInfo flags);
  59 LJ_FUNC int lj_cconv_tv_ct(CTState *cts, CType *s, CTypeID sid,
  60                            TValue *o, uint8_t *sp);
  61 LJ_FUNC int lj_cconv_tv_bf(CTState *cts, CType *s, TValue *o, uint8_t *sp);
  62 LJ_FUNC void lj_cconv_ct_tv(CTState *cts, CType *d,
  63                             uint8_t *dp, TValue *o, CTInfo flags);
  64 LJ_FUNC void lj_cconv_bf_tv(CTState *cts, CType *d, uint8_t *dp, TValue *o);
  65 LJ_FUNC int lj_cconv_multi_init(CTState *cts, CType *d, TValue *o);
  66 LJ_FUNC void lj_cconv_ct_init(CTState *cts, CType *d, CTSize sz,
  67                               uint8_t *dp, TValue *o, MSize len);
  68
  69 #endif
  70
  71 #endif