~ubuntu-branches/ubuntu/trusty/luajit/trusty

« back to all changes in this revision

Viewing changes to src/host/buildvm_peobj.c

Committer: Package Import Robot
Author(s): Enrico Tassi
Date: 2013-05-20 18:08:12 UTC
mfrom: (1.2.2)
Revision ID: package-import@ubuntu.com-20130520180812-h514ggtgxg3nqmxl

Tags: 2.0.1+hotfix1+dfsg-1

* New upsream release
* Packaging moved to git

files added:
.gitignore

debian/dh-lua.conf

src/.gitignore

src/host/.gitignore

src/jit/.gitignore

src/xedkbuild.bat

files removed:
debian/svn-deblayout

files modified:
.pc/multi-arch-path.patch/src/luaconf.h

Makefile

README

debian/changelog

debian/control

debian/patches/multi-arch-path.patch

debian/rules

dynasm/dasm_arm.h

dynasm/dasm_arm.lua

dynasm/dasm_mips.h

dynasm/dasm_mips.lua

dynasm/dasm_ppc.h

dynasm/dasm_ppc.lua

dynasm/dasm_proto.h

dynasm/dasm_x64.lua

dynasm/dasm_x86.h

dynasm/dasm_x86.lua

dynasm/dynasm.lua

etc/luajit.1

etc/luajit.pc

src/Makefile.dep

src/host/buildvm.c

src/host/buildvm.h

src/host/buildvm_asm.c

src/host/buildvm_fold.c

src/host/buildvm_lib.c

src/host/buildvm_peobj.c

src/host/genminilua.lua

src/jit/bc.lua

src/jit/bcsave.lua

src/jit/dis_arm.lua

src/jit/dis_mips.lua

src/jit/dis_mipsel.lua

src/jit/dis_ppc.lua

src/jit/dis_x64.lua

src/jit/dis_x86.lua

src/jit/dump.lua

src/jit/v.lua

src/lib_aux.c

src/lib_base.c

src/lib_bit.c

src/lib_debug.c

src/lib_ffi.c

src/lib_init.c

src/lib_io.c

src/lib_jit.c

src/lib_math.c

src/lib_os.c

src/lib_package.c

src/lib_string.c

src/lib_table.c

src/lj_api.c

src/lj_arch.h

src/lj_asm.c

src/lj_asm.h

src/lj_asm_arm.h

src/lj_asm_mips.h

src/lj_asm_ppc.h

src/lj_asm_x86.h

src/lj_bc.c

src/lj_bc.h

src/lj_bcdump.h

src/lj_bcread.c

src/lj_bcwrite.c

src/lj_carith.c

src/lj_carith.h

src/lj_ccall.c

src/lj_ccall.h

src/lj_ccallback.c

src/lj_ccallback.h

src/lj_cconv.c

src/lj_cconv.h

src/lj_cdata.c

src/lj_cdata.h

src/lj_clib.c

src/lj_clib.h

src/lj_cparse.c

src/lj_cparse.h

src/lj_crecord.c

src/lj_crecord.h

src/lj_ctype.c

src/lj_ctype.h

src/lj_debug.c

src/lj_debug.h

src/lj_def.h

src/lj_dispatch.c

src/lj_dispatch.h

src/lj_emit_arm.h

src/lj_emit_mips.h

src/lj_emit_ppc.h

src/lj_emit_x86.h

src/lj_err.c

src/lj_err.h

src/lj_errmsg.h

src/lj_ff.h

src/lj_ffrecord.c

src/lj_ffrecord.h

src/lj_frame.h

src/lj_func.c

src/lj_func.h

src/lj_gc.c

src/lj_gc.h

src/lj_gdbjit.c

src/lj_gdbjit.h

src/lj_ir.c

src/lj_ir.h

src/lj_ircall.h

src/lj_iropt.h

src/lj_jit.h

src/lj_lex.c

src/lj_lex.h

src/lj_lib.c

src/lj_lib.h

src/lj_load.c

src/lj_mcode.c

src/lj_mcode.h

src/lj_meta.c

src/lj_meta.h

src/lj_obj.c

src/lj_obj.h

src/lj_opt_dce.c

src/lj_opt_fold.c

src/lj_opt_loop.c

src/lj_opt_mem.c

src/lj_opt_narrow.c

src/lj_opt_sink.c

src/lj_opt_split.c

src/lj_parse.c

src/lj_parse.h

src/lj_record.c

src/lj_record.h

src/lj_snap.c

src/lj_snap.h

src/lj_state.c

src/lj_state.h

src/lj_str.c

src/lj_str.h

src/lj_strscan.c

src/lj_strscan.h

src/lj_tab.c

src/lj_tab.h

src/lj_target.h

src/lj_target_arm.h

src/lj_target_mips.h

src/lj_target_ppc.h

src/lj_target_x86.h

src/lj_trace.c

src/lj_trace.h

