2 ; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR>
4 ; SPDX-License-Identifier: BSD-2-Clause-Patent
7 LOCAL &imgstart &filehdrstart &debugdirentryrva &debugtype &debugrva &dwarfsig &baseofcode &baseofdata &elfbase &elfpath &pathoffset
11 print "PE32 image found at &imgstart"
13 ; offset from dos hdr to PE file hdr
14 &filehdrstart=&imgstart+Data.Long(c:&imgstart+0x3C)
16 ; offset to debug dir in PE hdrs
17 &debugdirentryrva=Data.Long(c:&filehdrstart+0xA8)
18 if &debugdirentryrva==0
20 print "no debug dir for image at &imgstart"
24 &debugtype=Data.Long(c:&imgstart+&debugdirentryrva+0xc)
25 if (&debugtype!=0xdf)&&(&debugtype!=0x02)
27 print "debug type is not dwarf for image at &imgstart, it's &debugtype"
31 &debugrva=Data.Long(c:&imgstart+&debugdirentryrva+0x14)
32 &dwarfsig=Data.Long(c:&imgstart+&debugrva)
34 if &dwarfsig==0x66727764
40 if &dwarfsig==0x3031424E
46 print "debug signature not found for image at &imgstart, its &dwarfsig"
51 &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset)
53 &baseofcode=&imgstart+Data.Long(c:&filehdrstart+0x28)
54 &baseofdata=&imgstart+Data.Long(c:&filehdrstart+0x2c)
56 if (&baseofcode<&baseofdata)&&(&baseofcode!=0)
65 print "found path &elfpath"
68 data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR