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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gprof/] [gen-c-prog.awk] - Diff between revs 156 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 156 Rev 816
NR == 1 {
NR == 1 {
    FS="\"";
    FS="\"";
    print "/* ==> Do not modify this file!!  It is created automatically"
    print "/* ==> Do not modify this file!!  It is created automatically"
    printf "   from %s using the gen-c-prog.awk script.  <== */\n\n", FILE
    printf "   from %s using the gen-c-prog.awk script.  <== */\n\n", FILE
    print "#include <stdio.h>"
    print "#include <stdio.h>"
    print "#include \"ansidecl.h\""
    print "#include \"ansidecl.h\""
}
}
 
 
        {
        {
          if (curfun != FUNCTION)
          if (curfun != FUNCTION)
            {
            {
              if (curfun)
              if (curfun)
                print "}"
                print "}"
              curfun = FUNCTION
              curfun = FUNCTION
              print ""
              print ""
              print "void ", FUNCTION, "(FILE *);"
              print "void ", FUNCTION, "(FILE *);"
              print "void";
              print "void";
              printf "%s (file)\n", FUNCTION
              printf "%s (file)\n", FUNCTION
              print "     FILE *file;";
              print "     FILE *file;";
              print "{";
              print "{";
            }
            }
          printf "  fputs (\"";
          printf "  fputs (\"";
          for (i = 1; i < NF; i++)
          for (i = 1; i < NF; i++)
            printf "%s\\\"", $i;
            printf "%s\\\"", $i;
          printf "%s\\n\", file);\n", $NF;
          printf "%s\\n\", file);\n", $NF;
}
}
 
 
END     { print "}" }
END     { print "}" }
 
 

powered by: WebSVN 2.1.0

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