src/lj_traceerr.h

src/lj_udata.c

src/lj_udata.h

src/lj_vm.h

src/lj_vmevent.c

src/lj_vmevent.h

src/lj_vmmath.c

src/ljamalg.c

src/luaconf.h

src/luajit.c

src/luajit.h

src/lualib.h

src/msvcbuild.bat

src/vm_arm.dasc

src/vm_mips.dasc

src/vm_ppc.dasc

src/vm_ppcspe.dasc

src/vm_x86.dasc

Show diffs side-by-side

added added

removed removed

src/host/buildvm_peobj.c

** LuaJIT VM builder: PE object emitter.

** Only used for building on Windows, since we cannot assume the presence

** of a suitable assembler. The host and target byte order must match.

#include "buildvm.h"

#include "lj_bc.h"

#if LJ_TARGET_X86ORX64

#if LJ_TARGET_X86ORX64 || LJ_TARGET_PPC

/* Context for PE object emitter. */

static char *strtab;

#define PEOBJ_ARCH_TARGET 0x014c

#define PEOBJ_RELOC_REL32 0x14 /* MS: REL32, GNU: DISP32. */

#define PEOBJ_RELOC_DIR32 0x06

#define PEOBJ_RELOC_OFS 0

#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */

#elif LJ_TARGET_X64

#define PEOBJ_ARCH_TARGET 0x8664

#define PEOBJ_RELOC_REL32 0x04 /* MS: REL32, GNU: DISP32. */

#define PEOBJ_RELOC_DIR32 0x02

#define PEOBJ_RELOC_ADDR32NB 0x03

#define PEOBJ_RELOC_OFS 0

#define PEOBJ_TEXT_FLAGS 0x60500020 /* 60=r+x, 50=align16, 20=code. */

#elif LJ_TARGET_PPC

#define PEOBJ_ARCH_TARGET 0x01f2

#define PEOBJ_RELOC_REL32 0x06

#define PEOBJ_RELOC_DIR32 0x02

100

#define PEOBJ_RELOC_OFS (-4)

101

#define PEOBJ_TEXT_FLAGS 0x60400020 /* 60=r+x, 40=align8, 20=code. */

102

#endif

103

104

/* Section numbers (0-based). */

170

180

int i, nrsym;

171

181

union { uint8_t b; uint32_t u; } host_endian;

172

182

173

host_endian.u = 1;

174

if (host_endian.b != LJ_ENDIAN_SELECT(1, 0)) {

175

fprintf(stderr, "Error: different byte order for host and target\n");

176

exit(1);

177

}

178

179

183

sofs = sizeof(PEheader) + PEOBJ_NSECTIONS*sizeof(PEsection);

180

184

181

185

/* Fill in PE sections. */

186

190

pesect[PEOBJ_SECT_TEXT].relocofs = sofs;

187

191

sofs += (pesect[PEOBJ_SECT_TEXT].nreloc = (uint16_t)ctx->nreloc) * PEOBJ_RELOC_SIZE;

188

192

/* Flags: 60 = read+execute, 50 = align16, 20 = code. */

189

pesect[PEOBJ_SECT_TEXT].flags = 0x60500020;

193

pesect[PEOBJ_SECT_TEXT].flags = PEOBJ_TEXT_FLAGS;

190

194

191

195

#if LJ_TARGET_X64

192

196

memcpy(pesect[PEOBJ_SECT_PDATA].name, ".pdata", sizeof(".pdata")-1);

236

240

owrite(ctx, &pesect, sizeof(PEsection)*PEOBJ_NSECTIONS);

237

241

238

242

/* Write .text section. */

243

host_endian.u = 1;

244

if (host_endian.b != LJ_ENDIAN_SELECT(1, 0)) {

245

#if LJ_TARGET_PPC

246

uint32_t *p = (uint32_t *)ctx->code;

247

int n = (int)(ctx->codesz >> 2);

248

for (i = 0; i < n; i++, p++)

249

*p = lj_bswap(*p); /* Byteswap .text section. */

250

#else

251

fprintf(stderr, "Error: different byte order for host and target\n");

252

exit(1);

253

#endif

254

}

239

255

owrite(ctx, ctx->code, ctx->codesz);

240

256

for (i = 0; i < ctx->nreloc; i++) {

241

257

PEreloc reloc;

242

reloc.vaddr = (uint32_t)ctx->reloc[i].ofs;

258

reloc.vaddr = (uint32_t)ctx->reloc[i].ofs + PEOBJ_RELOC_OFS;

243

259

reloc.symidx = 1+2+ctx->reloc[i].sym; /* Reloc syms are after .text sym. */

244

260

reloc.type = ctx->reloc[i].type ? PEOBJ_RELOC_REL32 : PEOBJ_RELOC_DIR32;

245

261

owrite(ctx, &reloc, PEOBJ_RELOC_SIZE);

Older »