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