BaseTools/BinToPcd: Fix Python 2.7.x compatibility issue
[mirror_edk2.git] / EmbeddedPkg / Scripts / LauterbachT32 / EfiProcessPeImage.cmm
1 ;
2 ; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR>
3 ;
4 ; This program and the accompanying materials
5 ; are licensed and made available under the terms and conditions of the BSD License
6 ; which accompanies this distribution. The full text of the license may be found at
7 ; http://opensource.org/licenses/bsd-license.php
8 ;
9 ; THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,
10 ; WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.
11 ;
12
13 LOCAL &imgstart &filehdrstart &debugdirentryrva &debugtype &debugrva &dwarfsig &baseofcode &baseofdata &elfbase &elfpath &pathoffset
14 ENTRY &imgstart
15
16 &imgstart=&imgstart
17 print "PE32 image found at &imgstart"
18
19 ; offset from dos hdr to PE file hdr
20 &filehdrstart=&imgstart+Data.Long(c:&imgstart+0x3C)
21
22 ; offset to debug dir in PE hdrs
23 &debugdirentryrva=Data.Long(c:&filehdrstart+0xA8)
24 if &debugdirentryrva==0
25 (
26 print "no debug dir for image at &imgstart"
27 enddo
28 )
29
30 &debugtype=Data.Long(c:&imgstart+&debugdirentryrva+0xc)
31 if (&debugtype!=0xdf)&&(&debugtype!=0x02)
32 (
33 print "debug type is not dwarf for image at &imgstart, it's &debugtype"
34 enddo
35 )
36
37 &debugrva=Data.Long(c:&imgstart+&debugdirentryrva+0x14)
38 &dwarfsig=Data.Long(c:&imgstart+&debugrva)
39
40 if &dwarfsig==0x66727764
41 (
42 &pathoffset=0xc
43 )
44 else
45 (
46 if &dwarfsig==0x3031424E
47 (
48 &pathoffset=0x10
49 )
50 else
51 (
52 print "debug signature not found for image at &imgstart, its &dwarfsig"
53 enddo
54 )
55 )
56
57 &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset)
58
59 &baseofcode=&imgstart+Data.Long(c:&filehdrstart+0x28)
60 &baseofdata=&imgstart+Data.Long(c:&filehdrstart+0x2c)
61
62 if (&baseofcode<&baseofdata)&&(&baseofcode!=0)
63 (
64 &elfbase=&baseofcode;
65 )
66 else
67 (
68 &elfbase=&baseofdata;
69 )
70
71 print "found path &elfpath"
72 ON ERROR GOSUB
73 return
74 data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR
75 ON error
76
77 enddo