home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / gcc222.lha / src-patches / gcc-2.2.2-diff next >
Encoding:
Text File  |  1992-07-19  |  73.2 KB  |  2,407 lines
  1. diff -2rcN gcc-2.2.2/Makefile.in my-gcc-2.2.2/Makefile.in
  2. *** gcc-2.2.2/Makefile.in    Sun Jun 14 21:40:34 1992
  3. --- my-gcc-2.2.2/Makefile.in    Sat Jul 18 01:23:22 1992
  4. ***************
  5. *** 385,389 ****
  6.       _udivmoddi4 _cmpdi2 _ucmpdi2 _floatdidf _floatdisf \
  7.       _fixunsdfsi _fixunssfsi _fixunsdfdi _fixdfdi _fixunssfdi _fixsfdi \
  8. !     _varargs _eprintf _builtin_new _builtin_New _builtin_del \
  9.       _bb _shtab _clear_cache _trampoline __main _exit
  10.   
  11. --- 385,389 ----
  12.       _udivmoddi4 _cmpdi2 _ucmpdi2 _floatdidf _floatdisf \
  13.       _fixunsdfsi _fixunssfsi _fixunsdfdi _fixdfdi _fixunssfdi _fixsfdi \
  14. !     _varargs _eprintf _builtin_new _caps_New _builtin_del \
  15.       _bb _shtab _clear_cache _trampoline __main _exit
  16.   
  17. diff -2rcN gcc-2.2.2/c-parse.y my-gcc-2.2.2/c-parse.y
  18. *** gcc-2.2.2/c-parse.y    Wed Jun 10 04:25:30 1992
  19. --- my-gcc-2.2.2/c-parse.y    Fri Jul 17 22:37:53 1992
  20. ***************
  21. *** 779,783 ****
  22.   attrib
  23.       : IDENTIFIER
  24. !     { if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  25.           warning ("`%s' attribute directive ignored",
  26.                IDENTIFIER_POINTER ($1));
  27. --- 779,790 ----
  28.   attrib
  29.       : IDENTIFIER
  30. !     {
  31. ! #ifdef HANDLE_ATTRIBUTE0
  32. !       /* give the function a chance to validate further attributes */
  33. !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER ($1)) ||
  34. !           strcmp (IDENTIFIER_POINTER ($1), "packed"))
  35. ! #else
  36. !       if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  37. ! #endif
  38.           warning ("`%s' attribute directive ignored",
  39.                IDENTIFIER_POINTER ($1));
  40. diff -2rcN gcc-2.2.2/cccp.c my-gcc-2.2.2/cccp.c
  41. *** gcc-2.2.2/cccp.c    Sat Jun  6 21:46:01 1992
  42. --- my-gcc-2.2.2/cccp.c    Fri Jul 17 22:38:01 1992
  43. ***************
  44. *** 40,43 ****
  45. --- 40,57 ----
  46.   #endif /* not EMACS */
  47.   
  48. + #ifdef amigados
  49. + /* since cpp uses alloca to store all its read files, this is quite deadly
  50. +    on a system with non-automatic stackgrowth like amigados, so we better
  51. +    turn it off now..
  52. + 
  53. +    Note that it's not wise to generally inhibit __builtin_alloca, since
  54. +    using the generic emulator entitels a serious (!) speed penalty, and
  55. +    it's bad enough that we have to live with it in cccp, don't make cc1
  56. +    unbearably slow as well... */
  57. + #undef alloca
  58. + 
  59. + static int amigados_abs_file ();
  60. + #endif
  61. + 
  62.   #ifndef STANDARD_INCLUDE_DIR
  63.   #define STANDARD_INCLUDE_DIR "/usr/include"
  64. ***************
  65. *** 137,141 ****
  66. --- 151,159 ----
  67.   extern struct tm *localtime ();
  68.   extern int sys_nerr;
  69. + 
  70. + #ifndef HAVE_STRERROR
  71.   extern char *sys_errlist[];
  72. + #define strerror(err) sys_errlist[err]
  73. + #endif
  74.   
  75.   #ifndef errno
  76. ***************
  77. *** 1683,1686 ****
  78. --- 1701,1707 ----
  79.         char *p1 = p;
  80.         /* Discard all directory prefixes from P.  */
  81. + #ifdef FILE_NAME_NONDIRECTORY
  82. +       p = FILE_NAME_NONDIRECTORY (p);
  83. + #else
  84.         while (*p1) {
  85.       if (*p1 == '/')
  86. ***************
  87. *** 1688,1691 ****
  88. --- 1709,1713 ----
  89.       p1++;
  90.         }
  91. + #endif
  92.         /* Output P, but remove known suffixes.  */
  93.         len = strlen (p);
  94. ***************
  95. *** 3399,3403 ****
  96.         if (!no_output && already_output == 0
  97.         && (kt->pass_thru
  98. !           || (kt->type == T_DEFINE
  99.             && (dump_macros == dump_names
  100.                 || dump_macros == dump_definitions)))) {
  101. --- 3421,3425 ----
  102.         if (!no_output && already_output == 0
  103.         && (kt->pass_thru
  104. !           || ((kt->type == T_DEFINE || kt->type == T_UNDEF)
  105.             && (dump_macros == dump_names
  106.                 || dump_macros == dump_definitions)))) {
  107. ***************
  108. *** 3702,3705 ****
  109. --- 3724,3739 ----
  110.   #ifndef VMS
  111.           ep = rindex (nam, '/');
  112. + 
  113. + #ifdef amigados
  114. +         /* amigados uses unix-style directory-filename separation, but
  115. +            has VMS-style logicals as well */
  116. + 
  117. +         if (ep == NULL) 
  118. +           {
  119. +         ep = rindex (nam, ':');
  120. +         /* a ':' is part of the directory name, a '/' isn't ! */
  121. +             if (ep != NULL) ep++;
  122. +           }
  123. + #endif /* amigados */
  124.   #else                /* VMS */
  125.           ep = rindex (nam, ']');
  126. ***************
  127. *** 3777,3781 ****
  128. --- 3811,3819 ----
  129.     /* If specified file name is absolute, just open it.  */
  130.   
  131. + #ifndef amigados
  132.     if (*fbeg == '/') {
  133. + #else
  134. +   if (amigados_abs_filename (fbeg, flen)) {
  135. + #endif
  136.       strncpy (fname, fbeg, flen);
  137.       fname[flen] = 0;
  138. ***************
  139. *** 3800,3803 ****
  140. --- 3838,3845 ----
  141.         continue;
  142.       strcpy (fname, searchptr->fname);
  143. + 
  144. + #ifdef amigados
  145. +     if (fname[strlen (fname) - 1] != ':')
  146. + #endif
  147.       strcat (fname, "/");
  148.       fname[strlen (fname) + flen] = 0;
  149. ***************
  150. *** 7544,7548 ****
  151.   
  152.     if (errno < sys_nerr)
  153. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  154.     else
  155.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  156. --- 7586,7590 ----
  157.   
  158.     if (errno < sys_nerr)
  159. !     fprintf (stderr, "%s: %s\n", name, strerror (errno));
  160.     else
  161.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  162. ***************
  163. *** 8441,8447 ****
  164.        char *name;
  165.   {
  166.     fprintf (stderr, "%s: ", progname);
  167. !   if (errno < sys_nerr)
  168. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  169.     else
  170.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  171. --- 8483,8491 ----
  172.        char *name;
  173.   {
  174. +   int error = errno;
  175. + 
  176.     fprintf (stderr, "%s: ", progname);
  177. !   if (error < sys_nerr)
  178. !     fprintf (stderr, "%s: %s\n", name, strerror (error));
  179.     else
  180.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  181. ***************
  182. *** 8800,8801 ****
  183. --- 8844,8869 ----
  184.   
  185.   #endif /* VMS */
  186. + 
  187. + 
  188. + #ifdef amigados
  189. + 
  190. + /* This function returns whether the LEN characters long filename FNAME 
  191. +    is an absolute path specification. */
  192. + 
  193. + static int
  194. + amigados_abs_filename (fname, len)
  195. +      char *fname;
  196. +      int len;
  197. + {
  198. +   /* we're using ixemul.library, which treats `/foo' as `foo:', so 
  199. +      fname[0] is to be considered absolute as well */
  200. +   if (fname[0] == '/')
  201. +     return 1;
  202. + 
  203. +   /* else do an index() on fname, but one which is limited to len characters */
  204. +   while (*fname && *fname != ':' && len) 
  205. +     fname++, len--;
  206. + 
  207. +   return *fname == ':';
  208. + }
  209. + #endif /* amigados */
  210. diff -2rcN gcc-2.2.2/config/amigados.c my-gcc-2.2.2/config/amigados.c
  211. *** gcc-2.2.2/config/amigados.c
  212. --- my-gcc-2.2.2/config/amigados.c    Fri Jul 17 22:38:03 1992
  213. ***************
  214. *** 0 ****
  215. --- 1,158 ----
  216. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  217. +    Copyright (C) 1992 Free Software Foundation, Inc.
  218. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  219. + 
  220. + This file is part of GNU CC.
  221. + 
  222. + GNU CC is free software; you can redistribute it and/or modify
  223. + it under the terms of the GNU General Public License as published by
  224. + the Free Software Foundation; either version 2, or (at your option)
  225. + any later version.
  226. + 
  227. + GNU CC is distributed in the hope that it will be useful,
  228. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  229. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  230. + GNU General Public License for more details.
  231. + 
  232. + You should have received a copy of the GNU General Public License
  233. + along with GNU CC; see the file COPYING.  If not, write to
  234. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  235. + 
  236. + #include "m68k.c"
  237. + 
  238. + /* Does operand (which is a symbolic_operand) live in text space? If
  239. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.
  240. + 
  241. +    This function is used in base relative code generation. */
  242. + 
  243. + int
  244. + read_only_operand (operand)
  245. +      rtx operand;
  246. + {
  247. +   if (GET_CODE (operand) == CONST)
  248. +     operand = XEXP (XEXP (operand, 0), 0);
  249. +   if (GET_CODE (operand) == SYMBOL_REF)
  250. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  251. +   return 1;
  252. + }
  253. + 
  254. + 
  255. + /* the rest of the file is to implement AmigaDOS specific keywords some day.
  256. +    The approach used so far used __attribute__ for this, but this required
  257. +    changes to c-parse.y as well as if we'd use the common keywords used
  258. +    on commercial AmigaDOS C-compilers as well. So in the future I'll probably
  259. +    switch to __saveds and __interrupt keywords as well.
  260. + 
  261. +    The rest of this file is currently ignored, because it's no longer
  262. +    working with the current gcc version. */
  263. + 
  264. + #if not_yet_working
  265. + 
  266. + #include "tree.h"
  267. + 
  268. + struct attribute {
  269. +   tree ident;
  270. +   int  saveds : 1,
  271. +        interrupt : 1;
  272. + };
  273. + 
  274. + 
  275. + static struct attribute *a_tab = 0;
  276. + static int a_index, a_size;
  277. + 
  278. + void
  279. + add_attr_entry (attr)
  280. +     struct attribute *attr;
  281. + {
  282. +   if (! a_tab)
  283. +     {
  284. +       a_size = 10;
  285. +       a_index = 0;
  286. +       a_tab  = (struct attribute *) xmalloc (a_size * sizeof (struct attribute));
  287. +     }
  288. + 
  289. +   if (a_index == a_size)
  290. +     {
  291. +       a_size <<= 1;
  292. +       a_tab = (struct attribute *) xrealloc (a_tab, a_size * sizeof (struct attribute));
  293. +     }
  294. + 
  295. +   a_tab[a_index++] = *attr;
  296. + }
  297. + 
  298. + 
  299. + void
  300. + attr_do_saveds (function_ident)
  301. +       tree function_ident;
  302. + {
  303. +   struct attribute attr, *a;
  304. +   int i;
  305. + 
  306. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  307. +     if (a->ident == function_ident)
  308. +       {
  309. +     a->saveds = 1;
  310. +     return;
  311. +       }
  312. + 
  313. +   /* create a new entry for this function */
  314. +   attr.ident     = function_ident;
  315. +   attr.saveds    = 1;
  316. +   attr.interrupt = 0;
  317. +   add_attr_entry (&attr);
  318. + }
  319. + 
  320. + void
  321. + attr_do_interrupt (function_ident)
  322. +     tree function_ident;
  323. + {
  324. +   struct attribute attr, *a;
  325. +   int i;
  326. + 
  327. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  328. +     if (a->ident == function_ident)
  329. +       {
  330. +     /* __interrupt implies __saveds */
  331. +     a->saveds    = 1;
  332. +     a->interrupt = 1;
  333. +     return;
  334. +       }
  335. + 
  336. +   /* create a new entry for this function */
  337. +   attr.ident     = function_ident;
  338. +   attr.saveds     = 1;
  339. +   attr.interrupt = 1;
  340. +   add_attr_entry (&attr);
  341. + }
  342. + 
  343. + int
  344. + attr_does_saveds (function_name)
  345. +     char *function_name;
  346. + {
  347. +   tree ident = get_identifier (function_name);
  348. +   struct attribute *attr;
  349. +   int i;
  350. +   
  351. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  352. +     if (attr->ident == ident)
  353. +       return attr->saveds;
  354. + 
  355. +   return 0;
  356. + }
  357. + 
  358. + int
  359. + attr_does_interrupt (function_name)
  360. +     char *function_name;
  361. + {
  362. +   tree ident = get_identifier (function_name);
  363. +   struct attribute *attr;
  364. +   int i;
  365. +   
  366. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  367. +     if (attr->ident == ident)
  368. +       return attr->interrupt;
  369. + 
  370. +   return 0;
  371. + }
  372. + 
  373. + #endif
  374. diff -2rcN gcc-2.2.2/config/amigados.h my-gcc-2.2.2/config/amigados.h
  375. *** gcc-2.2.2/config/amigados.h
  376. --- my-gcc-2.2.2/config/amigados.h    Fri Jul 17 22:38:05 1992
  377. ***************
  378. *** 0 ****
  379. --- 1,377 ----
  380. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  381. +    Copyright (C) 1992 Free Software Foundation, Inc.
  382. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  383. + 
  384. + This file is part of GNU CC.
  385. + 
  386. + GNU CC is free software; you can redistribute it and/or modify
  387. + it under the terms of the GNU General Public License as published by
  388. + the Free Software Foundation; either version 2, or (at your option)
  389. + any later version.
  390. + 
  391. + GNU CC is distributed in the hope that it will be useful,
  392. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  393. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  394. + GNU General Public License for more details.
  395. + 
  396. + You should have received a copy of the GNU General Public License
  397. + along with GNU CC; see the file COPYING.  If not, write to
  398. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  399. + 
  400. + #include "m68k.h"
  401. + 
  402. + /* See tm-m68k.h.  0 means 68000 without 68881.  */
  403. + 
  404. + #ifndef TARGET_DEFAULT
  405. + #define TARGET_DEFAULT 0
  406. + #endif
  407. + 
  408. + /* Define __HAVE_68881__ in preprocessor according to the -m flags.
  409. +    This will control the use of inline 68881 insns in certain macros.
  410. +    Also inform the program which CPU this is for.  */
  411. + 
  412. + #if TARGET_DEFAULT & 02
  413. + 
  414. + /* -m68881 is the default */
  415. + #define CPP_SPEC \
  416. + "%{!msoft-float:-D__HAVE_68881__ }\
  417. + %{!ansi:%{m68000:-Dmc68010}%{mc68000:-Dmc68010}%{!mc68000:%{!m68000:-Dmc68020}}}"
  418. + 
  419. + #else
  420. + 
  421. + /* -msoft-float is the default, assume -mc68000 as well */
  422. + #define CPP_SPEC \
  423. + "%{m68881:-D__HAVE_68881__ }\
  424. + %{!ansi:%{m68020:-Dmc68020}%{mc68020:-Dmc68020}%{!mc68020:%{!m68020:-Dmc68010}}}"
  425. + 
  426. + #endif
  427. + 
  428. + /* -m68000 requires special flags to the assembler.  */
  429. + 
  430. + #if TARGET_DEFAULT & 01
  431. + 
  432. + #define ASM_SPEC \
  433. +  "%{m68000:-mc68010}%{mc68000:-mc68010}%{!mc68000:%{!m68000:-mc68020}} %{msmall-code:-l} "
  434. + 
  435. + #else
  436. + 
  437. + #define ASM_SPEC \
  438. +  "%{m68020:-mc68020}%{mc68020:-mc68020}%{!mc68020:%{!m68020:-mc68010}} %{msmall-code:-l} "
  439. + 
  440. + #endif
  441. + 
  442. + /* amiga/amigados are the new "standard" defines for the Amiga, MCH_AMIGA
  443. +  * was used before and is included for compatibility reasons */
  444. + 
  445. + #define CPP_PREDEFINES "-Dmc68000 -Damiga -Damigados -DMCH_AMIGA -DAMIGA"
  446. + 
  447. + /* Chose the right startup file, depending on whether we use base relative code,
  448. +    base relative code with automatic relocation (-resident), or plain crt0.o. 
  449. +   
  450. +    Profiling is currently only available for plain startup.
  451. +    mcrt0.o does not (yet) exist. */
  452. + 
  453. + #define STARTFILE_SPEC                    \
  454. +   "%{resident:%{!fbaserel:-L gcc:blib }}%{fbaserel:-L gcc:blib }\
  455. + %{resident:rcrt0.o%s}%{!resident:%{!fbaserel:%{pg:gcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}%{fbaserel:%{pg:bgcrt0.o%s}%{!pg:%{p:bmcrt0.o%s}%{!p:bcrt0.o%s}}}}"
  456. + 
  457. + 
  458. + #define LIB_SPEC "%{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}"
  459. + 
  460. + /* if debugging, tell the linker to output amiga-hunk symbols *and*
  461. +    a BSD compatible debug hunk (which will probably change in the future, it's not
  462. +    tremendously useful in its current state). */
  463. + 
  464. + #define LINK_SPEC "%{g:-amiga-debug-hunk} %{fbaserel:-databss-together} %{resident:-databss-together -datadata-reloc} "
  465. + 
  466. + #define CC1_SPEC "%{resident:-fbaserel} "
  467. + 
  468. + #define CC1PLUS_SPEC "%{resident:-fbaserel} "
  469. + 
  470. + /* Omit frame pointer at high optimization levels. (This doesn't hurt, since
  471. +    GDB doesn't work under AmigaDOS at the moment anyway..) */
  472. +   
  473. + #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
  474. + {                                  \
  475. +   if (OPTIMIZE >= 2)                         \
  476. +     flag_omit_frame_pointer = 1;                \
  477. + }
  478. + 
  479. + /* provide a dummy entry for the small-code switch. This is currently only
  480. +    needed by the assembler (explanations: m68k.h), but will be used by cc1
  481. +    to output 16bit pc-relative code later. */
  482. + 
  483. + #undef TARGET_SWITCHES
  484. + #define TARGET_SWITCHES  \
  485. +   { { "68020", 5},                \
  486. +     { "c68020", 5},                \
  487. +     { "68881", 2},                \
  488. +     { "bitfield", 4},                \
  489. +     { "68000", -5},                \
  490. +     { "c68000", -5},                \
  491. +     { "soft-float", -0102},            \
  492. +     { "nobitfield", -4},            \
  493. +     { "rtd", 8},                \
  494. +     { "nortd", -8},                \
  495. +     { "short", 040},                \
  496. +     { "noshort", -040},                \
  497. +     { "fpa", 0100},                \
  498. +     { "nofpa", -0100},                \
  499. +     { "sky", 0200},                \
  500. +     { "nosky", -0200},                \
  501. +     { "68040", 0407},                \
  502. +     { "68030", -01400},                \
  503. +     { "68030", 7},                \
  504. +     { "68040-only", 01000},            \
  505. +     { "small-code", 0 },            \
  506. +     { "", TARGET_DEFAULT}}
  507. + 
  508. + /* Every structure or union's size must be a multiple of 2 bytes.  */
  509. + 
  510. + #define STRUCTURE_SIZE_BOUNDARY 16
  511. + 
  512. + /* This is (almost;-)) BSD, so it wants DBX format.  */
  513. + 
  514. + #define DBX_DEBUGGING_INFO
  515. + 
  516. + /* Allow folding division by zero.  */
  517. + #define REAL_INFINITY
  518. + 
  519. + /* This is how to output an assembler line defining a `double' constant.  */
  520. + 
  521. + #undef ASM_OUTPUT_DOUBLE
  522. + #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                    \
  523. +   {                                    \
  524. +     if (REAL_VALUE_ISINF (VALUE))                    \
  525. +       fprintf (FILE, "\t.double 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  526. +     else if (isnan (VALUE))                        \
  527. +       {                                    \
  528. +     union { double d; long l[2];} t;                \
  529. +     t.d = (VALUE);                            \
  530. +     fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", t.l[0], t.l[1]); \
  531. +       }                                    \
  532. +     else                                \
  533. +       fprintf (FILE, "\t.double 0r%.17g\n", VALUE);            \
  534. +   }
  535. + 
  536. + /* This is how to output an assembler line defining a `float' constant.  */
  537. + 
  538. + #undef ASM_OUTPUT_FLOAT
  539. + #define ASM_OUTPUT_FLOAT(FILE,VALUE)                    \
  540. +   {                                    \
  541. +     if (REAL_VALUE_ISINF (VALUE))                    \
  542. +       fprintf (FILE, "\t.single 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  543. +     else if (isnan (VALUE))                        \
  544. +       {                                    \
  545. +     union { float f; long l;} t;                    \
  546. +     t.f = (VALUE);                            \
  547. +     fprintf (FILE, "\t.long 0x%lx\n", t.l);                \
  548. +       }                                    \
  549. +     else                                \
  550. +       fprintf (FILE, "\t.single 0r%.9g\n", VALUE);            \
  551. +   }
  552. + 
  553. + /* This is how to output an assembler lines defining floating operands.
  554. +    There's no way to output a NaN's fraction, so we lose it.  */
  555. +   
  556. + #undef ASM_OUTPUT_FLOAT_OPERAND
  557. + #define ASM_OUTPUT_FLOAT_OPERAND(FILE,VALUE)                \
  558. +   (REAL_VALUE_ISINF ((VALUE))                        \
  559. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  560. +    : (VALUE) == -0.0                            \
  561. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  562. +    : asm_fprintf (FILE, "%I0r%.9g", (VALUE)))
  563. + 
  564. + #undef ASM_OUTPUT_DOUBLE_OPERAND
  565. + #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                \
  566. +   (REAL_VALUE_ISINF ((VALUE))                        \
  567. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  568. +    : (VALUE) == -0.0                            \
  569. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  570. +    : asm_fprintf (FILE, "%I0r%.17g", (VALUE)))
  571. + 
  572. + 
  573. + /* use A5 as framepointer instead of A6, this makes A6 available as a
  574. +    general purpose register, and can thus be used without problems in
  575. +    direct library calls. */
  576. + 
  577. + #undef FRAME_POINTER_REGNUM
  578. + #define FRAME_POINTER_REGNUM 13
  579. + #undef ARG_POINTER_REGNUM
  580. + #define ARG_POINTER_REGNUM 13
  581. + 
  582. + /* we use A4 for this, not A5, which is the framepointer */
  583. + #undef PIC_OFFSET_TABLE_REGNUM
  584. + #define PIC_OFFSET_TABLE_REGNUM 12
  585. + 
  586. + /* setup a default shell return value for those (gazillion..) programs that
  587. +    (inspite of ANSI-C) declare main() to be void (or even VOID...) and thus
  588. +    cause the shell to randomly caugh upon executing such programs (contrary
  589. +    to Unix, AmigaDOS scripts are terminated with an error if a program returns
  590. +    with an error code above the `error' or even `failure' level
  591. +    (which is configurable with the FAILAT command) */
  592. + 
  593. + #define DEFAULT_MAIN_RETURN c_expand_return (integer_zero_node)
  594. + 
  595. + /* we do have an ansi-compliant c-library ;-) */
  596. + #define HAVE_VPRINTF
  597. + #define HAVE_VFPRINTF
  598. + #define HAVE_PUTENV
  599. + #define HAVE_STRERROR
  600. + #define HAVE_ATEXIT
  601. + 
  602. + /* given that symbolic_operand(X), return TRUE if no special
  603. +    base relative relocation is necessary */
  604. + 
  605. + #define LEGITIMATE_BASEREL_OPERAND_P(X) \
  606. +   (flag_pic >= 3 && read_only_operand (X))
  607. + 
  608. + #undef LEGITIMATE_PIC_OPERAND_P
  609. + #define LEGITIMATE_PIC_OPERAND_P(X) \
  610. +   (! symbolic_operand (X, VOIDmode) || LEGITIMATE_BASEREL_OPERAND_P (X))
  611. + 
  612. + 
  613. + /* Define this macro if references to a symbol must be treated
  614. +    differently depending on something about the variable or
  615. +    function named by the symbol (such as what section it is in).
  616. + 
  617. +    The macro definition, if any, is executed immediately after the
  618. +    rtl for DECL or other node is created.
  619. +    The value of the rtl will be a `mem' whose address is a
  620. +    `symbol_ref'.
  621. + 
  622. +    The usual thing for this macro to do is to a flag in the
  623. +    `symbol_ref' (such as `SYMBOL_REF_FLAG') or to store a modified
  624. +    name string in the `symbol_ref' (if one bit is not enough
  625. +    information).
  626. + 
  627. +    On the Amiga we use this to indicate if a symbol is in text or
  628. +    data space.  */
  629. + 
  630. + #define ENCODE_SECTION_INFO(DECL)\
  631. + do                                    \
  632. +   {                                    \
  633. +     if (TREE_CODE (DECL) == FUNCTION_DECL)                \
  634. +       SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1;            \
  635. +     else                                \
  636. +       {                                    \
  637. +     rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'        \
  638. +            ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));        \
  639. +     if (RTX_UNCHANGING_P (rtl) && !MEM_VOLATILE_P (rtl))        \
  640. +       SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;                \
  641. +       }                                    \
  642. +   }                                    \
  643. + while (0)
  644. + 
  645. + #undef SELECT_RTX_SECTION
  646. + #define SELECT_RTX_SECTION(MODE, X) readonly_data_section ();
  647. + 
  648. + /* according to varasm.c, RELOC referrs *only* to whether constants (!)
  649. +    are addressed by address. This doesn't matter in baserelative code,
  650. +    so we allow (inspite of flag_pic) readonly_data_section() in that
  651. +    case */
  652. + 
  653. + #undef SELECT_SECTION
  654. + #define SELECT_SECTION(DECL, RELOC)                    \
  655. + {                                    \
  656. +   if (TREE_CODE (DECL) == STRING_CST)                    \
  657. +     {                                    \
  658. +       if (! flag_writable_strings)                    \
  659. +     readonly_data_section ();                    \
  660. +       else                                \
  661. +     data_section ();                        \
  662. +     }                                    \
  663. +   else if (TREE_CODE (DECL) == VAR_DECL)                \
  664. +     {                                    \
  665. +       if ((flag_pic && flag_pic < 3 && RELOC)                \
  666. +       || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL))        \
  667. +     data_section ();                        \
  668. +       else                                \
  669. +     readonly_data_section ();                    \
  670. +     }                                    \
  671. +   else                                    \
  672. +     readonly_data_section ();                        \
  673. + }
  674. + 
  675. + 
  676. + 
  677. + #if not_yet_working
  678. + 
  679. + /* starting support for amiga specific keywords
  680. +  * --------------------------------------------
  681. +  */
  682. + 
  683. + /* validate attributes that don't take a parameter. Currently we support
  684. +  * __attribute__ (saveds) and __attribute__ (interrupt)
  685. +  */
  686. + #define HANDLE_ATTRIBUTE0(attr) \
  687. +   (strcmp(attr, "saveds") != 0 && strcmp(attr, "interrupt") != 0)
  688. + 
  689. + /* (c-common.c)
  690. +  * install additional attributes
  691. +  */
  692. + #define HANDLE_EXTRA_ATTRIBUTES(a)                         \
  693. +   if (TREE_VALUE (a) != 0                            \
  694. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  695. +       && TREE_VALUE (a) == get_identifier ("saveds"))                \
  696. +     {                                        \
  697. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  698. +         {                                    \
  699. +           warning_with_decl (decl,                        \
  700. +               "saveds attribute specified for non-function `%s'");        \
  701. +       return;                                \
  702. +         }                                    \
  703. +                                               \
  704. +       attr_do_saveds (DECL_NAME (decl));                    \
  705. +     }                                        \
  706. +   else if (TREE_VALUE (a) != 0                            \
  707. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  708. +       && TREE_VALUE (a) == get_identifier ("interrupt"))            \
  709. +     {                                        \
  710. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  711. +         {                                    \
  712. +           warning_with_decl (decl,                        \
  713. +               "saveds attribute specified for non-function `%s'");        \
  714. +       return;                                \
  715. +         }                                    \
  716. +                                               \
  717. +       attr_do_interrupt (DECL_NAME (decl));                    \
  718. +     }                                        \
  719. + 
  720. + 
  721. + #define PROLOGUE_EXTRA_SAVE(mask)                        \
  722. +   { extern char *current_function_name;                        \
  723. +     /* saveds makes the function preserve d1/a0/a1 as well */            \
  724. +     if (attr_does_saveds (current_function_name))                \
  725. +       mask |= 0x40c0; }                                \
  726. + 
  727. + 
  728. + #define EPILOGUE_EXTRA_RESTORE(mask, nregs)                    \
  729. +   { extern char *current_function_name;                        \
  730. +     /* restore those extra registers */                        \
  731. +     if (attr_does_saveds (current_function_name))                \
  732. +       {                                        \
  733. +     mask |= 0x0302;                                \
  734. +     nregs += 3;                                \
  735. +       } }                                    \
  736. + 
  737. + 
  738. + #define EPILOGUE_EXTRA_BARRIER_KLUDGE(stream)                    \
  739. +   { extern char *current_function_name;                        \
  740. +     /* PLEASE Help! how is this done cleaner?? */                \
  741. +     if (attr_does_saveds (current_function_name))                \
  742. +       {                                        \
  743. +     fprintf (stderr,                             \
  744. +          "warning: couldn't cleanup `saveds'-stack in `%s'.\n");    \
  745. +     fprintf (stderr,                            \
  746. +          "         this is only ok, if the function never returns!\n");    \
  747. +       }    }                                    \
  748. +         
  749. + 
  750. + #define EPILOGUE_EXTRA_TEST(stream)                        \
  751. +   { extern char *current_function_name;                        \
  752. +     /* with the interrupt-attribute, we have to set the cc before rts */    \
  753. +     if (attr_does_interrupt (current_function_name))                \
  754. +       asm_fprintf (stream, "\ttstl %s\n", reg_names[0]); }            \
  755. + 
  756. + #endif
  757. diff -2rcN gcc-2.2.2/config/m68k.c my-gcc-2.2.2/config/m68k.c
  758. *** gcc-2.2.2/config/m68k.c    Wed Jun 10 04:41:20 1992
  759. --- my-gcc-2.2.2/config/m68k.c    Fri Jul 17 22:38:08 1992
  760. ***************
  761. *** 57,61 ****
  762.   finalize_pic ()
  763.   {
  764. !   if (flag_pic && current_function_uses_pic_offset_table)
  765.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  766.   }
  767. --- 57,61 ----
  768.   finalize_pic ()
  769.   {
  770. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  771.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  772.   }
  773. ***************
  774. *** 177,180 ****
  775. --- 177,183 ----
  776.         num_saved_regs--;
  777.       }
  778. + #ifdef PROLOGUE_EXTRA_SAVE
  779. +   PROLOGUE_EXTRA_SAVE (mask);
  780. + #endif
  781.     if (num_saved_regs <= 2)
  782.       {
  783. ***************
  784. *** 205,209 ****
  785.   #endif
  786.       }
  787. !   if (flag_pic && current_function_uses_pic_offset_table)
  788.       {
  789.   #ifdef MOTOROLA
  790. --- 208,212 ----
  791.   #endif
  792.       }
  793. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  794.       {
  795.   #ifdef MOTOROLA
  796. ***************
  797. *** 273,276 ****
  798. --- 276,282 ----
  799.        about which function the pc is in at this address.  */
  800.         asm_fprintf (stream, "\tnop\n");
  801. + #ifdef EPILOGUE_EXTRA_BARRIER_KLUDGE
  802. +       EPILOGUE_EXTRA_BARRIER_KLUDGE(stream);
  803. + #endif
  804.         return;
  805.       }
  806. ***************
  807. *** 303,306 ****
  808. --- 309,315 ----
  809.       mask |= 1 << regno;
  810.         }
  811. + #ifdef EPILOGUE_EXTRA_RESTORE
  812. +   EPILOGUE_EXTRA_RESTORE(mask, nregs);
  813. + #endif
  814.     offset = foffset + nregs * 4;
  815.     if (offset + fsize >= 0x8000
  816. ***************
  817. *** 505,508 ****
  818. --- 514,520 ----
  819.       }
  820.       }
  821. + #ifdef EPILOGUE_EXTRA_TEST
  822. +   EPILOGUE_EXTRA_TEST(stream);
  823. + #endif
  824.     if (current_function_pops_args)
  825.       asm_fprintf (stream, "\trtd %0I%d\n", current_function_pops_args);
  826. ***************
  827. *** 795,807 ****
  828.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  829.       {
  830.         if (reg == 0)
  831.       abort ();
  832.   
  833. !       pic_ref = gen_rtx (MEM, Pmode,
  834. !              gen_rtx (PLUS, Pmode,
  835. !                   pic_offset_table_rtx, orig));
  836.         current_function_uses_pic_offset_table = 1;
  837.         RTX_UNCHANGING_P (pic_ref) = 1;
  838.         emit_move_insn (reg, pic_ref);
  839.         return reg;
  840.       }
  841. --- 807,829 ----
  842.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  843.       {
  844. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  845. +   if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  846. +     return orig;
  847. + #endif
  848. + 
  849.         if (reg == 0)
  850.       abort ();
  851.   
  852. !       if (flag_pic >= 3)
  853. !     pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  854. !       else
  855. !         pic_ref = gen_rtx (MEM, Pmode,
  856. !                gen_rtx (PLUS, Pmode,
  857. !                     pic_offset_table_rtx, orig));
  858. ! 
  859.         current_function_uses_pic_offset_table = 1;
  860.         RTX_UNCHANGING_P (pic_ref) = 1;
  861.         emit_move_insn (reg, pic_ref);
  862. + 
  863.         return reg;
  864.       }
  865. ***************
  866. *** 832,835 ****
  867. --- 854,858 ----
  868.         /* Likewise, should we set special REG_NOTEs here?  */
  869.       }
  870. + 
  871.     return pic_ref;
  872.   }
  873. ***************
  874. *** 1884,1887 ****
  875. --- 1907,1914 ----
  876.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  877.                 fprintf (file, ":l");
  878. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  879. +               fprintf (file, ":W");
  880. +             if ((flag_pic == 4) && (breg == pic_offset_table_rtx))
  881. +               fprintf (file, ":L");
  882.             }
  883.           fprintf (file, "(%s", reg_names[REGNO (breg)]);
  884. ***************
  885. *** 1899,1902 ****
  886. --- 1926,1933 ----
  887.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  888.                 fprintf (file, ":l");
  889. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  890. +               fprintf (file, ":W");
  891. +             if ((flag_pic == 4) && (breg == pic_offset_table_rtx))
  892. +               fprintf (file, ":L");
  893.             }
  894.           if (addr != 0 && ireg != 0)
  895. diff -2rcN gcc-2.2.2/config/m68k.h my-gcc-2.2.2/config/m68k.h
  896. *** gcc-2.2.2/config/m68k.h    Wed Jun 10 04:42:15 1992
  897. --- my-gcc-2.2.2/config/m68k.h    Fri Jul 17 22:38:11 1992
  898. ***************
  899. *** 327,333 ****
  900.   
  901.   #define CONDITIONAL_REGISTER_USAGE \
  902. ! {                                               \
  903. !   if (flag_pic)                                 \
  904. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  905.   }
  906.   
  907. --- 327,336 ----
  908.   
  909.   #define CONDITIONAL_REGISTER_USAGE \
  910. ! {                                                \
  911. !   if (flag_pic)                                  \
  912. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;     \
  913. !   /* prevent saving/restoring of the base reg */ \
  914. !   if (flag_pic == 3)                 \
  915. !     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  916.   }
  917.   
  918. diff -2rcN gcc-2.2.2/config/m68k.md my-gcc-2.2.2/config/m68k.md
  919. *** gcc-2.2.2/config/m68k.md    Wed Jun 10 04:43:59 1992
  920. --- my-gcc-2.2.2/config/m68k.md    Fri Jul 17 22:38:16 1992
  921. ***************
  922. *** 705,715 ****
  923.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  924.       {
  925. !       /* The source is an address which requires PIC relocation.  
  926. !          Call legitimize_pic_address with the source, mode, and a relocation
  927. !          register (a new pseudo, or the final destination if reload_in_progress
  928. !          is set).   Then fall through normally */
  929. !       extern rtx legitimize_pic_address();
  930. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  931. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  932.       }
  933.   }")
  934. --- 705,720 ----
  935.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  936.       {
  937. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  938. !       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  939. ! #endif
  940. !       {
  941. !         /* The source is an address which requires PIC relocation.  
  942. !            Call legitimize_pic_address with the source, mode, and a relocation
  943. !            register (a new pseudo, or the final destination if reload_in_progress
  944. !            is set).   Then fall through normally */
  945. !         extern rtx legitimize_pic_address();
  946. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  947. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  948. !       }
  949.       }
  950.   }")
  951. ***************
  952. *** 1712,1717 ****
  953.         /* These insns can result from reloads to access
  954.        stack slots over 64k from the frame pointer.  */
  955. !       if (GET_CODE (operands[2]) == CONST_INT
  956. !       && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000)
  957.           return \"move%.l %2,%0\;add%.l %1,%0\";
  958.   #ifdef SGS
  959. --- 1717,1723 ----
  960.         /* These insns can result from reloads to access
  961.        stack slots over 64k from the frame pointer.  */
  962. !       if (((GET_CODE (operands[2]) == CONST_INT
  963. !        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  964. !       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  965.           return \"move%.l %2,%0\;add%.l %1,%0\";
  966.   #ifdef SGS
  967. ***************
  968. *** 4645,4649 ****
  969.     "
  970.   {
  971. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  972.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  973.                  force_reg (Pmode, XEXP (operands[0], 0)));
  974. --- 4651,4655 ----
  975.     "
  976.   {
  977. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  978.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  979.                  force_reg (Pmode, XEXP (operands[0], 0)));
  980. ***************
  981. *** 4656,4660 ****
  982.     ;; Operand 1 not really used on the m68000.
  983.   
  984. !   "! flag_pic"
  985.     "*
  986.   #ifdef MOTOROLA
  987. --- 4662,4666 ----
  988.     ;; Operand 1 not really used on the m68000.
  989.   
  990. !   "(! flag_pic || flag_pic >= 3)"
  991.     "*
  992.   #ifdef MOTOROLA
  993. ***************
  994. *** 4671,4675 ****
  995.     ;; Operand 1 not really used on the m68000.
  996.   
  997. !   "flag_pic"
  998.     "*
  999.     return \"jsr %0\";
  1000. --- 4677,4681 ----
  1001.     ;; Operand 1 not really used on the m68000.
  1002.   
  1003. !   "(flag_pic && flag_pic < 3)"
  1004.     "*
  1005.     return \"jsr %0\";
  1006. ***************
  1007. *** 4687,4691 ****
  1008.     "
  1009.   {
  1010. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  1011.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  1012.                  force_reg (Pmode, XEXP (operands[1], 0)));
  1013. --- 4693,4697 ----
  1014.     "
  1015.   {
  1016. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  1017.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  1018.                  force_reg (Pmode, XEXP (operands[1], 0)));
  1019. ***************
  1020. *** 4698,4702 ****
  1021.             (match_operand:SI 2 "general_operand" "g")))]
  1022.     ;; Operand 2 not really used on the m68000.
  1023. !   "! flag_pic"
  1024.     "*
  1025.   #ifdef MOTOROLA
  1026. --- 4704,4708 ----
  1027.             (match_operand:SI 2 "general_operand" "g")))]
  1028.     ;; Operand 2 not really used on the m68000.
  1029. !   "(! flag_pic || flag_pic >= 3)"
  1030.     "*
  1031.   #ifdef MOTOROLA
  1032. ***************
  1033. *** 4713,4717 ****
  1034.             (match_operand:SI 2 "general_operand" "g")))]
  1035.     ;; Operand 2 not really used on the m68000.
  1036. !   "flag_pic"
  1037.     "*
  1038.     return \"jsr %1\";
  1039. --- 4719,4723 ----
  1040.             (match_operand:SI 2 "general_operand" "g")))]
  1041.     ;; Operand 2 not really used on the m68000.
  1042. !   "(flag_pic && flag_pic < 3)"
  1043.     "*
  1044.     return \"jsr %1\";
  1045. diff -2rcN gcc-2.2.2/config/t-amigados my-gcc-2.2.2/config/t-amigados
  1046. *** gcc-2.2.2/config/t-amigados
  1047. --- my-gcc-2.2.2/config/t-amigados    Fri Jul 17 22:38:18 1992
  1048. ***************
  1049. *** 0 ****
  1050. --- 1,81 ----
  1051. + # compilation rules for target amigados. We generate two additional things:
  1052. + # libngcc.a: a `normal' library, the automatically generated libgcc.a is
  1053. + #            base relative (which is the right thing, since it's used to
  1054. + #         generate further generations of compilers).
  1055. + # gccs:         a gcc calling ssytem() instead of forking. This makes it more
  1056. + #         system conformant, at the cost of reduced functionality (no
  1057. + #         -pipe option).
  1058. + 
  1059. + # the provided file is POSIX compliant
  1060. + LIMITS_H =
  1061. + 
  1062. + # we don't need a libgcc1, it's all in ixemul.library
  1063. + LIBGCC1 = libgcc1.null
  1064. + 
  1065. + # use flags that don't generate base relative objects. So -resident
  1066. + # would be a bad idea..
  1067. + LIBNGCC2_CFLAGS = -O2 $(INTERNAL_CFLAGS) $(CFLAGS) -B./
  1068. + 
  1069. + # this is later copied into gcc:compilers/amiga/<version>/libgcc.a, whereas
  1070. + # libgcc.a is copied into gcc:blib/libgcc.a, which is searched first if we're
  1071. + # compiling/linking base relative
  1072. + EXTRA_PARTS = libngcc.a
  1073. + 
  1074. + # this includes the knowledge that target amigados doesn't need 
  1075. + # libgcc1.a at all
  1076. + libngcc.a: libgcc2.c libgcc2.ready $(CONFIG_H) $(LIB2FUNCS_EXTRA) \
  1077. +    longlong.h gbl-ctors.h config.status
  1078. + # Actually build it in tmplibngcc.a, then rename at end,
  1079. + # so that libngcc.a itself remains nonexistent if compilation is aborted.
  1080. +     -rm -f tmplibngcc.a
  1081. + # -e causes any failing command to make this rule fail.
  1082. + # -e doesn't work in certain shells, so we test $$? as well.
  1083. +     set -e; \
  1084. +     for name in $(LIB2FUNCS); \
  1085. +     do \
  1086. +       echo $${name}; \
  1087. +       $(GCC_FOR_TARGET) $(LIBNGCC2_CFLAGS) $(INCLUDES) -c -DL$${name} \
  1088. +           $(srcdir)/libgcc2.c -o $${name}.o; \
  1089. +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1090. +       $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  1091. +       rm -f $${name}.o; \
  1092. +     done
  1093. + # Some shells crash when a loop has no items.
  1094. + # So make sure there is always at least one--`..'.
  1095. + # Then ignore it.
  1096. + # We don't use -e here because there are if statements
  1097. + # that should not make the command give up when the if condition is false.
  1098. + # Instead, we test for failure after each command where it matters.
  1099. +     -for file in .. $(LIB2FUNCS_EXTRA); \
  1100. +     do \
  1101. +       if [ x$${file} != x.. ]; then \
  1102. +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  1103. +         echo $${name}; \
  1104. +         if [ $${name}.asm = $${file} ]; then \
  1105. +           cp $${file} $${name}.s; file=$${name}.s; \
  1106. +           if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1107. +         else true; fi; \
  1108. +         $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) $(INCLUDES) -c $${file}; \
  1109. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1110. +         $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  1111. +         rm -f $${name}.[so]; \
  1112. +       else true; \
  1113. +       fi; \
  1114. +     done
  1115. +     mv tmplibngcc.a libngcc.a
  1116. +     ranlib libngcc.a
  1117. + 
  1118. + T_CPPFLAGS = -DAMIGADOS_FORK_GCC
  1119. + # the default gcc (xgcc) specifies -DAMIGADOS_FORK_GCC. This gcc (gccs) does not.
  1120. + EXTRA_PASSES = gccs
  1121. + 
  1122. + gccs: gccs.o version.o $(LIBDEPS)
  1123. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o gccs gccs.o version.o $(LIBS)
  1124. + 
  1125. + # omit the T_CPPFLAGS here on purpose to get rid of -DAMIGADOS_FORK_GCC
  1126. + gccs.o: gcc.c $(CONFIG_H) gvarargs.h obstack.h
  1127. +     $(CC) $(ALL_CFLAGS) $(CPPFLAGS) $(X_CPPFLAGS) $(INCLUDES) \
  1128. +   -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  1129. +   -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
  1130. +   -DDEFAULT_TARGET_MACHINE=\"$(target)\" \
  1131. +   -c `echo $(srcdir)/gcc.c | sed 's,^\./,,'` -o gccs.o
  1132. diff -2rcN gcc-2.2.2/config/x-amigados my-gcc-2.2.2/config/x-amigados
  1133. *** gcc-2.2.2/config/x-amigados
  1134. --- my-gcc-2.2.2/config/x-amigados    Fri Jul 17 22:38:20 1992
  1135. ***************
  1136. *** 0 ****
  1137. --- 1,50 ----
  1138. + # building under amigados requires an already working gcc. You can of course
  1139. + # try to reinvent the wheel, get sun2manx and try to do a crosscompile from a
  1140. + # sun3, like I did some years ago...
  1141. + CC = gccv # this is a gcc compiled with AMIGADOS_FORK_GCC
  1142. + # if your gcc has not been compiled with -DAMIGADOS_FORK_GCC, then don't use
  1143. + # -pipe! (see also t-amigados !)
  1144. + # The -fno-builtin is necessary, or gcc uses the builtin alloca() by default,
  1145. + # and we can't undef it for cpp
  1146. + X_CFLAGS = -O2 -resident -pipe -fno-builtin
  1147. + 
  1148. + exec_prefix = gcc:compilers
  1149. + bindir = gcc:bin
  1150. + libdir = gcc:lib
  1151. + manext = .0
  1152. + mandir = gcc:man/man1
  1153. + 
  1154. + # don't compile with debugging, as long as there is no debugger...
  1155. + LIBGCC2_CFLAGS = -O2 $(GCC_CFLAGS)
  1156. + 
  1157. + # we really shouldn't specify CFLAGS from here, but there's no other way
  1158. + # to get rid of the `-g' indoctrinated by Makefile.in...
  1159. + CFLAGS =
  1160. + 
  1161. + RANLIB_TEST = true
  1162. + RANLIB = ranlib
  1163. + 
  1164. + # override the default compilation rule for libgcc.a, since the original
  1165. + # rule doesn't work well with the amigados ksh (the subshell cd'ing into
  1166. + # tmplibgcc is still running when the rm -fr tmplibgcc is started, and at
  1167. + # that point trying to remove the directory fails because the previous
  1168. + # process still keeps a lock (its current directory) to that directory).
  1169. + 
  1170. + # Combine the various libraries into a single library, libgcc.a.
  1171. + libgcc.a: $(LIBGCC1) $(LIBGCC2)
  1172. +     -rm -rf tmplibgcc.a libgcc.a tmpcopy
  1173. +     mkdir tmpcopy
  1174. +     -if [ x$(LIBGCC1) != x ];            \
  1175. +     then (cd tmpcopy; $(AR) x ../$(LIBGCC1));    \
  1176. +     else true;                    \
  1177. +     fi
  1178. + # the cd .. make sure there's no lock left on tmpcopy (this is actually a
  1179. + # bug in ixemul.library, but I can't get around it currently because it
  1180. + # involves an OS bug which is beyond my capabilities to fix...)
  1181. +     (cd tmpcopy; $(AR) x ../$(LIBGCC2); cd ..; /c/wait 2)
  1182. +     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o; cd ..; /c/wait 2)
  1183. +     rm -rf tmpcopy
  1184. +     -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  1185. + # Actually build it in tmplibgcc.a, then rename at end,
  1186. + # so that libgcc.a itself remains nonexistent if compilation is aborted.
  1187. +     mv tmplibgcc.a libgcc.a
  1188. diff -2rcN gcc-2.2.2/config/xm-amigados.h my-gcc-2.2.2/config/xm-amigados.h
  1189. *** gcc-2.2.2/config/xm-amigados.h
  1190. --- my-gcc-2.2.2/config/xm-amigados.h    Fri Jul 17 22:38:22 1992
  1191. ***************
  1192. *** 0 ****
  1193. --- 1,234 ----
  1194. + /*  Configuration for GNU C-compiler for Commodore Amiga, running AmigaDOS.
  1195. +    Copyright (C) 1992 Free Software Foundation, Inc.
  1196. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  1197. + 
  1198. + This file is part of GNU CC.
  1199. + 
  1200. + GNU CC is free software; you can redistribute it and/or modify
  1201. + it under the terms of the GNU General Public License as published by
  1202. + the Free Software Foundation; either version 2, or (at your option)
  1203. + any later version.
  1204. + 
  1205. + GNU CC is distributed in the hope that it will be useful,
  1206. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  1207. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1208. + GNU General Public License for more details.
  1209. + 
  1210. + You should have received a copy of the GNU General Public License
  1211. + along with GNU CC; see the file COPYING.  If not, write to
  1212. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  1213. + 
  1214. + /* first include the generic header, then modify some parts.. */
  1215. + 
  1216. + #include "xm-m68k.h"
  1217. + 
  1218. + #undef GCC_INCLUDE_DIR
  1219. + #define GCC_INCLUDE_DIR ":GCC_INCLUDE_DIR is not used under AmigaDOS!:"
  1220. + 
  1221. + /* use this list of header files instead of the Unix'ish default */
  1222. + #define INCLUDE_DEFAULTS \
  1223. + {                                    \
  1224. +   { "gcc:g++-include", 1},                        \
  1225. +   { "gcc:gcc-include", 0}, /* gcc-specific changes to system headers. none currently.. */ \
  1226. +   { "gcc:os-include", 0},  /* here go amiga specific headers */     \
  1227. +   { "gcc:include", 0},     /* here go the usual headers */         \
  1228. +   { 0, 0}                                \
  1229. + }
  1230. + 
  1231. + 
  1232. + /* here live the compiler passes like cc1, cc1plus, cpp etc */
  1233. + #undef STANDARD_EXEC_PREFIX
  1234. + #define STANDARD_EXEC_PREFIX "gcc:compilers/"
  1235. + 
  1236. + /* here live (%|b|r)crt0.o and different flavors of link-libraries */
  1237. + #undef STANDARD_STARTFILE_PREFIX
  1238. + #define STANDARD_STARTFILE_PREFIX "gcc:lib/"
  1239. + 
  1240. + /* the `compilers' place looks better, since we have the machine/version tree
  1241. +    there, and not in `lib'. */
  1242. + #undef STD_PROTO_DIR
  1243. + #define STD_PROTO_DIR STANDARD_EXEC_PREFIX
  1244. + 
  1245. + /* Fork one piped subcommand.  SEARCH_FLAG is the system call to use
  1246. +    (either execv or execvp).  ARGV is the arg vector to use.
  1247. +    NOT_LAST is nonzero if this is not the last subcommand
  1248. +    (i.e. its output should be piped to the next one.)  */
  1249. + 
  1250. + #ifndef AMIGADOS_FORK_GCC
  1251. + /* this version uses a more or less amigados-conformant way of running a
  1252. +    program (in the context of the parent). If you want to use -pipe however,
  1253. +    you'll have to use the vfork() version afterwards. */
  1254. + 
  1255. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  1256. + ({char *_argline;                        \
  1257. +   int _arglinelength, _i;                    \
  1258. +                                 \
  1259. +   for (_i = 1, _arglinelength=0; ARGV[_i]; ++_i)        \
  1260. +     _arglinelength += strlen(ARGV[_i]) + 1;            \
  1261. +                                 \
  1262. +   _arglinelength += strlen(PROGRAM) + 1;            \
  1263. +                                 \
  1264. +   if (!(_argline = (char *)alloca(_arglinelength)))         \
  1265. +     pfatal_with_name ("alloca");                \
  1266. +                                 \
  1267. +   strcpy(_argline, PROGRAM);                    \
  1268. +   for (_i = 1; ARGV[_i]; ++_i)                     \
  1269. +     {                                \
  1270. +       strcat(_argline, " ");                    \
  1271. +       strcat(_argline, ARGV[_i]);                \
  1272. +     }                                \
  1273. +                                 \
  1274. +   ssystem(_argline); })                        \
  1275. + 
  1276. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  1277. +   ({ STATUS = COMMAND.pid; })
  1278. + 
  1279. + #else
  1280. + 
  1281. + /* the vfork() version. This one has the drawback, that gcc is not 
  1282. +    interruptible when started from make, since ixemul.library doesn't yet
  1283. +    propagate ^C to subprocesses. */
  1284. + 
  1285. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  1286. + ({int (*_func)() = (SEARCH_FLAG ? execv : execvp);            \
  1287. +   int _pid;                                \
  1288. +   int _pdes[2];                                \
  1289. +   int _input_desc = last_pipe_input;                    \
  1290. +   int _output_desc = STDOUT_FILE_NO;                    \
  1291. +   int _retries, _sleep_interval, _result;                \
  1292. +                                     \
  1293. +   /* If this isn't the last process, make a pipe for its output,    \
  1294. +      and record it as waiting to be the input to the next process.  */    \
  1295. +                                     \
  1296. +   if (NOT_LAST)                                \
  1297. +     {                                    \
  1298. +       if (pipe (_pdes) < 0)                        \
  1299. +     pfatal_with_name ("pipe");                    \
  1300. +       _output_desc = _pdes[WRITE_PORT];                    \
  1301. +       last_pipe_input = _pdes[READ_PORT];                \
  1302. +     }                                    \
  1303. +   else                                    \
  1304. +     last_pipe_input = STDIN_FILE_NO;                    \
  1305. +                                     \
  1306. +   /* Fork a subprocess; wait and retry if it fails.  */            \
  1307. +   _sleep_interval = 1;                            \
  1308. +   for (_retries = 0; _retries < 4; _retries++)                \
  1309. +     {                                    \
  1310. +       _pid = vfork ();                            \
  1311. +       if (_pid >= 0)                            \
  1312. +     break;                                \
  1313. +       sleep (_sleep_interval);                        \
  1314. +       _sleep_interval *= 2;                        \
  1315. +     }                                    \
  1316. +                                     \
  1317. +   switch (_pid)                                \
  1318. +     {                                    \
  1319. +     case -1:                                \
  1320. +       pfatal_with_name ("vfork");                    \
  1321. +       /* NOTREACHED */                            \
  1322. +       _result = 0;                            \
  1323. +       break;                                \
  1324. +                                     \
  1325. +     case 0: /* child */                            \
  1326. +       /* Move the input and output pipes into place, if nec.  */    \
  1327. +       if (_input_desc != STDIN_FILE_NO)                    \
  1328. +     {                                \
  1329. +       close (STDIN_FILE_NO);                    \
  1330. +       dup (_input_desc);                        \
  1331. +       close (_input_desc);                        \
  1332. +     }                                \
  1333. +       if (_output_desc != STDOUT_FILE_NO)                \
  1334. +     {                                \
  1335. +       close (STDOUT_FILE_NO);                    \
  1336. +       dup (_output_desc);                        \
  1337. +       close (_output_desc);                        \
  1338. +     }                                \
  1339. +                                     \
  1340. +       /* Close the parent's descs that aren't wanted here.  */        \
  1341. +       if (last_pipe_input != STDIN_FILE_NO)                \
  1342. +     close (last_pipe_input);                    \
  1343. +                                     \
  1344. +       /* Exec the program.  */                        \
  1345. +       (*_func) (PROGRAM, ARGV);                        \
  1346. +       perror_exec (PROGRAM);                        \
  1347. +       exit (-1);                            \
  1348. +       /* NOTREACHED */                            \
  1349. +       _result = 0;                            \
  1350. +       break;                                \
  1351. +                                     \
  1352. +     default:                                \
  1353. +       /* In the parent, after forking.                    \
  1354. +      Close the descriptors that we made for this child.  */        \
  1355. +       if (_input_desc != STDIN_FILE_NO)                    \
  1356. +     close (_input_desc);                        \
  1357. +       if (_output_desc != STDOUT_FILE_NO)                \
  1358. +     close (_output_desc);                        \
  1359. +                                     \
  1360. +       /* Return child's process number.  */                \
  1361. +       _result = _pid;                            \
  1362. +       break;                                \
  1363. +     }                                     \
  1364. + _result; })                                \
  1365. + 
  1366. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  1367. +   ({ wait (& STATUS); })
  1368. + 
  1369. + #endif /* AMIGADOS_FORK_GCC */
  1370. + 
  1371. + /* the following macros are stolen more or less from xm-vms.h ... */
  1372. + 
  1373. + /* This macro is used to help compare filenames in cp-lex.c.
  1374. + 
  1375. +    We also need to make sure that the names are all lower case, because
  1376. +    we must be able to compare filenames to determine if a file implements
  1377. +    a class.  */
  1378. + 
  1379. + #define FILE_NAME_NONDIRECTORY(C)                \
  1380. + ({                                \
  1381. +    char * pnt_ = (C), * pnt1_;                    \
  1382. +    pnt1_ = pnt_ - 1;                        \
  1383. +    while (*++pnt1_)                        \
  1384. +      if ((*pnt1_ >= 'A' && *pnt1_ <= 'Z')) *pnt1_ |= 0x20;    \
  1385. +    pnt1_ = rindex (pnt_, '/');                     \
  1386. +    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, ':') : pnt1_);        \
  1387. +    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);                \
  1388. +  })
  1389. + 
  1390. + /* Macro to generate the name of the cross reference file.  The standard
  1391. +    one does not work, since it was written assuming that the conventions
  1392. +    of a unix style filesystem will work on the host system.
  1393. +  
  1394. +    Contrary to VMS, I'm using the original unix filename, there's no reason
  1395. +    not to use this under AmigaDOS. */
  1396. + 
  1397. + #define XREF_FILE_NAME(BUFF, NAME)    \
  1398. +   s = FILE_NAME_NONDIRECTORY (NAME);            \
  1399. +   if (s == NAME) sprintf(BUFF, ".%s.gxref", NAME);    \
  1400. +   else {                        \
  1401. +     unsigned char ch = *s; /* could be Latin1 char.. */    \
  1402. +     /* temporary: cut the filename from the directory */\
  1403. +     *s = 0;                        \
  1404. +     sprintf (BUFF, "%s.%c%s.gxref", NAME, ch, s+1);    \
  1405. +     /* and restore the filename */            \
  1406. +     *s = ch;                        \
  1407. +   }                            \
  1408. + 
  1409. + /* Macro that is used in cp-xref.c to determine whether a file name is
  1410. +    absolute or not.
  1411. + 
  1412. +    This checks for both, '/' as first character, since we're running under
  1413. +    ixemul.library which provides for this unix'ism, and for the usual 
  1414. +    logical-terminator, ':', somewhere in the filename. */
  1415. + 
  1416. + #define FILE_NAME_ABSOLUTE_P(NAME) (NAME[0] == '/' || index(NAME, ':'))
  1417. + 
  1418. + 
  1419. + /* the colon conflicts with the name space of logicals */
  1420. + 
  1421. + #define PATH_SEPARATOR ','
  1422. + 
  1423. + /* AmigaDOS handles rename(2) *much* better than any link(2)/unlink(2)
  1424. +    hacks. It's actually the inverse case as on Unix. rename(2) was always
  1425. +    there, link(2) is new with OS 2.0 */
  1426. + 
  1427. + #define HAVE_rename 1
  1428. diff -2rcN gcc-2.2.2/configure my-gcc-2.2.2/configure
  1429. *** gcc-2.2.2/configure    Thu Jun 11 19:46:42 1992
  1430. --- my-gcc-2.2.2/configure    Fri Jul 17 22:38:41 1992
  1431. ***************
  1432. *** 359,362 ****
  1433. --- 359,369 ----
  1434.           xmake_file=x-sparcv4
  1435.           ;;
  1436. +     m68k-*-amigados)
  1437. +         xm_file=xm-amigados.h
  1438. +         out_file=amigados.c
  1439. +         tm_file=amigados.h
  1440. +         tmake_file=t-amigados
  1441. +         xmake_file=x-amigados
  1442. +         ;;
  1443.       sparc-*-solaris2*)
  1444.           xm_file=xm-spcv4.h
  1445. diff -2rcN gcc-2.2.2/expr.c my-gcc-2.2.2/expr.c
  1446. *** gcc-2.2.2/expr.c    Wed Jun  3 19:42:57 1992
  1447. --- my-gcc-2.2.2/expr.c    Fri Jul 17 22:38:46 1992
  1448. ***************
  1449. *** 1697,1700 ****
  1450. --- 1697,1706 ----
  1451.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  1452.   
  1453. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  1454. + #ifdef ENCODE_SECTION_INFO
  1455. +   /* mark it as a function (to be in the text section that is) */
  1456. +   SYMBOL_REF_FLAG (fun) = 1;
  1457. + #endif
  1458. + 
  1459.     INIT_CUMULATIVE_ARGS (args_so_far, (tree)0, fun);
  1460.   
  1461. diff -2rcN gcc-2.2.2/gcc.c my-gcc-2.2.2/gcc.c
  1462. *** gcc-2.2.2/gcc.c    Wed Jun 10 21:23:54 1992
  1463. --- my-gcc-2.2.2/gcc.c    Fri Jul 17 22:38:52 1992
  1464. ***************
  1465. *** 87,91 ****
  1466. --- 87,95 ----
  1467.   
  1468.   extern int errno, sys_nerr;
  1469. + #ifndef HAVE_STRERROR
  1470. + /* provide a cheap strerror() emulator for those that don't have it */
  1471.   extern char *sys_errlist[];
  1472. + #define strerror(err) sys_errlist[err]
  1473. + #endif
  1474.   
  1475.   extern int execv (), execvp ();
  1476. ***************
  1477. *** 1058,1061 ****
  1478. --- 1062,1068 ----
  1479.         if (base == (char *)0)
  1480.       {
  1481. + #ifdef amigados
  1482. +       base = "ram:";
  1483. + #else
  1484.         if (access ("/usr/tmp", R_OK | W_OK) == 0)
  1485.           base = "/usr/tmp/";
  1486. ***************
  1487. *** 1062,1065 ****
  1488. --- 1069,1073 ----
  1489.         else
  1490.           base = "/tmp/";
  1491. + #endif
  1492.       }
  1493.       }
  1494. ***************
  1495. *** 1068,1072 ****
  1496.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1497.     strcpy (temp_filename, base);
  1498. !   if (len > 0 && temp_filename[len-1] != '/')
  1499.       temp_filename[len++] = '/';
  1500.     strcpy (temp_filename + len, "ccXXXXXX");
  1501. --- 1076,1084 ----
  1502.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1503.     strcpy (temp_filename, base);
  1504. !   if (len > 0 && temp_filename[len-1] != '/'
  1505. ! #ifdef amigados
  1506. !                         && temp_filename[len-1] != ':'
  1507. ! #endif
  1508. !                                     )
  1509.       temp_filename[len++] = '/';
  1510.     strcpy (temp_filename + len, "ccXXXXXX");
  1511. ***************
  1512. *** 1140,1143 ****
  1513. --- 1152,1156 ----
  1514.     int first_time = TRUE;
  1515.     struct prefix_list *pprefix;
  1516. +   char path_sep[] = { PATH_SEPARATOR, 0 };
  1517.   
  1518.     obstack_grow (&collect_obstack, env_var, strlen (env_var));
  1519. ***************
  1520. *** 1150,1154 ****
  1521.       {
  1522.         if (!first_time)
  1523. !         obstack_grow (&collect_obstack, ":", 1);
  1524.           
  1525.         first_time = FALSE;
  1526. --- 1163,1167 ----
  1527.       {
  1528.         if (!first_time)
  1529. !         obstack_grow (&collect_obstack, path_sep, 1);
  1530.           
  1531.         first_time = FALSE;
  1532. ***************
  1533. *** 1160,1164 ****
  1534.       {
  1535.         if (!first_time)
  1536. !         obstack_grow (&collect_obstack, ":", 1);
  1537.   
  1538.         first_time = FALSE;
  1539. --- 1173,1177 ----
  1540.       {
  1541.         if (!first_time)
  1542. !         obstack_grow (&collect_obstack, path_sep, 1);
  1543.   
  1544.         first_time = FALSE;
  1545. ***************
  1546. *** 1193,1197 ****
  1547.     /* Determine the filename to execute (special case for absolute paths).  */
  1548.   
  1549. !   if (*name == '/')
  1550.       {
  1551.         if (access (name, mode))
  1552. --- 1206,1214 ----
  1553.     /* Determine the filename to execute (special case for absolute paths).  */
  1554.   
  1555. !   if (*name == '/'
  1556. ! #ifdef amigados
  1557. !           || index (name, ':')
  1558. ! #endif
  1559. !                     )
  1560.       {
  1561.         if (access (name, mode))
  1562. ***************
  1563. *** 1369,1372 ****
  1564. --- 1386,1390 ----
  1565.      (i.e. its output should be piped to the next one.)  */
  1566.   
  1567. + #ifndef PEXECUTE
  1568.   #ifndef OS2
  1569.   #ifdef __MSDOS__
  1570. ***************
  1571. *** 1500,1505 ****
  1572.         return pid;
  1573.       }
  1574. - }
  1575. - 
  1576.   #endif /* not __MSDOS__ */
  1577.   #else /* not OS2 */
  1578. --- 1518,1521 ----
  1579. ***************
  1580. *** 1515,1518 ****
  1581. --- 1531,1536 ----
  1582.   }
  1583.   #endif /* not OS2 */
  1584. + }
  1585. + #endif /* !defined(PEXECUTE) */
  1586.   
  1587.   /* Execute the command specified by the arguments on the current line of spec.
  1588. ***************
  1589. *** 1609,1615 ****
  1590. --- 1627,1639 ----
  1591.         char *string = commands[i].argv[0];
  1592.   
  1593. + #ifdef PEXECUTE
  1594. +       commands[i].pid = PEXECUTE (string != commands[i].prog,
  1595. +                   string, commands[i].argv,
  1596. +                   i + 1 < n_commands);
  1597. + #else
  1598.         commands[i].pid = pexecute (string != commands[i].prog,
  1599.                     string, commands[i].argv,
  1600.                     i + 1 < n_commands);
  1601. + #endif
  1602.   
  1603.         if (string != commands[i].prog)
  1604. ***************
  1605. *** 1632,1635 ****
  1606. --- 1656,1662 ----
  1607.       char *prog;
  1608.   
  1609. + #ifdef PEXECUTE_RESULT
  1610. +     pid = PEXECUTE_RESULT (status, commands[i]);
  1611. + #else /* PEXECUTE_RESULT */
  1612.   #ifdef __MSDOS__
  1613.           status = pid = commands[i].pid;
  1614. ***************
  1615. *** 1637,1640 ****
  1616. --- 1664,1668 ----
  1617.       pid = wait (&status);
  1618.   #endif
  1619. + #endif /* PEXECUTE_RESULT */
  1620.       if (pid < 0)
  1621.         abort ();
  1622. ***************
  1623. *** 1722,1726 ****
  1624.   
  1625.     /* COMPILER_PATH and LIBRARY_PATH have values
  1626. !      that are lists of directory names with colons.  */
  1627.   
  1628.     temp = getenv ("COMPILER_PATH");
  1629. --- 1750,1754 ----
  1630.   
  1631.     /* COMPILER_PATH and LIBRARY_PATH have values
  1632. !      that are lists of directory names with PATH_SEPARATOR.  */
  1633.   
  1634.     temp = getenv ("COMPILER_PATH");
  1635. ***************
  1636. *** 1733,1739 ****
  1637.         while (1)
  1638.       {
  1639. !       if (*endp == PATH_SEPARATOR || *endp == 0)
  1640.           {
  1641.             strncpy (nstore, startp, endp-startp);
  1642.             if (endp == startp)
  1643.           {
  1644. --- 1761,1768 ----
  1645.         while (1)
  1646.       {
  1647. !       if ((*endp == PATH_SEPARATOR) || (*endp == 0))
  1648.           {
  1649.             strncpy (nstore, startp, endp-startp);
  1650. + #ifndef amigados
  1651.             if (endp == startp)
  1652.           {
  1653. ***************
  1654. *** 1747,1750 ****
  1655. --- 1776,1788 ----
  1656.             else
  1657.           nstore[endp-startp] = 0;
  1658. + #else
  1659. +           if (endp[-1] != '/' && endp[-1] != ':')
  1660. +         {
  1661. +           nstore[endp-startp] = '/';
  1662. +           nstore[endp-startp+1] = 0;
  1663. +         }
  1664. +           else
  1665. +         nstore[endp-startp] = 0;
  1666. + #endif
  1667.             add_prefix (&exec_prefix, nstore, 0, 0, 0);
  1668.             if (*endp == 0)
  1669. ***************
  1670. *** 1766,1772 ****
  1671.         while (1)
  1672.       {
  1673. !       if (*endp == PATH_SEPARATOR || *endp == 0)
  1674.           {
  1675.             strncpy (nstore, startp, endp-startp);
  1676.             if (endp == startp)
  1677.           {
  1678. --- 1804,1811 ----
  1679.         while (1)
  1680.       {
  1681. !       if ((*endp == PATH_SEPARATOR) || (*endp == 0))
  1682.           {
  1683.             strncpy (nstore, startp, endp-startp);
  1684. + #ifndef amigados
  1685.             if (endp == startp)
  1686.           {
  1687. ***************
  1688. *** 1780,1783 ****
  1689. --- 1819,1831 ----
  1690.             else
  1691.           nstore[endp-startp] = 0;
  1692. + #else
  1693. +           if (endp[-1] != '/' && endp[-1] != ':')
  1694. +         {
  1695. +           nstore[endp-startp] = '/';
  1696. +           nstore[endp-startp+1] = 0;
  1697. +         }
  1698. +           else
  1699. +         nstore[endp-startp] = 0;
  1700. + #endif
  1701.             add_prefix (&startfile_prefix, nstore, 0, 0, 0);
  1702.             /* Make separate list of dirs that came from LIBRARY_PATH.  */
  1703. ***************
  1704. *** 1802,1808 ****
  1705.         while (1)
  1706.       {
  1707. !       if (*endp == PATH_SEPARATOR || *endp == 0)
  1708.           {
  1709.             strncpy (nstore, startp, endp-startp);
  1710.             if (endp == startp)
  1711.           {
  1712. --- 1850,1857 ----
  1713.         while (1)
  1714.       {
  1715. !       if ((*endp == PATH_SEPARATOR) || (*endp == 0))
  1716.           {
  1717.             strncpy (nstore, startp, endp-startp);
  1718. + #ifndef amigados
  1719.             if (endp == startp)
  1720.           {
  1721. ***************
  1722. *** 1816,1819 ****
  1723. --- 1865,1877 ----
  1724.             else
  1725.           nstore[endp-startp] = 0;
  1726. + #else
  1727. +           if (endp[-1] != '/' && endp[-1] != ':')
  1728. +         {
  1729. +           nstore[endp-startp] = '/';
  1730. +           nstore[endp-startp+1] = 0;
  1731. +         }
  1732. +           else
  1733. +         nstore[endp-startp] = 0;
  1734. + #endif
  1735.             add_prefix (&startfile_prefix, nstore, 0, 0, 0);
  1736.             /* Make separate list of dirs that came from LIBRARY_PATH.  */
  1737. ***************
  1738. *** 3159,3162 ****
  1739. --- 3217,3223 ----
  1740.         register char *p;
  1741.   
  1742. + #ifdef FILE_NAME_NONDIRECTORY
  1743. +       input_basename = FILE_NAME_NONDIRECTORY (input_filename);
  1744. + #else
  1745.         input_basename = input_filename;
  1746.         for (p = input_filename; *p; p++)
  1747. ***************
  1748. *** 3163,3166 ****
  1749. --- 3224,3228 ----
  1750.           if (*p == '/')
  1751.             input_basename = p + 1;
  1752. + #endif
  1753.   
  1754.         /* Find a suffix starting with the last period,
  1755. ***************
  1756. *** 3384,3388 ****
  1757.   
  1758.     if (errno < sys_nerr)
  1759. !     s = concat ("%s: ", sys_errlist[errno], "");
  1760.     else
  1761.       s = "cannot open %s";
  1762. --- 3446,3450 ----
  1763.   
  1764.     if (errno < sys_nerr)
  1765. !     s = concat ("%s: ", strerror (errno), "");
  1766.     else
  1767.       s = "cannot open %s";
  1768. ***************
  1769. *** 3397,3401 ****
  1770.   
  1771.     if (errno < sys_nerr)
  1772. !     s = concat ("%s: ", sys_errlist[errno], "");
  1773.     else
  1774.       s = "cannot open %s";
  1775. --- 3459,3463 ----
  1776.   
  1777.     if (errno < sys_nerr)
  1778. !     s = concat ("%s: ", strerror (errno), "");
  1779.     else
  1780.       s = "cannot open %s";
  1781. ***************
  1782. *** 3411,3415 ****
  1783.     if (errno < sys_nerr)
  1784.       s = concat ("installation problem, cannot exec %s: ",
  1785. !         sys_errlist[errno], "");
  1786.     else
  1787.       s = "installation problem, cannot exec %s";
  1788. --- 3473,3477 ----
  1789.     if (errno < sys_nerr)
  1790.       s = concat ("installation problem, cannot exec %s: ",
  1791. !         strerror (errno), "");
  1792.     else
  1793.       s = "installation problem, cannot exec %s";
  1794. diff -2rcN gcc-2.2.2/genconfig.c my-gcc-2.2.2/genconfig.c
  1795. *** gcc-2.2.2/genconfig.c    Sat May 23 18:15:06 1992
  1796. --- my-gcc-2.2.2/genconfig.c    Fri Jul 17 22:38:53 1992
  1797. ***************
  1798. *** 278,283 ****
  1799. --- 278,291 ----
  1800.   from the machine description file `md'.  */\n\n");
  1801.   
  1802. + #ifdef amigados
  1803. +   /* this constant probably better be 14 in general, or a cross compiling
  1804. +      host might choke on some amigados header files... */
  1805. + 
  1806. +   /* Allow at least 14 operands for the sake of asm constructs.  */
  1807. +   max_recog_operands = 14;
  1808. + #else
  1809.     /* Allow at least 10 operands for the sake of asm constructs.  */
  1810.     max_recog_operands = 9;  /* We will add 1 later.  */
  1811. + #endif
  1812.     max_dup_operands = 1;
  1813.   
  1814. diff -2rcN gcc-2.2.2/gstddef.h my-gcc-2.2.2/gstddef.h
  1815. *** gcc-2.2.2/gstddef.h    Thu Jun 11 19:08:00 1992
  1816. --- my-gcc-2.2.2/gstddef.h    Sat Jul 18 01:18:17 1992
  1817. ***************
  1818. *** 2,5 ****
  1819. --- 2,19 ----
  1820.   #ifndef _STDDEF_H_
  1821.   
  1822. + #ifdef amigados
  1823. + /* GNU libc has special support in this file, 4.3bsd-net2 libc deserves that
  1824. +    just as well. The system headers are ANSI compliant, the used compiler IS
  1825. +    gcc, so it's really ok to use the system header, no reason to hassle
  1826. +    with a jungle of ifdefs. Besides, amigados is only defined if compiling
  1827. +    with host=amigados, it doesn't apply if compiling with target=amigados
  1828. +    on a different host with possibly different system headers. Same thing
  1829. +    would apply to gstdarg.h and gvarargs.h, but those headers are more
  1830. +    easily fixable than this one and I'm sick of writing the same comment
  1831. +    there as well. MW */
  1832. + #include <stddef.h>
  1833. + 
  1834. + #else /* not amigados */
  1835. + 
  1836.   /* Any one of these symbols __need_* means that GNU libc
  1837.      wants us just to define one data type.  So don't define
  1838. ***************
  1839. *** 146,149 ****
  1840. --- 160,165 ----
  1841.   
  1842.   #endif /* _STDDEF_H was defined this time */
  1843. + 
  1844. + #endif /* not amigados */
  1845.   #endif /* _STDDEF_H_ was not defined before */
  1846.   #endif /* _STDDEF_H was not defined before */
  1847. diff -2rcN gcc-2.2.2/gvarargs.h my-gcc-2.2.2/gvarargs.h
  1848. *** gcc-2.2.2/gvarargs.h    Tue May  5 17:22:07 1992
  1849. --- my-gcc-2.2.2/gvarargs.h    Fri Jul 17 23:15:00 1992
  1850. ***************
  1851. *** 68,72 ****
  1852.   /* The macro _VA_LIST_ is the same thing used by this file in Ultrix.  */
  1853.   /* But in 4.3bsd-net2, _VA_LIST_ has another meaning.  So ignore it.  */
  1854. ! #if !defined (_VA_LIST_) || defined (_ANSI_H)
  1855.   /* The macro _VA_LIST is used in SCO Unix 3.2.  */
  1856.   #ifndef _VA_LIST
  1857. --- 68,72 ----
  1858.   /* The macro _VA_LIST_ is the same thing used by this file in Ultrix.  */
  1859.   /* But in 4.3bsd-net2, _VA_LIST_ has another meaning.  So ignore it.  */
  1860. ! #if !defined (_VA_LIST_) || defined (_ANSI_H) || defined (_ANSI_H_)
  1861.   /* The macro _VA_LIST is used in SCO Unix 3.2.  */
  1862.   #ifndef _VA_LIST
  1863. ***************
  1864. *** 79,83 ****
  1865.   typedef char * __va___list;
  1866.   #endif /* _VA_LIST */
  1867. ! #endif /* !defined (_VA_LIST_) || defined (_ANSI_H) */
  1868.   
  1869.   /*  In 4.3bsd-net2, it is said we must #undef this.
  1870. --- 79,83 ----
  1871.   typedef char * __va___list;
  1872.   #endif /* _VA_LIST */
  1873. ! #endif /* !defined (_VA_LIST_) || defined (_ANSI_H) || defined (_ANSI_H_) */
  1874.   
  1875.   /*  In 4.3bsd-net2, it is said we must #undef this.
  1876. ***************
  1877. *** 84,88 ****
  1878.       I hope this successfully identifies that system.
  1879.       I don't know why this works--rms.  */
  1880. ! #ifdef _ANSI_H
  1881.   #undef _VA_LIST_
  1882.   #endif
  1883. --- 84,88 ----
  1884.       I hope this successfully identifies that system.
  1885.       I don't know why this works--rms.  */
  1886. ! #if defined(_ANSI_H) || defined (_ANSI_H_)
  1887.   #undef _VA_LIST_
  1888.   #endif
  1889. diff -2rcN gcc-2.2.2/machmode.h my-gcc-2.2.2/machmode.h
  1890. *** gcc-2.2.2/machmode.h    Tue Mar 10 22:11:09 1992
  1891. --- my-gcc-2.2.2/machmode.h    Fri Jul 17 22:38:54 1992
  1892. ***************
  1893. *** 56,60 ****
  1894.   /* Get the name of mode MODE as a string.  */
  1895.   
  1896. ! extern char *mode_name[];
  1897.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  1898.   
  1899. --- 56,60 ----
  1900.   /* Get the name of mode MODE as a string.  */
  1901.   
  1902. ! extern char * const mode_name[];
  1903.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  1904.   
  1905. ***************
  1906. *** 65,69 ****
  1907.      (integer, floating, complex, etc.)  */
  1908.   
  1909. ! extern enum mode_class mode_class[];
  1910.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  1911.   
  1912. --- 65,69 ----
  1913.      (integer, floating, complex, etc.)  */
  1914.   
  1915. ! extern const enum mode_class mode_class[];
  1916.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  1917.   
  1918. ***************
  1919. *** 70,74 ****
  1920.   /* Get the size in bytes of an object of mode MODE.  */
  1921.   
  1922. ! extern int mode_size[];
  1923.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  1924.   
  1925. --- 70,74 ----
  1926.   /* Get the size in bytes of an object of mode MODE.  */
  1927.   
  1928. ! extern const int mode_size[];
  1929.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  1930.   
  1931. ***************
  1932. *** 75,79 ****
  1933.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  1934.   
  1935. ! extern int mode_unit_size[];
  1936.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  1937.   
  1938. --- 75,79 ----
  1939.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  1940.   
  1941. ! extern const int mode_unit_size[];
  1942.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  1943.   
  1944. ***************
  1945. *** 96,100 ****
  1946.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  1947.   
  1948. ! extern enum machine_mode mode_wider_mode[];
  1949.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  1950.   
  1951. --- 96,100 ----
  1952.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  1953.   
  1954. ! extern const enum machine_mode mode_wider_mode[];
  1955.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  1956.   
  1957. diff -2rcN gcc-2.2.2/print-tree.c my-gcc-2.2.2/print-tree.c
  1958. *** gcc-2.2.2/print-tree.c    Mon Apr 27 16:54:16 1992
  1959. --- my-gcc-2.2.2/print-tree.c    Fri Jul 17 22:38:56 1992
  1960. ***************
  1961. *** 25,29 ****
  1962.   extern char **tree_code_name;
  1963.   
  1964. ! extern char *mode_name[];
  1965.   
  1966.   void print_node ();
  1967. --- 25,29 ----
  1968.   extern char **tree_code_name;
  1969.   
  1970. ! extern char *const mode_name[];
  1971.   
  1972.   void print_node ();
  1973. diff -2rcN gcc-2.2.2/protoize.c my-gcc-2.2.2/protoize.c
  1974. *** gcc-2.2.2/protoize.c    Sun Jun 14 21:11:55 1992
  1975. --- my-gcc-2.2.2/protoize.c    Fri Jul 17 22:39:01 1992
  1976. ***************
  1977. *** 787,792 ****
  1978. --- 787,797 ----
  1979.     struct default_include *p;
  1980.   
  1981. + #ifdef FILE_NAME_ABSOLUTE_P
  1982. +   if (! FILE_NAME_ABSOLUTE_P (path))
  1983. +     abort ();
  1984. + #else
  1985.     if (path[0] != '/')
  1986.       abort ();        /* Must be an absolutized filename.  */
  1987. + #endif
  1988.   
  1989.     for (p = include_defaults; p->fname; p++)
  1990. ***************
  1991. *** 1215,1219 ****
  1992. --- 1220,1228 ----
  1993.       const char *src_p;
  1994.   
  1995. + #ifdef FILE_NAME_ABSOLUTE_P
  1996. +     if (! FILE_NAME_ABSOLUTE_P (rel_filename))
  1997. + #else
  1998.       if (rel_filename[0] != '/')
  1999. + #endif
  2000.         {
  2001.           src_p = cwd2;
  2002. ***************
  2003. *** 1478,1481 ****
  2004. --- 1487,1509 ----
  2005.   }
  2006.   
  2007. + /* Use this macro to advance a char * over the filename part in a line
  2008. +    read from an aux-info file. */
  2009. + 
  2010. + #ifndef amigados
  2011. + /* Version for file systems where the colon has no special meaning */
  2012. + #define ADVANCE_PAST_FILENAME(CP) \
  2013. +   while (* (CP) != ':') (CP)++
  2014. + #else
  2015. + /* Have to heuristically decide whether the colon is part of the filename
  2016. +    or whether it serves to delimit the filename from the line number. If
  2017. +    it's the latter case, then the character following the colon *must*
  2018. +    be a digit. Note that this heuristic fails if the filename starts
  2019. +    with a digit. */
  2020. + #define ADVANCE_PAST_FILENAME(CP) \
  2021. +     while ((CP)[0] != ':' || !isdigit ((CP)[1])) \
  2022. +       (CP)++;
  2023. + #endif
  2024. + 
  2025. + 
  2026.   /* Given a line from  an aux info file, and a time at which the aux info
  2027.      file it came from was created, check to see if the item described in
  2028. ***************
  2029. *** 1499,1504 ****
  2030.       const char *filename_start = p = l + 3;
  2031.   
  2032. !     while (*p != ':')
  2033. !       p++;
  2034.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2035.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2036. --- 1527,1531 ----
  2037.       const char *filename_start = p = l + 3;
  2038.   
  2039. !     ADVANCE_PAST_FILENAME (p);
  2040.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2041.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2042. ***************
  2043. *** 1557,1562 ****
  2044.       char *filename;
  2045.   
  2046. !     while (*p != ':')
  2047. !       p++;
  2048.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2049.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2050. --- 1584,1588 ----
  2051.       char *filename;
  2052.   
  2053. !     ADVANCE_PAST_FILENAME (p);
  2054.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2055.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2056. ***************
  2057. *** 2227,2231 ****
  2058.       char *p = aux_info_base;
  2059.   
  2060. !     while (*p != ':')
  2061.         p++;
  2062.       p++;
  2063. --- 2253,2259 ----
  2064.       char *p = aux_info_base;
  2065.   
  2066. !     /* have to make sure at least one space is following the colon to make
  2067. !        sure the colon is not part of the filename */
  2068. !     while (*p != ':' && p[1] != ' ')
  2069.         p++;
  2070.       p++;
  2071. ***************
  2072. *** 2241,2245 ****
  2073. --- 2269,2277 ----
  2074.       aux_info_second_line = p;
  2075.       aux_info_relocated_name = 0;
  2076. + #ifdef FILE_NAME_ABSOLUTE_P
  2077. +     if (! FILE_NAME_ABSOLUTE_P (invocation_filename))
  2078. + #else
  2079.       if (invocation_filename[0] != '/')
  2080. + #endif
  2081.         {
  2082.       /* INVOCATION_FILENAME is relative;
  2083. ***************
  2084. *** 2329,2333 ****
  2085.   
  2086.   /* Check an individual filename for a .c suffix.  If the filename has this
  2087. !    suffix, rename the file such that its suffix is changed to .C.  This
  2088.      function implements the -C option.  */
  2089.   
  2090. --- 2361,2365 ----
  2091.   
  2092.   /* Check an individual filename for a .c suffix.  If the filename has this
  2093. !    suffix, rename the file such that its suffix is changed to .cc.  This
  2094.      function implements the -C option.  */
  2095.   
  2096. ***************
  2097. *** 2338,2342 ****
  2098.     const char *filename = hp->symbol;
  2099.     int last_char_index = strlen (filename) - 1;
  2100. !   char *const new_filename = (char *) alloca (strlen (filename) + 1);
  2101.   
  2102.     /* Note that we don't care here if the given file was converted or not.  It
  2103. --- 2370,2374 ----
  2104.     const char *filename = hp->symbol;
  2105.     int last_char_index = strlen (filename) - 1;
  2106. !   char *const new_filename = (char *) alloca (strlen (filename) + 2);
  2107.   
  2108.     /* Note that we don't care here if the given file was converted or not.  It
  2109. ***************
  2110. *** 2350,2355 ****
  2111.   
  2112.     strcpy (new_filename, filename);
  2113. !   new_filename[last_char_index] = 'C';
  2114.   
  2115.     if (my_link (filename, new_filename) == -1)
  2116.       {
  2117. --- 2382,2404 ----
  2118.   
  2119.     strcpy (new_filename, filename);
  2120. !   strcat (new_filename + last_char_index, "cc");
  2121. ! 
  2122. !   /* use rename(2) if available !! Update config files to include HAVE_rename
  2123. !      if the used OS provides it. Advantages are: it's atomic, it's one
  2124. !      system call compared to two. */
  2125. ! 
  2126. ! #ifdef HAVE_rename
  2127. !   /* if the mentioned systems (POSIX 1003.1-1988) have rename(2), this has
  2128. !      to be changed to `my_rename' as well. */
  2129.   
  2130. +   if (rename (filename, new_filename) == -1)
  2131. +     {
  2132. +       fprintf (stderr, "%s: warning: can't rename file `%s' to `%s': %s\n",
  2133. +            pname, shortpath (NULL, filename),
  2134. +            shortpath (NULL, new_filename), sys_errlist[errno]);
  2135. +       errors++;
  2136. +       return;
  2137. +     }
  2138. + #else
  2139.     if (my_link (filename, new_filename) == -1)
  2140.       {
  2141. ***************
  2142. *** 2368,2371 ****
  2143. --- 2417,2421 ----
  2144.         return;
  2145.       }
  2146. + #endif
  2147.   }
  2148.   
  2149. diff -2rcN gcc-2.2.2/rtl.c my-gcc-2.2.2/rtl.c
  2150. *** gcc-2.2.2/rtl.c    Wed May 13 22:27:52 1992
  2151. --- my-gcc-2.2.2/rtl.c    Fri Jul 17 22:39:03 1992
  2152. ***************
  2153. *** 50,54 ****
  2154.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  2155.   
  2156. ! char *rtx_name[] = {
  2157.   #include "rtl.def"        /* rtl expressions are documented here */
  2158.   };
  2159. --- 50,54 ----
  2160.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  2161.   
  2162. ! char * const rtx_name[] = {
  2163.   #include "rtl.def"        /* rtl expressions are documented here */
  2164.   };
  2165. ***************
  2166. *** 61,65 ****
  2167.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  2168.   
  2169. ! char *mode_name[(int) MAX_MACHINE_MODE] = {
  2170.   #include "machmode.def"
  2171.   
  2172. --- 61,65 ----
  2173.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  2174.   
  2175. ! char * const mode_name[(int) MAX_MACHINE_MODE] = {
  2176.   #include "machmode.def"
  2177.   
  2178. ***************
  2179. *** 77,81 ****
  2180.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  2181.   
  2182. ! enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  2183.   #include "machmode.def"
  2184.   };
  2185. --- 77,81 ----
  2186.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  2187.   
  2188. ! const enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  2189.   #include "machmode.def"
  2190.   };
  2191. ***************
  2192. *** 88,92 ****
  2193.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  2194.   
  2195. ! int mode_size[(int) MAX_MACHINE_MODE] = {
  2196.   #include "machmode.def"
  2197.   };
  2198. --- 88,92 ----
  2199.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  2200.   
  2201. ! const int mode_size[(int) MAX_MACHINE_MODE] = {
  2202.   #include "machmode.def"
  2203.   };
  2204. ***************
  2205. *** 99,103 ****
  2206.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  2207.   
  2208. ! int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  2209.   #include "machmode.def"        /* machine modes are documented here */
  2210.   };
  2211. --- 99,103 ----
  2212.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  2213.   
  2214. ! const int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  2215.   #include "machmode.def"        /* machine modes are documented here */
  2216.   };
  2217. ***************
  2218. *** 112,116 ****
  2219.     (enum machine_mode) WIDER,
  2220.   
  2221. ! enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  2222.   #include "machmode.def"        /* machine modes are documented here */
  2223.   };
  2224. --- 112,116 ----
  2225.     (enum machine_mode) WIDER,
  2226.   
  2227. ! const enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  2228.   #include "machmode.def"        /* machine modes are documented here */
  2229.   };
  2230. ***************
  2231. *** 131,135 ****
  2232.      each character describes one operand.  */
  2233.   
  2234. ! char *rtx_format[] = {
  2235.     /* "*" undefined.
  2236.            can cause a warning message
  2237. --- 131,135 ----
  2238.      each character describes one operand.  */
  2239.   
  2240. ! char *const rtx_format[] = {
  2241.     /* "*" undefined.
  2242.            can cause a warning message
  2243. ***************
  2244. *** 160,164 ****
  2245.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  2246.   
  2247. ! char rtx_class[] = {
  2248.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  2249.   #include "rtl.def"        /* rtl expressions are defined here */
  2250. --- 160,164 ----
  2251.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  2252.   
  2253. ! const char rtx_class[] = {
  2254.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  2255.   #include "rtl.def"        /* rtl expressions are defined here */
  2256. ***************
  2257. *** 168,172 ****
  2258.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  2259.   
  2260. ! char *note_insn_name[] = { "NOTE_INSN_FUNCTION_BEG", "NOTE_INSN_DELETED",
  2261.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  2262.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  2263. --- 168,173 ----
  2264.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  2265.   
  2266. ! char * const note_insn_name[] = 
  2267. !              { "NOTE_INSN_FUNCTION_BEG", "NOTE_INSN_DELETED",
  2268.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  2269.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  2270. ***************
  2271. *** 174,178 ****
  2272.                  "NOTE_INSN_LOOP_CONT", "NOTE_INSN_LOOP_VTOP" };
  2273.   
  2274. ! char *reg_note_name[] = { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  2275.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  2276.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  2277. --- 175,180 ----
  2278.                  "NOTE_INSN_LOOP_CONT", "NOTE_INSN_LOOP_VTOP" };
  2279.   
  2280. ! char * const reg_note_name[] = 
  2281. !             { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  2282.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  2283.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  2284. diff -2rcN gcc-2.2.2/rtl.h my-gcc-2.2.2/rtl.h
  2285. *** gcc-2.2.2/rtl.h    Thu May  7 06:37:55 1992
  2286. --- my-gcc-2.2.2/rtl.h    Fri Jul 17 22:39:05 1992
  2287. ***************
  2288. *** 43,53 ****
  2289.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  2290.   
  2291. ! extern char *rtx_name[];
  2292.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  2293.   
  2294. ! extern char *rtx_format[];
  2295.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  2296.   
  2297. ! extern char rtx_class[];
  2298.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  2299.   
  2300. --- 43,53 ----
  2301.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  2302.   
  2303. ! extern char * const rtx_name[];
  2304.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  2305.   
  2306. ! extern char * const rtx_format[];
  2307.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  2308.   
  2309. ! extern const char rtx_class[];
  2310.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  2311.   
  2312. ***************
  2313. *** 292,296 ****
  2314.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  2315.   
  2316. ! extern char *reg_note_name[];
  2317.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  2318.   
  2319. --- 292,296 ----
  2320.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  2321.   
  2322. ! extern char *const reg_note_name[];
  2323.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  2324.   
  2325. ***************
  2326. *** 347,351 ****
  2327.   /* Names for NOTE insn's other than line numbers.  */
  2328.   
  2329. ! extern char *note_insn_name[];
  2330.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  2331.   
  2332. --- 347,351 ----
  2333.   /* Names for NOTE insn's other than line numbers.  */
  2334.   
  2335. ! extern char *const note_insn_name[];
  2336.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  2337.   
  2338. diff -2rcN gcc-2.2.2/toplev.c my-gcc-2.2.2/toplev.c
  2339. *** gcc-2.2.2/toplev.c    Thu May 28 05:36:37 1992
  2340. --- my-gcc-2.2.2/toplev.c    Fri Jul 17 22:39:10 1992
  2341. ***************
  2342. *** 471,474 ****
  2343. --- 471,475 ----
  2344.     {"writable-strings", &flag_writable_strings, 1},
  2345.     {"peephole", &flag_no_peephole, 0},
  2346. +   {"large-baserel", &flag_pic, 4},
  2347.     {"force-mem", &flag_force_mem, 1},
  2348.     {"force-addr", &flag_force_addr, 1},
  2349. ***************
  2350. *** 488,491 ****
  2351. --- 489,493 ----
  2352.     {"pic", &flag_pic, 1},
  2353.     {"PIC", &flag_pic, 2},
  2354. +   {"baserel", &flag_pic, 3},
  2355.     {"fast-math", &flag_fast_math, 1},
  2356.     {"common", &flag_no_common, 0},
  2357. ***************
  2358. *** 1290,1293 ****
  2359. --- 1292,1298 ----
  2360.        char *input_name;
  2361.   {
  2362. + #ifdef FILE_NAME_NONDIRECTORY
  2363. +   char *na = FILE_NAME_NONDIRECTORY (input_name);
  2364. + #else
  2365.     int len = strlen (input_name);
  2366.     char *na = input_name + len;
  2367. ***************
  2368. *** 1300,1303 ****
  2369. --- 1305,1309 ----
  2370.         na--;
  2371.       }
  2372. + #endif
  2373.   
  2374.   #ifdef ASM_OUTPUT_MAIN_SOURCE_FILENAME
  2375. ***************
  2376. *** 3057,3060 ****
  2377. --- 3063,3067 ----
  2378.   #ifndef OS2
  2379.   #ifndef VMS
  2380. + #ifndef amigados
  2381.     if (flag_print_mem)
  2382.       {
  2383. ***************
  2384. *** 3071,3074 ****
  2385. --- 3078,3082 ----
  2386.   #endif /* not USG */
  2387.       }
  2388. + #endif /* not amigados */
  2389.   #endif /* not VMS */
  2390.   #endif /* not OS2 */
  2391. diff -2rcN gcc-2.2.2/tree.c my-gcc-2.2.2/tree.c
  2392. *** gcc-2.2.2/tree.c    Tue May 12 02:51:10 1992
  2393. --- my-gcc-2.2.2/tree.c    Fri Jul 17 22:39:13 1992
  2394. ***************
  2395. *** 218,222 ****
  2396.   static int do_identifier_warnings;
  2397.   
  2398. ! extern char *mode_name[];
  2399.   
  2400.   void gcc_obstack_init ();
  2401. --- 218,222 ----
  2402.   static int do_identifier_warnings;
  2403.   
  2404. ! extern char *const mode_name[];
  2405.   
  2406.   void gcc_obstack_init ();
  2407.