view gpf/BIN/cg_386.awk @ 62:98b25a73c57a

l1_cmplx.c: l1s_read_msagc() reconstructed
author Mychaela Falconia <falcon@ivan.Harhan.ORG>
date Sun, 27 Mar 2016 19:14:04 +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 386 asm files
#----------------------------------------------------------------------------- 
/PROC NEAR/{
  s = 0
  print "proc " gensub( /_/, "", 1, $1)
  infunc = 1;
}

/[[:blank:]]call[[:blank:]]/{
  if (infunc)
    print " call " gensub( /_/, "", 1, $2)
}

/ENDP/{
  printf ("end %s %d\n\n", gensub( /_/, "", 1, $1), s + 8 );
  infunc = 0;
}

/sub[[:blank:]]esp,/{
  s = $3
}