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

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [utils/] [amd-udi/] [mondfe/] [main.c] - Blame information for rev 1771

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

Line No. Rev Author Line
1 106 markom
static char _[] = "@(#)main.c   5.27 93/10/27 15:11:04, Srini, AMD";
2
/******************************************************************************
3
 * Copyright 1991 Advanced Micro Devices, Inc.
4
 *
5
 * This software is the property of Advanced Micro Devices, Inc  (AMD)  which
6
 * specifically  grants the user the right to modify, use and distribute this
7
 * software provided this notice is not removed or altered.  All other rights
8
 * are reserved by AMD.
9
 *
10
 * AMD MAKES NO WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, WITH REGARD TO THIS
11
 * SOFTWARE.  IN NO EVENT SHALL AMD BE LIABLE FOR INCIDENTAL OR CONSEQUENTIAL
12
 * DAMAGES IN CONNECTION WITH OR ARISING FROM THE FURNISHING, PERFORMANCE, OR
13
 * USE OF THIS SOFTWARE.
14
 *
15
 * So that all may benefit from your experience, please report  any  problems
16
 * or  suggestions about this software to the 29K Technical Support Center at
17
 * 800-29-29-AMD (800-292-9263) in the USA, or 0800-89-1131  in  the  UK,  or
18
 * 0031-11-1129 in Japan, toll free.  The direct dial number is 512-462-4118.
19
 *
20
 * Advanced Micro Devices, Inc.
21
 * 29K Support Products
22
 * Mail Stop 573
23
 * 5900 E. Ben White Blvd.
24
 * Austin, TX 78741
25
 * 800-292-9263
26
 *****************************************************************************
27
 *      Engineer: Srini Subramanian.
28
 *****************************************************************************
29
 * This is the main module of MONDFE.
30
 *****************************************************************************
31
 */
32
 
33
#include <stdio.h>
34
#include  <signal.h>
35
#ifdef  MSDOS
36
#include <stdlib.h>
37
#include <string.h>
38
#else
39
#include <strings.h>
40
#endif
41
#include "coff.h"
42
#include "main.h"
43
#include  "monitor.h"
44
#include "memspcs.h"
45
#include "miniint.h"
46
#include "error.h"
47
#include "versions.h"
48
 
49
#ifdef MSDOS
50
#define strcasecmp      stricmp
51
#endif
52
 
53
/* Externals */
54
extern  void    Def_CtrlC_Hdlr PARAMS((int));
55
extern  void    Mini_parse_args PARAMS((int argc, char  **argv));
56
extern  INT32   Mini_initialize PARAMS((HOST_CONFIG *host, IO_CONFIG *io,
57
                                        INIT_INFO *init));
58
extern  INT32   Mini_io_setup PARAMS((void));
59
extern  INT32   Mini_io_reset PARAMS((void));
60
extern  INT32   Mini_load_file PARAMS((char *fname, INT32 mspace,
61
                                       int  argc, char  *args,
62
                                       INT32 symbols, INT32 sections, int msg));
63
extern  void    Mini_monitor PARAMS((void));
64
extern  INT32   Mini_go_forever PARAMS((void));
65
 
66
/* Globals */
67
 
68
GLOBAL  char  *host_version = HOST_VERSION;
69
GLOBAL  char  *host_date = HOST_DATE;
70
 
71
GLOBAL  TARGET_CONFIG   target_config;
72
GLOBAL  VERSIONS_ETC    versions_etc;
73
GLOBAL  TARGET_STATUS   target_status;
74
GLOBAL  HOST_CONFIG     host_config;
75
GLOBAL  IO_CONFIG       io_config;
76
 
77
/* The filenos of the monitor's stdin, stdout, adn stderr */
78
int     MON_STDIN;
79
int     MON_STDOUT;
80
int     MON_STDERR;
81
 
82
int     Session_ids[MAX_SESSIONS];
83
int     NumberOfConnections=0;
84
/* The following variables are to be set/initialized in Mini_parse_args()
85
 */
86
GLOBAL  BOOLEAN monitor_enable = FALSE;
87
GLOBAL  int     QuietMode = 0;
88
GLOBAL  BOOLEAN ROM_flag = FALSE;
89
 
90
GLOBAL  char    *ROM_file = NULL;
91
GLOBAL  char    **ROM_argv;
92
GLOBAL  int     ROM_sym, ROM_sects;
93
GLOBAL  int     ROM_argc;
94
 
95
GLOBAL  char    CoffFileName[1024];
96
static  char    Ex_argstring[1024];
97
GLOBAL  int     Ex_sym, Ex_sects, Ex_space;
98
GLOBAL  int     Ex_argc;
99
static  int     Ex_loaded=0;
100
 
101
GLOBAL  char    *ProgramName=NULL;
102
 
103
GLOBAL  char    *connect_string;
104
 
105
GLOBAL  INT32   udi_waittime;
106
 
107
/* Main routine */
108
 
109
main(argc, argv)
110
   int   argc;
111
   char *argv[];
112
   {
113
 
114
   char         *temp;
115
   int          i;
116
   UINT32       ProcessorState;
117
   int          GrossState;
118
   INT32        retval;
119
 
120
   ProgramName=argv[0];
121
   if (strpbrk( ProgramName, "/\\" ))
122
   {
123
        temp = ProgramName + strlen( ProgramName );
124
        while (!strchr( "/\\", *--temp ))
125
                ;
126
        ProgramName = temp+1;
127
   }
128
 
129
   if (argc < 2 ) {
130
     fprintf(stderr, "MiniMON29K Release 3.0\n");
131
     fprintf(stderr, "MONDFE Debugger Front End (UDI 1.2) Version %s Date %s\n", HOST_VERSION, HOST_DATE);
132
     fatal_error(EMUSAGE);
133
   }
134
 
135
   /* Initialize stdin, stdout, sdterr to defaults */
136
   MON_STDIN = fileno(stdin);
137
   MON_STDOUT = fileno(stdout);
138
   MON_STDERR = fileno(stderr);
139
   NumberOfConnections = 0;
140
   (void) strcpy (CoffFileName,"");
141
 
142
   udi_waittime = (INT32) 10;   /* default poll every ? secs */
143
   /*
144
   ** Initialize host configuration structure (global), set defaults
145
   */
146
   if (Mini_initialize (&host_config, &io_config, &init_info) != SUCCESS)
147
      fatal_error(EMHINIT);
148
 
149
   /* Parse args */
150
   (void) Mini_parse_args(argc, argv);
151
 
152
   if (io_config.echo_mode == (INT32) TRUE) {
153
      for (i=0; i < argc; i++)
154
         fprintf(io_config.echo_file, "%s ", argv[i]);
155
      fprintf(io_config.echo_file, "\n");
156
      fflush (io_config.echo_file);
157
   };
158
 
159
   if ((monitor_enable == FALSE) & !Ex_loaded)
160
     fatal_error (EMNOFILE);
161
 
162
   /*
163
   ** Initialize host I/O.
164
   */
165
 
166
   if (Mini_io_setup() != SUCCESS)
167
      fatal_error(EMIOSETF);
168
 
169
   /*
170
   * Initialize TIP. Load ROM file, if necessary.
171
   ** Open communication channel
172
   */
173
   if (signal (SIGINT, Def_CtrlC_Hdlr) == SIG_ERR) {
174
     fprintf(stderr, "Couldn't install default Ctrl-C handler.\n");
175
     if (io_config.echo_mode == (INT32) TRUE)
176
        fprintf(io_config.echo_file, "Couldn't install default Ctrl-C handler.\n");
177
   }
178
   /* connect_string is made by the Mini_parse_args routine */
179
   retval = Mini_TIP_init(connect_string, &Session_ids[NumberOfConnections]);
180
   if (retval > (INT32) 0) {
181
       fatal_error(EMTIPINIT);
182
   } else if (retval == (INT32) SUCCESS) {
183
       NumberOfConnections=NumberOfConnections+1;
184
   } else {
185
        Mini_TIP_exit();
186
        fatal_error(EMTIPINIT);
187
   }
188
   if (Mini_get_target_stats((INT32) -1, &ProcessorState) != SUCCESS) {/* reconnect?*/
189
         Mini_TIP_exit();
190
         fatal_error(EMFATAL);
191
   };
192
   GrossState = (int) (ProcessorState & 0xFF);
193
   if (GrossState == NOTEXECUTING)
194
      if (Mini_TIP_CreateProc() != SUCCESS) {
195
         Mini_TIP_exit();
196
         fatal_error(EMNOPROCESS);
197
      }
198
 
199
   /* Get capabilities */
200
   if (Mini_TIP_Capabilities() != SUCCESS) {
201
      Mini_TIP_DestroyProc();
202
      Mini_TIP_exit();
203
      fatal_error(EMNOTCOMP);
204
   }
205
 
206
   /* Get the target memory configuration, and processor type */
207
   versions_etc.version = 0;     /* initialize in case not returned */
208
   if (Mini_config_req(&target_config, &versions_etc) != SUCCESS) {
209
      warning(EMCONFIG);
210
   }
211
 
212
   if (strcmp(CoffFileName,"") != 0) {
213
     if (Mini_load_file(&CoffFileName[0],
214
                        Ex_space,
215
                        Ex_argc,
216
                        Ex_argstring,
217
                        Ex_sym,
218
                        Ex_sects,
219
                        QuietMode) != SUCCESS) {
220
        Ex_loaded = 0;
221
        warning(EMLOADF);
222
     } else {
223
        Ex_loaded = 1;
224
     };
225
   }
226
 
227
   if (monitor_enable == FALSE) {
228
      if (Ex_loaded)
229
         Mini_go_forever();
230
      else { /* nothing to do, so quit */
231
         Mini_TIP_DestroyProc();
232
         Mini_TIP_exit();
233
         warning (EMNOFILE);
234
      }
235
   } else {
236
      Mini_monitor();
237
   };
238
 
239
   fflush(stderr);
240
   fflush(stdout);
241
 
242
   /* Perform host-specific clean-up */
243
   if (Mini_io_reset() != SUCCESS)
244
      warning(EMIORESETF);
245
 
246
   if (!QuietMode) {
247
      fprintf(stderr, "\nGoodbye.\n");
248
      if (io_config.echo_mode == (INT32) TRUE) {
249
          fprintf(io_config.echo_file, "\nGoodbye.\n");
250
          (void) fclose (io_config.echo_file);
251
      }
252
   }
253
   return(0);
254
 
255
   }   /* end Main */
