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