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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [gdbserver/] [server.c] - Blame information for rev 106

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

Line No. Rev Author Line
1 106 markom
/* Main code for remote server for GDB.
2
   Copyright (C) 1989, 1993 Free Software Foundation, Inc.
3
 
4
   This file is part of GDB.
5
 
6
   This program is free software; you can redistribute it and/or modify
7
   it under the terms of the GNU General Public License as published by
8
   the Free Software Foundation; either version 2 of the License, or
9
   (at your option) any later version.
10
 
11
   This program is distributed in the hope that it will be useful,
12
   but WITHOUT ANY WARRANTY; without even the implied warranty of
13
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
   GNU General Public License for more details.
15
 
16
   You should have received a copy of the GNU General Public License
17
   along with this program; if not, write to the Free Software
18
   Foundation, Inc., 59 Temple Place - Suite 330,
19
   Boston, MA 02111-1307, USA.  */
20
 
21
#include "server.h"
22
 
23
int cont_thread;
24
int general_thread;
25
int thread_from_wait;
26
int old_thread_from_wait;
27
int extended_protocol;
28
jmp_buf toplevel;
29
int inferior_pid;
30
 
31
static unsigned char
32
start_inferior (argv, statusptr)
33
     char *argv[];
34
     char *statusptr;
35
{
36
  inferior_pid = create_inferior (argv[0], argv);
37
  fprintf (stderr, "Process %s created; pid = %d\n", argv[0], inferior_pid);
38
 
39
  /* Wait till we are at 1st instruction in program, return signal number.  */
40
  return mywait (statusptr);
41
}
42
 
43
extern int remote_debug;
44
 
45
int
46
main (argc, argv)
47
     int argc;
48
     char *argv[];