256
 
257
 
258
 
259
/*
260
** Functions
261
*/
262
 
263
/*
264
** This function prints out a fatal error message
265
** from error_msg[].
266
** Finally, the program exits with error_number.
267
*/
268
#ifndef MINIMON
269
extern  UINT32  UDIGetDFEIPCId PARAMS((void));
270
#endif
271
 
272
void
273
fatal_error(error_number)
274
   INT32 error_number;
275
   {
276
   UINT32       IPCId;
277
 
278
   if (error_number == (INT32) EMUSAGE) {
279
#ifndef MINIMON
280
     IPCId = (UINT32) UDIGetDFEIPCId();
281
     fprintf(stderr, "MONDFE UDI IPC Implementation Id %d.%d.%d\n",
282
                                (int) ((IPCId & 0xf00) >> 8),
283
                                (int) ((IPCId & 0xf0) >> 4),
284
                                (int) (IPCId & 0xf));
285
     if (io_config.echo_mode == (INT32) TRUE)
286
       fprintf(io_config.echo_file, "MONDFE UDI IPC Implementation Id %d.%d.%d\n",
287
                                (int) ((IPCId & 0xf00) >> 8),
288
                                (int) ((IPCId & 0xf0) >> 4),
289
                                (int) (IPCId & 0xf));
290
#else
291
     fprintf(stderr, "Procedurally linked MiniMON29K 3.0 Delta\n");
292
#endif
293
       fprintf(stderr, "Usage: %s %s\nGoodbye.\n",
294
                                  ProgramName, error_msg[(int)error_number]);
295
       if (io_config.echo_mode == (INT32) TRUE)
296
          fprintf(io_config.echo_file, "Usage: %s %s\nGoodbye.\n",
297
                                  ProgramName, error_msg[(int)error_number]);
298
   } else {
299
     fprintf(stderr, "DFEERROR: %d : %s\nFatal error. Exiting.\n",
300
                        (int)error_number, error_msg[(int)error_number]);
301
     if (io_config.echo_mode == (INT32) TRUE)
302
        fprintf(io_config.echo_file, "DFEERROR: %d : %s\nFatal error. Exiting.\n",
303
                        (int)error_number, error_msg[(int)error_number]);
304
   }
305
 
306
   NumberOfConnections=0;
307
   if (io_config.echo_mode == (INT32) TRUE)
308
     (void) fclose(io_config.echo_file);
309
 
310
   exit((int) error_number);
311
   }
