2 ; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR>
4 ; SPDX-License-Identifier: BSD-2-Clause-Patent
7 LOCAL &imgstart &strippedsize &debugdirentryrva &debugtype &debugrva &dwarfsig &elfbase &elfpath &pathoffset
11 print "TE image found at &imgstart"
13 ; determine pe header bytes removed to account for in rva references
14 &strippedsize=(Data.Long(a:&imgstart+0x4)&0xffff0000)>>16.
15 &strippedsize=&strippedsize-0x28
17 &debugdirentryrva=Data.Long(a:&imgstart+0x20)
18 if &debugdirentryrva==0
20 print "no debug dir for image at &imgstart"
23 &debugdirentryrva=&debugdirentryrva-&strippedsize
25 &debugtype=Data.Long(a:&imgstart+&debugdirentryrva+0xc)
26 if (&debugtype!=0xdf)&&(&debugtype!=0x02)
28 print "debug type is not dwarf for image at &imgstart, it's &debugtype"
32 &debugrva=Data.Long(a:&imgstart+&debugdirentryrva+0x14)
33 &debugrva=&debugrva-&strippedsize;
34 &dwarfsig=Data.Long(a:&imgstart+&debugrva);
35 if &dwarfsig==0x66727764
41 if &dwarfsig==0x3031424E
47 print "debug signature not found for image at &imgstart, its &dwarfsig"
52 &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset)
54 ; elf base is baseofcode (we hope that for TE images it's not baseofdata)
55 &elfbase=&imgstart+Data.Long(a:&imgstart+0xc)-&strippedsize
57 print "found path &elfpath"
58 ; $fprintf 50, "load /ni /np /a %s &0x%x\n",elfpath,elfbase$;
61 data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR