gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-04-20 05:53:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix PE/COFF bytecode file format for big-endian targets.

Browse Source
This commit is contained in:
Mike Pall 2011-10-19 01:56:44 +02:00
parent a39aac0445
commit 00591a2539
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/bcsave.lua
View File

@ -330,20 +330,18 @@ typedef struct {
} PEobj; } PEobj;
]] ]]
local symname = LJBC_PREFIX..ctx.modname local symname = LJBC_PREFIX..ctx.modname
local is64, isbe = false, false local is64 = false
if ctx.arch == "x86" then if ctx.arch == "x86" then
symname = "_"..symname symname = "_"..symname
elseif ctx.arch == "x64" then elseif ctx.arch == "x64" then
is64 = true is64 = true
elseif ctx.arch == "ppc" or ctx.arch == "ppcspe" then
isbe = true
end end
local symexport = " /EXPORT:"..symname..",DATA " local symexport = " /EXPORT:"..symname..",DATA "
-- Handle different host/target endianess. -- The file format is always little-endian. Swap if the host is big-endian.
local function f32(x) return x end local function f32(x) return x end
local f16 = f32 local f16 = f32
if ffi.abi("be") ~= isbe then if ffi.abi("be") then
f32 = bit.bswap f32 = bit.bswap
function f16(x) return bit.rshift(bit.bswap(x), 16) end function f16(x) return bit.rshift(bit.bswap(x), 16) end
end end
@ -351,7 +349,7 @@ typedef struct {
-- Create PE object and fill in header. -- Create PE object and fill in header.
local o = ffi.new("PEobj") local o = ffi.new("PEobj")
local hdr = o.hdr local hdr = o.hdr
hdr.arch = f16(({ x86=0x14c, x64=0x8664, arm=0x1c0, ppc=0x1f1 })[ctx.arch]) hdr.arch = f16(({ x86=0x14c, x64=0x8664, arm=0x1c0, ppc=0x1f2 })[ctx.arch])
hdr.nsects = f16(2) hdr.nsects = f16(2)
hdr.symtabofs = f32(ffi.offsetof(o, "sym0")) hdr.symtabofs = f32(ffi.offsetof(o, "sym0"))
hdr.nsyms = f32(6) hdr.nsyms = f32(6)