artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

elf.mes: drop .note section.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-08-13 18:42:53 +02:00
parent 98d4772e3f
commit 403e487d16
1 changed files with 5 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
elf.mes
View file

@ -38,8 +38,8 @@
(define e-phentsize '(0 0))
(define e-phnum '(#x01 #x00))
(define e-shentsize '(0 0))
(define e-shnum '(#x05 #x00))
(define e-shstrndx '(#x04 #x00))
(define e-shnum '(#x04 #x00))
(define e-shstrndx '(#x03 #x00))
(define (elf-header)
(append
@ -140,19 +140,13 @@
(define data
(string->list "Hello, world!\n"))
(define note
'(
#x05 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x02 #x00 #x00 #x00
#\i #\3 #\8 #\6 #x00 #x00 #x00 #x00
))
;;;
;; 1098 sh str table
(define tab
`(
#x00 ,@(string->list ".shstrtab")
#x00 ,@(string->list ".text")
#x00 ,@(string->list ".data")
#x00 ,@(string->list ".note")
#x00 #x00 #x00 #x00
))
@ -244,38 +238,13 @@
sh-data-entsize
))
;; 1130 sh3: .note
(define sh-note-name '(#x17 #x00 #x00 #x00))
(define sh-note-type '(#x07 #x00 #x00 #x00))
(define sh-note-flags '(#x00 #x00 #x00 #x00))
(define sh-note-addr '(#x00 #x00 #x00 #x00))
(define sh-note-offset '(#x84 #x10 #x00 #x00))
(define sh-note-size '(#x14 #x00 #x00 #x00))
(define sh-note-link '(#x00 #x00 #x00 #x00))
(define sh-note-info '(#x00 #x00 #x00 #x00))
(define sh-note-addralign '(#x01 #x00 #x00 #x00))
(define sh-note-entsize '(#x00 #x00 #x00 #x00))
(define sh-note
(append
sh-note-name
sh-note-type
sh-note-flags
sh-note-addr
sh-note-offset
sh-note-size
sh-note-link
sh-note-info
sh-note-addralign
sh-note-entsize
))
;; 1158 sh4: .shstrtab
(define sh-tab-name '(#x01 #x00 #x00 #x00))
(define sh-tab-type '(#x03 #x00 #x00 #x00))
(define sh-tab-flags '(#x00 #x00 #x00 #x00))
(define sh-tab-addr '(#x00 #x00 #x00 #x00))
(define sh-tab-offset '(#x98 #x10 #x00 #x00))
;;(define sh-tab-offset '(#x98 #x10 #x00 #x00))
(define sh-tab-offset '(#x84 #x10 #x00 #x00))
(define sh-tab-size '(#x1d #x00 #x00 #x00))
(define sh-tab-link '(#x00 #x00 #x00 #x00))
(define sh-tab-info '(#x00 #x00 #x00 #x00))
@ -301,7 +270,6 @@
sh-0
sh-text
sh-data
sh-note
sh-tab
))
@ -312,7 +280,6 @@
text
text-free
data
note
tab)))
(set! e-shoff (int->bv32 (section-headers-offset)))
@ -324,11 +291,7 @@
text-free
;;1076 (+ 0804 8000): 0804 9076
data
;;1084
note
;;1098
tab
;;10b8
section-headers
))
(map write-char exe)