312
 
313
 
314
/*
315
** This function prints out a warning message from
316
** the error_msg[] string array.
317
*/
318
 
319
void
320
warning(error_number)
321
   INT32 error_number;
322
   {
323
   fprintf(stderr, "DFEWARNING: %d : %s\n", (int) error_number, error_msg[(int)error_number]);
324
   if (io_config.echo_mode == (INT32) TRUE)
325
      fprintf(io_config.echo_file, "DFEWARNING: %d : %s\n", error_number, error_msg[(int)error_number]);
326
   }
327
 
328
 
329
/* Parse the command line arguments */
330
void
331
Mini_parse_args(argc, argv)
332
int     argc;
333
char    **argv;
334
{
335
   int          i, j;
336
   int          len;
337
 
338
   len = 0;
339
   for (i = 1; i < argc; i++)  {        /* ISS */
340
      len = len + (int) strlen(argv[i]);
341
   };
342
   if (len == (int) 0) {
343
     connect_string = NULL;
344
   } else {
345
     if ((connect_string = (char *) malloc (len + argc)) == NULL) {
346
        fatal_error(EMALLOC);
347
     };
348
     for (i = 1; i < argc; i++)  {      /* ISS */
349
      if (strcasecmp(argv[i], "-TIP") == 0) {
350
          i++;
351
          if (i >= argc)
352
            fatal_error(EMUSAGE);
353
          connect_string = argv[i];
354
      } else if (strcmp(argv[i], "-log") == 0) {
355
        i++;
356
        if (i >= argc)
357
          fatal_error(EMUSAGE);
358
        (void) strcpy((char *)(&(io_config.log_filename[0])),argv[i]);
359
        io_config.log_mode = (INT32) TRUE;
360
      } else if (strcmp (argv[i], "-w") == 0) { /* Wait time param */
361
        i++;
362
        if (i >= argc)
363
          fatal_error(EMUSAGE);
364
        if (sscanf(argv[i], "%ld", &udi_waittime) != 1)
365
          fatal_error(EMUSAGE);
366
      } else if (strcmp (argv[i], "-ms") == 0) { /* mem stack size */
367
        i++;
368
        if (i >= argc)
369
          fatal_error(EMUSAGE);
370
        if (sscanf(argv[i], "%lx", &init_info.mem_stack_size) != 1)
371
          fatal_error(EMUSAGE);
372
      } else if (strcmp (argv[i], "-rs") == 0) { /* reg stack size */
373
        i++;
374
        if (i >= argc)
375
          fatal_error(EMUSAGE);
376
        if (sscanf(argv[i], "%lx", &init_info.reg_stack_size) != 1)
377
          fatal_error(EMUSAGE);
378
      } else if (strcmp(argv[i], "-d") == 0) {
379
         monitor_enable = TRUE;
380
      } else if (strcasecmp(argv[i], "-D") == 0) {
381
         monitor_enable = TRUE;
382
      } else if (strcmp(argv[i], "-le") == 0) {
383
         host_config.target_endian = LITTLE;
384
      } else if (strcmp(argv[i], "-q") == 0) {
385
         QuietMode = 1;
386
      } else if (strcmp(argv[i], "-c") == 0) {
387
         i++;
388
         if (i >= argc)
389
            fatal_error(EMUSAGE);
390
         (void) strcpy((char *)(&(io_config.cmd_filename[0])),argv[i]);
391
         io_config.cmd_file_io = TRUE;
392
      } else if (strcmp(argv[i], "-e") == 0) {
393
         i++;
394
         if (i >= argc)
395
            fatal_error(EMUSAGE);
396
         (void) strcpy((char *)(&(io_config.echo_filename[0])),argv[i]);
397
         io_config.echo_mode = (INT32) TRUE;
398
         if ((io_config.echo_file = fopen (io_config.echo_filename, "w")) == NULL) {
399
            warning (EMECHOPEN);
400
            io_config.echo_mode = (INT32) FALSE;
401
         }
402
      } else {
403
         (void) strcpy (&CoffFileName[0], argv[i]);
404
         Ex_argc = argc - i;
405
         (void) strcpy(Ex_argstring, argv[i]);
406
         for (j=1; j < Ex_argc; j++) {
407
           (void) strcat(Ex_argstring, " ");
408
           (void) strcat (Ex_argstring, argv[i+j]);
409
         }
410
         Ex_sym = 0;
411
         Ex_sects = (STYP_ABS|STYP_TEXT|STYP_LIT|STYP_DATA|STYP_BSS);
412
         Ex_space = (INT32) I_MEM;
413
         Ex_loaded = 1;  /* given */
414
         break;
415
       }
416
     }; /* end for */
417
   }; /* end if-else */
418
}
419
 
