home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / useful / dist / gnu / gcc / gcc-2.4.5.diffs next >
Encoding:
Text File  |  1993-09-24  |  182.4 KB  |  6,281 lines
  1. diff -rcP gcc-2.4.5-fsf/Makefile.in gcc-2.4.5-amiga/Makefile.in
  2. *** gcc-2.4.5-fsf/Makefile.in    Sun Jun 20 23:43:50 1993
  3. --- gcc-2.4.5-amiga/Makefile.in    Tue Sep  7 15:05:53 1993
  4. ***************
  5. *** 90,96 ****
  6.   OLDAR = ar
  7.   
  8.   # Target to use when installing include directory.  Either
  9. ! # install-headers-tar or install-headers-cpio.
  10.   INSTALL_HEADERS_DIR = install-headers-tar
  11.   
  12.   # The GCC to use for compiling libgcc2.a, enquire, and cross-test.
  13. --- 90,96 ----
  14.   OLDAR = ar
  15.   
  16.   # Target to use when installing include directory.  Either
  17. ! # install-headers-tar, install-headers-cpio, or install-headers-cp.
  18.   INSTALL_HEADERS_DIR = install-headers-tar
  19.   
  20.   # The GCC to use for compiling libgcc2.a, enquire, and cross-test.
  21. ***************
  22. *** 698,705 ****
  23.       then (cd tmpcopy; $(AR) x ../$(LIBGCC1));    \
  24.       else true;                    \
  25.       fi
  26. !     (cd tmpcopy; $(AR) x ../$(LIBGCC2))
  27. !     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o)
  28.       rm -rf tmpcopy
  29.       -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  30.   # Actually build it in tmplibgcc.a, then rename at end,
  31. --- 698,708 ----
  32.       then (cd tmpcopy; $(AR) x ../$(LIBGCC1));    \
  33.       else true;                    \
  34.       fi
  35. ! # The "cd .." makes sure there's no lock left on tmpcopy (this is actually a
  36. ! # bug in the Amiga ixemul.library, but I can't get around it currently
  37. ! # because it involves an OS bug)
  38. !     (cd tmpcopy; $(AR) x ../$(LIBGCC2); cd ..; /c/wait 2)
  39. !     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o; cd ..; /c/wait 2)
  40.       rm -rf tmpcopy
  41.       -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  42.   # Actually build it in tmplibgcc.a, then rename at end,
  43. ***************
  44. *** 779,785 ****
  45.     `echo $(srcdir)/cp-parse.c | sed 's,^\./,,'`
  46.   
  47.   $(srcdir)/cp-parse.c $(srcdir)/cp-parse.h : $(srcdir)/cp-parse.y
  48. !     @echo expect 29 shift/reduce conflicts and 14 reduce/reduce conflicts
  49.       cd $(srcdir); $(BISON) $(BISONFLAGS) -d -o cp-parse.c cp-parse.y
  50.       cd $(srcdir); grep '^#define[     ]*YYEMPTY' cp-parse.c >>cp-parse.h
  51.   
  52. --- 782,788 ----
  53.     `echo $(srcdir)/cp-parse.c | sed 's,^\./,,'`
  54.   
  55.   $(srcdir)/cp-parse.c $(srcdir)/cp-parse.h : $(srcdir)/cp-parse.y
  56. !     @$(SHELL) echo expect 29 shift/reduce conflicts and 14 reduce/reduce conflicts
  57.       cd $(srcdir); $(BISON) $(BISONFLAGS) -d -o cp-parse.c cp-parse.y
  58.       cd $(srcdir); grep '^#define[     ]*YYEMPTY' cp-parse.c >>cp-parse.h
  59.   
  60. ***************
  61. *** 1220,1226 ****
  62.   # Making the preprocessor
  63.   cpp: cccp
  64.       -rm -f cpp
  65. !     ln cccp cpp
  66.   cccp: cccp.o cexp.o version.o $(LIBDEPS)
  67.       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cccp cccp.o cexp.o version.o $(LIBS)
  68.   cexp.o: $(srcdir)/cexp.c $(CONFIG_H)
  69. --- 1223,1229 ----
  70.   # Making the preprocessor
  71.   cpp: cccp
  72.       -rm -f cpp
  73. !     cp cccp cpp
  74.   cccp: cccp.o cexp.o version.o $(LIBDEPS)
  75.       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cccp cccp.o cexp.o version.o $(LIBS)
  76.   cexp.o: $(srcdir)/cexp.c $(CONFIG_H)
  77. ***************
  78. *** 1230,1236 ****
  79.   cccp.o: cccp.c $(CONFIG_H) pcp.h version.c config.status
  80.   # The reason we use $(libdir)/g++-include rather than using libsubdir
  81.   # is for compatibility with the current version of libg++.
  82. !     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  83.         -DGCC_INCLUDE_DIR=\"$(libsubdir)/include\" \
  84.         -DGPLUSPLUS_INCLUDE_DIR=\"$(libdir)/g++-include\" \
  85.         -DLOCAL_INCLUDE_DIR=\"$(local_prefix)/include\" \
  86. --- 1233,1241 ----
  87.   cccp.o: cccp.c $(CONFIG_H) pcp.h version.c config.status
  88.   # The reason we use $(libdir)/g++-include rather than using libsubdir
  89.   # is for compatibility with the current version of libg++.
  90. ! # The -fno-builtin is necessary for AmigaDOS, or cccp calls uses the builtin
  91. ! # alloca() with huge memory requests.  Fix here until we can do it cleaner.
  92. !     $(CC) -fno-builtin $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  93.         -DGCC_INCLUDE_DIR=\"$(libsubdir)/include\" \
  94.         -DGPLUSPLUS_INCLUDE_DIR=\"$(libdir)/g++-include\" \
  95.         -DLOCAL_INCLUDE_DIR=\"$(local_prefix)/include\" \
  96. ***************
  97. *** 1522,1529 ****
  98.   install: $(INSTALL_TARGET) ; @true
  99.   
  100.   # Copy the compiler files into directories where they will be run.
  101. ! install-normal: install-common $(INSTALL_HEADERS) install-libgcc install-man \
  102. !     install-info
  103.   
  104.   # Do nothing while making gcc with a cross-compiler. The person who
  105.   # makes gcc for the target machine has to know how to put a complete
  106. --- 1527,1534 ----
  107.   install: $(INSTALL_TARGET) ; @true
  108.   
  109.   # Copy the compiler files into directories where they will be run.
  110. ! # (== changed by fnf for Amiga port; needs port of 'makeinfo' to work ==)
  111. ! install-normal: install-common $(INSTALL_HEADERS) install-libgcc install-man
  112.   
  113.   # Do nothing while making gcc with a cross-compiler. The person who
  114.   # makes gcc for the target machine has to know how to put a complete
  115. ***************
  116. *** 1667,1683 ****
  117.   install-headers: install-include-dir $(INSTALL_HEADERS_DIR) install-assert-h
  118.   # Fix symlinks to absolute paths in the installed include directory to
  119.   # point to the installed directory, not the build directory.
  120. !     -files=`cd $(libsubdir)/include; find . -type l -print 2>/dev/null`; \
  121. !     if [ $$? -eq 0 ]; then \
  122. !       dir=`cd include; pwd`; \
  123. !       for i in $$files; do \
  124. !         dest=`ls -ld $(libsubdir)/include/$$i | sed -n 's/.*-> //p'`; \
  125. !         if expr "$$dest" : "$$dir.*" > /dev/null; then \
  126. !           rm -f $(libsubdir)/include/$$i; \
  127. !           ln -s `echo $$i | sed "s|/[^/]*|/..|g" | sed 's|/..$$||'``echo "$$dest" | sed "s|$$dir||"` $(libsubdir)/include/$$i; \
  128. !         fi; \
  129. !       done; \
  130. !     fi
  131.   
  132.   # Create or recreate the gcc private include file directory.
  133.   install-include-dir: install-dir
  134. --- 1672,1689 ----
  135.   install-headers: install-include-dir $(INSTALL_HEADERS_DIR) install-assert-h
  136.   # Fix symlinks to absolute paths in the installed include directory to
  137.   # point to the installed directory, not the build directory.
  138. ! #    (=== commented out by fnf for Amiga port; hangs the install ===)
  139. ! #    -files=`cd $(libsubdir)/include; find . -type l -print 2>/dev/null`; \
  140. ! #    if [ $$? -eq 0 ]; then \
  141. ! #      dir=`cd include; pwd`; \
  142. ! #      for i in $$files; do \
  143. ! #        dest=`ls -ld $(libsubdir)/include/$$i | sed -n 's/.*-> //p'`; \
  144. ! #        if expr "$$dest" : "$$dir.*" > /dev/null; then \
  145. ! #          rm -f $(libsubdir)/include/$$i; \
  146. ! #          ln -s `echo $$i | sed "s|/[^/]*|/..|g" | sed 's|/..$$||'``echo "$$dest" | sed "s|$$dir||"` $(libsubdir)/include/$$i; \
  147. ! #        fi; \
  148. ! #      done; \
  149. ! #    fi
  150.   
  151.   # Create or recreate the gcc private include file directory.
  152.   install-include-dir: install-dir
  153. ***************
  154. *** 1692,1697 ****
  155. --- 1698,1707 ----
  156.   # Install the include directory using cpio.
  157.   install-headers-cpio: stmp-headers install-include-dir
  158.       cd include; find . -print | cpio -pdum $(libsubdir)/include
  159. + 
  160. + # Install the include directory using simple recursive copy.
  161. + install-headers-cp: stmp-headers install-include-dir
  162. +     cd include; cp -r . $(libsubdir)/include
  163.   
  164.   # Put assert.h where it won't override GNU libc's assert.h.
  165.   # It goes in a dir that is searched after GNU libc's headers;
  166. diff -rcP gcc-2.4.5-fsf/c-parse.c gcc-2.4.5-amiga/c-parse.c
  167. *** gcc-2.4.5-fsf/c-parse.c    Thu May  6 18:20:12 1993
  168. --- gcc-2.4.5-amiga/c-parse.c    Mon Sep  6 03:40:44 1993
  169. ***************
  170. *** 1,5 ****
  171.   
  172. ! /*  A Bison parser, made from c-parse.y  */
  173.   
  174.   #define YYBISON 1  /* Identify Bison output.  */
  175.   
  176. --- 1,6 ----
  177.   
  178. ! /*  A Bison parser, made from c-parse.y with Bison version GNU Bison version 1.21
  179. !   */
  180.   
  181.   #define YYBISON 1  /* Identify Bison output.  */
  182.   
  183. ***************
  184. *** 145,153 ****
  185. --- 146,156 ----
  186.   
  187.   #include <stdio.h>
  188.   
  189. + #ifndef __cplusplus
  190.   #ifndef __STDC__
  191.   #define const
  192.   #endif
  193. + #endif
  194.   
  195.   
  196.   
  197. ***************
  198. *** 192,197 ****
  199. --- 195,201 ----
  200.       70,    71,    72,    73,    74,    75,    76
  201.   };
  202.   
  203. + #if YYDEBUG != 0
  204.   static const short yyprhs[] = {     0,
  205.        0,     1,     3,     4,     7,     8,    12,    14,    16,    22,
  206.       26,    31,    36,    39,    42,    45,    48,    50,    51,    52,
  207. ***************
  208. *** 349,354 ****
  209. --- 353,360 ----
  210.        0
  211.   };
  212.   
  213. + #endif
  214. + 
  215.   #if YYDEBUG != 0
  216.   static const short yyrline[] = { 0,
  217.      218,   222,   235,   237,   237,   238,   240,   242,   243,   253,
  218. ***************
  219. *** 366,391 ****
  220.      764,   768,   770,   773,   786,   789,   793,   795,   803,   804,
  221.      805,   809,   811,   817,   818,   819,   822,   824,   827,   829,
  222.      832,   835,   841,   846,   848,   854,   859,   861,   868,   871,
  223. !    876,   878,   883,   888,   898,   909,   927,   929,   933,   935,
  224. !    937,   943,   946,   951,   955,   960,   962,   964,   966,   970,
  225. !    987,   991,  1008,  1015,  1017,  1022,  1025,  1030,  1032,  1034,
  226. !   1036,  1044,  1050,  1052,  1054,  1056,  1062,  1068,  1070,  1072,
  227. !   1074,  1076,  1079,  1084,  1088,  1091,  1093,  1095,  1097,  1100,
  228. !   1102,  1105,  1108,  1111,  1114,  1118,  1120,  1123,  1125,  1129,
  229. !   1132,  1137,  1139,  1141,  1155,  1161,  1166,  1171,  1176,  1180,
  230. !   1182,  1186,  1190,  1194,  1204,  1206,  1211,  1214,  1218,  1221,
  231. !   1225,  1228,  1231,  1234,  1238,  1241,  1245,  1249,  1251,  1253,
  232. !   1255,  1257,  1259,  1261,  1263,  1271,  1273,  1274,  1277,  1279,
  233. !   1282,  1285,  1296,  1298,  1303,  1305,  1308,  1322,  1325,  1328,
  234. !   1330,  1335,  1340,  1348,  1353,  1356,  1369,  1377,  1381,  1385,
  235. !   1389,  1395,  1399,  1404,  1406,  1417,  1420,  1421,  1426,  1431,
  236. !   1434,  1442,  1444,  1454,  1464,  1465,  1473,  1476,  1488,  1492,
  237. !   1509,  1516,  1525,  1527,  1532,  1537,  1541,  1545,  1556,  1563,
  238. !   1570,  1577,  1588,  1592,  1595,  1600,  1623,  1654,  1678,  1706,
  239. !   1721,  1732,  1735,  1739,  1742,  1747,  1749,  1752,  1754,  1758,
  240. !   1763,  1766,  1772,  1777,  1782,  1784,  1793,  1794,  1800,  1802,
  241. !   1807,  1809,  1813,  1816,  1822,  1825,  1827,  1829,  1831,  1838,
  242. !   1843,  1848,  1850,  1859,  1862,  1867,  1870
  243.   };
  244.   
  245.   static const char * const yytname[] = {   "$","error","$illegal.","IDENTIFIER",
  246. --- 372,397 ----
  247.      764,   768,   770,   773,   786,   789,   793,   795,   803,   804,
  248.      805,   809,   811,   817,   818,   819,   822,   824,   827,   829,
  249.      832,   835,   841,   846,   848,   854,   859,   861,   868,   871,
  250. !    876,   878,   883,   896,   906,   917,   935,   937,   941,   943,
  251. !    945,   951,   954,   959,   963,   968,   970,   972,   974,   978,
  252. !    995,   999,  1016,  1023,  1025,  1030,  1033,  1038,  1040,  1042,
  253. !   1044,  1052,  1058,  1060,  1062,  1064,  1070,  1076,  1078,  1080,
  254. !   1082,  1084,  1087,  1092,  1096,  1099,  1101,  1103,  1105,  1108,
  255. !   1110,  1113,  1116,  1119,  1122,  1126,  1128,  1131,  1133,  1137,
  256. !   1140,  1145,  1147,  1149,  1163,  1169,  1174,  1179,  1184,  1188,
  257. !   1190,  1194,  1198,  1202,  1212,  1214,  1219,  1222,  1226,  1229,
  258. !   1233,  1236,  1239,  1242,  1246,  1249,  1253,  1257,  1259,  1261,
  259. !   1263,  1265,  1267,  1269,  1271,  1279,  1281,  1282,  1285,  1287,
  260. !   1290,  1293,  1304,  1306,  1311,  1313,  1316,  1330,  1333,  1336,
  261. !   1338,  1343,  1348,  1356,  1361,  1364,  1377,  1385,  1389,  1393,
  262. !   1397,  1403,  1407,  1412,  1414,  1425,  1428,  1429,  1434,  1439,
  263. !   1442,  1450,  1452,  1462,  1472,  1473,  1481,  1484,  1496,  1500,
  264. !   1517,  1524,  1533,  1535,  1540,  1545,  1549,  1553,  1564,  1571,
  265. !   1578,  1585,  1596,  1600,  1603,  1608,  1631,  1662,  1686,  1714,
  266. !   1729,  1740,  1743,  1747,  1750,  1755,  1757,  1760,  1762,  1766,
  267. !   1771,  1774,  1780,  1785,  1790,  1792,  1801,  1802,  1808,  1810,
  268. !   1815,  1817,  1821,  1824,  1830,  1833,  1835,  1837,  1839,  1846,
  269. !   1851,  1856,  1858,  1867,  1870,  1875,  1878
  270.   };
  271.   
  272.   static const char * const yytname[] = {   "$","error","$illegal.","IDENTIFIER",
  273. ***************
  274. *** 1122,1128 ****
  275.   #ifdef __GNUC__
  276.   #define alloca __builtin_alloca
  277.   #else /* not GNU C.  */
  278. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  279.   #include <alloca.h>
  280.   #else /* not sparc */
  281.   #if defined (MSDOS) && !defined (__TURBOC__)
  282. --- 1128,1134 ----
  283.   #ifdef __GNUC__
  284.   #define alloca __builtin_alloca
  285.   #else /* not GNU C.  */
  286. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  287.   #include <alloca.h>
  288.   #else /* not sparc */
  289.   #if defined (MSDOS) && !defined (__TURBOC__)
  290. ***************
  291. *** 1131,1136 ****
  292. --- 1137,1152 ----
  293.   #if defined(_AIX)
  294.   #include <malloc.h>
  295.    #pragma alloca
  296. + #else /* not MSDOS, __TURBOC__, or _AIX */
  297. + #ifdef __hpux
  298. + #ifdef __cplusplus
  299. + extern "C" {
  300. + void *alloca (unsigned int);
  301. + };
  302. + #else /* not __cplusplus */
  303. + void *alloca (unsigned int);
  304. + #endif /* not __cplusplus */
  305. + #endif /* __hpux */
  306.   #endif /* not _AIX */
  307.   #endif /* not MSDOS, or __TURBOC__ */
  308.   #endif /* not sparc.  */
  309. ***************
  310. *** 1224,1229 ****
  311. --- 1240,1250 ----
  312.   #ifndef YYMAXDEPTH
  313.   #define YYMAXDEPTH 10000
  314.   #endif
  315. + 
  316. + /* Prevent warning if -Wstrict-prototypes.  */
  317. + #ifdef __GNUC__
  318. + int yyparse (void);
  319. + #endif
  320.   
  321.   #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  322.   #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  323. ***************
  324. *** 1264,1270 ****
  325.   #endif
  326.   #endif
  327.   
  328. ! #line 169 "bison.simple"
  329.   int
  330.   yyparse()
  331.   {
  332. --- 1285,1291 ----
  333.   #endif
  334.   #endif
  335.   
  336. ! #line 184 "bison.simple"
  337.   int
  338.   yyparse()
  339.   {
  340. ***************
  341. *** 1320,1326 ****
  342.   
  343.     /* Initialize stack pointers.
  344.        Waste one element of value and location stack
  345. !      so that they stay on the same level as the state stack.  */
  346.   
  347.     yyssp = yyss - 1;
  348.     yyvsp = yyvs;
  349. --- 1341,1348 ----
  350.   
  351.     /* Initialize stack pointers.
  352.        Waste one element of value and location stack
  353. !      so that they stay on the same level as the state stack.
  354. !      The wasted elements are never initialized.  */
  355.   
  356.     yyssp = yyss - 1;
  357.     yyvsp = yyvs;
  358. ***************
  359. *** 1403,1408 ****
  360. --- 1425,1431 ----
  361.       fprintf(stderr, "Entering state %d\n", yystate);
  362.   #endif
  363.   
  364. +   goto yybackup;
  365.    yybackup:
  366.   
  367.   /* Do appropriate processing given the current state.  */
  368. ***************
  369. *** 1527,1533 ****
  370.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  371.              yyn, yyrline[yyn]);
  372.   
  373. !       /* Print the symboles being reduced, and their result.  */
  374.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  375.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  376.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  377. --- 1550,1556 ----
  378.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  379.              yyn, yyrline[yyn]);
  380.   
  381. !       /* Print the symbols being reduced, and their result.  */
  382.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  383.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  384.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  385. ***************
  386. *** 2252,2264 ****
  387.       break;}
  388.   case 153:
  389.   #line 884 "c-parse.y"
  390. ! { if (strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed"))
  391.           warning ("`%s' attribute directive ignored",
  392.                IDENTIFIER_POINTER (yyvsp[0].ttype));
  393.         yyval.ttype = yyvsp[0].ttype; ;
  394.       break;}
  395.   case 154:
  396. ! #line 889 "c-parse.y"
  397.   { /* If not "mode (m)", then issue warning.  */
  398.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "mode") != 0)
  399.           {
  400. --- 2275,2295 ----
  401.       break;}
  402.   case 153:
  403.   #line 884 "c-parse.y"
  404. ! {
  405. ! /* AMIGA diff */ 
  406. ! #ifdef HANDLE_ATTRIBUTE0
  407. !       /* give the function a chance to validate further attributes */
  408. !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER (yyvsp[0].ttype)) ||
  409. !           strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed"))
  410. ! #else
  411. !       if (strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed"))
  412. ! #endif
  413.           warning ("`%s' attribute directive ignored",
  414.                IDENTIFIER_POINTER (yyvsp[0].ttype));
  415.         yyval.ttype = yyvsp[0].ttype; ;
  416.       break;}
  417.   case 154:
  418. ! #line 897 "c-parse.y"
  419.   { /* If not "mode (m)", then issue warning.  */
  420.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "mode") != 0)
  421.           {
  422. ***************
  423. *** 2270,2276 ****
  424.           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  425.       break;}
  426.   case 155:
  427. ! #line 899 "c-parse.y"
  428.   { /* if not "aligned(n)", then issue warning */
  429.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "aligned") != 0
  430.             || TREE_CODE (yyvsp[-1].ttype) != INTEGER_CST)
  431. --- 2301,2307 ----
  432.           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  433.       break;}
  434.   case 155:
  435. ! #line 907 "c-parse.y"
  436.   { /* if not "aligned(n)", then issue warning */
  437.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "aligned") != 0
  438.             || TREE_CODE (yyvsp[-1].ttype) != INTEGER_CST)
  439. ***************
  440. *** 2283,2289 ****
  441.           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  442.       break;}
  443.   case 156:
  444. ! #line 910 "c-parse.y"
  445.   { /* if not "format(...)", then issue warning */
  446.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-7].ttype), "format") != 0
  447.             || TREE_CODE (yyvsp[-3].ttype) != INTEGER_CST
  448. --- 2314,2320 ----
  449.           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  450.       break;}
  451.   case 156:
  452. ! #line 918 "c-parse.y"
  453.   { /* if not "format(...)", then issue warning */
  454.         if (strcmp (IDENTIFIER_POINTER (yyvsp[-7].ttype), "format") != 0
  455.             || TREE_CODE (yyvsp[-3].ttype) != INTEGER_CST
  456. ***************
  457. *** 2301,2362 ****
  458.                   NULL_TREE); ;
  459.       break;}
  460.   case 158:
  461. ! #line 930 "c-parse.y"
  462.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, NULL_TREE);
  463.             if (pedantic)
  464.               pedwarn ("ANSI C forbids empty initializer braces"); ;
  465.       break;}
  466.   case 159:
  467. ! #line 934 "c-parse.y"
  468.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, nreverse (yyvsp[-1].ttype)); ;
  469.       break;}
  470.   case 160:
  471. ! #line 936 "c-parse.y"
  472.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, nreverse (yyvsp[-2].ttype)); ;
  473.       break;}
  474.   case 161:
  475. ! #line 938 "c-parse.y"
  476.   { yyval.ttype = NULL_TREE; ;
  477.       break;}
  478.   case 162:
  479. ! #line 945 "c-parse.y"
  480.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  481.       break;}
  482.   case 163:
  483. ! #line 947 "c-parse.y"
  484.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-2].ttype); ;
  485.       break;}
  486.   case 164:
  487. ! #line 952 "c-parse.y"
  488.   { yyval.ttype = build_tree_list (tree_cons (yyvsp[-4].ttype, NULL_TREE,
  489.                              build_tree_list (yyvsp[-2].ttype, NULL_TREE)),
  490.                       yyvsp[0].ttype); ;
  491.       break;}
  492.   case 165:
  493. ! #line 956 "c-parse.y"
  494.   { yyval.ttype = tree_cons (tree_cons (yyvsp[-4].ttype, NULL_TREE,
  495.                            build_tree_list (yyvsp[-2].ttype, NULL_TREE)),
  496.                     yyvsp[0].ttype,
  497.                     yyvsp[-7].ttype); ;
  498.       break;}
  499.   case 166:
  500. ! #line 961 "c-parse.y"
  501.   { yyval.ttype = build_tree_list (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  502.       break;}
  503.   case 167:
  504. ! #line 963 "c-parse.y"
  505.   { yyval.ttype = tree_cons (yyvsp[-2].ttype, yyvsp[0].ttype, yyvsp[-5].ttype); ;
  506.       break;}
  507.   case 168:
  508. ! #line 965 "c-parse.y"
  509.   { yyval.ttype = build_tree_list (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  510.       break;}
  511.   case 169:
  512. ! #line 967 "c-parse.y"
  513.   { yyval.ttype = tree_cons (yyvsp[-2].ttype, yyvsp[0].ttype, yyvsp[-4].ttype); ;
  514.       break;}
  515.   case 170:
  516. ! #line 972 "c-parse.y"
  517.   { push_c_function_context ();
  518.             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  519.               {
  520. --- 2332,2393 ----
  521.                   NULL_TREE); ;
  522.       break;}
  523.   case 158:
  524. ! #line 938 "c-parse.y"
  525.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, NULL_TREE);
  526.             if (pedantic)
  527.               pedwarn ("ANSI C forbids empty initializer braces"); ;
  528.       break;}
  529.   case 159:
  530. ! #line 942 "c-parse.y"
  531.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, nreverse (yyvsp[-1].ttype)); ;
  532.       break;}
  533.   case 160:
  534. ! #line 944 "c-parse.y"
  535.   { yyval.ttype = build_nt (CONSTRUCTOR, NULL_TREE, nreverse (yyvsp[-2].ttype)); ;
  536.       break;}
  537.   case 161:
  538. ! #line 946 "c-parse.y"
  539.   { yyval.ttype = NULL_TREE; ;
  540.       break;}
  541.   case 162:
  542. ! #line 953 "c-parse.y"
  543.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  544.       break;}
  545.   case 163:
  546. ! #line 955 "c-parse.y"
  547.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-2].ttype); ;
  548.       break;}
  549.   case 164:
  550. ! #line 960 "c-parse.y"
  551.   { yyval.ttype = build_tree_list (tree_cons (yyvsp[-4].ttype, NULL_TREE,
  552.                              build_tree_list (yyvsp[-2].ttype, NULL_TREE)),
  553.                       yyvsp[0].ttype); ;
  554.       break;}
  555.   case 165:
  556. ! #line 964 "c-parse.y"
  557.   { yyval.ttype = tree_cons (tree_cons (yyvsp[-4].ttype, NULL_TREE,
  558.                            build_tree_list (yyvsp[-2].ttype, NULL_TREE)),
  559.                     yyvsp[0].ttype,
  560.                     yyvsp[-7].ttype); ;
  561.       break;}
  562.   case 166:
  563. ! #line 969 "c-parse.y"
  564.   { yyval.ttype = build_tree_list (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  565.       break;}
  566.   case 167:
  567. ! #line 971 "c-parse.y"
  568.   { yyval.ttype = tree_cons (yyvsp[-2].ttype, yyvsp[0].ttype, yyvsp[-5].ttype); ;
  569.       break;}
  570.   case 168:
  571. ! #line 973 "c-parse.y"
  572.   { yyval.ttype = build_tree_list (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  573.       break;}
  574.   case 169:
  575. ! #line 975 "c-parse.y"
  576.   { yyval.ttype = tree_cons (yyvsp[-2].ttype, yyvsp[0].ttype, yyvsp[-4].ttype); ;
  577.       break;}
  578.   case 170:
  579. ! #line 980 "c-parse.y"
  580.   { push_c_function_context ();
  581.             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  582.               {
  583. ***************
  584. *** 2367,2378 ****
  585.             store_parm_decls (); ;
  586.       break;}
  587.   case 171:
  588. ! #line 987 "c-parse.y"
  589.   { finish_function (1);
  590.             pop_c_function_context (); ;
  591.       break;}
  592.   case 172:
  593. ! #line 993 "c-parse.y"
  594.   { push_c_function_context ();
  595.             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  596.               {
  597. --- 2398,2409 ----
  598.             store_parm_decls (); ;
  599.       break;}
  600.   case 171:
  601. ! #line 995 "c-parse.y"
  602.   { finish_function (1);
  603.             pop_c_function_context (); ;
  604.       break;}
  605.   case 172:
  606. ! #line 1001 "c-parse.y"
  607.   { push_c_function_context ();
  608.             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  609.               {
  610. ***************
  611. *** 2383,2665 ****
  612.             store_parm_decls (); ;
  613.       break;}
  614.   case 173:
  615. ! #line 1008 "c-parse.y"
  616.   { finish_function (1);
  617.             pop_c_function_context (); ;
  618.       break;}
  619.   case 176:
  620. ! #line 1024 "c-parse.y"
  621.   { yyval.ttype = yyvsp[-1].ttype; ;
  622.       break;}
  623.   case 177:
  624. ! #line 1026 "c-parse.y"
  625.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  626.       break;}
  627.   case 178:
  628. ! #line 1031 "c-parse.y"
  629.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  630.       break;}
  631.   case 179:
  632. ! #line 1033 "c-parse.y"
  633.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  634.       break;}
  635.   case 180:
  636. ! #line 1035 "c-parse.y"
  637.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  638.       break;}
  639.   case 182:
  640. ! #line 1046 "c-parse.y"
  641.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  642.       break;}
  643.   case 183:
  644. ! #line 1051 "c-parse.y"
  645.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  646.       break;}
  647.   case 184:
  648. ! #line 1053 "c-parse.y"
  649.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  650.       break;}
  651.   case 185:
  652. ! #line 1055 "c-parse.y"
  653.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  654.       break;}
  655.   case 187:
  656. ! #line 1064 "c-parse.y"
  657.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  658.       break;}
  659.   case 188:
  660. ! #line 1069 "c-parse.y"
  661.   { yyval.ttype = yyvsp[-1].ttype; ;
  662.       break;}
  663.   case 189:
  664. ! #line 1071 "c-parse.y"
  665.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  666.       break;}
  667.   case 190:
  668. ! #line 1073 "c-parse.y"
  669.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  670.       break;}
  671.   case 191:
  672. ! #line 1075 "c-parse.y"
  673.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  674.       break;}
  675.   case 193:
  676. ! #line 1081 "c-parse.y"
  677.   { yyval.ttype = start_struct (RECORD_TYPE, yyvsp[-1].ttype);
  678.             /* Start scope of tag before parsing components.  */
  679.           ;
  680.       break;}
  681.   case 194:
  682. ! #line 1085 "c-parse.y"
  683.   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype);
  684.             /* Really define the structure.  */
  685.           ;
  686.       break;}
  687.   case 195:
  688. ! #line 1089 "c-parse.y"
  689.   { yyval.ttype = finish_struct (start_struct (RECORD_TYPE, NULL_TREE),
  690.                         yyvsp[-1].ttype); ;
  691.       break;}
  692.   case 196:
  693. ! #line 1092 "c-parse.y"
  694.   { yyval.ttype = xref_tag (RECORD_TYPE, yyvsp[0].ttype); ;
  695.       break;}
  696.   case 197:
  697. ! #line 1094 "c-parse.y"
  698.   { yyval.ttype = start_struct (UNION_TYPE, yyvsp[-1].ttype); ;
  699.       break;}
  700.   case 198:
  701. ! #line 1096 "c-parse.y"
  702.   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  703.       break;}
  704.   case 199:
  705. ! #line 1098 "c-parse.y"
  706.   { yyval.ttype = finish_struct (start_struct (UNION_TYPE, NULL_TREE),
  707.                         yyvsp[-1].ttype); ;
  708.       break;}
  709.   case 200:
  710. ! #line 1101 "c-parse.y"
  711.   { yyval.ttype = xref_tag (UNION_TYPE, yyvsp[0].ttype); ;
  712.       break;}
  713.   case 201:
  714. ! #line 1103 "c-parse.y"
  715.   { yyvsp[0].itype = suspend_momentary ();
  716.             yyval.ttype = start_enum (yyvsp[-1].ttype); ;
  717.       break;}
  718.   case 202:
  719. ! #line 1106 "c-parse.y"
  720.   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  721.             resume_momentary (yyvsp[-4].itype); ;
  722.       break;}
  723.   case 203:
  724. ! #line 1109 "c-parse.y"
  725.   { yyvsp[0].itype = suspend_momentary ();
  726.             yyval.ttype = start_enum (NULL_TREE); ;
  727.       break;}
  728.   case 204:
  729. ! #line 1112 "c-parse.y"
  730.   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  731.             resume_momentary (yyvsp[-4].itype); ;
  732.       break;}
  733.   case 205:
  734. ! #line 1115 "c-parse.y"
  735.   { yyval.ttype = xref_tag (ENUMERAL_TYPE, yyvsp[0].ttype); ;
  736.       break;}
  737.   case 209:
  738. ! #line 1126 "c-parse.y"
  739.   { if (pedantic) pedwarn ("comma at end of enumerator list"); ;
  740.       break;}
  741.   case 210:
  742. ! #line 1131 "c-parse.y"
  743.   { yyval.ttype = yyvsp[0].ttype; ;
  744.       break;}
  745.   case 211:
  746. ! #line 1133 "c-parse.y"
  747.   { yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype);
  748.             pedwarn ("no semicolon at end of struct or union"); ;
  749.       break;}
  750.   case 212:
  751. ! #line 1138 "c-parse.y"
  752.   { yyval.ttype = NULL_TREE; ;
  753.       break;}
  754.   case 213:
  755. ! #line 1140 "c-parse.y"
  756.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  757.       break;}
  758.   case 214:
  759. ! #line 1142 "c-parse.y"
  760.   { if (pedantic)
  761.               pedwarn ("extra semicolon in struct or union specified"); ;
  762.       break;}
  763.   case 215:
  764. ! #line 1157 "c-parse.y"
  765.   { yyval.ttype = yyvsp[0].ttype;
  766.             current_declspecs = TREE_VALUE (declspec_stack);
  767.             declspec_stack = TREE_CHAIN (declspec_stack);
  768.             resume_momentary (yyvsp[-1].itype); ;
  769.       break;}
  770.   case 216:
  771. ! #line 1162 "c-parse.y"
  772.   { if (pedantic)
  773.               pedwarn ("ANSI C forbids member declarations with no members");
  774.             shadow_tag(yyvsp[0].ttype);
  775.             yyval.ttype = NULL_TREE; ;
  776.       break;}
  777.   case 217:
  778. ! #line 1167 "c-parse.y"
  779.   { yyval.ttype = yyvsp[0].ttype;
  780.             current_declspecs = TREE_VALUE (declspec_stack);
  781.             declspec_stack = TREE_CHAIN (declspec_stack);
  782.             resume_momentary (yyvsp[-1].itype); ;
  783.       break;}
  784.   case 218:
  785. ! #line 1172 "c-parse.y"
  786.   { if (pedantic)
  787.               pedwarn ("ANSI C forbids member declarations with no members");
  788.             shadow_tag(yyvsp[0].ttype);
  789.             yyval.ttype = NULL_TREE; ;
  790.       break;}
  791.   case 219:
  792. ! #line 1177 "c-parse.y"
  793.   { yyval.ttype = NULL_TREE; ;
  794.       break;}
  795.   case 221:
  796. ! #line 1183 "c-parse.y"
  797.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  798.       break;}
  799.   case 222:
  800. ! #line 1188 "c-parse.y"
  801.   { yyval.ttype = grokfield (yyvsp[-3].filename, yyvsp[-2].lineno, yyvsp[-1].ttype, current_declspecs, NULL_TREE);
  802.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  803.       break;}
  804.   case 223:
  805. ! #line 1192 "c-parse.y"
  806.   { yyval.ttype = grokfield (yyvsp[-5].filename, yyvsp[-4].lineno, yyvsp[-3].ttype, current_declspecs, yyvsp[-1].ttype);
  807.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  808.       break;}
  809.   case 224:
  810. ! #line 1195 "c-parse.y"
  811.   { yyval.ttype = grokfield (yyvsp[-4].filename, yyvsp[-3].lineno, NULL_TREE, current_declspecs, yyvsp[-1].ttype);
  812.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  813.       break;}
  814.   case 226:
  815. ! #line 1207 "c-parse.y"
  816.   { yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-2].ttype); ;
  817.       break;}
  818.   case 227:
  819. ! #line 1213 "c-parse.y"
  820.   { yyval.ttype = build_enumerator (yyvsp[0].ttype, NULL_TREE); ;
  821.       break;}
  822.   case 228:
  823. ! #line 1215 "c-parse.y"
  824.   { yyval.ttype = build_enumerator (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  825.       break;}
  826.   case 229:
  827. ! #line 1220 "c-parse.y"
  828.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  829.       break;}
  830.   case 230:
  831. ! #line 1222 "c-parse.y"
  832.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  833.       break;}
  834.   case 231:
  835. ! #line 1227 "c-parse.y"
  836.   { yyval.ttype = NULL_TREE; ;
  837.       break;}
  838.   case 233:
  839. ! #line 1233 "c-parse.y"
  840.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  841.       break;}
  842.   case 234:
  843. ! #line 1235 "c-parse.y"
  844.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  845.       break;}
  846.   case 235:
  847. ! #line 1240 "c-parse.y"
  848.   { yyval.ttype = NULL_TREE; ;
  849.       break;}
  850.   case 236:
  851. ! #line 1242 "c-parse.y"
  852.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  853.       break;}
  854.   case 237:
  855. ! #line 1247 "c-parse.y"
  856.   { yyval.ttype = yyvsp[-1].ttype; ;
  857.       break;}
  858.   case 238:
  859. ! #line 1250 "c-parse.y"
  860.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  861.       break;}
  862.   case 239:
  863. ! #line 1252 "c-parse.y"
  864.   { yyval.ttype = make_pointer_declarator (yyvsp[0].ttype, NULL_TREE); ;
  865.       break;}
  866.   case 240:
  867. ! #line 1254 "c-parse.y"
  868.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  869.       break;}
  870.   case 241:
  871. ! #line 1256 "c-parse.y"
  872.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  873.       break;}
  874.   case 242:
  875. ! #line 1258 "c-parse.y"
  876.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  877.       break;}
  878.   case 243:
  879. ! #line 1260 "c-parse.y"
  880.   { yyval.ttype = build_nt (CALL_EXPR, NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  881.       break;}
  882.   case 244:
  883. ! #line 1262 "c-parse.y"
  884.   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, yyvsp[-1].ttype); ;
  885.       break;}
  886.   case 245:
  887. ! #line 1264 "c-parse.y"
  888.   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); ;
  889.       break;}
  890.   case 252:
  891. ! #line 1286 "c-parse.y"
  892.   { emit_line_note (input_filename, lineno);
  893.             pushlevel (0);
  894.             clear_last_expr ();
  895. --- 2414,2696 ----
  896.             store_parm_decls (); ;
  897.       break;}
  898.   case 173:
  899. ! #line 1016 "c-parse.y"
  900.   { finish_function (1);
  901.             pop_c_function_context (); ;
  902.       break;}
  903.   case 176:
  904. ! #line 1032 "c-parse.y"
  905.   { yyval.ttype = yyvsp[-1].ttype; ;
  906.       break;}
  907.   case 177:
  908. ! #line 1034 "c-parse.y"
  909.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  910.       break;}
  911.   case 178:
  912. ! #line 1039 "c-parse.y"
  913.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  914.       break;}
  915.   case 179:
  916. ! #line 1041 "c-parse.y"
  917.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  918.       break;}
  919.   case 180:
  920. ! #line 1043 "c-parse.y"
  921.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  922.       break;}
  923.   case 182:
  924. ! #line 1054 "c-parse.y"
  925.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  926.       break;}
  927.   case 183:
  928. ! #line 1059 "c-parse.y"
  929.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  930.       break;}
  931.   case 184:
  932. ! #line 1061 "c-parse.y"
  933.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  934.       break;}
  935.   case 185:
  936. ! #line 1063 "c-parse.y"
  937.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  938.       break;}
  939.   case 187:
  940. ! #line 1072 "c-parse.y"
  941.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  942.       break;}
  943.   case 188:
  944. ! #line 1077 "c-parse.y"
  945.   { yyval.ttype = yyvsp[-1].ttype; ;
  946.       break;}
  947.   case 189:
  948. ! #line 1079 "c-parse.y"
  949.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  950.       break;}
  951.   case 190:
  952. ! #line 1081 "c-parse.y"
  953.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  954.       break;}
  955.   case 191:
  956. ! #line 1083 "c-parse.y"
  957.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  958.       break;}
  959.   case 193:
  960. ! #line 1089 "c-parse.y"
  961.   { yyval.ttype = start_struct (RECORD_TYPE, yyvsp[-1].ttype);
  962.             /* Start scope of tag before parsing components.  */
  963.           ;
  964.       break;}
  965.   case 194:
  966. ! #line 1093 "c-parse.y"
  967.   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype);
  968.             /* Really define the structure.  */
  969.           ;
  970.       break;}
  971.   case 195:
  972. ! #line 1097 "c-parse.y"
  973.   { yyval.ttype = finish_struct (start_struct (RECORD_TYPE, NULL_TREE),
  974.                         yyvsp[-1].ttype); ;
  975.       break;}
  976.   case 196:
  977. ! #line 1100 "c-parse.y"
  978.   { yyval.ttype = xref_tag (RECORD_TYPE, yyvsp[0].ttype); ;
  979.       break;}
  980.   case 197:
  981. ! #line 1102 "c-parse.y"
  982.   { yyval.ttype = start_struct (UNION_TYPE, yyvsp[-1].ttype); ;
  983.       break;}
  984.   case 198:
  985. ! #line 1104 "c-parse.y"
  986.   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  987.       break;}
  988.   case 199:
  989. ! #line 1106 "c-parse.y"
  990.   { yyval.ttype = finish_struct (start_struct (UNION_TYPE, NULL_TREE),
  991.                         yyvsp[-1].ttype); ;
  992.       break;}
  993.   case 200:
  994. ! #line 1109 "c-parse.y"
  995.   { yyval.ttype = xref_tag (UNION_TYPE, yyvsp[0].ttype); ;
  996.       break;}
  997.   case 201:
  998. ! #line 1111 "c-parse.y"
  999.   { yyvsp[0].itype = suspend_momentary ();
  1000.             yyval.ttype = start_enum (yyvsp[-1].ttype); ;
  1001.       break;}
  1002.   case 202:
  1003. ! #line 1114 "c-parse.y"
  1004.   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  1005.             resume_momentary (yyvsp[-4].itype); ;
  1006.       break;}
  1007.   case 203:
  1008. ! #line 1117 "c-parse.y"
  1009.   { yyvsp[0].itype = suspend_momentary ();
  1010.             yyval.ttype = start_enum (NULL_TREE); ;
  1011.       break;}
  1012.   case 204:
  1013. ! #line 1120 "c-parse.y"
  1014.   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  1015.             resume_momentary (yyvsp[-4].itype); ;
  1016.       break;}
  1017.   case 205:
  1018. ! #line 1123 "c-parse.y"
  1019.   { yyval.ttype = xref_tag (ENUMERAL_TYPE, yyvsp[0].ttype); ;
  1020.       break;}
  1021.   case 209:
  1022. ! #line 1134 "c-parse.y"
  1023.   { if (pedantic) pedwarn ("comma at end of enumerator list"); ;
  1024.       break;}
  1025.   case 210:
  1026. ! #line 1139 "c-parse.y"
  1027.   { yyval.ttype = yyvsp[0].ttype; ;
  1028.       break;}
  1029.   case 211:
  1030. ! #line 1141 "c-parse.y"
  1031.   { yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype);
  1032.             pedwarn ("no semicolon at end of struct or union"); ;
  1033.       break;}
  1034.   case 212:
  1035. ! #line 1146 "c-parse.y"
  1036.   { yyval.ttype = NULL_TREE; ;
  1037.       break;}
  1038.   case 213:
  1039. ! #line 1148 "c-parse.y"
  1040.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  1041.       break;}
  1042.   case 214:
  1043. ! #line 1150 "c-parse.y"
  1044.   { if (pedantic)
  1045.               pedwarn ("extra semicolon in struct or union specified"); ;
  1046.       break;}
  1047.   case 215:
  1048. ! #line 1165 "c-parse.y"
  1049.   { yyval.ttype = yyvsp[0].ttype;
  1050.             current_declspecs = TREE_VALUE (declspec_stack);
  1051.             declspec_stack = TREE_CHAIN (declspec_stack);
  1052.             resume_momentary (yyvsp[-1].itype); ;
  1053.       break;}
  1054.   case 216:
  1055. ! #line 1170 "c-parse.y"
  1056.   { if (pedantic)
  1057.               pedwarn ("ANSI C forbids member declarations with no members");
  1058.             shadow_tag(yyvsp[0].ttype);
  1059.             yyval.ttype = NULL_TREE; ;
  1060.       break;}
  1061.   case 217:
  1062. ! #line 1175 "c-parse.y"
  1063.   { yyval.ttype = yyvsp[0].ttype;
  1064.             current_declspecs = TREE_VALUE (declspec_stack);
  1065.             declspec_stack = TREE_CHAIN (declspec_stack);
  1066.             resume_momentary (yyvsp[-1].itype); ;
  1067.       break;}
  1068.   case 218:
  1069. ! #line 1180 "c-parse.y"
  1070.   { if (pedantic)
  1071.               pedwarn ("ANSI C forbids member declarations with no members");
  1072.             shadow_tag(yyvsp[0].ttype);
  1073.             yyval.ttype = NULL_TREE; ;
  1074.       break;}
  1075.   case 219:
  1076. ! #line 1185 "c-parse.y"
  1077.   { yyval.ttype = NULL_TREE; ;
  1078.       break;}
  1079.   case 221:
  1080. ! #line 1191 "c-parse.y"
  1081.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  1082.       break;}
  1083.   case 222:
  1084. ! #line 1196 "c-parse.y"
  1085.   { yyval.ttype = grokfield (yyvsp[-3].filename, yyvsp[-2].lineno, yyvsp[-1].ttype, current_declspecs, NULL_TREE);
  1086.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  1087.       break;}
  1088.   case 223:
  1089. ! #line 1200 "c-parse.y"
  1090.   { yyval.ttype = grokfield (yyvsp[-5].filename, yyvsp[-4].lineno, yyvsp[-3].ttype, current_declspecs, yyvsp[-1].ttype);
  1091.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  1092.       break;}
  1093.   case 224:
  1094. ! #line 1203 "c-parse.y"
  1095.   { yyval.ttype = grokfield (yyvsp[-4].filename, yyvsp[-3].lineno, NULL_TREE, current_declspecs, yyvsp[-1].ttype);
  1096.             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  1097.       break;}
  1098.   case 226:
  1099. ! #line 1215 "c-parse.y"
  1100.   { yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-2].ttype); ;
  1101.       break;}
  1102.   case 227:
  1103. ! #line 1221 "c-parse.y"
  1104.   { yyval.ttype = build_enumerator (yyvsp[0].ttype, NULL_TREE); ;
  1105.       break;}
  1106.   case 228:
  1107. ! #line 1223 "c-parse.y"
  1108.   { yyval.ttype = build_enumerator (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  1109.       break;}
  1110.   case 229:
  1111. ! #line 1228 "c-parse.y"
  1112.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  1113.       break;}
  1114.   case 230:
  1115. ! #line 1230 "c-parse.y"
  1116.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  1117.       break;}
  1118.   case 231:
  1119. ! #line 1235 "c-parse.y"
  1120.   { yyval.ttype = NULL_TREE; ;
  1121.       break;}
  1122.   case 233:
  1123. ! #line 1241 "c-parse.y"
  1124.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  1125.       break;}
  1126.   case 234:
  1127. ! #line 1243 "c-parse.y"
  1128.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  1129.       break;}
  1130.   case 235:
  1131. ! #line 1248 "c-parse.y"
  1132.   { yyval.ttype = NULL_TREE; ;
  1133.       break;}
  1134.   case 236:
  1135. ! #line 1250 "c-parse.y"
  1136.   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  1137.       break;}
  1138.   case 237:
  1139. ! #line 1255 "c-parse.y"
  1140.   { yyval.ttype = yyvsp[-1].ttype; ;
  1141.       break;}
  1142.   case 238:
  1143. ! #line 1258 "c-parse.y"
  1144.   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  1145.       break;}
  1146.   case 239:
  1147. ! #line 1260 "c-parse.y"
  1148.   { yyval.ttype = make_pointer_declarator (yyvsp[0].ttype, NULL_TREE); ;
  1149.       break;}
  1150.   case 240:
  1151. ! #line 1262 "c-parse.y"
  1152.   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  1153.       break;}
  1154.   case 241:
  1155. ! #line 1264 "c-parse.y"
  1156.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  1157.       break;}
  1158.   case 242:
  1159. ! #line 1266 "c-parse.y"
  1160.   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  1161.       break;}
  1162.   case 243:
  1163. ! #line 1268 "c-parse.y"
  1164.   { yyval.ttype = build_nt (CALL_EXPR, NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  1165.       break;}
  1166.   case 244:
  1167. ! #line 1270 "c-parse.y"
  1168.   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, yyvsp[-1].ttype); ;
  1169.       break;}
  1170.   case 245:
  1171. ! #line 1272 "c-parse.y"
  1172.   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); ;
  1173.       break;}
  1174.   case 252:
  1175. ! #line 1294 "c-parse.y"
  1176.   { emit_line_note (input_filename, lineno);
  1177.             pushlevel (0);
  1178.             clear_last_expr ();
  1179. ***************
  1180. *** 2668,2679 ****
  1181.           ;
  1182.       break;}
  1183.   case 254:
  1184. ! #line 1299 "c-parse.y"
  1185.   { if (pedantic)
  1186.               pedwarn ("ANSI C forbids label declarations"); ;
  1187.       break;}
  1188.   case 257:
  1189. ! #line 1310 "c-parse.y"
  1190.   { tree link;
  1191.             for (link = yyvsp[-1].ttype; link; link = TREE_CHAIN (link))
  1192.               {
  1193. --- 2699,2710 ----
  1194.           ;
  1195.       break;}
  1196.   case 254:
  1197. ! #line 1307 "c-parse.y"
  1198.   { if (pedantic)
  1199.               pedwarn ("ANSI C forbids label declarations"); ;
  1200.       break;}
  1201.   case 257:
  1202. ! #line 1318 "c-parse.y"
  1203.   { tree link;
  1204.             for (link = yyvsp[-1].ttype; link; link = TREE_CHAIN (link))
  1205.               {
  1206. ***************
  1207. *** 2684,2719 ****
  1208.           ;
  1209.       break;}
  1210.   case 258:
  1211. ! #line 1324 "c-parse.y"
  1212.   {;
  1213.       break;}
  1214.   case 260:
  1215. ! #line 1329 "c-parse.y"
  1216.   { yyval.ttype = convert (void_type_node, integer_zero_node); ;
  1217.       break;}
  1218.   case 261:
  1219. ! #line 1331 "c-parse.y"
  1220.   { emit_line_note (input_filename, lineno);
  1221.             expand_end_bindings (getdecls (), 1, 0);
  1222.             yyval.ttype = poplevel (1, 1, 0);
  1223.             pop_momentary (); ;
  1224.       break;}
  1225.   case 262:
  1226. ! #line 1336 "c-parse.y"
  1227.   { emit_line_note (input_filename, lineno);
  1228.             expand_end_bindings (getdecls (), kept_level_p (), 0);
  1229.             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  1230.             pop_momentary (); ;
  1231.       break;}
  1232.   case 263:
  1233. ! #line 1341 "c-parse.y"
  1234.   { emit_line_note (input_filename, lineno);
  1235.             expand_end_bindings (getdecls (), kept_level_p (), 0);
  1236.             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  1237.             pop_momentary (); ;
  1238.       break;}
  1239.   case 266:
  1240. ! #line 1358 "c-parse.y"
  1241.   { emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1242.             expand_start_cond (truthvalue_conversion (yyvsp[-1].ttype), 0);
  1243.             yyvsp[-3].itype = stmt_count;
  1244. --- 2715,2750 ----
  1245.           ;
  1246.       break;}
  1247.   case 258:
  1248. ! #line 1332 "c-parse.y"
  1249.   {;
  1250.       break;}
  1251.   case 260:
  1252. ! #line 1337 "c-parse.y"
  1253.   { yyval.ttype = convert (void_type_node, integer_zero_node); ;
  1254.       break;}
  1255.   case 261:
  1256. ! #line 1339 "c-parse.y"
  1257.   { emit_line_note (input_filename, lineno);
  1258.             expand_end_bindings (getdecls (), 1, 0);
  1259.             yyval.ttype = poplevel (1, 1, 0);
  1260.             pop_momentary (); ;
  1261.       break;}
  1262.   case 262:
  1263. ! #line 1344 "c-parse.y"
  1264.   { emit_line_note (input_filename, lineno);
  1265.             expand_end_bindings (getdecls (), kept_level_p (), 0);
  1266.             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  1267.             pop_momentary (); ;
  1268.       break;}
  1269.   case 263:
  1270. ! #line 1349 "c-parse.y"
  1271.   { emit_line_note (input_filename, lineno);
  1272.             expand_end_bindings (getdecls (), kept_level_p (), 0);
  1273.             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  1274.             pop_momentary (); ;
  1275.       break;}
  1276.   case 266:
  1277. ! #line 1366 "c-parse.y"
  1278.   { emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1279.             expand_start_cond (truthvalue_conversion (yyvsp[-1].ttype), 0);
  1280.             yyvsp[-3].itype = stmt_count;
  1281. ***************
  1282. *** 2722,2728 ****
  1283.             position_after_white_space (); ;
  1284.       break;}
  1285.   case 267:
  1286. ! #line 1371 "c-parse.y"
  1287.   { stmt_count++;
  1288.             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  1289.             /* See comment in `while' alternative, above.  */
  1290. --- 2753,2759 ----
  1291.             position_after_white_space (); ;
  1292.       break;}
  1293.   case 267:
  1294. ! #line 1379 "c-parse.y"
  1295.   { stmt_count++;
  1296.             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  1297.             /* See comment in `while' alternative, above.  */
  1298. ***************
  1299. *** 2731,2761 ****
  1300.             position_after_white_space (); ;
  1301.       break;}
  1302.   case 268:
  1303. ! #line 1378 "c-parse.y"
  1304.   { expand_loop_continue_here (); ;
  1305.       break;}
  1306.   case 269:
  1307. ! #line 1382 "c-parse.y"
  1308.   { yyval.filename = input_filename; ;
  1309.       break;}
  1310.   case 270:
  1311. ! #line 1386 "c-parse.y"
  1312.   { yyval.lineno = lineno; ;
  1313.       break;}
  1314.   case 271:
  1315. ! #line 1391 "c-parse.y"
  1316.   { ;
  1317.       break;}
  1318.   case 272:
  1319. ! #line 1396 "c-parse.y"
  1320.   { ;
  1321.       break;}
  1322.   case 273:
  1323. ! #line 1401 "c-parse.y"
  1324.   { ;
  1325.       break;}
  1326.   case 275:
  1327. ! #line 1407 "c-parse.y"
  1328.   { int next;
  1329.             position_after_white_space ();
  1330.             next = getc (finput);
  1331. --- 2762,2792 ----
  1332.             position_after_white_space (); ;
  1333.       break;}
  1334.   case 268:
  1335. ! #line 1386 "c-parse.y"
  1336.   { expand_loop_continue_here (); ;
  1337.       break;}
  1338.   case 269:
  1339. ! #line 1390 "c-parse.y"
  1340.   { yyval.filename = input_filename; ;
  1341.       break;}
  1342.   case 270:
  1343. ! #line 1394 "c-parse.y"
  1344.   { yyval.lineno = lineno; ;
  1345.       break;}
  1346.   case 271:
  1347. ! #line 1399 "c-parse.y"
  1348.   { ;
  1349.       break;}
  1350.   case 272:
  1351. ! #line 1404 "c-parse.y"
  1352.   { ;
  1353.       break;}
  1354.   case 273:
  1355. ! #line 1409 "c-parse.y"
  1356.   { ;
  1357.       break;}
  1358.   case 275:
  1359. ! #line 1415 "c-parse.y"
  1360.   { int next;
  1361.             position_after_white_space ();
  1362.             next = getc (finput);
  1363. ***************
  1364. *** 2765,2805 ****
  1365.           ;
  1366.       break;}
  1367.   case 276:
  1368. ! #line 1419 "c-parse.y"
  1369.   { stmt_count++; ;
  1370.       break;}
  1371.   case 278:
  1372. ! #line 1422 "c-parse.y"
  1373.   { stmt_count++;
  1374.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1375.             iterator_expand (yyvsp[-1].ttype);
  1376.             clear_momentary (); ;
  1377.       break;}
  1378.   case 279:
  1379. ! #line 1427 "c-parse.y"
  1380.   { expand_start_else ();
  1381.             yyvsp[-1].itype = stmt_count;
  1382.             position_after_white_space (); ;
  1383.       break;}
  1384.   case 280:
  1385. ! #line 1431 "c-parse.y"
  1386.   { expand_end_cond ();
  1387.             if (extra_warnings && stmt_count == yyvsp[-3].itype)
  1388.               warning ("empty body in an else-statement"); ;
  1389.       break;}
  1390.   case 281:
  1391. ! #line 1435 "c-parse.y"
  1392.   { expand_end_cond ();
  1393.             if (extra_warnings && stmt_count == yyvsp[0].itype)
  1394.               warning_with_file_and_line (if_stmt_file, if_stmt_line,
  1395.                           "empty body in an if-statement"); ;
  1396.       break;}
  1397.   case 282:
  1398. ! #line 1443 "c-parse.y"
  1399.   { expand_end_cond (); ;
  1400.       break;}
  1401.   case 283:
  1402. ! #line 1445 "c-parse.y"
  1403.   { stmt_count++;
  1404.             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  1405.             /* The emit_nop used to come before emit_line_note,
  1406. --- 2796,2836 ----
  1407.           ;
  1408.       break;}
  1409.   case 276:
  1410. ! #line 1427 "c-parse.y"
  1411.   { stmt_count++; ;
  1412.       break;}
  1413.   case 278:
  1414. ! #line 1430 "c-parse.y"
  1415.   { stmt_count++;
  1416.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1417.             iterator_expand (yyvsp[-1].ttype);
  1418.             clear_momentary (); ;
  1419.       break;}
  1420.   case 279:
  1421. ! #line 1435 "c-parse.y"
  1422.   { expand_start_else ();
  1423.             yyvsp[-1].itype = stmt_count;
  1424.             position_after_white_space (); ;
  1425.       break;}
  1426.   case 280:
  1427. ! #line 1439 "c-parse.y"
  1428.   { expand_end_cond ();
  1429.             if (extra_warnings && stmt_count == yyvsp[-3].itype)
  1430.               warning ("empty body in an else-statement"); ;
  1431.       break;}
  1432.   case 281:
  1433. ! #line 1443 "c-parse.y"
  1434.   { expand_end_cond ();
  1435.             if (extra_warnings && stmt_count == yyvsp[0].itype)
  1436.               warning_with_file_and_line (if_stmt_file, if_stmt_line,
  1437.                           "empty body in an if-statement"); ;
  1438.       break;}
  1439.   case 282:
  1440. ! #line 1451 "c-parse.y"
  1441.   { expand_end_cond (); ;
  1442.       break;}
  1443.   case 283:
  1444. ! #line 1453 "c-parse.y"
  1445.   { stmt_count++;
  1446.             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  1447.             /* The emit_nop used to come before emit_line_note,
  1448. ***************
  1449. *** 2811,2817 ****
  1450.             emit_nop (); ;
  1451.       break;}
  1452.   case 284:
  1453. ! #line 1455 "c-parse.y"
  1454.   { /* Don't start the loop till we have succeeded
  1455.                in parsing the end test.  This is to make sure
  1456.                that we end every loop we start.  */
  1457. --- 2842,2848 ----
  1458.             emit_nop (); ;
  1459.       break;}
  1460.   case 284:
  1461. ! #line 1463 "c-parse.y"
  1462.   { /* Don't start the loop till we have succeeded
  1463.                in parsing the end test.  This is to make sure
  1464.                that we end every loop we start.  */
  1465. ***************
  1466. *** 2822,2832 ****
  1467.             position_after_white_space (); ;
  1468.       break;}
  1469.   case 285:
  1470. ! #line 1464 "c-parse.y"
  1471.   { expand_end_loop (); ;
  1472.       break;}
  1473.   case 286:
  1474. ! #line 1467 "c-parse.y"
  1475.   { emit_line_note (input_filename, lineno);
  1476.             expand_exit_loop_if_false (NULL_PTR,
  1477.                            truthvalue_conversion (yyvsp[-2].ttype));
  1478. --- 2853,2863 ----
  1479.             position_after_white_space (); ;
  1480.       break;}
  1481.   case 285:
  1482. ! #line 1472 "c-parse.y"
  1483.   { expand_end_loop (); ;
  1484.       break;}
  1485.   case 286:
  1486. ! #line 1475 "c-parse.y"
  1487.   { emit_line_note (input_filename, lineno);
  1488.             expand_exit_loop_if_false (NULL_PTR,
  1489.                            truthvalue_conversion (yyvsp[-2].ttype));
  1490. ***************
  1491. *** 2834,2845 ****
  1492.             clear_momentary (); ;
  1493.       break;}
  1494.   case 287:
  1495. ! #line 1474 "c-parse.y"
  1496.   { expand_end_loop ();
  1497.             clear_momentary (); ;
  1498.       break;}
  1499.   case 288:
  1500. ! #line 1478 "c-parse.y"
  1501.   { stmt_count++;
  1502.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1503.             /* See comment in `while' alternative, above.  */
  1504. --- 2865,2876 ----
  1505.             clear_momentary (); ;
  1506.       break;}
  1507.   case 287:
  1508. ! #line 1482 "c-parse.y"
  1509.   { expand_end_loop ();
  1510.             clear_momentary (); ;
  1511.       break;}
  1512.   case 288:
  1513. ! #line 1486 "c-parse.y"
  1514.   { stmt_count++;
  1515.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1516.             /* See comment in `while' alternative, above.  */
  1517. ***************
  1518. *** 2852,2863 ****
  1519.           ;
  1520.       break;}
  1521.   case 289:
  1522. ! #line 1490 "c-parse.y"
  1523.   { yyvsp[0].lineno = lineno;
  1524.             yyval.filename = input_filename; ;
  1525.       break;}
  1526.   case 290:
  1527. ! #line 1493 "c-parse.y"
  1528.   { 
  1529.             /* Start the loop.  Doing this after parsing
  1530.                all the expressions ensures we will end the loop.  */
  1531. --- 2883,2894 ----
  1532.           ;
  1533.       break;}
  1534.   case 289:
  1535. ! #line 1498 "c-parse.y"
  1536.   { yyvsp[0].lineno = lineno;
  1537.             yyval.filename = input_filename; ;
  1538.       break;}
  1539.   case 290:
  1540. ! #line 1501 "c-parse.y"
  1541.   { 
  1542.             /* Start the loop.  Doing this after parsing
  1543.                all the expressions ensures we will end the loop.  */
  1544. ***************
  1545. *** 2875,2881 ****
  1546.             position_after_white_space (); ;
  1547.       break;}
  1548.   case 291:
  1549. ! #line 1509 "c-parse.y"
  1550.   { /* Emit the increment expression, with a line number.  */
  1551.             emit_line_note (yyvsp[-4].filename, yyvsp[-5].lineno);
  1552.             expand_loop_continue_here ();
  1553. --- 2906,2912 ----
  1554.             position_after_white_space (); ;
  1555.       break;}
  1556.   case 291:
  1557. ! #line 1517 "c-parse.y"
  1558.   { /* Emit the increment expression, with a line number.  */
  1559.             emit_line_note (yyvsp[-4].filename, yyvsp[-5].lineno);
  1560.             expand_loop_continue_here ();
  1561. ***************
  1562. *** 2885,2891 ****
  1563.             expand_end_loop (); ;
  1564.       break;}
  1565.   case 292:
  1566. ! #line 1517 "c-parse.y"
  1567.   { stmt_count++;
  1568.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1569.             c_expand_start_case (yyvsp[-1].ttype);
  1570. --- 2916,2922 ----
  1571.             expand_end_loop (); ;
  1572.       break;}
  1573.   case 292:
  1574. ! #line 1525 "c-parse.y"
  1575.   { stmt_count++;
  1576.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1577.             c_expand_start_case (yyvsp[-1].ttype);
  1578. ***************
  1579. *** 2895,2932 ****
  1580.             position_after_white_space (); ;
  1581.       break;}
  1582.   case 293:
  1583. ! #line 1525 "c-parse.y"
  1584.   { expand_end_case (yyvsp[-3].ttype);
  1585.             pop_momentary (); ;
  1586.       break;}
  1587.   case 294:
  1588. ! #line 1528 "c-parse.y"
  1589.   { stmt_count++;
  1590.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1591.             if ( ! expand_exit_something ())
  1592.               error ("break statement not within loop or switch"); ;
  1593.       break;}
  1594.   case 295:
  1595. ! #line 1533 "c-parse.y"
  1596.   { stmt_count++;
  1597.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1598.             if (! expand_continue_loop (NULL_PTR))
  1599.               error ("continue statement not within a loop"); ;
  1600.       break;}
  1601.   case 296:
  1602. ! #line 1538 "c-parse.y"
  1603.   { stmt_count++;
  1604.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1605.             c_expand_return (NULL_TREE); ;
  1606.       break;}
  1607.   case 297:
  1608. ! #line 1542 "c-parse.y"
  1609.   { stmt_count++;
  1610.             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  1611.             c_expand_return (yyvsp[-1].ttype); ;
  1612.       break;}
  1613.   case 298:
  1614. ! #line 1546 "c-parse.y"
  1615.   { stmt_count++;
  1616.             emit_line_note (yyvsp[-7].filename, yyvsp[-6].lineno);
  1617.             STRIP_NOPS (yyvsp[-2].ttype);
  1618. --- 2926,2963 ----
  1619.             position_after_white_space (); ;
  1620.       break;}
  1621.   case 293:
  1622. ! #line 1533 "c-parse.y"
  1623.   { expand_end_case (yyvsp[-3].ttype);
  1624.             pop_momentary (); ;
  1625.       break;}
  1626.   case 294:
  1627. ! #line 1536 "c-parse.y"
  1628.   { stmt_count++;
  1629.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1630.             if ( ! expand_exit_something ())
  1631.               error ("break statement not within loop or switch"); ;
  1632.       break;}
  1633.   case 295:
  1634. ! #line 1541 "c-parse.y"
  1635.   { stmt_count++;
  1636.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1637.             if (! expand_continue_loop (NULL_PTR))
  1638.               error ("continue statement not within a loop"); ;
  1639.       break;}
  1640.   case 296:
  1641. ! #line 1546 "c-parse.y"
  1642.   { stmt_count++;
  1643.             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  1644.             c_expand_return (NULL_TREE); ;
  1645.       break;}
  1646.   case 297:
  1647. ! #line 1550 "c-parse.y"
  1648.   { stmt_count++;
  1649.             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  1650.             c_expand_return (yyvsp[-1].ttype); ;
  1651.       break;}
  1652.   case 298:
  1653. ! #line 1554 "c-parse.y"
  1654.   { stmt_count++;
  1655.             emit_line_note (yyvsp[-7].filename, yyvsp[-6].lineno);
  1656.             STRIP_NOPS (yyvsp[-2].ttype);
  1657. ***************
  1658. *** 2938,2944 ****
  1659.               error ("argument of `asm' is not a constant string"); ;
  1660.       break;}
  1661.   case 299:
  1662. ! #line 1557 "c-parse.y"
  1663.   { stmt_count++;
  1664.             emit_line_note (yyvsp[-9].filename, yyvsp[-8].lineno);
  1665.             c_expand_asm_operands (yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, NULL_TREE,
  1666. --- 2969,2975 ----
  1667.               error ("argument of `asm' is not a constant string"); ;
  1668.       break;}
  1669.   case 299:
  1670. ! #line 1565 "c-parse.y"
  1671.   { stmt_count++;
  1672.             emit_line_note (yyvsp[-9].filename, yyvsp[-8].lineno);
  1673.             c_expand_asm_operands (yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, NULL_TREE,
  1674. ***************
  1675. *** 2946,2952 ****
  1676.                        input_filename, lineno); ;
  1677.       break;}
  1678.   case 300:
  1679. ! #line 1564 "c-parse.y"
  1680.   { stmt_count++;
  1681.             emit_line_note (yyvsp[-11].filename, yyvsp[-10].lineno);
  1682.             c_expand_asm_operands (yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE,
  1683. --- 2977,2983 ----
  1684.                        input_filename, lineno); ;
  1685.       break;}
  1686.   case 300:
  1687. ! #line 1572 "c-parse.y"
  1688.   { stmt_count++;
  1689.             emit_line_note (yyvsp[-11].filename, yyvsp[-10].lineno);
  1690.             c_expand_asm_operands (yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE,
  1691. ***************
  1692. *** 2954,2960 ****
  1693.                        input_filename, lineno); ;
  1694.       break;}
  1695.   case 301:
  1696. ! #line 1572 "c-parse.y"
  1697.   { stmt_count++;
  1698.             emit_line_note (yyvsp[-13].filename, yyvsp[-12].lineno);
  1699.             c_expand_asm_operands (yyvsp[-8].ttype, yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype,
  1700. --- 2985,2991 ----
  1701.                        input_filename, lineno); ;
  1702.       break;}
  1703.   case 301:
  1704. ! #line 1580 "c-parse.y"
  1705.   { stmt_count++;
  1706.             emit_line_note (yyvsp[-13].filename, yyvsp[-12].lineno);
  1707.             c_expand_asm_operands (yyvsp[-8].ttype, yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype,
  1708. ***************
  1709. *** 2962,2968 ****
  1710.                        input_filename, lineno); ;
  1711.       break;}
  1712.   case 302:
  1713. ! #line 1578 "c-parse.y"
  1714.   { tree decl;
  1715.             stmt_count++;
  1716.             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  1717. --- 2993,2999 ----
  1718.                        input_filename, lineno); ;
  1719.       break;}
  1720.   case 302:
  1721. ! #line 1586 "c-parse.y"
  1722.   { tree decl;
  1723.             stmt_count++;
  1724.             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  1725. ***************
  1726. *** 2975,2987 ****
  1727.           ;
  1728.       break;}
  1729.   case 303:
  1730. ! #line 1589 "c-parse.y"
  1731.   { stmt_count++;
  1732.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1733.             expand_computed_goto (convert (ptr_type_node, yyvsp[-1].ttype)); ;
  1734.       break;}
  1735.   case 306:
  1736. ! #line 1602 "c-parse.y"
  1737.   {
  1738.           /* The value returned by this action is  */
  1739.           /*      1 if everything is OK */ 
  1740. --- 3006,3018 ----
  1741.           ;
  1742.       break;}
  1743.   case 303:
  1744. ! #line 1597 "c-parse.y"
  1745.   { stmt_count++;
  1746.             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  1747.             expand_computed_goto (convert (ptr_type_node, yyvsp[-1].ttype)); ;
  1748.       break;}
  1749.   case 306:
  1750. ! #line 1610 "c-parse.y"
  1751.   {
  1752.           /* The value returned by this action is  */
  1753.           /*      1 if everything is OK */ 
  1754. ***************
  1755. *** 3004,3017 ****
  1756.         ;
  1757.       break;}
  1758.   case 307:
  1759. ! #line 1623 "c-parse.y"
  1760.   {
  1761.           if (yyvsp[-1].itype)
  1762.             iterator_for_loop_end (yyvsp[-3].ttype);
  1763.         ;
  1764.       break;}
  1765.   case 308:
  1766. ! #line 1655 "c-parse.y"
  1767.   { register tree value = check_case_value (yyvsp[-1].ttype);
  1768.             register tree label
  1769.               = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE);
  1770. --- 3035,3048 ----
  1771.         ;
  1772.       break;}
  1773.   case 307:
  1774. ! #line 1631 "c-parse.y"
  1775.   {
  1776.           if (yyvsp[-1].itype)
  1777.             iterator_for_loop_end (yyvsp[-3].ttype);
  1778.         ;
  1779.       break;}
  1780.   case 308:
  1781. ! #line 1663 "c-parse.y"
  1782.   { register tree value = check_case_value (yyvsp[-1].ttype);
  1783.             register tree label
  1784.               = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE);
  1785. ***************
  1786. *** 3037,3043 ****
  1787.             position_after_white_space (); ;
  1788.       break;}
  1789.   case 309:
  1790. ! #line 1679 "c-parse.y"
  1791.   { register tree value1 = check_case_value (yyvsp[-3].ttype);
  1792.             register tree value2 = check_case_value (yyvsp[-1].ttype);
  1793.             register tree label
  1794. --- 3068,3074 ----
  1795.             position_after_white_space (); ;
  1796.       break;}
  1797.   case 309:
  1798. ! #line 1687 "c-parse.y"
  1799.   { register tree value1 = check_case_value (yyvsp[-3].ttype);
  1800.             register tree value2 = check_case_value (yyvsp[-1].ttype);
  1801.             register tree label
  1802. ***************
  1803. *** 3067,3073 ****
  1804.             position_after_white_space (); ;
  1805.       break;}
  1806.   case 310:
  1807. ! #line 1707 "c-parse.y"
  1808.   {
  1809.             tree duplicate;
  1810.             register tree label
  1811. --- 3098,3104 ----
  1812.             position_after_white_space (); ;
  1813.       break;}
  1814.   case 310:
  1815. ! #line 1715 "c-parse.y"
  1816.   {
  1817.             tree duplicate;
  1818.             register tree label
  1819. ***************
  1820. *** 3084,3090 ****
  1821.             position_after_white_space (); ;
  1822.       break;}
  1823.   case 311:
  1824. ! #line 1722 "c-parse.y"
  1825.   { tree label = define_label (input_filename, lineno, yyvsp[-1].ttype);
  1826.             stmt_count++;
  1827.             emit_nop ();
  1828. --- 3115,3121 ----
  1829.             position_after_white_space (); ;
  1830.       break;}
  1831.   case 311:
  1832. ! #line 1730 "c-parse.y"
  1833.   { tree label = define_label (input_filename, lineno, yyvsp[-1].ttype);
  1834.             stmt_count++;
  1835.             emit_nop ();
  1836. ***************
  1837. *** 3093,3143 ****
  1838.             position_after_white_space (); ;
  1839.       break;}
  1840.   case 312:
  1841. ! #line 1734 "c-parse.y"
  1842.   { emit_line_note (input_filename, lineno); ;
  1843.       break;}
  1844.   case 313:
  1845. ! #line 1736 "c-parse.y"
  1846.   { emit_line_note (input_filename, lineno); ;
  1847.       break;}
  1848.   case 314:
  1849. ! #line 1741 "c-parse.y"
  1850.   { yyval.ttype = NULL_TREE; ;
  1851.       break;}
  1852.   case 316:
  1853. ! #line 1748 "c-parse.y"
  1854.   { yyval.ttype = NULL_TREE; ;
  1855.       break;}
  1856.   case 319:
  1857. ! #line 1755 "c-parse.y"
  1858.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  1859.       break;}
  1860.   case 320:
  1861. ! #line 1760 "c-parse.y"
  1862.   { yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  1863.       break;}
  1864.   case 321:
  1865. ! #line 1765 "c-parse.y"
  1866.   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), NULL_TREE); ;
  1867.       break;}
  1868.   case 322:
  1869. ! #line 1767 "c-parse.y"
  1870.   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), yyvsp[-2].ttype); ;
  1871.       break;}
  1872.   case 323:
  1873. ! #line 1773 "c-parse.y"
  1874.   { pushlevel (0);
  1875.             clear_parm_order ();
  1876.             declare_parm_level (0); ;
  1877.       break;}
  1878.   case 324:
  1879. ! #line 1777 "c-parse.y"
  1880.   { yyval.ttype = yyvsp[0].ttype;
  1881.             parmlist_tags_warning ();
  1882.             poplevel (0, 0, 0); ;
  1883.       break;}
  1884.   case 326:
  1885. ! #line 1785 "c-parse.y"
  1886.   { tree parm;
  1887.             if (pedantic)
  1888.               pedwarn ("ANSI C forbids forward parameter declarations");
  1889. --- 3124,3174 ----
  1890.             position_after_white_space (); ;
  1891.       break;}
  1892.   case 312:
  1893. ! #line 1742 "c-parse.y"
  1894.   { emit_line_note (input_filename, lineno); ;
  1895.       break;}
  1896.   case 313:
  1897. ! #line 1744 "c-parse.y"
  1898.   { emit_line_note (input_filename, lineno); ;
  1899.       break;}
  1900.   case 314:
  1901. ! #line 1749 "c-parse.y"
  1902.   { yyval.ttype = NULL_TREE; ;
  1903.       break;}
  1904.   case 316:
  1905. ! #line 1756 "c-parse.y"
  1906.   { yyval.ttype = NULL_TREE; ;
  1907.       break;}
  1908.   case 319:
  1909. ! #line 1763 "c-parse.y"
  1910.   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  1911.       break;}
  1912.   case 320:
  1913. ! #line 1768 "c-parse.y"
  1914.   { yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  1915.       break;}
  1916.   case 321:
  1917. ! #line 1773 "c-parse.y"
  1918.   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), NULL_TREE); ;
  1919.       break;}
  1920.   case 322:
  1921. ! #line 1775 "c-parse.y"
  1922.   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), yyvsp[-2].ttype); ;
  1923.       break;}
  1924.   case 323:
  1925. ! #line 1781 "c-parse.y"
  1926.   { pushlevel (0);
  1927.             clear_parm_order ();
  1928.             declare_parm_level (0); ;
  1929.       break;}
  1930.   case 324:
  1931. ! #line 1785 "c-parse.y"
  1932.   { yyval.ttype = yyvsp[0].ttype;
  1933.             parmlist_tags_warning ();
  1934.             poplevel (0, 0, 0); ;
  1935.       break;}
  1936.   case 326:
  1937. ! #line 1793 "c-parse.y"
  1938.   { tree parm;
  1939.             if (pedantic)
  1940.               pedwarn ("ANSI C forbids forward parameter declarations");
  1941. ***************
  1942. *** 3147,3220 ****
  1943.             clear_parm_order (); ;
  1944.       break;}
  1945.   case 327:
  1946. ! #line 1793 "c-parse.y"
  1947.   { yyval.ttype = yyvsp[0].ttype; ;
  1948.       break;}
  1949.   case 328:
  1950. ! #line 1795 "c-parse.y"
  1951.   { yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); ;
  1952.       break;}
  1953.   case 329:
  1954. ! #line 1801 "c-parse.y"
  1955.   { yyval.ttype = get_parm_info (0); ;
  1956.       break;}
  1957.   case 330:
  1958. ! #line 1803 "c-parse.y"
  1959.   { yyval.ttype = get_parm_info (0);
  1960.             if (pedantic)
  1961.               pedwarn ("ANSI C requires a named argument before `...'");
  1962.           ;
  1963.       break;}
  1964.   case 331:
  1965. ! #line 1808 "c-parse.y"
  1966.   { yyval.ttype = get_parm_info (1); ;
  1967.       break;}
  1968.   case 332:
  1969. ! #line 1810 "c-parse.y"
  1970.   { yyval.ttype = get_parm_info (0); ;
  1971.       break;}
  1972.   case 333:
  1973. ! #line 1815 "c-parse.y"
  1974.   { push_parm_decl (yyvsp[0].ttype); ;
  1975.       break;}
  1976.   case 334:
  1977. ! #line 1817 "c-parse.y"
  1978.   { push_parm_decl (yyvsp[0].ttype); ;
  1979.       break;}
  1980.   case 335:
  1981. ! #line 1824 "c-parse.y"
  1982.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  1983.       break;}
  1984.   case 336:
  1985. ! #line 1826 "c-parse.y"
  1986.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  1987.       break;}
  1988.   case 337:
  1989. ! #line 1828 "c-parse.y"
  1990.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  1991.       break;}
  1992.   case 338:
  1993. ! #line 1830 "c-parse.y"
  1994.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  1995.       break;}
  1996.   case 339:
  1997. ! #line 1832 "c-parse.y"
  1998.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  1999.       break;}
  2000.   case 340:
  2001. ! #line 1839 "c-parse.y"
  2002.   { pushlevel (0);
  2003.             clear_parm_order ();
  2004.             declare_parm_level (1); ;
  2005.       break;}
  2006.   case 341:
  2007. ! #line 1843 "c-parse.y"
  2008.   { yyval.ttype = yyvsp[0].ttype;
  2009.             parmlist_tags_warning ();
  2010.             poplevel (0, 0, 0); ;
  2011.       break;}
  2012.   case 343:
  2013. ! #line 1851 "c-parse.y"
  2014.   { tree t;
  2015.             for (t = yyvsp[-1].ttype; t; t = TREE_CHAIN (t))
  2016.               if (TREE_VALUE (t) == NULL_TREE)
  2017. --- 3178,3251 ----
  2018.             clear_parm_order (); ;
  2019.       break;}
  2020.   case 327:
  2021. ! #line 1801 "c-parse.y"
  2022.   { yyval.ttype = yyvsp[0].ttype; ;
  2023.       break;}
  2024.   case 328:
  2025. ! #line 1803 "c-parse.y"
  2026.   { yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); ;
  2027.       break;}
  2028.   case 329:
  2029. ! #line 1809 "c-parse.y"
  2030.   { yyval.ttype = get_parm_info (0); ;
  2031.       break;}
  2032.   case 330:
  2033. ! #line 1811 "c-parse.y"
  2034.   { yyval.ttype = get_parm_info (0);
  2035.             if (pedantic)
  2036.               pedwarn ("ANSI C requires a named argument before `...'");
  2037.           ;
  2038.       break;}
  2039.   case 331:
  2040. ! #line 1816 "c-parse.y"
  2041.   { yyval.ttype = get_parm_info (1); ;
  2042.       break;}
  2043.   case 332:
  2044. ! #line 1818 "c-parse.y"
  2045.   { yyval.ttype = get_parm_info (0); ;
  2046.       break;}
  2047.   case 333:
  2048. ! #line 1823 "c-parse.y"
  2049.   { push_parm_decl (yyvsp[0].ttype); ;
  2050.       break;}
  2051.   case 334:
  2052. ! #line 1825 "c-parse.y"
  2053.   { push_parm_decl (yyvsp[0].ttype); ;
  2054.       break;}
  2055.   case 335:
  2056. ! #line 1832 "c-parse.y"
  2057.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  2058.       break;}
  2059.   case 336:
  2060. ! #line 1834 "c-parse.y"
  2061.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  2062.       break;}
  2063.   case 337:
  2064. ! #line 1836 "c-parse.y"
  2065.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  2066.       break;}
  2067.   case 338:
  2068. ! #line 1838 "c-parse.y"
  2069.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  2070.       break;}
  2071.   case 339:
  2072. ! #line 1840 "c-parse.y"
  2073.   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  2074.       break;}
  2075.   case 340:
  2076. ! #line 1847 "c-parse.y"
  2077.   { pushlevel (0);
  2078.             clear_parm_order ();
  2079.             declare_parm_level (1); ;
  2080.       break;}
  2081.   case 341:
  2082. ! #line 1851 "c-parse.y"
  2083.   { yyval.ttype = yyvsp[0].ttype;
  2084.             parmlist_tags_warning ();
  2085.             poplevel (0, 0, 0); ;
  2086.       break;}
  2087.   case 343:
  2088. ! #line 1859 "c-parse.y"
  2089.   { tree t;
  2090.             for (t = yyvsp[-1].ttype; t; t = TREE_CHAIN (t))
  2091.               if (TREE_VALUE (t) == NULL_TREE)
  2092. ***************
  2093. *** 3222,3245 ****
  2094.             yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, yyvsp[-1].ttype); ;
  2095.       break;}
  2096.   case 344:
  2097. ! #line 1861 "c-parse.y"
  2098.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  2099.       break;}
  2100.   case 345:
  2101. ! #line 1863 "c-parse.y"
  2102.   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  2103.       break;}
  2104.   case 346:
  2105. ! #line 1869 "c-parse.y"
  2106.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  2107.       break;}
  2108.   case 347:
  2109. ! #line 1871 "c-parse.y"
  2110.   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  2111.       break;}
  2112.   }
  2113.      /* the action file gets copied in in place of this dollarsign */
  2114. ! #line 440 "bison.simple"
  2115.   
  2116.     yyvsp -= yylen;
  2117.     yyssp -= yylen;
  2118. --- 3253,3276 ----
  2119.             yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, yyvsp[-1].ttype); ;
  2120.       break;}
  2121.   case 344:
  2122. ! #line 1869 "c-parse.y"
  2123.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  2124.       break;}
  2125.   case 345:
  2126. ! #line 1871 "c-parse.y"
  2127.   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  2128.       break;}
  2129.   case 346:
  2130. ! #line 1877 "c-parse.y"
  2131.   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  2132.       break;}
  2133.   case 347:
  2134. ! #line 1879 "c-parse.y"
  2135.   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  2136.       break;}
  2137.   }
  2138.      /* the action file gets copied in in place of this dollarsign */
  2139. ! #line 457 "bison.simple"
  2140.   
  2141.     yyvsp -= yylen;
  2142.     yyssp -= yylen;
  2143. ***************
  2144. *** 3309,3315 ****
  2145.         int x, count;
  2146.   
  2147.         count = 0;
  2148. !       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2149.           if (yycheck[x + yyn] == x)
  2150.             size += strlen(yytname[x]) + 15, count++;
  2151.         msg = (char *) malloc(size + 15);
  2152. --- 3340,3348 ----
  2153.         int x, count;
  2154.   
  2155.         count = 0;
  2156. !       /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  2157. !       for (x = (yyn < 0 ? -yyn : 0);
  2158. !            x < (sizeof(yytname) / sizeof(char *)); x++)
  2159.           if (yycheck[x + yyn] == x)
  2160.             size += strlen(yytname[x]) + 15, count++;
  2161.         msg = (char *) malloc(size + 15);
  2162. ***************
  2163. *** 3320,3326 ****
  2164.             if (count < 5)
  2165.           {
  2166.             count = 0;
  2167. !           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2168.               if (yycheck[x + yyn] == x)
  2169.                 {
  2170.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  2171. --- 3353,3360 ----
  2172.             if (count < 5)
  2173.           {
  2174.             count = 0;
  2175. !           for (x = (yyn < 0 ? -yyn : 0);
  2176. !                x < (sizeof(yytname) / sizeof(char *)); x++)
  2177.               if (yycheck[x + yyn] == x)
  2178.                 {
  2179.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  2180. ***************
  2181. *** 3340,3345 ****
  2182. --- 3374,3380 ----
  2183.       yyerror("parse error");
  2184.       }
  2185.   
  2186. +   goto yyerrlab1;
  2187.   yyerrlab1:   /* here on error raised explicitly by an action */
  2188.   
  2189.     if (yyerrstatus == 3)
  2190. ***************
  2191. *** 3431,3435 ****
  2192.     yystate = yyn;
  2193.     goto yynewstate;
  2194.   }
  2195. ! #line 1874 "c-parse.y"
  2196.   
  2197. --- 3466,3470 ----
  2198.     yystate = yyn;
  2199.     goto yynewstate;
  2200.   }
  2201. ! #line 1882 "c-parse.y"
  2202.   
  2203. diff -rcP gcc-2.4.5-fsf/c-parse.y gcc-2.4.5-amiga/c-parse.y
  2204. *** gcc-2.4.5-fsf/c-parse.y    Thu May  6 18:20:03 1993
  2205. --- gcc-2.4.5-amiga/c-parse.y    Mon Sep  6 02:40:26 1993
  2206. ***************
  2207. *** 881,887 ****
  2208.   
  2209.   attrib
  2210.       : IDENTIFIER
  2211. !     { if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  2212.           warning ("`%s' attribute directive ignored",
  2213.                IDENTIFIER_POINTER ($1));
  2214.         $$ = $1; }
  2215. --- 881,895 ----
  2216.   
  2217.   attrib
  2218.       : IDENTIFIER
  2219. !     {
  2220. ! /* AMIGA diff */ 
  2221. ! #ifdef HANDLE_ATTRIBUTE0
  2222. !       /* give the function a chance to validate further attributes */
  2223. !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER ($1)) ||
  2224. !           strcmp (IDENTIFIER_POINTER ($1), "packed"))
  2225. ! #else
  2226. !       if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  2227. ! #endif
  2228.           warning ("`%s' attribute directive ignored",
  2229.                IDENTIFIER_POINTER ($1));
  2230.         $$ = $1; }
  2231. diff -rcP gcc-2.4.5-fsf/cccp.c gcc-2.4.5-amiga/cccp.c
  2232. *** gcc-2.4.5-fsf/cccp.c    Fri May 21 23:13:17 1993
  2233. --- gcc-2.4.5-amiga/cccp.c    Mon Sep  6 02:40:46 1993
  2234. ***************
  2235. *** 39,44 ****
  2236. --- 39,58 ----
  2237.   #include "config.h"
  2238.   #endif /* not EMACS */
  2239.   
  2240. + #ifdef amigados
  2241. + /* since cpp uses alloca to store all its read files, this is quite deadly
  2242. +    on a system with non-automatic stackgrowth like amigados, so we better
  2243. +    turn it off now..
  2244. + 
  2245. +    Note that it's not wise to generally inhibit __builtin_alloca, since
  2246. +    using the generic emulator entitels a serious (!) speed penalty, and
  2247. +    it's bad enough that we have to live with it in cccp, don't make cc1
  2248. +    unbearably slow as well... */
  2249. + #undef alloca
  2250. + 
  2251. + static int amigados_abs_filename ();
  2252. + #endif
  2253. + 
  2254.   #ifndef STANDARD_INCLUDE_DIR
  2255.   #define STANDARD_INCLUDE_DIR "/usr/include"
  2256.   #endif
  2257. ***************
  2258. *** 187,193 ****
  2259. --- 201,211 ----
  2260.   extern char *version_string;
  2261.   extern struct tm *localtime ();
  2262.   extern int sys_nerr;
  2263. + 
  2264. + #ifndef HAVE_STRERROR
  2265.   extern char *sys_errlist[];
  2266. + #define strerror(err) sys_errlist[err]
  2267. + #endif
  2268.   
  2269.   #ifndef errno
  2270.   extern int errno;
  2271. ***************
  2272. *** 1748,1758 ****
  2273. --- 1766,1780 ----
  2274.         char *p = in_fname;
  2275.         char *p1 = p;
  2276.         /* Discard all directory prefixes from P.  */
  2277. + #ifdef FILE_NAME_NONDIRECTORY
  2278. +       p = FILE_NAME_NONDIRECTORY (p);
  2279. + #else
  2280.         while (*p1) {
  2281.       if (*p1 == '/')
  2282.         p = p1 + 1;
  2283.       p1++;
  2284.         }
  2285. + #endif
  2286.         /* Output P, but remove known suffixes.  */
  2287.         len = strlen (p);
  2288.         if (p[len - 2] == '.' && p[len - 1] == 'c')
  2289. ***************
  2290. *** 3500,3506 ****
  2291.   
  2292.         if (!no_output && already_output == 0
  2293.         && (kt->pass_thru
  2294. !           || (kt->type == T_DEFINE
  2295.             && (dump_macros == dump_names
  2296.                 || dump_macros == dump_definitions)))) {
  2297.           int len;
  2298. --- 3522,3528 ----
  2299.   
  2300.         if (!no_output && already_output == 0
  2301.         && (kt->pass_thru
  2302. !           || ((kt->type == T_DEFINE || kt->type == T_UNDEF)
  2303.             && (dump_macros == dump_names
  2304.                 || dump_macros == dump_definitions)))) {
  2305.           int len;
  2306. ***************
  2307. *** 3842,3847 ****
  2308. --- 3864,3881 ----
  2309.           search_start = dsp;
  2310.   #ifndef VMS
  2311.           ep = rindex (nam, '/');
  2312. + 
  2313. + #ifdef amigados
  2314. +         /* amigados uses unix-style directory-filename separation, but
  2315. +            has VMS-style logicals as well */
  2316. + 
  2317. +         if (ep == NULL) 
  2318. +           {
  2319. +         ep = rindex (nam, ':');
  2320. +         /* a ':' is part of the directory name, a '/' isn't ! */
  2321. +             if (ep != NULL) ep++;
  2322. +           }
  2323. + #endif /* amigados */
  2324.   #else                /* VMS */
  2325.           ep = rindex (nam, ']');
  2326.           if (ep == NULL) ep = rindex (nam, '>');
  2327. ***************
  2328. *** 3921,3927 ****
  2329. --- 3955,3965 ----
  2330.   
  2331.     /* If specified file name is absolute, just open it.  */
  2332.   
  2333. + #ifndef amigados
  2334.     if (*fbeg == '/') {
  2335. + #else
  2336. +   if (amigados_abs_filename (fbeg, flen)) {
  2337. + #endif
  2338.       strncpy (fname, fbeg, flen);
  2339.       fname[flen] = 0;
  2340.       if (redundant_include_p (fname))
  2341. ***************
  2342. *** 3944,3949 ****
  2343. --- 3982,3991 ----
  2344.       if (searchptr->fname[0] == 0)
  2345.         continue;
  2346.       strcpy (fname, searchptr->fname);
  2347. + 
  2348. + #ifdef amigados
  2349. +     if (fname[strlen (fname) - 1] != ':')
  2350. + #endif
  2351.       strcat (fname, "/");
  2352.       fname[strlen (fname) + flen] = 0;
  2353.         } else {
  2354. ***************
  2355. *** 7814,7820 ****
  2356.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, ip->lineno);
  2357.   
  2358.     if (errno < sys_nerr)
  2359. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  2360.     else
  2361.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  2362.   
  2363. --- 7856,7862 ----
  2364.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, ip->lineno);
  2365.   
  2366.     if (errno < sys_nerr)
  2367. !     fprintf (stderr, "%s: %s\n", name, strerror (errno));
  2368.     else
  2369.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  2370.   
  2371. ***************
  2372. *** 8764,8772 ****
  2373.   perror_with_name (name)
  2374.        char *name;
  2375.   {
  2376.     fprintf (stderr, "%s: ", progname);
  2377. !   if (errno < sys_nerr)
  2378. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  2379.     else
  2380.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  2381.     errors++;
  2382. --- 8806,8816 ----
  2383.   perror_with_name (name)
  2384.        char *name;
  2385.   {
  2386. +   int error = errno;
  2387. + 
  2388.     fprintf (stderr, "%s: ", progname);
  2389. !   if (error < sys_nerr)
  2390. !     fprintf (stderr, "%s: %s\n", name, strerror (error));
  2391.     else
  2392.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  2393.     errors++;
  2394. ***************
  2395. *** 9151,9153 ****
  2396. --- 9195,9222 ----
  2397.     return dst;
  2398.   }
  2399.   #endif /* VMS */
  2400. + 
  2401. + 
  2402. + 
  2403. + #ifdef amigados
  2404. + 
  2405. + /* This function returns whether the LEN characters long filename FNAME 
  2406. +    is an absolute path specification. */
  2407. + 
  2408. + static int
  2409. + amigados_abs_filename (fname, len)
  2410. +      char *fname;
  2411. +      int len;
  2412. + {
  2413. +   /* we're using ixemul.library, which treats `/foo' as `foo:', so 
  2414. +      fname[0] is to be considered absolute as well */
  2415. +   if (fname[0] == '/')
  2416. +     return 1;
  2417. + 
  2418. +   /* else do an index() on fname, but one which is limited to len characters */
  2419. +   while (*fname && *fname != ':' && len) 
  2420. +     fname++, len--;
  2421. + 
  2422. +   return *fname == ':';
  2423. + }
  2424. + #endif /* amigados */
  2425. diff -rcP gcc-2.4.5-fsf/cexp.c gcc-2.4.5-amiga/cexp.c
  2426. *** gcc-2.4.5-fsf/cexp.c    Sat May  8 14:48:25 1993
  2427. --- gcc-2.4.5-amiga/cexp.c    Mon Sep  6 03:38:50 1993
  2428. ***************
  2429. *** 1,5 ****
  2430.   
  2431. ! /*  A Bison parser, made from cexp.y  */
  2432.   
  2433.   #define YYBISON 1  /* Identify Bison output.  */
  2434.   
  2435. --- 1,6 ----
  2436.   
  2437. ! /*  A Bison parser, made from cexp.y with Bison version GNU Bison version 1.21
  2438. !   */
  2439.   
  2440.   #define YYBISON 1  /* Identify Bison output.  */
  2441.   
  2442. ***************
  2443. *** 129,137 ****
  2444. --- 130,140 ----
  2445.   
  2446.   #include <stdio.h>
  2447.   
  2448. + #ifndef __cplusplus
  2449.   #ifndef __STDC__
  2450.   #define const
  2451.   #endif
  2452. + #endif
  2453.   
  2454.   
  2455.   
  2456. ***************
  2457. *** 171,176 ****
  2458. --- 174,180 ----
  2459.        6,    10,    11,    15,    16,    19,    20,    21,    22,    28
  2460.   };
  2461.   
  2462. + #if YYDEBUG != 0
  2463.   static const short yyprhs[] = {     0,
  2464.        0,     2,     4,     8,    11,    14,    17,    20,    23,    24,
  2465.       31,    35,    39,    43,    47,    51,    55,    59,    63,    67,
  2466. ***************
  2467. *** 194,199 ****
  2468. --- 198,205 ----
  2469.       38,    33,    38,     0,     5,    38,     0
  2470.   };
  2471.   
  2472. + #endif
  2473. + 
  2474.   #if YYDEBUG != 0
  2475.   static const short yyrline[] = { 0,
  2476.      143,   148,   149,   156,   161,   164,   166,   169,   173,   175,
  2477. ***************
  2478. *** 327,333 ****
  2479.   #ifdef __GNUC__
  2480.   #define alloca __builtin_alloca
  2481.   #else /* not GNU C.  */
  2482. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  2483.   #include <alloca.h>
  2484.   #else /* not sparc */
  2485.   #if defined (MSDOS) && !defined (__TURBOC__)
  2486. --- 333,339 ----
  2487.   #ifdef __GNUC__
  2488.   #define alloca __builtin_alloca
  2489.   #else /* not GNU C.  */
  2490. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  2491.   #include <alloca.h>
  2492.   #else /* not sparc */
  2493.   #if defined (MSDOS) && !defined (__TURBOC__)
  2494. ***************
  2495. *** 336,341 ****
  2496. --- 342,357 ----
  2497.   #if defined(_AIX)
  2498.   #include <malloc.h>
  2499.    #pragma alloca
  2500. + #else /* not MSDOS, __TURBOC__, or _AIX */
  2501. + #ifdef __hpux
  2502. + #ifdef __cplusplus
  2503. + extern "C" {
  2504. + void *alloca (unsigned int);
  2505. + };
  2506. + #else /* not __cplusplus */
  2507. + void *alloca (unsigned int);
  2508. + #endif /* not __cplusplus */
  2509. + #endif /* __hpux */
  2510.   #endif /* not _AIX */
  2511.   #endif /* not MSDOS, or __TURBOC__ */
  2512.   #endif /* not sparc.  */
  2513. ***************
  2514. *** 429,434 ****
  2515. --- 445,455 ----
  2516.   #ifndef YYMAXDEPTH
  2517.   #define YYMAXDEPTH 10000
  2518.   #endif
  2519. + 
  2520. + /* Prevent warning if -Wstrict-prototypes.  */
  2521. + #ifdef __GNUC__
  2522. + int yyparse (void);
  2523. + #endif
  2524.   
  2525.   #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  2526.   #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  2527. ***************
  2528. *** 469,475 ****
  2529.   #endif
  2530.   #endif
  2531.   
  2532. ! #line 169 "bison.simple"
  2533.   int
  2534.   yyparse()
  2535.   {
  2536. --- 490,496 ----
  2537.   #endif
  2538.   #endif
  2539.   
  2540. ! #line 184 "bison.simple"
  2541.   int
  2542.   yyparse()
  2543.   {
  2544. ***************
  2545. *** 525,531 ****
  2546.   
  2547.     /* Initialize stack pointers.
  2548.        Waste one element of value and location stack
  2549. !      so that they stay on the same level as the state stack.  */
  2550.   
  2551.     yyssp = yyss - 1;
  2552.     yyvsp = yyvs;
  2553. --- 546,553 ----
  2554.   
  2555.     /* Initialize stack pointers.
  2556.        Waste one element of value and location stack
  2557. !      so that they stay on the same level as the state stack.
  2558. !      The wasted elements are never initialized.  */
  2559.   
  2560.     yyssp = yyss - 1;
  2561.     yyvsp = yyvs;
  2562. ***************
  2563. *** 608,613 ****
  2564. --- 630,636 ----
  2565.       fprintf(stderr, "Entering state %d\n", yystate);
  2566.   #endif
  2567.   
  2568. +   goto yybackup;
  2569.    yybackup:
  2570.   
  2571.   /* Do appropriate processing given the current state.  */
  2572. ***************
  2573. *** 732,738 ****
  2574.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  2575.              yyn, yyrline[yyn]);
  2576.   
  2577. !       /* Print the symboles being reduced, and their result.  */
  2578.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  2579.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  2580.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  2581. --- 755,761 ----
  2582.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  2583.              yyn, yyrline[yyn]);
  2584.   
  2585. !       /* Print the symbols being reduced, and their result.  */
  2586.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  2587.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  2588.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  2589. ***************
  2590. *** 985,991 ****
  2591.       break;}
  2592.   }
  2593.      /* the action file gets copied in in place of this dollarsign */
  2594. ! #line 440 "bison.simple"
  2595.   
  2596.     yyvsp -= yylen;
  2597.     yyssp -= yylen;
  2598. --- 1008,1014 ----
  2599.       break;}
  2600.   }
  2601.      /* the action file gets copied in in place of this dollarsign */
  2602. ! #line 457 "bison.simple"
  2603.   
  2604.     yyvsp -= yylen;
  2605.     yyssp -= yylen;
  2606. ***************
  2607. *** 1055,1061 ****
  2608.         int x, count;
  2609.   
  2610.         count = 0;
  2611. !       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2612.           if (yycheck[x + yyn] == x)
  2613.             size += strlen(yytname[x]) + 15, count++;
  2614.         msg = (char *) malloc(size + 15);
  2615. --- 1078,1086 ----
  2616.         int x, count;
  2617.   
  2618.         count = 0;
  2619. !       /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  2620. !       for (x = (yyn < 0 ? -yyn : 0);
  2621. !            x < (sizeof(yytname) / sizeof(char *)); x++)
  2622.           if (yycheck[x + yyn] == x)
  2623.             size += strlen(yytname[x]) + 15, count++;
  2624.         msg = (char *) malloc(size + 15);
  2625. ***************
  2626. *** 1066,1072 ****
  2627.             if (count < 5)
  2628.           {
  2629.             count = 0;
  2630. !           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2631.               if (yycheck[x + yyn] == x)
  2632.                 {
  2633.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  2634. --- 1091,1098 ----
  2635.             if (count < 5)
  2636.           {
  2637.             count = 0;
  2638. !           for (x = (yyn < 0 ? -yyn : 0);
  2639. !                x < (sizeof(yytname) / sizeof(char *)); x++)
  2640.               if (yycheck[x + yyn] == x)
  2641.                 {
  2642.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  2643. ***************
  2644. *** 1086,1091 ****
  2645. --- 1112,1118 ----
  2646.       yyerror("parse error");
  2647.       }
  2648.   
  2649. +   goto yyerrlab1;
  2650.   yyerrlab1:   /* here on error raised explicitly by an action */
  2651.   
  2652.     if (yyerrstatus == 3)
  2653. diff -rcP gcc-2.4.5-fsf/config/m68k/amiga-crt0.c gcc-2.4.5-amiga/config/m68k/amiga-crt0.c
  2654. *** gcc-2.4.5-fsf/config/m68k/amiga-crt0.c
  2655. --- gcc-2.4.5-amiga/config/m68k/amiga-crt0.c    Mon Sep  6 21:31:42 1993
  2656. ***************
  2657. *** 0 ****
  2658. --- 1,313 ----
  2659. + /* revamped version by Loren J. Rittle. Thanks Loren !! */
  2660. + 
  2661. + /* I guess I should start to put my sources into RCS........ */
  2662. + 
  2663. + #include <exec/types.h>
  2664. + #include <exec/libraries.h>
  2665. + #include <exec/execbase.h>
  2666. + #include <inline/exec.h>
  2667. + #include <libraries/dosextens.h>
  2668. + #include <limits.h>
  2669. + 
  2670. + #include <sys/syscall.h>
  2671. + #ifdef BASECRT0
  2672. + #include <sys/exec.h>
  2673. + #endif /* BASECRT0 */
  2674. + 
  2675. + /* get the current revision number. Version control is automatically done by
  2676. +  * OpenLibrary(), I just have to check the revision number 
  2677. +  */
  2678. + #include "../library/version.h"
  2679. + 
  2680. + #undef DEBUG
  2681. + #ifdef DEBUG
  2682. + #define DP(a) kprintf a
  2683. + static int inline __geta4() {int res;asm ("movel a4,%0" : "=g" (res));return res;}
  2684. + #else
  2685. + #define DP(a)
  2686. + #endif
  2687. + 
  2688. + #define MSTRING(x) STRING(x)
  2689. + #define STRING(x) #x
  2690. + 
  2691. + struct Library *ixemulbase;
  2692. + 
  2693. + static int start_stdio(int, char **, char **);
  2694. + 
  2695. + /*
  2696. +  * Have to take care.. I may not use any library functions in this file,
  2697. +  * since they are exactly then used, when the library itself couldn't be
  2698. +  * opened...
  2699. +  */
  2700. + 
  2701. + extern int main();
  2702. + extern int expand_cmd_line;
  2703. + extern char *default_wb_window;
  2704. + extern int errno;
  2705. + extern char **environ;
  2706. + extern char *_ctype_;
  2707. + extern int sys_nerr;
  2708. + extern struct Library *SysBase, *DOSBase;
  2709. + extern struct __sFILE **__sF;
  2710. + static int ENTRY();
  2711. + static int exec_entry();
  2712. + 
  2713. + asm("
  2714. +     .text
  2715. + 
  2716. +     jmp    pc@(_ENTRY-.+2)    | by default jump to normal AmigaDOS startup
  2717. + 
  2718. +     | this is a struct exec, for now only OMAGIC is supported
  2719. +     .globl    exec
  2720. + exec:
  2721. +     .word    ___machtype    | a_mid
  2722. +     .word    0407        | a_magic = OMAGIC
  2723. +     .long    ___text_size    | a_text
  2724. +     .long    ___data_size    | a_data
  2725. +     .long    ___bss_size    | a_bss
  2726. +     .long    0        | a_syms
  2727. +     .long    _exec_entry    | a_entry
  2728. +     .long    0        | a_trsize
  2729. +     .long    0        | a_drsize
  2730. + 
  2731. +     | word alignement is guaranteed
  2732. + ");
  2733. + 
  2734. + #ifdef BASECRT0
  2735. + extern int __datadata_relocs();
  2736. + extern int __data_size, __bss_size;
  2737. + 
  2738. + #ifdef RCRT0
  2739. + /* have to do this this way, or it is done base-relative.. */
  2740. + static inline int dbsize() 
  2741. + {
  2742. +   int res;
  2743. +   asm ("movel #___data_size,%0; addl #___bss_size,%0" : "=r" (res));
  2744. +   return res;
  2745. + }
  2746. + 
  2747. + static void inline
  2748. + ix_resident (void *base, int num, int a4, int size, void *relocs)
  2749. + {
  2750. +   typedef void (*func)(int, int, int, void *);
  2751. + 
  2752. +   ((func)((int)base - 6*(SYS_ix_resident + 4))) (num, a4, size, relocs);
  2753. + }
  2754. + 
  2755. + #else
  2756. + static void inline
  2757. + ix_resident (void *base, int num, int a4)
  2758. + {
  2759. +   typedef void (*func)(int, int);
  2760. + 
  2761. +   ((func)((int)base - 6*(SYS_ix_resident + 4))) (num, a4);
  2762. + }
  2763. + #endif
  2764. + #endif /* BASECRT0 */
  2765. + 
  2766. + static int
  2767. + exec_entry (struct Library *ixembase, int argc, char *argv[], char *env[])
  2768. + {
  2769. + #ifdef BASECRT0
  2770. +   register int a4;
  2771. +   /* needed, so that data can be accessed. ix_resident might change this
  2772. +      again afterwards */
  2773. +   asm volatile ("lea    ___a4_init,a4" : "=r" (a4) : "0" (a4));
  2774. +   asm volatile ("movel    a4,%0" : "=r" (a4) : "0" (a4));
  2775. + 
  2776. + #ifdef RCRT0
  2777. +   ix_resident (ixembase, 4, a4, dbsize(), __datadata_relocs);
  2778. + #else
  2779. +   ix_resident (ixembase, 2, a4);
  2780. + #endif
  2781. + #endif /* BASECRT0 */
  2782. +   ixemulbase = ixembase;
  2783. +   return ix_exec_entry (argc, argv, env, &errno, start_stdio);
  2784. + }
  2785. + 
  2786. + /* this thing is best done with sprintf else, but it has to work without the
  2787. +  * library as well ;-(
  2788. +  */
  2789. + __inline static char *
  2790. + itoa (int num)
  2791. + {
  2792. +   short snum = num;
  2793. + 
  2794. +   /* how large can a long get...?? */
  2795. +   /* Answer (by ljr): best method to use (in terms of portability)
  2796. +      involves number theory.  The exact number of decimal digits
  2797. +      needed to store a given number of binary digits is
  2798. + 
  2799. +     ceiling ( number_of_binary_digits * log(2) / log(10) )
  2800. +      or
  2801. +     ceiling ( number_of_binary_digits * 0.301029996 )
  2802. + 
  2803. +      Since sizeof evaluates to the number of bytes a given type takes 
  2804. +      instead of the number of bits, we need to multiply sizeof (type) by
  2805. +      CHAR_BIT to obtain the number of bits.  Since an array size specifier
  2806. +      needs to be integer type, we multiply by 302 and divide by 1000 instead
  2807. +      of multiplying by 0.301029996.  Finally, we add 1 for the null terminator
  2808. +      and 1 because we want the ceiling of the function instead of the floor.
  2809. +      Funny thing about this whole affair is that you really wanted to know
  2810. +      the size a short could expand to be and not a long...  :-) I know
  2811. +      comments get out of date, etc.  The nice thing about this method is
  2812. +      that the size of the array is picked at compile time based upon the
  2813. +      number of bytes really needed by the local C implementation. */
  2814. +   static char buf[sizeof snum * CHAR_BIT * 302 / 1000 + 1 + 1];
  2815. +   char *cp;
  2816. +   
  2817. +   buf[sizeof buf - 1] = 0;
  2818. +   for (cp = &buf[sizeof buf - 1]; snum; snum /= 10) 
  2819. +     *--cp = (snum % 10) + '0';
  2820. + 
  2821. +   return cp;
  2822. + }
  2823. + 
  2824. + __inline static char *
  2825. + pstrcpy (char *start, char *arg)
  2826. + {
  2827. +   while (*start++=*arg++) ;
  2828. +   return start-1;
  2829. + }
  2830. + 
  2831. + __inline static char *
  2832. + build_warn (char *t1, int num1)
  2833. + {
  2834. +   static char buf[255];
  2835. +   char *cp;
  2836. +   
  2837. +   cp = pstrcpy (buf, t1);
  2838. +   cp = pstrcpy (cp, itoa (num1));
  2839. + 
  2840. +   return buf;
  2841. + }
  2842. + 
  2843. + static int
  2844. + ENTRY (void)
  2845. + {
  2846. +   register unsigned char *rega0  asm("a0");
  2847. +   register unsigned long  regd0  asm("d0");
  2848. + #ifdef BASECRT0
  2849. +   register int a4;
  2850. + #endif /* BASECRT0 */
  2851. + 
  2852. +   UBYTE *aline = rega0;
  2853. +   ULONG alen = regd0;
  2854. + #ifdef BASECRT0
  2855. +   struct Library *ibase;
  2856. + 
  2857. +   /* needed, so that data can be accessed. ix_resident() might change this
  2858. +      again afterwards */
  2859. +   asm volatile ("lea    ___a4_init,a4" : "=r" (a4) : "0" (a4));
  2860. +   asm volatile ("movel a4,%0" : "=r" (a4) : "0" (a4));
  2861. + #endif /* BASECRT0 */
  2862. + 
  2863. + #ifndef BASECRT0
  2864. +   ixemulbase = OpenLibrary ("ixemul.library", IX_VERSION);
  2865. +   if (ixemulbase)
  2866. + #else /* BASECRT0 */
  2867. + DP(("ENTRY: a4 = $%lx\n", __geta4()));
  2868. + 
  2869. +   ibase = OpenLibrary ("ixemul.library", IX_VERSION);
  2870. +   if (ibase)
  2871. + #endif /* BASECRT0 */
  2872. +     {
  2873. +       int res;
  2874. + 
  2875. +       /* just warn, in case the user tries to run program which might require
  2876. +        * more functions than are currently available under this revision. */
  2877. + #ifndef BASECRT0
  2878. +       if (ixemulbase->lib_Version == IX_VERSION &&
  2879. +       ixemulbase->lib_Revision < IX_REVISION)
  2880. + #else /* BASECRT0 */
  2881. +       if (ibase->lib_Version == IX_VERSION &&
  2882. +       ibase->lib_Revision < IX_REVISION)
  2883. + #endif /* BASECRT0 */
  2884. +     /* don't need to block signals, they are blocked until after 
  2885. +          * ix_startup() in current releases */
  2886. +     __request_msg (build_warn ("ixemul.library warning: needed revision "
  2887. +                      MSTRING (IX_REVISION) ", current revision ",
  2888. + #ifndef BASECRT0
  2889. +                             ixemulbase->lib_Revision), "Continue");
  2890. + #else /* BASECRT0 */
  2891. +                             ibase->lib_Revision), "Continue");
  2892. + 
  2893. + #ifdef RCRT0
  2894. +       ix_resident (ibase, 4, a4, dbsize(), __datadata_relocs);
  2895. + #else
  2896. +       ix_resident (ibase, 2, a4);
  2897. + #endif
  2898. + 
  2899. + DP(("ix_resident: a4 = $%lx\n", __geta4()));
  2900. + #endif /* BASECRT0 */
  2901. + 
  2902. + #ifdef BASECRT0
  2903. +       ixemulbase = ibase;
  2904. + #endif /* BASECRT0 */
  2905. + 
  2906. +       res = ix_startup (aline, alen, 
  2907. +                 expand_cmd_line, default_wb_window, start_stdio, &errno);
  2908. + 
  2909. +       CloseLibrary (ixemulbase);
  2910. + 
  2911. +       return res;
  2912. +     }
  2913. +   else
  2914. +     {
  2915. +       struct Process *me = (struct Process *)((*(struct ExecBase **)4)->ThisTask);
  2916. + 
  2917. +       __request_msg ("Need at least version " MSTRING (IX_VERSION)
  2918. +              " of ixemul.library.", "Abort");
  2919. +       
  2920. +       /* quickly deal with the WB startup message, as the library couldn't do
  2921. +        * this for us. Nothing at all is done that isn't necessary to just shutup
  2922. +        * workbench..*/
  2923. +       if (! me->pr_CLI)
  2924. +         {
  2925. +       Forbid (); 
  2926. +       ReplyMsg ((WaitPort (& me->pr_MsgPort), GetMsg (& me->pr_MsgPort)));
  2927. +     }
  2928. +       
  2929. +       return 20;
  2930. +     }
  2931. + }
  2932. + 
  2933. + int
  2934. + start_stdio (int argc, char **argv, char **env)
  2935. + {
  2936. +   int res;
  2937. + #ifndef BASECRT0
  2938. +   extern void etext ();
  2939. +   extern void _mcleanup ();
  2940. + #else /* BASECRT0 */
  2941. + 
  2942. + DP(("start_stdio1: a4 = $%lx\n", __geta4()));
  2943. + #endif /* BASECRT0 */
  2944. + 
  2945. +   /* more to follow ;-) */
  2946. +   ix_get_vars2 (6, &_ctype_, &sys_nerr, &SysBase, &DOSBase, &__sF, &environ);
  2947. +   environ = env;
  2948. + 
  2949. + #ifndef BASECRT0
  2950. + #ifdef MCRT0
  2951. +   atexit(_mcleanup);
  2952. +   monstartup(start_stdio, etext);
  2953. + #endif
  2954. + #endif /* not BASECRT0 */
  2955. + 
  2956. +   res = main (argc, argv, env);
  2957. +   return res;
  2958. + }
  2959. + 
  2960. + #ifndef BASECRT0
  2961. + #ifdef CRT0
  2962. + /*
  2963. +  * null mcount and moncontrol,
  2964. +  * just in case some routine is compiled for profiling
  2965. +  */
  2966. + asm(".globl mcount");
  2967. + asm(".globl _moncontrol");
  2968. + asm("_moncontrol:");
  2969. + asm("mcount: rts");
  2970. + #endif CRT0
  2971. + #endif /* not BASECRT0 */
  2972. diff -rcP gcc-2.4.5-fsf/config/m68k/amigados.c gcc-2.4.5-amiga/config/m68k/amigados.c
  2973. *** gcc-2.4.5-fsf/config/m68k/amigados.c
  2974. --- gcc-2.4.5-amiga/config/m68k/amigados.c    Mon Sep  6 02:36:03 1993
  2975. ***************
  2976. *** 0 ****
  2977. --- 1,158 ----
  2978. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  2979. +    Copyright (C) 1992 Free Software Foundation, Inc.
  2980. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  2981. + 
  2982. + This file is part of GNU CC.
  2983. + 
  2984. + GNU CC is free software; you can redistribute it and/or modify
  2985. + it under the terms of the GNU General Public License as published by
  2986. + the Free Software Foundation; either version 2, or (at your option)
  2987. + any later version.
  2988. + 
  2989. + GNU CC is distributed in the hope that it will be useful,
  2990. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  2991. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  2992. + GNU General Public License for more details.
  2993. + 
  2994. + You should have received a copy of the GNU General Public License
  2995. + along with GNU CC; see the file COPYING.  If not, write to
  2996. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  2997. + 
  2998. + #include "m68k/m68k.c"
  2999. + 
  3000. + /* Does operand (which is a symbolic_operand) live in text space? If
  3001. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.
  3002. + 
  3003. +    This function is used in base relative code generation. */
  3004. + 
  3005. + int
  3006. + read_only_operand (operand)
  3007. +      rtx operand;
  3008. + {
  3009. +   if (GET_CODE (operand) == CONST)
  3010. +     operand = XEXP (XEXP (operand, 0), 0);
  3011. +   if (GET_CODE (operand) == SYMBOL_REF)
  3012. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  3013. +   return 1;
  3014. + }
  3015. + 
  3016. + 
  3017. + /* the rest of the file is to implement AmigaDOS specific keywords some day.
  3018. +    The approach used so far used __attribute__ for this, but this required
  3019. +    changes to c-parse.y as well as if we'd use the common keywords used
  3020. +    on commercial AmigaDOS C-compilers as well. So in the future I'll probably
  3021. +    switch to __saveds and __interrupt keywords as well.
  3022. + 
  3023. +    The rest of this file is currently ignored, because it's no longer
  3024. +    working with the current gcc version. */
  3025. + 
  3026. + #if not_yet_working
  3027. + 
  3028. + #include "tree.h"
  3029. + 
  3030. + struct attribute {
  3031. +   tree ident;
  3032. +   int  saveds : 1,
  3033. +        interrupt : 1;
  3034. + };
  3035. + 
  3036. + 
  3037. + static struct attribute *a_tab = 0;
  3038. + static int a_index, a_size;
  3039. + 
  3040. + void
  3041. + add_attr_entry (attr)
  3042. +     struct attribute *attr;
  3043. + {
  3044. +   if (! a_tab)
  3045. +     {
  3046. +       a_size = 10;
  3047. +       a_index = 0;
  3048. +       a_tab  = (struct attribute *) xmalloc (a_size * sizeof (struct attribute));
  3049. +     }
  3050. + 
  3051. +   if (a_index == a_size)
  3052. +     {
  3053. +       a_size <<= 1;
  3054. +       a_tab = (struct attribute *) xrealloc (a_tab, a_size * sizeof (struct attribute));
  3055. +     }
  3056. + 
  3057. +   a_tab[a_index++] = *attr;
  3058. + }
  3059. + 
  3060. + 
  3061. + void
  3062. + attr_do_saveds (function_ident)
  3063. +       tree function_ident;
  3064. + {
  3065. +   struct attribute attr, *a;
  3066. +   int i;
  3067. + 
  3068. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  3069. +     if (a->ident == function_ident)
  3070. +       {
  3071. +     a->saveds = 1;
  3072. +     return;
  3073. +       }
  3074. + 
  3075. +   /* create a new entry for this function */
  3076. +   attr.ident     = function_ident;
  3077. +   attr.saveds    = 1;
  3078. +   attr.interrupt = 0;
  3079. +   add_attr_entry (&attr);
  3080. + }
  3081. + 
  3082. + void
  3083. + attr_do_interrupt (function_ident)
  3084. +     tree function_ident;
  3085. + {
  3086. +   struct attribute attr, *a;
  3087. +   int i;
  3088. + 
  3089. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  3090. +     if (a->ident == function_ident)
  3091. +       {
  3092. +     /* __interrupt implies __saveds */
  3093. +     a->saveds    = 1;
  3094. +     a->interrupt = 1;
  3095. +     return;
  3096. +       }
  3097. + 
  3098. +   /* create a new entry for this function */
  3099. +   attr.ident     = function_ident;
  3100. +   attr.saveds     = 1;
  3101. +   attr.interrupt = 1;
  3102. +   add_attr_entry (&attr);
  3103. + }
  3104. + 
  3105. + int
  3106. + attr_does_saveds (function_name)
  3107. +     char *function_name;
  3108. + {
  3109. +   tree ident = get_identifier (function_name);
  3110. +   struct attribute *attr;
  3111. +   int i;
  3112. +   
  3113. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  3114. +     if (attr->ident == ident)
  3115. +       return attr->saveds;
  3116. + 
  3117. +   return 0;
  3118. + }
  3119. + 
  3120. + int
  3121. + attr_does_interrupt (function_name)
  3122. +     char *function_name;
  3123. + {
  3124. +   tree ident = get_identifier (function_name);
  3125. +   struct attribute *attr;
  3126. +   int i;
  3127. +   
  3128. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  3129. +     if (attr->ident == ident)
  3130. +       return attr->interrupt;
  3131. + 
  3132. +   return 0;
  3133. + }
  3134. + 
  3135. + #endif
  3136. diff -rcP gcc-2.4.5-fsf/config/m68k/amigados.h gcc-2.4.5-amiga/config/m68k/amigados.h
  3137. *** gcc-2.4.5-fsf/config/m68k/amigados.h
  3138. --- gcc-2.4.5-amiga/config/m68k/amigados.h    Tue Sep  7 18:07:09 1993
  3139. ***************
  3140. *** 0 ****
  3141. --- 1,399 ----
  3142. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  3143. +    Copyright (C) 1992 Free Software Foundation, Inc.
  3144. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  3145. + 
  3146. + This file is part of GNU CC.
  3147. + 
  3148. + GNU CC is free software; you can redistribute it and/or modify
  3149. + it under the terms of the GNU General Public License as published by
  3150. + the Free Software Foundation; either version 2, or (at your option)
  3151. + any later version.
  3152. + 
  3153. + GNU CC is distributed in the hope that it will be useful,
  3154. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  3155. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3156. + GNU General Public License for more details.
  3157. + 
  3158. + You should have received a copy of the GNU General Public License
  3159. + along with GNU CC; see the file COPYING.  If not, write to
  3160. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3161. + 
  3162. + #include "m68k/m68k.h"
  3163. + 
  3164. + /* See m68k.h for bits in TARGET_DEFAULT.
  3165. +    0 means 68000, no hardware fpu (68881/68882/68040).
  3166. +    7 means 68020 (or higher) with hardware fpu.  */
  3167. + 
  3168. + #ifndef TARGET_DEFAULT
  3169. + #define TARGET_DEFAULT 0
  3170. + #endif
  3171. + 
  3172. + /* Define __HAVE_68881__ in preprocessor according to the -m flags.
  3173. +    This will control the use of inline 68881 insns in certain macros.
  3174. +    Also inform the program which CPU this is for.  */
  3175. + 
  3176. + #if TARGET_DEFAULT & 02
  3177. + 
  3178. + /* -m68881 is the default */
  3179. + #define CPP_SPEC \
  3180. + "%{!msoft-float:-D__HAVE_68881__ }\
  3181. + %{!ansi:%{m68000:-Dmc68010}%{mc68000:-Dmc68010}%{!mc68000:%{!m68000:-Dmc68020}}}"
  3182. + 
  3183. + #else
  3184. + 
  3185. + /* -msoft-float is the default, assume -mc68000 as well */
  3186. + #define CPP_SPEC \
  3187. + "%{m68881:-D__HAVE_68881__ }\
  3188. + %{!ansi:%{m68020:-Dmc68020}%{mc68020:-Dmc68020}%{!mc68020:%{!m68020:-Dmc68010}}}"
  3189. + 
  3190. + /* Don't try using XFmode since we don't have appropriate runtime software
  3191. +    support.  */
  3192. + #undef LONG_DOUBLE_TYPE_SIZE
  3193. + #define LONG_DOUBLE_TYPE_SIZE 64
  3194. + 
  3195. + #endif
  3196. + 
  3197. + /* -m68000 requires special flags to the assembler.  */
  3198. + 
  3199. + #if TARGET_DEFAULT & 01
  3200. + 
  3201. + #define ASM_SPEC \
  3202. +  "%{m68000:-mc68010}%{mc68000:-mc68010}%{!mc68000:%{!m68000:-mc68020}} %{msmall-code:-l} "
  3203. + 
  3204. + #else
  3205. + 
  3206. + #define ASM_SPEC \
  3207. +  "%{m68020:-mc68020}%{mc68020:-mc68020}%{!mc68020:%{!m68020:-mc68010}} %{msmall-code:-l} "
  3208. + 
  3209. + #endif
  3210. + 
  3211. + /* amiga/amigados are the new "standard" defines for the Amiga, MCH_AMIGA
  3212. +  * was used before and is included for compatibility reasons */
  3213. + 
  3214. + #define CPP_PREDEFINES "-Dmc68000 -Damiga -Damigados -DMCH_AMIGA -DAMIGA"
  3215. + 
  3216. + /* Chose the right startup file, depending on whether we use base relative code,
  3217. +    base relative code with automatic relocation (-resident), or plain crt0.o. 
  3218. +   
  3219. +    Profiling is currently only available for plain startup.
  3220. +    mcrt0.o does not (yet) exist. */
  3221. + 
  3222. + #define STARTFILE_SPEC                    \
  3223. +   "%{resident:%{!fbaserel:-L gcc:blib }}%{fbaserel:-L gcc:blib }\
  3224. + %{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}}}}"
  3225. + 
  3226. + 
  3227. + #define LIB_SPEC "%{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}"
  3228. + 
  3229. + /* if debugging, tell the linker to output amiga-hunk symbols *and*
  3230. +    a BSD compatible debug hunk (which will probably change in the future, it's not
  3231. +    tremendously useful in its current state). */
  3232. + 
  3233. + #define LINK_SPEC "%{g:-amiga-debug-hunk} %{fbaserel:-databss-together} %{resident:-databss-together -datadata-reloc} "
  3234. + 
  3235. + #define CC1_SPEC "%{resident:-fbaserel} "
  3236. + 
  3237. + #define CC1PLUS_SPEC "%{resident:-fbaserel} "
  3238. + 
  3239. + /* Omit frame pointer at high optimization levels. (This doesn't hurt, since
  3240. +    GDB doesn't work under AmigaDOS at the moment anyway..) */
  3241. +   
  3242. + #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
  3243. + {                                  \
  3244. +   if (OPTIMIZE >= 2)                         \
  3245. +     flag_omit_frame_pointer = 1;                \
  3246. + }
  3247. + 
  3248. + /* provide a dummy entry for the small-code switch. This is currently only
  3249. +    needed by the assembler (explanations: m68k.h), but will be used by cc1
  3250. +    to output 16bit pc-relative code later. */
  3251. + 
  3252. + #undef TARGET_SWITCHES
  3253. + #define TARGET_SWITCHES  \
  3254. +   { { "68020", 5},                \
  3255. +     { "c68020", 5},                \
  3256. +     { "68881", 2},                \
  3257. +     { "bitfield", 4},                \
  3258. +     { "68000", -5},                \
  3259. +     { "c68000", -5},                \
  3260. +     { "soft-float", -0102},            \
  3261. +     { "nobitfield", -4},            \
  3262. +     { "rtd", 8},                \
  3263. +     { "nortd", -8},                \
  3264. +     { "short", 040},                \
  3265. +     { "noshort", -040},                \
  3266. +     { "fpa", 0100},                \
  3267. +     { "nofpa", -0100},                \
  3268. +     { "sky", 0200},                \
  3269. +     { "nosky", -0200},                \
  3270. +     { "68040", 0407},                \
  3271. +     { "68030", -01400},                \
  3272. +     { "68030", 7},                \
  3273. +     { "68040-only", 01000},            \
  3274. +     { "small-code", 0 },            \
  3275. +     { "", TARGET_DEFAULT}}
  3276. + 
  3277. + /* Every structure or union's size must be a multiple of 2 bytes.  */
  3278. + 
  3279. + #define STRUCTURE_SIZE_BOUNDARY 16
  3280. + 
  3281. + /* This is (almost;-)) BSD, so it wants DBX format.  */
  3282. + 
  3283. + #define DBX_DEBUGGING_INFO
  3284. + 
  3285. + /* Allow folding division by zero.  */
  3286. + #define REAL_INFINITY
  3287. + 
  3288. + #ifdef This_Was_Marcus_Wild_Modifications
  3289. + /* This is how to output an assembler line defining a `double' constant.  */
  3290. + 
  3291. + #undef ASM_OUTPUT_DOUBLE
  3292. + #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                    \
  3293. +   {                                    \
  3294. +     if (REAL_VALUE_ISINF (VALUE))                    \
  3295. +       fprintf (FILE, "\t.double 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  3296. +     else if (isnan (VALUE))                        \
  3297. +       {                                    \
  3298. +     union { double d; long l[2];} t;                \
  3299. +     t.d = (VALUE);                            \
  3300. +     fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", t.l[0], t.l[1]); \
  3301. +       }                                    \
  3302. +     else                                \
  3303. +       fprintf (FILE, "\t.double 0r%.17g\n", VALUE);            \
  3304. +   }
  3305. + 
  3306. + /* This is how to output an assembler line defining a `float' constant.  */
  3307. + 
  3308. + #undef ASM_OUTPUT_FLOAT
  3309. + #define ASM_OUTPUT_FLOAT(FILE,VALUE)                    \
  3310. +   {                                    \
  3311. +     if (REAL_VALUE_ISINF (VALUE))                    \
  3312. +       fprintf (FILE, "\t.single 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  3313. +     else if (isnan (VALUE))                        \
  3314. +       {                                    \
  3315. +     union { float f; long l;} t;                    \
  3316. +     t.f = (VALUE);                            \
  3317. +     fprintf (FILE, "\t.long 0x%lx\n", t.l);                \
  3318. +       }                                    \
  3319. +     else                                \
  3320. +       fprintf (FILE, "\t.single 0r%.9g\n", VALUE);            \
  3321. +   }
  3322. + 
  3323. + /* This is how to output an assembler lines defining floating operands.
  3324. +    There's no way to output a NaN's fraction, so we lose it.  */
  3325. +   
  3326. + #undef ASM_OUTPUT_FLOAT_OPERAND
  3327. + #define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE)                \
  3328. +  do {                                \
  3329. +       if (CODE == 'f')                        \
  3330. +         {                            \
  3331. +           (REAL_VALUE_ISINF ((VALUE))                        \
  3332. +            ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  3333. +            : (VALUE) == -0.0                            \
  3334. +            ? asm_fprintf (FILE, "%I0r-0.0")                    \
  3335. +            : asm_fprintf (FILE, "%I0r%.9g", (VALUE))) \
  3336. +         } else {                                        \
  3337. +           long l;                        \
  3338. +           REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);        \
  3339. +           if (sizeof (int) == sizeof (long))            \
  3340. +             asm_fprintf ((FILE), "%I0x%x", l);            \
  3341. +           else                            \
  3342. +             asm_fprintf ((FILE), "%I0x%lx", l);            \
  3343. +         }                            \
  3344. +      } while (0)
  3345. + 
  3346. + #undef ASM_OUTPUT_DOUBLE_OPERAND
  3347. + #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                \
  3348. +   (REAL_VALUE_ISINF ((VALUE))                        \
  3349. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  3350. +    : (VALUE) == -0.0                            \
  3351. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  3352. +    : asm_fprintf (FILE, "%I0r%.17g", (VALUE)))
  3353. + 
  3354. + 
  3355. + #endif /* Marcus_Wild */
  3356. + 
  3357. + /* use A5 as framepointer instead of A6, this makes A6 available as a
  3358. +    general purpose register, and can thus be used without problems in
  3359. +    direct library calls. */
  3360. + 
  3361. + #undef FRAME_POINTER_REGNUM
  3362. + #define FRAME_POINTER_REGNUM 13
  3363. + #undef ARG_POINTER_REGNUM
  3364. + #define ARG_POINTER_REGNUM 13
  3365. + 
  3366. + /* we use A4 for this, not A5, which is the framepointer */
  3367. + #undef PIC_OFFSET_TABLE_REGNUM
  3368. + #define PIC_OFFSET_TABLE_REGNUM 12
  3369. + 
  3370. + /* setup a default shell return value for those (gazillion..) programs that
  3371. +    (inspite of ANSI-C) declare main() to be void (or even VOID...) and thus
  3372. +    cause the shell to randomly caugh upon executing such programs (contrary
  3373. +    to Unix, AmigaDOS scripts are terminated with an error if a program returns
  3374. +    with an error code above the `error' or even `failure' level
  3375. +    (which is configurable with the FAILAT command) */
  3376. + 
  3377. + #define DEFAULT_MAIN_RETURN c_expand_return (integer_zero_node)
  3378. + 
  3379. + /* we do have an ansi-compliant c-library ;-) */
  3380. + #define HAVE_VPRINTF
  3381. + #define HAVE_VFPRINTF
  3382. + #define HAVE_PUTENV
  3383. + #define HAVE_STRERROR
  3384. + #define HAVE_ATEXIT
  3385. + 
  3386. + /* given that symbolic_operand(X), return TRUE if no special
  3387. +    base relative relocation is necessary */
  3388. + 
  3389. + #define LEGITIMATE_BASEREL_OPERAND_P(X) \
  3390. +   (flag_pic >= 3 && read_only_operand (X))
  3391. + 
  3392. + #undef LEGITIMATE_PIC_OPERAND_P
  3393. + #define LEGITIMATE_PIC_OPERAND_P(X) \
  3394. +   (! symbolic_operand (X, VOIDmode) || LEGITIMATE_BASEREL_OPERAND_P (X))
  3395. + 
  3396. + 
  3397. + /* Define this macro if references to a symbol must be treated
  3398. +    differently depending on something about the variable or
  3399. +    function named by the symbol (such as what section it is in).
  3400. + 
  3401. +    The macro definition, if any, is executed immediately after the
  3402. +    rtl for DECL or other node is created.
  3403. +    The value of the rtl will be a `mem' whose address is a
  3404. +    `symbol_ref'.
  3405. + 
  3406. +    The usual thing for this macro to do is to a flag in the
  3407. +    `symbol_ref' (such as `SYMBOL_REF_FLAG') or to store a modified
  3408. +    name string in the `symbol_ref' (if one bit is not enough
  3409. +    information).
  3410. + 
  3411. +    On the Amiga we use this to indicate if a symbol is in text or
  3412. +    data space.  */
  3413. + 
  3414. + #define ENCODE_SECTION_INFO(DECL)\
  3415. + do                                    \
  3416. +   {                                    \
  3417. +     if (TREE_CODE (DECL) == FUNCTION_DECL)                \
  3418. +       SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1;            \
  3419. +     else                                \
  3420. +       {                                    \
  3421. +     rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'        \
  3422. +            ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));        \
  3423. +     if (RTX_UNCHANGING_P (rtl) && !MEM_VOLATILE_P (rtl))        \
  3424. +       SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;                \
  3425. +       }                                    \
  3426. +   }                                    \
  3427. + while (0)
  3428. + 
  3429. + #undef SELECT_RTX_SECTION
  3430. + #define SELECT_RTX_SECTION(MODE, X) readonly_data_section ();
  3431. + 
  3432. + /* according to varasm.c, RELOC referrs *only* to whether constants (!)
  3433. +    are addressed by address. This doesn't matter in baserelative code,
  3434. +    so we allow (inspite of flag_pic) readonly_data_section() in that
  3435. +    case */
  3436. + 
  3437. + #undef SELECT_SECTION
  3438. + #define SELECT_SECTION(DECL, RELOC)                    \
  3439. + {                                    \
  3440. +   if (TREE_CODE (DECL) == STRING_CST)                    \
  3441. +     {                                    \
  3442. +       if (! flag_writable_strings)                    \
  3443. +     readonly_data_section ();                    \
  3444. +       else                                \
  3445. +     data_section ();                        \
  3446. +     }                                    \
  3447. +   else if (TREE_CODE (DECL) == VAR_DECL)                \
  3448. +     {                                    \
  3449. +       if ((flag_pic && flag_pic < 3 && RELOC)                \
  3450. +       || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL))        \
  3451. +     data_section ();                        \
  3452. +       else                                \
  3453. +     readonly_data_section ();                    \
  3454. +     }                                    \
  3455. +   else                                    \
  3456. +     readonly_data_section ();                        \
  3457. + }
  3458. + 
  3459. + 
  3460. + 
  3461. + #if not_yet_working
  3462. + 
  3463. + /* starting support for amiga specific keywords
  3464. +  * --------------------------------------------
  3465. +  */
  3466. + 
  3467. + /* validate attributes that don't take a parameter. Currently we support
  3468. +  * __attribute__ (saveds) and __attribute__ (interrupt)
  3469. +  */
  3470. + #define HANDLE_ATTRIBUTE0(attr) \
  3471. +   (strcmp(attr, "saveds") != 0 && strcmp(attr, "interrupt") != 0)
  3472. + 
  3473. + /* (c-common.c)
  3474. +  * install additional attributes
  3475. +  */
  3476. + #define HANDLE_EXTRA_ATTRIBUTES(a)                         \
  3477. +   if (TREE_VALUE (a) != 0                            \
  3478. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  3479. +       && TREE_VALUE (a) == get_identifier ("saveds"))                \
  3480. +     {                                        \
  3481. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  3482. +         {                                    \
  3483. +           warning_with_decl (decl,                        \
  3484. +               "saveds attribute specified for non-function `%s'");        \
  3485. +       return;                                \
  3486. +         }                                    \
  3487. +                                               \
  3488. +       attr_do_saveds (DECL_NAME (decl));                    \
  3489. +     }                                        \
  3490. +   else if (TREE_VALUE (a) != 0                            \
  3491. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  3492. +       && TREE_VALUE (a) == get_identifier ("interrupt"))            \
  3493. +     {                                        \
  3494. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  3495. +         {                                    \
  3496. +           warning_with_decl (decl,                        \
  3497. +               "saveds attribute specified for non-function `%s'");        \
  3498. +       return;                                \
  3499. +         }                                    \
  3500. +                                               \
  3501. +       attr_do_interrupt (DECL_NAME (decl));                    \
  3502. +     }                                        \
  3503. + 
  3504. + 
  3505. + #define PROLOGUE_EXTRA_SAVE(mask)                        \
  3506. +   { extern char *current_function_name;                        \
  3507. +     /* saveds makes the function preserve d1/a0/a1 as well */            \
  3508. +     if (attr_does_saveds (current_function_name))                \
  3509. +       mask |= 0x40c0; }                                \
  3510. + 
  3511. + 
  3512. + #define EPILOGUE_EXTRA_RESTORE(mask, nregs)                    \
  3513. +   { extern char *current_function_name;                        \
  3514. +     /* restore those extra registers */                        \
  3515. +     if (attr_does_saveds (current_function_name))                \
  3516. +       {                                        \
  3517. +     mask |= 0x0302;                                \
  3518. +     nregs += 3;                                \
  3519. +       } }                                    \
  3520. + 
  3521. + 
  3522. + #define EPILOGUE_EXTRA_BARRIER_KLUDGE(stream)                    \
  3523. +   { extern char *current_function_name;                        \
  3524. +     /* PLEASE Help! how is this done cleaner?? */                \
  3525. +     if (attr_does_saveds (current_function_name))                \
  3526. +       {                                        \
  3527. +     fprintf (stderr,                             \
  3528. +          "warning: couldn't cleanup `saveds'-stack in `%s'.\n");    \
  3529. +     fprintf (stderr,                            \
  3530. +          "         this is only ok, if the function never returns!\n");    \
  3531. +       }    }                                    \
  3532. +         
  3533. + 
  3534. + #define EPILOGUE_EXTRA_TEST(stream)                        \
  3535. +   { extern char *current_function_name;                        \
  3536. +     /* with the interrupt-attribute, we have to set the cc before rts */    \
  3537. +     if (attr_does_interrupt (current_function_name))                \
  3538. +       asm_fprintf (stream, "\ttstl %s\n", reg_names[0]); }            \
  3539. + 
  3540. + #endif
  3541. diff -rcP gcc-2.4.5-fsf/config/m68k/m68k.c gcc-2.4.5-amiga/config/m68k/m68k.c
  3542. *** gcc-2.4.5-fsf/config/m68k/m68k.c    Mon May 10 05:15:04 1993
  3543. --- gcc-2.4.5-amiga/config/m68k/m68k.c    Mon Sep  6 02:35:44 1993
  3544. ***************
  3545. *** 60,66 ****
  3546.      
  3547.   finalize_pic ()
  3548.   {
  3549. !   if (flag_pic && current_function_uses_pic_offset_table)
  3550.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  3551.   }
  3552.   
  3553. --- 60,66 ----
  3554.      
  3555.   finalize_pic ()
  3556.   {
  3557. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  3558.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  3559.   }
  3560.   
  3561. ***************
  3562. *** 180,185 ****
  3563. --- 180,188 ----
  3564.         mask &= ~ (1 << (15 - FRAME_POINTER_REGNUM));
  3565.         num_saved_regs--;
  3566.       }
  3567. + #ifdef PROLOGUE_EXTRA_SAVE
  3568. +   PROLOGUE_EXTRA_SAVE (mask);
  3569. + #endif
  3570.   
  3571.   #if NEED_PROBE
  3572.     fprintf (stream, "\ttstl sp@(%d)\n", NEED_PROBE - num_saved_regs * 4);
  3573. ***************
  3574. *** 213,219 ****
  3575.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  3576.   #endif
  3577.       }
  3578. !   if (flag_pic && current_function_uses_pic_offset_table)
  3579.       {
  3580.   #ifdef MOTOROLA
  3581.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  3582. --- 216,222 ----
  3583.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  3584.   #endif
  3585.       }
  3586. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  3587.       {
  3588.   #ifdef MOTOROLA
  3589.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  3590. ***************
  3591. *** 278,283 ****
  3592. --- 281,289 ----
  3593.         /* Output just a no-op so that debuggers don't get confused
  3594.        about which function the pc is in at this address.  */
  3595.         asm_fprintf (stream, "\tnop\n");
  3596. + #ifdef EPILOGUE_EXTRA_BARRIER_KLUDGE
  3597. +       EPILOGUE_EXTRA_BARRIER_KLUDGE(stream);
  3598. + #endif
  3599.         return;
  3600.       }
  3601.   
  3602. ***************
  3603. *** 308,313 ****
  3604. --- 314,322 ----
  3605.           nregs++;
  3606.       mask |= 1 << regno;
  3607.         }
  3608. + #ifdef EPILOGUE_EXTRA_RESTORE
  3609. +   EPILOGUE_EXTRA_RESTORE(mask, nregs);
  3610. + #endif
  3611.     offset = foffset + nregs * 4;
  3612.     if (offset + fsize >= 0x8000
  3613.         && frame_pointer_needed
  3614. ***************
  3615. *** 510,515 ****
  3616. --- 519,527 ----
  3617.   #endif
  3618.       }
  3619.       }
  3620. + #ifdef EPILOGUE_EXTRA_TEST
  3621. +   EPILOGUE_EXTRA_TEST(stream);
  3622. + #endif
  3623.     if (current_function_pops_args)
  3624.       asm_fprintf (stream, "\trtd %0I%d\n", current_function_pops_args);
  3625.     else
  3626. ***************
  3627. *** 800,814 ****
  3628.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  3629.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  3630.       {
  3631.         if (reg == 0)
  3632.       abort ();
  3633.   
  3634. !       pic_ref = gen_rtx (MEM, Pmode,
  3635. !              gen_rtx (PLUS, Pmode,
  3636. !                   pic_offset_table_rtx, orig));
  3637.         current_function_uses_pic_offset_table = 1;
  3638.         RTX_UNCHANGING_P (pic_ref) = 1;
  3639.         emit_move_insn (reg, pic_ref);
  3640.         return reg;
  3641.       }
  3642.     else if (GET_CODE (orig) == CONST)
  3643. --- 812,836 ----
  3644.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  3645.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  3646.       {
  3647. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  3648. +   if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  3649. +     return orig;
  3650. + #endif
  3651. + 
  3652.         if (reg == 0)
  3653.       abort ();
  3654.   
  3655. !       if (flag_pic >= 3)
  3656. !     pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  3657. !       else
  3658. !         pic_ref = gen_rtx (MEM, Pmode,
  3659. !                gen_rtx (PLUS, Pmode,
  3660. !                     pic_offset_table_rtx, orig));
  3661. ! 
  3662.         current_function_uses_pic_offset_table = 1;
  3663.         RTX_UNCHANGING_P (pic_ref) = 1;
  3664.         emit_move_insn (reg, pic_ref);
  3665. + 
  3666.         return reg;
  3667.       }
  3668.     else if (GET_CODE (orig) == CONST)
  3669. ***************
  3670. *** 837,842 ****
  3671. --- 859,865 ----
  3672.         pic_ref = gen_rtx (PLUS, Pmode, base, orig);
  3673.         /* Likewise, should we set special REG_NOTEs here?  */
  3674.       }
  3675. + 
  3676.     return pic_ref;
  3677.   }
  3678.   
  3679. ***************
  3680. *** 2100,2105 ****
  3681. --- 2123,2132 ----
  3682.                 fprintf (file, ":w");
  3683.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  3684.                 fprintf (file, ":l");
  3685. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  3686. +               fprintf (file, ":W");
  3687. +             if ((flag_pic == 4) && (breg == pic_offset_table_rtx))
  3688. +               fprintf (file, ":L");
  3689.             }
  3690.           if (addr != 0 && ireg != 0)
  3691.             {
  3692. diff -rcP gcc-2.4.5-fsf/config/m68k/m68k.h gcc-2.4.5-amiga/config/m68k/m68k.h
  3693. *** gcc-2.4.5-fsf/config/m68k/m68k.h    Fri Jun 18 21:58:01 1993
  3694. --- gcc-2.4.5-amiga/config/m68k/m68k.h    Mon Sep  6 02:35:46 1993
  3695. ***************
  3696. *** 338,346 ****
  3697.   #ifndef SUPPORT_SUN_FPA
  3698.   
  3699.   #define CONDITIONAL_REGISTER_USAGE \
  3700. ! {                                               \
  3701. !   if (flag_pic)                                 \
  3702. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  3703.   }
  3704.   
  3705.   #else /* defined SUPPORT_SUN_FPA */
  3706. --- 338,349 ----
  3707.   #ifndef SUPPORT_SUN_FPA
  3708.   
  3709.   #define CONDITIONAL_REGISTER_USAGE \
  3710. ! {                                                \
  3711. !   if (flag_pic)                                  \
  3712. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;     \
  3713. !   /* prevent saving/restoring of the base reg */ \
  3714. !   if (flag_pic == 3)                 \
  3715. !     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  3716.   }
  3717.   
  3718.   #else /* defined SUPPORT_SUN_FPA */
  3719. diff -rcP gcc-2.4.5-fsf/config/m68k/m68k.md gcc-2.4.5-amiga/config/m68k/m68k.md
  3720. *** gcc-2.4.5-fsf/config/m68k/m68k.md    Sat Jun 12 20:22:57 1993
  3721. --- gcc-2.4.5-amiga/config/m68k/m68k.md    Mon Sep  6 02:35:51 1993
  3722. ***************
  3723. *** 704,716 ****
  3724.   {
  3725.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  3726.       {
  3727. !       /* The source is an address which requires PIC relocation.  
  3728. !          Call legitimize_pic_address with the source, mode, and a relocation
  3729. !          register (a new pseudo, or the final destination if reload_in_progress
  3730. !          is set).   Then fall through normally */
  3731. !       extern rtx legitimize_pic_address();
  3732. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  3733. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  3734.       }
  3735.   }")
  3736.   
  3737. --- 704,721 ----
  3738.   {
  3739.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  3740.       {
  3741. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  3742. !       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  3743. ! #endif
  3744. !       {
  3745. !         /* The source is an address which requires PIC relocation.  
  3746. !            Call legitimize_pic_address with the source, mode, and a relocation
  3747. !            register (a new pseudo, or the final destination if reload_in_progress
  3748. !            is set).   Then fall through normally */
  3749. !         extern rtx legitimize_pic_address();
  3750. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  3751. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  3752. !       }
  3753.       }
  3754.   }")
  3755.   
  3756. ***************
  3757. *** 1878,1885 ****
  3758.   
  3759.         /* These insns can result from reloads to access
  3760.        stack slots over 64k from the frame pointer.  */
  3761. !       if (GET_CODE (operands[2]) == CONST_INT
  3762. !       && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000)
  3763.           return \"move%.l %2,%0\;add%.l %1,%0\";
  3764.   #ifdef SGS
  3765.         if (GET_CODE (operands[2]) == REG)
  3766. --- 1883,1891 ----
  3767.   
  3768.         /* These insns can result from reloads to access
  3769.        stack slots over 64k from the frame pointer.  */
  3770. !       if (((GET_CODE (operands[2]) == CONST_INT
  3771. !        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  3772. !       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  3773.           return \"move%.l %2,%0\;add%.l %1,%0\";
  3774.   #ifdef SGS
  3775.         if (GET_CODE (operands[2]) == REG)
  3776. ***************
  3777. *** 4823,4829 ****
  3778.     ""
  3779.     "
  3780.   {
  3781. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  3782.   #ifdef MOTOROLA
  3783.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  3784.   #else
  3785. --- 4829,4835 ----
  3786.     ""
  3787.     "
  3788.   {
  3789. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  3790.   #ifdef MOTOROLA
  3791.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  3792.   #else
  3793. ***************
  3794. *** 4838,4844 ****
  3795.        (match_operand:SI 1 "general_operand" "g"))]
  3796.     ;; Operand 1 not really used on the m68000.
  3797.   
  3798. !   "! flag_pic"
  3799.     "*
  3800.   #ifdef MOTOROLA
  3801.     return \"jsr %0\";
  3802. --- 4844,4850 ----
  3803.        (match_operand:SI 1 "general_operand" "g"))]
  3804.     ;; Operand 1 not really used on the m68000.
  3805.   
  3806. !   "(! flag_pic || flag_pic >= 3)"
  3807.     "*
  3808.   #ifdef MOTOROLA
  3809.     return \"jsr %0\";
  3810. ***************
  3811. *** 4853,4859 ****
  3812.        (match_operand:SI 1 "general_operand" "g"))]
  3813.     ;; Operand 1 not really used on the m68000.
  3814.   
  3815. !   "flag_pic"
  3816.     "*
  3817.   #ifdef MOTOROLA
  3818.     if (GET_CODE (operands[0]) == MEM 
  3819. --- 4859,4865 ----
  3820.        (match_operand:SI 1 "general_operand" "g"))]
  3821.     ;; Operand 1 not really used on the m68000.
  3822.   
  3823. !   "(flag_pic && flag_pic < 3)"
  3824.     "*
  3825.   #ifdef MOTOROLA
  3826.     if (GET_CODE (operands[0]) == MEM 
  3827. ***************
  3828. *** 4874,4880 ****
  3829.     ""
  3830.     "
  3831.   {
  3832. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  3833.   #ifdef MOTOROLA
  3834.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  3835.   #else
  3836. --- 4880,4886 ----
  3837.     ""
  3838.     "
  3839.   {
  3840. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  3841.   #ifdef MOTOROLA
  3842.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  3843.   #else
  3844. ***************
  3845. *** 4889,4895 ****
  3846.       (call (match_operand:QI 1 "memory_operand" "o")
  3847.             (match_operand:SI 2 "general_operand" "g")))]
  3848.     ;; Operand 2 not really used on the m68000.
  3849. !   "! flag_pic"
  3850.     "*
  3851.   #ifdef MOTOROLA
  3852.     return \"jsr %1\";
  3853. --- 4895,4901 ----
  3854.       (call (match_operand:QI 1 "memory_operand" "o")
  3855.             (match_operand:SI 2 "general_operand" "g")))]
  3856.     ;; Operand 2 not really used on the m68000.
  3857. !   "(! flag_pic || flag_pic >= 3)"
  3858.     "*
  3859.   #ifdef MOTOROLA
  3860.     return \"jsr %1\";
  3861. ***************
  3862. *** 4904,4910 ****
  3863.       (call (match_operand:QI 1 "memory_operand" "o")
  3864.             (match_operand:SI 2 "general_operand" "g")))]
  3865.     ;; Operand 2 not really used on the m68000.
  3866. !   "flag_pic"
  3867.     "*
  3868.   #ifdef MOTOROLA
  3869.     if (GET_CODE (operands[1]) == MEM 
  3870. --- 4910,4916 ----
  3871.       (call (match_operand:QI 1 "memory_operand" "o")
  3872.             (match_operand:SI 2 "general_operand" "g")))]
  3873.     ;; Operand 2 not really used on the m68000.
  3874. !   "(flag_pic && flag_pic < 3)"
  3875.     "*
  3876.   #ifdef MOTOROLA
  3877.     if (GET_CODE (operands[1]) == MEM 
  3878. diff -rcP gcc-2.4.5-fsf/config/m68k/t-amigados gcc-2.4.5-amiga/config/m68k/t-amigados
  3879. *** gcc-2.4.5-fsf/config/m68k/t-amigados
  3880. --- gcc-2.4.5-amiga/config/m68k/t-amigados    Tue Sep  7 18:33:22 1993
  3881. ***************
  3882. *** 0 ****
  3883. --- 1,93 ----
  3884. + # Compilation rules for target amigados. We generate two additional things:
  3885. + #
  3886. + # libngcc.a: A `normal' library, the automatically generated libgcc.a is
  3887. + #            base relative (which is the right thing, since it's used to
  3888. + #         generate further generations of compilers).
  3889. + #
  3890. + # gccv:         A forking gcc instead of one calling ssytem. This makes it less
  3891. + #         system conformant (can't ^C it when started from make), while
  3892. + #         providing increased functionality (-pipe option).
  3893. + 
  3894. + # the provided file is POSIX compliant
  3895. + LIMITS_H =
  3896. + 
  3897. + # we don't need a libgcc1, it's all in ixemul.library
  3898. + LIBGCC1 = libgcc1.null
  3899. + 
  3900. + # use flags that don't generate base relative objects. So -resident
  3901. + # would be a bad idea..
  3902. + LIBNGCC2_CFLAGS = -O2 $(INTERNAL_CFLAGS) $(CFLAGS) -B./
  3903. + 
  3904. + # The libngcc.a archive is copied into gcc:compilers/amiga/<version>/libgcc.a,
  3905. + # whereas libgcc.a is copied into gcc:blib/libgcc.a, which is searched first
  3906. + # if we're compiling/linking base relative.  Note you can only rebuild crt0.o
  3907. + # if you have the AmigaDOS header files installed.
  3908. + EXTRA_PARTS = libngcc.a crt0.o
  3909. + 
  3910. + # this includes the knowledge that target amigados doesn't need 
  3911. + # libgcc1.a at all
  3912. + libngcc.a: libgcc2.c libgcc2.ready $(CONFIG_H) $(LIB2FUNCS_EXTRA) \
  3913. +    longlong.h gbl-ctors.h config.status
  3914. + # Actually build it in tmplibngcc.a, then rename at end,
  3915. + # so that libngcc.a itself remains nonexistent if compilation is aborted.
  3916. +     -rm -f tmplibngcc.a
  3917. + # -e causes any failing command to make this rule fail.
  3918. + # -e doesn't work in certain shells, so we test $$? as well.
  3919. +     set -e; \
  3920. +     for name in $(LIB2FUNCS); \
  3921. +     do \
  3922. +       echo $${name}; \
  3923. +       $(GCC_FOR_TARGET) $(LIBNGCC2_CFLAGS) $(INCLUDES) -c -DL$${name} \
  3924. +           $(srcdir)/libgcc2.c -o $${name}.o; \
  3925. +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  3926. +       $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  3927. +       rm -f $${name}.o; \
  3928. +     done
  3929. + # Some shells crash when a loop has no items.
  3930. + # So make sure there is always at least one--`..'.
  3931. + # Then ignore it.
  3932. + # We don't use -e here because there are if statements
  3933. + # that should not make the command give up when the if condition is false.
  3934. + # Instead, we test for failure after each command where it matters.
  3935. +     -for file in .. $(LIB2FUNCS_EXTRA); \
  3936. +     do \
  3937. +       if [ x$${file} != x.. ]; then \
  3938. +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  3939. +         echo $${name}; \
  3940. +         if [ $${name}.asm = $${file} ]; then \
  3941. +           cp $${file} $${name}.s; file=$${name}.s; \
  3942. +           if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  3943. +         else true; fi; \
  3944. +         $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) $(INCLUDES) -c $${file}; \
  3945. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  3946. +         $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  3947. +         rm -f $${name}.[so]; \
  3948. +       else true; \
  3949. +       fi; \
  3950. +     done
  3951. +     mv tmplibngcc.a libngcc.a
  3952. +     ranlib libngcc.a
  3953. + 
  3954. + # The default gcc (xgcc) is not built with -DAMIGADOS_FORK_GCC.  Define
  3955. + # rules that build a version (gccv) that uses vfork() instead of running
  3956. + # a child in a more system conformant way.
  3957. + 
  3958. + EXTRA_PASSES = gccv
  3959. + 
  3960. + gccv: gccv.o version.o $(LIBDEPS)
  3961. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o gccv gccv.o version.o $(LIBS)
  3962. + 
  3963. + gccv.o: gcc.c $(CONFIG_H) gvarargs.h config.status
  3964. +     $(CC) -DAMIGADOS_FORK_GCC $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  3965. +   -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  3966. +   -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
  3967. +   -DDEFAULT_TARGET_MACHINE=\"$(target)\" \
  3968. +   -DTOOLDIR_BASE_PREFIX=\"$(exec_prefix)/\" \
  3969. +   -DTOOLDIR=\"$(tooldir)/\" \
  3970. +   $(MAYBE_TARGET_DEFAULT) \
  3971. +   -c `echo $(srcdir)/gcc.c | sed 's,^\./,,'` -o gccv.o
  3972. + 
  3973. + # Assemble startup file.  Ignore errors that occur since recompilation
  3974. + # requires proprietary Commodore Amiga header files to be available.
  3975. + crt0.o: $(srcdir)/config/m68k/amiga-crt0.c
  3976. +     -$(GCC_FOR_TARGET) -o crt0.o $(srcdir)/config/m68k/amiga-crt0.c
  3977. diff -rcP gcc-2.4.5-fsf/config/m68k/x-amigados gcc-2.4.5-amiga/config/m68k/x-amigados
  3978. *** gcc-2.4.5-fsf/config/m68k/x-amigados
  3979. --- gcc-2.4.5-amiga/config/m68k/x-amigados    Tue Sep  7 15:07:13 1993
  3980. ***************
  3981. *** 0 ****
  3982. --- 1,28 ----
  3983. + # building under amigados requires an already working gcc. You can of course
  3984. + # try to reinvent the wheel, get sun2manx and try to do a crosscompile from a
  3985. + # sun3, like I did some years ago...
  3986. + CC = gcc
  3987. + # if your gcc has not been compiled with -DAMIGADOS_FORK_GCC, then don't use
  3988. + # -pipe! (see also t-amigados !)
  3989. + X_CFLAGS = -O2
  3990. + 
  3991. + prefix = /gcc
  3992. + local_prefix = /gcc
  3993. + exec_prefix = $(prefix)
  3994. + bindir = /gcc/bin
  3995. + libdir = /gcc/lib
  3996. + manext = .0
  3997. + mandir = /gcc/man/man1
  3998. + 
  3999. + # don't compile with debugging, as long as there is no debugger...
  4000. + LIBGCC2_CFLAGS = -O2 $(GCC_CFLAGS)
  4001. + 
  4002. + # we really shouldn't specify CFLAGS from here, but there's no other way
  4003. + # to get rid of the `-g' indoctrinated by Makefile.in...
  4004. + CFLAGS =
  4005. + 
  4006. + RANLIB_TEST = true
  4007. + 
  4008. + # Target to use when installing include directory.  Neither
  4009. + # install-headers-tar or install-headers-cpio work yet.
  4010. + INSTALL_HEADERS_DIR = install-headers-cp
  4011. diff -rcP gcc-2.4.5-fsf/config/m68k/xm-amigados.h gcc-2.4.5-amiga/config/m68k/xm-amigados.h
  4012. *** gcc-2.4.5-fsf/config/m68k/xm-amigados.h
  4013. --- gcc-2.4.5-amiga/config/m68k/xm-amigados.h    Tue Sep  7 18:15:24 1993
  4014. ***************
  4015. *** 0 ****
  4016. --- 1,223 ----
  4017. + /*  Configuration for GNU C-compiler for Commodore Amiga, running AmigaDOS.
  4018. +    Copyright (C) 1992 Free Software Foundation, Inc.
  4019. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  4020. + 
  4021. + This file is part of GNU CC.
  4022. + 
  4023. + GNU CC is free software; you can redistribute it and/or modify
  4024. + it under the terms of the GNU General Public License as published by
  4025. + the Free Software Foundation; either version 2, or (at your option)
  4026. + any later version.
  4027. + 
  4028. + GNU CC is distributed in the hope that it will be useful,
  4029. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  4030. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4031. + GNU General Public License for more details.
  4032. + 
  4033. + You should have received a copy of the GNU General Public License
  4034. + along with GNU CC; see the file COPYING.  If not, write to
  4035. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  4036. + 
  4037. + /* first include the generic header, then modify some parts.. */
  4038. + 
  4039. + #include "m68k/xm-m68k.h"
  4040. + 
  4041. + #undef GCC_INCLUDE_DIR
  4042. + #define GCC_INCLUDE_DIR ":GCC_INCLUDE_DIR is not used under AmigaDOS!:"
  4043. + 
  4044. + /* use this list of header files instead of the Unix'ish default */
  4045. + #define INCLUDE_DEFAULTS \
  4046. + {                                    \
  4047. +   { "gcc:g++-include", 1},                        \
  4048. +   { "gcc:gcc-include", 0}, /* gcc-specific changes to system headers. none currently.. */ \
  4049. +   { "gcc:os-include", 0},  /* here go amiga specific headers */     \
  4050. +   { "gcc:include", 0},     /* here go the usual headers */         \
  4051. +   { 0, 0}                                \
  4052. + }
  4053. + 
  4054. + /* Fork one piped subcommand.  SEARCH_FLAG is the system call to use
  4055. +    (either execv or execvp).  ARGV is the arg vector to use.
  4056. +    NOT_LAST is nonzero if this is not the last subcommand
  4057. +    (i.e. its output should be piped to the next one.)  */
  4058. + 
  4059. + #ifdef AMIGADOS_FORK_GCC
  4060. + 
  4061. + /* the vfork() version. This one has the drawback, that gcc is not 
  4062. +    interruptible when started from make, since ixemul.library doesn't yet
  4063. +    propagate ^C to subprocesses.  To generate this version, define
  4064. +    AMIGADOS_FORK_GCC when compiling gcc.c.  This is not the default. */
  4065. + 
  4066. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  4067. + ({int (*_func)() = (SEARCH_FLAG ? execv : execvp);            \
  4068. +   int _pid;                                \
  4069. +   int _pdes[2];                                \
  4070. +   int _input_desc = last_pipe_input;                    \
  4071. +   int _output_desc = STDOUT_FILE_NO;                    \
  4072. +   int _retries, _sleep_interval, _result;                \
  4073. +                                     \
  4074. +   /* If this isn't the last process, make a pipe for its output,    \
  4075. +      and record it as waiting to be the input to the next process.  */    \
  4076. +                                     \
  4077. +   if (NOT_LAST)                                \
  4078. +     {                                    \
  4079. +       if (pipe (_pdes) < 0)                        \
  4080. +     pfatal_with_name ("pipe");                    \
  4081. +       _output_desc = _pdes[WRITE_PORT];                    \
  4082. +       last_pipe_input = _pdes[READ_PORT];                \
  4083. +     }                                    \
  4084. +   else                                    \
  4085. +     last_pipe_input = STDIN_FILE_NO;                    \
  4086. +                                     \
  4087. +   /* Fork a subprocess; wait and retry if it fails.  */            \
  4088. +   _sleep_interval = 1;                            \
  4089. +   for (_retries = 0; _retries < 4; _retries++)                \
  4090. +     {                                    \
  4091. +       _pid = vfork ();                            \
  4092. +       if (_pid >= 0)                            \
  4093. +     break;                                \
  4094. +       sleep (_sleep_interval);                        \
  4095. +       _sleep_interval *= 2;                        \
  4096. +     }                                    \
  4097. +                                     \
  4098. +   switch (_pid)                                \
  4099. +     {                                    \
  4100. +     case -1:                                \
  4101. +       pfatal_with_name ("vfork");                    \
  4102. +       /* NOTREACHED */                            \
  4103. +       _result = 0;                            \
  4104. +       break;                                \
  4105. +                                     \
  4106. +     case 0: /* child */                            \
  4107. +       /* Move the input and output pipes into place, if nec.  */    \
  4108. +       if (_input_desc != STDIN_FILE_NO)                    \
  4109. +     {                                \
  4110. +       close (STDIN_FILE_NO);                    \
  4111. +       dup (_input_desc);                        \
  4112. +       close (_input_desc);                        \
  4113. +     }                                \
  4114. +       if (_output_desc != STDOUT_FILE_NO)                \
  4115. +     {                                \
  4116. +       close (STDOUT_FILE_NO);                    \
  4117. +       dup (_output_desc);                        \
  4118. +       close (_output_desc);                        \
  4119. +     }                                \
  4120. +                                     \
  4121. +       /* Close the parent's descs that aren't wanted here.  */        \
  4122. +       if (last_pipe_input != STDIN_FILE_NO)                \
  4123. +     close (last_pipe_input);                    \
  4124. +                                     \
  4125. +       /* Exec the program.  */                        \
  4126. +       (*_func) (PROGRAM, ARGV);                        \
  4127. +       perror_exec (PROGRAM);                        \
  4128. +       exit (-1);                            \
  4129. +       /* NOTREACHED */                            \
  4130. +       _result = 0;                            \
  4131. +       break;                                \
  4132. +                                     \
  4133. +     default:                                \
  4134. +       /* In the parent, after forking.                    \
  4135. +      Close the descriptors that we made for this child.  */        \
  4136. +       if (_input_desc != STDIN_FILE_NO)                    \
  4137. +     close (_input_desc);                        \
  4138. +       if (_output_desc != STDOUT_FILE_NO)                \
  4139. +     close (_output_desc);                        \
  4140. +                                     \
  4141. +       /* Return child's process number.  */                \
  4142. +       _result = _pid;                            \
  4143. +       break;                                \
  4144. +     }                                     \
  4145. + _result; })                                \
  4146. + 
  4147. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  4148. +   ({ wait (& STATUS); })
  4149. + 
  4150. + #else
  4151. + 
  4152. + /* This version uses a more or less amigados-conformant way of running a
  4153. +    program (in the context of the parent) and is the default way the
  4154. +    gcc frontend is built. If you want to use -pipe however, you'll have
  4155. +    to use the vfork() version above. */
  4156. + 
  4157. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  4158. + ({char *_argline;                        \
  4159. +   int _arglinelength, _i;                    \
  4160. +                                 \
  4161. +   for (_i = 1, _arglinelength=0; ARGV[_i]; ++_i)        \
  4162. +     _arglinelength += strlen(ARGV[_i]) + 1;            \
  4163. +                                 \
  4164. +   _arglinelength += strlen(PROGRAM) + 1;            \
  4165. +                                 \
  4166. +   if (!(_argline = (char *)alloca(_arglinelength)))         \
  4167. +     pfatal_with_name ("alloca");                \
  4168. +                                 \
  4169. +   strcpy(_argline, PROGRAM);                    \
  4170. +   for (_i = 1; ARGV[_i]; ++_i)                     \
  4171. +     {                                \
  4172. +       strcat(_argline, " ");                    \
  4173. +       strcat(_argline, ARGV[_i]);                \
  4174. +     }                                \
  4175. +                                 \
  4176. +   ssystem(_argline); })                        \
  4177. + 
  4178. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  4179. +   ({ STATUS = COMMAND.pid; })
  4180. + 
  4181. + #endif /* AMIGADOS_FORK_GCC */
  4182. + 
  4183. + /* the following macros are stolen more or less from xm-vms.h ... */
  4184. + 
  4185. + /* This macro is used to help compare filenames in cp-lex.c.
  4186. + 
  4187. +    We also need to make sure that the names are all lower case, because
  4188. +    we must be able to compare filenames to determine if a file implements
  4189. +    a class.  */
  4190. + 
  4191. + #define FILE_NAME_NONDIRECTORY(C)                \
  4192. + ({                                \
  4193. +    char * pnt_ = (C), * pnt1_;                    \
  4194. +    pnt1_ = pnt_ - 1;                        \
  4195. +    while (*++pnt1_)                        \
  4196. +      if ((*pnt1_ >= 'A' && *pnt1_ <= 'Z')) *pnt1_ |= 0x20;    \
  4197. +    pnt1_ = rindex (pnt_, '/');                     \
  4198. +    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, ':') : pnt1_);        \
  4199. +    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);                \
  4200. +  })
  4201. + 
  4202. + /* Macro to generate the name of the cross reference file.  The standard
  4203. +    one does not work, since it was written assuming that the conventions
  4204. +    of a unix style filesystem will work on the host system.
  4205. +  
  4206. +    Contrary to VMS, I'm using the original unix filename, there's no reason
  4207. +    not to use this under AmigaDOS. */
  4208. + 
  4209. + #define XREF_FILE_NAME(BUFF, NAME)    \
  4210. +   s = FILE_NAME_NONDIRECTORY (NAME);            \
  4211. +   if (s == NAME) sprintf(BUFF, ".%s.gxref", NAME);    \
  4212. +   else {                        \
  4213. +     unsigned char ch = *s; /* could be Latin1 char.. */    \
  4214. +     /* temporary: cut the filename from the directory */\
  4215. +     *s = 0;                        \
  4216. +     sprintf (BUFF, "%s.%c%s.gxref", NAME, ch, s+1);    \
  4217. +     /* and restore the filename */            \
  4218. +     *s = ch;                        \
  4219. +   }                            \
  4220. + 
  4221. + /* Macro that is used in cp-xref.c to determine whether a file name is
  4222. +    absolute or not.
  4223. + 
  4224. +    This checks for both, '/' as first character, since we're running under
  4225. +    ixemul.library which provides for this unix'ism, and for the usual 
  4226. +    logical-terminator, ':', somewhere in the filename. */
  4227. + 
  4228. + #define FILE_NAME_ABSOLUTE_P(NAME) (NAME[0] == '/' || index(NAME, ':'))
  4229. + 
  4230. + 
  4231. + /* the colon conflicts with the name space of logicals */
  4232. + 
  4233. + #define PATH_SEPARATOR ','
  4234. + 
  4235. + /* AmigaDOS handles rename(2) *much* better than any link(2)/unlink(2)
  4236. +    hacks. It's actually the inverse case as on Unix. rename(2) was always
  4237. +    there, link(2) is new with OS 2.0 */
  4238. + 
  4239. + #define HAVE_rename 1
  4240. diff -rcP gcc-2.4.5-fsf/configure gcc-2.4.5-amiga/configure
  4241. *** gcc-2.4.5-fsf/configure    Fri Jun 18 18:21:08 1993
  4242. --- gcc-2.4.5-amiga/configure    Tue Sep  7 14:27:43 1993
  4243. ***************
  4244. *** 68,74 ****
  4245.   
  4246.   remove=rm
  4247.   hard_link=ln
  4248. ! symbolic_link='ln -s'
  4249.   copy=cp
  4250.   
  4251.   # Record all the arguments, to write them in config.status.
  4252. --- 68,75 ----
  4253.   
  4254.   remove=rm
  4255.   hard_link=ln
  4256. ! #symbolic_link='ln -s'
  4257. ! symbolic_link=ln
  4258.   copy=cp
  4259.   
  4260.   # Record all the arguments, to write them in config.status.
  4261. ***************
  4262. *** 281,287 ****
  4263.       use_collect2=
  4264.       # Set this to override the default target model.
  4265.       target_cpu_default=
  4266. !     # Set this to force use of install.sh.
  4267.       broken_install=
  4268.       # Set this to control which fixincludes program to use.
  4269.       fixincludes=fixincludes
  4270. --- 282,289 ----
  4271.       use_collect2=
  4272.       # Set this to override the default target model.
  4273.       target_cpu_default=
  4274. !     # Set this to force use of install.sh (if set to 'yes')
  4275. !     # Set to name of installer to use custom installer.
  4276.       broken_install=
  4277.       # Set this to control which fixincludes program to use.
  4278.       fixincludes=fixincludes
  4279. ***************
  4280. *** 569,574 ****
  4281. --- 571,586 ----
  4282.           tm_file=sparc/lite.h
  4283.           use_collect2=yes
  4284.           ;;
  4285. +     m68k-*-amigados)
  4286. +         xm_file=m68k/xm-amigados.h
  4287. +         out_file=m68k/amigados.c
  4288. +         tm_file=m68k/amigados.h
  4289. +         tmake_file=m68k/t-amigados
  4290. +         xmake_file=m68k/x-amigados
  4291. +         fixincludes=Makefile.in # Headers are already fixed.
  4292. +         broken_install=cp
  4293. +         install_headers_dir=install-headers-cp
  4294. +         ;;
  4295.       m68k-cbm-sysv4*)        # Commodore variant of V.4.
  4296.           tm_file=m68k/amix.h
  4297.           xm_file=m68k/xm-amix.h
  4298. ***************
  4299. *** 1494,1501 ****
  4300.   then true
  4301.   else
  4302.       rm -f Makefile.xx
  4303. !     abssrcdir=`cd ${srcdir}; pwd`
  4304. !     sed "s|^INSTALL = .*|INSTALL = ${abssrcdir}/install.sh -c|" Makefile.tem > Makefile.xx
  4305.       rm -f Makefile.tem
  4306.       mv Makefile.xx Makefile.tem
  4307.   fi
  4308. --- 1506,1519 ----
  4309.   then true
  4310.   else
  4311.       rm -f Makefile.xx
  4312. !     if [ x$host_broken_install = xyes ]
  4313. !     then
  4314. !         abssrcdir=`cd ${srcdir}; pwd`
  4315. !         installer=${abssrcdir}/install.sh -c
  4316. !     else
  4317. !         installer=$host_broken_install
  4318. !     fi
  4319. !     sed "s|^INSTALL = .*|INSTALL = ${installer}|" Makefile.tem > Makefile.xx
  4320.       rm -f Makefile.tem
  4321.       mv Makefile.xx Makefile.tem
  4322.   fi
  4323. diff -rcP gcc-2.4.5-fsf/cp-parse.c gcc-2.4.5-amiga/cp-parse.c
  4324. *** gcc-2.4.5-fsf/cp-parse.c    Tue Apr 27 05:39:59 1993
  4325. --- gcc-2.4.5-amiga/cp-parse.c    Mon Sep  6 20:13:29 1993
  4326. ***************
  4327. *** 1,5 ****
  4328.   
  4329. ! /*  A Bison parser, made from cp-parse.y  */
  4330.   
  4331.   #define YYBISON 1  /* Identify Bison output.  */
  4332.   
  4333. --- 1,6 ----
  4334.   
  4335. ! /*  A Bison parser, made from cp-parse.y with Bison version GNU Bison version 1.21
  4336. !   */
  4337.   
  4338.   #define YYBISON 1  /* Identify Bison output.  */
  4339.   
  4340. ***************
  4341. *** 186,194 ****
  4342. --- 187,197 ----
  4343.   
  4344.   #include <stdio.h>
  4345.   
  4346. + #ifndef __cplusplus
  4347.   #ifndef __STDC__
  4348.   #define const
  4349.   #endif
  4350. + #endif
  4351.   
  4352.   
  4353.   
  4354. ***************
  4355. *** 235,240 ****
  4356. --- 238,244 ----
  4357.       94,    95,    96,    97,    98,    99,   100,   101,   102,   103
  4358.   };
  4359.   
  4360. + #if YYDEBUG != 0
  4361.   static const short yyprhs[] = {     0,
  4362.        0,     1,     3,     4,     7,    10,    11,    12,    14,    16,
  4363.       18,    20,    22,    24,    30,    35,    39,    44,    49,    51,
  4364. ***************
  4365. *** 559,564 ****
  4366. --- 563,570 ----
  4367.       41,     1,     0
  4368.   };
  4369.   
  4370. + #endif
  4371. + 
  4372.   #if YYDEBUG != 0
  4373.   static const short yyrline[] = { 0,
  4374.      283,   284,   292,   294,   295,   299,   304,   308,   311,   314,
  4375. ***************
  4376. *** 2497,2503 ****
  4377.   #ifdef __GNUC__
  4378.   #define alloca __builtin_alloca
  4379.   #else /* not GNU C.  */
  4380. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  4381.   #include <alloca.h>
  4382.   #else /* not sparc */
  4383.   #if defined (MSDOS) && !defined (__TURBOC__)
  4384. --- 2503,2509 ----
  4385.   #ifdef __GNUC__
  4386.   #define alloca __builtin_alloca
  4387.   #else /* not GNU C.  */
  4388. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  4389.   #include <alloca.h>
  4390.   #else /* not sparc */
  4391.   #if defined (MSDOS) && !defined (__TURBOC__)
  4392. ***************
  4393. *** 2506,2511 ****
  4394. --- 2512,2527 ----
  4395.   #if defined(_AIX)
  4396.   #include <malloc.h>
  4397.    #pragma alloca
  4398. + #else /* not MSDOS, __TURBOC__, or _AIX */
  4399. + #ifdef __hpux
  4400. + #ifdef __cplusplus
  4401. + extern "C" {
  4402. + void *alloca (unsigned int);
  4403. + };
  4404. + #else /* not __cplusplus */
  4405. + void *alloca (unsigned int);
  4406. + #endif /* not __cplusplus */
  4407. + #endif /* __hpux */
  4408.   #endif /* not _AIX */
  4409.   #endif /* not MSDOS, or __TURBOC__ */
  4410.   #endif /* not sparc.  */
  4411. ***************
  4412. *** 2599,2604 ****
  4413. --- 2615,2625 ----
  4414.   #ifndef YYMAXDEPTH
  4415.   #define YYMAXDEPTH 10000
  4416.   #endif
  4417. + 
  4418. + /* Prevent warning if -Wstrict-prototypes.  */
  4419. + #ifdef __GNUC__
  4420. + int yyparse (void);
  4421. + #endif
  4422.   
  4423.   #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  4424.   #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  4425. ***************
  4426. *** 2639,2645 ****
  4427.   #endif
  4428.   #endif
  4429.   
  4430. ! #line 169 "bison.simple"
  4431.   int
  4432.   yyparse()
  4433.   {
  4434. --- 2660,2666 ----
  4435.   #endif
  4436.   #endif
  4437.   
  4438. ! #line 184 "bison.simple"
  4439.   int
  4440.   yyparse()
  4441.   {
  4442. ***************
  4443. *** 2695,2701 ****
  4444.   
  4445.     /* Initialize stack pointers.
  4446.        Waste one element of value and location stack
  4447. !      so that they stay on the same level as the state stack.  */
  4448.   
  4449.     yyssp = yyss - 1;
  4450.     yyvsp = yyvs;
  4451. --- 2716,2723 ----
  4452.   
  4453.     /* Initialize stack pointers.
  4454.        Waste one element of value and location stack
  4455. !      so that they stay on the same level as the state stack.
  4456. !      The wasted elements are never initialized.  */
  4457.   
  4458.     yyssp = yyss - 1;
  4459.     yyvsp = yyvs;
  4460. ***************
  4461. *** 2778,2783 ****
  4462. --- 2800,2806 ----
  4463.       fprintf(stderr, "Entering state %d\n", yystate);
  4464.   #endif
  4465.   
  4466. +   goto yybackup;
  4467.    yybackup:
  4468.   
  4469.   /* Do appropriate processing given the current state.  */
  4470. ***************
  4471. *** 2902,2908 ****
  4472.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  4473.              yyn, yyrline[yyn]);
  4474.   
  4475. !       /* Print the symboles being reduced, and their result.  */
  4476.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  4477.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  4478.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  4479. --- 2925,2931 ----
  4480.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  4481.              yyn, yyrline[yyn]);
  4482.   
  4483. !       /* Print the symbols being reduced, and their result.  */
  4484.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  4485.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  4486.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  4487. ***************
  4488. *** 7093,7099 ****
  4489.       break;}
  4490.   }
  4491.      /* the action file gets copied in in place of this dollarsign */
  4492. ! #line 440 "bison.simple"
  4493.   
  4494.     yyvsp -= yylen;
  4495.     yyssp -= yylen;
  4496. --- 7116,7122 ----
  4497.       break;}
  4498.   }
  4499.      /* the action file gets copied in in place of this dollarsign */
  4500. ! #line 457 "bison.simple"
  4501.   
  4502.     yyvsp -= yylen;
  4503.     yyssp -= yylen;
  4504. ***************
  4505. *** 7163,7169 ****
  4506.         int x, count;
  4507.   
  4508.         count = 0;
  4509. !       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  4510.           if (yycheck[x + yyn] == x)
  4511.             size += strlen(yytname[x]) + 15, count++;
  4512.         msg = (char *) malloc(size + 15);
  4513. --- 7186,7194 ----
  4514.         int x, count;
  4515.   
  4516.         count = 0;
  4517. !       /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  4518. !       for (x = (yyn < 0 ? -yyn : 0);
  4519. !            x < (sizeof(yytname) / sizeof(char *)); x++)
  4520.           if (yycheck[x + yyn] == x)
  4521.             size += strlen(yytname[x]) + 15, count++;
  4522.         msg = (char *) malloc(size + 15);
  4523. ***************
  4524. *** 7174,7180 ****
  4525.             if (count < 5)
  4526.           {
  4527.             count = 0;
  4528. !           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  4529.               if (yycheck[x + yyn] == x)
  4530.                 {
  4531.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  4532. --- 7199,7206 ----
  4533.             if (count < 5)
  4534.           {
  4535.             count = 0;
  4536. !           for (x = (yyn < 0 ? -yyn : 0);
  4537. !                x < (sizeof(yytname) / sizeof(char *)); x++)
  4538.               if (yycheck[x + yyn] == x)
  4539.                 {
  4540.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  4541. ***************
  4542. *** 7194,7199 ****
  4543. --- 7220,7226 ----
  4544.       yyerror("parse error");
  4545.       }
  4546.   
  4547. +   goto yyerrlab1;
  4548.   yyerrlab1:   /* here on error raised explicitly by an action */
  4549.   
  4550.     if (yyerrstatus == 3)
  4551. diff -rcP gcc-2.4.5-fsf/gcc.c gcc-2.4.5-amiga/gcc.c
  4552. *** gcc-2.4.5-fsf/gcc.c    Mon Jun  7 03:45:56 1993
  4553. --- gcc-2.4.5-amiga/gcc.c    Mon Sep  6 02:48:35 1993
  4554. ***************
  4555. *** 104,110 ****
  4556. --- 104,114 ----
  4557.   extern char *getenv ();
  4558.   
  4559.   extern int errno, sys_nerr;
  4560. + #ifndef HAVE_STRERROR
  4561. + /* provide a cheap strerror() emulator for those that don't have it */
  4562.   extern char *sys_errlist[];
  4563. + #define strerror(err) sys_errlist[err]
  4564. + #endif
  4565.   
  4566.   extern int execv (), execvp ();
  4567.   
  4568. ***************
  4569. *** 1348,1364 ****
  4570.   #endif
  4571.         if (base == (char *)0)
  4572.       {
  4573.         if (access ("/usr/tmp", R_OK | W_OK) == 0)
  4574.           base = "/usr/tmp/";
  4575.         else
  4576.           base = "/tmp/";
  4577.       }
  4578.       }
  4579.   
  4580.     len = strlen (base);
  4581.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  4582.     strcpy (temp_filename, base);
  4583. !   if (len > 0 && temp_filename[len-1] != '/')
  4584.       temp_filename[len++] = '/';
  4585.     strcpy (temp_filename + len, "ccXXXXXX");
  4586.   
  4587. --- 1352,1376 ----
  4588.   #endif
  4589.         if (base == (char *)0)
  4590.       {
  4591. + #ifdef amigados
  4592. +       base = "ram:";
  4593. + #else
  4594.         if (access ("/usr/tmp", R_OK | W_OK) == 0)
  4595.           base = "/usr/tmp/";
  4596.         else
  4597.           base = "/tmp/";
  4598. + #endif
  4599.       }
  4600.       }
  4601.   
  4602.     len = strlen (base);
  4603.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  4604.     strcpy (temp_filename, base);
  4605. !   if (len > 0 && temp_filename[len-1] != '/'
  4606. ! #ifdef amigados
  4607. !                         && temp_filename[len-1] != ':'
  4608. ! #endif
  4609. !                                     )
  4610.       temp_filename[len++] = '/';
  4611.     strcpy (temp_filename + len, "ccXXXXXX");
  4612.   
  4613. ***************
  4614. *** 1502,1508 ****
  4615.   
  4616.     /* Determine the filename to execute (special case for absolute paths).  */
  4617.   
  4618. !   if (*name == '/')
  4619.       {
  4620.         if (access (name, mode))
  4621.       {
  4622. --- 1514,1524 ----
  4623.   
  4624.     /* Determine the filename to execute (special case for absolute paths).  */
  4625.   
  4626. !   if (*name == '/'
  4627. ! #ifdef amigados
  4628. !           || index (name, ':')
  4629. ! #endif
  4630. !                     )
  4631.       {
  4632.         if (access (name, mode))
  4633.       {
  4634. ***************
  4635. *** 1708,1713 ****
  4636. --- 1724,1730 ----
  4637.      NOT_LAST is nonzero if this is not the last subcommand
  4638.      (i.e. its output should be piped to the next one.)  */
  4639.   
  4640. + #ifndef PEXECUTE
  4641.   #ifndef OS2
  4642.   #ifdef __MSDOS__
  4643.   
  4644. ***************
  4645. *** 1854,1859 ****
  4646. --- 1871,1877 ----
  4647.     return (search_flag ? spawnv : spawnvp) (1, program, argv);
  4648.   }
  4649.   #endif /* not OS2 */
  4650. + #endif /* !defined (PEXECUTE) */
  4651.   
  4652.   /* Execute the command specified by the arguments on the current line of spec.
  4653.      When using pipes, this includes several piped-together commands
  4654. ***************
  4655. *** 1948,1956 ****
  4656. --- 1966,1980 ----
  4657.       {
  4658.         char *string = commands[i].argv[0];
  4659.   
  4660. + #ifdef PEXECUTE
  4661. +       commands[i].pid = PEXECUTE (string != commands[i].prog,
  4662. +                   string, commands[i].argv,
  4663. +                   i + 1 < n_commands);
  4664. + #else
  4665.         commands[i].pid = pexecute (string != commands[i].prog,
  4666.                     string, commands[i].argv,
  4667.                     i + 1 < n_commands);
  4668. + #endif
  4669.   
  4670.         if (string != commands[i].prog)
  4671.       free (string);
  4672. ***************
  4673. *** 1971,1981 ****
  4674. --- 1995,2009 ----
  4675.       int pid;
  4676.       char *prog;
  4677.   
  4678. + #ifdef PEXECUTE_RESULT
  4679. +     pid = PEXECUTE_RESULT (status, commands[i]);
  4680. + #else /* PEXECUTE_RESULT */
  4681.   #ifdef __MSDOS__
  4682.           status = pid = commands[i].pid;
  4683.   #else
  4684.       pid = wait (&status);
  4685.   #endif
  4686. + #endif /* PEXECUTE_RESULT */
  4687.       if (pid < 0)
  4688.         abort ();
  4689.   
  4690. ***************
  4691. *** 2082,2087 ****
  4692. --- 2110,2116 ----
  4693.         if (*endp == PATH_SEPARATOR || *endp == 0)
  4694.           {
  4695.             strncpy (nstore, startp, endp-startp);
  4696. + #ifndef amigados
  4697.             if (endp == startp)
  4698.           {
  4699.             strcpy (nstore, "./");
  4700. ***************
  4701. *** 2093,2098 ****
  4702. --- 2122,2136 ----
  4703.           }
  4704.             else
  4705.           nstore[endp-startp] = 0;
  4706. + #else
  4707. +           if (endp[-1] != '/' && endp[-1] != ':')
  4708. +         {
  4709. +           nstore[endp-startp] = '/';
  4710. +           nstore[endp-startp+1] = 0;
  4711. +         }
  4712. +           else
  4713. +         nstore[endp-startp] = 0;
  4714. + #endif
  4715.             add_prefix (&exec_prefix, nstore, 0, 0, NULL_PTR);
  4716.             if (*endp == 0)
  4717.           break;
  4718. ***************
  4719. *** 2115,2120 ****
  4720. --- 2153,2159 ----
  4721.         if (*endp == PATH_SEPARATOR || *endp == 0)
  4722.           {
  4723.             strncpy (nstore, startp, endp-startp);
  4724. + #ifndef amigados
  4725.             if (endp == startp)
  4726.           {
  4727.             strcpy (nstore, "./");
  4728. ***************
  4729. *** 2126,2131 ****
  4730. --- 2165,2179 ----
  4731.           }
  4732.             else
  4733.           nstore[endp-startp] = 0;
  4734. + #else
  4735. +           if (endp[-1] != '/' && endp[-1] != ':')
  4736. +         {
  4737. +           nstore[endp-startp] = '/';
  4738. +           nstore[endp-startp+1] = 0;
  4739. +         }
  4740. +           else
  4741. +         nstore[endp-startp] = 0;
  4742. + #endif
  4743.             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  4744.             if (*endp == 0)
  4745.           break;
  4746. ***************
  4747. *** 2149,2154 ****
  4748. --- 2197,2203 ----
  4749.         if (*endp == PATH_SEPARATOR || *endp == 0)
  4750.           {
  4751.             strncpy (nstore, startp, endp-startp);
  4752. + #ifndef amigados
  4753.             if (endp == startp)
  4754.           {
  4755.             strcpy (nstore, "./");
  4756. ***************
  4757. *** 2160,2165 ****
  4758. --- 2209,2223 ----
  4759.           }
  4760.             else
  4761.           nstore[endp-startp] = 0;
  4762. + #else
  4763. +           if (endp[-1] != '/' && endp[-1] != ':')
  4764. +         {
  4765. +           nstore[endp-startp] = '/';
  4766. +           nstore[endp-startp+1] = 0;
  4767. +         }
  4768. +           else
  4769. +         nstore[endp-startp] = 0;
  4770. + #endif
  4771.             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  4772.             if (*endp == 0)
  4773.           break;
  4774. ***************
  4775. *** 3756,3765 ****
  4776. --- 3814,3827 ----
  4777.         register char *p;
  4778.         int len;
  4779.   
  4780. + #ifdef FILE_NAME_NONDIRECTORY
  4781. +       input_basename = FILE_NAME_NONDIRECTORY (input_filename);
  4782. + #else
  4783.         input_basename = input_filename;
  4784.         for (p = input_filename; *p; p++)
  4785.           if (*p == '/')
  4786.             input_basename = p + 1;
  4787. + #endif
  4788.   
  4789.         /* Find a suffix starting with the last period,
  4790.            and set basename_length to exclude that suffix.  */
  4791. ***************
  4792. *** 3999,4005 ****
  4793.     char *s;
  4794.   
  4795.     if (errno < sys_nerr)
  4796. !     s = concat ("%s: ", sys_errlist[errno], "");
  4797.     else
  4798.       s = "cannot open %s";
  4799.     fatal (s, name);
  4800. --- 4061,4067 ----
  4801.     char *s;
  4802.   
  4803.     if (errno < sys_nerr)
  4804. !     s = concat ("%s: ", strerror (errno), "");
  4805.     else
  4806.       s = "cannot open %s";
  4807.     fatal (s, name);
  4808. ***************
  4809. *** 4012,4018 ****
  4810.     char *s;
  4811.   
  4812.     if (errno < sys_nerr)
  4813. !     s = concat ("%s: ", sys_errlist[errno], "");
  4814.     else
  4815.       s = "cannot open %s";
  4816.     error (s, name);
  4817. --- 4074,4080 ----
  4818.     char *s;
  4819.   
  4820.     if (errno < sys_nerr)
  4821. !     s = concat ("%s: ", strerror (errno), "");
  4822.     else
  4823.       s = "cannot open %s";
  4824.     error (s, name);
  4825. ***************
  4826. *** 4026,4032 ****
  4827.   
  4828.     if (errno < sys_nerr)
  4829.       s = concat ("installation problem, cannot exec %s: ",
  4830. !         sys_errlist[errno], "");
  4831.     else
  4832.       s = "installation problem, cannot exec %s";
  4833.     error (s, name);
  4834. --- 4088,4094 ----
  4835.   
  4836.     if (errno < sys_nerr)
  4837.       s = concat ("installation problem, cannot exec %s: ",
  4838. !         strerror (errno), "");
  4839.     else
  4840.       s = "installation problem, cannot exec %s";
  4841.     error (s, name);
  4842. diff -rcP gcc-2.4.5-fsf/genconfig.c gcc-2.4.5-amiga/genconfig.c
  4843. *** gcc-2.4.5-fsf/genconfig.c    Tue Oct 13 04:11:48 1992
  4844. --- gcc-2.4.5-amiga/genconfig.c    Mon Sep  6 02:45:06 1993
  4845. ***************
  4846. *** 303,310 ****
  4847. --- 303,318 ----
  4848.     printf ("/* Generated automatically by the program `genconfig'\n\
  4849.   from the machine description file `md'.  */\n\n");
  4850.   
  4851. + #ifdef amigados
  4852. +   /* this constant probably better be 14 in general, or a cross compiling
  4853. +      host might choke on some amigados header files... */
  4854. + 
  4855. +   /* Allow at least 14 operands for the sake of asm constructs.  */
  4856. +   max_recog_operands = 14;
  4857. + #else
  4858.     /* Allow at least 10 operands for the sake of asm constructs.  */
  4859.     max_recog_operands = 9;  /* We will add 1 later.  */
  4860. + #endif
  4861.     max_dup_operands = 1;
  4862.   
  4863.     /* Read the machine description.  */
  4864. diff -rcP gcc-2.4.5-fsf/gstddef.h gcc-2.4.5-amiga/gstddef.h
  4865. *** gcc-2.4.5-fsf/gstddef.h    Mon May 24 06:08:45 1993
  4866. --- gcc-2.4.5-amiga/gstddef.h    Mon Sep  6 02:45:23 1993
  4867. ***************
  4868. *** 2,7 ****
  4869. --- 2,21 ----
  4870.   #ifndef _STDDEF_H_
  4871.   #ifndef _ANSI_STDDEF_H
  4872.   
  4873. + #ifdef amigados
  4874. + /* GNU libc has special support in this file, 4.3bsd-net2 libc deserves that
  4875. +    just as well. The system headers are ANSI compliant, the used compiler IS
  4876. +    gcc, so it's really ok to use the system header, no reason to hassle
  4877. +    with a jungle of ifdefs. Besides, amigados is only defined if compiling
  4878. +    with host=amigados, it doesn't apply if compiling with target=amigados
  4879. +    on a different host with possibly different system headers. Same thing
  4880. +    would apply to gstdarg.h and gvarargs.h, but those headers are more
  4881. +    easily fixable than this one and I'm sick of writing the same comment
  4882. +    there as well. MW */
  4883. + #include <stddef.h>
  4884. + 
  4885. + #else /* not amigados */
  4886. + 
  4887.   /* Any one of these symbols __need_* means that GNU libc
  4888.      wants us just to define one data type.  So don't define
  4889.      the symbols that indicate this file's entire job has been done.  */
  4890. ***************
  4891. *** 162,167 ****
  4892. --- 176,184 ----
  4893.   #ifndef __WCHAR_TYPE__
  4894.   #define __WCHAR_TYPE__ int
  4895.   #endif
  4896. + 
  4897. + 
  4898. + #endif /* not amigados */
  4899.   #ifdef __GNUG__
  4900.   /* In C++, wchar_t is a distinct basic type,
  4901.      and we can expect __wchar_t to be defined by cc1plus.  */
  4902. diff -rcP gcc-2.4.5-fsf/gvarargs.h gcc-2.4.5-amiga/gvarargs.h
  4903. *** gcc-2.4.5-fsf/gvarargs.h    Mon May 17 17:54:29 1993
  4904. --- gcc-2.4.5-amiga/gvarargs.h    Mon Sep  6 02:45:25 1993
  4905. ***************
  4906. *** 166,169 ****
  4907. --- 166,176 ----
  4908.   #undef _BSD_VA_LIST
  4909.   #endif
  4910.   
  4911. + #ifdef amigados
  4912. + # ifndef _VA_LIST
  4913. + #  define _VA_LIST
  4914. +    typedef __gnuc_va_list va_list;
  4915. + # endif
  4916. + #endif /* amigados */
  4917. + 
  4918.   #endif /* __GNUC__ */
  4919. diff -rcP gcc-2.4.5-fsf/machmode.h gcc-2.4.5-amiga/machmode.h
  4920. *** gcc-2.4.5-fsf/machmode.h    Sat Mar 20 02:10:51 1993
  4921. --- gcc-2.4.5-amiga/machmode.h    Mon Sep  6 02:46:06 1993
  4922. ***************
  4923. *** 92,98 ****
  4924.   
  4925.   /* Get the name of mode MODE as a string.  */
  4926.   
  4927. ! extern char *mode_name[];
  4928.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  4929.   
  4930.   enum mode_class { MODE_RANDOM, MODE_INT, MODE_FLOAT, MODE_PARTIAL_INT, MODE_CC,
  4931. --- 92,98 ----
  4932.   
  4933.   /* Get the name of mode MODE as a string.  */
  4934.   
  4935. ! extern char * const mode_name[];
  4936.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  4937.   
  4938.   enum mode_class { MODE_RANDOM, MODE_INT, MODE_FLOAT, MODE_PARTIAL_INT, MODE_CC,
  4939. ***************
  4940. *** 101,117 ****
  4941.   /* Get the general kind of object that mode MODE represents
  4942.      (integer, floating, complex, etc.)  */
  4943.   
  4944. ! extern enum mode_class mode_class[];
  4945.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  4946.   
  4947.   /* Get the size in bytes of an object of mode MODE.  */
  4948.   
  4949. ! extern int mode_size[];
  4950.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  4951.   
  4952.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  4953.   
  4954. ! extern int mode_unit_size[];
  4955.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  4956.   
  4957.   /* Get the number of units in the object.  */
  4958. --- 101,117 ----
  4959.   /* Get the general kind of object that mode MODE represents
  4960.      (integer, floating, complex, etc.)  */
  4961.   
  4962. ! extern const enum mode_class mode_class[];
  4963.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  4964.   
  4965.   /* Get the size in bytes of an object of mode MODE.  */
  4966.   
  4967. ! extern const int mode_size[];
  4968.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  4969.   
  4970.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  4971.   
  4972. ! extern const int mode_unit_size[];
  4973.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  4974.   
  4975.   /* Get the number of units in the object.  */
  4976. ***************
  4977. *** 133,139 ****
  4978.   
  4979.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  4980.   
  4981. ! extern enum machine_mode mode_wider_mode[];
  4982.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  4983.   
  4984.   /* Return the mode for data of a given size SIZE and mode class CLASS.
  4985. --- 133,139 ----
  4986.   
  4987.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  4988.   
  4989. ! extern const enum machine_mode mode_wider_mode[];
  4990.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  4991.   
  4992.   /* Return the mode for data of a given size SIZE and mode class CLASS.
  4993. diff -rcP gcc-2.4.5-fsf/objc/Makefile gcc-2.4.5-amiga/objc/Makefile
  4994. *** gcc-2.4.5-fsf/objc/Makefile    Thu Jun  3 04:58:41 1993
  4995. --- gcc-2.4.5-amiga/objc/Makefile    Mon Sep  6 02:38:07 1993
  4996. ***************
  4997. *** 75,82 ****
  4998.         chmod a+r $(incinstalldir)/objc/$$file; \
  4999.       done
  5000.   
  5001. ! sendmsg.o: sendmsg.c fflags
  5002. !     $(GCC_FOR_TARGET) `cat fflags` -c  $(GCC_CFLAGS) $(SUBDIR_INCLUDES) $(srcdir)/objc/sendmsg.c
  5003.   
  5004.   ## Next to are for heuristics on forwarding mechanism... 
  5005.   xforward: xforward.c
  5006. --- 75,82 ----
  5007.         chmod a+r $(incinstalldir)/objc/$$file; \
  5008.       done
  5009.   
  5010. ! sendmsg.o: sendmsg.c 
  5011. !     $(GCC_FOR_TARGET) -DSTACK_ARGS -c  $(GCC_CFLAGS) $(SUBDIR_INCLUDES) $(srcdir)/objc/sendmsg.c
  5012.   
  5013.   ## Next to are for heuristics on forwarding mechanism... 
  5014.   xforward: xforward.c
  5015. diff -rcP gcc-2.4.5-fsf/objc-parse.c gcc-2.4.5-amiga/objc-parse.c
  5016. *** gcc-2.4.5-fsf/objc-parse.c    Thu May  6 18:18:54 1993
  5017. --- gcc-2.4.5-amiga/objc-parse.c    Mon Sep  6 20:35:14 1993
  5018. ***************
  5019. *** 1,5 ****
  5020.   
  5021. ! /*  A Bison parser, made from objc-parse.y  */
  5022.   
  5023.   #define YYBISON 1  /* Identify Bison output.  */
  5024.   
  5025. --- 1,6 ----
  5026.   
  5027. ! /*  A Bison parser, made from objc-parse.y with Bison version GNU Bison version 1.21
  5028. !   */
  5029.   
  5030.   #define YYBISON 1  /* Identify Bison output.  */
  5031.   
  5032. ***************
  5033. *** 157,165 ****
  5034. --- 158,168 ----
  5035.   
  5036.   #include <stdio.h>
  5037.   
  5038. + #ifndef __cplusplus
  5039.   #ifndef __STDC__
  5040.   #define const
  5041.   #endif
  5042. + #endif
  5043.   
  5044.   
  5045.   
  5046. ***************
  5047. *** 204,209 ****
  5048. --- 207,213 ----
  5049.       70,    71,    72,    73,    74,    75,    76
  5050.   };
  5051.   
  5052. + #if YYDEBUG != 0
  5053.   static const short yyprhs[] = {     0,
  5054.        0,     1,     3,     4,     7,     8,    12,    14,    16,    18,
  5055.       24,    28,    33,    38,    41,    44,    47,    50,    52,    53,
  5056. ***************
  5057. *** 421,426 ****
  5058. --- 425,432 ----
  5059.      160,    77,     0
  5060.   };
  5061.   
  5062. + #endif
  5063. + 
  5064.   #if YYDEBUG != 0
  5065.   static const short yyrline[] = { 0,
  5066.      227,   232,   246,   248,   248,   249,   251,   253,   254,   255,
  5067. ***************
  5068. *** 1555,1561 ****
  5069.   #ifdef __GNUC__
  5070.   #define alloca __builtin_alloca
  5071.   #else /* not GNU C.  */
  5072. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  5073.   #include <alloca.h>
  5074.   #else /* not sparc */
  5075.   #if defined (MSDOS) && !defined (__TURBOC__)
  5076. --- 1561,1567 ----
  5077.   #ifdef __GNUC__
  5078.   #define alloca __builtin_alloca
  5079.   #else /* not GNU C.  */
  5080. ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  5081.   #include <alloca.h>
  5082.   #else /* not sparc */
  5083.   #if defined (MSDOS) && !defined (__TURBOC__)
  5084. ***************
  5085. *** 1564,1569 ****
  5086. --- 1570,1585 ----
  5087.   #if defined(_AIX)
  5088.   #include <malloc.h>
  5089.    #pragma alloca
  5090. + #else /* not MSDOS, __TURBOC__, or _AIX */
  5091. + #ifdef __hpux
  5092. + #ifdef __cplusplus
  5093. + extern "C" {
  5094. + void *alloca (unsigned int);
  5095. + };
  5096. + #else /* not __cplusplus */
  5097. + void *alloca (unsigned int);
  5098. + #endif /* not __cplusplus */
  5099. + #endif /* __hpux */
  5100.   #endif /* not _AIX */
  5101.   #endif /* not MSDOS, or __TURBOC__ */
  5102.   #endif /* not sparc.  */
  5103. ***************
  5104. *** 1657,1662 ****
  5105. --- 1673,1683 ----
  5106.   #ifndef YYMAXDEPTH
  5107.   #define YYMAXDEPTH 10000
  5108.   #endif
  5109. + 
  5110. + /* Prevent warning if -Wstrict-prototypes.  */
  5111. + #ifdef __GNUC__
  5112. + int yyparse (void);
  5113. + #endif
  5114.   
  5115.   #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  5116.   #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  5117. ***************
  5118. *** 1697,1703 ****
  5119.   #endif
  5120.   #endif
  5121.   
  5122. ! #line 169 "bison.simple"
  5123.   int
  5124.   yyparse()
  5125.   {
  5126. --- 1718,1724 ----
  5127.   #endif
  5128.   #endif
  5129.   
  5130. ! #line 184 "bison.simple"
  5131.   int
  5132.   yyparse()
  5133.   {
  5134. ***************
  5135. *** 1753,1759 ****
  5136.   
  5137.     /* Initialize stack pointers.
  5138.        Waste one element of value and location stack
  5139. !      so that they stay on the same level as the state stack.  */
  5140.   
  5141.     yyssp = yyss - 1;
  5142.     yyvsp = yyvs;
  5143. --- 1774,1781 ----
  5144.   
  5145.     /* Initialize stack pointers.
  5146.        Waste one element of value and location stack
  5147. !      so that they stay on the same level as the state stack.
  5148. !      The wasted elements are never initialized.  */
  5149.   
  5150.     yyssp = yyss - 1;
  5151.     yyvsp = yyvs;
  5152. ***************
  5153. *** 1836,1841 ****
  5154. --- 1858,1864 ----
  5155.       fprintf(stderr, "Entering state %d\n", yystate);
  5156.   #endif
  5157.   
  5158. +   goto yybackup;
  5159.    yybackup:
  5160.   
  5161.   /* Do appropriate processing given the current state.  */
  5162. ***************
  5163. *** 1960,1966 ****
  5164.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  5165.              yyn, yyrline[yyn]);
  5166.   
  5167. !       /* Print the symboles being reduced, and their result.  */
  5168.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  5169.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  5170.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  5171. --- 1983,1989 ----
  5172.         fprintf (stderr, "Reducing via rule %d (line %d), ",
  5173.              yyn, yyrline[yyn]);
  5174.   
  5175. !       /* Print the symbols being reduced, and their result.  */
  5176.         for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  5177.       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  5178.         fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  5179. ***************
  5180. *** 4430,4436 ****
  5181.       break;}
  5182.   }
  5183.      /* the action file gets copied in in place of this dollarsign */
  5184. ! #line 440 "bison.simple"
  5185.   
  5186.     yyvsp -= yylen;
  5187.     yyssp -= yylen;
  5188. --- 4453,4459 ----
  5189.       break;}
  5190.   }
  5191.      /* the action file gets copied in in place of this dollarsign */
  5192. ! #line 457 "bison.simple"
  5193.   
  5194.     yyvsp -= yylen;
  5195.     yyssp -= yylen;
  5196. ***************
  5197. *** 4500,4506 ****
  5198.         int x, count;
  5199.   
  5200.         count = 0;
  5201. !       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  5202.           if (yycheck[x + yyn] == x)
  5203.             size += strlen(yytname[x]) + 15, count++;
  5204.         msg = (char *) malloc(size + 15);
  5205. --- 4523,4531 ----
  5206.         int x, count;
  5207.   
  5208.         count = 0;
  5209. !       /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  5210. !       for (x = (yyn < 0 ? -yyn : 0);
  5211. !            x < (sizeof(yytname) / sizeof(char *)); x++)
  5212.           if (yycheck[x + yyn] == x)
  5213.             size += strlen(yytname[x]) + 15, count++;
  5214.         msg = (char *) malloc(size + 15);
  5215. ***************
  5216. *** 4511,4517 ****
  5217.             if (count < 5)
  5218.           {
  5219.             count = 0;
  5220. !           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  5221.               if (yycheck[x + yyn] == x)
  5222.                 {
  5223.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  5224. --- 4536,4543 ----
  5225.             if (count < 5)
  5226.           {
  5227.             count = 0;
  5228. !           for (x = (yyn < 0 ? -yyn : 0);
  5229. !                x < (sizeof(yytname) / sizeof(char *)); x++)
  5230.               if (yycheck[x + yyn] == x)
  5231.                 {
  5232.               strcat(msg, count == 0 ? ", expecting `" : " or `");
  5233. ***************
  5234. *** 4531,4536 ****
  5235. --- 4557,4563 ----
  5236.       yyerror("parse error");
  5237.       }
  5238.   
  5239. +   goto yyerrlab1;
  5240.   yyerrlab1:   /* here on error raised explicitly by an action */
  5241.   
  5242.     if (yyerrstatus == 3)
  5243. diff -rcP gcc-2.4.5-fsf/print-tree.c gcc-2.4.5-amiga/print-tree.c
  5244. *** gcc-2.4.5-fsf/print-tree.c    Wed Apr 14 19:23:14 1993
  5245. --- gcc-2.4.5-amiga/print-tree.c    Mon Sep  6 02:46:54 1993
  5246. ***************
  5247. *** 24,30 ****
  5248.   
  5249.   extern char **tree_code_name;
  5250.   
  5251. ! extern char *mode_name[];
  5252.   
  5253.   void print_node ();
  5254.   void indent_to ();
  5255. --- 24,30 ----
  5256.   
  5257.   extern char **tree_code_name;
  5258.   
  5259. ! extern char *const mode_name[];
  5260.   
  5261.   void print_node ();
  5262.   void indent_to ();
  5263. diff -rcP gcc-2.4.5-fsf/protoize.c gcc-2.4.5-amiga/protoize.c
  5264. *** gcc-2.4.5-fsf/protoize.c    Tue May 25 14:48:37 1993
  5265. --- gcc-2.4.5-amiga/protoize.c    Mon Sep  6 02:46:59 1993
  5266. ***************
  5267. *** 80,86 ****
  5268.   #undef getopt
  5269.   
  5270.   extern int errno;
  5271. ! extern char *sys_errlist[];
  5272.   extern char *version_string;
  5273.   
  5274.   /* Systems which are compatible only with POSIX 1003.1-1988 (but *not*
  5275. --- 80,89 ----
  5276.   #undef getopt
  5277.   
  5278.   extern int errno;
  5279. ! #ifndef HAVE_STRERROR
  5280. !   extern char *sys_errlist[];
  5281. ! #define strerror(err) sys_errlist[err]
  5282. ! #endif
  5283.   extern char *version_string;
  5284.   
  5285.   /* Systems which are compatible only with POSIX 1003.1-1988 (but *not*
  5286. ***************
  5287. *** 776,783 ****
  5288. --- 779,791 ----
  5289.   {
  5290.     struct default_include *p;
  5291.   
  5292. + #ifdef FILE_NAME_ABSOLUTE_P
  5293. +   if (! FILE_NAME_ABSOLUTE_P (path))
  5294. +     abort ();
  5295. + #else
  5296.     if (path[0] != '/')
  5297.       abort ();        /* Must be an absolutized filename.  */
  5298. + #endif
  5299.   
  5300.     for (p = include_defaults; p->fname; p++)
  5301.       if (!strncmp (path, p->fname, strlen (p->fname))
  5302. ***************
  5303. *** 1204,1210 ****
  5304. --- 1212,1222 ----
  5305.     {
  5306.       const char *src_p;
  5307.   
  5308. + #ifdef FILE_NAME_ABSOLUTE_P
  5309. +     if (! FILE_NAME_ABSOLUTE_P (rel_filename))
  5310. + #else
  5311.       if (rel_filename[0] != '/')
  5312. + #endif
  5313.         {
  5314.           src_p = cwd2;
  5315.           while (*endp++ = *src_p++)
  5316. ***************
  5317. *** 1406,1412 ****
  5318.             if (my_stat (filename, &stat_buf) == -1)
  5319.               {
  5320.                 fprintf (stderr, "%s: %s: can't get status: %s\n",
  5321. !                pname, shortpath (NULL, filename), sys_errlist[errno]);
  5322.                 stat_buf.st_mtime = (time_t) -1;
  5323.               }
  5324.           }
  5325. --- 1418,1424 ----
  5326.             if (my_stat (filename, &stat_buf) == -1)
  5327.               {
  5328.                 fprintf (stderr, "%s: %s: can't get status: %s\n",
  5329. !                pname, shortpath (NULL, filename), strerror (errno));
  5330.                 stat_buf.st_mtime = (time_t) -1;
  5331.               }
  5332.           }
  5333. ***************
  5334. *** 1467,1472 ****
  5335. --- 1479,1503 ----
  5336.     return ++q;
  5337.   }
  5338.   
  5339. + /* Use this macro to advance a char * over the filename part in a line
  5340. +    read from an aux-info file. */
  5341. + 
  5342. + #ifndef amigados
  5343. + /* Version for file systems where the colon has no special meaning */
  5344. + #define ADVANCE_PAST_FILENAME(CP) \
  5345. +   while (* (CP) != ':') (CP)++
  5346. + #else
  5347. + /* Have to heuristically decide whether the colon is part of the filename
  5348. +    or whether it serves to delimit the filename from the line number. If
  5349. +    it's the latter case, then the character following the colon *must*
  5350. +    be a digit. Note that this heuristic fails if the filename starts
  5351. +    with a digit. */
  5352. + #define ADVANCE_PAST_FILENAME(CP) \
  5353. +     while ((CP)[0] != ':' || !isdigit ((CP)[1])) \
  5354. +       (CP)++;
  5355. + #endif
  5356. + 
  5357. + 
  5358.   /* Given a line from  an aux info file, and a time at which the aux info
  5359.      file it came from was created, check to see if the item described in
  5360.      the line comes from a file which has been modified since the aux info
  5361. ***************
  5362. *** 1488,1495 ****
  5363.     {
  5364.       const char *filename_start = p = l + 3;
  5365.   
  5366. !     while (*p != ':')
  5367. !       p++;
  5368.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  5369.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  5370.       filename[p-filename_start] = '\0';
  5371. --- 1519,1525 ----
  5372.     {
  5373.       const char *filename_start = p = l + 3;
  5374.   
  5375. !     ADVANCE_PAST_FILENAME (p);
  5376.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  5377.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  5378.       filename[p-filename_start] = '\0';
  5379. ***************
  5380. *** 1546,1553 ****
  5381.       const char *filename_start = p = l + 3;
  5382.       char *filename;
  5383.   
  5384. !     while (*p != ':')
  5385. !       p++;
  5386.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  5387.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  5388.       filename[p-filename_start] = '\0';
  5389. --- 1576,1582 ----
  5390.       const char *filename_start = p = l + 3;
  5391.       char *filename;
  5392.   
  5393. !     ADVANCE_PAST_FILENAME (p);
  5394.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  5395.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  5396.       filename[p-filename_start] = '\0';
  5397. ***************
  5398. *** 2000,2006 ****
  5399.         if (child_pid == -1)
  5400.           {
  5401.             fprintf (stderr, "%s: could not fork process: %s\n",
  5402. !            pname, sys_errlist[errno]);
  5403.             return 0;
  5404.           }
  5405.   
  5406. --- 2029,2035 ----
  5407.         if (child_pid == -1)
  5408.           {
  5409.             fprintf (stderr, "%s: could not fork process: %s\n",
  5410. !            pname, strerror (errno));
  5411.             return 0;
  5412.           }
  5413.   
  5414. ***************
  5415. *** 2028,2034 ****
  5416.           if (wait (&wait_status) == -1)
  5417.             {
  5418.               fprintf (stderr, "%s: wait failed: %s\n",
  5419. !              pname, sys_errlist[errno]);
  5420.               return 0;
  5421.             }
  5422.       if ((wait_status & 0x7F) != 0)
  5423. --- 2057,2063 ----
  5424.           if (wait (&wait_status) == -1)
  5425.             {
  5426.               fprintf (stderr, "%s: wait failed: %s\n",
  5427. !              pname, strerror (errno));
  5428.               return 0;
  5429.             }
  5430.       if ((wait_status & 0x7F) != 0)
  5431. ***************
  5432. *** 2055,2061 ****
  5433.         write (f, ": ", 2);
  5434.         write (f, compile_params[0], strlen (compile_params[0]));
  5435.         write (f, ": ", 2);
  5436. !       write (f, sys_errlist[e], strlen (sys_errlist[e]));
  5437.         write (f, "\n", 1);
  5438.             _exit (1);
  5439.           }
  5440. --- 2084,2090 ----
  5441.         write (f, ": ", 2);
  5442.         write (f, compile_params[0], strlen (compile_params[0]));
  5443.         write (f, ": ", 2);
  5444. !       write (f, strerror (e), strlen (strerror (e)));
  5445.         write (f, "\n", 1);
  5446.             _exit (1);
  5447.           }
  5448. ***************
  5449. *** 2115,2121 ****
  5450.       {
  5451.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  5452.              pname, shortpath (NULL, aux_info_filename),
  5453. !            sys_errlist[errno]);
  5454.         errors++;
  5455.         return;
  5456.       }
  5457. --- 2144,2150 ----
  5458.       {
  5459.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  5460.              pname, shortpath (NULL, aux_info_filename),
  5461. !            strerror (errno));
  5462.         errors++;
  5463.         return;
  5464.       }
  5465. ***************
  5466. *** 2143,2149 ****
  5467.       {
  5468.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  5469.              pname, shortpath (NULL, aux_info_filename),
  5470. !            sys_errlist[errno]);
  5471.         errors++;
  5472.         return;
  5473.       }
  5474. --- 2172,2178 ----
  5475.       {
  5476.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  5477.              pname, shortpath (NULL, aux_info_filename),
  5478. !            strerror (errno));
  5479.         errors++;
  5480.         return;
  5481.       }
  5482. ***************
  5483. *** 2158,2164 ****
  5484.         {
  5485.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  5486.            pname, shortpath (NULL, aux_info_filename),
  5487. !          sys_errlist[errno]);
  5488.           errors++;
  5489.           return;
  5490.         }
  5491. --- 2187,2193 ----
  5492.         {
  5493.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  5494.            pname, shortpath (NULL, aux_info_filename),
  5495. !          strerror (errno));
  5496.           errors++;
  5497.           return;
  5498.         }
  5499. ***************
  5500. *** 2185,2191 ****
  5501.         {
  5502.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  5503.                pname, shortpath (NULL, base_source_filename),
  5504. !              sys_errlist[errno]);
  5505.           errors++;
  5506.           return;
  5507.         }
  5508. --- 2214,2220 ----
  5509.         {
  5510.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  5511.                pname, shortpath (NULL, base_source_filename),
  5512. !              strerror (errno));
  5513.           errors++;
  5514.           return;
  5515.         }
  5516. ***************
  5517. *** 2206,2212 ****
  5518.         {
  5519.           fprintf (stderr, "%s: can't open aux info file `%s' for reading: %s\n",
  5520.            pname, shortpath (NULL, aux_info_filename),
  5521. !          sys_errlist[errno]);
  5522.           return;
  5523.         }
  5524.     
  5525. --- 2235,2241 ----
  5526.         {
  5527.           fprintf (stderr, "%s: can't open aux info file `%s' for reading: %s\n",
  5528.            pname, shortpath (NULL, aux_info_filename),
  5529. !          strerror (errno));
  5530.           return;
  5531.         }
  5532.     
  5533. ***************
  5534. *** 2222,2228 ****
  5535.         {
  5536.           fprintf (stderr, "%s: error reading aux info file `%s': %s\n",
  5537.            pname, shortpath (NULL, aux_info_filename),
  5538. !          sys_errlist[errno]);
  5539.           free (aux_info_base);
  5540.           close (aux_info_file);
  5541.           return;
  5542. --- 2251,2257 ----
  5543.         {
  5544.           fprintf (stderr, "%s: error reading aux info file `%s': %s\n",
  5545.            pname, shortpath (NULL, aux_info_filename),
  5546. !          strerror (errno));
  5547.           free (aux_info_base);
  5548.           close (aux_info_file);
  5549.           return;
  5550. ***************
  5551. *** 2234,2240 ****
  5552.         {
  5553.           fprintf (stderr, "%s: error closing aux info file `%s': %s\n",
  5554.            pname, shortpath (NULL, aux_info_filename),
  5555. !          sys_errlist[errno]);
  5556.           free (aux_info_base);
  5557.           close (aux_info_file);
  5558.           return;
  5559. --- 2263,2269 ----
  5560.         {
  5561.           fprintf (stderr, "%s: error closing aux info file `%s': %s\n",
  5562.            pname, shortpath (NULL, aux_info_filename),
  5563. !          strerror (errno));
  5564.           free (aux_info_base);
  5565.           close (aux_info_file);
  5566.           return;
  5567. ***************
  5568. *** 2248,2254 ****
  5569.       if (my_unlink (aux_info_filename) == -1)
  5570.         fprintf (stderr, "%s: can't delete aux info file `%s': %s\n",
  5571.              pname, shortpath (NULL, aux_info_filename),
  5572. !            sys_errlist[errno]);
  5573.   
  5574.     /* Save a pointer into the first line of the aux_info file which
  5575.        contains the filename of the directory from which the compiler
  5576. --- 2277,2283 ----
  5577.       if (my_unlink (aux_info_filename) == -1)
  5578.         fprintf (stderr, "%s: can't delete aux info file `%s': %s\n",
  5579.              pname, shortpath (NULL, aux_info_filename),
  5580. !            strerror (errno));
  5581.   
  5582.     /* Save a pointer into the first line of the aux_info file which
  5583.        contains the filename of the directory from which the compiler
  5584. ***************
  5585. *** 2260,2266 ****
  5586.     {
  5587.       char *p = aux_info_base;
  5588.   
  5589. !     while (*p != ':')
  5590.         p++;
  5591.       p++;
  5592.       while (*p == ' ')
  5593. --- 2289,2297 ----
  5594.     {
  5595.       char *p = aux_info_base;
  5596.   
  5597. !     /* have to make sure at least one space is following the colon to make
  5598. !        sure the colon is not part of the filename */
  5599. !     while (*p != ':' && p[1] != ' ')
  5600.         p++;
  5601.       p++;
  5602.       while (*p == ' ')
  5603. ***************
  5604. *** 2274,2280 ****
  5605.         continue;
  5606.       aux_info_second_line = p;
  5607.       aux_info_relocated_name = 0;
  5608. !     if (invocation_filename[0] != '/')
  5609.         {
  5610.       /* INVOCATION_FILENAME is relative;
  5611.          append it to BASE_SOURCE_FILENAME's dir.  */
  5612. --- 2305,2315 ----
  5613.         continue;
  5614.       aux_info_second_line = p;
  5615.       aux_info_relocated_name = 0;
  5616. ! #ifdef FILE_NAME_ABSOLUTE_P
  5617. !     if (! FILE_NAME_ABSOLUTE_P (invocation_filename))
  5618. ! #else
  5619. !       if (invocation_filename[0] != '/')
  5620. ! #endif
  5621.         {
  5622.       /* INVOCATION_FILENAME is relative;
  5623.          append it to BASE_SOURCE_FILENAME's dir.  */
  5624. ***************
  5625. *** 2314,2320 ****
  5626.                     {
  5627.                       fprintf (stderr, "%s: can't delete file `%s': %s\n",
  5628.                    pname, shortpath (NULL, aux_info_filename),
  5629. !                  sys_errlist[errno]);
  5630.                       return;
  5631.                     }
  5632.                   goto start_over;
  5633. --- 2349,2355 ----
  5634.                     {
  5635.                       fprintf (stderr, "%s: can't delete file `%s': %s\n",
  5636.                    pname, shortpath (NULL, aux_info_filename),
  5637. !                  strerror (errno));
  5638.                       return;
  5639.                     }
  5640.                   goto start_over;
  5641. ***************
  5642. *** 2362,2368 ****
  5643.   #ifndef UNPROTOIZE
  5644.   
  5645.   /* Check an individual filename for a .c suffix.  If the filename has this
  5646. !    suffix, rename the file such that its suffix is changed to .C.  This
  5647.      function implements the -C option.  */
  5648.   
  5649.   static void
  5650. --- 2397,2403 ----
  5651.   #ifndef UNPROTOIZE
  5652.   
  5653.   /* Check an individual filename for a .c suffix.  If the filename has this
  5654. !    suffix, rename the file such that its suffix is changed to .cc.  This
  5655.      function implements the -C option.  */
  5656.   
  5657.   static void
  5658. ***************
  5659. *** 2371,2377 ****
  5660.   {
  5661.     const char *filename = hp->symbol;
  5662.     int last_char_index = strlen (filename) - 1;
  5663. !   char *const new_filename = (char *) alloca (strlen (filename) + 1);
  5664.   
  5665.     /* Note that we don't care here if the given file was converted or not.  It
  5666.        is possible that the given file was *not* converted, simply because there
  5667. --- 2406,2412 ----
  5668.   {
  5669.     const char *filename = hp->symbol;
  5670.     int last_char_index = strlen (filename) - 1;
  5671. !   char *const new_filename = (char *) alloca (strlen (filename) + 2);
  5672.   
  5673.     /* Note that we don't care here if the given file was converted or not.  It
  5674.        is possible that the given file was *not* converted, simply because there
  5675. ***************
  5676. *** 2383,2395 ****
  5677.       return;
  5678.   
  5679.     strcpy (new_filename, filename);
  5680. !   new_filename[last_char_index] = 'C';
  5681.   
  5682.     if (my_link (filename, new_filename) == -1)
  5683.       {
  5684.         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  5685.              pname, shortpath (NULL, filename),
  5686. !            shortpath (NULL, new_filename), sys_errlist[errno]);
  5687.         errors++;
  5688.         return;
  5689.       }
  5690. --- 2418,2447 ----
  5691.       return;
  5692.   
  5693.     strcpy (new_filename, filename);
  5694. !   strcat (new_filename + last_char_index, "cc");
  5695. !   
  5696. !   /* use rename(2) if available !! Update config files to include HAVE_rename
  5697. !      if the used OS provides it. Advantages are: it's atomic, it's one
  5698. !      system call compared to two. */
  5699. ! 
  5700. ! #ifdef HAVE_rename
  5701. !   /* if the mentioned systems (POSIX 1003.1-1988) have rename(2), this has
  5702. !      to be changed to `my_rename' as well. */
  5703.   
  5704. +   if (rename (filename, new_filename) == -1)
  5705. +     {
  5706. +       fprintf (stderr, "%s: warning: can't rename file `%s' to `%s': %s\n",
  5707. +            pname, shortpath (NULL, filename),
  5708. +            shortpath (NULL, new_filename), strerror (errno));
  5709. +       errors++;
  5710. +       return;
  5711. +     }
  5712. + #else
  5713.     if (my_link (filename, new_filename) == -1)
  5714.       {
  5715.         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  5716.              pname, shortpath (NULL, filename),
  5717. !            shortpath (NULL, new_filename), strerror (errno));
  5718.         errors++;
  5719.         return;
  5720.       }
  5721. ***************
  5722. *** 2397,2406 ****
  5723.     if (my_unlink (filename) == -1)
  5724.       {
  5725.         fprintf (stderr, "%s: warning: can't delete file `%s': %s\n",
  5726. !            pname, shortpath (NULL, filename), sys_errlist[errno]);
  5727.         errors++;
  5728.         return;
  5729.       }
  5730.   }
  5731.   
  5732.   #endif /* !defined (UNPROTOIZE) */
  5733. --- 2449,2459 ----
  5734.     if (my_unlink (filename) == -1)
  5735.       {
  5736.         fprintf (stderr, "%s: warning: can't delete file `%s': %s\n",
  5737. !            pname, shortpath (NULL, filename), strerror (errno));
  5738.         errors++;
  5739.         return;
  5740.       }
  5741. + #endif
  5742.   }
  5743.   
  5744.   #endif /* !defined (UNPROTOIZE) */
  5745. ***************
  5746. *** 4093,4099 ****
  5747.     if (my_stat ((char *)convert_filename, &stat_buf) == -1)
  5748.       {
  5749.         fprintf (stderr, "%s: can't get status for file `%s': %s\n",
  5750. !            pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  5751.         return;
  5752.       }
  5753.     orig_size = stat_buf.st_size;
  5754. --- 4146,4152 ----
  5755.     if (my_stat ((char *)convert_filename, &stat_buf) == -1)
  5756.       {
  5757.         fprintf (stderr, "%s: can't get status for file `%s': %s\n",
  5758. !            pname, shortpath (NULL, convert_filename), strerror (errno));
  5759.         return;
  5760.       }
  5761.     orig_size = stat_buf.st_size;
  5762. ***************
  5763. *** 4128,4134 ****
  5764.         {
  5765.           fprintf (stderr, "%s: can't open file `%s' for reading: %s\n",
  5766.            pname, shortpath (NULL, convert_filename),
  5767. !          sys_errlist[errno]);
  5768.           return;
  5769.         }
  5770.   
  5771. --- 4181,4187 ----
  5772.         {
  5773.           fprintf (stderr, "%s: can't open file `%s' for reading: %s\n",
  5774.            pname, shortpath (NULL, convert_filename),
  5775. !          strerror (errno));
  5776.           return;
  5777.         }
  5778.   
  5779. ***************
  5780. *** 4141,4147 ****
  5781.           close (input_file);
  5782.           fprintf (stderr, "\n%s: error reading input file `%s': %s\n",
  5783.            pname, shortpath (NULL, convert_filename),
  5784. !          sys_errlist[errno]);
  5785.           return;
  5786.         }
  5787.   
  5788. --- 4194,4200 ----
  5789.           close (input_file);
  5790.           fprintf (stderr, "\n%s: error reading input file `%s': %s\n",
  5791.            pname, shortpath (NULL, convert_filename),
  5792. !          strerror (errno));
  5793.           return;
  5794.         }
  5795.   
  5796. ***************
  5797. *** 4174,4180 ****
  5798.         {
  5799.           fprintf (stderr, "%s: can't create/open clean file `%s': %s\n",
  5800.            pname, shortpath (NULL, clean_filename),
  5801. !          sys_errlist[errno]);
  5802.           return;
  5803.         }
  5804.     
  5805. --- 4227,4233 ----
  5806.         {
  5807.           fprintf (stderr, "%s: can't create/open clean file `%s': %s\n",
  5808.            pname, shortpath (NULL, clean_filename),
  5809. !          strerror (errno));
  5810.           return;
  5811.         }
  5812.     
  5813. ***************
  5814. *** 4182,4188 ****
  5815.     
  5816.       if (write (clean_file, new_clean_text_base, clean_size) != clean_size)
  5817.         fprintf (stderr, "%s: error writing file `%s': %s\n",
  5818. !            pname, shortpath (NULL, clean_filename), sys_errlist[errno]);
  5819.     
  5820.       close (clean_file);
  5821.     }
  5822. --- 4235,4241 ----
  5823.     
  5824.       if (write (clean_file, new_clean_text_base, clean_size) != clean_size)
  5825.         fprintf (stderr, "%s: error writing file `%s': %s\n",
  5826. !            pname, shortpath (NULL, clean_filename), strerror (errno));
  5827.     
  5828.       close (clean_file);
  5829.     }
  5830. ***************
  5831. *** 4285,4291 ****
  5832.                  pname,
  5833.                  shortpath (NULL, convert_filename),
  5834.                  shortpath (NULL, new_filename),
  5835. !                sys_errlist[errno]);
  5836.                 return;
  5837.               }
  5838.           }
  5839. --- 4338,4344 ----
  5840.                  pname,
  5841.                  shortpath (NULL, convert_filename),
  5842.                  shortpath (NULL, new_filename),
  5843. !                strerror (errno));
  5844.                 return;
  5845.               }
  5846.           }
  5847. ***************
  5848. *** 4294,4300 ****
  5849.     if (my_unlink (convert_filename) == -1)
  5850.       {
  5851.         fprintf (stderr, "%s: can't delete file `%s': %s\n",
  5852. !            pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  5853.         return;
  5854.       }
  5855.   
  5856. --- 4347,4353 ----
  5857.     if (my_unlink (convert_filename) == -1)
  5858.       {
  5859.         fprintf (stderr, "%s: can't delete file `%s': %s\n",
  5860. !            pname, shortpath (NULL, convert_filename), strerror (errno));
  5861.         return;
  5862.       }
  5863.   
  5864. ***************
  5865. *** 4307,4313 ****
  5866.         {
  5867.           fprintf (stderr, "%s: can't create/open output file `%s': %s\n",
  5868.            pname, shortpath (NULL, convert_filename),
  5869. !          sys_errlist[errno]);
  5870.           return;
  5871.         }
  5872.     
  5873. --- 4360,4366 ----
  5874.         {
  5875.           fprintf (stderr, "%s: can't create/open output file `%s': %s\n",
  5876.            pname, shortpath (NULL, convert_filename),
  5877. !          strerror (errno));
  5878.           return;
  5879.         }
  5880.     
  5881. ***************
  5882. *** 4319,4325 ****
  5883.         if (write (output_file, repl_text_base, out_size) != out_size)
  5884.           fprintf (stderr, "%s: error writing file `%s': %s\n",
  5885.            pname, shortpath (NULL, convert_filename),
  5886. !          sys_errlist[errno]);
  5887.       }
  5888.     
  5889.       close (output_file);
  5890. --- 4372,4378 ----
  5891.         if (write (output_file, repl_text_base, out_size) != out_size)
  5892.           fprintf (stderr, "%s: error writing file `%s': %s\n",
  5893.            pname, shortpath (NULL, convert_filename),
  5894. !          strerror (errno));
  5895.       }
  5896.     
  5897.       close (output_file);
  5898. ***************
  5899. *** 4336,4342 ****
  5900.     /* The cast avoids an erroneous warning on AIX.  */
  5901.     if (my_chmod ((char *)convert_filename, stat_buf.st_mode) == -1)
  5902.       fprintf (stderr, "%s: can't change mode of file `%s': %s\n",
  5903. !          pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  5904.   
  5905.     /* Note:  We would try to change the owner and group of the output file
  5906.        to match those of the input file here, except that may not be a good
  5907. --- 4389,4395 ----
  5908.     /* The cast avoids an erroneous warning on AIX.  */
  5909.     if (my_chmod ((char *)convert_filename, stat_buf.st_mode) == -1)
  5910.       fprintf (stderr, "%s: can't change mode of file `%s': %s\n",
  5911. !          pname, shortpath (NULL, convert_filename), strerror (errno));
  5912.   
  5913.     /* Note:  We would try to change the owner and group of the output file
  5914.        to match those of the input file here, except that may not be a good
  5915. ***************
  5916. *** 4479,4485 ****
  5917.     if (!cwd_buffer)
  5918.       {
  5919.         fprintf (stderr, "%s: cannot get working directory: %s\n",
  5920. !            pname, sys_errlist[errno]);
  5921.         exit (1);
  5922.       }
  5923.   
  5924. --- 4532,4538 ----
  5925.     if (!cwd_buffer)
  5926.       {
  5927.         fprintf (stderr, "%s: cannot get working directory: %s\n",
  5928. !            pname, strerror (errno));
  5929.         exit (1);
  5930.       }
  5931.   
  5932. diff -rcP gcc-2.4.5-fsf/real.c gcc-2.4.5-amiga/real.c
  5933. *** gcc-2.4.5-fsf/real.c    Sun Jun 13 22:09:11 1993
  5934. --- gcc-2.4.5-amiga/real.c    Fri Sep 24 01:51:38 1993
  5935. ***************
  5936. *** 3793,3801 ****
  5937.     if (y[NE - 1] == 0x7fff)
  5938.       {
  5939.         if (sign)
  5940. !     sprintf (wstring, " -Infinity ");
  5941.         else
  5942. !     sprintf (wstring, " Infinity ");
  5943.         goto bxit;
  5944.       }
  5945.   
  5946. --- 3793,3801 ----
  5947.     if (y[NE - 1] == 0x7fff)
  5948.       {
  5949.         if (sign)
  5950. !     sprintf (wstring, " -NaN");
  5951.         else
  5952. !     sprintf (wstring, " NaN");
  5953.         goto bxit;
  5954.       }
  5955.   
  5956. diff -rcP gcc-2.4.5-fsf/rtl.c gcc-2.4.5-amiga/rtl.c
  5957. *** gcc-2.4.5-fsf/rtl.c    Mon May 17 20:07:00 1993
  5958. --- gcc-2.4.5-amiga/rtl.c    Mon Sep  6 02:47:31 1993
  5959. ***************
  5960. *** 50,56 ****
  5961.   
  5962.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  5963.   
  5964. ! char *rtx_name[] = {
  5965.   #include "rtl.def"        /* rtl expressions are documented here */
  5966.   };
  5967.   
  5968. --- 50,56 ----
  5969.   
  5970.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  5971.   
  5972. ! char * const rtx_name[] = {
  5973.   #include "rtl.def"        /* rtl expressions are documented here */
  5974.   };
  5975.   
  5976. ***************
  5977. *** 61,67 ****
  5978.   
  5979.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  5980.   
  5981. ! char *mode_name[(int) MAX_MACHINE_MODE] = {
  5982.   #include "machmode.def"
  5983.   
  5984.   #ifdef EXTRA_CC_MODES
  5985. --- 61,67 ----
  5986.   
  5987.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  5988.   
  5989. ! char * const mode_name[(int) MAX_MACHINE_MODE] = {
  5990.   #include "machmode.def"
  5991.   
  5992.   #ifdef EXTRA_CC_MODES
  5993. ***************
  5994. *** 77,83 ****
  5995.   
  5996.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  5997.   
  5998. ! enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  5999.   #include "machmode.def"
  6000.   };
  6001.   
  6002. --- 77,83 ----
  6003.   
  6004.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  6005.   
  6006. ! const enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  6007.   #include "machmode.def"
  6008.   };
  6009.   
  6010. ***************
  6011. *** 88,94 ****
  6012.   
  6013.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  6014.   
  6015. ! int mode_size[(int) MAX_MACHINE_MODE] = {
  6016.   #include "machmode.def"
  6017.   };
  6018.   
  6019. --- 88,94 ----
  6020.   
  6021.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  6022.   
  6023. ! const int mode_size[(int) MAX_MACHINE_MODE] = {
  6024.   #include "machmode.def"
  6025.   };
  6026.   
  6027. ***************
  6028. *** 99,105 ****
  6029.   
  6030.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  6031.   
  6032. ! int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  6033.   #include "machmode.def"        /* machine modes are documented here */
  6034.   };
  6035.   
  6036. --- 99,105 ----
  6037.   
  6038.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  6039.   
  6040. ! const int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  6041.   #include "machmode.def"        /* machine modes are documented here */
  6042.   };
  6043.   
  6044. ***************
  6045. *** 112,118 ****
  6046.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  \
  6047.     (enum machine_mode) WIDER,
  6048.   
  6049. ! enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  6050.   #include "machmode.def"        /* machine modes are documented here */
  6051.   };
  6052.   
  6053. --- 112,118 ----
  6054.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  \
  6055.     (enum machine_mode) WIDER,
  6056.   
  6057. ! const enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  6058.   #include "machmode.def"        /* machine modes are documented here */
  6059.   };
  6060.   
  6061. ***************
  6062. *** 131,137 ****
  6063.      rtx's of that code.  The sequence is a C string in which
  6064.      each character describes one operand.  */
  6065.   
  6066. ! char *rtx_format[] = {
  6067.     /* "*" undefined.
  6068.            can cause a warning message
  6069.        "0" field is unused (or used in a phase-dependent manner)
  6070. --- 131,137 ----
  6071.      rtx's of that code.  The sequence is a C string in which
  6072.      each character describes one operand.  */
  6073.   
  6074. ! char *const rtx_format[] = {
  6075.     /* "*" undefined.
  6076.            can cause a warning message
  6077.        "0" field is unused (or used in a phase-dependent manner)
  6078. ***************
  6079. *** 162,168 ****
  6080.   /* Indexed by rtx code, gives a character representing the "class" of
  6081.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  6082.   
  6083. ! char rtx_class[] = {
  6084.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  6085.   #include "rtl.def"        /* rtl expressions are defined here */
  6086.   #undef DEF_RTL_EXPR
  6087. --- 162,168 ----
  6088.   /* Indexed by rtx code, gives a character representing the "class" of
  6089.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  6090.   
  6091. ! const char rtx_class[] = {
  6092.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  6093.   #include "rtl.def"        /* rtl expressions are defined here */
  6094.   #undef DEF_RTL_EXPR
  6095. ***************
  6096. *** 170,176 ****
  6097.   
  6098.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  6099.   
  6100. ! char *note_insn_name[] = { 0                    , "NOTE_INSN_DELETED",
  6101.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  6102.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  6103.                  "NOTE_INSN_FUNCTION_END", "NOTE_INSN_SETJMP",
  6104. --- 170,176 ----
  6105.   
  6106.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  6107.   
  6108. ! char * const note_insn_name[] = { 0                    , "NOTE_INSN_DELETED",
  6109.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  6110.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  6111.                  "NOTE_INSN_FUNCTION_END", "NOTE_INSN_SETJMP",
  6112. ***************
  6113. *** 178,184 ****
  6114.                  "NOTE_INSN_PROLOGUE_END", "NOTE_INSN_EPILOGUE_BEG",
  6115.                  "NOTE_INSN_DELETED_LABEL", "NOTE_INSN_FUNCTION_BEG"};
  6116.   
  6117. ! char *reg_note_name[] = { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  6118.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  6119.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  6120.                 "REG_CC_SETTER", "REG_CC_USER", "REG_LABEL",
  6121. --- 178,185 ----
  6122.                  "NOTE_INSN_PROLOGUE_END", "NOTE_INSN_EPILOGUE_BEG",
  6123.                  "NOTE_INSN_DELETED_LABEL", "NOTE_INSN_FUNCTION_BEG"};
  6124.   
  6125. ! char * const reg_note_name[] =
  6126. !              { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  6127.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  6128.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  6129.                 "REG_CC_SETTER", "REG_CC_USER", "REG_LABEL",
  6130. diff -rcP gcc-2.4.5-fsf/rtl.h gcc-2.4.5-amiga/rtl.h
  6131. *** gcc-2.4.5-fsf/rtl.h    Sat May 29 16:15:40 1993
  6132. --- gcc-2.4.5-amiga/rtl.h    Mon Sep  6 02:47:34 1993
  6133. ***************
  6134. *** 44,56 ****
  6135.   extern int rtx_length[];
  6136.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  6137.   
  6138. ! extern char *rtx_name[];
  6139.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  6140.   
  6141. ! extern char *rtx_format[];
  6142.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  6143.   
  6144. ! extern char rtx_class[];
  6145.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  6146.   
  6147.   /* Common union for an element of an rtx.  */
  6148. --- 44,56 ----
  6149.   extern int rtx_length[];
  6150.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  6151.   
  6152. ! extern char * const rtx_name[];
  6153.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  6154.   
  6155. ! extern char * const rtx_format[];
  6156.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  6157.   
  6158. ! extern const char rtx_class[];
  6159.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  6160.   
  6161.   /* Common union for an element of an rtx.  */
  6162. ***************
  6163. *** 330,336 ****
  6164.   
  6165.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  6166.   
  6167. ! extern char *reg_note_name[];
  6168.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  6169.   
  6170.   /* The label-number of a code-label.  The assembler label
  6171. --- 330,336 ----
  6172.   
  6173.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  6174.   
  6175. ! extern char *const reg_note_name[];
  6176.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  6177.   
  6178.   /* The label-number of a code-label.  The assembler label
  6179. ***************
  6180. *** 407,413 ****
  6181.   
  6182.   /* Names for NOTE insn's other than line numbers.  */
  6183.   
  6184. ! extern char *note_insn_name[];
  6185.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  6186.   
  6187.   /* The name of a label, in case it corresponds to an explicit label
  6188. --- 407,413 ----
  6189.   
  6190.   /* Names for NOTE insn's other than line numbers.  */
  6191.   
  6192. ! extern char *const note_insn_name[];
  6193.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  6194.   
  6195.   /* The name of a label, in case it corresponds to an explicit label
  6196. diff -rcP gcc-2.4.5-fsf/toplev.c gcc-2.4.5-amiga/toplev.c
  6197. *** gcc-2.4.5-fsf/toplev.c    Sat Jun 19 22:34:12 1993
  6198. --- gcc-2.4.5-amiga/toplev.c    Mon Sep  6 02:48:13 1993
  6199. ***************
  6200. *** 492,497 ****
  6201. --- 492,498 ----
  6202.     {"unroll-all-loops", &flag_unroll_all_loops, 1},
  6203.     {"writable-strings", &flag_writable_strings, 1},
  6204.     {"peephole", &flag_no_peephole, 0},
  6205. +   {"large-baserel", &flag_pic, 4},
  6206.     {"force-mem", &flag_force_mem, 1},
  6207.     {"force-addr", &flag_force_addr, 1},
  6208.     {"function-cse", &flag_no_function_cse, 0},
  6209. ***************
  6210. *** 510,515 ****
  6211. --- 511,517 ----
  6212.     {"schedule-insns2", &flag_schedule_insns_after_reload, 1},
  6213.     {"pic", &flag_pic, 1},
  6214.     {"PIC", &flag_pic, 2},
  6215. +   {"baserel", &flag_pic, 3},
  6216.     {"fast-math", &flag_fast_math, 1},
  6217.     {"common", &flag_no_common, 0},
  6218.     {"inhibit-size-directive", &flag_inhibit_size_directive, 1},
  6219. ***************
  6220. *** 1486,1491 ****
  6221. --- 1488,1496 ----
  6222.        FILE *asm_file;
  6223.        char *input_name;
  6224.   {
  6225. + #ifdef FILE_NAME_NONDIRECTORY
  6226. +   char *na = FILE_NAME_NONDIRECTORY (input_name);
  6227. + #else
  6228.     int len = strlen (input_name);
  6229.     char *na = input_name + len;
  6230.   
  6231. ***************
  6232. *** 1496,1501 ****
  6233. --- 1501,1507 ----
  6234.       break;
  6235.         na--;
  6236.       }
  6237. + #endif
  6238.   
  6239.   #ifdef ASM_OUTPUT_MAIN_SOURCE_FILENAME
  6240.     ASM_OUTPUT_MAIN_SOURCE_FILENAME (asm_file, na);
  6241. ***************
  6242. *** 3380,3385 ****
  6243. --- 3386,3392 ----
  6244.   
  6245.   #ifndef OS2
  6246.   #ifndef VMS
  6247. + #ifndef amigados
  6248.     if (flag_print_mem)
  6249.       {
  6250.         char *lim = (char *) sbrk (0);
  6251. ***************
  6252. *** 3394,3399 ****
  6253. --- 3401,3407 ----
  6254.         system ("ps v");
  6255.   #endif /* not USG */
  6256.       }
  6257. + #endif /* not amigados */
  6258.   #endif /* not VMS */
  6259.   #endif /* not OS2 */
  6260.   
  6261. diff -rcP gcc-2.4.5-fsf/tree.c gcc-2.4.5-amiga/tree.c
  6262. *** gcc-2.4.5-fsf/tree.c    Wed May 12 18:09:00 1993
  6263. --- gcc-2.4.5-amiga/tree.c    Mon Sep  6 02:48:16 1993
  6264. ***************
  6265. *** 248,254 ****
  6266.   /* Unique id for next type created.  */
  6267.   static int next_type_uid = 1;
  6268.   
  6269. ! extern char *mode_name[];
  6270.   
  6271.   void gcc_obstack_init ();
  6272.   static tree stabilize_reference_1 ();
  6273. --- 248,254 ----
  6274.   /* Unique id for next type created.  */
  6275.   static int next_type_uid = 1;
  6276.   
  6277. ! extern char *const mode_name[];
  6278.   
  6279.   void gcc_obstack_init ();
  6280.   static tree stabilize_reference_1 ();
  6281.