EmbeddedPkg: Rectify file modes

[mirror_edk2.git] / EmbeddedPkg / Scripts / LauterbachT32 / EfiProcessTeImage.cmm

;\r
; Copyright (c) 2011, Hewlett-Packard Company. All rights reserved.<BR>\r
; \r
; This program and the accompanying materials                          \r
; are licensed and made available under the terms and conditions of the BSD License         \r
; which accompanies this distribution.  The full text of the license may be found at        \r
; http://opensource.org/licenses/bsd-license.php                                            \r
; \r
; THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,                     \r
; WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.             \r
; \r
\r
  LOCAL &imgstart &strippedsize &debugdirentryrva &debugtype &debugrva &dwarfsig &elfbase &elfpath &pathoffset\r
  ENTRY &imgstart\r
  \r
  &imgstart=&imgstart\r
  print "TE image found at &imgstart"\r
\r
  ; determine pe header bytes removed to account for in rva references\r
  &strippedsize=(Data.Long(a:&imgstart+0x4)&0xffff0000)>>16.\r
  &strippedsize=&strippedsize-0x28\r
\r
  &debugdirentryrva=Data.Long(a:&imgstart+0x20)\r
  if &debugdirentryrva==0\r
  (\r
    print "no debug dir for image at &imgstart"\r
    enddo\r
  )\r
  &debugdirentryrva=&debugdirentryrva-&strippedsize\r
\r
  &debugtype=Data.Long(a:&imgstart+&debugdirentryrva+0xc)\r
  if (&debugtype!=0xdf)&&(&debugtype!=0x02)\r
  (\r
    print "debug type is not dwarf for image at &imgstart, it's &debugtype"\r
    enddo\r
  )\r
  \r
  &debugrva=Data.Long(a:&imgstart+&debugdirentryrva+0x14)\r
  &debugrva=&debugrva-&strippedsize;\r
  &dwarfsig=Data.Long(a:&imgstart+&debugrva);\r
  if &dwarfsig==0x66727764\r
  (\r
    &pathoffset=0xc\r
  )\r
  else\r
  (\r
    if &dwarfsig==0x3031424E\r
    (\r
      &pathoffset=0x10\r
    )\r
    else\r
    (\r
      print "debug signature not found for image at &imgstart, its &dwarfsig"\r
      enddo\r
    )\r
  )\r
\r
  &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset)\r
\r
  ; elf base is baseofcode (we hope that for TE images it's not baseofdata)\r
  &elfbase=&imgstart+Data.Long(a:&imgstart+0xc)-&strippedsize\r
\r
  print "found path &elfpath"\r
  ; $fprintf 50, "load /ni /np /a %s &0x%x\n",elfpath,elfbase$;\r
         ON ERROR GOSUB\r
              return\r
  data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR\r
        ON error\r
\r
enddo\r