gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix unwind info for assembler part for OSX.

Browse Source
This commit is contained in:
Mike Pall 2010-03-07 14:29:04 +01:00
parent 88244c6372
commit b4299256cd
4 changed files with 260 additions and 160 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
src/buildvm_x64.h
View File

@ -2375,13 +2375,17 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.align " SZPTR "\n" "\t.align " SZPTR "\n"
"LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE); "LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE);
break; break;
case BUILD_machasm: /* Mental note: never let Apple design an assembler.
** Or a linker. Or a plastic case. But I digress.
*/
case BUILD_machasm: {
int i;
fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n");
fprintf(ctx->fp, fprintf(ctx->fp,
"EH_frame1:\n" "EH_frame1:\n"
"\t.set L$set$0,LECIE1-LSCIE1\n" "\t.set L$set$x,LECIEX-LSCIEX\n"
"\t.long L$set$0\n" "\t.long L$set$x\n"
"LSCIE1:\n" "LSCIEX:\n"
"\t.long 0\n" "\t.long 0\n"
"\t.byte 0x1\n" "\t.byte 0x1\n"
"\t.ascii \"zPR\\0\"\n" "\t.ascii \"zPR\\0\"\n"
@ -2392,34 +2396,51 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */
#if LJ_64 #if LJ_64
"\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n"
#else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
#endif
"\t.byte 0x1b\n" /* pcrel|sdata4 */ "\t.byte 0x1b\n" /* pcrel|sdata4 */
#if LJ_64
"\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n"
#else #else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
"\t.byte 0x1b\n" /* pcrel|sdata4 */
"\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */
#endif #endif
"\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n"
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LECIE1:\n\n"); "LECIEX:\n\n");
for (i = 0; i < ctx->nsym; i++) {
int pi = ctx->perm[i];
int ni = ctx->perm[i+1];
int size = ctx->sym_ofs[ni] - ctx->sym_ofs[pi];
if (ctx->sym_ofs[pi] >= 0 && size > 0) {
char name[80];
if (pi >= ctx->npc) {
char *p;
sprintf(name, "_" LABEL_PREFIX "%s", ctx->globnames[pi - ctx->npc]);
p = strchr(name, '@'); if (p) *p = '\0';
#if LJ_HASJIT
} else {
#else
} else if (!(pi == BC_JFORI || pi == BC_JFORL || pi == BC_JITERL ||
pi == BC_JLOOP || pi == BC_IFORL || pi == BC_IITERL ||
pi == BC_ILOOP)) {
#endif
sprintf(name, "_" LABEL_PREFIX_BC "%s", bc_names[pi]);
}
fprintf(ctx->fp, fprintf(ctx->fp,
"_lj_vm_asm_begin.eh:\n" "%s.eh:\n"
"LSFDE1:\n" "LSFDE%d:\n"
"\t.set L$set$1,LEFDE1-LASFDE1\n" "\t.set L$set$%d,LEFDE%d-LASFDE%d\n"
"\t.long L$set$1\n" "\t.long L$set$%d\n"
"LASFDE1:\n" "LASFDE%d:\n"
"\t.long LASFDE1-EH_frame1\n" "\t.long LASFDE%d-EH_frame1\n"
"\t.long _lj_vm_asm_begin-.\n" "\t.long %s-.\n"
"\t.long %d\n" "\t.long %d\n"
"\t.byte 0\n" /* augmentation length */ "\t.byte 0\n" /* augmentation length */
"\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */
#if LJ_64 #if LJ_64
"\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */
"\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */
"\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */
"\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */
#else #else
"\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/
"\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */
@ -2427,7 +2448,10 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */
#endif #endif
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LEFDE1:\n\n", (int)ctx->codesz, CFRAME_SIZE); "LEFDE%d:\n\n",
name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i);
}
}
#if LJ_64 #if LJ_64
fprintf(ctx->fp, "\t.subsections_via_symbols\n"); fprintf(ctx->fp, "\t.subsections_via_symbols\n");
#else #else
@ -2437,6 +2461,7 @@ static void emit_asm_debug(BuildCtx *ctx)
".indirect_symbol _lj_err_unwind_dwarf\n" ".indirect_symbol _lj_err_unwind_dwarf\n"
".long 0\n"); ".long 0\n");
#endif #endif
}
break; break;
default: /* Difficult for other modes. */ default: /* Difficult for other modes. */
break; break;

67
src/buildvm_x64win.h
View File

@ -2375,13 +2375,17 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.align " SZPTR "\n" "\t.align " SZPTR "\n"
"LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE); "LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE);
break; break;
case BUILD_machasm: /* Mental note: never let Apple design an assembler.
** Or a linker. Or a plastic case. But I digress.
*/
case BUILD_machasm: {
int i;
fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n");
fprintf(ctx->fp, fprintf(ctx->fp,
"EH_frame1:\n" "EH_frame1:\n"
"\t.set L$set$0,LECIE1-LSCIE1\n" "\t.set L$set$x,LECIEX-LSCIEX\n"
"\t.long L$set$0\n" "\t.long L$set$x\n"
"LSCIE1:\n" "LSCIEX:\n"
"\t.long 0\n" "\t.long 0\n"
"\t.byte 0x1\n" "\t.byte 0x1\n"
"\t.ascii \"zPR\\0\"\n" "\t.ascii \"zPR\\0\"\n"
@ -2392,34 +2396,51 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */
#if LJ_64 #if LJ_64
"\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n"
#else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
#endif
"\t.byte 0x1b\n" /* pcrel|sdata4 */ "\t.byte 0x1b\n" /* pcrel|sdata4 */
#if LJ_64
"\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n"
#else #else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
"\t.byte 0x1b\n" /* pcrel|sdata4 */
"\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */
#endif #endif
"\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n"
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LECIE1:\n\n"); "LECIEX:\n\n");
for (i = 0; i < ctx->nsym; i++) {
int pi = ctx->perm[i];
int ni = ctx->perm[i+1];
int size = ctx->sym_ofs[ni] - ctx->sym_ofs[pi];
if (ctx->sym_ofs[pi] >= 0 && size > 0) {
char name[80];
if (pi >= ctx->npc) {
char *p;
sprintf(name, "_" LABEL_PREFIX "%s", ctx->globnames[pi - ctx->npc]);
p = strchr(name, '@'); if (p) *p = '\0';
#if LJ_HASJIT
} else {
#else
} else if (!(pi == BC_JFORI || pi == BC_JFORL || pi == BC_JITERL ||
pi == BC_JLOOP || pi == BC_IFORL || pi == BC_IITERL ||
pi == BC_ILOOP)) {
#endif
sprintf(name, "_" LABEL_PREFIX_BC "%s", bc_names[pi]);
}
fprintf(ctx->fp, fprintf(ctx->fp,
"_lj_vm_asm_begin.eh:\n" "%s.eh:\n"
"LSFDE1:\n" "LSFDE%d:\n"
"\t.set L$set$1,LEFDE1-LASFDE1\n" "\t.set L$set$%d,LEFDE%d-LASFDE%d\n"
"\t.long L$set$1\n" "\t.long L$set$%d\n"
"LASFDE1:\n" "LASFDE%d:\n"
"\t.long LASFDE1-EH_frame1\n" "\t.long LASFDE%d-EH_frame1\n"
"\t.long _lj_vm_asm_begin-.\n" "\t.long %s-.\n"
"\t.long %d\n" "\t.long %d\n"
"\t.byte 0\n" /* augmentation length */ "\t.byte 0\n" /* augmentation length */
"\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */
#if LJ_64 #if LJ_64
"\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */
"\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */
"\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */
"\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */
#else #else
"\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/
"\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */
@ -2427,7 +2448,10 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */
#endif #endif
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LEFDE1:\n\n", (int)ctx->codesz, CFRAME_SIZE); "LEFDE%d:\n\n",
name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i);
}
}
#if LJ_64 #if LJ_64
fprintf(ctx->fp, "\t.subsections_via_symbols\n"); fprintf(ctx->fp, "\t.subsections_via_symbols\n");
#else #else
@ -2437,6 +2461,7 @@ static void emit_asm_debug(BuildCtx *ctx)
".indirect_symbol _lj_err_unwind_dwarf\n" ".indirect_symbol _lj_err_unwind_dwarf\n"
".long 0\n"); ".long 0\n");
#endif #endif
}
break; break;
default: /* Difficult for other modes. */ default: /* Difficult for other modes. */
break; break;

67
src/buildvm_x86.dasc
View File

@ -5093,13 +5093,17 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.align " SZPTR "\n" "\t.align " SZPTR "\n"
"LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE); "LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE);
break; break;
case BUILD_machasm: /* Mental note: never let Apple design an assembler.
** Or a linker. Or a plastic case. But I digress.
*/
case BUILD_machasm: {
int i;
fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n");
fprintf(ctx->fp, fprintf(ctx->fp,
"EH_frame1:\n" "EH_frame1:\n"
"\t.set L$set$0,LECIE1-LSCIE1\n" "\t.set L$set$x,LECIEX-LSCIEX\n"
"\t.long L$set$0\n" "\t.long L$set$x\n"
"LSCIE1:\n" "LSCIEX:\n"
"\t.long 0\n" "\t.long 0\n"
"\t.byte 0x1\n" "\t.byte 0x1\n"
"\t.ascii \"zPR\\0\"\n" "\t.ascii \"zPR\\0\"\n"
@ -5110,34 +5114,51 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */
#if LJ_64 #if LJ_64
"\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n"
#else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
#endif
"\t.byte 0x1b\n" /* pcrel|sdata4 */ "\t.byte 0x1b\n" /* pcrel|sdata4 */
#if LJ_64
"\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n"
#else #else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
"\t.byte 0x1b\n" /* pcrel|sdata4 */
"\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */
#endif #endif
"\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n"
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LECIE1:\n\n"); "LECIEX:\n\n");
for (i = 0; i < ctx->nsym; i++) {
int pi = ctx->perm[i];
int ni = ctx->perm[i+1];
int size = ctx->sym_ofs[ni] - ctx->sym_ofs[pi];
if (ctx->sym_ofs[pi] >= 0 && size > 0) {
char name[80];
if (pi >= ctx->npc) {
char *p;
sprintf(name, "_" LABEL_PREFIX "%s", ctx->globnames[pi - ctx->npc]);
p = strchr(name, '@'); if (p) *p = '\0';
#if LJ_HASJIT
} else {
#else
} else if (!(pi == BC_JFORI || pi == BC_JFORL || pi == BC_JITERL ||
pi == BC_JLOOP || pi == BC_IFORL || pi == BC_IITERL ||
pi == BC_ILOOP)) {
#endif
sprintf(name, "_" LABEL_PREFIX_BC "%s", bc_names[pi]);
}
fprintf(ctx->fp, fprintf(ctx->fp,
"_lj_vm_asm_begin.eh:\n" "%s.eh:\n"
"LSFDE1:\n" "LSFDE%d:\n"
"\t.set L$set$1,LEFDE1-LASFDE1\n" "\t.set L$set$%d,LEFDE%d-LASFDE%d\n"
"\t.long L$set$1\n" "\t.long L$set$%d\n"
"LASFDE1:\n" "LASFDE%d:\n"
"\t.long LASFDE1-EH_frame1\n" "\t.long LASFDE%d-EH_frame1\n"
"\t.long _lj_vm_asm_begin-.\n" "\t.long %s-.\n"
"\t.long %d\n" "\t.long %d\n"
"\t.byte 0\n" /* augmentation length */ "\t.byte 0\n" /* augmentation length */
"\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */
#if LJ_64 #if LJ_64
"\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */
"\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */
"\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */
"\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */
#else #else
"\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/
"\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */
@ -5145,7 +5166,10 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */
#endif #endif
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LEFDE1:\n\n", (int)ctx->codesz, CFRAME_SIZE); "LEFDE%d:\n\n",
name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i);
}
}
#if LJ_64 #if LJ_64
fprintf(ctx->fp, "\t.subsections_via_symbols\n"); fprintf(ctx->fp, "\t.subsections_via_symbols\n");
#else #else
@ -5155,6 +5179,7 @@ static void emit_asm_debug(BuildCtx *ctx)
".indirect_symbol _lj_err_unwind_dwarf\n" ".indirect_symbol _lj_err_unwind_dwarf\n"
".long 0\n"); ".long 0\n");
#endif #endif
}
break; break;
default: /* Difficult for other modes. */ default: /* Difficult for other modes. */
break; break;

67
src/buildvm_x86.h
View File

@ -2503,13 +2503,17 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.align " SZPTR "\n" "\t.align " SZPTR "\n"
"LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE); "LEFDE1:\n\n", LJ_32 ? "_" : "", (int)ctx->codesz, CFRAME_SIZE);
break; break;
case BUILD_machasm: /* Mental note: never let Apple design an assembler.
** Or a linker. Or a plastic case. But I digress.
*/
case BUILD_machasm: {
int i;
fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n"); fprintf(ctx->fp, "\t.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support\n");
fprintf(ctx->fp, fprintf(ctx->fp,
"EH_frame1:\n" "EH_frame1:\n"
"\t.set L$set$0,LECIE1-LSCIE1\n" "\t.set L$set$x,LECIEX-LSCIEX\n"
"\t.long L$set$0\n" "\t.long L$set$x\n"
"LSCIE1:\n" "LSCIEX:\n"
"\t.long 0\n" "\t.long 0\n"
"\t.byte 0x1\n" "\t.byte 0x1\n"
"\t.ascii \"zPR\\0\"\n" "\t.ascii \"zPR\\0\"\n"
@ -2520,34 +2524,51 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */ "\t.byte 0x9b\n" /* indirect|pcrel|sdata4 */
#if LJ_64 #if LJ_64
"\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n" "\t.long _lj_err_unwind_dwarf+4@GOTPCREL\n"
#else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
#endif
"\t.byte 0x1b\n" /* pcrel|sdata4 */ "\t.byte 0x1b\n" /* pcrel|sdata4 */
#if LJ_64
"\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n" "\t.byte 0xc\n\t.byte " REG_SP "\n\t.byte " SZPTR "\n"
#else #else
"\t.long L_lj_err_unwind_dwarf$non_lazy_ptr-.\n"
"\t.byte 0x1b\n" /* pcrel|sdata4 */
"\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */ "\t.byte 0xc\n\t.byte 0x5\n\t.byte 0x4\n" /* esp=5 on 32 bit MACH-O. */
#endif #endif
"\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n" "\t.byte 0x80+" REG_RA "\n\t.byte 0x1\n"
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LECIE1:\n\n"); "LECIEX:\n\n");
for (i = 0; i < ctx->nsym; i++) {
int pi = ctx->perm[i];
int ni = ctx->perm[i+1];
int size = ctx->sym_ofs[ni] - ctx->sym_ofs[pi];
if (ctx->sym_ofs[pi] >= 0 && size > 0) {
char name[80];
if (pi >= ctx->npc) {
char *p;
sprintf(name, "_" LABEL_PREFIX "%s", ctx->globnames[pi - ctx->npc]);
p = strchr(name, '@'); if (p) *p = '\0';
#if LJ_HASJIT
} else {
#else
} else if (!(pi == BC_JFORI || pi == BC_JFORL || pi == BC_JITERL ||
pi == BC_JLOOP || pi == BC_IFORL || pi == BC_IITERL ||
pi == BC_ILOOP)) {
#endif
sprintf(name, "_" LABEL_PREFIX_BC "%s", bc_names[pi]);
}
fprintf(ctx->fp, fprintf(ctx->fp,
"_lj_vm_asm_begin.eh:\n" "%s.eh:\n"
"LSFDE1:\n" "LSFDE%d:\n"
"\t.set L$set$1,LEFDE1-LASFDE1\n" "\t.set L$set$%d,LEFDE%d-LASFDE%d\n"
"\t.long L$set$1\n" "\t.long L$set$%d\n"
"LASFDE1:\n" "LASFDE%d:\n"
"\t.long LASFDE1-EH_frame1\n" "\t.long LASFDE%d-EH_frame1\n"
"\t.long _lj_vm_asm_begin-.\n" "\t.long %s-.\n"
"\t.long %d\n" "\t.long %d\n"
"\t.byte 0\n" /* augmentation length */ "\t.byte 0\n" /* augmentation length */
"\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */ "\t.byte 0xe\n\t.byte %d\n" /* def_cfa_offset */
#if LJ_64 #if LJ_64
"\t.byte 0x86\n\t.uleb128 0x2\n" /* offset rbp */ "\t.byte 0x86\n\t.byte 0x2\n" /* offset rbp */
"\t.byte 0x83\n\t.uleb128 0x3\n" /* offset rbx */ "\t.byte 0x83\n\t.byte 0x3\n" /* offset rbx */
"\t.byte 0x8f\n\t.uleb128 0x4\n" /* offset r15 */ "\t.byte 0x8f\n\t.byte 0x4\n" /* offset r15 */
"\t.byte 0x8e\n\t.uleb128 0x5\n" /* offset r14 */ "\t.byte 0x8e\n\t.byte 0x5\n" /* offset r14 */
#else #else
"\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/ "\t.byte 0x84\n\t.byte 0x2\n" /* offset ebp (4 for MACH-O)*/
"\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */ "\t.byte 0x87\n\t.byte 0x3\n" /* offset edi */
@ -2555,7 +2576,10 @@ static void emit_asm_debug(BuildCtx *ctx)
"\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */ "\t.byte 0x83\n\t.byte 0x5\n" /* offset ebx */
#endif #endif
"\t.align " BSZPTR "\n" "\t.align " BSZPTR "\n"
"LEFDE1:\n\n", (int)ctx->codesz, CFRAME_SIZE); "LEFDE%d:\n\n",
name, i, i, i, i, i, i, i, name, size, CFRAME_SIZE, i);
}
}
#if LJ_64 #if LJ_64
fprintf(ctx->fp, "\t.subsections_via_symbols\n"); fprintf(ctx->fp, "\t.subsections_via_symbols\n");
#else #else
@ -2565,6 +2589,7 @@ static void emit_asm_debug(BuildCtx *ctx)
".indirect_symbol _lj_err_unwind_dwarf\n" ".indirect_symbol _lj_err_unwind_dwarf\n"
".long 0\n"); ".long 0\n");
#endif #endif
}
break; break;
default: /* Difficult for other modes. */ default: /* Difficult for other modes. */
break; break;