420
/* Function to initialize host_config and io_config data structures
421
 * to their default values *
422
 */
423
 
424
INT32
425
Mini_initialize(host, io, init)
426
HOST_CONFIG     *host;
427
IO_CONFIG       *io;
428
INIT_INFO       *init;
429
{
430
   /* Initialize host configuration information */
431
 
432
#ifdef  MSDOS
433
   host->host_endian = LITTLE;
434
#else
435
   host->host_endian = BIG;
436
#endif
437
 
438
   host->target_endian = BIG;  /* default */
439
   host->version = host_version;
440
   host->date = host_date;
441
 
442
   /* Initialize I/O configuration information */
443
 
444
   io->hif = TRUE;
445
   io->io_control = TERM_USER;
446
   io->cmd_ready = FALSE;
447
   io->clear_to_send = TRUE;
448
   io->target_running = FALSE;
449
   io->cmd_file = NULL;
450
   io->cmd_filename[0] = '\0';
451
   io->cmd_file_io = FALSE;
452
   io->log_mode = FALSE;
453
   io->log_file = NULL;
454
   io->log_filename[0] = '\0';
455
   io->echo_mode = FALSE;
456
   io->echo_file = NULL;
457
   io->echo_filename[0] = '\0';
458
   io->io_toggle_char = (BYTE) 21;  /* CTRL-U */
459
 
460
   init->mem_stack_size = (UINT32) -1;
461
   init->reg_stack_size = (UINT32) -1;
462
   return(SUCCESS);
463
}
464
 
465
void
466
Def_CtrlC_Hdlr(num)
467
int     num;
468
{
469
  Mini_io_reset();
470
   if (!QuietMode) {
471
      fprintf(stderr, "\nInterrupted.\n");
472
      if (io_config.echo_mode == (INT32) TRUE) {
473
          fprintf(io_config.echo_file, "\nInterrupted.\n");
474
          (void) fclose (io_config.echo_file);
475
      }
476
   }
477
   Mini_TIP_SetCurrSession(0);
478
   Mini_TIP_exit();
479
  exit(1);
480
}
481
 

powered by: WebSVN 2.1.0

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