Home | History | Annotate | Download | only in LauterbachT32 
      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 &strippedsize &debugdirentryrva &debugtype &debugrva &dwarfsig &elfbase &elfpath &pathoffset
     14   ENTRY &imgstart
     15   
     16   &imgstart=&imgstart
     17   print "TE image found at &imgstart"
     18 
     19   ; determine pe header bytes removed to account for in rva references
     20   &strippedsize=(Data.Long(a:&imgstart+0x4)&0xffff0000)>>16.
     21   &strippedsize=&strippedsize-0x28
     22 
     23   &debugdirentryrva=Data.Long(a:&imgstart+0x20)
     24   if &debugdirentryrva==0
     25   (
     26     print "no debug dir for image at &imgstart"
     27     enddo
     28   )
     29   &debugdirentryrva=&debugdirentryrva-&strippedsize
     30 
     31   &debugtype=Data.Long(a:&imgstart+&debugdirentryrva+0xc)
     32   if (&debugtype!=0xdf)&&(&debugtype!=0x02)
     33   (
     34     print "debug type is not dwarf for image at &imgstart, it's &debugtype"
     35     enddo
     36   )
     37   
     38   &debugrva=Data.Long(a:&imgstart+&debugdirentryrva+0x14)
     39   &debugrva=&debugrva-&strippedsize;
     40   &dwarfsig=Data.Long(a:&imgstart+&debugrva);
     41   if &dwarfsig==0x66727764
     42   (
     43     &pathoffset=0xc
     44   )
     45   else
     46   (
     47     if &dwarfsig==0x3031424E
     48     (
     49       &pathoffset=0x10
     50     )
     51     else
     52     (
     53       print "debug signature not found for image at &imgstart, its &dwarfsig"
     54       enddo
     55     )
     56   )
     57 
     58   &elfpath=Data.String(c:&imgstart+&debugrva+&pathoffset)
     59 
     60   ; elf base is baseofcode (we hope that for TE images it's not baseofdata)
     61   &elfbase=&imgstart+Data.Long(a:&imgstart+0xc)-&strippedsize
     62 
     63   print "found path &elfpath"
     64   ; $fprintf 50, "load /ni /np /a %s &0x%x\n",elfpath,elfbase$;
     65          ON ERROR GOSUB
     66               return
     67   data.load.elf &elfpath &elfbase /NOCODE /NOCLEAR
     68         ON error
     69 
     70 enddo
     71