diff gpf/BIN/cg_na7.awk @ 0:509db1a7b7b8

initial import: leo2moko-r1
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 01 Jun 2015 03:24:05 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gpf/BIN/cg_na7.awk	Mon Jun 01 03:24:05 2015 +0000
@@ -0,0 +1,51 @@
+#----------------------------------------------------------------------------- 
+#  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);
+}