EmbeddedPkg: Rectify file modes

[mirror_edk2.git] / EmbeddedPkg / Scripts / LauterbachT32 / EfiLoadDxe.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 &maxmem &systbl &memsize\r
  \r
  &memsize=0x20000000   ; default to 512MB\r
  \r
  gosub FindSystemTable &memsize\r
  ENTRY &systbl\r
  \r
  if &systbl!=0\r
  (\r
    print "found system table at &systbl"\r
    gosub FindDebugInfo &systbl\r
  )\r
  else\r
  (\r
    print "ERROR: system table not found, check memory size"\r
  )\r
  enddo\r
\r
FindSystemTable:\r
  LOCAL   &TopOfRam &offset\r
  ENTRY   &TopOfRam\r
  \r
  print "FindSystemTable"\r
  print "top of mem is &TopOfRam$"\r
  \r
  &offset=&TopOfRam\r
  \r
  ; align to highest 4MB boundary\r
  &offset=&offset&0xFFC00000\r
  \r
  ; start at top and look on 4MB boundaries for system table ptr structure\r
  while &offset>0\r
  (\r
    ; low signature match\r
    if Data.Long(a:&offset)==0x20494249\r
    (\r
      ; high signature match\r
      if Data.Long(a:&offset+4)==0x54535953\r
      (\r
        ; less than 4GB?\r
        if Data.Long(a:&offset+0x0c)==0\r
        (\r
          ; less than top of ram?\r
          if Data.Long(a:&offset+8)<&TopOfRam\r
          (\r
            return Data.Long(a:&offset+8)\r
          )\r
        )\r
      )\r
    )\r
   \r
    if &offset<0x400000\r
    (\r
      return 0\r
    )\r
    &offset=&offset-0x400000\r
  )\r
  \r
  return 0\r
\r
\r
FindDebugInfo:\r
  LOCAL   &SystemTable &CfgTableEntries &ConfigTable &i &offset &dbghdr &dbgentries &dbgptr &dbginfo &loadedimg\r
  ENTRY   &SystemTable\r
  \r
  print "FindDebugInfo"\r
  \r
  &dbgentries=0\r
  &CfgTableEntries=Data.Long(a:&SystemTable+0x40)\r
  &ConfigTable=Data.Long(a:&SystemTable+0x44)\r
  \r
  print "config table is at &ConfigTable (&CfgTableEntries entries)"\r
  \r
  ; now search for debug info entry with guid 49152E77-1ADA-4764-B7A2-7AFEFED95E8B\r
  ;	0x49152E77	0x47641ADA	0xFE7AA2B7	0x8B5ED9FE\r
  &i=0\r
  while &i<&CfgTableEntries\r
  (\r
    &offset=&ConfigTable+(&i*0x14)\r
    if Data.Long(a:&offset)==0x49152E77\r
    (\r
      if Data.Long(a:&offset+4)==0x47641ADA\r
      (\r
        if Data.Long(a:&offset+8)==0xFE7AA2B7\r
        (\r
          if Data.Long(a:&offset+0xc)==0x8B5ED9FE\r
          (\r
            &dbghdr=Data.Long(a:&offset+0x10)\r
            &dbgentries=Data.Long(a:&dbghdr+4)\r
            &dbgptr=Data.Long(a:&dbghdr+8)\r
          )\r
        )\r
      )\r
    )\r
    \r
    &i=&i+1\r
  )\r
  \r
  if &dbgentries==0\r
  (\r
    print "no debug entries found"\r
    return\r
  )\r
  \r
  print "debug table at &dbgptr (&dbgentries entries)"\r
  \r
  symbol.reset\r
  \r
  &i=0\r
  while &i<&dbgentries\r
  (\r
    &dbginfo=Data.Long(a:&dbgptr+(&i*4))\r
    if &dbginfo!=0\r
    (\r
      if Data.Long(a:&dbginfo)==1 ; normal debug info type\r
      (\r
        &loadedimg=Data.Long(a:&dbginfo+4)\r
        do EfiProcessPeImage Data.Long(a:&loadedimg+0x20)\r
      )\r
    )\r
    &i=&i+1\r
  )\r
  return\r