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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [testsuite/] [gdb.trace/] [tfile.c] - Blame information for rev 330

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
/* This program does two things; it generates valid trace files, and
2
   it can also be traced so as to test trace file creation from
3
   GDB.  */
4
 
5
#include <stdio.h>
6
#include <string.h>
7
#include <fcntl.h>
8
#include <sys/stat.h>
9
 
10
char spbuf[200];
11
 
12
char trbuf[1000];
13
char *trptr;
14
char *tfsizeptr;
15
 
16
int testglob = 31415;
17
 
18
int testglob2 = 271828;
19
 
20
const int constglob = 10000;
21
 
22
int
23
start_trace_file (char *filename)
24
{
25
  int fd;
26
 
27
  fd = open (filename, O_WRONLY|O_CREAT|O_APPEND,
28
             S_IRUSR|S_IWUSR|S_IRGRP|S_IROTH);
29
 
30
  if (fd < 0)
31
    return fd;
32
 
33
  /* Write a file header, with a high-bit-set char to indicate a
34
     binary file, plus a hint as what this file is, and a version
35
     number in case of future needs.  */
36
  write (fd, "\x7fTRACE0\n", 8);
37
 
38
  return fd;
39
}
40
 
41
void
42
finish_trace_file (int fd)
43
{
44
  close (fd);
45
}
46
 
47
 
48
void
49
add_memory_block (char *addr, int size)
50
{
51
  short short_x;
52
  long long ll_x;
53
 
54
  *((char *) trptr) = 'M';
55
  trptr += 1;
56
  ll_x = (long) addr;
57
  memcpy (trptr, &ll_x, sizeof (long long));
58
  trptr += sizeof (long long);
59
  short_x = size;
60
  memcpy (trptr, &short_x, 2);
61
  trptr += 2;
62
  memcpy (trptr, addr, size);
63
  trptr += size;
64
}
65
 
66
void
67
write_basic_trace_file (void)
68
{
69
  int fd, int_x;
70
  short short_x;
71
 
72
  fd = start_trace_file ("basic.tf");
73
 
74
  /* The next part of the file consists of newline-separated lines
75
     defining status, tracepoints, etc.  The section is terminated by
76
     an empty line.  */
77
 
78
  /* Dump the size of the R (register) blocks in traceframes.  */
79
  snprintf (spbuf, sizeof spbuf, "R %x\n", 500 /* FIXME get from arch */);
80
  write (fd, spbuf, strlen (spbuf));
81
 
82
  /* Dump trace status, in the general form of the qTstatus reply.  */
83
  snprintf (spbuf, sizeof spbuf, "status 0;tstop:0;tframes:1;tcreated:1;tfree:100;tsize:1000\n");
84
  write (fd, spbuf, strlen (spbuf));
85
 
86
  /* Dump tracepoint definitions, in syntax similar to that used
87
     for reconnection uploads.  */
88
  /* FIXME need a portable way to print function address in hex */
89
  snprintf (spbuf, sizeof spbuf, "tp T1:%lx:E:0:0\n",
90
            (long) &write_basic_trace_file);
91
  write (fd, spbuf, strlen (spbuf));
92
  /* (Note that we would only need actions defined if we wanted to
93
     test tdump.) */
94
 
95
  /* Empty line marks the end of the definition section.  */
96
  write (fd, "\n", 1);
97
 
98
  /* Make up a simulated trace buffer.  */
99
  /* (Encapsulate better if we're going to do lots of this; note that
100
     buffer endianness is the target program's enddianness.) */
101
  trptr = trbuf;
102
  short_x = 1;
103
  memcpy (trptr, &short_x, 2);
104
  trptr += 2;
105
  tfsizeptr = trptr;
106
  trptr += 4;
107
  add_memory_block (&testglob, sizeof (testglob));
108
  /* Divide a variable between two separate memory blocks.  */
109
  add_memory_block (&testglob2, 1);
110
  add_memory_block (((char*) &testglob2) + 1, sizeof (testglob2) - 1);
111
  /* Go back and patch in the frame size.  */
112
  int_x = trptr - tfsizeptr - sizeof (int);
113
  memcpy (tfsizeptr, &int_x, 4);
114
 
115
  /* Write end of tracebuffer marker.  */
116
  memset (trptr, 0, 6);
117
  trptr += 6;
118
 
119
  write (fd, trbuf, trptr - trbuf);
120
 
121
  finish_trace_file (fd);
122
}
123
 
124
/* Convert number NIB to a hex digit.  */
125
 
126
static int
127
tohex (int nib)
128
{
129
  if (nib < 10)
130
    return '0' + nib;
131
  else
132
    return 'a' + nib - 10;
133
}
134
 
135
int
136
bin2hex (const char *bin, char *hex, int count)
137
{
138
  int i;
139
 
140
  for (i = 0; i < count; i++)
141
    {
142
      *hex++ = tohex ((*bin >> 4) & 0xf);
143
      *hex++ = tohex (*bin++ & 0xf);
144
    }
145
  *hex = 0;
146
  return i;
147
}
148
 
149
void
150
write_error_trace_file (void)
151
{
152
  int fd;
153
  const char made_up[] = "made-up error";
154
  int len = sizeof (made_up) - 1;
155
  char *hex = alloca (len * 2 + 1);
156
 
157
  fd = start_trace_file ("error.tf");
158
 
159
  /* The next part of the file consists of newline-separated lines
160
     defining status, tracepoints, etc.  The section is terminated by
161
     an empty line.  */
162
 
163
  /* Dump the size of the R (register) blocks in traceframes.  */
164
  snprintf (spbuf, sizeof spbuf, "R %x\n", 500 /* FIXME get from arch */);
165
  write (fd, spbuf, strlen (spbuf));
166
 
167
  bin2hex (made_up, hex, len);
168
 
169
  /* Dump trace status, in the general form of the qTstatus reply.  */
170
  snprintf (spbuf, sizeof spbuf,
171
            "status 0;"
172
            "terror:%s:1;"
173
            "tframes:0;tcreated:0;tfree:100;tsize:1000\n",
174
            hex);
175
  write (fd, spbuf, strlen (spbuf));
176
 
177
  /* Dump tracepoint definitions, in syntax similar to that used
178
     for reconnection uploads.  */
179
  /* FIXME need a portable way to print function address in hex */
180
  snprintf (spbuf, sizeof spbuf, "tp T1:%lx:E:0:0\n",
181
            (long) &write_basic_trace_file);
182
  write (fd, spbuf, strlen (spbuf));
183
  /* (Note that we would only need actions defined if we wanted to
184
     test tdump.) */
185
 
186
  /* Empty line marks the end of the definition section.  */
187
  write (fd, "\n", 1);
188
 
189
  trptr = trbuf;
190
 
191
  /* Write end of tracebuffer marker.  */
192
  memset (trptr, 0, 6);
193
  trptr += 6;
194
 
195
  write (fd, trbuf, trptr - trbuf);
196
 
197
  finish_trace_file (fd);
198
}
199
 
200
void
201
done_making_trace_files (void)
202
{
203
}
204
 
205
int
206
main (int argc, char **argv, char **envp)
207
{
208
  write_basic_trace_file ();
209
 
210
  write_error_trace_file ();
211
 
212
  done_making_trace_files ();
213
 
214
  return 0;
215
}
216
 

powered by: WebSVN 2.1.0

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