Mercurial

comparison third_party/luajit/src/lj_cconv.h @ 186:8cf4ec5e2191 hg-web

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed merge conflict.
author MrJuneJune <me@mrjunejune.com>
date Fri, 23 Jan 2026 22:38:59 -0800
parents 94705b5986b3
children
comparison
equal deleted inserted replaced
176:fed99fc04e12 186:8cf4ec5e2191
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