653 lines
17 KiB
C++
653 lines
17 KiB
C++
|
|
macro struct? name
|
|
macro end?.struct?!
|
|
end namespace
|
|
esc end struc
|
|
virtual at 0
|
|
name name
|
|
sizeof.name = $
|
|
end virtual
|
|
purge end?.struct?
|
|
end macro
|
|
esc struc name
|
|
label . : sizeof.name
|
|
namespace .
|
|
end macro
|
|
|
|
struct Elf64_Shdr
|
|
sh_name dd ?
|
|
sh_type dd ?
|
|
sh_flags dq ?
|
|
sh_addr dq ?
|
|
sh_offset dq ?
|
|
sh_size dq ?
|
|
sh_link dd ?
|
|
sh_info dd ?
|
|
sh_addralign dq ?
|
|
sh_entsize dq ?
|
|
end struct
|
|
|
|
struct Elf64_Sym
|
|
st_name dd ?
|
|
st_info db ?
|
|
st_other db ?
|
|
st_shndx dw ?
|
|
st_value dq ?
|
|
st_size dq ?
|
|
end struct
|
|
|
|
struct Elf64_Rel
|
|
r_offset dq ?
|
|
r_info dq ?
|
|
end struct
|
|
|
|
struct Elf64_Rela
|
|
r_offset dq ?
|
|
r_info dq ?
|
|
r_addend dq ?
|
|
end struct
|
|
|
|
struct Elf64_Phdr
|
|
p_type dd ?
|
|
p_flags dd ?
|
|
p_offset dq ?
|
|
p_vaddr dq ?
|
|
p_paddr dq ?
|
|
p_filesz dq ?
|
|
p_memsz dq ?
|
|
p_align dq ?
|
|
end struct
|
|
|
|
purge struct?
|
|
|
|
ELFCLASSNONE = 0
|
|
ELFCLASS32 = 1
|
|
ELFCLASS64 = 2
|
|
|
|
ELFDATANONE = 0
|
|
ELFDATA2LSB = 1
|
|
ELFDATA2MSB = 2
|
|
|
|
ELFOSABI_NONE = 0
|
|
ELFOSABI_HPUX = 1
|
|
ELFOSABI_NETBSD = 2
|
|
ELFOSABI_GNU = 3
|
|
ELFOSABI_LINUX = 3
|
|
ELFOSABI_SOLARIS = 6
|
|
ELFOSABI_AIX = 7
|
|
ELFOSABI_IRIX = 8
|
|
ELFOSABI_FREEBSD = 9
|
|
ELFOSABI_TRU64 = 10
|
|
ELFOSABI_MODESTO = 11
|
|
ELFOSABI_OPENBSD = 12
|
|
ELFOSABI_OPENVMS = 13
|
|
ELFOSABI_NSK = 14
|
|
ELFOSABI_AROS = 15
|
|
ELFOSABI_FENIXOS = 16
|
|
ELFOSABI_CLOUDABI = 17
|
|
ELFOSABI_OPENVOS = 18
|
|
|
|
ET_NONE = 0
|
|
ET_REL = 1
|
|
ET_EXEC = 2
|
|
ET_DYN = 3
|
|
ET_CORE = 4
|
|
ET_LOPROC = 0xff00
|
|
ET_HIPROC = 0xffff
|
|
|
|
EM_NONE = 0
|
|
EM_IA_64 = 50
|
|
EM_X86_64 = 62
|
|
|
|
EV_NONE = 0
|
|
EV_CURRENT = 1
|
|
|
|
SHN_UNDEF = 0
|
|
SHN_LORESERVE = 0xff00
|
|
SHN_LOPROC = 0xff00
|
|
SHN_HIPROC = 0xff1f
|
|
SHN_ABS = 0xfff1
|
|
SHN_COMMON = 0xfff2
|
|
SHN_HIRESERVE = 0xffff
|
|
|
|
SHT_NULL = 0
|
|
SHT_PROGBITS = 1
|
|
SHT_SYMTAB = 2
|
|
SHT_STRTAB = 3
|
|
SHT_RELA = 4
|
|
SHT_HASH = 5
|
|
SHT_DYNAMIC = 6
|
|
SHT_NOTE = 7
|
|
SHT_NOBITS = 8
|
|
SHT_REL = 9
|
|
SHT_SHLIB = 10
|
|
SHT_DYNSYM = 11
|
|
SHT_LOPROC = 0x70000000
|
|
SHT_HIPROC = 0x7fffffff
|
|
SHT_LOUSER = 0x80000000
|
|
SHT_HIUSER = 0xffffffff
|
|
|
|
SHF_WRITE = 0x1
|
|
SHF_ALLOC = 0x2
|
|
SHF_EXECINSTR = 0x4
|
|
SHF_MASKPROC = 0xf0000000
|
|
|
|
STT_NOTYPE = 0
|
|
STT_OBJECT = 1
|
|
STT_FUNC = 2
|
|
STT_SECTION = 3
|
|
STT_FILE = 4
|
|
STT_LOPROC = 13
|
|
STT_HIPROC = 15
|
|
|
|
STB_LOCAL = 0
|
|
STB_GLOBAL = 1
|
|
STB_WEAK = 2
|
|
STB_LOPROC = 13
|
|
STB_HIPROC = 15
|
|
|
|
R_X86_64_NONE = 0
|
|
R_X86_64_64 = 1
|
|
R_X86_64_PC32 = 2
|
|
R_X86_64_GOT32 = 3
|
|
R_X86_64_PLT32 = 4
|
|
R_X86_64_COPY = 5
|
|
R_X86_64_GLOB_DAT = 6
|
|
R_X86_64_JUMP_SLOT = 7
|
|
R_X86_64_RELATIVE = 8
|
|
R_X86_64_GOTPCREL = 9
|
|
R_X86_64_32 = 10
|
|
R_X86_64_32S = 11
|
|
R_X86_64_16 = 12
|
|
R_X86_64_PC16 = 13
|
|
R_X86_64_8 = 14
|
|
R_X86_64_PC8 = 15
|
|
R_X86_64_DPTMOD64 = 16
|
|
R_X86_64_DTPOFF64 = 17
|
|
R_X86_64_TPOFF64 = 18
|
|
R_X86_64_TLSGD = 19
|
|
R_X86_64_TLSLD = 20
|
|
R_X86_64_DTPOFF32 = 21
|
|
R_X86_64_GOTTPOFF = 22
|
|
R_X86_64_TPOFF32 = 23
|
|
R_X86_64_PC64 = 24
|
|
R_X86_64_GOTOFF64 = 25
|
|
R_X86_64_GOTPC32 = 26
|
|
|
|
ELF::
|
|
|
|
namespace ELF
|
|
|
|
if defined Settings.Machine
|
|
MACHINE := Settings.Machine
|
|
else
|
|
MACHINE := EM_X86_64
|
|
end if
|
|
|
|
if defined Settings.ABI
|
|
ABI := Settings.ABI
|
|
else
|
|
ABI := ELFOSABI_NONE
|
|
end if
|
|
|
|
if MACHINE = EM_X86_64
|
|
R_64 = R_X86_64_64
|
|
R_32 = R_X86_64_32S
|
|
R_PC32 = R_X86_64_PC32
|
|
R_PLT32 = R_X86_64_PLT32
|
|
end if
|
|
|
|
Header:
|
|
|
|
e_ident db 0x7F,'ELF',ELFCLASS64,ELFDATA2LSB,EV_CURRENT,ABI,(16-$) dup 0
|
|
e_type dw ET_REL
|
|
e_machine dw MACHINE
|
|
e_version dd EV_CURRENT
|
|
e_entry dq 0
|
|
e_phoff dq 0
|
|
e_shoff dq SECTION_TABLE_OFFSET
|
|
e_flags dd 0
|
|
e_ehsize dw Content
|
|
e_phentsize dw 0
|
|
e_phnum dw 0
|
|
e_shentsize dw sizeof Elf64_Shdr
|
|
e_shnum dw NUMBER_OF_SECTIONS
|
|
e_shstrndx dw STRING_TABLE_SECTION_INDEX
|
|
|
|
Content:
|
|
|
|
virtual at 0
|
|
section_table:: rb NUMBER_OF_SECTIONS * sizeof Elf64_Shdr
|
|
end virtual
|
|
|
|
virtual at 0
|
|
symbol_table:: rb NUMBER_OF_SYMBOLS * sizeof Elf64_Sym
|
|
end virtual
|
|
|
|
virtual at 0
|
|
string_table::
|
|
_null db 0
|
|
_symtab db '.symtab',0
|
|
_strtab db '.strtab',0
|
|
SECTION_NAME_POSITION = $
|
|
rb SECTION_NAME_TABLE_SIZE - $
|
|
STRING_POSITION = $
|
|
rb STRING_TABLE_SIZE - $
|
|
end virtual
|
|
|
|
virtual at 0
|
|
relocations:: rb NUMBER_OF_RELOCATIONS * sizeof Elf64_Rela
|
|
end virtual
|
|
|
|
element relocatable?
|
|
|
|
macro section_org
|
|
local sym
|
|
element sym : relocatable * SECTION_INDEX + SECTION_SYMBOL_INDEX
|
|
SECTION_BASE = sym
|
|
org sym
|
|
end macro
|
|
|
|
RELOCATION_INDEX = 0
|
|
SECTION_INDEX = 1
|
|
SECTION_SYMBOL_INDEX = SECTION_INDEX
|
|
SECTION_RELOCATION_INDEX = RELOCATION_INDEX
|
|
SYMBOL_INDEX = NUMBER_OF_SECTION_SYMBOLS
|
|
|
|
SECTION_OFFSET = $%
|
|
SECTION_ALIGN = 8
|
|
SECTION_NAME = '.flat'
|
|
SECTION_FLAGS = SHF_ALLOC + SHF_WRITE + SHF_EXECINSTR
|
|
DEFINED_SECTION = 0
|
|
section_org
|
|
|
|
end namespace
|
|
|
|
macro section?
|
|
namespace ELF
|
|
|
|
SECTION_SIZE = $% - SECTION_OFFSET
|
|
|
|
if DEFINED_SECTION | SECTION_SIZE > 0
|
|
|
|
store SECTION_OFFSET at section_table : Elf64_Shdr.sh_offset + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SECTION_SIZE at section_table : Elf64_Shdr.sh_size + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SECTION_ALIGN at section_table : Elf64_Shdr.sh_addralign + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SECTION_FLAGS at section_table : Elf64_Shdr.sh_flags + SECTION_INDEX * sizeof Elf64_Shdr
|
|
|
|
if $%% = SECTION_OFFSET
|
|
store SHT_NOBITS at section_table : Elf64_Shdr.sh_type + SECTION_INDEX * sizeof Elf64_Shdr
|
|
section $
|
|
else
|
|
store SHT_PROGBITS at section_table : Elf64_Shdr.sh_type + SECTION_INDEX * sizeof Elf64_Shdr
|
|
UNINITIALIZED_LENGTH = $% - $%%
|
|
section $
|
|
db UNINITIALIZED_LENGTH dup 0
|
|
end if
|
|
|
|
store SECTION_INDEX at symbol_table : Elf64_Sym.st_shndx + SECTION_SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store STT_SECTION + STB_LOCAL shl 4 at symbol_table : Elf64_Sym.st_info + SECTION_SYMBOL_INDEX * sizeof Elf64_Sym
|
|
|
|
if RELOCATION_INDEX > SECTION_RELOCATION_INDEX
|
|
|
|
store RELOCATIONS_OFFSET + SECTION_RELOCATION_INDEX * sizeof Elf64_Rela at section_table : Elf64_Shdr.sh_offset + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store (RELOCATION_INDEX - SECTION_RELOCATION_INDEX) * sizeof Elf64_Rela at section_table : Elf64_Shdr.sh_size + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store SHT_RELA at section_table : Elf64_Shdr.sh_type + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store SYMBOL_TABLE_SECTION_INDEX at section_table : Elf64_Shdr.sh_link + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store SECTION_INDEX at section_table : Elf64_Shdr.sh_info + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store sizeof Elf64_Rela at section_table : Elf64_Shdr.sh_entsize + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store 8 at section_table : Elf64_Shdr.sh_addralign + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
|
|
store SECTION_NAME_POSITION at section_table : Elf64_Shdr.sh_name + (SECTION_INDEX+1) * sizeof Elf64_Shdr
|
|
store SECTION_NAME_POSITION + 5 at section_table : Elf64_Shdr.sh_name + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SECTION_NAME_POSITION + 5 at symbol_table : Elf64_Sym.st_name + SECTION_SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store '.rela' + SECTION_NAME shl (5*8) : 5 + lengthof (string SECTION_NAME) at string_table:SECTION_NAME_POSITION
|
|
SECTION_NAME_POSITION = SECTION_NAME_POSITION + 5 + lengthof (string SECTION_NAME) + 1
|
|
|
|
SECTION_INDEX = SECTION_INDEX + 2
|
|
SECTION_SYMBOL_INDEX = SECTION_SYMBOL_INDEX + 1
|
|
|
|
else
|
|
store SECTION_NAME_POSITION at section_table : Elf64_Shdr.sh_name + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SECTION_NAME_POSITION at symbol_table : Elf64_Sym.st_name + SECTION_SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store SECTION_NAME : lengthof (string SECTION_NAME) at string_table:SECTION_NAME_POSITION
|
|
SECTION_NAME_POSITION = SECTION_NAME_POSITION + lengthof (string SECTION_NAME) + 1
|
|
|
|
SECTION_INDEX = SECTION_INDEX + 1
|
|
SECTION_SYMBOL_INDEX = SECTION_SYMBOL_INDEX + 1
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
end namespace
|
|
end macro
|
|
|
|
macro section? declaration*
|
|
namespace ELF
|
|
|
|
section
|
|
|
|
DEFINED_SECTION = 1
|
|
SECTION_FLAGS = SHF_ALLOC
|
|
SECTION_OFFSET = $%
|
|
SECTION_ALIGN = 8
|
|
|
|
match name attributes, declaration
|
|
|
|
SECTION_NAME = name
|
|
|
|
local seq,list
|
|
match flags =align? boundary, attributes
|
|
SECTION_ALIGN = boundary
|
|
define seq flags
|
|
else match =align? boundary, attributes
|
|
SECTION_ALIGN = boundary
|
|
define seq
|
|
else
|
|
define seq attributes
|
|
end match
|
|
while 1
|
|
match car cdr, seq
|
|
define list car
|
|
define seq cdr
|
|
else
|
|
match any, seq
|
|
define list any
|
|
end match
|
|
break
|
|
end match
|
|
end while
|
|
irpv attribute, list
|
|
match =writeable?, attribute
|
|
SECTION_FLAGS = SECTION_FLAGS or SHF_WRITE
|
|
else match =executable?, attribute
|
|
SECTION_FLAGS = SECTION_FLAGS or SHF_EXECINSTR
|
|
else
|
|
err 'unknown attribute "',`attribute,'"'
|
|
end match
|
|
end irpv
|
|
|
|
else
|
|
|
|
SECTION_NAME = declaration
|
|
|
|
end match
|
|
|
|
section_org
|
|
|
|
SECTION_RELOCATION_INDEX = RELOCATION_INDEX
|
|
|
|
end namespace
|
|
end macro
|
|
|
|
calminstruction align? boundary,value:?
|
|
check ELF.SECTION_ALIGN mod (boundary) = 0
|
|
jyes allowed
|
|
err 'section not aligned enough'
|
|
exit
|
|
allowed:
|
|
compute boundary, (boundary-1)-($-ELF.SECTION_BASE+boundary-1) mod boundary
|
|
arrange value, =db boundary =dup value
|
|
assemble value
|
|
end calminstruction
|
|
|
|
macro public? declaration*
|
|
namespace ELF
|
|
match value =as? str, declaration
|
|
SYMBOL_VALUE = value
|
|
SYMBOL_SIZE = sizeof value
|
|
SYMBOL_NAME = string str
|
|
else
|
|
SYMBOL_VALUE = declaration
|
|
SYMBOL_SIZE = sizeof declaration
|
|
SYMBOL_NAME = `declaration
|
|
end match
|
|
if SYMBOL_VALUE relativeto 1 elementof SYMBOL_VALUE & 1 elementof (1 metadataof SYMBOL_VALUE) relativeto relocatable & 1 scaleof (1 metadataof SYMBOL_VALUE) > 0
|
|
SYMBOL_SECTION_INDEX = 1 scaleof (1 metadataof SYMBOL_VALUE)
|
|
SYMBOL_VALUE = SYMBOL_VALUE - 1 elementof SYMBOL_VALUE
|
|
else
|
|
SYMBOL_SECTION_INDEX = SHN_ABS
|
|
end if
|
|
store STRING_POSITION at symbol_table : Elf64_Sym.st_name + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store SYMBOL_NAME : lengthof SYMBOL_NAME at string_table:STRING_POSITION
|
|
STRING_POSITION = STRING_POSITION + lengthof SYMBOL_NAME + 1
|
|
store SYMBOL_VALUE at symbol_table : Elf64_Sym.st_value + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store SYMBOL_SIZE at symbol_table : Elf64_Sym.st_size + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store SYMBOL_SECTION_INDEX at symbol_table : Elf64_Sym.st_shndx + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
if SYMBOL_SIZE
|
|
store STT_OBJECT + STB_GLOBAL shl 4 at symbol_table : Elf64_Sym.st_info + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
else
|
|
store STT_FUNC + STB_GLOBAL shl 4 at symbol_table : Elf64_Sym.st_info + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
end if
|
|
SYMBOL_INDEX = SYMBOL_INDEX + 1
|
|
end namespace
|
|
end macro
|
|
|
|
macro extrn? declaration*
|
|
namespace ELF
|
|
local sym,psym
|
|
element sym : relocatable * (-1) + SYMBOL_INDEX
|
|
element psym : PLT + SYMBOL_INDEX
|
|
match str =as? name:size, declaration
|
|
label name:size at sym
|
|
label PLT.name at psym
|
|
SYMBOL_NAME = string str
|
|
SYMBOL_SIZE = size
|
|
else match name:size, declaration
|
|
label name:size at sym
|
|
label PLT.name at psym
|
|
SYMBOL_NAME = `name
|
|
SYMBOL_SIZE = size
|
|
else match str =as? name, declaration
|
|
label name at sym
|
|
label PLT.name at psym
|
|
SYMBOL_NAME = string str
|
|
SYMBOL_SIZE = 0
|
|
else
|
|
label declaration at sym
|
|
label PLT.declaration at psym
|
|
SYMBOL_NAME = `declaration
|
|
SYMBOL_SIZE = 0
|
|
end match
|
|
store STRING_POSITION at symbol_table : Elf64_Sym.st_name + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store SYMBOL_NAME : lengthof SYMBOL_NAME at string_table:STRING_POSITION
|
|
STRING_POSITION = STRING_POSITION + lengthof SYMBOL_NAME + 1
|
|
store SYMBOL_SIZE at symbol_table : Elf64_Sym.st_size + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
store STT_NOTYPE + STB_GLOBAL shl 4 at symbol_table : Elf64_Sym.st_info + SYMBOL_INDEX * sizeof Elf64_Sym
|
|
SYMBOL_INDEX = SYMBOL_INDEX + 1
|
|
end namespace
|
|
end macro
|
|
|
|
element PLT?
|
|
|
|
calminstruction calminstruction?.initsym? var*, val&
|
|
publish var, val
|
|
end calminstruction
|
|
|
|
calminstruction calminstruction?.asm? line&
|
|
local name, i
|
|
initsym name, name.0
|
|
match name.i, name
|
|
compute i, i+1
|
|
arrange name, name.i
|
|
publish name, line
|
|
arrange line, =assemble name
|
|
assemble line
|
|
end calminstruction
|
|
|
|
calminstruction dword? value
|
|
compute value, value
|
|
check ~ value relativeto 0 & value relativeto 1 elementof value & 1 elementof (1 metadataof value) relativeto ELF.relocatable
|
|
jyes r_32
|
|
check ~ value relativeto 0 & (value + ELF.SECTION_BASE) relativeto 1 elementof (value + ELF.SECTION_BASE)
|
|
jno plain
|
|
check 1 elementof (1 metadataof (value + ELF.SECTION_BASE)) relativeto ELF.relocatable
|
|
jyes r_pc32
|
|
check 1 elementof (1 metadataof (value + ELF.SECTION_BASE)) relativeto PLT
|
|
jyes r_plt32
|
|
plain:
|
|
emit 4, value
|
|
exit
|
|
local offset, addend, info
|
|
r_32:
|
|
compute offset, $%
|
|
emit 4
|
|
check $% > offset
|
|
jno done
|
|
compute offset, offset - ELF.SECTION_OFFSET
|
|
compute addend, 0 scaleof value
|
|
compute info, ELF.R_32 + (0 scaleof (1 metadataof value)) shl 32
|
|
jump add_relocation
|
|
r_pc32:
|
|
compute offset, $%
|
|
emit 4
|
|
check $% > offset
|
|
jno done
|
|
compute offset, offset - ELF.SECTION_OFFSET
|
|
compute addend, 0 scaleof (value + ELF.SECTION_BASE + offset)
|
|
compute info, ELF.R_PC32 + (0 scaleof (1 metadataof value)) shl 32
|
|
jump add_relocation
|
|
r_plt32:
|
|
compute offset, $%
|
|
emit 4
|
|
check $% > offset
|
|
jno done
|
|
compute offset, offset - ELF.SECTION_OFFSET
|
|
compute addend, 0 scaleof (value + ELF.SECTION_BASE + offset)
|
|
compute info, ELF.R_PLT32 + (0 scaleof (1 metadataof value)) shl 32
|
|
jump add_relocation
|
|
add_relocation:
|
|
local Rela
|
|
compute Rela, ELF.RELOCATION_INDEX * sizeof Elf64_Rela
|
|
asm store offset at ELF.relocations : Rela + Elf64_Rela.r_offset
|
|
asm store addend at ELF.relocations : Rela + Elf64_Rela.r_addend
|
|
asm store info at ELF.relocations : Rela + Elf64_Rela.r_info
|
|
compute ELF.RELOCATION_INDEX, ELF.RELOCATION_INDEX + 1
|
|
done:
|
|
end calminstruction
|
|
|
|
calminstruction qword? value
|
|
compute value, value
|
|
check ~ value relativeto 0 & value relativeto 1 elementof value & 1 elementof (1 metadataof value) relativeto ELF.relocatable
|
|
jyes r_64
|
|
plain:
|
|
emit 8, value
|
|
exit
|
|
local offset, addend, info
|
|
r_64:
|
|
compute offset, $%
|
|
emit 8
|
|
check $% > offset
|
|
jno done
|
|
compute offset, offset - ELF.SECTION_OFFSET
|
|
compute addend, 0 scaleof value
|
|
compute info, ELF.R_64 + (0 scaleof (1 metadataof value)) shl 32
|
|
add_relocation:
|
|
local Rela
|
|
compute Rela, ELF.RELOCATION_INDEX * sizeof Elf64_Rela
|
|
asm store offset at ELF.relocations : Rela + Elf64_Rela.r_offset
|
|
asm store addend at ELF.relocations : Rela + Elf64_Rela.r_addend
|
|
asm store info at ELF.relocations : Rela + Elf64_Rela.r_info
|
|
compute ELF.RELOCATION_INDEX, ELF.RELOCATION_INDEX + 1
|
|
done:
|
|
end calminstruction
|
|
|
|
iterate <dd,dword>, dd,dword, dq,qword
|
|
|
|
calminstruction dd? definitions&
|
|
local value, n
|
|
start:
|
|
match value=,definitions, definitions, ()
|
|
jyes recognize
|
|
match value, definitions
|
|
arrange definitions,
|
|
recognize:
|
|
match n =dup? value, value, ()
|
|
jyes duplicate
|
|
match ?, value
|
|
jyes reserve
|
|
call dword, value
|
|
next:
|
|
match , definitions
|
|
jno start
|
|
take , definitions
|
|
take definitions, definitions
|
|
jyes next
|
|
exit
|
|
reserve:
|
|
emit dword
|
|
jump next
|
|
duplicate:
|
|
match (value), value
|
|
stack:
|
|
check n
|
|
jno next
|
|
take definitions, value
|
|
arrange value, definitions
|
|
compute n, n - 1
|
|
jump stack
|
|
end calminstruction
|
|
|
|
calminstruction (label) dd? definitions&
|
|
local cmd
|
|
arrange cmd, =label label : =dword
|
|
assemble cmd
|
|
arrange cmd, =dd definitions
|
|
assemble cmd
|
|
end calminstruction
|
|
|
|
end iterate
|
|
|
|
postpone
|
|
purge section?
|
|
section
|
|
namespace ELF
|
|
|
|
SECTION_NAME_TABLE_SIZE := SECTION_NAME_POSITION
|
|
STRING_TABLE_SIZE := STRING_POSITION
|
|
|
|
NUMBER_OF_SECTION_SYMBOLS := SECTION_SYMBOL_INDEX
|
|
NUMBER_OF_SYMBOLS := SYMBOL_INDEX
|
|
SYMBOL_TABLE_SIZE := NUMBER_OF_SYMBOLS * sizeof Elf64_Sym
|
|
|
|
NUMBER_OF_RELOCATIONS := RELOCATION_INDEX
|
|
rb (-$%) and 111b
|
|
RELOCATIONS_OFFSET = $%
|
|
load byte_sequence : NUMBER_OF_RELOCATIONS * sizeof Elf64_Rela from relocations:0
|
|
db byte_sequence
|
|
|
|
store _symtab at section_table : Elf64_Shdr.sh_name + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store $% at section_table : Elf64_Shdr.sh_offset + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SYMBOL_TABLE_SIZE at section_table : Elf64_Shdr.sh_size + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store sizeof Elf64_Sym at section_table : Elf64_Shdr.sh_entsize + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store 8 at section_table : Elf64_Shdr.sh_addralign + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SHT_SYMTAB at section_table : Elf64_Shdr.sh_type + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store STRING_TABLE_SECTION_INDEX at section_table : Elf64_Shdr.sh_link + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store NUMBER_OF_SECTION_SYMBOLS at section_table : Elf64_Shdr.sh_info + SECTION_INDEX * sizeof Elf64_Shdr
|
|
SYMBOL_TABLE_SECTION_INDEX := SECTION_INDEX
|
|
load byte_sequence : SYMBOL_TABLE_SIZE from symbol_table:0
|
|
db byte_sequence
|
|
SECTION_INDEX = SECTION_INDEX + 1
|
|
|
|
store _strtab at section_table : Elf64_Shdr.sh_name + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store $% at section_table : Elf64_Shdr.sh_offset + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store STRING_TABLE_SIZE at section_table : Elf64_Shdr.sh_size + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store 1 at section_table : Elf64_Shdr.sh_addralign + SECTION_INDEX * sizeof Elf64_Shdr
|
|
store SHT_STRTAB at section_table : Elf64_Shdr.sh_type + SECTION_INDEX * sizeof Elf64_Shdr
|
|
STRING_TABLE_SECTION_INDEX := SECTION_INDEX
|
|
load byte_sequence : STRING_TABLE_SIZE from string_table:0
|
|
db byte_sequence
|
|
SECTION_INDEX = SECTION_INDEX + 1
|
|
|
|
assert SECTION_INDEX <= SHN_LORESERVE
|
|
|
|
NUMBER_OF_SECTIONS := SECTION_INDEX
|
|
rb (-$%) and 111b
|
|
SECTION_TABLE_OFFSET := $%
|
|
load byte_sequence : NUMBER_OF_SECTIONS * sizeof Elf64_Shdr from section_table:0
|
|
db byte_sequence
|
|
|
|
end namespace
|
|
end postpone
|