home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume23 / xenix-gnu / part02 / gdb-3.5b.pch
Encoding:
Text File  |  1991-09-27  |  45.5 KB  |  1,685 lines
  1. *** 3.5/Makefile.dist    Wed Jan 31 03:42:57 1990
  2. --- Makefile.dist    Thu Aug  1 18:01:18 1991
  3. ***************
  4. *** 124,130 ****
  5.        kdb-start.c main.c printcmd.c \
  6.        remote.c source.c stack.c standalone.c stuff.c symmisc.c symtab.c \
  7.        utils.c valarith.c valops.c valprint.c values.c version.c expread.y \
  8. !      xgdb.c
  9.   
  10.   DEPFILES = umax-dep.c gould-dep.c default-dep.c sun3-dep.c \
  11.          sparc-dep.c hp9k320-dep.c hp300bsd-dep.c news-dep.c i386-dep.c \
  12. --- 124,130 ----
  13.        kdb-start.c main.c printcmd.c \
  14.        remote.c source.c stack.c standalone.c stuff.c symmisc.c symtab.c \
  15.        utils.c valarith.c valops.c valprint.c values.c version.c expread.y \
  16. !      x386dbx.c xgdb.c
  17.   
  18.   DEPFILES = umax-dep.c gould-dep.c default-dep.c sun3-dep.c \
  19.          sparc-dep.c hp9k320-dep.c hp300bsd-dep.c news-dep.c i386-dep.c \
  20. ***************
  21. *** 173,179 ****
  22.   
  23.   OBS = main.o blockframe.o breakpoint.o findvar.o stack.o source.o \
  24.       values.o eval.o valops.o valarith.o valprint.o printcmd.o \
  25. !     symtab.o symmisc.o coffread.o dbxread.o infcmd.o infrun.o remote.o \
  26.       command.o utils.o expread.o expprint.o pinsn.o environ.o version.o \
  27.       copying.o ${READLINEOBS}
  28.   
  29. --- 173,179 ----
  30.   
  31.   OBS = main.o blockframe.o breakpoint.o findvar.o stack.o source.o \
  32.       values.o eval.o valops.o valarith.o valprint.o printcmd.o \
  33. !     symtab.o symmisc.o coffread.o dbxread.o x386dbx.o infcmd.o infrun.o remote.o \
  34.       command.o utils.o expread.o expprint.o pinsn.o environ.o version.o \
  35.       copying.o ${READLINEOBS}
  36.   
  37. *** 3.5/config.gdb    Tue Jan 30 21:35:46 1990
  38. --- config.gdb    Thu Aug  1 19:36:23 1991
  39. ***************
  40. *** 326,331 ****
  41. --- 326,337 ----
  42.       pinsnfile=three
  43.       opcodefile=four
  44.       ;;
  45. + xenix386)
  46. +     makedefine="-DM_CLIBS=-lx -DM_REGEX=regex.o -Dcc=gcc -DM_CFLAGS=-traditional"
  47. +     pinsnfile=i386-pinsn.c
  48. +     opcodefile=m-xenix386.h
  49. +     depfile=i386-dep.c    # patched with #ifdef M_XENIX
  50. +     ;;
  51.   *)
  52.       echo "Unknown machine type: \`$machine'"
  53.       echo "Available types:"
  54. ***************
  55. *** 369,375 ****
  56.   # edit the makefile
  57.   echo "Editing Makefile"
  58.   cp Makefile.dist tmp.c
  59. ! cc -E >Makefile tmp.c $makedefine -DM_MAKEDEFINE="$makedefine"
  60.   rm -f tmp.c
  61.   
  62.   echo "GDB is now set up for use with a $machine." \
  63. --- 375,381 ----
  64.   # edit the makefile
  65.   echo "Editing Makefile"
  66.   cp Makefile.dist tmp.c
  67. ! gcc -Ui386 -E >Makefile $makedefine -DM_MAKEDEFINE="$makedefine" tmp.c
  68.   rm -f tmp.c
  69.   
  70.   echo "GDB is now set up for use with a $machine." \
  71. *** 3.5/core.c    Thu Jan 11 00:55:17 1990
  72. --- core.c    Thu Aug  1 18:01:22 1991
  73. ***************
  74. *** 49,54 ****
  75. --- 49,59 ----
  76.   #ifdef UMAX_CORE
  77.   #include <sys/ptrace.h>
  78.   #else
  79. + #ifdef M_XENIX
  80. + struct user; struct buf; struct inode; struct proc;    /* inhibit warnings */
  81. + #include <sys/page.h>
  82. + #include <sys/seg.h>
  83. + #endif
  84.   #include <sys/user.h>
  85.   #endif
  86.   
  87. ***************
  88. *** 62,70 ****
  89. --- 67,79 ----
  90.   
  91.   #ifndef COFF_FORMAT
  92.   #ifndef AOUTHDR
  93. + #ifdef M_XENIX
  94. + #define AOUTHDR        struct xexec
  95. + #else
  96.   #define AOUTHDR        struct exec
  97.   #endif
  98.   #endif
  99. + #endif
  100.   
  101.   extern char *sys_siglist[];
  102.   
  103. ***************
  104. *** 200,209 ****
  105.          the core file, (s)he'll find out soon enough.  */
  106.       return;
  107.   
  108.         if (N_MAGIC (core_aouthdr) != 0
  109.         && bcmp (&core_aouthdr, &exec_aouthdr, sizeof core_aouthdr))
  110.       printf ("Warning: core file does not match specified executable file.\n");
  111. !       else if (exec_mtime > st_core.st_mtime)
  112.       printf ("Warning: exec file is newer than core file.\n");
  113.       }
  114.   }
  115. --- 209,222 ----
  116.          the core file, (s)he'll find out soon enough.  */
  117.       return;
  118.   
  119. + /* cannot validate core file against executable file on xenix */
  120. + #ifndef M_XENIX
  121.         if (N_MAGIC (core_aouthdr) != 0
  122.         && bcmp (&core_aouthdr, &exec_aouthdr, sizeof core_aouthdr))
  123.       printf ("Warning: core file does not match specified executable file.\n");
  124. !       else
  125. ! #endif
  126. !       if (exec_mtime > st_core.st_mtime)
  127.       printf ("Warning: exec file is newer than core file.\n");
  128.       }
  129.   }
  130. *** 3.5/dbxread.c    Sat Jan 27 08:30:54 1990
  131. --- dbxread.c    Thu Aug  1 19:25:46 1991
  132. ***************
  133. *** 40,45 ****
  134. --- 40,60 ----
  135.   #define L_INCR 1
  136.   #endif
  137.   
  138. + #ifdef M_XENIX
  139. + #include <sys/relsym.h>
  140. + #define nlist xenix_nlist    /* the system nlist is broken */
  141. + #include <a.out.h>
  142. + #undef nlist
  143. + #define nlist gas_nlist
  144. + #include "stab.gnu.h"
  145. + #include "gas-nlist.h"
  146. + 
  147. + #define STRING_SEG 4
  148. + #define SYMS_SEG   5
  149. + #define AOUTHDR    struct xexec
  150. + 
  151. + #else /* M_XENIX */
  152. + 
  153.   #ifdef COFF_ENCAPSULATE
  154.   #include "a.out.encap.h"
  155.   #include "stab.gnu.h"
  156. ***************
  157. *** 47,52 ****
  158. --- 62,69 ----
  159.   #include <a.out.h>
  160.   #include <stab.h>
  161.   #endif
  162. + #endif /* M_XENIX */
  163. + 
  164.   #include <ctype.h>
  165.   
  166.   #ifndef NO_GNU_STABS
  167. ***************
  168. *** 167,172 ****
  169. --- 184,222 ----
  170.   /* C++ */
  171.   static struct type **read_args ();
  172.   
  173. + #ifdef M_XENIX
  174. + extern struct xseg *find_segment();
  175. + #define NUMBER_OF_SYMBOLS \
  176. +   ({ struct xseg *cseg; long z;\
  177. +      cseg = find_segment(XS_TSYMS, SYMS_SEG); \
  178. +      z = cseg ? cseg->xs_psize / sizeof(struct nlist) : 0; z;})
  179. + #define SYMBOL_TABLE_OFFSET \
  180. +   ({ struct xseg *cseg; long z;\
  181. +      cseg = find_segment(XS_TSYMS, SYMS_SEG); \
  182. +      z = cseg ? cseg->xs_filpos : 0; z;})
  183. + #define STRING_TABLE_OFFSET \
  184. +   ({ struct xseg *cseg; long z;\
  185. +      cseg = find_segment(XS_TSYMS, STRING_SEG); \
  186. +      z = cseg ? cseg->xs_filpos : 0; z; })
  187. + #define READ_STRING_TABLE_SIZE(INTO)        \
  188. +   { struct xseg *cseg; \
  189. +      cseg = find_segment(XS_TSYMS, STRING_SEG); \
  190. +      INTO = cseg ? cseg->xs_psize : 0; }
  191. + #define N_BADMAG(hdr)\
  192. +   (hdr.x_magic != X_MAGIC && (hdr.x_cpu & XC_CPU) != XC_386 \
  193. +    && (hdr.x_renv & XE_SEG) == 0  && (hdr.x_renv & XE_EXEC) == 0)
  194. + #define READ_FILE_HEADERS(DESC, NAME)        \
  195. + { val = myread (DESC, &hdr, sizeof hdr);    \
  196. +   if (val < 0) perror_with_name (NAME);        \
  197. +   if (N_BADMAG (hdr))                \
  198. +     error ("File \"%s\" not in executable format.", NAME);\
  199. +   process_a_out(DESC, NAME); }
  200. + #define IS_OBJECT_FILE 0
  201. + #define SIZE_OF_TEXT_SEGMENT hdr.x_text
  202. + #define ADDR_OF_TEXT_SEGMENT 0
  203. + #define ENTRY_POINT hdr.x_entry
  204. + #endif
  205. + 
  206.   /* Macro to determine which symbols to ignore when reading the first symbol
  207.      of a file.  Some machines override this definition. */
  208.   #ifdef N_NSYMS
  209. ***************
  210. *** 336,341 ****
  211. --- 386,394 ----
  212.   /* Count symbols as they are processed, for error messages.  */
  213.   
  214.   static int symnum;
  215. + #ifdef M_XENIX
  216. + static long lsym_count = 0;
  217. + #endif /* M_XENIX */
  218.   
  219.   /* Vector of types defined so far, indexed by their dbx type numbers.
  220.      (In newer sun systems, dbx uses a pair of numbers in parens,
  221. ***************
  222. *** 1627,1632 ****
  223. --- 1680,1691 ----
  224.     old_chain = make_cleanup (close, desc);
  225.     make_cleanup (free_current_contents, &name);
  226.   
  227. + #ifdef M_XENIX
  228. + /* On xenix (with gcc) READ_FILE_HEADER reads the segment table,
  229. +  * fileinfo table and global symbol table as well. 
  230. +  */
  231. + #endif /* M_XENIX */
  232. + 
  233.     READ_FILE_HEADERS (desc, name);
  234.   
  235.     entry_point = ENTRY_POINT;
  236. ***************
  237. *** 1676,1681 ****
  238. --- 1735,1744 ----
  239.     val = myread (desc, stringtab, buffer);
  240.     if (val < 0)
  241.       perror_with_name (name);
  242. + #ifdef X_DEBUG
  243. +     printf("\nstring table offset = %d, size = %d, start = %s\n",
  244. +         STRING_TABLE_OFFSET, buffer, stringtab);
  245. + #endif
  246.     
  247.     /* Throw away the old symbol table.  */
  248.   
  249. ***************
  250. *** 1720,1726 ****
  251. --- 1783,1793 ----
  252.   
  253.     /* Go over the misc functions and install them in vector.  */
  254.   
  255. + #ifndef M_XENIX /* This has already been done at header read time */
  256.     condense_misc_bunches (0);
  257. + #else
  258. +   process_global_symbol_table(desc, name);
  259. + #endif /* M_XENIX */
  260.   
  261.     /* Don't allow char * to have a typename (else would get caddr_t.)  */
  262.   
  263. ***************
  264. *** 1799,1805 ****
  265.   {
  266.     if (symbuf_idx == symbuf_end)
  267.       fill_symbuf ();
  268. !   symnum++;
  269.     return symbuf[symbuf_idx++].n_un.n_strx + stringtab_global;
  270.   }
  271.   
  272. --- 1866,1872 ----
  273.   {
  274.     if (symbuf_idx == symbuf_end)
  275.       fill_symbuf ();
  276. !   symnum++;  lsym_count--;
  277.     return symbuf[symbuf_idx++].n_un.n_strx + stringtab_global;
  278.   }
  279.   
  280. ***************
  281. *** 1937,1942 ****
  282. --- 2004,2019 ----
  283.     int global_funs = 0;
  284.   #endif
  285.   
  286. + #ifdef M_XENIX
  287. +   long flsym_count = 0;
  288. +   long file_string_base = 0;
  289. +   long stringtab_offset = 0;
  290. +   long symtab_pos = 0;
  291. +   long filadd = 0;
  292. +   long textsize = 0;
  293. +   int file_count = 0;
  294. + #endif /* M_XENIX */
  295. + 
  296.     /* Current partial symtab */
  297.     struct partial_symtab *pst;
  298.   
  299. ***************
  300. *** 1989,1998 ****
  301. --- 2066,2123 ----
  302.     symtab_input_desc = desc;    /* This is needed for fill_symbuf below */
  303.     symbuf_end = symbuf_idx = 0;
  304.   
  305. + #ifdef M_XENIX
  306. +   init_fileinfo_processing();   /* start processing the list of files */
  307. +   nlistlen += 10;         /* force the hack code to terminate the loop */
  308. +   lsym_count = 0;
  309. + #endif /* M_XENIX */
  310. + 
  311.     for (symnum = 0; symnum < nlistlen; symnum++)
  312.       {
  313.         /* Get the symbol for this run and pull out some info */
  314.         QUIT;    /* allow this to be interruptable */
  315. + #ifdef M_XENIX
  316. + 
  317. +       /* This is a gross hack.  Xenix places pointers to each files $$SYMBOLS
  318. +        * (containing the symbols for DBX) and $$TYPES (containing the strings
  319. +        * for DBX) in the file name table.  There is also a partial symbol
  320. +        * table record for each file produced by the loader - this is ignored
  321. +        * at present.
  322. +        */
  323. +        if (lsym_count == 0)
  324. +        {
  325. +      try_next_file:
  326. +      if (!get_next_fileinfo(&stringtab_offset, &flsym_count, &filadd,
  327. +                             &symtab_pos, &textsize))
  328. +      {            /* all files proccessed */
  329. +        symnum = nlistlen;
  330. +        continue;
  331. +      }
  332. +      else
  333. +      {
  334. +        lseek(desc, symtab_pos, 0);
  335. +          stringtab_global = stringtab + stringtab_offset;
  336. +        symbuf_idx = symbuf_end;  /* force symbol reading */
  337. +        lsym_count = flsym_count;
  338. +      }
  339. +      
  340. +      file_count++;
  341. + 
  342. +      if (file_count == 2)
  343. +            startup_file_start = filadd;
  344. + 
  345. +      if (file_count == 3)
  346. +            startup_file_end = filadd;
  347. + 
  348. +          if (lsym_count == 0)    /* skip this file if no symbols in it */
  349. +        goto try_next_file;
  350. + 
  351. +        }
  352. + 
  353. +        
  354. +        lsym_count--;
  355. + 
  356. + #endif /* M_XENIX */
  357.         if (symbuf_idx == symbuf_end)
  358.       fill_symbuf ();
  359.         bufp = &symbuf[symbuf_idx++];
  360. ***************
  361. *** 2023,2029 ****
  362.     if (bufp->n_un.n_strx < 0 || bufp->n_un.n_strx >= stringtab_size)  \
  363.       error ("Invalid symbol data: bad string table offset: %d",       \
  364.          bufp->n_un.n_strx);                                       \
  365. !   namestring = bufp->n_un.n_strx + stringtab
  366.   
  367.   #define    ADD_PSYMBOL_TO_LIST(NAME, NAMELENGTH, NAMESPACE, CLASS, LIST, VALUE)\
  368.     do {                                        \
  369. --- 2148,2154 ----
  370.     if (bufp->n_un.n_strx < 0 || bufp->n_un.n_strx >= stringtab_size)  \
  371.       error ("Invalid symbol data: bad string table offset: %d",       \
  372.          bufp->n_un.n_strx);                                       \
  373. !   namestring = bufp->n_un.n_strx + stringtab + stringtab_offset
  374.   
  375.   #define    ADD_PSYMBOL_TO_LIST(NAME, NAMELENGTH, NAMESPACE, CLASS, LIST, VALUE)\
  376.     do {                                        \
  377. ***************
  378. *** 2051,2062 ****
  379.       SYMBOL_VALUE (psym) = (VALUE);                     \
  380.     } while (0);
  381.   
  382.   
  383. !       switch (bufp->n_type)
  384.       {
  385.         /*
  386.          * Standard, non-debugger, symbols
  387.          */
  388.   
  389.       case N_TEXT | N_EXT:
  390.         /* Catch etext */
  391. --- 2176,2193 ----
  392.       SYMBOL_VALUE (psym) = (VALUE);                     \
  393.     } while (0);
  394.   
  395. + #ifdef X_DEBUG
  396. + printf("%s = (%#x, %d, %#x)\n",
  397. +   bufp->n_un.n_strx ? bufp->n_un.n_strx+stringtab+stringtab_offset : "<NONE>",
  398. +   (unsigned char)bufp->n_type, bufp->n_desc, bufp->n_value);
  399. + #endif /* X_DEBUG */
  400.   
  401. !       switch ((unsigned char)bufp->n_type)
  402.       {
  403.         /*
  404.          * Standard, non-debugger, symbols
  405.          */
  406. + #ifndef M_XENIX            /* these are not present with Xenix / GCC */
  407.   
  408.       case N_TEXT | N_EXT:
  409.         /* Catch etext */
  410. ***************
  411. *** 2176,2181 ****
  412. --- 2307,2314 ----
  413.       case N_NBBSS:
  414.   #endif
  415.   
  416. + #endif /* M_XENIX */
  417. + 
  418.         /* Keep going . . .*/
  419.   
  420.         /*
  421. ***************
  422. *** 2209,2218 ****
  423. --- 2342,2358 ----
  424.   
  425.         if (pst && past_first_source_file)
  426.           {
  427. + #ifndef M_XENIX
  428.             end_psymtab (pst, psymtab_include_list, includes_used,
  429.                  symnum * sizeof (struct nlist), bufp->n_value,
  430.                  dependency_list, dependencies_used,
  431.                  global_psymbols.next, static_psymbols.next);
  432. + #else
  433. +           end_psymtab (pst, psymtab_include_list, includes_used,
  434. +                symtab_pos + flsym_count * sizeof (struct nlist),
  435. +                bufp->n_value, dependency_list, dependencies_used,
  436. +                global_psymbols.next, static_psymbols.next);
  437. + #endif
  438.             pst = (struct partial_symtab *) 0;
  439.             includes_used = 0;
  440.             dependencies_used = 0;
  441. ***************
  442. *** 2220,2228 ****
  443. --- 2360,2374 ----
  444.         else
  445.           past_first_source_file = 1;
  446.   
  447. + #ifndef M_XENIX
  448.         pst = start_psymtab (namestring, bufp->n_value,
  449.                      symnum * sizeof (struct nlist),
  450.                      global_psymbols.next, static_psymbols.next);
  451. + #else
  452. +       pst = start_psymtab (namestring, bufp->n_value, symtab_pos,
  453. +                    global_psymbols.next, static_psymbols.next,
  454. +                    stringtab_offset, flsym_count, textsize);
  455. + #endif /* M_XENIX */
  456.   
  457.         continue;
  458.   
  459. ***************
  460. *** 2591,2596 ****
  461. --- 2737,2743 ----
  462.       }
  463.   
  464.     /* If there's stuff to be cleaned up, clean it up.  */
  465. + #ifndef M_XENIX
  466.     if (entry_point < bufp->n_value
  467.         && entry_point >= last_o_file_start)
  468.       {
  469. ***************
  470. *** 2597,2609 ****
  471. --- 2744,2764 ----
  472.         startup_file_start = last_o_file_start;
  473.         startup_file_end = bufp->n_value;
  474.       }
  475. + #endif /* M_XENIX */
  476.   
  477.     if (pst)
  478.       {
  479. + #ifndef M_XENIX
  480.         end_psymtab (pst, psymtab_include_list, includes_used,
  481.              symnum * sizeof (struct nlist), end_of_text_addr,
  482.              dependency_list, dependencies_used,
  483.              global_psymbols.next, static_psymbols.next);
  484. + #else /* M_XENIX */
  485. +       end_psymtab (pst, psymtab_include_list, includes_used,
  486. +            symtab_pos + flsym_count * sizeof (struct nlist),
  487. +            end_of_text_addr, dependency_list, dependencies_used,
  488. +            global_psymbols.next, static_psymbols.next);
  489. + #endif /* M_XENIX */
  490.         includes_used = 0;
  491.         dependencies_used = 0;
  492.         pst = (struct partial_symtab *) 0;
  493. ***************
  494. *** 2653,2658 ****
  495. --- 2808,2814 ----
  496.    * completely filled at the end of the symbol list.
  497.    */
  498.   static struct partial_symtab *
  499. + #ifndef M_XENIX
  500.   start_psymtab (filename, textlow, ldsymoff, global_syms, static_syms)
  501.        char *filename;
  502.        int textlow;
  503. ***************
  504. *** 2659,2664 ****
  505. --- 2815,2832 ----
  506.        int ldsymoff;
  507.        struct partial_symbol *global_syms;
  508.        struct partial_symbol *static_syms;
  509. + #else
  510. + start_psymtab (filename, textlow, ldsymoff, global_syms, static_syms, stroffset,
  511. +            symcount, textsize)
  512. +      char *filename;
  513. +      int textlow;
  514. +      int ldsymoff;
  515. +      struct partial_symbol *global_syms;
  516. +      struct partial_symbol *static_syms;
  517. +      int stroffset;
  518. +      int symcount;
  519. +      long textsize;
  520. + #endif
  521.   {
  522.     struct partial_symtab *result =
  523.       (struct partial_symtab *) obstack_alloc (psymbol_obstack,
  524. ***************
  525. *** 2671,2677 ****
  526.   
  527.     result->textlow = textlow;
  528.     result->ldsymoff = ldsymoff;
  529. ! 
  530.     result->readin = 0;
  531.   
  532.     result->globals_offset = global_syms - global_psymbols.list;
  533. --- 2839,2848 ----
  534.   
  535.     result->textlow = textlow;
  536.     result->ldsymoff = ldsymoff;
  537. ! #ifdef M_XENIX
  538. !   result->texthigh = textlow + textsize;
  539. !   result->ldsymlen = symcount * sizeof(struct nlist);
  540. ! #endif
  541.     result->readin = 0;
  542.   
  543.     result->globals_offset = global_syms - global_psymbols.list;
  544. ***************
  545. *** 2679,2684 ****
  546. --- 2850,2856 ----
  547.   
  548.     result->n_global_syms = 0;
  549.     result->n_static_syms = 0;
  550. +   result->stringtab_off = stroffset;
  551.   
  552.     return result;
  553.   }
  554. ***************
  555. *** 2722,2729 ****
  556. --- 2894,2903 ----
  557.   {
  558.     int i;
  559.   
  560. + #ifndef M_XENIX
  561.     pst->ldsymlen = capping_symbol_offset - pst->ldsymoff;
  562.     pst->texthigh = capping_text;
  563. + #endif /* M_XENIX */
  564.   
  565.     pst->n_global_syms =
  566.       capping_global - (global_psymbols.list + pst->globals_offset);
  567. ***************
  568. *** 2830,2840 ****
  569. --- 3004,3023 ----
  570.         old_chain = make_cleanup (really_free_pendings, 0);
  571.   
  572.         /* Read in this files symbols */
  573. + #ifndef M_XENIX
  574.         lseek (desc, sym_offset, L_SET);
  575. + 
  576.         read_ofile_symtab (desc, stringtab, stringtab_size,
  577.                pst->ldsymoff,
  578.                pst->ldsymlen, pst->textlow,
  579.                pst->texthigh - pst->textlow, 0);
  580. + #else  /* M_XENIX */
  581. +       read_ofile_symtab (desc, stringtab + pst->stringtab_off,
  582. +              stringtab_size - pst->stringtab_off,
  583. +              pst->ldsymoff,
  584. +              pst->ldsymlen, pst->textlow,
  585. +              pst->texthigh - pst->textlow, 0);
  586. + #endif  /* M_XENIX */
  587.         sort_symtab_syms (symtab_list); /* At beginning since just added */
  588.   
  589.         do_cleanups (old_chain);
  590. ***************
  591. *** 2903,2909 ****
  592. --- 3086,3094 ----
  593.         if (desc < 0)
  594.       error("Symbol file not readable");
  595.   
  596. + #ifndef M_XENIX    
  597.         READ_FILE_HEADERS (desc, name);
  598. + #endif /* M_XENIX */
  599.   
  600.         /* Read in the string table */
  601.         lseek (desc, STRING_TABLE_OFFSET, L_SET);
  602. ***************
  603. *** 3058,3063 ****
  604. --- 3243,3249 ----
  605.     symtab_input_desc = desc;
  606.     symbuf_end = symbuf_idx = 0;
  607.   
  608. + #ifndef M_XENIX
  609.     /* It is necessary to actually read one symbol *before* the start
  610.        of this symtab's symbols, because the GCC_COMPILED_FLAG_SYMBOL
  611.        occurs before the N_SO symbol.
  612. ***************
  613. *** 3087,3092 ****
  614. --- 3273,3285 ----
  615.         lseek(desc, sym_offset, L_INCR);
  616.         processing_gcc_compilation = 0;
  617.       }
  618. + #else /* M_XENIX */
  619. +     lseek(desc, sym_offset, L_SET);
  620. +     processing_gcc_compilation = 0;
  621. + #ifdef X_DEBUG
  622. +     printf("sym_offset = %d,  sym_size = %d\n", sym_offset, sym_size);
  623. + #endif /* X_DEBUG */
  624. + #endif /* M_XENIX */
  625.   
  626.     if (symbuf_idx == symbuf_end)
  627.       fill_symbuf();
  628. ***************
  629. *** 3094,3099 ****
  630. --- 3287,3298 ----
  631.     if ((unsigned char) bufp->n_type != N_SO)
  632.       fatal("First symbol in segment of executable not a source symbol");
  633.   
  634. + #ifdef X_DEBUG
  635. + printf("%s = (%#x, %d, %#x)\n",
  636. +   bufp->n_un.n_strx ? bufp->n_un.n_strx+stringtab : "<NONE>",
  637. +   (unsigned char)bufp->n_type, bufp->n_desc, bufp->n_value);
  638. + #endif /* X_DEBUG */
  639. + 
  640.     for (symnum = 0;
  641.          symnum < sym_size / sizeof(struct nlist);
  642.          symnum++)
  643. ***************
  644. *** 3103,3108 ****
  645. --- 3302,3312 ----
  646.       fill_symbuf();
  647.         bufp = &symbuf[symbuf_idx++];
  648.         type = bufp->n_type;
  649. + #ifdef X_DEBUG
  650. + printf("%s = (%#x, %d, %#x)\n",
  651. +   bufp->n_un.n_strx ? bufp->n_un.n_strx+stringtab : "<NONE>",
  652. +   (unsigned char)bufp->n_type, bufp->n_desc, bufp->n_value);
  653. + #endif /* X_DEBUG */
  654.   
  655.         if (offset &&
  656.         (type == N_TEXT || type == N_DATA || type == N_BSS))
  657. ***************
  658. *** 3476,3481 ****
  659. --- 3680,3687 ----
  660.   
  661.   /* Read in another .o file and create a symtab entry for it.*/
  662.   
  663. + #ifndef M_XENIX /* Xenix can't do incremental loads */
  664. + 
  665.   static void
  666.   read_addl_syms (desc, stringtab, nlistlen, text_addr, text_size)
  667.        int desc;
  668. ***************
  669. *** 3772,3777 ****
  670. --- 3978,3984 ----
  671.     printf ("done.\n");
  672.     fflush (stdout);
  673.   }
  674. + #endif /* M_XENIX */
  675.   
  676.   /* Read a number by which a type is referred to in dbx data,
  677.      or perhaps read a pair (FILENUM, TYPENUM) in parentheses.
  678. ***************
  679. *** 5469,5476 ****
  680. --- 5676,5685 ----
  681.     add_com ("symbol-file", class_files, symbol_file_command,
  682.          "Load symbol table (in dbx format) from executable file FILE.");
  683.   
  684. + #ifndef M_XENIX
  685.     add_com ("add-file", class_files, add_file_command,
  686.              "Load the symbols from FILE, assuming its code is at TEXT_START.") ;
  687. + #endif /* M_XENIX */
  688.   }
  689.   
  690.   #endif /* READ_DBX_FORMAT */
  691. *** 3.5/gas-nlist.h
  692. --- gas-nlist.h    Thu Aug  1 18:01:31 1991
  693. ***************
  694. *** 0 ****
  695. --- 1,13 ----
  696. + #define N_STAB 0340
  697. + 
  698. + struct gas_nlist {
  699. +     union {
  700. +         char    *n_name;
  701. +         struct gas_nlist *n_next;
  702. +         long    n_strx;
  703. +     } n_un;
  704. +     char    n_type;
  705. +     char    n_other;
  706. +     short    n_desc;
  707. +     unsigned n_value;
  708. + };
  709. *** 3.5/i386-dep.c    Thu Jan 11 00:58:05 1990
  710. --- i386-dep.c    Thu Aug  1 18:01:33 1991
  711. ***************
  712. *** 30,35 ****
  713. --- 30,49 ----
  714.   #include <sys/param.h>
  715.   #include <sys/dir.h>
  716.   #include <signal.h>
  717. + #ifdef M_XENIX
  718. + struct user; struct buf; struct inode; struct proc;    /* inhibit warnings */
  719. + #include <sys/page.h>
  720. + #include <sys/seg.h>
  721. + #define a_magic xa_magic
  722. + #define a_text xa_text
  723. + #define exec xexec
  724. + #undef U_FPSTATE
  725. + #define U_FPSTATE(u)    u.u_fps
  726. + #define fpstate u_fps
  727. + #define u_fpvalid u_fpsaved
  728. + unsigned short text_segid;    /* segment number of text segment */
  729. + unsigned short data_segid;    /* segment number of data segment */
  730. + #endif
  731.   #include <sys/user.h>
  732.   #include <sys/ioctl.h>
  733.   #include <fcntl.h>
  734. ***************
  735. *** 37,44 ****
  736. --- 51,60 ----
  737.   #ifdef COFF_ENCAPSULATE
  738.   #include "a.out.encap.h"
  739.   #else
  740. + #ifndef M_XENIX            /* already included by sys/user.h */
  741.   #include <a.out.h>
  742.   #endif
  743. + #endif
  744.   
  745.   #ifndef N_SET_MAGIC
  746.   #ifdef COFF_FORMAT
  747. ***************
  748. *** 50,57 ****
  749. --- 66,94 ----
  750.   
  751.   #include <sys/file.h>
  752.   #include <sys/stat.h>
  753. + #ifdef M_XENIX
  754. + #include <sys/proc.h>
  755. + #endif
  756.   
  757.   #include <sys/reg.h>
  758. + #ifdef M_XENIX
  759. + #define SS    RSS
  760. + #define UESP    RESP
  761. + #define EFL    REFL
  762. + #define CS    RCS
  763. + #define EIP    REIP
  764. + #define EAX    REAX
  765. + #define ECX    RECX
  766. + #define EDX    REDX
  767. + #define EBX    REBX
  768. + #define EBP    REBP
  769. + #define ESI    RESI
  770. + #define EDI    REDI
  771. + #define DS    RDS
  772. + #define ES    RES
  773. + #define FS    RFS
  774. + #define GS    RGS
  775. + #endif
  776.   
  777.   extern int errno;
  778.   
  779. ***************
  780. *** 62,68 ****
  781. --- 99,120 ----
  782.   call_ptrace (request, pid, arg3, arg4)
  783.        int request, pid, arg3, arg4;
  784.   {
  785. + #ifdef M_XENIX
  786. +     extern CORE_ADDR text_end;
  787. +     int addr_in_data_segment = arg3 > text_end;
  788. + #ifdef PTRACE_ADDR_ARG_STRUCT
  789. +     struct saddr addr;
  790. +     addr.sa_seg = addr_in_data_segment ? data_segid : text_segid;
  791. +     if (request == 7 || request == 9) addr.sa_seg = 0;
  792. +     addr.sa_off = arg3;
  793. +     arg3 = (int) &addr;
  794. + #endif
  795. +   if (addr_in_data_segment && (request == 1 || request == 4)) request++;
  796. +   return ptrace (request, pid, arg3, arg4);
  797. + #define ptrace(a, b, c, d) call_ptrace(a, b, c, d)
  798. + #else
  799.     return ptrace (request, pid, arg3, arg4);
  800. + #endif /* M_XENIX */
  801.   }
  802.   
  803.   kill_inferior ()
  804. ***************
  805. *** 157,163 ****
  806. --- 209,220 ----
  807.         perror_with_name (buf);
  808.       }
  809.       }
  810. + #ifdef M_XENIX
  811. + /* HACK: Xenix ptrace() disallows writing to where es, fs and gs are kept */
  812. +   else for (regno = 0; regno < (NUM_REGS - 3); regno++)
  813. + #else
  814.     else for (regno = 0; regno < NUM_REGS; regno++)
  815. + #endif
  816.       {
  817.         regaddr = register_addr (regno, offset);
  818.         errno = 0;
  819. ***************
  820. *** 382,389 ****
  821. --- 439,451 ----
  822.   
  823.     data_start = 0;
  824.     data_end = 0;
  825. + #ifdef M_XENIX
  826. +   stack_start = 0;
  827. +   stack_end = 0;
  828. + #else
  829.     stack_start = STACK_END_ADDR;
  830.     stack_end = STACK_END_ADDR;
  831. + #endif
  832.   
  833.     /* Now, if a new core file was specified, open it and digest it.  */
  834.   
  835. ***************
  836. *** 406,411 ****
  837. --- 468,474 ----
  838.       val = myread (corechan, &u, sizeof u);
  839.       if (val < 0)
  840.         perror_with_name (filename);
  841. + #ifndef M_XENIX
  842.       data_start = exec_data_start;
  843.   
  844.       data_end = data_start + NBPG * u.u_dsize;
  845. ***************
  846. *** 412,417 ****
  847. --- 475,490 ----
  848.       stack_start = stack_end - NBPG * u.u_ssize;
  849.       data_offset = NBPG * UPAGES;
  850.       stack_offset = NBPG * (UPAGES + u.u_dsize);
  851. + #else
  852. +     data_start = (CORE_ADDR)u.u_sdata;
  853. +     data_end = (CORE_ADDR)u.u_edatau;
  854. +     stack_start = (CORE_ADDR)u.u_stktop;
  855. +     stack_end = (CORE_ADDR)u.u_stkbotu;
  856. + 
  857. +     data_offset = lseek(corechan, 0L, 2) - u.u_dsize;
  858. +     stack_offset = (((sizeof u + (u.u_ldtlimit-1)*sizeof(struct descriptor)
  859. +             + NBPC - 1) / NBPC) * NBPC);
  860. + #endif
  861.       reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR;
  862.   
  863.       /* I don't know where to find this info.
  864. ***************
  865. *** 523,529 ****
  866. --- 596,651 ----
  867.       exec_mtime = file_hdr.f_timdat;
  868.         }
  869.   #else /* not COFF_FORMAT */
  870. + #ifdef M_XENIX
  871.         {
  872. +     char *extended_header;
  873. +     struct xext *xext;
  874. +     struct stat st_exec;
  875. +     struct xseg xseg;
  876. +     extern char *malloc();
  877. +     val = myread (execchan, &exec_aouthdr, sizeof (AOUTHDR));
  878. + 
  879. +     if (val < 0)
  880. +       perror_with_name (filename);
  881. +         if (exec_aouthdr.x_magic != X_MAGIC)
  882. +       error ("\"%s\": not in executable format.", execfile);
  883. +     if ( (exec_aouthdr.x_cpu & XC_CPU) != XC_386 )
  884. +       error ("\"%s\": not a 386 executable.", execfile);
  885. +     if ( (exec_aouthdr.x_renv & XE_SEG) == 0)
  886. +       error ("\"%s\": not a segmented executable.", execfile);
  887. +     if ( (exec_aouthdr.x_renv & XE_EXEC) == 0)
  888. +       error ("\"%s\": not executable.", execfile);
  889. +     extended_header = malloc(exec_aouthdr.x_ext);
  890. +     val = myread (execchan, extended_header, exec_aouthdr.x_ext);
  891. +     if (val < 0)
  892. +       perror_with_name (filename);
  893. +     xext = (struct xext *)extended_header;
  894. +     lseek(execchan, xext->xe_segpos, 0);
  895. +     if (myread (execchan, (char *)&xseg, sizeof(xseg)) < 0)
  896. +       perror_with_name (filename);
  897. +     if ( xseg.xs_type != XS_TTEXT )
  898. +       error ("\"%s\": Text segment isn't first (huh?).", execfile);
  899. +     text_segid = xseg.xs_seg;
  900. +     text_start = xseg.xs_rbase;
  901. +     text_end = text_start + xseg.xs_vsize;
  902. +     text_offset = xseg.xs_filpos;
  903. + 
  904. +     if (myread (execchan, (char *)&xseg, sizeof(xseg)) < 0)
  905. +       perror_with_name (filename);
  906. +     if ( xseg.xs_type != XS_TDATA )
  907. +       error ("\"%s\": Data segment isn't second (huh?).", execfile);
  908. +     data_segid = xseg.xs_seg;
  909. +     exec_data_start = xseg.xs_rbase;
  910. +     exec_data_end = exec_data_start + xseg.xs_psize;
  911. +     exec_data_offset = xseg.xs_filpos;
  912. +     data_start = exec_data_start;
  913. +     data_end += exec_data_start;
  914. +     
  915. +     fstat (execchan, &st_exec);
  916. +     exec_mtime = st_exec.st_mtime;
  917. +     free(extended_header);
  918. +       }
  919. + #else    /* not M_XENIX */
  920.       struct stat st_exec;
  921.   
  922.   #ifdef HEADER_SEEK_FD
  923. ***************
  924. *** 549,554 ****
  925. --- 671,677 ----
  926.       fstat (execchan, &st_exec);
  927.       exec_mtime = st_exec.st_mtime;
  928.         }
  929. + #endif /* not M_XENIX */
  930.   #endif /* not COFF_FORMAT */
  931.   
  932.         validate_files ();
  933. ***************
  934. *** 1056,1061 ****
  935. --- 1179,1195 ----
  936.   
  937.   struct env387 
  938.   {
  939. + #ifdef M_XENIX
  940. +   unsigned int control;
  941. +   unsigned int status;
  942. +   unsigned int tag;
  943. +   unsigned long eip;
  944. +   unsigned short code_seg;
  945. +   unsigned short operand_seg;
  946. +   unsigned long opcode;
  947. +   unsigned long operand;
  948. +   unsigned char regs[8][10];
  949. + #else
  950.     unsigned short control;
  951.     unsigned short r0;
  952.     unsigned short status;
  953. ***************
  954. *** 1069,1074 ****
  955. --- 1203,1209 ----
  956.     unsigned short operand_seg;
  957.     unsigned short r3;
  958.     unsigned char regs[8][10];
  959. + #endif
  960.   };
  961.   
  962.   static
  963. ***************
  964. *** 1145,1150 ****
  965. --- 1280,1289 ----
  966.     int fpreg;
  967.     unsigned char *p;
  968.     
  969. + #ifdef M_XENIX
  970. +   if (ep->status != 0) 
  971. +       print_387_status_word (ep->status);
  972. + #else
  973.     bothstatus = ((status != 0) && (ep->status != 0));
  974.     if (status != 0) 
  975.       {
  976. ***************
  977. *** 1159,1164 ****
  978. --- 1298,1304 ----
  979.       printf ("e: ");
  980.         print_387_status_word (ep->status);
  981.       }
  982. + #endif
  983.     
  984.     print_387_control_word (ep->control);
  985.     printf ("last exception: ");
  986. ***************
  987. *** 1188,1193 ****
  988. --- 1328,1334 ----
  989.         i387_to_double (ep->regs[fpreg], (char *)&val);
  990.         printf ("  %g\n", val);
  991.       }
  992. + #ifndef M_XENIX
  993.     if (ep->r0)
  994.       printf ("warning: reserved0 is 0x%x\n", ep->r0);
  995.     if (ep->r1)
  996. ***************
  997. *** 1196,1201 ****
  998. --- 1337,1343 ----
  999.       printf ("warning: reserved2 is 0x%x\n", ep->r2);
  1000.     if (ep->r3)
  1001.       printf ("warning: reserved3 is 0x%x\n", ep->r3);
  1002. + #endif
  1003.   }
  1004.   
  1005.   #ifndef U_FPSTATE
  1006. ***************
  1007. *** 1270,1275 ****
  1008. --- 1412,1421 ----
  1009.       }
  1010.     
  1011.     fpstatep = (struct fpstate *)(buf + skip);
  1012. + #ifdef M_XENIX
  1013. +   print_387_status (0, (struct env387 *)fpstatep);
  1014. + #else
  1015.     print_387_status (fpstatep->status, (struct env387 *)fpstatep->state);
  1016. + #endif
  1017.   }
  1018.   
  1019. *** 3.5/infrun.c    Wed Jan 24 00:10:35 1990
  1020. --- infrun.c    Thu Aug  1 18:01:35 1991
  1021. ***************
  1022. *** 146,151 ****
  1023. --- 146,156 ----
  1024.   /* Needed by IN_SIGTRAMP on some machines (e.g. vax).  */
  1025.   #include <sys/param.h>
  1026.   /* Needed by IN_SIGTRAMP on some machines (e.g. vax).  */
  1027. + #ifdef M_XENIX
  1028. + struct user; struct buf; struct inode; struct proc;    /* inhibit warnings */
  1029. + #include <sys/page.h>
  1030. + #include <sys/seg.h>
  1031. + #endif
  1032.   #include <sys/user.h>
  1033.   
  1034.   extern char *sys_siglist[];
  1035. *** 3.5/m-xenix386.h
  1036. --- m-xenix386.h    Thu Aug  1 18:01:35 1991
  1037. ***************
  1038. *** 0 ****
  1039. --- 1,30 ----
  1040. + /* SCO XENIX 386 version.  Mostly like System V/386 3.2 */
  1041. + #include "m-i386-sv32.h"
  1042. + 
  1043. + /* define this if your DEVELOPMENT system is older than 2.3 */
  1044. + /* #define PTRACE_ADDR_ARG_STRUCT */
  1045. + 
  1046. + #define const    /* workaround for SCO's include files */
  1047. + /* This machine doesn't have the siginterrupt call.  */
  1048. + #define NO_SIGINTERRUPT
  1049. + #define NAMES_HAVE_UNDERSCORE
  1050. + /* support dbx-style debugging in x.out executables produced by
  1051. +    the accompanying port of GCC */
  1052. + #undef COFF_FORMAT
  1053. + #define READ_DBX_FORMAT
  1054. + #undef START_INFERIOR_TRAPS_EXPECTED
  1055. + #define START_INFERIOR_TRAPS_EXPECTED 2
  1056. + #undef KERNEL_U_ADDR
  1057. + #define KERNEL_U_ADDR 0x06000000
  1058. + #undef FIX_CALL_DUMMY
  1059. + #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, type)   \
  1060. + { \
  1061. +     extern CORE_ADDR text_end; \
  1062. +     int from, to, delta, loc; \
  1063. +     loc = text_end - CALL_DUMMY_LENGTH; \
  1064. +     from = loc + 5; \
  1065. +     to = (int)(fun); \
  1066. +     delta = to - from; \
  1067. +     *(int *)((char *)(dummyname) + 1) = delta; \
  1068. + }
  1069. + #define CANNOT_EXECUTE_STACK
  1070. *** 3.5/munch    Wed Jul  5 20:46:28 1989
  1071. --- munch    Thu Aug  1 18:01:35 1991
  1072. ***************
  1073. *** 5,17 ****
  1074.   echo '/* Do not modify this file.  It is created automatically by "munch". */'
  1075.   echo 'void initialize_all_files () {'
  1076.   
  1077. ! if test "$1" = "-DSYSV" ; then
  1078.       shift;
  1079.       nm $* | egrep '^(.*[^a-zA-Z_]_|_)initialize_' | \
  1080.       sed -e 's/^.*\(_initialize_[a-zA-Z0-9_]*\)[^a-zA-Z0-9_].*$/   \1 ();/'
  1081.   else
  1082.       nm -p $* | egrep 'T *__initialize_' | \
  1083.       sed -e 's/^.*T *_*\(.*\)/    _\1 ();/'
  1084.   fi
  1085.   
  1086.   echo '}'
  1087. --- 5,22 ----
  1088.   echo '/* Do not modify this file.  It is created automatically by "munch". */'
  1089.   echo 'void initialize_all_files () {'
  1090.   
  1091. ! if [ -f /xenix ]; then
  1092.       shift;
  1093. +     nm $* | egrep 'A *__initialize_' | \
  1094. +     sed -e 's/^.*A *_*\(.*\)/    _\1 ();/'
  1095. + else if test "$1" = "-DSYSV" ; then
  1096. +     shift;
  1097.       nm $* | egrep '^(.*[^a-zA-Z_]_|_)initialize_' | \
  1098.       sed -e 's/^.*\(_initialize_[a-zA-Z0-9_]*\)[^a-zA-Z0-9_].*$/   \1 ();/'
  1099.   else
  1100.       nm -p $* | egrep 'T *__initialize_' | \
  1101.       sed -e 's/^.*T *_*\(.*\)/    _\1 ();/'
  1102. + fi
  1103.   fi
  1104.   
  1105.   echo '}'
  1106. *** 3.5/readline/Makefile    Thu Feb  8 07:05:33 1990
  1107. --- readline/Makefile    Thu Aug  1 18:01:43 1991
  1108. ***************
  1109. *** 38,44 ****
  1110.   # A good alternative is gcc -traditional.
  1111.   #CC = gcc -traditional
  1112.   CC = cc
  1113. ! RANLIB = /usr/bin/ranlib
  1114.   AR = ar
  1115.   RM = rm
  1116.   CP = cp
  1117. --- 38,44 ----
  1118.   # A good alternative is gcc -traditional.
  1119.   #CC = gcc -traditional
  1120.   CC = cc
  1121. ! RANLIB = /bin/ranlib
  1122.   AR = ar
  1123.   RM = rm
  1124.   CP = cp
  1125. *** 3.5/readline/readline.c    Sun Nov 26 22:31:36 1989
  1126. --- readline/readline.c    Thu Aug  1 18:01:45 1991
  1127. ***************
  1128. *** 68,73 ****
  1129. --- 68,77 ----
  1130.   
  1131.   #define HACK_TERMCAP_MOTION
  1132.   
  1133. + #ifdef M_XENIX
  1134. + #include <sys/ttold.h>
  1135. + #include <sys/ndir.h>
  1136. + #else
  1137.   #ifndef SYSV
  1138.   #include <sys/dir.h>
  1139.   #else  /* SYSV */
  1140. ***************
  1141. *** 79,84 ****
  1142. --- 83,89 ----
  1143.   #define d_namlen d_reclen
  1144.   #endif  /* hpux */
  1145.   #endif  /* SYSV */
  1146. + #endif
  1147.   
  1148.   /* Some standard library routines. */
  1149.   #include "readline.h"
  1150. *** 3.5/symtab.h    Fri Sep  8 01:59:14 1989
  1151. --- symtab.h    Thu Aug  1 18:01:46 1991
  1152. ***************
  1153. *** 149,154 ****
  1154. --- 149,157 ----
  1155.        to take a *lot* of time; check) or an error (and we don't care
  1156.        how long errors take). */
  1157.     int statics_offset, n_static_syms;
  1158. + #ifdef M_XENIX
  1159. +   int stringtab_off;
  1160. + #endif /* M_XENIX */
  1161.   };
  1162.   
  1163.   /* This is the list of struct symtab's that gdb considers current.  */
  1164. *** 3.5/values.c    Sun Sep 10 04:39:19 1989
  1165. --- values.c    Thu Aug  1 18:01:48 1991
  1166. ***************
  1167. *** 1024,1028 ****
  1168.   
  1169.     add_info ("values", value_history_info,
  1170.           "Elements of value history (around item number IDX, or last ten).");
  1171. !   add_info_alias ("history", value_history_info, 0);
  1172.   }
  1173. --- 1024,1028 ----
  1174.   
  1175.     add_info ("values", value_history_info,
  1176.           "Elements of value history (around item number IDX, or last ten).");
  1177. ! /*  add_info_alias ("history", value_history_info, 0); */
  1178.   }
  1179. *** 3.5/x386dbx.c
  1180. --- x386dbx.c    Thu Aug  1 18:01:50 1991
  1181. ***************
  1182. *** 0 ****
  1183. --- 1,481 ----
  1184. + #include <stdio.h>
  1185. + #include <a.out.h>
  1186. + #include <fcntl.h>
  1187. + #include <sys/types.h>
  1188. + #include <sys/relsym.h>
  1189. + #include <sys/param.h>
  1190. + #include <sys/file.h>
  1191. + #include "defs.h"
  1192. + #include "param.h"
  1193. + #include "symtab.h"
  1194. + #include "gas-nlist.h"
  1195. + 
  1196. + 
  1197. + /* XENIX symbol segment shape definitions */
  1198. + 
  1199. + struct section2 {            /* File info table shape */
  1200. +     short        segment;    /* segment number */
  1201. +     CORE_ADDR    address;    /* start address for this file */
  1202. +     unsigned short    textsize;    /* size of the text for this file */
  1203. +     long        type3off;    /* offset to type3 records, psym tab */
  1204. +     long        type4off;    /* offset to type4 records, nlist tab */
  1205. +     long        type5off;    /* offset to type5 records, str tab */
  1206. +     long        type6off;    /* offset to type6 records */
  1207. +     unsigned short    type3sz;    /* size of type3 records */
  1208. +     unsigned short    type4sz;    /* size of type4 records */
  1209. +     unsigned short    type5sz;    /* size of type5 records */
  1210. +     unsigned short    type6sz;    /* size of type6 records */
  1211. +     char        filelen;    /* length of filename */
  1212. + };
  1213. + 
  1214. + /* psymtable (attribute 3) symbol segment shape */
  1215. + 
  1216. + struct psymbol_seg {
  1217. +     long        address;    /* core address */
  1218. +     short        segid;        /* segment number */
  1219. +     short        typeid;        /* variable's type */
  1220. +     char        varlen;        /* variable's length */
  1221. + /*    char        name[0];    trailing name varlen long */
  1222. + } record3;
  1223. + 
  1224. + /*  Info maintenance structures */
  1225. + 
  1226. + struct fileinfo {        /* per file info */
  1227. +     CORE_ADDR    address;    /* start address for this file */
  1228. +     unsigned short    textsize;    /* size of text for this file */
  1229. +     long        psymoff;    /* psyms table */
  1230. +     long        strtaboff;    /* string table aka $$TYPES */
  1231. +     long        ntaboff;    /* nlist table aka $$SYMBOLS */
  1232. +     unsigned short    psymsz;        /* size of psyms table */
  1233. +     unsigned short    strtabsz;    /* size of string table */
  1234. +     unsigned short    ntabsz;        /* size of nlist table */
  1235. +     int        mscdebuginfo;    /* compiled with cc -g not gcc -g */
  1236. +     char        *filename;    /* name of this file */
  1237. +     struct fileinfo *next;
  1238. + };
  1239. + 
  1240. + static struct fileinfo *fi_table = 0;
  1241. + struct xseg *seg_table;
  1242. + long num_seg_table_entries;
  1243. + 
  1244. + #ifdef __GNUC__
  1245. + #define alloca __builtin_alloca
  1246. + #endif
  1247. + 
  1248. + #define IGNORE_ATTR (-1)
  1249. + 
  1250. + static read_fileinfo_table(fp, segsize, name)
  1251. + FILE *fp;
  1252. + int segsize;
  1253. + char *name;
  1254. + {
  1255. +   extern char *strrchr(), *xmalloc();
  1256. +   char *fi_name;
  1257. +   char *filename;
  1258. +   struct section2 fi_entry;
  1259. +   struct fileinfo *fi;
  1260. + 
  1261. +   fi_table = fi = (struct fileinfo *)xmalloc(sizeof(struct fileinfo));
  1262. +   while (segsize > 0)
  1263. +   {
  1264. +     if ((fread((char *)&fi_entry.segment, sizeof(short), 1, fp) != 1)
  1265. +       || (fread((char *)&fi_entry.address, sizeof(CORE_ADDR), 1, fp) != 1)
  1266. +       || (fread((char *)&fi_entry.textsize, sizeof(unsigned short),1,fp) != 1)
  1267. +       || (fread((char *)&fi_entry.type3off, sizeof(long), 1, fp) != 1)
  1268. +       || (fread((char *)&fi_entry.type4off, sizeof(long), 1, fp) != 1)
  1269. +       || (fread((char *)&fi_entry.type5off, sizeof(long), 1, fp) != 1)
  1270. +       || (fread((char *)&fi_entry.type6off, sizeof(long), 1, fp) != 1)
  1271. +       || (fread((char *)&fi_entry.type3sz, sizeof(unsigned short),1,fp) != 1)
  1272. +       || (fread((char *)&fi_entry.type4sz, sizeof(unsigned short),1,fp) != 1)
  1273. +       || (fread((char *)&fi_entry.type5sz, sizeof(unsigned short),1,fp) != 1)
  1274. +       || (fread((char *)&fi_entry.type6sz, sizeof(unsigned short),1,fp) != 1)
  1275. +       || (fread((char *)&fi_entry.filelen, sizeof(char), 1, fp) != 1))
  1276. +       perror_with_name(name);
  1277. + 
  1278. +     segsize -= sizeof(short) + sizeof(CORE_ADDR) + 5 * sizeof(unsigned short)
  1279. +            + 4 * sizeof(long) + sizeof(char);
  1280. + 
  1281. +     fi_name = alloca(fi_entry.filelen + 1);
  1282. +     if (fread(fi_name, fi_entry.filelen, 1, fp) != 1)
  1283. +       perror_with_name(name);
  1284. +     fi_name[fi_entry.filelen] = '\0';
  1285. +     segsize -= fi_entry.filelen;
  1286. + 
  1287. +     if ((filename = strrchr(fi_name, '/')) != (char *)0)
  1288. +       fi_name = filename + 1;
  1289. + 
  1290. +     if ((filename = strrchr(fi_name, '(')) != (char *)0)
  1291. +       fi_name = filename + 1;
  1292. + 
  1293. +     if ((filename = strrchr(fi_name, ')')) != (char *)0)
  1294. +         *filename = '\0';
  1295. +    
  1296. +     {
  1297. +       int len = strlen(fi_name);
  1298. + 
  1299. +       if (len > 2 && fi_name[len - 1] == 'o' && fi_name[len - 2] == '.')
  1300. +       fi_name[len - 1] = 'c';
  1301. +     }
  1302. + 
  1303. +     fi_name = savestring(fi_name, strlen(fi_name) + 1);
  1304. + 
  1305. +     fi->next = (struct fileinfo *)xmalloc(sizeof(struct fileinfo));
  1306. +     fi = fi->next;
  1307. + 
  1308. +     fi->address = fi_entry.address;
  1309. +     fi->textsize = fi_entry.textsize;
  1310. +     fi->psymoff = fi_entry.type3off;
  1311. +     fi->psymsz = fi_entry.type3sz;
  1312. +     fi->strtaboff = fi_entry.type4off;
  1313. +     fi->strtabsz = fi_entry.type4sz;
  1314. +     fi->ntaboff = fi_entry.type5off;
  1315. +     fi->ntabsz = fi_entry.type5sz;
  1316. +     fi->mscdebuginfo = (fi_entry.type6sz != 0);
  1317. +     fi->filename = fi_name;
  1318. +   }
  1319. +   fi->next = 0;  fi = fi_table;  fi_table = fi_table->next;  free(fi);
  1320. + 
  1321. + #ifdef X_DEBUG
  1322. +     printf("\naddress   textsz  symoff   symsz  stroff   strsz  taboff   tabsz  name\n\n");
  1323. +   for (fi = fi_table; fi != 0; fi = fi->next)
  1324. +   {
  1325. +     printf("% 8x  % 6d  % 6d  % 6d  % 6d  % 6d  % 6d  %6d  %s\n", fi->address, fi->textsize, fi->psymoff, fi->psymsz, fi->strtaboff, fi->strtabsz, fi->ntaboff, fi->ntabsz, fi->filename);
  1326. +   }
  1327. +   printf("\n");
  1328. + #endif /* X_DEBUG */
  1329. + }
  1330. + 
  1331. + static read_seg_table(fp, pos, size, name)
  1332. + FILE *fp;
  1333. + long pos, size;
  1334. + {
  1335. +   seg_table = (struct xseg *) xmalloc(size);
  1336. +   fseek(fp, pos, 0);
  1337. +   if (fread((char *)seg_table, size, 1, fp) != 1)
  1338. +     perror_with_name(name);
  1339. +   num_seg_table_entries = size / sizeof (struct xseg);
  1340. + }
  1341. + 
  1342. + 
  1343. + struct xseg *find_segment(type, attr)
  1344. + int type, attr;
  1345. + {
  1346. +   struct xseg *cseg;
  1347. + 
  1348. +   for (cseg = seg_table; cseg < seg_table + num_seg_table_entries; ++cseg)
  1349. +   if (cseg->xs_type == type &&
  1350. +     (attr == IGNORE_ATTR || attr == cseg->xs_attr))
  1351. +     return cseg;
  1352. +   return NULL;
  1353. + }
  1354. + 
  1355. + static int compare_misc_functions (fn1, fn2)
  1356. + struct misc_function *fn1, *fn2;
  1357. + {
  1358. +   /* Return a signed result based on unsigned comparisons
  1359. +      so that we sort into unsigned numeric order.  */
  1360. + 
  1361. +   if (fn1->address < fn2->address)
  1362. +     return -1;
  1363. +   if (fn1->address > fn2->address)
  1364. +     return 1;
  1365. +   return 0;
  1366. + }
  1367. + 
  1368. + static int read_misc_functions(fp, segsize, name)
  1369. + FILE *fp;
  1370. + int segsize;
  1371. + char *name;
  1372. + {
  1373. +   char *symdata, *p, *str_buff;
  1374. +   long sym_count = 0, str_count = 0, i;
  1375. +   struct misc_function *miscp;
  1376. +   struct sym symb;
  1377. + 
  1378. +   /* grab the symbol table */
  1379. + 
  1380. +   symdata = alloca(segsize + 1);
  1381. +   if (fread(symdata, segsize, 1, fp) != 1)
  1382. +       perror_with_name(name);
  1383. + 
  1384. +   /* first pass, work out how many symbols there are and the size of the
  1385. +    * strings
  1386. +    */
  1387. + 
  1388. +   p = symdata;
  1389. +   while (p < symdata + segsize)
  1390. +   {
  1391. +     int len;
  1392. + 
  1393. +     p += sizeof(struct sym);
  1394. +     len = strlen(p) + 1;
  1395. +     str_count += len;  p += len;  sym_count++;
  1396. +   }
  1397. + 
  1398. +   /* Now build the misc function vector */
  1399. + 
  1400. +   str_buff = xmalloc(str_count+1);
  1401. +   misc_function_vector =
  1402. +     (struct misc_function *) xmalloc (sym_count * sizeof(struct misc_function));
  1403. +   misc_function_count = sym_count;
  1404. + 
  1405. +   p = symdata;  miscp = misc_function_vector;
  1406. +   while (p < symdata + segsize)
  1407. +   {
  1408. +     int len;
  1409. + 
  1410. +     symb = *((struct sym *)p);
  1411. +     p += sizeof(struct sym);
  1412. + 
  1413. +     if (*p == '_')
  1414. +       strcpy(str_buff, p+1);
  1415. +     else
  1416. +       strcpy(str_buff, p);
  1417. + 
  1418. +     /* the following will result in a garbage byte every time a symbol
  1419. +      * starts with a _, I can'y be bothered to fix it.
  1420. +      */
  1421. + 
  1422. +     miscp->name = str_buff;
  1423. +     len = strlen(p) + 1;
  1424. +     str_buff += len;  p += len;
  1425. +     miscp->address = symb.s_value;
  1426. +     switch(symb.s_type & S_TYPE)
  1427. +     {
  1428. +     case S_UNDEF:  miscp->type = mf_unknown;  break;
  1429. +     case S_ABS:    miscp->type = mf_abs;  break;
  1430. +     case S_TEXT:   miscp->type = mf_text;  break;
  1431. +     case S_DATA:   miscp->type = mf_data;  break;
  1432. +     case S_BSS:    miscp->type = mf_bss;  break;
  1433. +     case S_COMM:   miscp->type = mf_data;  break;
  1434. +     case S_REG:    miscp->type = mf_unknown;  break;
  1435. +     case S_COMB:   miscp->type = mf_unknown;  break;
  1436. +     case S_SEG:    miscp->type = mf_unknown;  break;
  1437. +     case S_FN:     miscp->type = mf_unknown;  break;
  1438. +     dewfault:      miscp->type = mf_unknown;  break;
  1439. +     }
  1440. +     miscp++;
  1441. +   }
  1442. + 
  1443. +   qsort (misc_function_vector, misc_function_count,
  1444. +     sizeof (struct misc_function), compare_misc_functions);
  1445. + 
  1446. + #ifdef X_DEBUG
  1447. +   {
  1448. +     struct misc_function *miscp;
  1449. +     int i;
  1450. + 
  1451. +     printf("type      address  name\n\n");
  1452. +     for (i = 0; i < misc_function_count; i++)
  1453. +     {
  1454. +       miscp = &misc_function_vector[i];
  1455. +       switch (miscp->type)
  1456. +       {
  1457. +       case mf_unknown: printf("%-9s","unknown");  break;
  1458. +       case mf_text:    printf("%-9s","text");  break;
  1459. +       case mf_data:    printf("%-9s","data");  break;
  1460. +       case mf_bss:     printf("%-9s","bss");  break;
  1461. +       case mf_abs:     printf("%-9s","abs");  break;
  1462. +       default:         printf("%-9s","UNKNOWN");  break;
  1463. +       }
  1464. +       printf("% 8x  ", miscp->address);
  1465. +       printf("%s\n", miscp->name);
  1466. +     }
  1467. +   }
  1468. + #endif /* X_DEBUG */
  1469. +   return misc_function_count;
  1470. + }
  1471. + 
  1472. + process_a_out(desc, name)
  1473. + int desc;
  1474. + char *name;
  1475. + {
  1476. +   struct xexec exec_aouthdr;
  1477. +   struct xext *xext;
  1478. +   struct xseg *cseg;
  1479. +   FILE *fp;
  1480. + 
  1481. +   lseek(desc, 0L, 0);
  1482. +   if ((fp = fdopen(dup(desc), "r")) == NULL)
  1483. +         perror_with_name(name);
  1484. + 
  1485. +   if (fread((char *)&exec_aouthdr, sizeof(struct xexec), 1, fp) != 1)
  1486. +     perror_with_name(name);
  1487. +   
  1488. +   xext = (struct xext *) alloca(exec_aouthdr.x_ext);
  1489. +   if (fread((char *)xext, exec_aouthdr.x_ext, 1, fp) != 1)
  1490. +     perror_with_name(name);
  1491. +   
  1492. +   read_seg_table(fp, xext->xe_segpos, xext->xe_segsize, name);
  1493. + 
  1494. +   if (cseg = find_segment(XS_TSYMS, 2))
  1495. +   {
  1496. +     fseek(fp, cseg->xs_filpos, 0);
  1497. +     read_fileinfo_table(fp, cseg->xs_psize, name);
  1498. +   }
  1499. + 
  1500. +   fclose(fp);
  1501. + }
  1502. + 
  1503. + process_global_symbol_table(desc, name)
  1504. + int desc;
  1505. + char *name;
  1506. + {
  1507. +   struct xseg *cseg;
  1508. +   FILE *fp;
  1509. + 
  1510. +   if ((fp = fdopen(dup(desc), "r")) == NULL)
  1511. +         perror_with_name(name);
  1512. + 
  1513. +   if (cseg = find_segment(XS_TSYMS, 1))
  1514. +   {
  1515. +     fseek(fp, cseg->xs_filpos, 0);
  1516. +     read_misc_functions(fp, cseg->xs_psize, name);
  1517. +   }
  1518. +   fclose(fp);
  1519. + }
  1520. + 
  1521. + static struct fileinfo *current_fi;
  1522. + static int first_get_fileinfo_call = 1;
  1523. + 
  1524. + init_fileinfo_processing()  /* start processing the list of files */
  1525. + {
  1526. +   first_get_fileinfo_call = 1;
  1527. + }
  1528. + 
  1529. + long get_next_fileinfo(stroff, nsyms, address, symtaboff, textsize)
  1530. + long *stroff, *nsyms, *address, *symtaboff, *textsize;
  1531. + {
  1532. +   struct xseg *cseg;
  1533. + 
  1534. +   if (first_get_fileinfo_call)
  1535. +   {
  1536. +     current_fi = fi_table;
  1537. +     first_get_fileinfo_call = 0;
  1538. +   }
  1539. +   else
  1540. +     current_fi = current_fi->next;
  1541. +   
  1542. +   if (current_fi == 0)
  1543. +     return 0;
  1544. + 
  1545. +   if (current_fi->mscdebuginfo)
  1546. +   {
  1547. +     *stroff = 0;
  1548. +     *nsyms = 0;
  1549. +     *address = current_fi->address;
  1550. +     *textsize = current_fi->textsize;
  1551. +   }
  1552. +   else if (cseg = find_segment(XS_TSYMS, 5))
  1553. +   {
  1554. +     *symtaboff = cseg->xs_filpos + current_fi->ntaboff;
  1555. +     *stroff = current_fi->strtaboff;
  1556. +     *nsyms = current_fi->ntabsz / sizeof(struct gas_nlist);
  1557. +     *address = current_fi->address;
  1558. +     *textsize = current_fi->textsize;
  1559. +     return 1;
  1560. +   }
  1561. +   else
  1562. +   {
  1563. +     *symtaboff = 0;
  1564. +     *stroff = 0;
  1565. +     *nsyms = 0;
  1566. +     *address = 0;
  1567. +     *textsize = 0;
  1568. +   }
  1569. + }
  1570. + 
  1571. + #ifdef TEST
  1572. + 
  1573. + main()
  1574. + {
  1575. +     char *stab;
  1576. +     long str_offset, nsyms, address, ntaboff, textsize;
  1577. +      int desc;
  1578. +     struct xseg *cseg;
  1579. + 
  1580. +     process_a_out((desc = open("a.out", O_RDONLY, 0)), "a.out");
  1581. + 
  1582. +     printf("\n");
  1583. + 
  1584. +            if (cseg = find_segment(XS_TSYMS, 4))
  1585. +            {
  1586. +         lseek(desc, cseg->xs_filpos, 0);
  1587. +         stab = alloca(cseg->xs_psize);
  1588. +         read(desc, stab, cseg->xs_psize);
  1589. +       }
  1590. +       else
  1591. +         stab = 0;
  1592. + 
  1593. +           init_fileinfo_processing();
  1594. +       while (get_next_fileinfo(&str_offset,&nsyms,&address,&ntaboff,&textsize))
  1595. +       {
  1596. +         lseek(desc, ntaboff, 0);
  1597. +         printf("\n  type    desc     value  stroff  string   tsize  (%#x)\n", address);
  1598. +         while (nsyms--)
  1599. +         {
  1600. +           struct gas_nlist nl;
  1601. + 
  1602. +           read(desc, &nl, sizeof(nl));
  1603. +           printf("% 6x  % 6x  % 8x  % 6x  % 6x %s\n",
  1604. +              (unsigned char)nl.n_type,
  1605. +              (unsigned short)nl.n_desc,
  1606. +              (unsigned int)nl.n_value,
  1607. +              nl.n_un.n_strx ? stab + str_offset + nl.n_un.n_strx : "");
  1608. +         }
  1609. +         lseek(desc, 0L, 0);
  1610. +       }
  1611. + }
  1612. + 
  1613. + perror_with_name (string)
  1614. +      char *string;
  1615. + {
  1616. +   extern int sys_nerr;
  1617. +   extern char *sys_errlist[];
  1618. +   extern int errno;
  1619. +   char *err;
  1620. +   char *combined;
  1621. + 
  1622. +   if (errno < sys_nerr)
  1623. +     err = sys_errlist[errno];
  1624. +   else
  1625. +     err = "unknown error";
  1626. + 
  1627. +   combined = (char *) alloca (strlen (err) + strlen (string) + 3);
  1628. +   strcpy (combined, string);
  1629. +   strcat (combined, ": ");
  1630. +   strcat (combined, err);
  1631. + 
  1632. +   error ("%s.", combined);
  1633. + }
  1634. + 
  1635. + error (string, arg1, arg2, arg3)
  1636. +      char *string;
  1637. +      int arg1, arg2, arg3;
  1638. + {
  1639. +   fflush (stdout);
  1640. +   fprintf (stderr, string, arg1, arg2, arg3);
  1641. +   fprintf (stderr, "\n");
  1642. +   exit(1);
  1643. + }
  1644. + 
  1645. + char * xmalloc (size)
  1646. +      long size;
  1647. + {
  1648. +   register char *val = (char *) malloc (size);
  1649. +   if (!val)
  1650. +     error ("virtual memory exhausted.");
  1651. +   return val;
  1652. + }
  1653. + 
  1654. + char *savestring (ptr, size)
  1655. +      char *ptr;
  1656. +      int size;
  1657. + {
  1658. +   register char *p = (char *) xmalloc (size + 1);
  1659. +   memcpy(p, ptr, size);
  1660. +   p[size] = 0;
  1661. +   return p;
  1662. + }
  1663. + 
  1664. + #endif /* TEST */
  1665. *** gdbspace.asm
  1666. --- gdbspace.asm    Thu Aug 22 20:27:38 1991
  1667. ***************
  1668. *** 0 ****
  1669. --- 1,14 ----
  1670. + ; GDB likes to poke calling sequences beyond _end -- in the padding
  1671. + ; space up to the end of the page.
  1672. + ; But XENIX doesn't let it use this space, so we have to add the space
  1673. + ; manually.  Assemble and install this file with the command
  1674. + ;    /usr/lib/storel gdbspace.asm && mv gdbspace.o /usr/local/lib/libgdb.a
  1675. + ; and use it by specifying -lgdb when you're debugging.
  1676. + ; e.g. gcc -g foo.c -o foo -lgdb
  1677. + ; This will enable you to do things like call functions from within gdb
  1678. +     .386
  1679. + C_ETEXT    SEGMENT DWORD USE32 PUBLIC 'ENDCODE'
  1680. +     PUBLIC    SPACE_FOR_GDB_TO_USE
  1681. + SPACE_FOR_GDB_TO_USE    DB    512    DUP    (0)
  1682. + C_ETEXT ENDS
  1683. +     END
  1684.  
  1685.