FreeCalypso > hg > tcs211-pirelli

comparison gpf/BIN/cg_386.awk @ 0:509db1a7b7b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import: leo2moko-r1
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 01 Jun 2015 03:24:05 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:509db1a7b7b8
1 #-----------------------------------------------------------------------------
2 # Project :
3 # Modul :
4 #-----------------------------------------------------------------------------
5 # Copyright 2002 Texas Instruments Berlin, AG
6 # All rights reserved.
7 #
8 # This file is confidential and a trade secret of Texas
9 # Instruments Berlin, AG
10 # The receipt of or possession of this file does not convey
11 # any rights to reproduce or disclose its contents or to
12 # manufacture, use, or sell anything it may describe, in
13 # whole, or in part, without the specific written consent of
14 # Texas Instruments Berlin, AG.
15 #-----------------------------------------------------------------------------
16 #| Purpose : extract stacksize information from 386 asm files
17 #-----------------------------------------------------------------------------
18 /PROC NEAR/{
19 s = 0
20 print "proc " gensub( /_/, "", 1, $1)
21 infunc = 1;
22 }
23
24 /[[:blank:]]call[[:blank:]]/{
25 if (infunc)
26 print " call " gensub( /_/, "", 1, $2)
27 }
28
29 /ENDP/{
30 printf ("end %s %d\n\n", gensub( /_/, "", 1, $1), s + 8 );
31 infunc = 0;
32 }
33
34 /sub[[:blank:]]esp,/{
35 s = $3
36 }
37