49
{
50
  char ch, status, own_buf[PBUFSIZ], mem_buf[2000];
51
  int i = 0;
52
  unsigned char signal;
53
  unsigned int len;
54
  CORE_ADDR mem_addr;
55
 
56
  if (setjmp (toplevel))
57
    {
58
      fprintf (stderr, "Exiting\n");
59
      exit (1);
60
    }
61
 
62
  if (argc < 3)
63
    error ("Usage: gdbserver tty prog [args ...]");
64
 
65
  initialize_low ();
66
 
67
  /* Wait till we are at first instruction in program.  */
68
  signal = start_inferior (&argv[2], &status);
69
 
70
  /* We are now stopped at the first instruction of the target process */
71
 
72
  while (1)
73
    {
74
      remote_open (argv[1]);
75
 
76
    restart:
77
      setjmp (toplevel);
78
      while (getpkt (own_buf) > 0)
79
        {
80
          unsigned char sig;
81
          i = 0;
82
          ch = own_buf[i++];
83
          switch (ch)
84
            {
85
            case 'd':
86
              remote_debug = !remote_debug;
87
              break;
88
            case '!':
89
              extended_protocol = 1;
90
              prepare_resume_reply (own_buf, status, signal);
91
              break;
92
            case '?':
93
              prepare_resume_reply (own_buf, status, signal);
94
              break;
95
            case 'H':
96
              switch (own_buf[1])
97
                {
98
                case 'g':
99
                  general_thread = strtol (&own_buf[2], NULL, 16);
100
                  write_ok (own_buf);
101
                  fetch_inferior_registers (0);
102
                  break;
103
                case 'c':
104
                  cont_thread = strtol (&own_buf[2], NULL, 16);
105
                  write_ok (own_buf);
106
                  break;
107
                default:
108
                  /* Silently ignore it so that gdb can extend the protocol
109
                     without compatibility headaches.  */
110
                  own_buf[0] = '\0';
111
                  break;
112
                }
113
              break;
114
            case 'g':
115
              convert_int_to_ascii (registers, own_buf, REGISTER_BYTES);
116
              break;
117
            case 'G':
118
              convert_ascii_to_int (&own_buf[1], registers, REGISTER_BYTES);
119
              store_inferior_registers (-1);
120
              write_ok (own_buf);
121
              break;
122
            case 'm':
123
              decode_m_packet (&own_buf[1], &mem_addr, &len);
124
              read_inferior_memory (mem_addr, mem_buf, len);
125
              convert_int_to_ascii (mem_buf, own_buf, len);
126
              break;
127
            case 'M':
128
              decode_M_packet (&own_buf[1], &mem_addr, &len, mem_buf);
129
              if (write_inferior_memory (mem_addr, mem_buf, len) == 0)
130
                write_ok (own_buf);
131
              else
132
                write_enn (own_buf);
133
              break;
134
            case 'C':
135
              convert_ascii_to_int (own_buf + 1, &sig, 1);
136
              myresume (0, sig);
137
              signal = mywait (&status);
138
              prepare_resume_reply (own_buf, status, signal);
139
              break;
140
            case 'S':
141
              convert_ascii_to_int (own_buf + 1, &sig, 1);
142
              myresume (1, sig);
143
              signal = mywait (&status);
144
              prepare_resume_reply (own_buf, status, signal);
145
              break;
146
            case 'c':
147
              myresume (0, 0);
148
              signal = mywait (&status);
149
              prepare_resume_reply (own_buf, status, signal);
150
              break;
151
            case 's':
152
              myresume (1, 0);
153
              signal = mywait (&status);
154
              prepare_resume_reply (own_buf, status, signal);
155
              break;
156
            case 'k':
157
              fprintf (stderr, "Killing inferior\n");
158
              kill_inferior ();
159
              /* When using the extended protocol, we start up a new
160
                 debugging session.   The traditional protocol will
161
                 exit instead.  */
162
              if (extended_protocol)
163
                {
164
                  write_ok (own_buf);
165
                  fprintf (stderr, "GDBserver restarting\n");
166
 
167
                  /* Wait till we are at 1st instruction in prog.  */
168
                  signal = start_inferior (&argv[2], &status);
169
                  goto restart;
170
                  break;
171
                }
172
              else
173
                {
174
                  exit (0);
175
                  break;
176
                }
177
            case 'T':
178
              if (mythread_alive (strtol (&own_buf[1], NULL, 16)))
179
                write_ok (own_buf);
180
              else
181
                write_enn (own_buf);
182
              break;
183
            case 'R':
184
              /* Restarting the inferior is only supported in the
185
                 extended protocol.  */
186
              if (extended_protocol)
187
                {
188
                  kill_inferior ();
189
                  write_ok (own_buf);
190
                  fprintf (stderr, "GDBserver restarting\n");
191
 
192
                  /* Wait till we are at 1st instruction in prog.  */
193
                  signal = start_inferior (&argv[2], &status);
194
                  goto restart;
195
                  break;
196
                }
197
              else
198
                {
199
                  /* It is a request we don't understand.  Respond with an
200
                     empty packet so that gdb knows that we don't support this
201
                     request.  */
202
                  own_buf[0] = '\0';
203
                  break;
204
                }
205
            default:
206
              /* It is a request we don't understand.  Respond with an
207
                 empty packet so that gdb knows that we don't support this
208
                 request.  */
209
              own_buf[0] = '\0';
210
              break;
211
            }
212
 
213
          putpkt (own_buf);
214
 
215
          if (status == 'W')
216
            fprintf (stderr,
217
                     "\nChild exited with status %d\n", sig);
218
          if (status == 'X')
219
            fprintf (stderr, "\nChild terminated with signal = 0x%x\n", sig);
220
          if (status == 'W' || status == 'X')
221
            {
222
              if (extended_protocol)
223
                {
224
                  fprintf (stderr, "Killing inferior\n");
225
                  kill_inferior ();
226
                  write_ok (own_buf);
227
                  fprintf (stderr, "GDBserver restarting\n");
228
 
229
                  /* Wait till we are at 1st instruction in prog.  */
230
                  signal = start_inferior (&argv[2], &status);
231
                  goto restart;
232
                  break;
233
                }
234
              else
235
                {
236
                  fprintf (stderr, "GDBserver exiting\n");
237
                  exit (0);
238
                }
239
            }
240
        }
241
 
242
      /* We come here when getpkt fails.
243
 
244
         For the extended remote protocol we exit (and this is the only
245
         way we gracefully exit!).
246
 
247
         For the traditional remote protocol close the connection,
248
         and re-open it at the top of the loop.  */
249
      if (extended_protocol)
250
        {
251
          remote_close ();
252
          exit (0);
253
        }
254
      else
255
        {
256
          fprintf (stderr, "Remote side has terminated connection.  GDBserver will reopen the connection.\n");
257
 
258
          remote_close ();
259
        }
260
    }
261
}

powered by: WebSVN 2.1.0

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