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