OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [gprof/] [gen-c-prog.awk] - Blame information for rev 128

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 khays
NR == 1 {
2
    FS="\"";
3
    print "/* ==> Do not modify this file!!  It is created automatically"
4
    printf "   from %s using the gen-c-prog.awk script.  <== */\n\n", FILE
5
    print "#include <stdio.h>"
6
    print "#include \"ansidecl.h\""
7
}
8
 
9
        {
10
          if (curfun != FUNCTION)
11
            {
12
              if (curfun)
13
                print "}"
14
              curfun = FUNCTION
15
              print ""
16
              print "void ", FUNCTION, "(FILE *);"
17
              print "void";
18
              printf "%s (file)\n", FUNCTION
19
              print "     FILE *file;";
20
              print "{";
21
            }
22
          printf "  fputs (\"";
23
          for (i = 1; i < NF; i++)
24
            printf "%s\\\"", $i;
25
          printf "%s\\n\", file);\n", $NF;
26
}
27
 
28
END     { print "}" }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.