FreeCalypso > hg > tcs211-l1-reconst
view gpf/BIN/cg_na7.awk @ 150:cfa5b37d720b
g23m/copyblobs.sh: l1_sync module pair deblobbed
author | Mychaela Falconia <falcon@ivan.Harhan.ORG> |
---|---|
date | Mon, 16 May 2016 04:24:49 +0000 |
parents | 509db1a7b7b8 |
children |
line wrap: on
line source
#----------------------------------------------------------------------------- # Project : # Modul : #----------------------------------------------------------------------------- # Copyright 2002 Texas Instruments Berlin, AG # All rights reserved. # # This file is confidential and a trade secret of Texas # Instruments Berlin, AG # The receipt of or possession of this file does not convey # any rights to reproduce or disclose its contents or to # manufacture, use, or sell anything it may describe, in # whole, or in part, without the specific written consent of # Texas Instruments Berlin, AG. #----------------------------------------------------------------------------- #| Purpose : extract stacksize information from ARM7 asm files #----------------------------------------------------------------------------- /.*FUNCTION DEF: \$/{ if (infunc) printf ("end %s %d\n\n", fn, s+p); infunc = 1; s = 0; p = 0; fn = gensub(/.*\$([^ ]+) .*/, "\\1", 1, $0) print "proc " fn } /BL *\$/{ if (infunc) print " call " gensub(/.*\$(.+).*$/, "\\1", 1, $0) } /FUNCTION VENEER:/{ if (infunc) printf ("end %s %d\n\n", fn, s+p); infunc = 0; } /ADD *SP, #-/{ s = gensub(/.*-([0-9]*).*$/, "\\1", 1, $0) } /PUSH/{ p0 = split($0, foo, ",") p += p0 * 4 } END{ if (infunc) printf ("end %s %d\n\n", fn, s+p); }