summaryrefslogtreecommitdiff
path: root/EmbeddedPkg/Scripts/LauterbachT32/EfiProcessTeImage.cmm
blob: 9347c9c35b93f04112a05daf846072987a26cca1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
;
; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR>
; 
; This program and the accompanying materials                          
; are licensed and made available under the terms and conditions of the BSD License         
; which accompanies this distribution.  The full text of the license may be found at        
; http://opensource.org/licenses/bsd-license.php                                            
; 
; THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,                     
; WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.             
; 

  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