FreeCalypso > hg > tcs211-l1-reconst
view gpf/BIN/cg_na7.awk @ 316:ec71c9658110
l1p_ctl.c: reconstruction complete, perfect match to original TCS211 object
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Wed, 04 Oct 2017 04:30:05 +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); }