home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / gc24sdif / gcc_240.dif < prev    next >
Encoding:
Text File  |  1993-07-24  |  62.4 KB  |  2,326 lines
  1. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/c-lex.c,v
  2. retrieving revision 1.1.1.1
  3. diff -c -r1.1.1.1 c-lex.c
  4. *** 1.1.1.1    1993/05/18 23:51:34
  5. --- c-lex.c    1993/05/21 12:35:17
  6. ***************
  7. *** 474,485 ****
  8. --- 474,487 ----
  9.       case '\r':
  10.         /* ANSI C says the effects of a carriage return in a source file
  11.            are undefined.  */
  12. + #ifndef atarist /* but not on an atarist, though hopefully we should'nt see it */
  13.         if (pedantic && !newline_warning)
  14.           {
  15.             warning ("carriage return in source file");
  16.             warning ("(we only warn about the first carriage return)");
  17.             newline_warning = 1;
  18.           }
  19. + #endif
  20.         c = getc (finput);
  21.         break;
  22.   
  23. ===================================================================
  24. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/calls.c,v
  25. retrieving revision 1.1.1.1
  26. diff -c -r1.1.1.1 calls.c
  27. *** 1.1.1.1    1993/05/18 23:51:36
  28. --- calls.c    1993/05/21 12:35:20
  29. ***************
  30. *** 2023,2028 ****
  31. --- 2023,2034 ----
  32.   
  33.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  34.   
  35. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  36. + #ifdef ENCODE_SECTION_INFO
  37. +   /* mark it as a function (to be in the text section that is) */
  38. +   SYMBOL_REF_FLAG (fun) = 1;
  39. + #endif
  40. + 
  41.     INIT_CUMULATIVE_ARGS (args_so_far, NULL_TREE, fun);
  42.   
  43.     args_size.constant = 0;
  44. ===================================================================
  45. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/cccp.c,v
  46. retrieving revision 1.1.1.1
  47. diff -c -r1.1.1.1 cccp.c
  48. *** 1.1.1.1    1993/05/18 23:51:37
  49. --- cccp.c    1993/05/21 12:35:26
  50. ***************
  51. *** 77,82 ****
  52. --- 77,83 ----
  53.   #include <stdio.h>
  54.   #include <signal.h>
  55.   
  56. + #ifndef atarist
  57.   #ifndef VMS
  58.   #ifndef USG
  59.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  60. ***************
  61. *** 86,95 ****
  62. --- 87,110 ----
  63.   #include <fcntl.h>
  64.   #endif /* USG */
  65.   #endif /* not VMS */
  66. + #endif /* not atarist */
  67.   
  68.   /* This defines "errno" properly for VMS, and gives us EACCES. */
  69.   #include <errno.h>
  70.   
  71. + /* atarist  specific defs and includes */
  72. + #ifdef atarist
  73. + #include <time.h>
  74. + #include <file.h>
  75. + #include <string.h>
  76. + #include <stddef.h>
  77. + 
  78. + long _stksize = -1L;    /* want big stack cause include files
  79. +                    get alloca'ed there */
  80. + 
  81. + #define read(fd,buf,size)    _text_read(fd,buf,size)
  82. + #endif /* atarist */
  83. + 
  84.   /* VMS-specific definitions */
  85.   #ifdef VMS
  86.   #include <time.h>
  87. ***************
  88. *** 969,974 ****
  89. --- 984,1010 ----
  90.   /* Nonzero means -I- has been seen,
  91.      so don't look for #include "foo" the source-file directory.  */
  92.   static int ignore_srcdir;
  93. +  
  94. + #ifdef atarist
  95. + /* the following dingus is used in place of some calls to bcopy,
  96. +    to ensure that backslashes get properly slashified when getting
  97. +    shoved into strings.  Note that it returns the new pointer!!
  98. +    There ought to be a better way... */
  99. + 
  100. + U_CHAR * slashifying_bcopy(from_buf, to_buf, nbytes)
  101. + U_CHAR * from_buf, * to_buf;
  102. + int nbytes;
  103. + {
  104. +   for ( ; nbytes > 0 ; )
  105. +     {
  106. +     if(*from_buf == '\\')
  107. +         *to_buf++ = '\\';
  108. +     *to_buf++ = *from_buf++;
  109. +     nbytes--;
  110. +     }
  111. +   return(to_buf);
  112. + }
  113. + #endif        /* atarist */
  114.   
  115.   int
  116.   main (argc, argv)
  117. ***************
  118. *** 1009,1014 ****
  119. --- 1045,1055 ----
  120.     /* Target-name to write with the dependency information.  */
  121.     char *deps_target = 0;
  122.   
  123. + #ifdef atarist
  124. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  125. + /*  _malloczero(1); */     /* zero mallocs by default */
  126. + #endif  
  127. + 
  128.   #ifdef RLIMIT_STACK
  129.     /* Get rid of any avoidable limit on stack size.  */
  130.     {
  131. ***************
  132. *** 1285,1294 ****
  133. --- 1326,1341 ----
  134.       break;
  135.   
  136.         case 'v':
  137. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  138. + #include "PatchLev.h"
  139. +     fprintf (stderr, "GNU CPP-atariST version %s Patchlevel %s",
  140. +          version_string, PatchLevel);
  141. + #else
  142.       fprintf (stderr, "GNU CPP version %s", version_string);
  143.   #ifdef TARGET_VERSION
  144.       TARGET_VERSION;
  145.   #endif
  146. + #endif
  147.       fprintf (stderr, "\n");
  148.       break;
  149.   
  150. ***************
  151. *** 1420,1425 ****
  152. --- 1467,1473 ----
  153.       }
  154.     }
  155.   
  156. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  157.     /* Add dirs from CPATH after dirs from -I.  */
  158.     /* There seems to be confusion about what CPATH should do,
  159.        so for the moment it is not documented.  */
  160. ***************
  161. *** 1429,1434 ****
  162. --- 1477,1483 ----
  163.     p = (char *) getenv ("CPATH");
  164.     if (p != 0 && ! no_standard_includes)
  165.       path_include (p);
  166. + #endif
  167.   
  168.     /* Now that dollars_in_ident is known, initialize is_idchar.  */
  169.     initialize_char_syntax ();
  170. ***************
  171. *** 1547,1554 ****
  172.     { /* read the appropriate environment variable and if it exists
  173.          replace include_defaults with the listed path. */
  174.       char *epath = 0;
  175.       switch ((objc << 1) + cplusplus)
  176. !       {
  177.         case 0:
  178.       epath = getenv ("C_INCLUDE_PATH");
  179.       break;
  180. --- 1596,1651 ----
  181.     { /* read the appropriate environment variable and if it exists
  182.          replace include_defaults with the listed path. */
  183.       char *epath = 0;
  184. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  185. +     int db_hack = 0;
  186. +     char *e1 = getenv("GNUINC"), *e2 = getenv("GNULIB"),
  187. +          *e3 = getenv("GXXINC");
  188. + 
  189. + 
  190. +     /* Get length of the alloc'ed array. (Yeah I know, I might alloc
  191. +      * a character more than I need but who cares...
  192. +      */
  193. +     if (cplusplus && e3)
  194. +     db_hack += strlen (e3);
  195. +     if (e1)
  196. +         db_hack += strlen (e1) + 1;
  197. +     if (e2)
  198. +         db_hack += strlen (e1) + 1;
  199. + 
  200. +     if (db_hack) {
  201. +     epath = alloca (db_hack + 1);
  202. +     *epath = '\0';
  203. +     db_hack = 0;
  204. + 
  205. +     /* Concatenate the paths together. */
  206. +     if (cplusplus && e3) {
  207. +         strcpy (epath, e3);
  208. +         db_hack = 1;
  209. +     }
  210. +     if (e1) {
  211. +         if (db_hack) {
  212. +         strcat (epath, PATH_SEP_STR);
  213. +         }
  214. +         strcat (epath, e1);
  215. +         db_hack = 1;
  216. +     }
  217. +     if (e2) {
  218. +         if (db_hack) {
  219. +         strcat (epath, PATH_SEP_STR);
  220. +         }
  221. +         strcat (epath, e2);
  222. +     }
  223. +     }
  224. + 
  225. + #ifdef atarist
  226. +     if (epath)
  227. +         for (e3=epath; *e3; e3++)    /* Use one kind of path separator */
  228. +         if (*e3 == ';')
  229. +         *e3 = PATH_SEPARATOR;
  230. + #endif
  231. + #else
  232.       switch ((objc << 1) + cplusplus)
  233. !     {
  234.         case 0:
  235.       epath = getenv ("C_INCLUDE_PATH");
  236.       break;
  237. ***************
  238. *** 1561,1567 ****
  239.         case 3:
  240.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  241.       break;
  242. !       }
  243.       /* If the environment var for this language is set,
  244.          add to the default list of include directories.  */
  245.       if (epath) {
  246. --- 1658,1666 ----
  247.         case 3:
  248.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  249.       break;
  250. !     }
  251. ! #endif
  252. ! 
  253.       /* If the environment var for this language is set,
  254.          add to the default list of include directories.  */
  255.       if (epath) {
  256. ***************
  257. *** 1615,1627 ****
  258. --- 1714,1736 ----
  259.     if (!no_standard_includes) {
  260.       struct default_include *p = include_defaults;
  261.       char *specd_prefix = include_prefix;
  262. + #ifdef GCC_INCLUDE_DIR
  263.       char *default_prefix = savestring (GCC_INCLUDE_DIR);
  264. + #else
  265. +     char *default_prefix = savestring ("./");
  266. + #endif
  267.       int default_len = 0;
  268.       /* Remove the `include' from /usr/local/lib/gcc.../include.  */
  269.       if (!strcmp (default_prefix + strlen (default_prefix) - 8, "/include")) {
  270.         default_len = strlen (default_prefix) - 7;
  271.         default_prefix[default_len] = 0;
  272.       }
  273. + #ifdef atarist
  274. +     else if (!strcmp (default_prefix + strlen (default_prefix) - 8, "\\include")) {
  275. +       default_len = strlen (default_prefix) - 7;
  276. +       default_prefix[default_len] = 0;
  277. +     }
  278. + #endif
  279.       /* Search "translated" versions of GNU directories.
  280.          These have /usr/local/lib/gcc... replaced by specd_prefix.  */
  281.       if (specd_prefix != 0 && default_len != 0)
  282. ***************
  283. *** 1749,1755 ****
  284. --- 1858,1868 ----
  285.         char *p1 = p;
  286.         /* Discard all directory prefixes from P.  */
  287.         while (*p1) {
  288. + #ifdef atarist
  289. +     if ((*p1 == '/') || (*p1 == '\\'))
  290. + #else
  291.       if (*p1 == '/')
  292. + #endif
  293.         p = p1 + 1;
  294.       p1++;
  295.         }
  296. ***************
  297. *** 1923,1928 ****
  298. --- 2036,2042 ----
  299.     return 0;
  300.   }
  301.   
  302. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  303.   /* Given a colon-separated list of file names PATH,
  304.      add all the names to the search path for include files.  */
  305.   
  306. ***************
  307. *** 1969,1974 ****
  308. --- 2083,2089 ----
  309.         p++;
  310.       }
  311.   }
  312. + #endif /* atarist */
  313.   
  314.   /* Pre-C-Preprocessor to translate ANSI trigraph idiocy in BUF
  315.      before main CCCP processing.  Name `pcp' is also in honor of the
  316. ***************
  317. *** 3146,3151 ****
  318. --- 3261,3267 ----
  319.     assertions_flag = save_assertions_flag;
  320.     return obuf;
  321.   }
  322. + /* #endif */
  323.   
  324.   /*
  325.    * Process a # directive.  Expects IP->bufp to point after the '#', as in
  326. ***************
  327. *** 3608,3615 ****
  328. --- 3724,3740 ----
  329.   
  330.         if (string)
  331.       {
  332. + #ifndef atarist
  333.         buf = (char *) alloca (3 + strlen (string));
  334.         sprintf (buf, "\"%s\"", string);
  335. + #else
  336. +           buf = (char *) alloca (16 + strlen (string));
  337. +           {
  338. +           char *tbuf = (char *) alloca (16 + strlen (string));
  339. +           (void) slashifying_bcopy(string, tbuf, strlen(string)+1);
  340. +           sprintf (buf, "\"%s\"", tbuf);
  341. +           }
  342. + #endif /* atarist */
  343.       }
  344.         else
  345.       buf = "\"\"";
  346. ***************
  347. *** 3841,3847 ****
  348. --- 3966,3977 ----
  349.           dsp[0].next = search_start;
  350.           search_start = dsp;
  351.   #ifndef VMS
  352. + #ifdef atarist
  353. +         if((ep = rindex(nam, '\\')) == NULL)
  354. +         ep = rindex(nam, '/');
  355. + #else
  356.           ep = rindex (nam, '/');
  357. + #endif
  358.   #else                /* VMS */
  359.           ep = rindex (nam, ']');
  360.           if (ep == NULL) ep = rindex (nam, '>');
  361. ***************
  362. *** 3921,3929 ****
  363. --- 4051,4073 ----
  364.   
  365.     /* If specified file name is absolute, just open it.  */
  366.   
  367. + #ifdef atarist
  368. +   if ((*fbeg == '\\') || (*fbeg == '/')) {
  369. +     if(fbeg[2] == ':')
  370. +     { /* allow "\D:\xxx" */
  371. +         strncpy (fname, fbeg+1, flen-1);
  372. +         fname[flen-1] = 0;
  373. +     }
  374. +     else
  375. +     {  /* allow "\lib\xxx" == "\currentdrive:\lib\xxx" */
  376. +         strncpy (fname, fbeg, flen);
  377. +         fname[flen] = 0;
  378. +     }
  379. + #else
  380.     if (*fbeg == '/') {
  381.       strncpy (fname, fbeg, flen);
  382.       fname[flen] = 0;
  383. + #endif
  384.       if (redundant_include_p (fname))
  385.         return 0;
  386.       if (importing)
  387. ***************
  388. *** 3944,3950 ****
  389. --- 4088,4098 ----
  390.       if (searchptr->fname[0] == 0)
  391.         continue;
  392.       strcpy (fname, searchptr->fname);
  393. + #ifdef atarist
  394. +     strcat (fname, "\\");
  395. + #else
  396.       strcat (fname, "/");
  397. + #endif
  398.       fname[strlen (fname) + flen] = 0;
  399.         } else {
  400.       fname[0] = 0;
  401. ***************
  402. *** 4054,4070 ****
  403.   
  404.       if (!no_precomp)
  405.         do {
  406.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  407.       
  408.       pcf = open (pcftry, O_RDONLY, 0666);
  409.       if (pcf != -1)
  410.         {
  411.           struct stat s;
  412.   
  413.           fstat (pcf, &s);
  414.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  415.           || stat_f.st_dev != s.st_dev)
  416. !           {
  417.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  418.           /* Don't need it any more.  */
  419.           close (pcf);
  420. --- 4202,4260 ----
  421.   
  422.       if (!no_precomp)
  423.         do {
  424. + #ifdef atarist
  425. +     int numlen;
  426. +     char *dot;
  427. +     char *slash;
  428. + 
  429. +     /* cut extension to 3 chars and dont depend on UNIXMODE           */
  430. +     /* this will have to be done when saving precompiled headers, too */
  431. +     /* but as far as I tried, they dont work up to now, anyway   (AL) */
  432. + 
  433. +       if( pcfnum>=100 )     numlen=3;
  434. +       else if( pcfnum>=10 ) numlen=2;
  435. +       else                  numlen=1;
  436. + 
  437. +       dot=strrchr( fname, '.' );
  438. +       if( (slash=strrchr( fname, '/')) && slash>dot )
  439. +         dot=NULL;
  440. +       else
  441. +       if( (slash=strrchr( fname, '\\')) && slash>dot )
  442. +         dot=NULL;
  443. + 
  444. +       if( dot ) {
  445. +         if( strlen(dot)-1>3-numlen ) {
  446. +           sprintf(pcftry, "%.*s%d", strlen(fname)-(strlen(dot)-(4-numlen)),
  447. +                   fname, pcfnum++);
  448. +         } else {
  449. +           sprintf(pcftry, "%s%d", fname, pcfnum++);
  450. +         }
  451. +       } else {
  452. +         sprintf( pcftry, "%s.%d", fname, pcfnum++);
  453. +       }
  454. + #else    /* looks like we got a sane filesystem */
  455.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  456. + #endif
  457. + #if 0
  458. +     fprintf ( stderr, "trying precompiled file %s.\n", pcftry );
  459. + #endif
  460.       
  461.       pcf = open (pcftry, O_RDONLY, 0666);
  462.       if (pcf != -1)
  463.         {
  464. + #ifndef atarist
  465. +         /* dont bother with this on the ST since these field are faked
  466. +          * anyways
  467. +              */
  468.           struct stat s;
  469.   
  470.           fstat (pcf, &s);
  471.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  472.           || stat_f.st_dev != s.st_dev)
  473. ! #else
  474. !         if (1)
  475. ! #endif
  476. !               {
  477.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  478.           /* Don't need it any more.  */
  479.           close (pcf);
  480. ***************
  481. *** 6958,6965 ****
  482. --- 7148,7159 ----
  483.     check_expand (op, len + 1);
  484.     if (op->bufp > op->buf && op->bufp[-1] != '\n')
  485.       *op->bufp++ = '\n';
  486. + #ifdef atarist
  487. +   op->bufp = slashifying_bcopy (line_cmd_buf, op->bufp, len);
  488. + #else
  489.     bcopy (line_cmd_buf, op->bufp, len);
  490.     op->bufp += len;
  491. + #endif
  492.     op->lineno = ip->lineno;
  493.   }
  494.   
  495. ***************
  496. *** 8703,8708 ****
  497. --- 8897,8903 ----
  498.     deps_buffer[deps_size] = 0;
  499.   }
  500.   
  501. + #if (!(defined(atarist) || defined(atariminix)))
  502.   #if defined(USG) || defined(VMS)
  503.   #ifndef BSTRING
  504.   
  505. ***************
  506. *** 8739,8745 ****
  507.   }
  508.   #endif /* not BSTRING */
  509.   #endif /* USG or VMS */
  510. ! 
  511.   
  512.   static void
  513.   fatal (str, arg)
  514. --- 8934,8940 ----
  515.   }
  516.   #endif /* not BSTRING */
  517.   #endif /* USG or VMS */
  518. ! #endif /* any atari */
  519.   
  520.   static void
  521.   fatal (str, arg)
  522. ===================================================================
  523. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/cp-tree.c,v
  524. retrieving revision 1.1.1.1
  525. diff -c -r1.1.1.1 cp-tree.c
  526. *** 1.1.1.1    1993/05/18 23:51:50
  527. --- cp-tree.c    1993/05/21 12:35:31
  528. ***************
  529. *** 1651,1656 ****
  530. --- 1651,1657 ----
  531.     print_class_statistics ();
  532.   }
  533.   
  534. + #ifndef atarist
  535.   /* This is used by the `assert' macro.  It is provided in libgcc.a,
  536.      which `cc' doesn't know how to link.  Note that the C++ front-end
  537.      no longer actually uses the `assert' macro (instead, it calls
  538. ***************
  539. *** 1673,1678 ****
  540. --- 1674,1680 ----
  541.     fflush (stderr);
  542.     abort ();
  543.   }
  544. + #endif
  545.   
  546.   /* Return, as an INTEGER_CST node, the number of elements for
  547.      TYPE (which is an ARRAY_TYPE).  This counts only elements of the top array. */
  548. ===================================================================
  549. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/gcc.c,v
  550. retrieving revision 1.1.1.1
  551. diff -c -r1.1.1.1 gcc.c
  552. *** 1.1.1.1    1993/05/18 23:52:03
  553. --- gcc.c    1993/05/21 12:35:34
  554. ***************
  555. *** 30,35 ****
  556. --- 30,44 ----
  557.   Once it knows which kind of compilation to perform, the procedure for
  558.   compilation is specified by a string called a "spec".  */
  559.   
  560. + #ifdef CROSSATARI
  561. + #ifdef atarist
  562. + #undef atarist
  563. + #endif
  564. + #ifdef atariminix
  565. + #undef atariminix
  566. + #endif
  567. + #endif
  568. +   
  569.   #include <sys/types.h>
  570.   #include <ctype.h>
  571.   #include <signal.h>
  572. ***************
  573. *** 65,71 ****
  574.   #define NULL_PTR ((GENERIC_PTR)0)
  575.   #endif
  576.   
  577. ! #ifdef USG
  578.   #define vfork fork
  579.   #endif /* USG */
  580.   
  581. --- 74,80 ----
  582.   #define NULL_PTR ((GENERIC_PTR)0)
  583.   #endif
  584.   
  585. ! #if (defined(USG) || defined(atariminix))
  586.   #define vfork fork
  587.   #endif /* USG */
  588.   
  589. ***************
  590. *** 97,102 ****
  591. --- 106,124 ----
  592.   #define PATH_SEPARATOR ':'
  593.   #endif
  594.   
  595. + #ifdef CROSSATARI
  596. + #include <ctype.h>
  597. + #include <string.h>
  598. + #endif
  599. + 
  600. + #ifdef atarist
  601. + #include <osbind.h>
  602. + #include <ctype.h>
  603. + #include <fcntl.h>        /* fgth, for redirection of stderr */
  604. + #include <string.h>
  605. + long _stksize = 8192;
  606. + #endif
  607. + 
  608.   #define obstack_chunk_alloc xmalloc
  609.   #define obstack_chunk_free free
  610.   
  611. ***************
  612. *** 157,163 ****
  613. --- 179,187 ----
  614.      pass the compiler in building the list of pointers to constructors
  615.      and destructors.  */
  616.   
  617. + #if (!(defined(CROSSATARI) || defined(atarist)))
  618.   static struct obstack collect_obstack;
  619. + #endif
  620.   
  621.   extern char *version_string;
  622.   
  623. ***************
  624. *** 453,459 ****
  625.              %{aux-info*}\
  626.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  627.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  628. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  629.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  630.                         %{!pipe:%g.s} %A\n }}}}"},
  631.     {"-",
  632. --- 477,483 ----
  633.              %{aux-info*}\
  634.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  635.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  636. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  637.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  638.                         %{!pipe:%g.s} %A\n }}}}"},
  639.     {"-",
  640. ***************
  641. *** 486,492 ****
  642.              %{aux-info*}\
  643.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  644.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  645. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  646.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  647.                         %{!pipe:%g.s} %A\n }}}}"},
  648.     {".h", "@c-header"},
  649. --- 510,516 ----
  650.              %{aux-info*}\
  651.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  652.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  653. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  654.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  655.                         %{!pipe:%g.s} %A\n }}}}"},
  656.     {".h", "@c-header"},
  657. ***************
  658. *** 521,527 ****
  659.              %{aux-info*}\
  660.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  661.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  662. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  663.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  664.                         %{!pipe:%g.s} %A\n }}}}"},
  665.     {".i", "@cpp-output"},
  666. --- 545,551 ----
  667.              %{aux-info*}\
  668.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  669.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  670. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  671.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  672.                         %{!pipe:%g.s} %A\n }}}}"},
  673.     {".i", "@cpp-output"},
  674. ***************
  675. *** 532,538 ****
  676.       %{aux-info*}\
  677.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  678.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  679. !     %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  680.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  681.     {".ii", "@c++-cpp-output"},
  682.     {"@c++-cpp-output",
  683. --- 556,562 ----
  684.       %{aux-info*}\
  685.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  686.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  687. !     %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  688.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  689.     {".ii", "@c++-cpp-output"},
  690.     {"@c++-cpp-output",
  691. ***************
  692. *** 542,555 ****
  693.           %{aux-info*}\
  694.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  695.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  696. !        %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  697.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  698.              %{!pipe:%g.s} %A\n }"},
  699.     {".s", "@assembler"},
  700.     {"@assembler",
  701. !    "%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  702.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  703.     {".S", "@assembler-with-cpp"},
  704.     {"@assembler-with-cpp",
  705.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  706.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  707. --- 566,582 ----
  708.           %{aux-info*}\
  709.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  710.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  711. !        %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  712.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  713.              %{!pipe:%g.s} %A\n }"},
  714.     {".s", "@assembler"},
  715.     {"@assembler",
  716. !    "%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  717.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  718.     {".S", "@assembler-with-cpp"},
  719. +   {".ss", "@assembler-with-cpp"},
  720. +   {".cpp", "@assembler-with-cpp"},
  721. +   {".spp", "@assembler-with-cpp"},
  722.     {"@assembler-with-cpp",
  723.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  724.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  725. ***************
  726. *** 559,565 ****
  727.           %{traditional-cpp:-traditional}\
  728.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  729.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  730. !    "%{!M:%{!MM:%{!E:%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  731.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  732.               %{!pipe:%g.s} %A\n }}}}"},
  733.     /* Mark end of table */
  734. --- 586,592 ----
  735.           %{traditional-cpp:-traditional}\
  736.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  737.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  738. !    "%{!M:%{!MM:%{!E:%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  739.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  740.               %{!pipe:%g.s} %A\n }}}}"},
  741.     /* Mark end of table */
  742. ***************
  743. *** 573,578 ****
  744. --- 600,614 ----
  745.   
  746.   /* Here is the spec for running the linker, after compiling all files.  */
  747.   
  748. + #if (defined(CROSSATARI) || defined(atarist) || defined(atariminix))
  749. + static char *link_command_spec = 
  750. +  "%{!fsyntax-only: \
  751. +     %{!c:%{!M*:%{!E:%{!S:ld %X %{v} %{G} %{o*} %l\
  752. +       %{A} %{d} %{e*} %{N} %{n} %{r} %{s} %{S} %{T*} %{t} %{u*} %{X} %{x} %{z}\
  753. +       %{y*} %{!nostdlib:%S} \
  754. +       %{L*} %o %{!nostdlib:%s %L}\n }}}}}";
  755. + 
  756. + #else
  757.   /* -u* was put back because both BSD and SysV seem to support it.  */
  758.   /* %{static:} simply prevents an error message if the target machine
  759.      doesn't handle -static.  */
  760. ***************
  761. *** 603,608 ****
  762. --- 639,645 ----
  763.               %{L*} %D %o %{!nostdlib:-lgcc %L -lgcc %{!A:%E}}\n }}}}}}";
  764.   #endif
  765.   #endif
  766. + #endif
  767.   
  768.   /* A vector of options to give to the linker.
  769.      These options are accumulated by -Xlinker and -Wl,
  770. ***************
  771. *** 821,826 ****
  772. --- 858,864 ----
  773.     *argcp = newindex;
  774.   }
  775.   
  776. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  777.   /* Read compilation specs from a file named FILENAME,
  778.      replacing the default ones.
  779.   
  780. ***************
  781. *** 959,964 ****
  782. --- 997,1003 ----
  783.   
  784.     return p;
  785.   }
  786. + #endif /* ataris */
  787.   
  788.   /* Structure to keep track of the specs that have been defined so far.  These
  789.      are accessed using %(specname) or %[specname] in a compiler or link spec. */
  790. ***************
  791. *** 1075,1080 ****
  792. --- 1114,1126 ----
  793.   /* Name with which this program was invoked.  */
  794.   
  795.   static char *programname;
  796. + 
  797. + #ifdef atarist
  798. + /* Flag indicating, that stderr should be redirected for the child
  799. +    processes */
  800. + 
  801. + unsigned char zflag;
  802. + #endif
  803.   
  804.   /* Structures to keep track of prefixes to try when looking for files. */
  805.   
  806. ***************
  807. *** 1333,1340 ****
  808.   static void
  809.   choose_temp_base ()
  810.   {
  811. -   char *base = getenv ("TMPDIR");
  812.     int len;
  813.   
  814.     if (base == (char *)0)
  815.       {
  816. --- 1379,1403 ----
  817.   static void
  818.   choose_temp_base ()
  819.   {
  820.     int len;
  821. + #if (!(defined(atarist) || defined(atariminix)))
  822. +   char *base = getenv ("TMPDIR");
  823. + #else
  824. +   char *base = getenv ("TEMP");
  825. + 
  826. +   if(base == (char *)0)
  827. +   {
  828. +       base = getenv("TMPDIR");
  829. +       if(base == (char *)0)
  830. +       base = getenv("TMP");
  831. +   }
  832. +   if(base != (char *)0)
  833. +   {
  834. +       char *newbase = alloca(FILENAME_MAX);
  835. +       dos2unx(base,newbase);
  836. +       base = newbase;
  837. +   }
  838. + #endif
  839.   
  840.     if (base == (char *)0)
  841.       {
  842. ***************
  843. *** 1354,1360 ****
  844.     len = strlen (base);
  845.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  846.     strcpy (temp_filename, base);
  847. !   if (len > 0 && temp_filename[len-1] != '/')
  848.       temp_filename[len++] = '/';
  849.     strcpy (temp_filename + len, "ccXXXXXX");
  850.   
  851. --- 1417,1427 ----
  852.     len = strlen (base);
  853.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  854.     strcpy (temp_filename, base);
  855. !   if (len > 0 && (temp_filename[len-1] != '/' 
  856. ! #ifdef atarist
  857. !           || temp_filename[len-1] != '\\'
  858. ! #endif
  859. !            ))
  860.       temp_filename[len++] = '/';
  861.     strcpy (temp_filename + len, "ccXXXXXX");
  862.   
  863. ***************
  864. *** 1373,1378 ****
  865. --- 1440,1446 ----
  866.      use come from an obstack, we don't have to worry about allocating
  867.      space for them.  */
  868.   
  869. + #if (!(defined(CROSSATARI) || defined(atarist)))
  870.   #ifndef HAVE_PUTENV
  871.   
  872.   void
  873. ***************
  874. *** 1474,1479 ****
  875. --- 1542,1548 ----
  876.     obstack_1grow (&collect_obstack, '\0');
  877.     putenv (obstack_finish (&collect_obstack));
  878.   }
  879. + #endif /* ataris */
  880.   
  881.   
  882.   /* Search for NAME using the prefix list PREFIXES.  MODE is passed to
  883. ***************
  884. *** 1749,1754 ****
  885. --- 1818,1824 ----
  886.   
  887.   #else /* not __MSDOS__ */
  888.   
  889. + #ifndef atarist
  890.   static int
  891.   pexecute (search_flag, program, argv, not_last)
  892.        int search_flag;
  893. ***************
  894. *** 1837,1842 ****
  895. --- 1907,1913 ----
  896.       }
  897.   }
  898.   
  899. + #endif /* not atarist */
  900.   #endif /* not __MSDOS__ */
  901.   #else /* not OS2 */
  902.   
  903. ***************
  904. *** 1867,1882 ****
  905.       {
  906.         char *prog;        /* program name.  */
  907.         char **argv;        /* vector of args.  */
  908.         int pid;            /* pid of process for this command.  */
  909.       };
  910.   
  911.     struct command *commands;    /* each command buffer with above info.  */
  912.   
  913.     /* Count # of piped commands.  */
  914.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  915.       if (strcmp (argbuf[i], "|") == 0)
  916.         n_commands++;
  917. ! 
  918.     /* Get storage for each command.  */
  919.     commands
  920.       = (struct command *) alloca (n_commands * sizeof (struct command));
  921. --- 1938,1958 ----
  922.       {
  923.         char *prog;        /* program name.  */
  924.         char **argv;        /* vector of args.  */
  925. + #ifndef atarist
  926.         int pid;            /* pid of process for this command.  */
  927. + #endif
  928.       };
  929.   
  930.     struct command *commands;    /* each command buffer with above info.  */
  931.   
  932. + #ifndef atarist
  933.     /* Count # of piped commands.  */
  934.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  935.       if (strcmp (argbuf[i], "|") == 0)
  936.         n_commands++;
  937. ! #else
  938. !   n_commands = 1;
  939. ! #endif
  940.     /* Get storage for each command.  */
  941.     commands
  942.       = (struct command *) alloca (n_commands * sizeof (struct command));
  943. ***************
  944. *** 1891,1896 ****
  945. --- 1967,1973 ----
  946.     if (string)
  947.       commands[0].argv[0] = string;
  948.   
  949. + #ifndef atarist
  950.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  951.       if (strcmp (argbuf[i], "|") == 0)
  952.         {                /* each command.  */
  953. ***************
  954. *** 1905,1910 ****
  955. --- 1982,1990 ----
  956.         commands[n_commands].argv[0] = string;
  957.       n_commands++;
  958.         }
  959. + #else
  960. +   n_commands = 1;
  961. + #endif
  962.   
  963.     argbuf[argbuf_index] = 0;
  964.   
  965. ***************
  966. *** 1920,1928 ****
  967. --- 2000,2010 ----
  968.         for (j = commands[i].argv; *j; j++)
  969.           fprintf (stderr, " %s", *j);
  970.   
  971. + #ifndef atarist
  972.         /* Print a pipe symbol after all but the last command.  */
  973.         if (i + 1 != n_commands)
  974.           fprintf (stderr, " |");
  975. + #endif
  976.         fprintf (stderr, "\n");
  977.       }
  978.         fflush (stderr);
  979. ***************
  980. *** 1937,1953 ****
  981. --- 2019,2045 ----
  982.   #endif /* DEBUG */
  983.       }
  984.   
  985. + #ifndef atarist
  986.     /* Run each piped subprocess.  */
  987.   
  988.     last_pipe_input = STDIN_FILE_NO;
  989.     for (i = 0; i < n_commands; i++)
  990.       {
  991. + #ifndef atariminix
  992.         char *string = commands[i].argv[0];
  993.   
  994.         commands[i].pid = pexecute (string != commands[i].prog,
  995.                     string, commands[i].argv,
  996.                     i + 1 < n_commands);
  997.   
  998. + #else
  999. +       extern int execv();
  1000. +       char *string = commands[i].argv[0];
  1001. + 
  1002. +       commands[i].pid = pexecute (execv,
  1003. +                   string, commands[i].argv,
  1004. +                   i + 1 < n_commands);
  1005. + #endif
  1006.         if (string != commands[i].prog)
  1007.       free (string);
  1008.       }
  1009. ***************
  1010. *** 1994,1999 ****
  1011. --- 2086,2136 ----
  1012.         }
  1013.       return ret_code;
  1014.     }
  1015. + #else /* atarist */
  1016. +  {
  1017. +      register int iii;
  1018. +      int errfd, oldfd;
  1019. +      char **j;
  1020. + 
  1021. +      execution_count++;
  1022. + 
  1023. +      if (zflag)
  1024. +        {
  1025. +      errfd = Fopen("compile.err", 2);
  1026. +      if (errfd < __SMALLEST_VALID_HANDLE)
  1027. +        errfd = Fcreate("compile.err", 0);
  1028. +      else
  1029. +        Fseek(0L, errfd, 2);
  1030. +      if (errfd >= __SMALLEST_VALID_HANDLE)
  1031. +        {
  1032. +          oldfd = Fdup (2);
  1033. +          Fforce(2, errfd);
  1034. +        }
  1035. +      else
  1036. +        {
  1037. +          error("cannot open %s", "compile.err");
  1038. +          zflag = 0;        /* no redirection */
  1039. +        }
  1040. +        }
  1041. +      for (i = 0; i < n_commands ; i++)
  1042. +      {
  1043. +          j = commands[i].argv;
  1044. +          iii = spawnve(0, j[0], j, NULL);
  1045. +      if(iii != 0)
  1046. +          break;
  1047. +      }
  1048. +      if (zflag)
  1049. +        {
  1050. +      Fforce(2, oldfd);
  1051. +      Fclose(oldfd);
  1052. +      Fclose(errfd);
  1053. +        }
  1054. +      if (iii != 0)
  1055. +        return -1;
  1056. +      else
  1057. +        return 0;
  1058. +  }
  1059. + #endif /* atarist */  
  1060.   }
  1061.   
  1062.   /* Find all the switches given to us
  1063. ***************
  1064. *** 2057,2062 ****
  1065. --- 2194,2200 ----
  1066.   
  1067.     /* Set up the default search paths.  */
  1068.   
  1069. + #ifndef CROSSATARI
  1070.     if (gcc_exec_prefix)
  1071.       {
  1072.         add_prefix (&exec_prefix, gcc_exec_prefix, 0, 0, NULL_PTR);
  1073. ***************
  1074. *** 2131,2136 ****
  1075. --- 2269,2275 ----
  1076.           endp++;
  1077.       }
  1078.       }
  1079. + #endif /* CROSSATARI */
  1080.   
  1081.     /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
  1082.     temp = getenv ("LPATH");
  1083. ***************
  1084. *** 2339,2344 ****
  1085. --- 2478,2489 ----
  1086.             n_switches++;
  1087.             break;
  1088.           }
  1089. + #ifdef atarist
  1090. +         case 'z':    /* redirect stderr to a file */
  1091. +           zflag++;
  1092. +           n_switches++;
  1093. +           break;
  1094. + #endif
  1095.           default:
  1096.             n_switches++;
  1097.   
  1098. ***************
  1099. *** 2376,2386 ****
  1100. --- 2521,2542 ----
  1101.        (such as cpp) rather than those of the host system.  */
  1102.     /* Use 2 as fourth arg meaning try just the machine as a suffix,
  1103.        as well as trying the machine and the version.  */
  1104. + #if (defined(atarist) || defined(CROSSATARI) || defined(WEIRD))
  1105. + /* NB defined(WEIRD) should not really be there, its only for my weird setup */
  1106. +   /* We are not using machine_suffix here, so do not make */
  1107. +   /* these prefixes available only when we have one       */
  1108. +   add_prefix (&exec_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1109. +   add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1110. + 
  1111. +   add_prefix (&startfile_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1112. +   add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1113. + #else
  1114.     add_prefix (&exec_prefix, standard_exec_prefix, 0, 2, NULL_PTR);
  1115.     add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 2, NULL_PTR);
  1116.   
  1117.     add_prefix (&startfile_prefix, standard_exec_prefix, 0, 1, NULL_PTR);
  1118.     add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 1, NULL_PTR);
  1119. + #endif /* (defined(atarist) || defined(CROSSATARI)) */
  1120.   
  1121.     add_prefix (&exec_prefix, concat (tooldir_prefix, "bin", "/"),
  1122.             0, 0, NULL_PTR);
  1123. ***************
  1124. *** 2565,2570 ****
  1125. --- 2721,2735 ----
  1126.   /* Nonzero means that the input of this command is coming from a pipe.  */
  1127.   static int input_from_pipe;
  1128.   
  1129. + #ifdef atarist
  1130. + /* I don't know why this is necessary.  Recursive calls to do_spec_1
  1131. +    end up ignoring the error code from calls to execute().  That causes
  1132. +    do_spec to get a 0 return value, and do_spec_1("\n"), which causes the
  1133. +    command to get executed again.
  1134. + */
  1135. + int execute_return_error = 0;
  1136. + #endif
  1137. + 
  1138.   /* Process the spec SPEC and run the commands specified therein.
  1139.      Returns 0 if the spec is successfully processed; -1 if failed.  */
  1140.   
  1141. ***************
  1142. *** 2585,2594 ****
  1143. --- 2750,2768 ----
  1144.   
  1145.     /* Force out any unfinished command.
  1146.        If -pipe, this forces out the last command if it ended in `|'.  */
  1147. + #ifdef atarist
  1148. +   if (!value && execute_return_error)
  1149. +     {
  1150. +     value = execute_return_error;
  1151. +     execute_return_error = 0;
  1152. +     }
  1153. + #endif
  1154.     if (value == 0)
  1155.       {
  1156. + #ifndef atarist
  1157.         if (argbuf_index > 0 && !strcmp (argbuf[argbuf_index - 1], "|"))
  1158.       argbuf_index--;
  1159. + #endif
  1160.   
  1161.         if (argbuf_index > 0)
  1162.       value = execute ();
  1163. ***************
  1164. *** 2626,2631 ****
  1165. --- 2800,2856 ----
  1166.          Otherwise, NL, SPC, TAB and % are special.  */
  1167.       switch (inswitch ? 'a' : c)
  1168.         {
  1169. + #if (defined(atarist) || defined(CROSSATARI))
  1170. + /* this stuff added by jrd.  if see '$', expect name of env var, delimited
  1171. +    by '$'.  Find it's value, and subst it in.
  1172. + 
  1173. +    modified by ERS to only collect things that look like names; this
  1174. +    saves e.g. the -$ arg. to cpp from getting munged */
  1175. + 
  1176. +       case '$':
  1177. +       {
  1178. +     char varname[32];        /* should be enough */
  1179. +     char * value;            /* deciphered value string */
  1180. +     char *temp;
  1181. +     int i;
  1182. +     extern char *getenv(), *index();
  1183. +     
  1184. +     for (i = 0 ; ((c = *p) != '$') && isalnum(c) && i < 31 ; i++, p++)
  1185. +         varname[i] = c;
  1186. +     varname[i] = '\0';
  1187. +     if (strlen(varname) > 0) /* ++jrb fix */
  1188. +     {
  1189. +                  ++p;    /* skip trailing '$' */
  1190. +         value = getenv(varname); /* ++jrb fix */
  1191. +         if (value)
  1192. +         { /* if value is a path, only consider 1'st component */
  1193. + #ifdef atarist
  1194. +             if((temp = index(value, ',')) == NULL)
  1195. +                 temp = index(value, ';');
  1196. + #else
  1197. +             temp = index(value, ':');
  1198. + #endif
  1199. +             if(temp != NULL)
  1200. +             {
  1201. +                 char *t = (char *) alloca(strlen(value) + 1);
  1202. +                 strcpy(t, value);
  1203. +                 t[temp-value] = '\0';
  1204. +                 do_spec_1(t, 0);
  1205. +             }
  1206. +             else
  1207. +                 do_spec_1(value, 0);
  1208. +         }
  1209. +             else
  1210. +             do_spec_1(".", 0);    /* a compleat kludge... */
  1211. +     }
  1212. +         else
  1213. +         {
  1214. +              obstack_1grow(&obstack, '$');
  1215. +              arg_going = 1;
  1216. +         }
  1217. +       }
  1218. +      break;
  1219. + #endif /* atarist */
  1220.         case '\n':
  1221.       /* End of line: finish any pending argument,
  1222.          then run the pending command if one has been started.  */
  1223. ***************
  1224. *** 2664,2669 ****
  1225. --- 2889,2898 ----
  1226.       if (argbuf_index > 0)
  1227.         {
  1228.           value = execute ();
  1229. + #ifdef atarist
  1230. +         if (!execute_return_error)
  1231. +             execute_return_error = value;
  1232. + #endif
  1233.           if (value)
  1234.             return value;
  1235.         }
  1236. ***************
  1237. *** 3279,3291 ****
  1238. --- 3508,3528 ----
  1239.           break;
  1240.   
  1241.         default:
  1242. + #if 1 /* atarist */
  1243. +         fprintf(stderr, "Bogus char '%c' found at pos %d of spec '%s'\n",
  1244. +         c, (p - spec - 1), spec);
  1245. + #endif
  1246.           abort ();
  1247.         }
  1248.       break;
  1249.   
  1250. + #ifndef atarist
  1251. +       /* on the atari it is important to preserve backslash in spec */
  1252. +       /* so just let it go into default case */
  1253.         case '\\':
  1254.       /* Backslash: treat next character as ordinary.  */
  1255.       c = *p++;
  1256. + #endif
  1257.   
  1258.       /* fall through */
  1259.         default:
  1260. ***************
  1261. *** 3562,3567 ****
  1262. --- 3799,3805 ----
  1263.   
  1264.   /* On fatal signals, delete all the temporary files.  */
  1265.   
  1266. + #ifndef atarist
  1267.   static void
  1268.   fatal_error (signum)
  1269.        int signum;
  1270. ***************
  1271. *** 3573,3578 ****
  1272. --- 3811,3817 ----
  1273.        so its normal effect occurs.  */
  1274.     kill (getpid (), signum);
  1275.   }
  1276. + #endif
  1277.   
  1278.   int
  1279.   main (argc, argv)
  1280. ***************
  1281. *** 3587,3592 ****
  1282. --- 3826,3836 ----
  1283.     char *specs_file;
  1284.     char *p;
  1285.   
  1286. + #ifdef atarist
  1287. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1288. + /*  _malloczero(1); */     /* zero mallocs by default */
  1289. +   programname = "gcc";
  1290. + #else  
  1291.     p = argv[0] + strlen (argv[0]);
  1292.     while (p != argv[0] && p[-1] != '/') --p;
  1293.     programname = p;
  1294. ***************
  1295. *** 3603,3614 ****
  1296. --- 3847,3860 ----
  1297.     if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
  1298.       signal (SIGPIPE, fatal_error);
  1299.   #endif
  1300. + #endif /* atarist */
  1301.   
  1302.     argbuf_length = 10;
  1303.     argbuf = (char **) xmalloc (argbuf_length * sizeof (char *));
  1304.   
  1305.     obstack_init (&obstack);
  1306.   
  1307. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1308.     /* Set up to remember the pathname of gcc and any options
  1309.        needed for collect.  We use argv[0] instead of programname because
  1310.        we need the complete pathname.  */
  1311. ***************
  1312. *** 3616,3621 ****
  1313. --- 3862,3868 ----
  1314.     obstack_grow (&collect_obstack, "COLLECT_GCC=", sizeof ("COLLECT_GCC=")-1);
  1315.     obstack_grow (&collect_obstack, argv[0], strlen (argv[0])+1);
  1316.     putenv (obstack_finish (&collect_obstack));
  1317. + #endif
  1318.   
  1319.     /* Choose directory for temp files.  */
  1320.   
  1321. ***************
  1322. *** 3627,3632 ****
  1323. --- 3874,3888 ----
  1324.   
  1325.     process_command (argc, argv);
  1326.   
  1327. + #if (defined(atarist) || defined(CROSSATARI))
  1328. +   {
  1329. +     char *temp;
  1330. +     
  1331. +     if((temp = getenv ("GCCEXEC")))
  1332. +     add_prefix (&exec_prefix, temp, 0, 0, 0);
  1333. +   }
  1334. + #endif
  1335. +   
  1336.     /* Initialize the vector of specs to just the default.
  1337.        This means one element containing 0s, as a terminator.  */
  1338.   
  1339. ***************
  1340. *** 3634,3639 ****
  1341. --- 3890,3899 ----
  1342.     bcopy (default_compilers, compilers, sizeof default_compilers);
  1343.     n_compilers = n_default_compilers;
  1344.   
  1345. + 
  1346. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1347. +   specs_file = 0;
  1348. + #else
  1349.     /* Read specs from a file if there is one.  */
  1350.   
  1351.     machine_suffix = concat (spec_machine, "/", concat (spec_version, "/", ""));
  1352. ***************
  1353. *** 3643,3648 ****
  1354. --- 3903,3909 ----
  1355.     /* Read the specs file unless it is a default one.  */
  1356.     if (specs_file != 0 && strcmp (specs_file, "specs"))
  1357.       read_specs (specs_file);
  1358. + #endif
  1359.   
  1360.     /* If not cross-compiling, look for startfiles in the standard places.  */
  1361.     /* The fact that these are done here, after reading the specs file,
  1362. ***************
  1363. *** 3695,3701 ****
  1364. --- 3956,3968 ----
  1365.   
  1366.     if (verbose_flag)
  1367.       {
  1368. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1369. + #include "PatchLev.h"
  1370. +       fprintf (stderr, "gcc-atariST version %s Patchlevel %s\n",
  1371. +            version_string, PatchLevel);
  1372. + #else
  1373.         fprintf (stderr, "gcc version %s\n", version_string);
  1374. + #endif
  1375.         if (n_infiles == 0)
  1376.       exit (0);
  1377.       }
  1378. ***************
  1379. *** 3743,3749 ****
  1380. --- 4010,4021 ----
  1381.   
  1382.         input_basename = input_filename;
  1383.         for (p = input_filename; *p; p++)
  1384. + #ifdef atarist
  1385. +         if (((*p == '/') || (*p == '\\')) && (*(p-1) != ':'))
  1386. +             /* allow both '\' and '/' with  our new lib */
  1387. + #else
  1388.           if (*p == '/')
  1389. + #endif
  1390.             input_basename = p + 1;
  1391.   
  1392.         /* Find a suffix starting with the last period,
  1393. ***************
  1394. *** 3806,3811 ****
  1395. --- 4078,4084 ----
  1396.         int i;
  1397.         int first_time;
  1398.   
  1399. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1400.         /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
  1401.        for collect.  */
  1402.         putenv_from_prefixes (&exec_prefix, "COMPILER_PATH=");
  1403. ***************
  1404. *** 3836,3841 ****
  1405. --- 4109,4115 ----
  1406.       }
  1407.         obstack_grow (&collect_obstack, "\0", 1);
  1408.         putenv (obstack_finish (&collect_obstack));
  1409. + #endif
  1410.   
  1411.         value = do_spec (link_command_spec);
  1412.         if (value < 0)
  1413. ===================================================================
  1414. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/getpwd.c,v
  1415. retrieving revision 1.1.1.1
  1416. diff -c -r1.1.1.1 getpwd.c
  1417. *** 1.1.1.1    1993/05/18 23:52:07
  1418. --- getpwd.c    1993/05/21 12:35:37
  1419. ***************
  1420. *** 14,20 ****
  1421.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1422.      the few exceptions to the general rule here.  */
  1423.   
  1424. ! #if !(defined (POSIX) || defined (USG) || defined (VMS))
  1425.   #include <sys/param.h>
  1426.   extern char *getwd ();
  1427.   #define getcwd(buf,len) getwd(buf)
  1428. --- 14,20 ----
  1429.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1430.      the few exceptions to the general rule here.  */
  1431.   
  1432. ! #if !(defined (POSIX) || defined (USG) || defined (VMS) || defined(atarist) || defined(CROSSHPUX))
  1433.   #include <sys/param.h>
  1434.   extern char *getwd ();
  1435.   #define getcwd(buf,len) getwd(buf)
  1436. ***************
  1437. *** 48,58 ****
  1438.     if (!p && !(errno = failure_errno))
  1439.       {
  1440.         if (! ((p = getenv ("PWD")) != 0
  1441.            && *p == '/'
  1442.            && stat (p, &pwdstat) == 0
  1443.            && stat (".", &dotstat) == 0
  1444.            && dotstat.st_ino == pwdstat.st_ino
  1445. !          && dotstat.st_dev == pwdstat.st_dev))
  1446.   
  1447.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1448.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1449. --- 48,61 ----
  1450.     if (!p && !(errno = failure_errno))
  1451.       {
  1452.         if (! ((p = getenv ("PWD")) != 0
  1453. + #ifndef atarist
  1454.            && *p == '/'
  1455.            && stat (p, &pwdstat) == 0
  1456.            && stat (".", &dotstat) == 0
  1457.            && dotstat.st_ino == pwdstat.st_ino
  1458. !          && dotstat.st_dev == pwdstat.st_dev
  1459. ! #endif
  1460. !          ))
  1461.   
  1462.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1463.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1464. ===================================================================
  1465. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/toplev.c,v
  1466. retrieving revision 1.1.1.1
  1467. diff -c -r1.1.1.1 toplev.c
  1468. *** 1.1.1.1    1993/05/18 23:52:33
  1469. --- toplev.c    1993/05/21 12:35:41
  1470. ***************
  1471. *** 31,37 ****
  1472.   
  1473.   #include <sys/stat.h>
  1474.   
  1475. ! #ifdef USG
  1476.   #undef FLOAT
  1477.   #include <sys/param.h>
  1478.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1479. --- 31,37 ----
  1480.   
  1481.   #include <sys/stat.h>
  1482.   
  1483. ! #if defined(USG) || defined(CROSSHPUX)
  1484.   #undef FLOAT
  1485.   #include <sys/param.h>
  1486.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1487. ***************
  1488. *** 41,49 ****
  1489. --- 41,57 ----
  1490.   #undef FFS  /* Some systems define this in param.h.  */
  1491.   #else
  1492.   #ifndef VMS
  1493. + #if (!(defined(atarist) || defined(atariminix)))
  1494.   #include <sys/time.h>
  1495.   #include <sys/resource.h>
  1496. + #endif /* !(atarist || atariminix) */
  1497. + #endif
  1498.   #endif
  1499. + 
  1500. + #ifdef atariminix
  1501. + #include <sys/times.h>
  1502. + /* #include <minix/const.h>, avoid dragging this in */
  1503. + #define HZ 60    /* this is the only thing needed from minix/const.h */
  1504.   #endif
  1505.   
  1506.   #include "input.h"
  1507. ***************
  1508. *** 58,63 ****
  1509. --- 66,76 ----
  1510.   #include "xcoffout.h"
  1511.   #endif
  1512.   
  1513. + #ifdef atarist
  1514. + long _stksize = -1L;    /* for all sizes of ST's */
  1515. +     /* -1 means malloc from own heap and keep all  of memory */
  1516. + #endif /* atarist */
  1517. + 
  1518.   #ifdef VMS
  1519.   /* The extra parameters substantially improve the I/O performance.  */
  1520.   static FILE *
  1521. ***************
  1522. *** 769,775 ****
  1523.   int
  1524.   get_run_time ()
  1525.   {
  1526. ! #ifdef USG
  1527.     struct tms tms;
  1528.   #else
  1529.   #ifndef VMS
  1530. --- 782,791 ----
  1531.   int
  1532.   get_run_time ()
  1533.   {
  1534. ! #ifdef atarist
  1535. !   long now;
  1536. ! #else
  1537. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1538.     struct tms tms;
  1539.   #else
  1540.   #ifndef VMS
  1541. ***************
  1542. *** 784,794 ****
  1543.       } vms_times;
  1544.   #endif
  1545.   #endif
  1546.   
  1547.     if (quiet_flag)
  1548.       return 0;
  1549.   
  1550. ! #ifdef USG
  1551.     times (&tms);
  1552.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1553.   #else
  1554. --- 800,814 ----
  1555.       } vms_times;
  1556.   #endif
  1557.   #endif
  1558. + #endif
  1559.   
  1560.     if (quiet_flag)
  1561.       return 0;
  1562.   
  1563. ! #ifdef atarist
  1564. !   return(time(NULL) * 1000000);
  1565. ! #else
  1566. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1567.     times (&tms);
  1568.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1569.   #else
  1570. ***************
  1571. *** 801,806 ****
  1572. --- 821,827 ----
  1573.     return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000;
  1574.   #endif
  1575.   #endif
  1576. + #endif
  1577.   }
  1578.   
  1579.   #define TIMEVAR(VAR, BODY)    \
  1580. ***************
  1581. *** 1437,1442 ****
  1582. --- 1458,1464 ----
  1583.     longjmp (float_handler, 1);
  1584.   }
  1585.   
  1586. + #ifndef atarist
  1587.   /* Handler for SIGPIPE.  */
  1588.   
  1589.   static void
  1590. ***************
  1591. *** 1446,1451 ****
  1592. --- 1468,1474 ----
  1593.   {
  1594.     fatal ("output pipe has been closed");
  1595.   }
  1596. + #endif
  1597.   
  1598.   /* Strip off a legitimate source ending from the input string NAME of
  1599.      length LEN. */
  1600. ***************
  1601. *** 1479,1484 ****
  1602. --- 1502,1508 ----
  1603.       name[len - 4] = 0;
  1604.   }
  1605.   
  1606. + #ifdef SYSV
  1607.   /* Output a file name in the form wanted by System V.  */
  1608.   
  1609.   void
  1610. ***************
  1611. *** 1507,1512 ****
  1612. --- 1531,1537 ----
  1613.   #endif
  1614.   #endif
  1615.   }
  1616. + #endif
  1617.   
  1618.   /* Routine to build language identifier for object file. */
  1619.   static void
  1620. ***************
  1621. *** 1617,1623 ****
  1622. --- 1642,1652 ----
  1623.       {
  1624.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1625.         strcpy (dumpname, dump_base_name);
  1626. + #ifndef atarist
  1627.         strcat (dumpname, ".jump");
  1628. + #else
  1629. +       strcat (dumpname, ".jmp");
  1630. + #endif
  1631.         jump_opt_dump_file = fopen (dumpname, "w");
  1632.         if (jump_opt_dump_file == 0)
  1633.       pfatal_with_name (dumpname);
  1634. ***************
  1635. *** 1639,1645 ****
  1636. --- 1668,1678 ----
  1637.       {
  1638.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1639.         strcpy (dumpname, dump_base_name);
  1640. + #ifndef atarist
  1641.         strcat (dumpname, ".loop");
  1642. + #else
  1643. +       strcat (dumpname, ".lop");
  1644. + #endif
  1645.         loop_dump_file = fopen (dumpname, "w");
  1646.         if (loop_dump_file == 0)
  1647.       pfatal_with_name (dumpname);
  1648. ***************
  1649. *** 1650,1656 ****
  1650. --- 1683,1693 ----
  1651.       {
  1652.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1653.         strcpy (dumpname, dump_base_name);
  1654. + #ifndef atarist
  1655.         strcat (dumpname, ".cse2");
  1656. + #else
  1657. +       strcat (dumpname, ".cs2");
  1658. + #endif
  1659.         cse2_dump_file = fopen (dumpname, "w");
  1660.         if (cse2_dump_file == 0)
  1661.       pfatal_with_name (dumpname);
  1662. ***************
  1663. *** 1661,1667 ****
  1664. --- 1698,1708 ----
  1665.       {
  1666.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1667.         strcpy (dumpname, dump_base_name);
  1668. + #ifndef atarist
  1669.         strcat (dumpname, ".flow");
  1670. + #else
  1671. +       strcat (dumpname, ".flo");
  1672. + #endif
  1673.         flow_dump_file = fopen (dumpname, "w");
  1674.         if (flow_dump_file == 0)
  1675.       pfatal_with_name (dumpname);
  1676. ***************
  1677. *** 1672,1678 ****
  1678. --- 1713,1723 ----
  1679.       {
  1680.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1681.         strcpy (dumpname, dump_base_name);
  1682. + #ifndef atarist
  1683.         strcat (dumpname, ".combine");
  1684. + #else
  1685. +       strcat (dumpname, ".cmb");
  1686. + #endif
  1687.         combine_dump_file = fopen (dumpname, "w");
  1688.         if (combine_dump_file == 0)
  1689.       pfatal_with_name (dumpname);
  1690. ***************
  1691. *** 1683,1689 ****
  1692. --- 1728,1738 ----
  1693.       {
  1694.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1695.         strcpy (dumpname, dump_base_name);
  1696. + #ifndef atarist
  1697.         strcat (dumpname, ".sched");
  1698. + #else
  1699. +       strcat (dumpname, ".sch");
  1700. + #endif
  1701.         sched_dump_file = fopen (dumpname, "w");
  1702.         if (sched_dump_file == 0)
  1703.       pfatal_with_name (dumpname);
  1704. ***************
  1705. *** 1694,1700 ****
  1706. --- 1743,1753 ----
  1707.       {
  1708.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1709.         strcpy (dumpname, dump_base_name);
  1710. + #ifndef atarist
  1711.         strcat (dumpname, ".lreg");
  1712. + #else
  1713. +       strcat (dumpname, ".lrg");
  1714. + #endif
  1715.         local_reg_dump_file = fopen (dumpname, "w");
  1716.         if (local_reg_dump_file == 0)
  1717.       pfatal_with_name (dumpname);
  1718. ***************
  1719. *** 1705,1711 ****
  1720. --- 1758,1768 ----
  1721.       {
  1722.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1723.         strcpy (dumpname, dump_base_name);
  1724. + #ifndef atarist
  1725.         strcat (dumpname, ".greg");
  1726. + #else
  1727. +       strcat (dumpname, ".grg");
  1728. + #endif
  1729.         global_reg_dump_file = fopen (dumpname, "w");
  1730.         if (global_reg_dump_file == 0)
  1731.       pfatal_with_name (dumpname);
  1732. ***************
  1733. *** 1716,1722 ****
  1734. --- 1773,1783 ----
  1735.       {
  1736.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 8);
  1737.         strcpy (dumpname, dump_base_name);
  1738. + #ifndef atarist
  1739.         strcat (dumpname, ".sched2");
  1740. + #else
  1741. +       strcat (dumpname, ".sc2");
  1742. + #endif
  1743.         sched2_dump_file = fopen (dumpname, "w");
  1744.         if (sched2_dump_file == 0)
  1745.       pfatal_with_name (dumpname);
  1746. ***************
  1747. *** 1727,1733 ****
  1748. --- 1788,1798 ----
  1749.       {
  1750.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1751.         strcpy (dumpname, dump_base_name);
  1752. + #ifndef atarist
  1753.         strcat (dumpname, ".jump2");
  1754. + #else
  1755. +       strcat (dumpname, ".jp2");
  1756. + #endif
  1757.         jump2_opt_dump_file = fopen (dumpname, "w");
  1758.         if (jump2_opt_dump_file == 0)
  1759.       pfatal_with_name (dumpname);
  1760. ***************
  1761. *** 1751,1757 ****
  1762. --- 1816,1826 ----
  1763.       {
  1764.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1765.         strcpy (dumpname, dump_base_name);
  1766. + #ifndef atarist
  1767.         strcat (dumpname, ".stack");
  1768. + #else
  1769. +       strcat (dumpname, ".stk");
  1770. + #endif
  1771.         stack_reg_dump_file = fopen (dumpname, "w");
  1772.         if (stack_reg_dump_file == 0)
  1773.       pfatal_with_name (dumpname);
  1774. ***************
  1775. *** 2815,2826 ****
  1776. --- 2884,2905 ----
  1777.     int version_flag = 0;
  1778.     char *p;
  1779.   
  1780. + #ifdef atarist
  1781. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1782. + /*  _malloczero(1); */     /* zero mallocs by default */
  1783. + #endif  
  1784. + 
  1785.     /* save in case md file wants to emit args as a comment.  */
  1786.     save_argc = argc;
  1787.     save_argv = argv;
  1788.   
  1789.     p = argv[0] + strlen (argv[0]);
  1790. + #ifndef atarist
  1791.     while (p != argv[0] && p[-1] != '/') --p;
  1792. + #else
  1793. +   while (p != argv[0] && ((p[-1] != '/') && (p[-1] != '\\') &&
  1794. +               (p[-1] != ':'))) --p;
  1795. + #endif
  1796.     progname = p;
  1797.   
  1798.   #ifdef RLIMIT_STACK
  1799. ***************
  1800. *** 2837,2845 ****
  1801. --- 2916,2926 ----
  1802.   
  1803.     signal (SIGFPE, float_signal);
  1804.   
  1805. + #ifndef atarist
  1806.   #ifdef SIGPIPE
  1807.     signal (SIGPIPE, pipe_closed);
  1808.   #endif
  1809. + #endif
  1810.   
  1811.     decl_printable_name = decl_name;
  1812.     lang_expand_expr = (struct rtx_def *(*)()) do_abort;
  1813. ***************
  1814. *** 2938,2943 ****
  1815. --- 3019,3034 ----
  1816.         else if (!strcmp (str, "dumpbase"))
  1817.           {
  1818.             dump_base_name = argv[++i];
  1819. + #ifdef atarist
  1820. + /* dump_base_name will typically be 'foo.c' here.  Need to truncate at the '.',
  1821. +    cause dots mean something here */
  1822. +         {
  1823. +           char * n = dump_base_name;
  1824. +           for ( ; ((*n) && (*n != '.')) ; )
  1825. +         n++;
  1826. +           *n = '\0';
  1827. +         }
  1828. + #endif
  1829.           }
  1830.         else if (str[0] == 'd')
  1831.           {
  1832. ***************
  1833. *** 3348,3354 ****
  1834. --- 3439,3451 ----
  1835.        option flags in use.  */
  1836.     if (version_flag)
  1837.       {
  1838. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1839. + #include "PatchLev.h"
  1840. +         fprintf (stderr, "%s version %s-atariST Patchlevel %s",
  1841. +          language_string, version_string, PatchLevel);
  1842. + #else
  1843.         fprintf (stderr, "%s version %s", language_string, version_string);
  1844. + #endif
  1845.   #ifdef TARGET_VERSION
  1846.         TARGET_VERSION;
  1847.   #endif
  1848. ***************
  1849. *** 3369,3374 ****
  1850. --- 3466,3473 ----
  1851.   
  1852.     compile_file (filename);
  1853.   
  1854. + #if (!(defined(atarist) || defined(atariminix)))
  1855. + #if (!(defined(CROSSHPUX)))
  1856.   #ifndef OS2
  1857.   #ifndef VMS
  1858.     if (flag_print_mem)
  1859. ***************
  1860. *** 3387,3392 ****
  1861. --- 3486,3493 ----
  1862.       }
  1863.   #endif /* not VMS */
  1864.   #endif /* not OS2 */
  1865. + #endif
  1866. + #endif
  1867.   
  1868.     if (errorcount)
  1869.       exit (FATAL_EXIT_CODE);
  1870. ***************
  1871. *** 3498,3500 ****
  1872. --- 3599,3632 ----
  1873.   
  1874.     fprintf (stderr, "\n");
  1875.   }
  1876. + 
  1877. + #ifdef atarist
  1878. + void atari_output_filename(file, filename)
  1879. + FILE *file;
  1880. + char *filename;
  1881. + {
  1882. +     if( (!file) || (!filename) ) return;
  1883. +     for(; *filename; filename++)
  1884. +     {
  1885. +     if(*filename == '\\') putc('\\', file);
  1886. +     putc(*filename, file);
  1887. +     }
  1888. + }
  1889. + 
  1890. + #include <string.h>
  1891. + 
  1892. + char *atari_filename_nondirectory(p)
  1893. + char *p;
  1894. + {
  1895. +     char *s;
  1896. +     
  1897. +     for(s = p + strlen(p); s != p; --s)
  1898. +     {
  1899. +     if((*s == '/') || (*s == '\\'))
  1900. +         break;
  1901. +     }
  1902. +     
  1903. +     return (s == p) ? p : s+1;
  1904. + }
  1905. + 
  1906. + #endif
  1907. ===================================================================
  1908. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/varasm.c,v
  1909. retrieving revision 1.1.1.1
  1910. diff -c -r1.1.1.1 varasm.c
  1911. *** 1.1.1.1    1993/05/18 23:52:37
  1912. --- varasm.c    1993/05/21 12:35:44
  1913. ***************
  1914. *** 996,1009 ****
  1915.   assemble_external_libcall (fun)
  1916.        rtx fun;
  1917.   {
  1918. - #ifdef ASM_OUTPUT_EXTERNAL_LIBCALL
  1919.     /* Declare library function name external when first used, if nec.  */
  1920.     if (! SYMBOL_REF_USED (fun))
  1921.       {
  1922.         SYMBOL_REF_USED (fun) = 1;
  1923.         ASM_OUTPUT_EXTERNAL_LIBCALL (asm_out_file, fun);
  1924. -     }
  1925.   #endif
  1926.   }
  1927.   
  1928.   /* Declare the label NAME global.  */
  1929. --- 996,1009 ----
  1930.   assemble_external_libcall (fun)
  1931.        rtx fun;
  1932.   {
  1933.     /* Declare library function name external when first used, if nec.  */
  1934.     if (! SYMBOL_REF_USED (fun))
  1935.       {
  1936.         SYMBOL_REF_USED (fun) = 1;
  1937. + #ifdef ASM_OUTPUT_EXTERNAL_LIBCALL
  1938.         ASM_OUTPUT_EXTERNAL_LIBCALL (asm_out_file, fun);
  1939.   #endif
  1940. +     }
  1941.   }
  1942.   
  1943.   /* Declare the label NAME global.  */
  1944. ***************
  1945. *** 2266,2271 ****
  1946. --- 2266,2274 ----
  1947.   {
  1948.     struct rtx_const val0, val1;
  1949.   
  1950. +   if (XEXP (x, 0) == pc_rtx || XEXP (x, 1) == pc_rtx)
  1951. +     return XEXP (x, 0) == XEXP (x, 1) ? const0_rtx : x;
  1952. + 
  1953.     decode_rtx_const (GET_MODE (x), XEXP (x, 0), &val0);
  1954.     decode_rtx_const (GET_MODE (x), XEXP (x, 1), &val1);
  1955.   
  1956. ===================================================================
  1957. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/config/m68k/m68k.c,v
  1958. retrieving revision 1.1.1.1
  1959. diff -c -r1.1.1.1 m68k.c
  1960. *** 1.1.1.1    1993/05/18 23:53:20
  1961. --- m68k.c    1993/05/21 12:35:53
  1962. ***************
  1963. *** 60,66 ****
  1964.      
  1965.   finalize_pic ()
  1966.   {
  1967. !   if (flag_pic && current_function_uses_pic_offset_table)
  1968.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  1969.   }
  1970.   
  1971. --- 60,66 ----
  1972.      
  1973.   finalize_pic ()
  1974.   {
  1975. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  1976.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  1977.   }
  1978.   
  1979. ***************
  1980. *** 213,219 ****
  1981.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  1982.   #endif
  1983.       }
  1984. !   if (flag_pic && current_function_uses_pic_offset_table)
  1985.       {
  1986.   #ifdef MOTOROLA
  1987.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  1988. --- 213,219 ----
  1989.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  1990.   #endif
  1991.       }
  1992. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  1993.       {
  1994.   #ifdef MOTOROLA
  1995.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  1996. ***************
  1997. *** 800,811 ****
  1998.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  1999.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  2000.       {
  2001.         if (reg == 0)
  2002.       abort ();
  2003.   
  2004. !       pic_ref = gen_rtx (MEM, Pmode,
  2005. !              gen_rtx (PLUS, Pmode,
  2006. !                   pic_offset_table_rtx, orig));
  2007.         current_function_uses_pic_offset_table = 1;
  2008.         RTX_UNCHANGING_P (pic_ref) = 1;
  2009.         emit_move_insn (reg, pic_ref);
  2010. --- 800,819 ----
  2011.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  2012.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  2013.       {
  2014. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  2015. +       if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  2016. +     return orig;
  2017. + #endif
  2018. + 
  2019.         if (reg == 0)
  2020.       abort ();
  2021.   
  2022. !       if (flag_pic == 3)
  2023. !         pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  2024. !       else
  2025. !         pic_ref = gen_rtx (MEM, Pmode,
  2026. !                gen_rtx (PLUS, Pmode,
  2027. !                     pic_offset_table_rtx, orig));
  2028.         current_function_uses_pic_offset_table = 1;
  2029.         RTX_UNCHANGING_P (pic_ref) = 1;
  2030.         emit_move_insn (reg, pic_ref);
  2031. ***************
  2032. *** 1793,1798 ****
  2033. --- 1801,1809 ----
  2034.         output_address (XEXP (op, 0));
  2035.         if (letter == 'd' && ! TARGET_68020
  2036.         && CONSTANT_ADDRESS_P (XEXP (op, 0))
  2037. +       && !(TARGET_PC_REL && GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  2038. +            && SYMBOL_REF_FLAG (XEXP (op, 0))
  2039. +            && !SYMBOL_REF_USED (XEXP (op, 0)))
  2040.         && !(GET_CODE (XEXP (op, 0)) == CONST_INT
  2041.              && INTVAL (XEXP (op, 0)) < 0x8000
  2042.              && INTVAL (XEXP (op, 0)) >= -0x8000))
  2043. ***************
  2044. *** 2100,2105 ****
  2045. --- 2111,2118 ----
  2046.                 fprintf (file, ":w");
  2047.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  2048.                 fprintf (file, ":l");
  2049. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  2050. +               fprintf (file, ":w");
  2051.             }
  2052.           if (addr != 0 && ireg != 0)
  2053.             {
  2054. ***************
  2055. *** 2177,2182 ****
  2056. --- 2190,2207 ----
  2057.           fprintf (file, "%d:w", INTVAL (addr));
  2058.   #endif
  2059.         }
  2060. +     else if (TARGET_PC_REL && GET_CODE (addr) == SYMBOL_REF
  2061. +          && SYMBOL_REF_FLAG (addr) && !SYMBOL_REF_USED (addr))
  2062. +       {
  2063. + #ifdef MOTOROLA
  2064. +         output_addr_const (file, addr);
  2065. +         fputs ("(pc)", file);
  2066. + #else
  2067. +         fputs ("pc@(", file);
  2068. +         output_addr_const (file, addr);
  2069. +         putc (')', file);
  2070. + #endif
  2071. +       }
  2072.       else
  2073.         {
  2074.           output_addr_const (file, addr);
  2075. ***************
  2076. *** 2243,2245 ****
  2077. --- 2268,2286 ----
  2078.   
  2079.     return 0;
  2080.   }
  2081. + 
  2082. + #ifdef ENCODE_SECTION_INFO
  2083. + /* Does operand (which is a symbolic_operand) live in text space? If
  2084. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.*/
  2085. + 
  2086. + int
  2087. + read_only_operand (operand)
  2088. +      rtx operand;
  2089. + {
  2090. +   if (GET_CODE (operand) == CONST)
  2091. +     operand = XEXP (XEXP (operand, 0), 0);
  2092. +   if (GET_CODE (operand) == SYMBOL_REF)
  2093. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  2094. +   return 1;
  2095. + }
  2096. + #endif
  2097. ===================================================================
  2098. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/config/m68k/m68k.h,v
  2099. retrieving revision 1.1.1.1
  2100. diff -c -r1.1.1.1 m68k.h
  2101. *** 1.1.1.1    1993/05/18 23:53:20
  2102. --- m68k.h    1993/05/21 12:35:56
  2103. ***************
  2104. *** 92,97 ****
  2105. --- 92,103 ----
  2106.   /* Use the 68040-only fp instructions (-m68040).  */
  2107.   #define TARGET_68040_ONLY (target_flags & 01000)
  2108.   
  2109. + /* Use PC-relative addressing for refs to read-only data */
  2110. + #define TARGET_PC_REL (target_flags & 02000)
  2111. + 
  2112. + /* Use base-relative addressing for refs to data&bss segments */
  2113. + #define TARGET_BASE_REL (target_flags & 04000)
  2114. + 
  2115.   /* Macro to define tables used to set the flags.
  2116.      This is a list in braces of pairs in braces,
  2117.      each pair being { "NAME", VALUE }
  2118. ***************
  2119. *** 119,124 ****
  2120. --- 125,134 ----
  2121.       { "68030", -01400},                \
  2122.       { "68030", 5},                \
  2123.       { "68040", 01007},            \
  2124. +     { "pcrel", 02000},                \
  2125. +     { "nopcrel", -02000},            \
  2126. +     { "baserel", 04000},            \
  2127. +     { "nobaserel", -04000},            \
  2128.       { "", TARGET_DEFAULT}}
  2129.   /* TARGET_DEFAULT is defined in sun*.h and isi.h, etc.  */
  2130.   
  2131. ***************
  2132. *** 130,141 ****
  2133. --- 140,153 ----
  2134.     if (TARGET_FPA) target_flags &= ~2;    \
  2135.     if (! TARGET_68020 && flag_pic == 2)    \
  2136.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  2137. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  2138.   }
  2139.   #else
  2140.   #define OVERRIDE_OPTIONS        \
  2141.   {                    \
  2142.     if (! TARGET_68020 && flag_pic == 2)    \
  2143.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  2144. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  2145.   }
  2146.   #endif /* defined SUPPORT_SUN_FPA */
  2147.   
  2148. ***************
  2149. *** 339,344 ****
  2150. --- 351,359 ----
  2151.   {                                               \
  2152.     if (flag_pic)                                 \
  2153.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  2154. +   /* prevent saving/restoring of the base reg */ \
  2155. +   if (flag_pic == 3)                 \
  2156. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  2157.   }
  2158.   
  2159.   #else /* defined SUPPORT_SUN_FPA */
  2160. ***************
  2161. *** 363,368 ****
  2162. --- 378,386 ----
  2163.       }                         \
  2164.     if (flag_pic)                                 \
  2165.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  2166. +   /* prevent saving/restoring of the base reg */ \
  2167. +   if (flag_pic == 3)                 \
  2168. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  2169.   }
  2170.   
  2171.   #endif /* defined SUPPORT_SUN_FPA */
  2172. ***************
  2173. *** 1129,1134 ****
  2174. --- 1147,1154 ----
  2175.          && GET_CODE (XEXP (X, 1)) == CONST_INT                \
  2176.          && ((unsigned) INTVAL (XEXP (X, 1)) + 0x8000) < 0x10000)        \
  2177.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  2178. +        && flag_pic == 3 && CONSTANT_ADDRESS_P (XEXP (X, 1)))        \
  2179. +    || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  2180.          && flag_pic && GET_CODE (XEXP (X, 1)) == SYMBOL_REF)        \
  2181.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  2182.          && flag_pic && GET_CODE (XEXP (X, 1)) == LABEL_REF))        \
  2183. ===================================================================
  2184. RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gcc/config/m68k/m68k.md,v
  2185. retrieving revision 1.1.1.1
  2186. diff -c -r1.1.1.1 m68k.md
  2187. *** 1.1.1.1    1993/05/18 23:53:21
  2188. --- m68k.md    1993/05/21 12:35:59
  2189. ***************
  2190. *** 704,716 ****
  2191.   {
  2192.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  2193.       {
  2194. !       /* The source is an address which requires PIC relocation.  
  2195. !          Call legitimize_pic_address with the source, mode, and a relocation
  2196. !          register (a new pseudo, or the final destination if reload_in_progress
  2197. !          is set).   Then fall through normally */
  2198. !       extern rtx legitimize_pic_address();
  2199. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  2200. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  2201.       }
  2202.   }")
  2203.   
  2204. --- 704,721 ----
  2205.   {
  2206.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  2207.       {
  2208. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  2209. !       if (flag_pic != 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  2210. ! #endif
  2211. !       {
  2212. !         /* The source is an address which requires PIC relocation.  
  2213. !            Call legitimize_pic_address with the source, mode, and a relocation
  2214. !            register (a new pseudo, or the final destination if reload_in_progress
  2215. !            is set).   Then fall through normally */
  2216. !         extern rtx legitimize_pic_address();
  2217. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  2218. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  2219. !       }
  2220.       }
  2221.   }")
  2222.   
  2223. ***************
  2224. *** 4747,4753 ****
  2225.     ""
  2226.     "
  2227.   {
  2228. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  2229.   #ifdef MOTOROLA
  2230.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  2231.   #else
  2232. --- 4752,4758 ----
  2233.     ""
  2234.     "
  2235.   {
  2236. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  2237.   #ifdef MOTOROLA
  2238.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  2239.   #else
  2240. ***************
  2241. *** 4762,4768 ****
  2242.        (match_operand:SI 1 "general_operand" "g"))]
  2243.     ;; Operand 1 not really used on the m68000.
  2244.   
  2245. !   "! flag_pic"
  2246.     "*
  2247.   #ifdef MOTOROLA
  2248.     return \"jsr %0\";
  2249. --- 4767,4773 ----
  2250.        (match_operand:SI 1 "general_operand" "g"))]
  2251.     ;; Operand 1 not really used on the m68000.
  2252.   
  2253. !   "(! flag_pic || flag_pic == 3)"
  2254.     "*
  2255.   #ifdef MOTOROLA
  2256.     return \"jsr %0\";
  2257. ***************
  2258. *** 4777,4783 ****
  2259.        (match_operand:SI 1 "general_operand" "g"))]
  2260.     ;; Operand 1 not really used on the m68000.
  2261.   
  2262. !   "flag_pic"
  2263.     "*
  2264.   #ifdef MOTOROLA
  2265.     if (GET_CODE (operands[0]) == MEM 
  2266. --- 4782,4788 ----
  2267.        (match_operand:SI 1 "general_operand" "g"))]
  2268.     ;; Operand 1 not really used on the m68000.
  2269.   
  2270. !   "(flag_pic && flag_pic < 3)"
  2271.     "*
  2272.   #ifdef MOTOROLA
  2273.     if (GET_CODE (operands[0]) == MEM 
  2274. ***************
  2275. *** 4798,4804 ****
  2276.     ""
  2277.     "
  2278.   {
  2279. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  2280.   #ifdef MOTOROLA
  2281.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  2282.   #else
  2283. --- 4803,4809 ----
  2284.     ""
  2285.     "
  2286.   {
  2287. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  2288.   #ifdef MOTOROLA
  2289.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  2290.   #else
  2291. ***************
  2292. *** 4813,4819 ****
  2293.       (call (match_operand:QI 1 "memory_operand" "o")
  2294.             (match_operand:SI 2 "general_operand" "g")))]
  2295.     ;; Operand 2 not really used on the m68000.
  2296. !   "! flag_pic"
  2297.     "*
  2298.   #ifdef MOTOROLA
  2299.     return \"jsr %1\";
  2300. --- 4818,4824 ----
  2301.       (call (match_operand:QI 1 "memory_operand" "o")
  2302.             (match_operand:SI 2 "general_operand" "g")))]
  2303.     ;; Operand 2 not really used on the m68000.
  2304. !   "(! flag_pic || flag_pic == 3)"
  2305.     "*
  2306.   #ifdef MOTOROLA
  2307.     return \"jsr %1\";
  2308. ***************
  2309. *** 4828,4834 ****
  2310.       (call (match_operand:QI 1 "memory_operand" "o")
  2311.             (match_operand:SI 2 "general_operand" "g")))]
  2312.     ;; Operand 2 not really used on the m68000.
  2313. !   "flag_pic"
  2314.     "*
  2315.   #ifdef MOTOROLA
  2316.     if (GET_CODE (operands[1]) == MEM 
  2317. --- 4833,4839 ----
  2318.       (call (match_operand:QI 1 "memory_operand" "o")
  2319.             (match_operand:SI 2 "general_operand" "g")))]
  2320.     ;; Operand 2 not really used on the m68000.
  2321. !   "(flag_pic && flag_pic < 3)"
  2322.     "*
  2323.   #ifdef MOTOROLA
  2324.     if (GET_CODE (operands[1]) == MEM 
  2325.  
  2326.