1 /*===-- CommonProfiling.c - Profiling support library support -------------===*\
3 |* The LLVM Compiler Infrastructure
5 |* This file is distributed under the University of Illinois Open Source
6 |* License. See LICENSE.TXT for details.
8 |*===----------------------------------------------------------------------===*|
10 |* This file implements functions used by the various different types of
11 |* profiling implementations.
13 \*===----------------------------------------------------------------------===*/
15 #include "Profiling.h"
17 #include <sys/types.h>
22 #if !defined(_MSC_VER) && !defined(__MINGW32__)
29 static char *SavedArgs = 0;
30 static unsigned SavedArgsLength = 0;
32 static const char *OutputFilename = "llvmprof.out";
34 /* save_arguments - Save argc and argv as passed into the program for the file
37 int save_arguments(int argc, const char **argv) {
39 if (SavedArgs || !argv) return argc; /* This can be called multiple times */
41 /* Check to see if there are any arguments passed into the program for the
42 * profiler. If there are, strip them off and remember their settings.
44 while (argc > 1 && !strncmp(argv[1], "-llvmprof-", 10)) {
45 /* Ok, we have an llvmprof argument. Remove it from the arg list and decide
48 const char *Arg = argv[1];
49 memmove((char**)&argv[1], &argv[2], (argc-1)*sizeof(char*));
52 if (!strcmp(Arg, "-llvmprof-output")) {
54 puts("-llvmprof-output requires a filename argument!");
56 OutputFilename = strdup(argv[1]);
57 memmove((char**)&argv[1], &argv[2], (argc-1)*sizeof(char*));
61 printf("Unknown option to the profiler runtime: '%s' - ignored.\n", Arg);
65 for (Length = 0, i = 0; i != (unsigned)argc; ++i)
66 Length += strlen(argv[i])+1;
68 /* Defensively check for a zero length, even though this is unlikely
69 * to happen in practice. This avoids calling malloc() below with a
78 SavedArgs = (char*)malloc(Length);
79 for (Length = 0, i = 0; i != (unsigned)argc; ++i) {
80 unsigned Len = strlen(argv[i]);
81 memcpy(SavedArgs+Length, argv[i], Len);
83 SavedArgs[Length++] = ' ';
86 SavedArgsLength = Length;
93 * Retrieves the file descriptor for the profile file.
96 static int OutFile = -1;
98 /* If this is the first time this function is called, open the output file
99 * for appending, creating it if it does not already exist.
102 OutFile = open(OutputFilename, O_CREAT | O_WRONLY, 0666);
103 lseek(OutFile, 0, SEEK_END); /* O_APPEND prevents seeking */
105 fprintf(stderr, "LLVM profiling runtime: while opening '%s': ",
111 /* Output the command line arguments to the file. */
113 int PTy = ArgumentInfo;
115 if (write(OutFile, &PTy, sizeof(int)) < 0 ||
116 write(OutFile, &SavedArgsLength, sizeof(unsigned)) < 0 ||
117 write(OutFile, SavedArgs, SavedArgsLength) < 0 ) {
118 fprintf(stderr,"error: unable to write to output file.");
121 /* Pad out to a multiple of four bytes */
122 if (SavedArgsLength & 3) {
123 if (write(OutFile, &Zeros, 4-(SavedArgsLength&3)) < 0) {
124 fprintf(stderr,"error: unable to write to output file.");
133 /* write_profiling_data - Write a raw block of profiling counters out to the
134 * llvmprof.out file. Note that we allow programs to be instrumented with
135 * multiple different kinds of instrumentation. For this reason, this function
136 * may be called more than once.
138 void write_profiling_data(enum ProfilingType PT, unsigned *Start,
139 unsigned NumElements) {
141 int outFile = getOutFile();
143 /* Write out this record! */
145 if( write(outFile, &PTy, sizeof(int)) < 0 ||
146 write(outFile, &NumElements, sizeof(unsigned)) < 0 ||
147 write(outFile, Start, NumElements*sizeof(unsigned)) < 0 ) {
148 fprintf(stderr,"error: unable to write to output file.");