1 /* 2 ** Stack frames. 3 ** Copyright (C) 2005-2014 Mike Pall. See Copyright Notice in luajit.h 4 */ 5 6 #ifndef _LJ_FRAME_H 7 #define _LJ_FRAME_H 8 9 #include "lj_obj.h" 10 #include "lj_bc.h" 11 12 /* -- Lua stack frame ----------------------------------------------------- */ 13 14 /* Frame type markers in callee function slot (callee base-1). */ 15 enum { 16 FRAME_LUA, FRAME_C, FRAME_CONT, FRAME_VARG, 17 FRAME_LUAP, FRAME_CP, FRAME_PCALL, FRAME_PCALLH 18 }; 19 #define FRAME_TYPE 3 20 #define FRAME_P 4 21 #define FRAME_TYPEP (FRAME_TYPE|FRAME_P) 22 23 /* Macros to access and modify Lua frames. */ 24 #define frame_gc(f) (gcref((f)->fr.func)) 25 #define frame_func(f) (&frame_gc(f)->fn) 26 #define frame_ftsz(f) ((f)->fr.tp.ftsz) 27 28 #define frame_type(f) (frame_ftsz(f) & FRAME_TYPE) 29 #define frame_typep(f) (frame_ftsz(f) & FRAME_TYPEP) 30 #define frame_islua(f) (frame_type(f) == FRAME_LUA) 31 #define frame_isc(f) (frame_type(f) == FRAME_C) 32 #define frame_iscont(f) (frame_typep(f) == FRAME_CONT) 33 #define frame_isvarg(f) (frame_typep(f) == FRAME_VARG) 34 #define frame_ispcall(f) ((frame_ftsz(f) & 6) == FRAME_PCALL) 35 36 #define frame_pc(f) (mref((f)->fr.tp.pcr, const BCIns)) 37 #define frame_contpc(f) (frame_pc((f)-1)) 38 #if LJ_64 39 #define frame_contf(f) \ 40 ((ASMFunction)(void *)((intptr_t)lj_vm_asm_begin + \ 41 (intptr_t)(int32_t)((f)-1)->u32.lo)) 42 #else 43 #define frame_contf(f) ((ASMFunction)gcrefp(((f)-1)->gcr, void)) 44 #endif 45 #define frame_delta(f) (frame_ftsz(f) >> 3) 46 #define frame_sized(f) (frame_ftsz(f) & ~FRAME_TYPEP) 47 48 #define frame_prevl(f) ((f) - (1+bc_a(frame_pc(f)[-1]))) 49 #define frame_prevd(f) ((TValue *)((char *)(f) - frame_sized(f))) 50 #define frame_prev(f) (frame_islua(f)?frame_prevl(f):frame_prevd(f)) 51 /* Note: this macro does not skip over FRAME_VARG. */ 52 53 #define setframe_pc(f, pc) (setmref((f)->fr.tp.pcr, (pc))) 54 #define setframe_ftsz(f, sz) ((f)->fr.tp.ftsz = (sz)) 55 #define setframe_gc(f, p) (setgcref((f)->fr.func, (p))) 56 57 /* -- C stack frame ------------------------------------------------------- */ 58 59 /* Macros to access and modify the C stack frame chain. */ 60 61 /* These definitions must match with the arch-specific *.dasc files. */ 62 #if LJ_TARGET_X86 63 #define CFRAME_OFS_ERRF (15*4) 64 #define CFRAME_OFS_NRES (14*4) 65 #define CFRAME_OFS_PREV (13*4) 66 #define CFRAME_OFS_L (12*4) 67 #define CFRAME_OFS_PC (6*4) 68 #define CFRAME_OFS_MULTRES (5*4) 69 #define CFRAME_SIZE (12*4) 70 #define CFRAME_SHIFT_MULTRES 0 71 #elif LJ_TARGET_X64 72 #if LJ_ABI_WIN 73 #define CFRAME_OFS_PREV (13*8) 74 #define CFRAME_OFS_PC (25*4) 75 #define CFRAME_OFS_L (24*4) 76 #define CFRAME_OFS_ERRF (23*4) 77 #define CFRAME_OFS_NRES (22*4) 78 #define CFRAME_OFS_MULTRES (21*4) 79 #define CFRAME_SIZE (10*8) 80 #define CFRAME_SIZE_JIT (CFRAME_SIZE + 9*16 + 4*8) 81 #define CFRAME_SHIFT_MULTRES 0 82 #else 83 #define CFRAME_OFS_PREV (4*8) 84 #define CFRAME_OFS_PC (7*4) 85 #define CFRAME_OFS_L (6*4) 86 #define CFRAME_OFS_ERRF (5*4) 87 #define CFRAME_OFS_NRES (4*4) 88 #define CFRAME_OFS_MULTRES (1*4) 89 #define CFRAME_SIZE (10*8) 90 #define CFRAME_SIZE_JIT (CFRAME_SIZE + 16) 91 #define CFRAME_SHIFT_MULTRES 0 92 #endif 93 #elif LJ_TARGET_ARM 94 #define CFRAME_OFS_ERRF 24 95 #define CFRAME_OFS_NRES 20 96 #define CFRAME_OFS_PREV 16 97 #define CFRAME_OFS_L 12 98 #define CFRAME_OFS_PC 8 99 #define CFRAME_OFS_MULTRES 4 100 #if LJ_ARCH_HASFPU 101 #define CFRAME_SIZE 128 102 #else 103 #define CFRAME_SIZE 64 104 #endif 105 #define CFRAME_SHIFT_MULTRES 3 106 #elif LJ_TARGET_PPC 107 #if LJ_TARGET_XBOX360 108 #define CFRAME_OFS_ERRF 424 109 #define CFRAME_OFS_NRES 420 110 #define CFRAME_OFS_PREV 400 111 #define CFRAME_OFS_L 416 112 #define CFRAME_OFS_PC 412 113 #define CFRAME_OFS_MULTRES 408 114 #define CFRAME_SIZE 384 115 #define CFRAME_SHIFT_MULTRES 3 116 #elif LJ_ARCH_PPC64 117 #define CFRAME_OFS_ERRF 472 118 #define CFRAME_OFS_NRES 468 119 #define CFRAME_OFS_PREV 448 120 #define CFRAME_OFS_L 464 121 #define CFRAME_OFS_PC 460 122 #define CFRAME_OFS_MULTRES 456 123 #define CFRAME_SIZE 400 124 #define CFRAME_SHIFT_MULTRES 3 125 #else 126 #define CFRAME_OFS_ERRF 48 127 #define CFRAME_OFS_NRES 44 128 #define CFRAME_OFS_PREV 40 129 #define CFRAME_OFS_L 36 130 #define CFRAME_OFS_PC 32 131 #define CFRAME_OFS_MULTRES 28 132 #define CFRAME_SIZE 272 133 #define CFRAME_SHIFT_MULTRES 3 134 #endif 135 #elif LJ_TARGET_PPCSPE 136 #define CFRAME_OFS_ERRF 28 137 #define CFRAME_OFS_NRES 24 138 #define CFRAME_OFS_PREV 20 139 #define CFRAME_OFS_L 16 140 #define CFRAME_OFS_PC 12 141 #define CFRAME_OFS_MULTRES 8 142 #define CFRAME_SIZE 184 143 #define CFRAME_SHIFT_MULTRES 3 144 #elif LJ_TARGET_MIPS 145 #define CFRAME_OFS_ERRF 124 146 #define CFRAME_OFS_NRES 120 147 #define CFRAME_OFS_PREV 116 148 #define CFRAME_OFS_L 112 149 #define CFRAME_OFS_PC 20 150 #define CFRAME_OFS_MULTRES 16 151 #define CFRAME_SIZE 112 152 #define CFRAME_SHIFT_MULTRES 3 153 #else 154 #error "Missing CFRAME_* definitions for this architecture" 155 #endif 156 157 #ifndef CFRAME_SIZE_JIT 158 #define CFRAME_SIZE_JIT CFRAME_SIZE 159 #endif 160 161 #define CFRAME_RESUME 1 162 #define CFRAME_UNWIND_FF 2 /* Only used in unwinder. */ 163 #define CFRAME_RAWMASK (~(intptr_t)(CFRAME_RESUME|CFRAME_UNWIND_FF)) 164 165 #define cframe_errfunc(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_ERRF)) 166 #define cframe_nres(cf) (*(int32_t *)(((char *)(cf))+CFRAME_OFS_NRES)) 167 #define cframe_prev(cf) (*(void **)(((char *)(cf))+CFRAME_OFS_PREV)) 168 #define cframe_multres(cf) (*(uint32_t *)(((char *)(cf))+CFRAME_OFS_MULTRES)) 169 #define cframe_multres_n(cf) (cframe_multres((cf)) >> CFRAME_SHIFT_MULTRES) 170 #define cframe_L(cf) \ 171 (&gcref(*(GCRef *)(((char *)(cf))+CFRAME_OFS_L))->th) 172 #define cframe_pc(cf) \ 173 (mref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), const BCIns)) 174 #define setcframe_L(cf, L) \ 175 (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_L), (L))) 176 #define setcframe_pc(cf, pc) \ 177 (setmref(*(MRef *)(((char *)(cf))+CFRAME_OFS_PC), (pc))) 178 #define cframe_canyield(cf) ((intptr_t)(cf) & CFRAME_RESUME) 179 #define cframe_unwind_ff(cf) ((intptr_t)(cf) & CFRAME_UNWIND_FF) 180 #define cframe_raw(cf) ((void *)((intptr_t)(cf) & CFRAME_RAWMASK)) 181 #define cframe_Lpc(L) cframe_pc(cframe_raw(L->cframe)) 182 183 #endif 184