| ; | |
| ; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR> | |
| ; | |
| ; SPDX-License-Identifier: BSD-2-Clause-Patent | |
| ; | |
| LOCAL &imgstart &strippedsize &debugdirentryrva &debugtype &debugrva &dwarfsig &elfbase &elfpath &pathoffset | |
| ENTRY &imgstart | |
| &imgstart=&imgstart | |
| print "TE image found at &imgstart" | |
| ; determine pe header bytes removed to account for in rva references | |
| &strippedsize=(Data.Long(a:&imgstart+0x4)&0xffff0000)>>16. | |
| &strippedsize=&strippedsize-0x28 | |
| &debugdirentryrva=Data.Long(a:&imgstart+0x20) | |
| if &debugdirentryrva==0 | |
| ( | |
| print "no debug dir for image at &imgstart" | |
| enddo | |
| ) | |
| &debugdirentryrva=&debugdirentryrva-&strippedsize | |
| &debugtype=Data.Long(a:&imgstart+&debugdirentryrva+0xc) | |
| if (&debugtype!=0xdf)&&(&debugtype!=0x02) | |
| ( | |
| print "debug type is not dwarf for image at &imgstart, it's &debugtype" | |
| enddo | |
| ) | |
| &debugrva=Data.Long(a:&imgstart+&debugdirentryrva+0x14) | |
| &debugrva=&debugrva-&strippedsize; | |
| &dwarfsig=Data.Long(a:&imgstart+&debugrva); | |
| if &dwarfsig==0x66727764 | |
| ( | |
| &pathoffset=0xc | |
| ) | |
| else | |
| ( | |
| if &dwarfsig==0x3031424E | |
| ( | |
| &pathoffset=0x10 | |
| ) | |
| else | |
| ( | |
| print "debug signature not found for image at &imgstart, its &dwarfsig" | |
| enddo | |
| ) | |
| ) | |
| &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset) | |
| ; elf base is baseofcode (we hope that for TE images it's not baseofdata) | |
| &elfbase=&imgstart+Data.Long(a:&imgstart+0xc)-&strippedsize | |
| print "found path &elfpath" | |
| ; $fprintf 50, "load /ni /np /a %s &0x%x\n",elfpath,elfbase$; | |
| ON ERROR GOSUB | |
| return | |
| data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR | |
| ON error | |
| enddo |