Adding support for BeagleBoard.

[mirror_edk2.git] / BeagleBoardPkg / Debugger_scripts / trace32_load_symbols_cygwin.cmm

//\r
// Copyright (c) 2008-2009, Apple Inc. All rights reserved.\r
//  \r
// All rights reserved. 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
  ENTRY &ram_start &ram_size\r
\r
  ;If system is running then stop the execution so we can load symbols.\r
  break\r
  \r
  ;Reset all windows\r
  WINPAGE.RESET\r
  \r
  AREA.Reset\r
  AREA.Create SYMBOL 300. 100.\r
  AREA.View SYMBOL\r
  AREA.Select SYMBOL\r
  SYS.Option BE OFF\r
 \r
  ; Added based on suggestion from Lauterbach support.\r
  MMU.TABLEWALK ON\r
  MMU.ON\r
\r
  GOSUB load_symbols &ram_start &ram_size\r
\r
  ;Open some windows.\r
  WINPOS 83.125 29.063 48. 9. 0. 0. W003\r
  Register\r
\r
  WINPOS 83.25 10. 48. 9. 0. 1. W002\r
  Var.Local\r
  \r
  END\r
\r
find_system_table:\r
  ENTRY &mem_start &mem_size\r
  &mem_ptr=&mem_start+&mem_size\r
  RPT    \r
  (\r
    &mem_ptr=&mem_ptr-0x400000  // 4 MB\r
    &word1=Data.LONG(D:&mem_ptr)\r
    &word2=Data.LONG(D:&mem_ptr+0x04)\r
    IF &word1==0x20494249\r
    (\r
      IF &word2==0x54535953\r
      (\r
        &result=Data.LONG(D:&mem_ptr+0x08)\r
        RETURN &result\r
      )\r
    )\r
  )\r
  WHILE &mem_ptr>&mem_start\r
  &result=0\r
  RETURN &result\r
\r
compare_guid:\r
  ENTRY &guid\r
  IF Data.LONG(D:&guid)==0x49152E77\r
  (\r
    IF Data.LONG(D:&guid+0x04)==0x47641ADA\r
    (\r
      IF Data.LONG(D:&guid+0x08)==0xFE7AA2B7\r
      (\r
        IF Data.LONG(D:&guid+0x0C)==0x8B5ED9FE\r
        (\r
          RETURN 0\r
        )\r
      )\r
    )\r
  )\r
  RETURN 1  \r
\r
find_debug_info_table_header:\r
  ENTRY &system_table\r
  &config_table_entries=Data.LONG(D:&system_table+0x40)\r
  &config_table_pointer=Data.LONG(D:&system_table+0x44)\r
  RPT &config_table_entries\r
  (\r
    GOSUB compare_guid &config_table_pointer\r
    ENTRY &result\r
    IF &result==0\r
    (\r
      &result=Data.LONG(D:&config_table_pointer+0x10)\r
      RETURN &result\r
    )  \r
    &config_table_pointer=&config_table_pointer+0x14\r
  )\r
  RETURN 0;\r
\r
valid_pe_header:\r
  ENTRY &header\r
  IF Data.BYTE(D:&header+0x00)==0x4D\r
  (\r
    IF Data.BYTE(D:&header+0x01)==0x5A\r
    (\r
      IF Data.BYTE(D:&header+0x80)==0x50\r
      (\r
        IF Data.BYTE(D:&header+0x81)==0x45\r
        (\r
          RETURN 1\r
        )\r
      )\r
    )\r
  )\r
  RETURN 0\r
\r
get_file_string:
  ENTRY &stringOffset

  local &string\r
  \r
  &more_string=data.string(d:&stringOffset)

  if (string.len("&more_string")>=128.)
  (
    &string="&string"+"&more_string"
    &stringOffset=&stringOffset+string.len("&more_string")

    //Get remaining file string
    GOSUB get_file_string &stringOffset
    ENTRY &more_string
    &string="&string"+"&more_string"
  )
  else
  (
    &string="&string"+"&more_string"
    &more_string=""
  )\r
  RETURN &string\r
 \r
load_symbol_file:\r
  ENTRY &header &load_address\r
  GOSUB valid_pe_header &header\r
  ENTRY &result\r
 \r
  IF &result==1\r
  (\r
    &debugOffset=Data.LONG(D:&header+0x0128)\r
    &stringOffset=&header+&debugOffset+0x002C\r
    \r
    &stringOffset=&stringOffset+11.\r
\r
    GOSUB get_file_string &stringOffset\r
    ENTRY &filestring\r
  \r
    &filestring="c:"+"&filestring"\r
\r
    PRINT "&filestring 0x" &load_address\r
    Data.load.elf &filestring &load_address /nocode /noclear\r
  )\r
  RETURN\r
\r
pe_headersize:\r
  ENTRY &header;\r
  RETURN Data.LONG(D:&header+0x00AC)\r
\r
load_symbols:\r
  ENTRY &mem_start &mem_size\r
  GOSUB find_system_table &mem_start &mem_size\r
  ENTRY &system_table\r
  GOSUB find_debug_info_table_header &system_table\r
  ENTRY &debug_info_table_header\r
  &debug_info_table=Data.LONG(D:&debug_info_table_header+0x08)\r
  &debug_info_table_size=Data.LONG(D:&debug_info_table_header+0x04)\r
  &index=0\r
  RPT &debug_info_table_size\r
  (\r
    &debug_image_info=Data.LONG(D:&debug_info_table+&index)\r
    IF &debug_image_info==0\r
      RETURN        \r
    &loaded_image_protocol=Data.LONG(D:&debug_image_info+0x04);\r
    &image_base=Data.LONG(D:&loaded_image_protocol+0x20);\r
    GOSUB pe_headersize &image_base\r
    ENTRY &header_size\r
    &image_load_address=&image_base+&header_size\r
    GOSUB load_symbol_file &image_base &image_load_address\r
    &index=&index+0x4\r
  )\r
    \r
  RETURN\r