One Level Up Top Level

src/lj_ccall.h - luajit-2.0-src

Global variables defined

Data types defined

Macros defined

Source code

  1. /*
  2. ** FFI C call handling.
  3. ** Copyright (C) 2005-2015 Mike Pall. See Copyright Notice in luajit.h
  4. */

  6. #ifndef _LJ_CCALL_H
  7. ‌#define _LJ_CCALL_H

  9. #include "lj_obj.h"
  10. #include "lj_ctype.h"

  12. #if LJ_HASFFI

  14. /* -- C calling conventions ----------------------------------------------- */

  16. #if LJ_TARGET_X86ORX64

  18. #if LJ_TARGET_X86
  19. ‌#define CCALL_NARG_GPR                2        /* For fastcall arguments. */
  20. ‌#define CCALL_NARG_FPR                0
  21. ‌#define CCALL_NRET_GPR                2
  22. ‌#define CCALL_NRET_FPR                1        /* For FP results on x87 stack. */
  23. ‌#define CCALL_ALIGN_STACKARG        0        /* Don't align argument on stack. */
  24. #elif LJ_ABI_WIN
  25. ‌#define CCALL_NARG_GPR                4
  26. ‌#define CCALL_NARG_FPR                4
  27. ‌#define CCALL_NRET_GPR                1
  28. ‌#define CCALL_NRET_FPR                1
  29. ‌#define CCALL_SPS_EXTRA                4
  30. #else
  31. ‌#define CCALL_NARG_GPR                6
  32. ‌#define CCALL_NARG_FPR                8
  33. ‌#define CCALL_NRET_GPR                2
  34. ‌#define CCALL_NRET_FPR                2
  35. ‌#define CCALL_VECTOR_REG        1        /* Pass vectors in registers. */
  36. #endif

  38. ‌#define CCALL_SPS_FREE                1
  39. ‌#define CCALL_ALIGN_CALLSTATE        16

  41. ‌typedef LJ_ALIGN(16) union FPRArg {
  42.   double d[2];
  43.   float f[4];
  44.   uint8_t b[16];
  45.   uint16_t s[8];
  46.   int i[4];
  47.   int64_t l[2];
  48. ‌} FPRArg;

  50. ‌typedef intptr_t GPRArg;

  52. #elif LJ_TARGET_ARM

  54. ‌#define CCALL_NARG_GPR                4
  55. ‌#define CCALL_NRET_GPR                2        /* For softfp double. */
  56. #if LJ_ABI_SOFTFP
  57. ‌#define CCALL_NARG_FPR                0
  58. ‌#define CCALL_NRET_FPR                0
  59. #else
  60. ‌#define CCALL_NARG_FPR                8
  61. ‌#define CCALL_NRET_FPR                4
  62. #endif
  63. ‌#define CCALL_SPS_FREE                0

  65. ‌typedef intptr_t GPRArg;
  66. ‌typedef union FPRArg {
  67.   double d;
  68.   float f[2];
  69. ‌} FPRArg;

  71. #elif LJ_TARGET_ARM64

  73. ‌#define CCALL_NARG_GPR                8
  74. ‌#define CCALL_NRET_GPR                2
  75. ‌#define CCALL_NARG_FPR                8
  76. ‌#define CCALL_NRET_FPR                4
  77. ‌#define CCALL_SPS_FREE                0

  79. ‌typedef intptr_t GPRArg;
  80. ‌typedef union FPRArg {
  81.   double d;
  82.   float f;
  83.   uint32_t u32;
  84. ‌} FPRArg;

  86. #elif LJ_TARGET_PPC

  88. ‌#define CCALL_NARG_GPR                8
  89. ‌#define CCALL_NARG_FPR                8
  90. ‌#define CCALL_NRET_GPR                4        /* For complex double. */
  91. ‌#define CCALL_NRET_FPR                1
  92. ‌#define CCALL_SPS_EXTRA                4
  93. ‌#define CCALL_SPS_FREE                0

  95. ‌typedef intptr_t GPRArg;
  96. ‌typedef double FPRArg;

  98. #elif LJ_TARGET_MIPS

  100. ‌#define CCALL_NARG_GPR                4
  101. ‌#define CCALL_NARG_FPR                2
  102. ‌#define CCALL_NRET_GPR                2
  103. ‌#define CCALL_NRET_FPR                2
  104. ‌#define CCALL_SPS_EXTRA                7
  105. ‌#define CCALL_SPS_FREE                1

  107. ‌typedef intptr_t GPRArg;
  108. ‌typedef union FPRArg {
  109.   double d;
  110.   struct { LJ_ENDIAN_LOHI(float f; , float g;) };
  111. ‌} FPRArg;

  113. #else
  114. #error "Missing calling convention definitions for this architecture"
  115. #endif

  117. #ifndef CCALL_SPS_EXTRA
  118. ‌#define CCALL_SPS_EXTRA                0
  119. #endif
  120. #ifndef CCALL_VECTOR_REG
  121. ‌#define CCALL_VECTOR_REG        0
  122. #endif
  123. #ifndef CCALL_ALIGN_STACKARG
  124. ‌#define CCALL_ALIGN_STACKARG        1
  125. #endif
  126. #ifndef CCALL_ALIGN_CALLSTATE
  127. ‌#define CCALL_ALIGN_CALLSTATE        8
  128. #endif

  130. ‌#define CCALL_NUM_GPR \
  131.   (CCALL_NARG_GPR > CCALL_NRET_GPR ? CCALL_NARG_GPR : CCALL_NRET_GPR)
  132. ‌#define CCALL_NUM_FPR \
  133.   (CCALL_NARG_FPR > CCALL_NRET_FPR ? CCALL_NARG_FPR : CCALL_NRET_FPR)

  135. /* Check against constants in lj_ctype.h. */
  136. LJ_STATIC_ASSERT(CCALL_NUM_GPR <= CCALL_MAX_GPR);
  137. LJ_STATIC_ASSERT(CCALL_NUM_FPR <= CCALL_MAX_FPR);

  139. ‌#define CCALL_MAXSTACK                32

  141. /* -- C call state -------------------------------------------------------- */

  143. ‌typedef LJ_ALIGN(CCALL_ALIGN_CALLSTATE) struct CCallState {
  144.   void (*func)(void);                /* Pointer to called function. */
  145.   uint32_t spadj;                /* Stack pointer adjustment. */
  146.   uint8_t nsp;                        /* Number of stack slots. */
  147.   uint8_t retref;                /* Return value by reference. */
  148. #if LJ_TARGET_X64
  149.   uint8_t ngpr;                        /* Number of arguments in GPRs. */
  150.   uint8_t nfpr;                        /* Number of arguments in FPRs. */
  151. #elif LJ_TARGET_X86
  152.   uint8_t resx87;                /* Result on x87 stack: 1:float, 2:double. */
  153. #elif LJ_TARGET_ARM64
  154.   void *retp;                        /* Aggregate return pointer in x8. */
  155. #elif LJ_TARGET_PPC
  156.   uint8_t nfpr;                        /* Number of arguments in FPRs. */
  157. #endif
  158. #if LJ_32
  159.   int32_t align1;
  160. #endif
  161. #if CCALL_NUM_FPR
  162.   FPRArg fpr[CCALL_NUM_FPR];        /* Arguments/results in FPRs. */
  163. #endif
  164.   GPRArg gpr[CCALL_NUM_GPR];        /* Arguments/results in GPRs. */
  165.   GPRArg stack[CCALL_MAXSTACK];        /* Stack slots. */
  166. ‌} CCallState;

  168. /* -- C call handling ----------------------------------------------------- */

  170. /* Really belongs to lj_vm.h. */
  171. LJ_ASMF void LJ_FASTCALL lj_vm_ffi_call(CCallState *cc);

  173. LJ_FUNC CTypeID lj_ccall_ctid_vararg(CTState *cts, cTValue *o);
  174. LJ_FUNC int lj_ccall_func(lua_State *L, GCcdata *cd);

  176. #endif

  178. #endif

One Level Up Top Level