home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / gnu / gnat-1.80-diffs.lha / src / diffs / gnat-1.80.diffs
Text File  |  1994-07-12  |  1MB  |  31,399 lines
  1. diff -rc --new-file /src/baseline/gnat-1.80/Product-Info gnat-1.80/Product-Info
  2. *** /src/baseline/gnat-1.80/Product-Info    Thu Jan  1 00:00:00 1970
  3. --- gnat-1.80/Product-Info    Tue Jul 12 17:21:10 1994
  4. ***************
  5. *** 0 ****
  6. --- 1,20 ----
  7. + .name
  8. + gnat
  9. + .fullname
  10. + GNU Ada compiler
  11. + .type
  12. + Programmer Tool
  13. + .short
  14. + GNU Ada compiler.
  15. + .description
  16. + Port of the GNU Ada compiler.  Requires matching gcc 2.5.8 distribution.
  17. + .version
  18. + 1.80
  19. + .author
  20. + .requirements
  21. + Amiga binaries require ixemul.library.
  22. + Requires gcc 2.5.8.
  23. + .distribution
  24. + GNU Public License
  25. + .described-by
  26. + Fred Fish (fnf@amigalib.com)
  27. diff -rc --new-file /src/baseline/gnat-1.80/README-amiga gnat-1.80/README-amiga
  28. *** /src/baseline/gnat-1.80/README-amiga    Thu Jan  1 00:00:00 1970
  29. --- gnat-1.80/README-amiga    Thu Jul  7 10:36:24 1994
  30. ***************
  31. *** 0 ****
  32. --- 1,136 ----
  33. + This is the GNU Ada compiler, GNAT.  The compiler is in a 'hacker  
  34. + state', ie. it is complete and certainly not bug free.  But you it can
  35. + compile itself, more than 110,000 lines of Ada, and many other 
  36. + programs.
  37. + I have compiled the entire thing, including the compilers, the library
  38. + and the other utility program that came with it.  I have not test any
  39. + of it extensively, except for compiling itself and a few old programs
  40. + I had from school.
  41. + The only mandatory files you need are gnat1 and gnatbind for the amiga
  42. + and the source, if you want to compile it yourself.
  43. +     those files are
  44. +         gnat1-gnatbind.lha
  45. +         and gnat-1.80-src.lha
  46. + 
  47. +                 and of course, the gcc-2.5.8 source
  48. + 
  49. + There is a third file, gnat-1.80-bin.lha, it contains everything
  50. + needed to run compile ada programs, but not the source to recompile
  51. + GNAT. 
  52. + 
  53. + In gnat-1.80-src.lha there is a directory called corrections, these
  54. + are some thing that needed to be done to gnat to get it to compile,
  55. + just *ruff* notes. ( don't trust the diffs , they be backward ).
  56. + The problem I ran into were:
  57. +     1. the compiler generates bad code for the parser (par.o)
  58. +        the statement that it compiles wrong is something like
  59. +         
  60. +                   exit when SS_FLAG.uncd
  61. + 
  62. +        par.s.diff will show you where the problem is, and a
  63. +            working alternative.
  64. + 
  65. +         2. The compiler craps out with an interanl error, on two
  66. +            code statement in uintp.adb.
  67. +        Unitp.adb.diff shows a workaround that seem to work.
  68. + 
  69. +         3. The compiler bombs on some code in atree.adb.
  70. +                Atree.adb.changes shows how to change the code,
  71. +                but it must be repeated a couple of time.
  72. + 
  73. +         4. There is also a problem with the 'md' file. A replacement
  74. +            is in the correction directory along with the original.
  75. + 
  76. + I also had a few other problem compiling the sytem, most seem to be
  77. + related to memory constraints. Plan on a lot of memory to recompile
  78. + this thing, > 14meg. ( most of the files do not need that much memory
  79. + but there are a couple that do, par-*.ad?. Also *lots* of disk space.
  80. + 
  81. + Another problem for amiga owners seems to be the stack.  I compiled
  82. + one old program and ran it, it needed 470,000 stack to run. I have no
  83. + idea how to work around this.
  84. + 
  85. + Happy ADAing.
  86. + 
  87. + Pass Travis
  88. + 
  89. + ptravis@rs6.tcs.tulane.edu
  90. + 
  91. + ======================================================================
  92. + These notes added by Fred Fish.
  93. + 
  94. +     *    This file has been renamed README-amiga
  95. + 
  96. +     *    There is a new directory, "amiga", containing amiga specific
  97. +     notes and such.
  98. + 
  99. +     *    The "corrections" directory refered to above has been moved
  100. +     to amiga/corrections, and is not used.
  101. + 
  102. + 
  103. + ===============
  104. + REBUILDING GNAT
  105. + ===============
  106. + 
  107. + (1)    Start with the baseline FSF gcc 2.5.8 archive gcc-2.5.8.tar.gz.
  108. +     Ungzip it, and then untar it:
  109. + 
  110. +         gzip -d gcc-2.5.8.tar.gz
  111. +         tar -xvf gcc-2.5.8.tar
  112. +         rm gcc-2.5.8.tar
  113. + 
  114. +         Note: if you are starting with my CD distribution, you
  115. +         can skip steps 1 and 2, and simply clone the gcc-2.5.8
  116. +         tree under gnu:src/amiga to use as a starting point with
  117. +         step 3.
  118. + 
  119. + (2)    Cd to the gcc root directory and apply the diffs that turn the
  120. +     baseline FSF gcc into Amiga gcc:
  121. + 
  122. +         cd gcc-2.5.8
  123. +         patch -p1 <gnu:src/amiga/gnat-1.80/amiga/gcc-2.5.8.diffs
  124. +         delete #?.orig
  125. +         delete config/m68k/#?.orig
  126. + 
  127. + (3)    Now apply the diffs that are needed to amiga gcc files for amiga
  128. +     gnat.  These diffs don't add any files, just change the gcc ones:
  129. + 
  130. +         patch -p1 <gnu:src/amiga/gnat-1.80/amiga/gcc-gnat.diffs
  131. +         delete #?.orig
  132. +         delete #?/#?/#?.orig
  133. + 
  134. + (4)    Now copy the new ada specific source files from the gnat
  135. +     distribution into the gcc source directory:
  136. + 
  137. +         copy gnu:src/amiga/gnat-1.80/src "" all clone
  138. + 
  139. + (5)    Delete the diff files provided with gnat, they are already taken
  140. +     care of by the patches applied above.
  141. + 
  142. +         delete #?.diff
  143. + 
  144. + (6)    Configure gcc/gnat for amigados:
  145. + 
  146. +         sh configure amigados
  147. + 
  148. + (7)    Build just the ada portions:
  149. + 
  150. +         make LANGUAGES=ada
  151. + 
  152. + (8)    Build the ada runtime
  153. + 
  154. +         make tmp-adainclude
  155. + 
  156. + (9)    Install the ada binaries:
  157. + 
  158. +         copy gnat1 gnu:lib/gcc-lib/amigados/2.5.8/gnat1
  159. +         copy gnatbind gnu:bin/gnatbind
  160. +         copy gnatbl gnu:bin/gnatbl
  161. +         copy gnatchop gnu:bin/gnatchop
  162. +         copy gnatf gnu:bin/gnatf
  163. +         copy gnatk8 gnu:bin/gnatk8
  164. +         copy gnatsplit gnu:bin/gnatsplit
  165. + 
  166. + (10)    Install the ada runtime:
  167. + 
  168. +         make install-gnatlib
  169. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/Makefile gnat-1.80/amiga/corrections/Makefile
  170. *** /src/baseline/gnat-1.80/amiga/corrections/Makefile    Thu Jan  1 00:00:00 1970
  171. --- gnat-1.80/amiga/corrections/Makefile    Thu Jun 23 13:13:15 1994
  172. ***************
  173. *** 0 ****
  174. --- 1,3326 ----
  175. + VPATH = /Work/projects/gcc/gcc-2.5.8
  176. + VPATH = /Work/projects/gcc/gcc-2.5.8
  177. + # Makefile for GNU C compiler.
  178. + #   Copyright (C) 1987, 88, 90, 91, 92, 1993 Free Software Foundation, Inc.
  179. + 
  180. + #This file is part of GNU CC.
  181. + 
  182. + #GNU CC is free software; you can redistribute it and/or modify
  183. + #it under the terms of the GNU General Public License as published by
  184. + #the Free Software Foundation; either version 2, or (at your option)
  185. + #any later version.
  186. + 
  187. + #GNU CC is distributed in the hope that it will be useful,
  188. + #but WITHOUT ANY WARRANTY; without even the implied warranty of
  189. + #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  190. + #GNU General Public License for more details.
  191. + 
  192. + #You should have received a copy of the GNU General Public License
  193. + #along with GNU CC; see the file COPYING.  If not, write to
  194. + #the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  195. + 
  196. + # The targets for external use include:
  197. + # all, doc, proto, install, install-cross, install-cross-rest,
  198. + # uninstall, TAGS, mostlyclean, clean, distclean, realclean,
  199. + # stage1, stage2, stage3, stage4.
  200. + 
  201. + # Suppress smart makes who think they know how to automake Yacc files
  202. + .y.c:
  203. + 
  204. + # Variables that exist for you to override.
  205. + # See below for how to change them for certain systems.
  206. + 
  207. + # Selection of languages to be made.
  208. + LANGUAGES = c c++ objective-c ada proto
  209. + 
  210. + ALLOCA =
  211. + ALLOCA_FLAGS =
  212. + ALLOCA_FINISH = true
  213. + 
  214. + # Various ways of specifying flags for compilations:  
  215. + # CFLAGS is for the user to override to, e.g., do a bootstrap with -O2.
  216. + # BOOT_CFLAGS is the value of CFLAGS to pass
  217. + # to the stage2 and stage3 compilations
  218. + # XCFLAGS is used for most compilations but not when using the GCC just built.
  219. + XCFLAGS =
  220. + CFLAGS = -g
  221. + BOOT_CFLAGS = -O $(CFLAGS)
  222. + # These exists to be overridden by the x-* and t-* files, respectively.
  223. + X_CFLAGS =
  224. + T_CFLAGS =
  225. + 
  226. + X_CPPFLAGS =
  227. + T_CPPFLAGS =
  228. + 
  229. + CC = cc
  230. + BISON = bison
  231. + BISONFLAGS =
  232. + AR = ar
  233. + OLDAR_FLAGS = qc
  234. + AR_FLAGS = rc
  235. + SHELL = /bin/sh
  236. + # on sysV, define this as cp.
  237. + INSTALL = cp
  238. + # These permit overriding just for certain files.
  239. + INSTALL_PROGRAM = $(INSTALL)
  240. + INSTALL_DATA = $(INSTALL)
  241. + SYMLINK = ln -s
  242. + MAKEINFO = makeinfo
  243. + TEXI2DVI = texi2dvi
  244. + 
  245. + # Define this as & to perform parallel make on a Sequent.
  246. + # Note that this has some bugs, and it seems currently necessary 
  247. + # to compile all the gen* files first by hand to avoid erroneous results.
  248. + P =
  249. + 
  250. + # How to invoke ranlib.
  251. + RANLIB = ranlib
  252. + # Test to use to see whether ranlib exists on the system.
  253. + RANLIB_TEST = [ -f /usr/bin/ranlib -o -f /bin/ranlib ]
  254. + 
  255. + # Compiler to use for compiling libgcc1.a.
  256. + # OLDCC should not be the GNU C compiler,
  257. + # since that would compile typical libgcc1.a functions such as mulsi3
  258. + # into infinite recursions.
  259. + OLDCC = cc
  260. + 
  261. + # CFLAGS for use with OLDCC, for compiling libgcc1.a.
  262. + # NOTE: -O does not work on some Unix systems!
  263. + CCLIBFLAGS = -O
  264. + 
  265. + # Version of ar to use when compiling libgcc1.a.
  266. + OLDAR = ar
  267. + 
  268. + # Target to use when installing include directory.  Either
  269. + # install-headers-tar or install-headers-cpio.
  270. + INSTALL_HEADERS_DIR = install-headers-cp
  271. + 
  272. + # The GCC to use for compiling libgcc2.a, enquire, and cross-test.
  273. + # Usually the one we just built.
  274. + # Don't use this as a dependency--use $(GCC_PASSES) or $(GCC_PARTS).
  275. + GCC_FOR_TARGET = ./xgcc -B./
  276. + 
  277. + # This is used instead of ALL_CFLAGS when compiling with GCC_FOR_TARGET.
  278. + # It omits XCFLAGS, and specifies -B./.
  279. + # It also specifies -B$(tooldir)/ to find as and ld for a cross compiler.
  280. + GCC_CFLAGS=$(INTERNAL_CFLAGS) $(X_CFLAGS) $(T_CFLAGS) $(CFLAGS)
  281. + 
  282. + # Special flags for compiling enquire.
  283. + # We disable optimization to make floating point more reliable.
  284. + ENQUIRE_CFLAGS = -DNO_MEM -DNO_STDDEF -DNO_LONG_DOUBLE_IO -O0
  285. + ENQUIRE_LDFLAGS = $(LDFLAGS)
  286. + 
  287. + # Tools to use when building a cross-compiler.
  288. + # These are used because `configure' appends `cross-make'
  289. + # to the makefile when making a cross-compiler.
  290. + 
  291. + TARGET_TOOLPREFIX = $(tooldir)/bin/
  292. + AR_FOR_TARGET = $(TARGET_TOOLPREFIX)ar
  293. + AR_FOR_TARGET_FLAGS = rc
  294. + RANLIB_FOR_TARGET = $(TARGET_TOOLPREFIX)ranlib
  295. + RANLIB_TEST_FOR_TARGET = [ -f $(TARGET_TOOLPREFIX)ranlib ]
  296. + 
  297. + # Dir to search for system headers.  Overridden by cross-make.
  298. + SYSTEM_HEADER_DIR = /usr/include
  299. + 
  300. + # Control whether to run fixproto.
  301. + STMP_FIXPROTO = stmp-fixproto
  302. + 
  303. + # There may be a premade insn-attrtab.c for this machine.
  304. + # (You could rebuild it with genattrtab as usual, but it takes a long time.)
  305. + # PREMADE_ATTRTAB is the file name of the file to use.
  306. + # PREMADE_ATTRTAB_MD is the md file it corresponds to.
  307. + PREMADE_ATTRTAB_MD = Makefile  # Guaranteed not to cmp equal to md.
  308. + PREMADE_ATTRTAB = 
  309. + 
  310. + target=amiga
  311. + xmake_file=m68k/x-amigados
  312. + tmake_file=../Makefile.in
  313. + version=2.5.8
  314. + mainversion=`sed -e 's/.*\"\([0-9]*\.[0-9]*\).*/\1/' < $(srcdir)/version.c`
  315. + 
  316. + # Directory where sources are, from where we are.
  317. + srcdir = /Work/projects/gcc/gcc-2.5.8
  318. + # Common prefix for installation directories.
  319. + # NOTE: This directory must exist when you start installation.
  320. + prefix = /gnu
  321. + # Directory in which to put localized header files. On the systems with
  322. + # gcc as the native cc, `local_prefix' may not be `prefix' which is
  323. + # `/usr'.
  324. + # NOTE: local_prefix *should not* default from prefix.
  325. + local_prefix = /local
  326. + # Directory in which to put host dependent programs and libraries
  327. + exec_prefix = $(prefix)
  328. + # Directory in which to put the executable for the command `gcc'
  329. + bindir = $(exec_prefix)/bin
  330. + # Directory in which to put the directories used by the compiler.
  331. + libdir = $(exec_prefix)/lib
  332. + # Directory in which the compiler finds executables, libraries, etc.
  333. + libsubdir = $(libdir)/gcc-lib/$(target)/$(version)
  334. + # Directory to search for site-specific includes.
  335. + includedir = $(local_prefix)/include
  336. + # assertdir is overridden in cross-make.
  337. + # (But this currently agrees with what is in cross-make.)
  338. + assertdir = $(tooldir)/include
  339. + # where the info files go
  340. + infodir = $(prefix)/info
  341. + # Extension (if any) to put in installed man-page filename.
  342. + manext = .1
  343. + # Directory in which to put man pages.
  344. + mandir = $(prefix)/man/man1
  345. + # Directory in which to find other cross-compilation tools and headers.
  346. + # Used in install-cross.
  347. + tooldir = $(exec_prefix)/$(target)
  348. + # Dir for temp files.
  349. + tmpdir = /tmp
  350. + 
  351. + # Additional system libraries to link with.
  352. + CLIB=
  353. + 
  354. + # Change this to a null string if obstacks are installed in the
  355. + # system library.
  356. + OBSTACK=obstack.o
  357. + 
  358. + # Specify the rule for actually making libgcc.a,
  359. + LIBGCC = libgcc.a
  360. + # and the rule for installing it.
  361. + INSTALL_LIBGCC = install-libgcc
  362. + 
  363. + # Specify the rule for actually making libgcc1.a.
  364. + # The value may be empty; that means to do absolutely nothing
  365. + # with or for libgcc1.a.
  366. + LIBGCC1 = libgcc1.a
  367. + 
  368. + # Specify the rule for making libgcc1.a for a cross-compiler.
  369. + # The default rule assumes that libgcc1.a is supplied by the user.
  370. + CROSS_LIBGCC1 = libgcc1.cross
  371. + 
  372. + # Specify the rule for actually making libgcc2.a.
  373. + LIBGCC2 = libgcc2.a
  374. + 
  375. + # Options to use when compiling libgcc2.a.
  376. + # -g1 causes output of debug info only for file-scope entities.
  377. + # we use this here because that should be enough, and also
  378. + # so that -g1 will be tested.
  379. + LIBGCC2_CFLAGS = -O2 $(LIBGCC2_INCLUDES) $(GCC_CFLAGS) -g1
  380. + 
  381. + # Additional options to use when compiling libgcc2.a.
  382. + # Some targets override this to -Iinclude
  383. + LIBGCC2_INCLUDES =
  384. + 
  385. + # Things which must be built before building libgcc2.a.
  386. + # Some targets override this to stmp-int-hdrs
  387. + LIBGCC2_DEPS =
  388. + 
  389. + # Enquire target (This is a variable so that a target can choose not to
  390. + # build it.)
  391. + ENQUIRE = enquire
  392. + 
  393. + # Cross-test target (must also be overridable for a target)
  394. + CROSS_TEST = cross-test
  395. + 
  396. + # List of extra executables that should be compiled for this target machine
  397. + # that are used for compiling from source code to object code.
  398. + # The rules for compiling them should be in the t-* file for the machine.
  399. + EXTRA_PASSES =
  400. + 
  401. + # Like EXTRA_PASSES, but these are used when linking.
  402. + EXTRA_PROGRAMS = 
  403. + 
  404. + # List of extra object files that should be compiled for this target machine.
  405. + # The rules for compiling them should be in the t-* file for the machine.
  406. + EXTRA_PARTS =
  407. + 
  408. + # List of extra object files that should be compiled and linked with
  409. + # compiler proper (cc1, cc1obj, cc1plus, gnat1).
  410. + EXTRA_OBJS =
  411. + 
  412. + # List of additional header files to install.
  413. + # Often this is edited directly by `configure'.
  414. + EXTRA_HEADERS =
  415. + 
  416. + # Set this to `ld' to enable use of collect2.
  417. + # USE_COLLECT2 =
  418. + # It is convenient for configure to add the assignment at the beginning,
  419. + # so don't override it here.
  420. + 
  421. + # List of extra C and assembler files to add to libgcc1.a.
  422. + # Assembler files should have names ending in `.asm'.
  423. + LIB1FUNCS_EXTRA = 
  424. + 
  425. + # List of extra C and assembler files to add to libgcc2.a.
  426. + # Assembler files should have names ending in `.asm'.
  427. + LIB2FUNCS_EXTRA = 
  428. + 
  429. + # Default float.h source to use for cross-compiler.
  430. + CROSS_FLOAT_H=float.h-cross
  431. + 
  432. + # Program to convert libraries.
  433. + LIBCONVERT = 
  434. + 
  435. + # Control whether header files are installed.
  436. + INSTALL_HEADERS=install-headers
  437. + 
  438. + # Options for tar when copying trees.  So HPUX can override it.
  439. + TAROUTOPTS = xpBf
  440. + 
  441. + # Select which version of fixincludes to use (I.E. regular versus SVR4)
  442. + # This value is overridden directly by configure.
  443. + FIXINCLUDES = Makefile.in
  444. + 
  445. + # Additional directories of header files to run fixincludes on.
  446. + # These should be directories searched automatically by default
  447. + # just as /usr/include is.
  448. + # *Do not* use this for directories that happen to contain 
  449. + # header files, but are not searched automatically by default.
  450. + # On most systems, this is empty.
  451. + OTHER_FIXINCLUDES_DIRS=
  452. + 
  453. + # List of things which should already be built whenever we try to use xgcc
  454. + # to compile anything (without linking).
  455. + GCC_PASSES=xgcc cc1 cpp $(EXTRA_PASSES)
  456. + 
  457. + # List of things which should already be built whenever we try to use xgcc
  458. + # to link anything.
  459. + GCC_PARTS=$(GCC_PASSES) $(LIBGCC) $(EXTRA_PROGRAMS) $(USE_COLLECT2) $(EXTRA_PARTS)
  460. + 
  461. + # Directory to link to, when using the target `maketest'.
  462. + DIR = ../gcc
  463. + 
  464. + # Guaranteed to not exist when not passing md through cpp.
  465. + MD_FILE = md-cpp-not-used
  466. + 
  467. + # Flags to use when cross-building GCC.
  468. + # Prefix to apply to names of object files when using them
  469. + # to run on the machine we are compiling on.
  470. + HOST_PREFIX=
  471. + # Prefix to apply to names of object files when compiling them
  472. + # to run on the machine we are compiling on.
  473. + # The default for this variable is chosen to keep these rules 
  474. + # out of the way of the other rules for compiling the same source files.
  475. + HOST_PREFIX_1=loser-
  476. + HOST_CC=$(CC)
  477. + HOST_CFLAGS=$(ALL_CFLAGS)
  478. + HOST_CLIB=$(CLIB)
  479. + HOST_LDFLAGS=$(LDFLAGS)
  480. + HOST_CPPFLAGS=$(ALL_CPPFLAGS)
  481. + HOST_ALLOCA=$(ALLOCA)
  482. + HOST_MALLOC=$(MALLOC)
  483. + HOST_OBSTACK=$(OBSTACK)
  484. + 
  485. + # Choose the real default target.
  486. + ALL=all.internal
  487. + 
  488. + # Choose the real install target.
  489. + INSTALL_TARGET=install-normal
  490. + 
  491. + # Source for float.h.  Overridden by cross-make.
  492. + FLOAT_H=float.h-nat
  493. + 
  494. + # End of variables for you to override.
  495. + 
  496. + # Definition of `all' is here so that new rules inserted by sed
  497. + # do not specify the default target.
  498. + # The real definition is under `all.internal' (for native compilers)
  499. + # or `all.cross' (for cross compilers).
  500. + all: all.indirect
  501. + 
  502. + # This tells GNU Make version 3 not to put all variables in the environment.
  503. + .NOEXPORT:
  504. + 
  505. + # sed inserts variable overrides after the following line.
  506. + ####target overrides
  507. + ####host overrides
  508. + # Note: It doesn't do any good to try to define prefix or local_prefix
  509. + # in the host overrides because configure will just change them back.
  510. + # You either have to give an appropriate option to configure or live with
  511. + # an Amiga specific patch to configure.  See the note in configure.  -fnf
  512. + 
  513. + # Building under amigados almost certainly requires an already working gcc.
  514. + # Use gccv, which is a gcc compiled with AMIGADOS_FORK_GCC so "-pipe" will
  515. + # work and get exercised.  To bootstrap with the regular gcc just do
  516. + # "make CC=gcc".  To bootstrap without "-pipe" do "make PIPE=".
  517. + 
  518. + CC = gcc
  519. + 
  520. + # Disable -pipe for now since I had problems bootstrapping gcc 2.5.5 with
  521. + # it. (fnf)
  522. + #PIPE = -pipe
  523. + 
  524. + # Allow the user to override the default host optimization with gcc, or if the
  525. + # host compiler is not gcc and doesn't understand -O<N>.
  526. + 
  527. + X_OPTIMIZE = -O2
  528. + 
  529. + # The standard additional host flags for the compiler.
  530. + 
  531. + X_CFLAGS = $(X_OPTIMIZE)
  532. + 
  533. + # Man pages get a wierd suffix...
  534. + 
  535. + manext = .0
  536. + 
  537. + # We really shouldn't specify CFLAGS from here, but there's no other way
  538. + # to get rid of the `-g' indoctrinated by Makefile.in.  Note this becomes
  539. + # part of both the host compilation CFLAGS and the target compilation
  540. + # CFLAGS.
  541. + 
  542. + CFLAGS =
  543. + 
  544. + # Ranlib does exist, but may not be in a path where the default RANLIB_TEST
  545. + # expects it, so just force it to true.
  546. + 
  547. + RANLIB_TEST = true
  548. + 
  549. + # My current version of ln doesn't work, so use cp instead.  -fnf
  550. + 
  551. + HARDLINK = cp
  552. + # Note: It doesn't do any good to try to define prefix or local_prefix
  553. + # in the host overrides because configure will just change them back.
  554. + # You either have to give an appropriate option to configure or live with
  555. + # an Amiga specific patch to configure.  See the note in configure.  -fnf
  556. + 
  557. + # Building under amigados almost certainly requires an already working gcc.
  558. + # Use gccv, which is a gcc compiled with AMIGADOS_FORK_GCC so "-pipe" will
  559. + # work and get exercised.  To bootstrap with the regular gcc just do
  560. + # "make CC=gcc".  To bootstrap without "-pipe" do "make PIPE=".
  561. + 
  562. + CC = gcc
  563. + 
  564. + # Disable -pipe for now since I had problems bootstrapping gcc 2.5.5 with
  565. + # it. (fnf)
  566. + #PIPE = -pipe
  567. + 
  568. + # Allow the user to override the default host optimization with gcc, or if the
  569. + # host compiler is not gcc and doesn't understand -O<N>.
  570. + 
  571. + X_OPTIMIZE = -O2
  572. + 
  573. + # The standard additional host flags for the compiler.
  574. + 
  575. + X_CFLAGS = $(X_OPTIMIZE)
  576. + 
  577. + # Man pages get a wierd suffix...
  578. + 
  579. + manext = .0
  580. + 
  581. + # We really shouldn't specify CFLAGS from here, but there's no other way
  582. + # to get rid of the `-g' indoctrinated by Makefile.in.  Note this becomes
  583. + # part of both the host compilation CFLAGS and the target compilation
  584. + # CFLAGS.
  585. + 
  586. + CFLAGS =
  587. + 
  588. + # Ranlib does exist, but may not be in a path where the default RANLIB_TEST
  589. + # expects it, so just force it to true.
  590. + 
  591. + RANLIB_TEST = true
  592. + 
  593. + # My current version of ln doesn't work, so use cp instead.  -fnf
  594. + 
  595. + HARDLINK = cp
  596. + ####cross overrides
  597. + ####build overrides
  598. + 
  599. + # Now figure out from those variables how to compile and link.
  600. + 
  601. + all.indirect: $(ALL)
  602. + 
  603. + # IN_GCC tells obstack.h to use gstddef.h.
  604. + INTERNAL_CFLAGS = $(CROSS) -DIN_GCC
  605. + 
  606. + # This is the variable actually used when we compile.
  607. + ALL_CFLAGS = $(INTERNAL_CFLAGS) $(X_CFLAGS) $(T_CFLAGS) $(CFLAGS) $(XCFLAGS)
  608. + 
  609. + # Likewise.
  610. + ALL_CPPFLAGS = $(CPPFLAGS) $(X_CPPFLAGS) $(T_CPPFLAGS)
  611. + 
  612. + # Even if ALLOCA is set, don't use it if compiling with GCC.
  613. + USE_ALLOCA= ` case "${CC}" in "${OLDCC}") echo ${ALLOCA} ;; esac `
  614. + USE_HOST_ALLOCA= ` case "${HOST_CC}"@"${HOST_ALLOCA}" in "${OLDCC}"@?*) echo ${HOST_PREFIX}${HOST_ALLOCA} ;; esac `
  615. + USE_HOST_MALLOC= ` case "${HOST_MALLOC}" in ?*) echo ${HOST_PREFIX}${HOST_MALLOC} ;; esac `
  616. + USE_HOST_OBSTACK= ` case "${HOST_OBSTACK}" in ?*) echo ${HOST_PREFIX}${HOST_OBSTACK} ;; esac `
  617. + 
  618. + # Dependency on obstack, alloca, malloc or whatever library facilities
  619. + # are not installed in the system libraries.
  620. + # We don't use USE_ALLOCA because backquote expansion doesn't work in deps.
  621. + LIBDEPS= $(OBSTACK) $(ALLOCA) $(MALLOC)
  622. + 
  623. + # Likewise, for use in the tools that must run on this machine
  624. + # even if we are cross-building GCC.
  625. + # We don't use USE_ALLOCA because backquote expansion doesn't work in deps.
  626. + HOST_LIBDEPS= $(HOST_PREFIX)$(HOST_OBSTACK) $(HOST_PREFIX)$(HOST_ALLOCA) $(HOST_PREFIX)$(HOST_MALLOC)
  627. + 
  628. + # How to link with both our special library facilities
  629. + # and the system's installed libraries.
  630. + LIBS = $(OBSTACK) $(USE_ALLOCA) $(MALLOC) $(CLIB)
  631. + 
  632. + # Likewise, for use in the tools that must run on this machine
  633. + # even if we are cross-building GCC.
  634. + HOST_LIBS = $(USE_HOST_OBSTACK) $(USE_HOST_ALLOCA) $(USE_HOST_MALLOC)  \
  635. +         $(HOST_CLIB)
  636. + 
  637. + HOST_RTL = $(HOST_PREFIX)rtl.o
  638. + HOST_RTLANAL = $(HOST_PREFIX)rtlanal.o
  639. + HOST_PRINT = $(HOST_PREFIX)print-rtl.o
  640. + 
  641. + # Specify the directories to be searched for header files.
  642. + # Both . and srcdir are used, in that order,
  643. + # so that tm.h and config.h will be found in the compilation
  644. + # subdirectory rather than in the source directory.
  645. + INCLUDES = -I. -I$(srcdir) -I$(srcdir)/config
  646. + SUBDIR_INCLUDES = -I.. -I../$(srcdir) -I../$(srcdir)/config
  647. + 
  648. + # Always use -I$(srcdir)/config when compiling.
  649. + .c.o:
  650. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $<
  651. + 
  652. + # This tells GNU make version 3 not to export all the variables
  653. + # defined in this file into the environment.
  654. + .NOEXPORT:
  655. + 
  656. + # Lists of files for various purposes.
  657. + 
  658. + # A list of all the language-specific executables.
  659. + COMPILERS = cc1 cc1plus cc1obj gnat1
  660. + 
  661. + # Language-specific object files for C.
  662. + C_OBJS = c-parse.o c-lang.o c-lex.o c-pragma.o \
  663. +    c-decl.o c-typeck.o c-convert.o c-aux-info.o c-common.o c-iterate.o
  664. + 
  665. + # Language-specific object files for Objective C.
  666. + OBJC_OBJS = objc-parse.o objc-act.o c-lex.o c-pragma.o \
  667. +    c-decl.o c-typeck.o c-convert.o c-aux-info.o c-common.o c-iterate.o
  668. + 
  669. + # Language-specific object files for C++.
  670. + CPLUS_OBJS = cp-parse.o cp-decl.o cp-decl2.o \
  671. +    cp-typeck.o cp-type2.o cp-tree.o cp-ptree.o \
  672. +    cp-cvt.o cp-search.o cp-lex.o cp-gc.o cp-call.o \
  673. +    cp-class.o cp-init.o cp-method.o cp-except.o \
  674. +    cp-expr.o cp-pt.o cp-edsel.o cp-xref.o \
  675. +    $(CPLUS_INPUT) cp-spew.o c-common.o cp-error.o cp-errfn.o
  676. + 
  677. + # Languages-specific object files for Ada.
  678. + # Object files for gnat1 from C sources.
  679. + GNAT1_C_OBJS = b_gnat1.o a-adaint.o a-gettty.o a-gtran3.o a-misc.o a-trans3.o \
  680. +  a-trans4.o a-trans.o a-uintp.o
  681. + 
  682. + # Object files from Ada sources that are used by gnat1 and gnatf
  683. + GNAT_ADA_OBJS = alloc.o atree.o casing.o comperr.o csets.o debug.o \
  684. +  debug_a.o einfo.o elists.o errout.o excep.o expand.o \
  685. +  exp_attr.o exp_ch2.o exp_ch3.o \
  686. +  exp_ch4.o exp_ch5.o exp_ch6.o exp_ch7.o exp_ch8.o exp_ch9.o exp_ch10.o \
  687. +  exp_ch11.o exp_ch12.o exp_ch13.o exp_intr.o exp_prag.o exp_util.o fname.o \
  688. +  frontend.o \
  689. +  get_targ.o gnatvsn.o itypes.o krunch.o lib.o limits.o namet.o nlists.o \
  690. +  nmake.o  opt.o osint.o output.o par.o  rat.o rtsfind.o scans.o scn.o \
  691. +  sdefault.o sem.o sem_attr.o sem_ch3.o sem_ch4.o \
  692. +  sem_ch5.o sem_ch6.o sem_ch7.o sem_ch8.o sem_ch9.o sem_ch10.o sem_ch11.o \
  693. +  sem_ch12.o sem_ch13.o sem_disp.o sem_eval.o sem_intr.o sem_prag.o \
  694. +  sem_res.o sem_type.o \
  695. +  sem_util.o sinfo.o sinfo-cn.o sinput.o snames.o sprint.o stand.o \
  696. +  stringt.o style.o switch.o system.o s-assert.o  s-secsta.o \
  697. +  s-stalib.o s-stoele.o s-strcon.o s-strequ.o s-tasoli.o s-taspda.o s-traceb.o \
  698. +  s-enviro.o tbuild.o treepr.o treeprs.o ttypes.o ttypef.o types.o \
  699. +  uintp.o uname.o unixlib.o usage.o widechar.o 
  700. + 
  701. + # Object files for gnat executables
  702. + GNATF_OBJS =  $(GNAT_ADA_OBJS) gnatfdrv.o xref.o xref_tab.o a-adaint.o \
  703. +  a-gettty.o
  704. + GNAT1_ADA_OBJS = $(GNAT_ADA_OBJS) back_end.o gnat1drv.o
  705. + GNAT1_OBJS = $(GNAT1_C_OBJS) $(GNAT1_ADA_OBJS)
  706. + GNATBIND_OBJS = gnatbind.o ali.o alloc.o bcheck.o binde.o binderr.o bindgen.o \
  707. +   bindusg.o butil.o debug.o excep.o gnatvsn.o limits.o namet.o \
  708. +   opt.o osint.o output.o sdefault.o switch.o system.o \
  709. +   s-assert.o s-strequ.o s-tasoli.o s-taspda.o s-traceb.o s-secsta.o \
  710. +   s-stalib.o s-stoele.o s-enviro.o types.o unixlib.o widechar.o a-adaint.o
  711. + 
  712. + # ??? should this include all the s-*.o files explicitly?
  713. + GKRUNCH_OBJS = ada.o a-ioexce.o a-teioau.o a-textio.o gkrunch.o krunch.o \
  714. +   system.o s-enviro.o s-stoele.o s-secsta.o s-taspda.o s-tasoli.o \
  715. +   s-stalib.o $(LIBGNAT_OBJS)
  716. + 
  717. + # The runtime library for gnat comprises two directories.  One contains the
  718. + # Ada source files that the compiler (gnat1) needs -- these files are listed
  719. + # by ADA_INCLUDE_SRCS -- and the other contains the object files and their
  720. + # corresponding .ali files for the parts written in Ada, libgnat.a for
  721. + # the parts of the runtime written in C, and libpthreads.a for the pthreads
  722. + # emulation library.  LIBGNAT_OBJS lists the objects that go into libgnat.a,
  723. + # while GNAT_RTL_OBJS lists the object files compiled from Ada sources that
  724. + # go into the directory.  The pthreads emulation is built in the threads
  725. + # subdirectory and copied.
  726. + LIBGNAT_SRCS = io-aux.c a-cio.c get_errno.c
  727. + 
  728. + LIBGNAT_OBJS = io-aux.o a-cio.o get_errno.o
  729. + 
  730. + # NOTE ??? - when the -I option for compiling Ada code is made to work,
  731. + #  the library installation will change and there will be a
  732. + #  GNAT_RTL_SRCS.  Right now we count on being able to build GNAT_RTL_OBJS
  733. + #  from ADA_INCLUDE_SRCS.
  734. + GNAT_RTL_OBJS = ada.o a-calend.o \
  735. + a-chlat1.o a-cwila1.o a-finali.o \
  736. + a-charac.o \
  737. + a-ioexce.o \
  738. + a-numeri.o \
  739. + a-numaux.o \
  740. + a-nlelfu.o \
  741. + a-nllefu.o \
  742. + a-nselfu.o \
  743. + a-nuelfu.o a-nuranu.o \
  744. + a-string.o a-strmap.o a-strbou.o a-strcon.o\
  745. + a-strfix.o a-strsea.o a-tags.o \
  746. + a-taside.o \
  747. + a-textio.o \
  748. + a-teioau.o calendar.o interfac.o ioexcept.o \
  749. + system.o \
  750. + s-addima.o \
  751. + s-assert.o \
  752. + s-enviro.o \
  753. + s-errrep.o \
  754. + s-cconst.o \
  755. + s-comexc.o \
  756. + s-finimp.o \
  757. + s-poscon.o \
  758. + s-poserr.o \
  759. + s-posrte.o \
  760. + s-postim.o \
  761. + s-pthrea.o \
  762. + s-img_b.o \
  763. + s-img_c.o s-img_i.o s-imglli.o \
  764. + s-img_f.o s-img_lf.o s-imgllf.o s-img_sf.o \
  765. + s-img_wc.o \
  766. + s-secsta.o \
  767. + s-stalib.o \
  768. + s-std.o s-stoele.o \
  769. + s-strcon.o s-strequ.o \
  770. + s-taprob.o \
  771. + s-taruty.o \
  772. + s-tasabo.o \
  773. + s-tasoli.o \
  774. + s-tasclo.o \
  775. + s-taskin.o \
  776. + s-tasmem.o \
  777. + s-taspda.o \
  778. + s-taspri.o \
  779. + s-tasque.o \
  780. + s-tasren.o \
  781. + s-tassta.o \
  782. + s-tastal.o \
  783. + s-tatise.o \
  784. + s-tcmasp.o \
  785. + s-timtyp.o \
  786. + s-unstyp.o \
  787. + s-xp.o \
  788. + s-xp_bml.o \
  789. + s-xp_bmi.o \
  790. + s-xp_f.o s-xp_i.o \
  791. + s-xp_lf.o s-xp_li.o s-xp_llf.o s-xp_lli.o \
  792. + s-xp_nbm.o \
  793. + s-xp_sf.o s-xp_si.o s-xp_ssi.o \
  794. + text_io.o \
  795. + io.o a-cio.o get_errno.o
  796. + 
  797. + ADA_INCLUDE_SRCS = ada.ads \
  798. +   a-astaco.ads \
  799. +   a-calend.ads a-calend.adb \
  800. +   a-calcon.ads a-calcon.adb \
  801. +   a-caldel.adb \
  802. +   a-charac.ads a-charac.adb \
  803. +   a-chlat1.ads a-cwila1.ads \
  804. +   a-decima.ads \
  805. +   a-direio.ads a-direio.adb \
  806. +   a-dynpri.ads \
  807. +   a-except.ads a-finali.ads a-finali.adb \
  808. +   a-interr.ads \
  809. +   a-intnam.ads \
  810. +   a-ioexce.ads \
  811. +   a-numeri.ads \
  812. +   a-numaux.ads \
  813. +   a-nuelfu.ads \
  814. +   a-ngelfu.ads \
  815. +   a-ngelfu.adb \
  816. +   a-ngcoty.ads \
  817. +   a-ngcoty.adb \
  818. +   a-ngcefu.ads \
  819. +   a-ngcefu.adb \
  820. +   a-nlelfu.ads \
  821. +   a-nllefu.ads \
  822. +   a-nuranu.ads \
  823. +   a-nuranu.adb \
  824. +   a-nselfu.ads \
  825. +   a-reatim.ads \
  826. +   a-sequio.ads a-sequio.adb\
  827. +   a-string.ads \
  828. +   a-strcon.ads \
  829. +   a-strbou.ads a-strbou.adb \
  830. +   a-strfix.ads a-strfix.adb \
  831. +   a-strsea.ads a-strsea.adb \
  832. +   a-strmap.ads a-strmap.adb \
  833. +   a-stwibo.ads a-stwibo.adb \
  834. +   a-stwico.ads \
  835. +   a-stwifi.ads a-stwifi.adb \
  836. +   a-stwima.ads a-stwima.adb \
  837. +   a-stwise.ads a-stwise.adb \
  838. +   a-stwiun.ads a-stwiun.adb \
  839. +   a-strunb.ads a-strunb.adb \
  840. +   a-storio.ads a-storio.adb \
  841. +   a-stream.ads a-ststio.ads \
  842. +   a-tags.adb a-tags.ads \
  843. +   a-sytaco.ads \
  844. +   a-tasatt.ads a-tasatt.adb \
  845. +   a-taside.ads a-taside.adb \
  846. +   a-textio.ads a-textio.adb \
  847. +   a-teioau.ads a-teioau.adb \
  848. +   a-ticoio.ads a-ticoio.adb \
  849. +   a-teiopi.ads \
  850. +   a-unccon.ads a-unccon.adb \
  851. +   a-uncdea.ads a-uncdea.adb \
  852. +   a-witeio.ads \
  853. +   a-wticio.ads a-wticio.adb \
  854. +   a-wtiopi.ads \
  855. +   calendar.ads \
  856. +   directio.ads \
  857. +   interfac.ads \
  858. +   i-c.ads i-c.adb \
  859. +   i-cpoint.ads \
  860. +   i-cstrin.ads i-cstrin.adb\
  861. +   i-cobol.ads i-fortra.ads \
  862. +   ioexcept.ads \
  863. +   sequenio.ads \
  864. +   s-assert.ads \
  865. +   s-addima.ads s-addima.adb \
  866. +   s-errrep.ads s-errrep.adb \
  867. +   s-cconst.ads \
  868. +   s-comexc.ads s-comexc.adb \
  869. +   s-enviro.ads s-enviro.adb \
  870. +   s-finimp.ads s-finimp.adb \
  871. +   s-img_b.adb s-img_b.ads \
  872. +   s-img_c.adb s-img_c.ads s-img_f.ads s-img_f.adb \
  873. +   s-img_i.ads s-img_i.adb s-img_lf.adb s-img_lf.ads \
  874. +   s-imgllf.adb s-imgllf.ads s-imglli.adb s-imglli.ads \
  875. +   s-img_sf.adb s-img_sf.ads s-img_wc.ads s-img_wc.adb \
  876. +   s-poscon.ads \
  877. +   s-poserr.ads \
  878. +   s-posrte.ads s-posrte.adb \
  879. +   s-postim.ads s-postim.adb \
  880. +   s-pthrea.ads s-pthrea.adb \
  881. +   s-reatim.ads s-reatim.adb \
  882. +   s-retico.ads s-retico.adb \
  883. +   s-retide.ads s-retide.adb \
  884. +   s-secsta.ads s-secsta.adb \
  885. +   s-stalib.ads \
  886. +   s-std.ads s-std.adb \
  887. +   s-stoele.ads s-stoele.adb \
  888. +   s-strcon.adb s-strcon.ads \
  889. +   s-strequ.adb s-strequ.ads \
  890. +   s-taprob.adb s-taprob.ads \
  891. +   s-taruty.adb s-taruty.ads \
  892. +   s-tasabo.adb s-tasabo.ads \
  893. +   s-tasoli.adb s-tasoli.ads \
  894. +   s-taspda.adb s-taspda.ads \
  895. +   s-tasclo.adb s-tasclo.ads \
  896. +   s-taskin.adb s-taskin.ads \
  897. +   s-tasmem.adb s-tasmem.ads \
  898. +   s-taspri.adb s-taspri.ads \
  899. +   s-tasque.adb s-tasque.ads \
  900. +   s-tasren.adb s-tasren.ads \
  901. +   s-tassta.adb s-tassta.ads \
  902. +   s-tastal.adb s-tastal.ads \
  903. +   s-tatise.adb s-tatise.ads \
  904. +   s-tcmasp.adb s-tcmasp.ads \
  905. +   s-timtyp.ads \
  906. +   system.ads \
  907. +   s-xp.adb s-xp.ads \
  908. +   s-xp_bml.ads s-xp_bml.adb \
  909. +   s-xp_bmi.ads s-xp_bmi.adb \
  910. +   s-xp_f.ads s-xp_i.ads s-xp_lf.ads s-xp_li.ads \
  911. +   s-xp_llf.ads s-xp_lli.ads \
  912. +   s-xp_nbm.adb s-xp_nbm.ads \
  913. +   s-xp_sf.ads s-xp_si.ads \
  914. +   s-xp_ssi.ads \
  915. +   s-unstyp.ads \
  916. +   text_io.ads \
  917. +   unchconv.adb unchconv.ads \
  918. +   unchdeal.adb unchdeal.ads \
  919. +   io.ads io.adb
  920. + 
  921. + # Files specific to the C interpreter bytecode compiler(s).
  922. + BC_OBJS = bc-emit.o bc-optab.o
  923. + 
  924. + # Language-independent object files.
  925. + OBJS = toplev.o version.o tree.o print-tree.o stor-layout.o fold-const.o \
  926. +  function.o stmt.o expr.o calls.o expmed.o explow.o optabs.o varasm.o \
  927. +  rtl.o print-rtl.o rtlanal.o emit-rtl.o real.o \
  928. +  dbxout.o sdbout.o dwarfout.o xcoffout.o \
  929. +  integrate.o jump.o cse.o loop.o unroll.o flow.o stupid.o combine.o \
  930. +  regclass.o local-alloc.o global.o reload.o reload1.o caller-save.o \
  931. +  insn-peep.o reorg.o sched.o final.o recog.o reg-stack.o \
  932. +  insn-opinit.o insn-recog.o insn-extract.o insn-output.o insn-emit.o \
  933. +  insn-attrtab.o aux-output.o getpwd.o convert.o $(EXTRA_OBJS)
  934. + 
  935. + # GEN files are listed separately, so they can be built before doing parallel
  936. + #  makes for cc1 or cc1plus.  Otherwise sequent parallel make attempts to load
  937. + #  them before rtl.o is compiled.
  938. + GEN= genemit genoutput genrecog genextract genflags gencodes genconfig genpeep
  939. + 
  940. + # Files to be copied away after each stage in building.
  941. + STAGESTUFF = *.o insn-flags.h insn-config.h insn-codes.h \
  942. +  insn-output.c insn-recog.c insn-emit.c insn-extract.c insn-peep.c \
  943. +  insn-attr.h insn-attrtab.c insn-opinit.c \
  944. +  stamp-flags stamp-config stamp-codes \
  945. +  stamp-output stamp-recog stamp-emit stamp-extract stamp-peep \
  946. +  stamp-attr stamp-attrtab stamp-opinit stamp-proto \
  947. +  genemit genoutput genrecog genextract genflags gencodes genconfig genpeep \
  948. +  genattrtab genattr genopinit \
  949. +  bc-arity.h bc-opcode.h bc-opname.h \
  950. +  stamp-bcarity stamp-bcopcode stamp-bcopname \
  951. +  bi-arity bi-opcode bi-opname \
  952. +  $(GCC_PASSES) $(EXTRA_PARTS) $(EXTRA_PROGRAMS) gcc-cross cccp g++ g++-cross \
  953. +  cc1plus cc1obj enquire protoize unprotoize specs collect2 $(USE_COLLECT2)
  954. + 
  955. + # Members of libgcc1.a.
  956. + LIB1FUNCS = _mulsi3 _udivsi3 _divsi3 _umodsi3 _modsi3 \
  957. +    _lshrsi3 _lshlsi3 _ashrsi3 _ashlsi3 \
  958. +    _divdf3 _muldf3 _negdf2 _adddf3 _subdf3 \
  959. +    _fixdfsi _fixsfsi _floatsidf _floatsisf _truncdfsf2 _extendsfdf2 \
  960. +    _addsf3 _negsf2 _subsf3 _mulsf3 _divsf3 \
  961. +    _eqdf2 _nedf2 _gtdf2 _gedf2 _ltdf2 _ledf2 \
  962. +    _eqsf2 _nesf2 _gtsf2 _gesf2 _ltsf2 _lesf2
  963. + 
  964. + # Library members defined in libgcc2.c.
  965. + LIB2FUNCS = _muldi3 _divdi3 _moddi3 _udivdi3 _umoddi3 _negdi2 \
  966. +      _lshrdi3 _lshldi3 _ashldi3 _ashrdi3 _ffsdi2 \
  967. +     _udiv_w_sdiv _udivmoddi4 _cmpdi2 _ucmpdi2 _floatdidf _floatdisf \
  968. +     _fixunsdfsi _fixunssfsi _fixunsdfdi _fixdfdi _fixunssfdi _fixsfdi \
  969. +     _fixxfdi _fixunsxfdi _floatdixf _fixunsxfsi \
  970. +     _fixtfdi _fixunstfdi _floatditf \
  971. +     __gcc_bcmp _varargs _eprintf _op_new _new_handler _op_delete \
  972. +     _bb _shtab _clear_cache _trampoline __main _exit _ctors
  973. + 
  974. + # Header files that are made available under the same name
  975. + # to programs compiled with GCC.
  976. + USER_H = va-alpha.h va-h8300.h va-i860.h va-i960.h va-mips.h va-m88k.h \
  977. +     va-pa.h va-pyr.h va-sparc.h va-clipper.h va-spur.h proto.h $(EXTRA_HEADERS)
  978. + 
  979. + # The files that "belong" in CONFIG_H are deliberately omitted
  980. + # because having them there would not be useful in actual practice.
  981. + # All they would do is cause complete recompilation every time
  982. + # one of the machine description files is edited.
  983. + # That may or may not be what one wants to do.
  984. + # If it is, rm *.o is an easy way to do it.
  985. + # CONFIG_H = config.h tm.h
  986. + CONFIG_H =
  987. + RTL_H = rtl.h rtl.def machmode.h machmode.def
  988. + TREE_H = tree.h real.h tree.def machmode.h machmode.def
  989. + CPLUS_TREE_H = $(TREE_H) cp-tree.h cp-tree.def
  990. + BYTECODE_H = bytecode.h bc-emit.h bc-optab.h
  991. + 
  992. + # Avoid a lot of time thinking about remaking Makefile.in and *.def.
  993. + .SUFFIXES: .in .def
  994. + 
  995. + # Say how to compile Ada programs.
  996. + .SUFFIXES: .ada .adb .ads
  997. + 
  998. + ADA_CC=$(CC)
  999. + ADAFLAGS= -gnatg -gnata
  1000. + BOOT_ADAFLAGS= $(ADAFLAGS)
  1001. + ALL_ADAFLAGS= $(CFLAGS) $(ADAFLAGS)
  1002. + GNATBIND= gnatbind
  1003. + 
  1004. + .ada.o:
  1005. +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  1006. + .adb.o:
  1007. +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  1008. + .ads.o:
  1009. +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  1010. + 
  1011. + Makefile: $(srcdir)/Makefile.in $(srcdir)/configure $(srcdir)/version.c \
  1012. +    $(srcdir)/config/$(xmake_file) $(srcdir)/config/$(tmake_file)
  1013. +     sh config.status
  1014. + 
  1015. + all.internal: start.encap rest.encap
  1016. + # This is what to compile if making a cross-compiler.
  1017. + # Note that we can compile enquire using the cross-compiler just built,
  1018. + # although we can't run it on this machine.
  1019. + all.cross: native gcc-cross g++-cross specs $(LIBGCC) stmp-headers $(STMP_FIXPROTO) $(CROSS_TEST) $(ENQUIRE) $(EXTRA_PARTS)
  1020. + # This is what to compile if making gcc with a cross-compiler.
  1021. + all.build: native xgcc g++ $(EXTRA_PARTS)
  1022. + # This is what must be made before installing GCC and converting libraries.
  1023. + start.encap: native xgcc g++ specs $(LIBGCC1) xlimits.h
  1024. + # Use this to make a GCC that will be used only to recompile GCC.
  1025. + for-bootstrap: start.encap $(LIBGCC)
  1026. + # These can't be made, with COFF encapsulation, until after GCC can run.
  1027. + rest.encap: $(LIBGCC) stmp-headers $(STMP_FIXPROTO) $(EXTRA_PARTS)
  1028. + # This is what is made with the host's compiler
  1029. + # whether making a cross compiler or not.
  1030. + native: config.status cpp $(LANGUAGES) $(EXTRA_PASSES) $(EXTRA_PROGRAMS) $(USE_COLLECT2)
  1031. + 
  1032. + # Define the names for selecting languages in LANGUAGES.
  1033. + # Note that it would be nice to move the dependency on g++
  1034. + # into the C++ rule, but that needs a little bit of work
  1035. + # to do the right thing within all.cross.
  1036. + C c: cc1
  1037. + C++ c++: cc1plus
  1038. + # The next two ought to depend on objc-runtime, but that doesn't work yet.
  1039. + OBJC objc: cc1obj
  1040. + OBJECTIVE-C objective-c: cc1obj
  1041. + Ada ada: gnat1 gnatbind gnatbl gnatf gkrunch gnatchop
  1042. +     true
  1043. + PROTO: proto
  1044. + 
  1045. + # Really, really stupid make features, such as SUN's KEEP_STATE, may force
  1046. + # a target to build even if it is up-to-date.  So we must verify that
  1047. + # config.status does not exist before failing.
  1048. + config.status:
  1049. +     @if [ ! -f config.status ] ; then \
  1050. +       echo You must configure gcc.  Look at the INSTALL file for details.; \
  1051. +       false; \
  1052. +     else \
  1053. +       true; \
  1054. +     fi
  1055. + 
  1056. + # On the target machine, finish building a cross compiler.
  1057. + # This does the things that can't be done on the host machine.
  1058. + rest.cross: $(LIBGCC) gfloat.h specs
  1059. + 
  1060. + # Verify that it works to compile and link cross-test.
  1061. + # If it does, then there are sufficient replacements for libgcc1.a.
  1062. + cross-test: cross-test.o native gcc-cross $(LIBGCC) $(GCC_PARTS)
  1063. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) cross-test.o -o $@
  1064. + cross-test.o: cross-test.c native gcc-cross
  1065. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(ALL_CPPFLAGS) -c $(srcdir)/cross-test.c
  1066. + 
  1067. + # Recompile all the language-independent object files.
  1068. + # This is used only if the user explicitly asks for it.
  1069. + compilations: ${OBJS}
  1070. + 
  1071. + # We call this executable `xgcc' rather than `gcc'
  1072. + # to avoid confusion if the current directory is in the path
  1073. + # and CC is `gcc'.  It is renamed to `gcc' when it is installed.
  1074. + xgcc: gcc.o version.o $(LIBDEPS)
  1075. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o xgcc gcc.o version.o $(LIBS)
  1076. + 
  1077. + # Dump a specs file to make -B./ read these specs over installed ones.
  1078. + specs: xgcc
  1079. +     $(GCC_FOR_TARGET) -dumpspecs > specs
  1080. + 
  1081. + # Create the compiler driver for g++.
  1082. + g++: g++.o $(LIBDEPS)
  1083. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o g++ g++.o $(LIBS)
  1084. + 
  1085. + # We do want to create an executable named `xgcc', so we can use it to
  1086. + # compile libgcc2.a.
  1087. + # Also create gcc-cross, so that install-common will install properly.
  1088. + gcc-cross: xgcc
  1089. +     cp xgcc gcc-cross
  1090. + 
  1091. + # Create a version of the g++ driver which calls the cross-compiler.
  1092. + g++-cross: $(srcdir)/g++.c
  1093. +     $(CC) $(ALL_CFLAGS) $(INCLUDES) $(LDFLAGS) -o g++-cross \
  1094. +        -DGCC_NAME=\"$(target)-gcc\" $(srcdir)/g++.c version.o $(LIBS)
  1095. + 
  1096. + cc1: $(P) $(C_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  1097. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cc1 $(C_OBJS) $(OBJS) $(BC_OBJS) $(LIBS)
  1098. + 
  1099. + cc1plus: $(P) $(CPLUS_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  1100. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cc1plus $(CPLUS_OBJS) $(BC_OBJS) $(OBJS) $(LIBS)
  1101. + 
  1102. + cc1obj: $(P) $(OBJC_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  1103. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cc1obj $(OBJC_OBJS) $(OBJS) $(BC_OBJS) $(LIBS)
  1104. + 
  1105. + # Needs to be built with CC=gcc
  1106. + gnat1: $(P) $(GNAT1_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  1107. +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnat1 $(GNAT1_OBJS) $(OBJS) $(BC_OBJS) $(LIBS)
  1108. + 
  1109. + gnatf: $(P) $(GNATF_OBJS) b_gnatf.o
  1110. +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatf $(GNATF_OBJS) b_gnatf.o
  1111. + 
  1112. + gnatbind: $(P) $(GNATBIND_OBJS) b_gnatb.o
  1113. +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatbind $(GNATBIND_OBJS)\
  1114. +                b_gnatb.o
  1115. + 
  1116. + gkrunch: $(P) $(GKRUNCH_OBJS) b_gkrun.o
  1117. +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gkrunch $(GKRUNCH_OBJS) b_gkrun.o
  1118. + 
  1119. + gnatchop: $(P) gnatchop.o
  1120. +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatchop gnatchop.o
  1121. + 
  1122. + gnatbl.o: gnatbl.c config.status
  1123. +     $(ADA_CC) -c $(ALL_CFLAGS) $(INCLUDES) \
  1124. +            -DADA_RTL_OBJ_DIR="\"$(ADA_RTL_OBJ_DIR)\"" gnatbl.c
  1125. + 
  1126. + gnatbl: gnatbl.o
  1127. +     $(ADA_CC) -o gnatbl $(ALL_CFLAGS) $(LDFLAGS) gnatbl.o
  1128. + 
  1129. + # .s files for cross-building
  1130. + gnat-cross: force
  1131. +     make $(GNAT1_ADA_OBJS) CC="gcc -Bstage1/" CFLAGS="-S -gnatp"
  1132. + 
  1133. + # Copy float.h from its source.
  1134. + gfloat.h: $(FLOAT_H)
  1135. +     cp $(FLOAT_H) gfloat.h
  1136. + 
  1137. + # Create float.h source for the native machine.
  1138. + float.h-nat: enquire
  1139. +     -./enquire -f > tmp-float.h
  1140. +     mv tmp-float.h float.h-nat
  1141. + 
  1142. + # Create a dummy float.h source for a cross-compiler.
  1143. + float.h-cross:
  1144. +     echo "#error float.h values not known for cross-compiler" > float.h-cross
  1145. + 
  1146. + # Used to compile enquire with standard cc, but have forgotten why.
  1147. + # Let's try with GCC.
  1148. + enquire: enquire.o $(GCC_PARTS)
  1149. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(ENQUIRE_LDFLAGS) enquire.o -o $@
  1150. + enquire.o: $(srcdir)/enquire.c $(GCC_PASSES)
  1151. + #    -if [ "$(srcdir)" != "." ]; then rm -f ./enquire.c; else true; fi
  1152. + #    -cp $(srcdir)/enquire.c . > /dev/null 2>&1
  1153. + # Breaking this line caused a problem with one version of GNU make.
  1154. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(ALL_CPPFLAGS) $(ENQUIRE_CFLAGS) -I. -c $(srcdir)/enquire.c
  1155. + 
  1156. + # Build the version of limits.h that we will install.
  1157. + xlimits.h: glimits.h limitx.h limity.h
  1158. +     if [ -f $(SYSTEM_HEADER_DIR)/limits.h ] ; then \
  1159. +       cat $(srcdir)/limitx.h $(srcdir)/glimits.h $(srcdir)/limity.h > xlimits.h; \
  1160. +     else \
  1161. +       cat $(srcdir)/glimits.h > xlimits.h; \
  1162. +     fi
  1163. + 
  1164. + # Build libgcc.a.
  1165. + # This is done in two parts because some functions, in libgcc1.c,
  1166. + # must be compiled with something other than GCC,
  1167. + # while the rest, in libgcc2.c, must be compiled with xgcc.
  1168. + # That means we can't do libgcc2.c until after xgcc, cc1, etc.
  1169. + 
  1170. + # Use this as value of LIBGCC1 to cause conversion to GNU library format.
  1171. + # LIBCONVERT should put its output in libgcc1.conv.
  1172. + libgcc1.conv: libgcc1.a
  1173. +     $(LIBCONVERT) libgcc1.a libgcc1.conv
  1174. + 
  1175. + # Use this as value of LIBGCC1 to inhibit use of libgcc1.c entirely.
  1176. + # Make an empty file instead.
  1177. + libgcc1.null: $(GCC_PASSES)
  1178. +     echo "__foo () {}" > dummy.c
  1179. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) -c dummy.c
  1180. +     $(OLDAR) $(OLDAR_FLAGS) libgcc1.null dummy.o
  1181. +     rm -f dummy.o dummy.c
  1182. + 
  1183. + # This is $(LIBGCC1) for a cross-compiler.
  1184. + # We have no automatic way of building libgcc1.a, 
  1185. + # so it's up to the installer to find a way to do that.
  1186. + # This rule deliberately does not depend on libgcc1.a
  1187. + # so that it will fail if the installer hasn't provided it.
  1188. + libgcc1.cross:
  1189. +     mv libgcc1.a libgcc1.cross || (echo You must find a way to make libgcc1.a; false)
  1190. + 
  1191. + # Compile the library of arithmetic subroutines with the native compiler.
  1192. + # Don't compile it with GCC!
  1193. + # (That would cause most arithmetic functions to call themselves.)
  1194. + libgcc1.a: libgcc1.c $(CONFIG_H) $(LIB1FUNCS_EXTRA) config.status
  1195. +     -rm -f tmplibgcc1.a
  1196. + # Actually build it in tmplibgcc1.a, then rename at end,
  1197. + # so that libgcc1.a itself remains nonexistent if compilation is aborted.
  1198. + # -e causes any failing command to make this rule fail.
  1199. + # -e doesn't work in certain shells, so we test $$? as well.
  1200. + # lynx has a broken ar, it always complains when the initial library is
  1201. + # empty, thus this command works only if we don't do -e
  1202. + # There is a trailing backslash (\) deleted from the following line.
  1203. + #    set -e;
  1204. +     for name in $(LIB1FUNCS); \
  1205. +     do \
  1206. +       echo $${name}; \
  1207. +       rm -f $${name}.o; \
  1208. +       $(OLDCC) $(CCLIBFLAGS) $(INCLUDES) -c -DL$${name} $(srcdir)/libgcc1.c; \
  1209. +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1210. +       mv libgcc1.o $${name}.o; \
  1211. +       $(OLDAR) $(OLDAR_FLAGS) tmplibgcc1.a $${name}.o; \
  1212. +       rm -f $${name}.o; \
  1213. +     done
  1214. + # Some shells crash when a loop has no items.
  1215. + # So make sure there is always at least one--`..'.
  1216. + # Then ignore it.
  1217. + # We don't use -e here because there are if statements
  1218. + # that should not make the command give up when the if condition is false.
  1219. + # Instead, we test for failure after each command where it matters.
  1220. +     -for file in .. $(LIB1FUNCS_EXTRA); \
  1221. +     do \
  1222. +       if [ x$${file} != x.. ]; then \
  1223. +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  1224. +         echo $${name}; \
  1225. +         if [ $${name}.asm = $${file} ]; then \
  1226. +           cp $${file} $${name}.s || exit 1; file=$${name}.s; \
  1227. +         else true; fi; \
  1228. +         $(OLDCC) $(CCLIBFLAGS) $(INCLUDES) -c $${file}; \
  1229. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1230. +         $(OLDAR) $(OLDAR_FLAGS) tmplibgcc1.a $${name}.o; \
  1231. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1232. +         rm -f $${name}.[so]; \
  1233. +       else true; \
  1234. +       fi; \
  1235. +     done
  1236. +     mv tmplibgcc1.a libgcc1.a
  1237. + 
  1238. + # Compiling libgcc2.a requires making sure that cc1, etc. have been compiled.
  1239. + # But recompiling cc1 should not force recompilation of libgcc2.a.
  1240. + # If you want to force recompilation, delete libgcc2.a.
  1241. + libgcc2.ready: $(GCC_PASSES) $(LIBGCC2_DEPS)
  1242. +     -if [ -f libgcc2.ready ] ; then \
  1243. +         true; \
  1244. +     else \
  1245. +         touch libgcc2.ready; \
  1246. +     fi
  1247. + 
  1248. + libgcc2.a: libgcc2.c libgcc2.ready $(CONFIG_H) $(LIB2FUNCS_EXTRA) \
  1249. +    machmode.h longlong.h gbl-ctors.h config.status
  1250. + # Actually build it in tmplibgcc2.a, then rename at end,
  1251. + # so that libgcc2.a itself remains nonexistent if compilation is aborted.
  1252. +     -rm -f tmplibgcc2.a
  1253. + # -e causes any failing command to make this rule fail.
  1254. + # -e doesn't work in certain shells, so we test $$? as well.
  1255. + # lynx has a broken ar, it always complains when the initial library is
  1256. + # empty, thus this command works only if we don't do -e
  1257. + # There is a trailing backslash (\) deleted from the following line.
  1258. + #    set -e;
  1259. +     for name in $(LIB2FUNCS); \
  1260. +     do \
  1261. +       echo $${name}; \
  1262. +       $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) $(INCLUDES) -c -DL$${name} \
  1263. +           $(srcdir)/libgcc2.c -o $${name}.o; \
  1264. +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1265. +       $(AR) $(AR_FLAGS) tmplibgcc2.a $${name}.o; \
  1266. +       rm -f $${name}.o; \
  1267. +     done
  1268. + # Some shells crash when a loop has no items.
  1269. + # So make sure there is always at least one--`..'.
  1270. + # Then ignore it.
  1271. + # We don't use -e here because there are if statements
  1272. + # that should not make the command give up when the if condition is false.
  1273. + # Instead, we test for failure after each command where it matters.
  1274. +     -for file in .. $(LIB2FUNCS_EXTRA); \
  1275. +     do \
  1276. +       if [ x$${file} != x.. ]; then \
  1277. +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  1278. +         echo $${name}; \
  1279. +         if [ $${name}.asm = $${file} ]; then \
  1280. +           cp $${file} $${name}.s || exit 1; file=$${name}.s; \
  1281. +         else true; fi; \
  1282. +         $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) $(INCLUDES) -c $${file}; \
  1283. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1284. +         $(AR) $(AR_FLAGS) tmplibgcc2.a $${name}.o; \
  1285. +         rm -f $${name}.[so]; \
  1286. +       else true; \
  1287. +       fi; \
  1288. +     done
  1289. +     mv tmplibgcc2.a libgcc2.a
  1290. + # These lines were deleted from above the mv command
  1291. + # because ranlibing libgcc.a itself should suffice.
  1292. + #    -if [ x${HPUX_GAS} = x ] ; then \
  1293. + #      if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc2.a; else true; fi \
  1294. + #    else true; fi
  1295. + 
  1296. + # Combine the various libraries into a single library, libgcc.a.
  1297. + libgcc.a: $(LIBGCC1) $(LIBGCC2)
  1298. +     -rm -rf tmplibgcc.a libgcc.a tmpcopy
  1299. +     mkdir tmpcopy
  1300. +     -if [ x$(LIBGCC1) != x ];            \
  1301. +     then (cd tmpcopy; $(AR) x ../$(LIBGCC1));    \
  1302. +     else true;                    \
  1303. +     fi
  1304. + # Some versions of ar (specifically the one in RISC/os 5.x), create an
  1305. + # unwritable table of contents file, and then print an error message when
  1306. + # the second ar command tries to overwrite this file.  To avoid the error
  1307. + # message from ar, we make sure all files are writable.
  1308. +     (cd tmpcopy; chmod +w * > /dev/null 2>&1)
  1309. +     (cd tmpcopy; $(AR) x ../$(LIBGCC2))
  1310. +     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o)
  1311. +     rm -rf tmpcopy
  1312. +     -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  1313. + # Actually build it in tmplibgcc.a, then rename at end,
  1314. + # so that libgcc.a itself remains nonexistent if compilation is aborted.
  1315. +     mv tmplibgcc.a libgcc.a
  1316. + 
  1317. + objc-runtime: libobjc.a
  1318. + 
  1319. + # Build the Objective C runtime library.
  1320. + libobjc.a: cc1obj libgcc2.ready $(USE_COLLECT2) $(EXTRA_PARTS)
  1321. +     if [ -d objc ]; then true; else mkdir objc; fi
  1322. +     thisdir1=`pwd`; \
  1323. +     srcdir1=`cd $(srcdir); pwd`; \
  1324. +     cd objc; \
  1325. +     $(MAKE) -f $${srcdir1}/objc/Makefile libobjc.a \
  1326. +       srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  1327. +       GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
  1328. +       GCC_CFLAGS="$(GCC_CFLAGS)"
  1329. +     -rm -f libobjc.a
  1330. +     ln objc/libobjc.a . >/dev/null 2>&1 || cp objc/libobjc.a .
  1331. +     -if $(RANLIB_TEST) ; then $(RANLIB) libobjc.a; else true; fi
  1332. + 
  1333. + # This is used by objc/Makefile if the user runs that directly.
  1334. + sublibobjc.a: cc1obj libgcc2.ready
  1335. +     thisdir1=`pwd`; \
  1336. +     srcdir1=`cd $(srcdir); pwd`; \
  1337. +     cd objc; \
  1338. +     $(MAKE) -f $$srcdir1/objc/Makefile libobjc.a \
  1339. +       srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  1340. +       GCC_FOR_TARGET="$$thisdir1/xgcc -B$$thisdir1/" \
  1341. +       GCC_CFLAGS="$(GCC_CFLAGS)"
  1342. + 
  1343. + ada-runtime : $(GNAT_RTL_OBJS) libgnat.a
  1344. + 
  1345. + libgnat.a : $(LIBGNAT_OBJS)
  1346. +     -rm -f libgnat.a
  1347. +     $(AR) rc libgnat.a $(LIBGNAT_OBJS)
  1348. + 
  1349. + # The pthreads emulation is presumed to only work for sunos4.1
  1350. + # Create a dummy (links will fail) in other cases
  1351. + stamp-pthreads :
  1352. +     (cd threads/src; \
  1353. +          $(MAKE) clean; \
  1354. +          $(MAKE) CC="../../xgcc -B../../" `case $(target) in sparc-sun-sunos4.1*) true;; \
  1355. +          *) echo OBJS=fake.o ;; esac`)
  1356. +     touch stamp-pthreads
  1357. + 
  1358. + # Compile two additional files that are linked with every program
  1359. + # linked using GCC on system V, for the sake of C++ constructors.
  1360. + crtbegin.o:    crtstuff.c $(GCC_PASSES) $(CONFIG_H) gbl-ctors.h
  1361. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(INCLUDES) -DCRT_BEGIN \
  1362. +       -finhibit-size-directive -fno-inline-functions \
  1363. +       -g0 -c $(srcdir)/crtstuff.c -o crtbegin.o
  1364. + 
  1365. + crtend.o:    crtstuff.c $(GCC_PASSES) $(CONFIG_H) gbl-ctors.h
  1366. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(INCLUDES) -DCRT_END \
  1367. +       -finhibit-size-directive -fno-inline-functions \
  1368. +       -g0 -c $(srcdir)/crtstuff.c -o crtend.o
  1369. + 
  1370. + # Compiling object files from source files.
  1371. + 
  1372. + # Note that dependencies on obstack.h are not written
  1373. + # because that file is not part of GCC.
  1374. + # Dependencies on gvarargs.h are not written
  1375. + # because all that file does, when not compiling with GCC,
  1376. + # is include the system varargs.h.
  1377. + 
  1378. + # C language specific files.
  1379. + 
  1380. + c-parse.o : $(srcdir)/c-parse.c $(CONFIG_H) $(TREE_H) c-lex.h c-parse.h \
  1381. +     c-tree.h input.h flags.h
  1382. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c $(srcdir)/c-parse.c
  1383. + $(srcdir)/c-parse.c $(srcdir)/c-parse.h: $(srcdir)/c-parse.y
  1384. +     cd $(srcdir); $(BISON) $(BISONFLAGS) -d c-parse.y -o c-parse.c
  1385. + $(srcdir)/c-parse.y: $(srcdir)/c-parse.in
  1386. +     sed -e "/^ifobjc$$/,/^end ifobjc$$/d" \
  1387. +       -e "/^ifc$$/d" -e "/^end ifc$$/d" \
  1388. +       $(srcdir)/c-parse.in > $(srcdir)/c-parse.y
  1389. + 
  1390. + c-decl.o : c-decl.c $(CONFIG_H) $(TREE_H) c-tree.h c-lex.h flags.h
  1391. + c-typeck.o : c-typeck.c $(CONFIG_H) $(TREE_H) c-tree.h flags.h
  1392. + c-lang.o : c-lang.c $(CONFIG_H) $(TREE_H)
  1393. + c-lex.o : c-lex.c $(CONFIG_H) $(TREE_H) c-lex.h c-tree.h c-parse.h \
  1394. +     input.h flags.h
  1395. + c-aux-info.o : c-aux-info.c  $(CONFIG_H) $(TREE_H) c-tree.h flags.h
  1396. + c-convert.o : c-convert.c $(CONFIG_H) $(TREE_H) flags.h
  1397. + c-pragma.o: c-pragma.c $(CONFIG_H) $(TREE_H)
  1398. + c-iterate.o: c-iterate.c $(CONFIG_H) $(TREE_H) $(RTL_H) c-tree.h flags.h
  1399. + 
  1400. + # C++ language specific files.
  1401. + 
  1402. + cp-parse.o : $(srcdir)/cp-parse.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h cp-lex.h
  1403. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  1404. +   `echo $(srcdir)/cp-parse.c | sed 's,^\./,,'`
  1405. + 
  1406. + $(srcdir)/cp-parse.c $(srcdir)/cp-parse.h : $(srcdir)/cp-parse.y
  1407. +     @echo expect 27 shift/reduce conflicts and 14 reduce/reduce conflicts
  1408. +     cd $(srcdir); $(BISON) $(BISONFLAGS) -d -o cp-parse.c cp-parse.y
  1409. +     cd $(srcdir); grep '^#define[     ]*YYEMPTY' cp-parse.c >>cp-parse.h
  1410. + 
  1411. + cp-spew.o : cp-spew.c $(CONFIG_H) $(CPLUS_TREE_H) \
  1412. +    $(srcdir)/cp-parse.h flags.h cp-lex.h
  1413. + cp-lex.o : cp-lex.c $(CONFIG_H) $(CPLUS_TREE_H) \
  1414. +    $(srcdir)/cp-parse.h $(srcdir)/cp-input.c flags.h cp-hash.h cp-lex.h
  1415. + cp-decl.o : cp-decl.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h \
  1416. +   cp-lex.h cp-decl.h stack.h
  1417. + cp-decl2.o : cp-decl2.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h \
  1418. +   cp-lex.h cp-decl.h
  1419. + cp-type2.o : cp-type2.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h
  1420. + cp-typeck.o : cp-typeck.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h $(RTL_H)
  1421. + cp-class.o : cp-class.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h
  1422. + cp-call.o : cp-call.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h
  1423. + cp-init.o : cp-init.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h $(RTL_H)
  1424. + cp-method.o : cp-method.c $(CONFIG_H) $(CPLUS_TREE_H)
  1425. + cp-cvt.o : cp-cvt.c $(CONFIG_H) $(CPLUS_TREE_H)
  1426. + cp-search.o : cp-search.c $(CONFIG_H) $(CPLUS_TREE_H) stack.h flags.h
  1427. + cp-tree.o : cp-tree.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h
  1428. + cp-ptree.o : cp-ptree.c $(CONFIG_H) $(CPLUS_TREE_H)
  1429. + cp-gc.o : cp-gc.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h
  1430. + cp-except.o : cp-except.c $(CONFIG_H) $(CPLUS_TREE_H) flags.h $(RTL_H)
  1431. + cp-expr.o : cp-expr.c $(CONFIG_H) $(CPLUS_TREE_H) $(RTL_H) flags.h \
  1432. +   expr.h insn-codes.h
  1433. + cp-edsel.o : cp-edsel.c $(CONFIG_H) $(CPLUS_TREE_H) stack.h flags.h
  1434. + cp-xref.o : cp-xref.c $(CONFIG_H) $(CPLUS_TREE_H) input.h
  1435. + cp-pt.o : cp-pt.c $(CONFIG_H) $(CPLUS_TREE_H) cp-decl.h cp-parse.h
  1436. + cp-error.o : cp-error.c $(CONFIG_H) $(CPLUS_TREE_H)
  1437. + cp-errfn.o : cp-errfn.c $(CONFIG_H) $(CPLUS_TREE_H)
  1438. + 
  1439. + g++.o : g++.c $(CONFIG_H) gvarargs.h
  1440. + 
  1441. + # Ada language specific files.
  1442. + 
  1443. + ada_extra_files : treeprs.ads a-einfo.h a-sinfo.h nmake.adb \
  1444. +     nmake.ads
  1445. + 
  1446. + b_gnat1.c : $(GNAT1_ADA_OBJS)
  1447. +     $(GNATBIND) -o b_gnat1.c -n -t gnat1drv.ali
  1448. + b_gnat1.o : b_gnat1.c 
  1449. + 
  1450. + b_gnatf.c : $(GNATF_OBJS)
  1451. +     $(GNATBIND) -o b_gnatf.c -t gnatfdrv.ali
  1452. + 
  1453. + b_gnatf.o : b_gnatf.c 
  1454. + 
  1455. + 
  1456. + b_gnatb.c : $(GNATBIND_OBJS)
  1457. +     $(GNATBIND) -o b_gnatb.c -t gnatbind.ali
  1458. + b_gnatb.o : b_gnatb.c
  1459. + 
  1460. + b_gkrun.c : $(GKRUNCH_OBJS)
  1461. +     $(GNATBIND) -o b_gkrun.c -t gkrunch.ali
  1462. + 
  1463. + b_gkrun.o : b_gkrun.c 
  1464. + 
  1465. + treeprs.ads : treeprs.adt sinfo.ads xtreeprs.spt
  1466. +     spitbol xtreeprs.spt
  1467. + 
  1468. + a-einfo.h : einfo.ads einfo.adb xeinfo.spt
  1469. +     spitbol xeinfo.spt
  1470. + 
  1471. + a-sinfo.h : sinfo.ads xsinfo.spt
  1472. +     spitbol xsinfo.spt
  1473. + 
  1474. + nmake.adb : nmake.adt sinfo.ads xnmake.spt
  1475. +     spitbol xnmake.spt -b
  1476. + 
  1477. + nmake.ads :  nmake.adt sinfo.ads xnmake.spt
  1478. +     spitbol xnmake.spt -s
  1479. + 
  1480. + mkttypef.o : mkttypef.c hconfig.h machmode.h real.h
  1481. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/mkttypef.c
  1482. + 
  1483. + mkttypef : mkttypef.o $(HOST_LIBDEPS)
  1484. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o mkttypef \
  1485. +      mkttypef.o $(HOST_LIBS)
  1486. + 
  1487. + ttypef.ads: stamp-ttypef; @true
  1488. + stamp-ttypef : ttypef.adt mkttypef $(srcdir)/move-if-change
  1489. +     ./mkttypef ttypef.adt > tmp-ttypef.ads
  1490. +     $(srcdir)/move-if-change tmp-ttypef.ads ttypef.ads
  1491. +     touch stamp-ttypef
  1492. + 
  1493. + ADA_INCLUDE_DIR = $(prefix)/adainclude
  1494. + ADA_RTL_OBJ_DIR = $(libsubdir)/adalib
  1495. + # Note: the strings below do not make sense for Ada strings in the OS/2
  1496. + #  case.  This is ignored for now since the OS/2 version doesn't use
  1497. + #  these -- there are no default locations.
  1498. + sdefault.ads: stamp-sdefault ; @true
  1499. + stamp-sdefault : config.status version.c $(srcdir)/move-if-change \
  1500. +  Makefile.in
  1501. +     echo package Sdefault is >tmp-sdefault.ads
  1502. +     echo "   Include_Dir_Default_Name : constant String" >>tmp-sdefault.ads
  1503. +     echo "     := \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.ads
  1504. +     echo "   Object_Dir_Default_Name : constant String" >>tmp-sdefault.ads
  1505. +     echo "     := \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.ads
  1506. +     echo "end Sdefault;" >> tmp-sdefault.ads
  1507. +     $(srcdir)/move-if-change tmp-sdefault.ads sdefault.ads
  1508. +     touch stamp-sdefault
  1509. + 
  1510. + A_MISC_H = a-misc.h a-tree.def
  1511. + 
  1512. + # special compiles for sdefault without -gnatg, to avoid long line error
  1513. + osint.o : alloc.ads debug.ads limits.ads namet.ads opt.ads osint.ads \
  1514. +    osint.adb output.ads sdefault.ads switch.ads system.ads \
  1515. +    s-assert.ads s-strequ.ads s-enviro.ads \
  1516. +    table.ads table.adb types.ads unchdeal.ads \
  1517. +    unchdeal.adb unixlib.ads 
  1518. +     $(ADA_CC) -c $(CFLAGS) -gnata osint.adb
  1519. + 
  1520. + sdefault.o : sdefault.ads
  1521. +     $(ADA_CC) -c $(CFLAGS) -gnata $<
  1522. + 
  1523. + a-adaint.o : $(CONFIG_H)
  1524. + 
  1525. + a-gtran3.o : $(CONFIG_H) $(TREE_H) obstack.h flags.h convert.h a-ada.h \
  1526. +    a-types.h a-atree.h a-sinfo.h a-snames.h a-einfo.h a-namet.h a-string.h \
  1527. +    a-uintp.h a-trans.h a-trans3.h a-trans4.h a-gtran3.h $(A_MISC_H) a-rtree.h 
  1528. + 
  1529. + a-ptypes.o : $(CONFIG_H)
  1530. + 
  1531. + a-misc.o : $(CONFIG_H) $(TREE_H) a-ada.h a-types.h a-atree.h a-sinfo.h \
  1532. +    a-einfo.h a-namet.h a-string.h a-uintp.h a-trans.h a-trans3.h $(A_MISC_H) \
  1533. +    a-rtree.h flags.h $(RTL_H) expr.h insn-codes.h
  1534. + 
  1535. + a-trans3.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  1536. +    a-sinfo.h a-einfo.h a-namet.h a-string.h a-uintp.h a-trans.h a-gtran3.h \
  1537. +    a-trans3.h a-trans4.h $(A_MISC_H) a-rtree.h convert.h 
  1538. + 
  1539. + a-trans4.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  1540. +    a-sinfo.h a-einfo.h a-namet.h a-snames.h a-string.h a-uintp.h a-trans.h \
  1541. +    a-trans3.h a-trans4.h $(A_MISC_H)
  1542. + 
  1543. + a-trans.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  1544. +    a-sinfo.h a-snames.h a-einfo.h a-namet.h a-string.h a-uintp.h a-trans.h \
  1545. +    a-trans3.h a-gtran3.h a-trans4.h $(A_MISC_H) a-rtree.h 
  1546. + 
  1547. + a-uintp.o : $(CONFIG_H) $(TREE_H) a-ada.h a-types.h a-atree.h a-sinfo.h \
  1548. +    a-einfo.h a-namet.h a-string.h a-uintp.h 
  1549. + 
  1550. + a-ioexce.o : ada.ads a-ioexce.ads 
  1551. + 
  1552. + a-teioau.o : ada.ads a-ioexce.ads a-textio.ads a-teioau.ads a-teioau.adb \
  1553. +    system.ads 
  1554. + 
  1555. + a-textio.o : ada.ads a-ioexce.ads a-textio.ads a-textio.adb a-teioau.ads 
  1556. + 
  1557. + ada.o : ada.ads 
  1558. + 
  1559. + ali.o : ali.ads ali.adb binderr.ads butil.ads debug.ads limits.ads \
  1560. +    namet.ads opt.ads osint.ads output.ads system.ads table.ads table.adb \
  1561. +    types.ads unchdeal.ads unchdeal.adb 
  1562. + 
  1563. + alloc.o : alloc.ads 
  1564. + 
  1565. + atree.o : alloc.ads atree.ads atree.adb casing.ads comperr.ads debug.ads \
  1566. +    einfo.ads nlists.ads output.ads sinfo.ads sinput.ads system.ads \
  1567. +    s-assert.ads table.ads table.adb types.ads unchconv.ads unchconv.adb \
  1568. +    unchdeal.ads unchdeal.adb 
  1569. + 
  1570. + back_end.o : alloc.ads atree.ads back_end.ads back_end.adb casing.ads \
  1571. +    debug.ads einfo.ads elists.ads lib.ads limits.ads namet.ads nlists.ads \
  1572. +    output.ads sinfo.ads sinput.ads stringt.ads system.ads table.ads \
  1573. +    table.adb ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1574. + 
  1575. + bcheck.o : ali.ads bcheck.ads bcheck.adb binderr.ads debug.ads limits.ads \
  1576. +    namet.ads opt.ads output.ads system.ads table.ads table.adb types.ads \
  1577. +    unchdeal.ads unchdeal.adb 
  1578. + 
  1579. + binde.o : ali.ads binde.ads binde.adb binderr.ads butil.ads debug.ads \
  1580. +    limits.ads namet.ads opt.ads output.ads system.ads s-assert.ads \
  1581. +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1582. + 
  1583. + binderr.o : binderr.ads binderr.adb butil.ads debug.ads excep.ads \
  1584. +    limits.ads namet.ads opt.ads osint.ads output.ads system.ads table.ads \
  1585. +    table.adb types.ads unchdeal.ads unchdeal.adb 
  1586. + 
  1587. + bindgen.o : ali.ads binde.ads bindgen.ads bindgen.adb debug.ads limits.ads \
  1588. +    namet.ads opt.ads osint.ads output.ads system.ads table.ads table.adb \
  1589. +    types.ads unchdeal.ads unchdeal.adb 
  1590. + 
  1591. + bindusg.o : bindusg.ads bindusg.adb osint.ads output.ads \
  1592. +    system.ads types.ads unchdeal.ads unchdeal.adb 
  1593. + 
  1594. + butil.o : butil.ads butil.adb debug.ads limits.ads namet.ads output.ads \
  1595. +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1596. + 
  1597. + casing.o : casing.ads casing.adb csets.ads debug.ads limits.ads namet.ads \
  1598. +    output.ads scans.ads sinput.ads system.ads table.ads table.adb \
  1599. +    types.ads unchdeal.ads unchdeal.adb widechar.ads 
  1600. + 
  1601. + comperr.o : alloc.ads atree.ads casing.ads comperr.ads comperr.adb \
  1602. +    debug.ads einfo.ads errout.ads excep.ads osint.ads output.ads sinfo.ads \
  1603. +    sinput.ads sprint.ads system.ads s-traceb.ads table.ads table.adb \
  1604. +    treepr.ads types.ads unchdeal.ads unchdeal.adb 
  1605. + 
  1606. + csets.o : csets.ads csets.adb opt.ads system.ads types.ads unchdeal.ads \
  1607. +    unchdeal.adb 
  1608. + 
  1609. + debug.o : debug.ads debug.adb 
  1610. + 
  1611. + debug_a.o : alloc.ads atree.ads casing.ads comperr.ads debug.ads \
  1612. +    debug_a.ads debug_a.adb einfo.ads output.ads sinfo.ads sinput.ads \
  1613. +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1614. + 
  1615. + einfo.o : alloc.ads atree.ads debug.ads einfo.ads einfo.adb limits.ads \
  1616. +    namet.ads nlists.ads output.ads sinfo.ads snames.ads system.ads \
  1617. +    s-assert.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1618. + 
  1619. + elists.o : alloc.ads debug.ads elists.ads elists.adb output.ads system.ads \
  1620. +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1621. + 
  1622. + errout.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  1623. +    errout.ads errout.adb excep.ads exp_util.ads lib.ads limits.ads \
  1624. +    namet.ads opt.ads output.ads rtsfind.ads scans.ads sinfo.ads sinput.ads \
  1625. +    stand.ads system.ads s-assert.ads table.ads table.adb ttypes.ads \
  1626. +    get_targ.ads types.ads uintp.ads uname.ads unchdeal.ads unchdeal.adb 
  1627. + 
  1628. + excep.o : excep.ads 
  1629. + 
  1630. + exp_attr.o : alloc.ads atree.ads debug.ads einfo.ads exp_attr.ads \
  1631. +    exp_attr.adb exp_ch9.ads itypes.ads limits.ads namet.ads nlists.ads \
  1632. +    nmake.ads opt.ads output.ads rtsfind.ads sem.ads sem_res.ads \
  1633. +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads table.ads \
  1634. +    table.adb tbuild.ads ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads \
  1635. +    unchdeal.adb 
  1636. + 
  1637. + exp_ch10.o : exp_ch10.ads 
  1638. + 
  1639. + exp_ch11.o : exp_ch11.ads 
  1640. + 
  1641. + exp_ch12.o : exp_ch12.ads 
  1642. + 
  1643. + exp_ch13.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch13.ads \
  1644. +    exp_ch13.adb exp_ch3.ads nlists.ads nmake.ads output.ads rtsfind.ads \
  1645. +    sinfo.ads snames.ads system.ads table.ads table.adb tbuild.ads \
  1646. +    types.ads unchdeal.ads unchdeal.adb 
  1647. + 
  1648. + exp_ch2.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch2.ads \
  1649. +    exp_ch2.adb nlists.ads nmake.ads opt.ads output.ads sem.ads sinfo.ads \
  1650. +    snames.ads system.ads table.ads table.adb tbuild.ads types.ads \
  1651. +    unchdeal.ads unchdeal.adb 
  1652. + 
  1653. + exp_ch3.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch3.ads \
  1654. +    exp_ch3.adb exp_ch4.ads exp_ch7.ads exp_ch9.ads exp_util.ads itypes.ads \
  1655. +    limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1656. +    rtsfind.ads sem.ads sem_res.ads sem_util.ads sinfo.ads snames.ads \
  1657. +    stand.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  1658. +    ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1659. + 
  1660. + exp_ch4.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch3.ads \
  1661. +    exp_ch4.ads exp_ch4.adb exp_ch7.ads exp_ch9.ads exp_util.ads itypes.ads \
  1662. +    limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1663. +    rtsfind.ads sem.ads sem_ch5.ads sem_res.ads sem_util.ads sinfo.ads \
  1664. +    snames.ads stand.ads system.ads s-assert.ads table.ads table.adb \
  1665. +    tbuild.ads ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1666. + 
  1667. + exp_ch5.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch5.ads \
  1668. +    exp_ch5.adb exp_ch7.ads exp_ch9.ads exp_util.ads limits.ads namet.ads \
  1669. +    nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads \
  1670. +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads table.ads \
  1671. +    table.adb tbuild.ads ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads \
  1672. +    unchdeal.adb 
  1673. + 
  1674. + exp_ch6.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  1675. +    exp_ch6.ads exp_ch6.adb exp_ch7.ads exp_ch9.ads exp_util.ads limits.ads \
  1676. +    namet.ads nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads \
  1677. +    sem_ch3.ads sem_disp.ads sem_util.ads sinfo.ads snames.ads stand.ads \
  1678. +    system.ads s-assert.ads table.ads table.adb tbuild.ads types.ads \
  1679. +    unchdeal.ads unchdeal.adb 
  1680. + 
  1681. + exp_ch7.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch7.ads \
  1682. +    exp_ch7.adb exp_ch9.ads exp_util.ads expand.ads limits.ads namet.ads \
  1683. +    nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads sem_ch8.ads \
  1684. +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  1685. +    s-assert.ads table.ads table.adb tbuild.ads types.ads unchdeal.ads \
  1686. +    unchdeal.adb 
  1687. + 
  1688. + exp_ch8.o : exp_ch8.ads 
  1689. + 
  1690. + exp_ch9.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch3.ads \
  1691. +    exp_ch6.ads exp_ch9.ads exp_ch9.adb exp_util.ads limits.ads namet.ads \
  1692. +    nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads \
  1693. +    sem_ch11.ads sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads \
  1694. +    system.ads s-assert.ads table.ads table.adb tbuild.ads ttypes.ads \
  1695. +    get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1696. + 
  1697. + exp_intr.o : exp_intr.ads exp_intr.adb types.ads
  1698. + 
  1699. + exp_prag.o : alloc.ads atree.ads debug.ads einfo.ads exp_prag.ads \
  1700. +    exp_prag.adb exp_util.ads nlists.ads nmake.ads opt.ads output.ads \
  1701. +    rtsfind.ads sem.ads sinfo.ads snames.ads system.ads s-assert.ads \
  1702. +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1703. + 
  1704. + exp_util.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  1705. +    errout.ads exp_util.ads exp_util.adb itypes.ads lib.ads limits.ads \
  1706. +    namet.ads nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads \
  1707. +    sem_ch13.ads sem_res.ads sem_util.ads sinfo.ads sinput.ads snames.ads \
  1708. +    stand.ads system.ads table.ads table.adb tbuild.ads ttypes.ads \
  1709. +    get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1710. + 
  1711. + expand.o : alloc.ads atree.ads debug.ads debug_a.ads einfo.ads \
  1712. +    exp_attr.ads exp_ch13.ads exp_ch2.ads exp_ch3.ads exp_ch4.ads \
  1713. +    exp_ch5.ads exp_ch6.ads exp_ch7.ads exp_ch9.ads exp_prag.ads \
  1714. +    exp_util.ads expand.ads expand.adb output.ads rtsfind.ads sinfo.ads \
  1715. +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1716. + 
  1717. + fname.o : debug.ads fname.ads fname.adb krunch.ads limits.ads namet.ads \
  1718. +    opt.ads osint.ads output.ads system.ads s-assert.ads table.ads \
  1719. +    table.adb types.ads unchdeal.ads unchdeal.adb widechar.ads 
  1720. + 
  1721. + frontend.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  1722. +    errout.ads frontend.ads frontend.adb lib.ads limits.ads namet.ads \
  1723. +    nlists.ads opt.ads output.ads par.ads rtsfind.ads scn.ads sem.ads \
  1724. +    sinfo.ads sinput.ads snames.ads sprint.ads stand.ads system.ads \
  1725. +    table.ads table.adb tbuild.ads treepr.ads types.ads unchdeal.ads \
  1726. +    unchdeal.adb usage.ads 
  1727. + 
  1728. + gkrunch.o : ada.ads a-ioexce.ads a-textio.ads a-textio.adb a-teioau.ads \
  1729. +    gkrunch.adb krunch.ads system.ads s-enviro.ads 
  1730. + 
  1731. + gnat1drv.o : alloc.ads atree.ads back_end.ads casing.ads comperr.ads \
  1732. +    csets.ads debug.ads einfo.ads errout.ads excep.ads frontend.ads \
  1733. +    gnat1drv.ads gnat1drv.adb gnatvsn.ads lib.ads limits.ads namet.ads \
  1734. +    opt.ads osint.ads output.ads par.ads sinfo.ads snames.ads sprint.ads \
  1735. +    stringt.ads system.ads s-assert.ads s-secsta.ads s-stalib.ads \
  1736. +    s-stoele.ads s-taspda.ads s-tasoli.ads table.ads table.adb treepr.ads \
  1737. +    ttypes.ads get_targ.ads types.ads uintp.ads unchconv.ads unchconv.adb unchdeal.ads \
  1738. +    unchdeal.adb usage.ads 
  1739. + 
  1740. + gnatbind.o : ali.ads bcheck.ads binde.ads binderr.ads bindgen.ads \
  1741. +    bindusg.ads butil.ads debug.ads excep.ads gnatbind.adb gnatvsn.ads \
  1742. +    limits.ads namet.ads opt.ads osint.ads output.ads system.ads \
  1743. +    s-secsta.ads s-stalib.ads s-stoele.ads s-taspda.ads s-tasoli.ads \
  1744. +    table.ads table.adb types.ads unchconv.ads unchconv.adb unchdeal.ads \
  1745. +    unchdeal.adb 
  1746. + 
  1747. + gnatfdrv.o : casing.ads comperr.ads csets.ads debug.ads einfo.ads \
  1748. +    errout.ads excep.ads frontend.ads gnatfdrv.ads gnatfdrv.adb gnatvsn.ads \
  1749. +    lib.ads limits.ads namet.ads opt.ads osint.ads output.ads par.ads \
  1750. +    snames.ads sprint.ads stringt.ads system.ads s-assert.ads table.ads \
  1751. +    table.adb treepr.ads ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads \
  1752. +    unchdeal.adb usage.ads xref.ads xref_tab.ads 
  1753. + 
  1754. + gnatvsn.o : gnatvsn.ads 
  1755. + 
  1756. + itypes.o : alloc.ads atree.ads debug.ads einfo.ads itypes.ads itypes.adb \
  1757. +    limits.ads namet.ads nlists.ads output.ads sem_util.ads sinfo.ads \
  1758. +    stand.ads system.ads s-assert.ads table.ads table.adb types.ads \
  1759. +    unchdeal.ads unchdeal.adb 
  1760. + 
  1761. + krunch.o : krunch.ads krunch.adb 
  1762. + 
  1763. + lib.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1764. +    excep.ads fname.ads gnatvsn.ads lib.ads lib.adb lib-list.adb \
  1765. +    lib-load.adb lib-sort.adb lib-writ.adb limits.ads namet.ads nlists.ads \
  1766. +    osint.ads output.ads par.ads scn.ads sinfo.ads sinput.ads system.ads \
  1767. +    table.ads table.adb types.ads uname.ads unchdeal.ads unchdeal.adb 
  1768. + 
  1769. + limits.o : limits.ads 
  1770. + 
  1771. + namet.o : alloc.ads debug.ads limits.ads namet.ads namet.adb \
  1772. +    namet-hash.adb output.ads system.ads s-assert.ads table.ads table.adb \
  1773. +    types.ads unchdeal.ads unchdeal.adb widechar.ads 
  1774. + 
  1775. + nlists.o : alloc.ads atree.ads debug.ads einfo.ads nlists.ads nlists.adb \
  1776. +    output.ads sinfo.ads system.ads s-assert.ads table.ads table.adb \
  1777. +    types.ads unchdeal.ads unchdeal.adb 
  1778. + 
  1779. + nmake.o : alloc.ads atree.ads debug.ads einfo.ads nlists.ads nmake.ads \
  1780. +    nmake.adb output.ads sinfo.ads snames.ads system.ads table.ads \
  1781. +    table.adb types.ads unchdeal.ads unchdeal.adb 
  1782. + 
  1783. + opt.o : opt.ads system.ads types.ads unchdeal.ads unchdeal.adb 
  1784. + 
  1785. + osint.o : debug.ads limits.ads namet.ads opt.ads osint.ads osint.adb \
  1786. +    output.ads sdefault.ads switch.ads system.ads s-assert.ads \
  1787. +    s-enviro.ads s-secsta.ads s-tasoli.ads table.ads table.adb types.ads \
  1788. +    unchdeal.ads unchdeal.adb unixlib.ads 
  1789. + 
  1790. + output.o : output.ads output.adb system.ads types.ads unchdeal.ads \
  1791. +    unchdeal.adb unixlib.ads 
  1792. + 
  1793. + par.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  1794. +    elists.ads errout.ads excep.ads fname.ads lib.ads limits.ads namet.ads \
  1795. +    nlists.ads nmake.ads opt.ads output.ads par.ads par.adb par-ch10.adb \
  1796. +    par-ch11.adb par-ch12.adb par-ch13.adb par-ch2.adb par-ch3.adb \
  1797. +    par-ch4.adb par-ch5.adb par-ch6.adb par-ch7.adb par-ch8.adb par-ch9.adb \
  1798. +    par-endh.adb par-labl.adb par-load.adb par-prag.adb par-sync.adb \
  1799. +    par-tchk.adb par-util.adb scans.ads scn.ads sinfo.ads sinfo-cn.ads \
  1800. +    sinput.ads snames.ads style.ads system.ads s-assert.ads table.ads \
  1801. +    table.adb tbuild.ads ttypes.ads get_targ.ads types.ads uintp.ads uname.ads \
  1802. +    unchdeal.ads unchdeal.adb 
  1803. + 
  1804. + rat.o : alloc.ads atree.ads debug.ads einfo.ads nlists.ads nmake.ads \
  1805. +    output.ads rat.ads rat.adb sinfo.ads system.ads s-assert.ads table.ads \
  1806. +    table.adb ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1807. + 
  1808. + rtsfind.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  1809. +    excep.ads fname.ads lib.ads limits.ads namet.ads nlists.ads nmake.ads \
  1810. +    opt.ads output.ads rtsfind.ads rtsfind.adb sem.ads sem_util.ads \
  1811. +    sinfo.ads snames.ads system.ads s-assert.ads table.ads table.adb \
  1812. +    tbuild.ads types.ads unchdeal.ads unchdeal.adb 
  1813. + 
  1814. + s-assert.o : system.ads s-assert.ads 
  1815. + 
  1816. + s-enviro.o : system.ads s-enviro.ads s-enviro.adb 
  1817. + 
  1818. + s-secsta.o : system.ads s-secsta.ads s-secsta.adb s-stoele.ads \
  1819. +    s-taspda.ads unchconv.ads unchconv.adb unchdeal.ads unchdeal.adb 
  1820. + 
  1821. + s-stalib.o : system.ads s-secsta.ads s-stalib.ads s-stoele.ads \
  1822. +    s-taspda.ads s-tasoli.ads unchconv.ads unchconv.adb unchdeal.ads \
  1823. +    unchdeal.adb 
  1824. + 
  1825. + s-stoele.o : system.ads s-stoele.ads s-stoele.adb unchconv.ads \
  1826. +    unchconv.adb 
  1827. + 
  1828. + s-strcon.o : system.ads s-strcon.ads s-strcon.adb 
  1829. + 
  1830. + s-strequ.o : system.ads s-strequ.ads s-strequ.adb 
  1831. + 
  1832. + s-tasoli.o : system.ads s-taspda.ads s-tasoli.ads s-tasoli.adb 
  1833. + 
  1834. + s-taspda.o : system.ads s-secsta.ads s-taspda.ads s-taspda.adb \
  1835. +    s-tasoli.ads unchconv.ads unchconv.adb unchdeal.ads unchdeal.adb 
  1836. + 
  1837. + s-traceb.o : debug.ads system.ads s-traceb.ads s-traceb.adb 
  1838. + 
  1839. + scans.o : scans.ads scans.adb system.ads types.ads unchdeal.ads \
  1840. +    unchdeal.adb 
  1841. + 
  1842. + scn.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  1843. +    errout.ads lib.ads limits.ads namet.ads opt.ads output.ads scans.ads \
  1844. +    scn.ads scn.adb scn-nlit.adb scn-slit.adb sinfo.ads sinput.ads \
  1845. +    snames.ads stringt.ads style.ads system.ads s-assert.ads table.ads \
  1846. +    table.adb ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb \
  1847. +    widechar.ads 
  1848. + 
  1849. + sdefault.o : sdefault.ads 
  1850. + 
  1851. + sem.o : alloc.ads atree.ads casing.ads comperr.ads debug.ads debug_a.ads \
  1852. +    einfo.ads errout.ads exp_util.ads expand.ads lib.ads limits.ads \
  1853. +    namet.ads nlists.ads opt.ads output.ads rtsfind.ads sem.ads sem.adb \
  1854. +    sem_attr.ads sem_ch10.ads sem_ch11.ads sem_ch12.ads sem_ch13.ads \
  1855. +    sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch6.ads sem_ch7.ads sem_ch8.ads \
  1856. +    sem_ch9.ads sem_prag.ads sem_util.ads sinfo.ads snames.ads stand.ads \
  1857. +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  1858. +    unchdeal.adb 
  1859. + 
  1860. + sem_attr.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1861. +    excep.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1862. +    rtsfind.ads sem.ads sem_attr.ads sem_attr.adb sem_ch4.ads sem_ch6.ads \
  1863. +    sem_ch8.ads sem_eval.ads sem_res.ads sem_type.ads sem_util.ads \
  1864. +    sinfo.ads sinput.ads snames.ads stand.ads stringt.ads system.ads \
  1865. +    s-assert.ads table.ads table.adb tbuild.ads ttypes.ads ttypef.ads \
  1866. +    get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1867. + 
  1868. + sem_ch10.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1869. +    lib.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1870. +    sem.ads sem_ch10.ads sem_ch10.adb sem_ch6.ads sem_ch7.ads sem_ch8.ads \
  1871. +    sem_util.ads sinfo.ads sinfo-cn.ads sinput.ads snames.ads stand.ads \
  1872. +    stringt.ads system.ads table.ads table.adb tbuild.ads types.ads \
  1873. +    uname.ads unchdeal.ads unchdeal.adb 
  1874. + 
  1875. + sem_ch11.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1876. +    lib.ads limits.ads namet.ads nlists.ads opt.ads output.ads sem.ads \
  1877. +    sem_ch11.ads sem_ch11.adb sem_ch5.ads sem_ch8.ads sem_util.ads \
  1878. +    sinfo.ads snames.ads stand.ads system.ads table.ads table.adb types.ads \
  1879. +    unchdeal.ads unchdeal.adb 
  1880. + 
  1881. + sem_ch12.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  1882. +    errout.ads exp_util.ads lib.ads limits.ads namet.ads nlists.ads \
  1883. +    nmake.ads opt.ads output.ads rtsfind.ads sem.ads sem_ch10.ads \
  1884. +    sem_ch12.ads sem_ch12.adb sem_ch13.ads sem_ch3.ads sem_ch6.ads \
  1885. +    sem_ch7.ads sem_ch8.ads sem_res.ads sem_util.ads sinfo.ads sinfo-cn.ads \
  1886. +    snames.ads stand.ads system.ads s-assert.ads table.ads table.adb \
  1887. +    tbuild.ads types.ads uname.ads unchdeal.ads unchdeal.adb 
  1888. + 
  1889. + sem_ch13.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  1890. +    excep.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1891. +    rtsfind.ads sem.ads sem_ch13.ads sem_ch13.adb sem_ch3.ads sem_ch8.ads \
  1892. +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  1893. +    table.ads table.adb ttypes.ads types.ads uintp.ads unchdeal.ads \
  1894. +    get_targ.ads unchdeal.adb 
  1895. + 
  1896. + sem_ch3.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  1897. +    exp_ch3.ads exp_util.ads itypes.ads limits.ads namet.ads nlists.ads \
  1898. +    nmake.ads opt.ads output.ads rat.ads rtsfind.ads sem.ads sem_ch12.ads \
  1899. +    sem_ch13.ads sem_ch3.ads sem_ch3.adb sem_ch5.ads sem_ch6.ads \
  1900. +    sem_ch7.ads sem_ch8.ads sem_eval.ads sem_res.ads sem_type.ads \
  1901. +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads s-assert.ads \
  1902. +    table.ads table.adb tbuild.ads ttypes.ads types.ads uintp.ads \
  1903. +    get_targ.ads unchdeal.ads unchdeal.adb 
  1904. + 
  1905. + sem_ch4.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch4.ads \
  1906. +    itypes.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1907. +    sem.ads sem_ch3.ads sem_ch4.ads sem_ch4.adb sem_ch8.ads sem_type.ads \
  1908. +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads table.ads \
  1909. +    table.adb tbuild.ads types.ads unchdeal.ads unchdeal.adb 
  1910. + 
  1911. + sem_ch5.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch7.ads \
  1912. +    itypes.ads limits.ads namet.ads nlists.ads opt.ads output.ads sem.ads \
  1913. +    sem_ch3.ads sem_ch5.ads sem_ch5.adb sem_ch8.ads sem_disp.ads \
  1914. +    sem_eval.ads sem_res.ads sem_type.ads sem_util.ads sinfo.ads snames.ads \
  1915. +    stand.ads system.ads s-assert.ads table.ads table.adb ttypes.ads \
  1916. +    get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1917. + 
  1918. + sem_ch6.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1919. +    exp_ch7.ads exp_util.ads lib.ads limits.ads namet.ads nlists.ads \
  1920. +    nmake.ads opt.ads output.ads rtsfind.ads sem.ads sem_ch12.ads \
  1921. +    sem_ch3.ads sem_ch4.ads sem_ch6.ads sem_ch6.adb sem_ch8.ads \
  1922. +    sem_disp.ads sem_res.ads sem_util.ads sinfo.ads sinfo-cn.ads sinput.ads \
  1923. +    snames.ads stand.ads stringt.ads system.ads table.ads table.adb \
  1924. +    tbuild.ads treepr.ads types.ads unchdeal.ads unchdeal.adb 
  1925. + 
  1926. + sem_ch7.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  1927. +    errout.ads exp_util.ads itypes.ads lib.ads limits.ads namet.ads \
  1928. +    nlists.ads opt.ads output.ads rtsfind.ads sem.ads sem_ch12.ads \
  1929. +    sem_ch13.ads sem_ch3.ads sem_ch7.ads sem_ch7.adb sem_ch8.ads \
  1930. +    sem_util.ads sinfo.ads sinput.ads snames.ads stand.ads system.ads \
  1931. +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1932. + 
  1933. + sem_ch8.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  1934. +    namet.ads nlists.ads nmake.ads opt.ads output.ads sem.ads sem_attr.ads \
  1935. +    sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch6.ads sem_ch8.ads sem_ch8.adb \
  1936. +    sem_res.ads sem_type.ads sem_util.ads sinfo.ads sinfo-cn.ads snames.ads \
  1937. +    stand.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  1938. +    types.ads unchdeal.ads unchdeal.adb 
  1939. + 
  1940. + sem_ch9.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch7.ads \
  1941. +    exp_ch9.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads \
  1942. +    output.ads sem.ads sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch6.ads \
  1943. +    sem_ch8.ads sem_ch9.ads sem_ch9.adb sem_res.ads sem_util.ads sinfo.ads \
  1944. +    snames.ads stand.ads system.ads table.ads table.adb tbuild.ads \
  1945. +    ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1946. + 
  1947. + sem_disp.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  1948. +    exp_ch6.ads nlists.ads output.ads sem_disp.ads sem_disp.adb \
  1949. +    sem_util.ads sinfo.ads system.ads table.ads table.adb types.ads \
  1950. +    unchdeal.ads unchdeal.adb 
  1951. + 
  1952. + sem_eval.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads itypes.ads \
  1953. +    limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads rat.ads \
  1954. +    sem_eval.ads sem_eval.adb sem_util.ads sinfo.ads snames.ads stand.ads \
  1955. +    stringt.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  1956. +    ttypes.ads get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1957. + 
  1958. + sem_intr.o : sem_intr.ads sem_intr.adb types.ads
  1959. + 
  1960. + sem_prag.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1961. +    exp_util.ads lib.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads \
  1962. +    output.ads rtsfind.ads sem.ads sem_ch8.ads sem_eval.ads sem_prag.ads \
  1963. +    sem_prag.adb sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads \
  1964. +    stringt.ads system.ads table.ads table.adb tbuild.ads ttypes.ads \
  1965. +    get_targ.ads types.ads uintp.ads unchdeal.ads unchdeal.adb 
  1966. + 
  1967. + sem_res.o : alloc.ads atree.ads debug.ads debug_a.ads einfo.ads elists.ads \
  1968. +    errout.ads exp_util.ads expand.ads itypes.ads limits.ads namet.ads \
  1969. +    nlists.ads nmake.ads opt.ads output.ads rtsfind.ads sem.ads \
  1970. +    sem_attr.ads sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch8.ads \
  1971. +    sem_disp.ads sem_eval.ads sem_res.ads sem_res.adb sem_type.ads \
  1972. +    sem_util.ads sinfo.ads snames.ads stand.ads stringt.ads system.ads \
  1973. +    s-assert.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  1974. +    get_targ.ads uintp.ads unchdeal.ads unchdeal.adb 
  1975. + 
  1976. + sem_type.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  1977. +    namet.ads output.ads sem_ch6.ads sem_ch8.ads sem_type.ads sem_type.adb \
  1978. +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads s-assert.ads \
  1979. +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb 
  1980. + 
  1981. + sem_util.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  1982. +    itypes.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  1983. +    scans.ads scn.ads sem.ads sem_eval.ads sem_res.ads sem_type.ads \
  1984. +    sem_util.ads sem_util.adb sinfo.ads sinput.ads snames.ads stand.ads \
  1985. +    style.ads system.ads s-assert.ads s-secsta.ads s-strcon.ads \
  1986. +    s-tasoli.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  1987. +    get_targ.ads uintp.ads unchdeal.ads unchdeal.adb 
  1988. + 
  1989. + sinfo-cn.o : alloc.ads atree.ads debug.ads einfo.ads output.ads sinfo.ads \
  1990. +    sinfo-cn.ads sinfo-cn.adb system.ads table.ads table.adb types.ads \
  1991. +    unchdeal.ads unchdeal.adb 
  1992. + 
  1993. + sinfo.o : alloc.ads atree.ads debug.ads einfo.ads output.ads sinfo.ads \
  1994. +    sinfo.adb system.ads s-assert.ads table.ads table.adb types.ads \
  1995. +    unchdeal.ads unchdeal.adb 
  1996. + 
  1997. + sinput.o : alloc.ads casing.ads debug.ads limits.ads namet.ads osint.ads \
  1998. +    output.ads sinput.ads sinput.adb system.ads s-assert.ads table.ads \
  1999. +    table.adb types.ads unchdeal.ads unchdeal.adb 
  2000. + 
  2001. + snames.o : debug.ads limits.ads namet.ads output.ads snames.ads snames.adb \
  2002. +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  2003. +    unchdeal.adb 
  2004. + 
  2005. + sprint.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads itypes.ads \
  2006. +    lib.ads limits.ads namet.ads nlists.ads output.ads sem_util.ads \
  2007. +    sinfo.ads sprint.ads sprint.adb stand.ads stringt.ads system.ads \
  2008. +    table.ads table.adb ttypes.ads types.ads uintp.ads uname.ads \
  2009. +    get_targ.ads unchdeal.ads unchdeal.adb 
  2010. + 
  2011. + stand.o : alloc.ads atree.ads csets.ads debug.ads einfo.ads gnatvsn.ads \
  2012. +    limits.ads namet.ads nlists.ads nmake.ads opt.ads output.ads \
  2013. +    sem_util.ads sinfo.ads snames.ads stand.ads stand.adb system.ads \
  2014. +    s-assert.ads table.ads table.adb ttypes.ads ttypef.ads types.ads \
  2015. +    get_targ.ads uintp.ads unchdeal.ads unchdeal.adb 
  2016. + 
  2017. + stringt.o : alloc.ads debug.ads output.ads stringt.ads stringt.adb \
  2018. +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  2019. +    unchdeal.adb 
  2020. + 
  2021. + style.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  2022. +    errout.ads limits.ads namet.ads output.ads scans.ads sinfo.ads \
  2023. +    sinput.ads style.ads style.adb system.ads table.ads table.adb types.ads \
  2024. +    unchdeal.ads unchdeal.adb 
  2025. + 
  2026. + switch.o : debug.ads opt.ads osint.ads output.ads switch.ads switch.adb \
  2027. +    system.ads types.ads unchdeal.ads unchdeal.adb 
  2028. + 
  2029. + system.o : system.ads 
  2030. + 
  2031. + tbuild.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  2032. +    namet.ads nlists.ads nmake.ads output.ads sinfo.ads stand.ads \
  2033. +    system.ads s-assert.ads table.ads table.adb tbuild.ads tbuild.adb \
  2034. +    types.ads unchdeal.ads unchdeal.adb 
  2035. + 
  2036. + treepr.o : alloc.ads atree.ads casing.ads comperr.ads csets.ads debug.ads \
  2037. +    einfo.ads elists.ads itypes.ads lib.ads limits.ads namet.ads nlists.ads \
  2038. +    output.ads sem_util.ads sinfo.ads sinput.ads stand.ads stringt.ads \
  2039. +    system.ads table.ads table.adb treepr.ads treepr.adb treeprs.ads \
  2040. +    ttypes.ads get_targ.ads types.ads uintp.ads uname.ads unchdeal.ads unchdeal.adb 
  2041. + 
  2042. + treeprs.o : sinfo.ads system.ads treeprs.ads types.ads unchdeal.ads \
  2043. +    unchdeal.adb 
  2044. + 
  2045. + ttypef.o : ttypes.ads get_targ.ads ttypef.ads 
  2046. + 
  2047. + ttypes.o : get_targ.ads system.ads ttypes.ads types.ads unchdeal.ads \
  2048. +    get_targ.ads unchdeal.adb 
  2049. + 
  2050. + types.o : system.ads types.ads types.adb unchdeal.ads unchdeal.adb 
  2051. + 
  2052. + uintp.o : alloc.ads debug.ads limits.ads namet.ads output.ads system.ads \
  2053. +    s-assert.ads table.ads table.adb ttypes.ads types.ads uintp.ads \
  2054. +    uintp.adb unchdeal.ads unchdeal.adb 
  2055. + 
  2056. + uname.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads lib.ads \
  2057. +    limits.ads namet.ads nlists.ads output.ads sinfo.ads sinput.ads \
  2058. +    system.ads s-assert.ads table.ads table.adb types.ads uname.ads \
  2059. +    uname.adb unchdeal.ads unchdeal.adb 
  2060. + 
  2061. + unixlib.o : system.ads types.ads unchdeal.ads unchdeal.adb unixlib.ads \
  2062. +    unixlib.adb 
  2063. + 
  2064. + usage.o : osint.ads output.ads system.ads types.ads unchdeal.ads \
  2065. +    unchdeal.adb usage.ads usage.adb 
  2066. + 
  2067. + widechar.o : system.ads s-assert.ads types.ads unchdeal.ads unchdeal.adb \
  2068. +    widechar.ads widechar.adb 
  2069. + 
  2070. + xref.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads lib.ads \
  2071. +    limits.ads namet.ads nlists.ads opt.ads osint.ads output.ads sinfo.ads \
  2072. +    sinput.ads sprint.ads stand.ads system.ads s-assert.ads table.ads \
  2073. +    table.adb types.ads unchdeal.ads unchdeal.adb xref.ads xref.adb \
  2074. +    xref_tab.ads 
  2075. + 
  2076. + xref_tab.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  2077. +    lib.ads limits.ads namet.ads osint.ads output.ads sinfo.ads sinput.ads \
  2078. +    stand.ads system.ads s-secsta.ads s-strcon.ads s-tasoli.ads table.ads \
  2079. +    table.adb treepr.ads types.ads unchdeal.ads unchdeal.adb xref_tab.ads \
  2080. +    xref_tab.adb 
  2081. + 
  2082. + 
  2083. + # To make a configuration always use collect2, set USE_COLLECT2 to ld.
  2084. + ld: collect2
  2085. +     rm -f ld
  2086. +     ln collect2 ld
  2087. + 
  2088. + collect2 : collect2.o version.o $(LIBDEPS)
  2089. + # Don't try modifying collect2 (aka ld) in place--it might be linking this.
  2090. +     -rm -f collect2
  2091. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o collect2 collect2.o version.o $(LIBS)
  2092. + 
  2093. + collect2.o : collect2.c $(CONFIG_H) gstab.h
  2094. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES)  \
  2095. +     -DTARGET_MACHINE=\"$(target)\" \
  2096. +     -c `echo $(srcdir)/collect2.c | sed 's,^\./,,'`
  2097. + 
  2098. + # Objective C language specific files.
  2099. + 
  2100. + objc-parse.o : $(srcdir)/objc-parse.c $(CONFIG_H) $(TREE_H) c-lex.h \
  2101. +    c-tree.h input.h flags.h objc-act.h
  2102. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c $(srcdir)/objc-parse.c
  2103. + $(srcdir)/objc-parse.c : $(srcdir)/objc-parse.y
  2104. +     cd $(srcdir); $(BISON) $(BISONFLAGS) objc-parse.y -o objc-parse.c
  2105. + $(srcdir)/objc-parse.y: $(srcdir)/c-parse.in
  2106. +     sed -e "/^ifc$$/,/^end ifc$$/d" \
  2107. +       -e "/^ifobjc$$/d" -e "/^end ifobjc$$/d" \
  2108. +       $(srcdir)/c-parse.in > $(srcdir)/objc-parse.y
  2109. + 
  2110. + objc-act.o : objc-act.c $(CONFIG_H) $(TREE_H) $(RTL_H) c-tree.h c-lex.h \
  2111. +    flags.h objc-act.h input.h function.h $(srcdir)/c-parse.h
  2112. + 
  2113. + # A file used by all variants of C.
  2114. + 
  2115. + c-common.o : c-common.c $(CONFIG_H) $(TREE_H) c-tree.h c-lex.h flags.h
  2116. + 
  2117. + # Language-independent files.
  2118. + 
  2119. + gcc.o: gcc.c $(CONFIG_H) gvarargs.h config.status
  2120. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2121. +   -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  2122. +   -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
  2123. +   -DDEFAULT_TARGET_MACHINE=\"$(target)\" \
  2124. +   -DTOOLDIR_BASE_PREFIX=\"$(exec_prefix)/\" \
  2125. +   -DTOOLDIR=\"$(tooldir)/\" \
  2126. +   $(MAYBE_TARGET_DEFAULT) \
  2127. +   -c `echo $(srcdir)/gcc.c | sed 's,^\./,,'`
  2128. + 
  2129. + dumpvers: dumpvers.c
  2130. + 
  2131. + version.o: version.c
  2132. + obstack.o: obstack.c
  2133. + 
  2134. + convert.o: convert.c $(CONFIG_H) $(TREE_H) flags.h convert.h
  2135. + 
  2136. + tree.o : tree.c $(CONFIG_H) $(TREE_H) gvarargs.h flags.h function.h
  2137. + print-tree.o : print-tree.c $(CONFIG_H) $(TREE_H)
  2138. + stor-layout.o : stor-layout.c $(CONFIG_H) $(TREE_H) function.h
  2139. + fold-const.o : fold-const.c $(CONFIG_H) $(TREE_H) flags.h 
  2140. + toplev.o : toplev.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h input.h \
  2141. +    insn-attr.h xcoffout.h defaults.h
  2142. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2143. +       $(MAYBE_TARGET_DEFAULT) $(MAYBE_USE_COLLECT2) \
  2144. +       -c `echo $(srcdir)/toplev.c | sed 's,^\./,,'`
  2145. + 
  2146. + rtl.o : rtl.c $(CONFIG_H) $(RTL_H)
  2147. + 
  2148. + print-rtl.o : print-rtl.c $(CONFIG_H) $(RTL_H)
  2149. + rtlanal.o : rtlanal.c $(CONFIG_H) $(RTL_H)
  2150. + 
  2151. + toplev.o: bytecode.h bc-emit.h
  2152. + varasm.o : varasm.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h function.h \
  2153. +    defaults.h insn-codes.h expr.h hard-reg-set.h regs.h xcoffout.h bytecode.h
  2154. + function.o : function.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h function.h  \
  2155. +    insn-flags.h insn-codes.h expr.h regs.h hard-reg-set.h insn-config.h \
  2156. +    recog.h output.h bytecode.h
  2157. + stmt.o : stmt.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h function.h  \
  2158. +    insn-flags.h insn-config.h insn-codes.h hard-reg-set.h expr.h loop.h \
  2159. +    recog.h bytecode.h bc-typecd.h bc-typecd.def bc-opcode.h bc-optab.h \
  2160. +    bc-emit.h
  2161. + expr.o : expr.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h function.h  \
  2162. +    insn-flags.h insn-codes.h expr.h insn-config.h recog.h output.h \
  2163. +    typeclass.h bytecode.h bc-opcode.h bc-typecd.h bc-typecd.def bc-optab.h \
  2164. +    bc-emit.h modemap.def
  2165. + calls.o : calls.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h expr.h insn-codes.h \
  2166. +    insn-flags.h gvarargs.h 
  2167. + expmed.o : expmed.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h  \
  2168. +    insn-flags.h insn-config.h insn-codes.h expr.h recog.h real.h
  2169. + explow.o : explow.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h hard-reg-set.h \
  2170. +    insn-config.h expr.h recog.h insn-flags.h insn-codes.h
  2171. + optabs.o : optabs.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h  \
  2172. +    insn-flags.h insn-config.h insn-codes.h expr.h recog.h reload.h
  2173. + dbxout.o : dbxout.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h regs.h \
  2174. +    insn-config.h reload.h gstab.h xcoffout.h defaults.h output.h
  2175. + sdbout.o : sdbout.c $(CONFIG_H) $(TREE_H) $(RTL_H) gsyms.h flags.h \
  2176. +    insn-config.h reload.h
  2177. + dwarfout.o : dwarfout.c $(CONFIG_H) $(TREE_H) $(RTL_H) dwarf.h flags.h \
  2178. +    insn-config.h reload.h output.h defaults.h
  2179. + xcoffout.o : xcoffout.c $(CONFIG_H) $(TREE_H) $(RTL_H) xcoffout.h flags.h
  2180. + emit-rtl.o : emit-rtl.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h gvarargs.h \
  2181. +    function.h regs.h insn-config.h insn-codes.h real.h expr.h bytecode.h \
  2182. +    bc-opcode.h bc-typecd.h bc-typecd.def bc-optab.h bc-emit.h bc-opname.h
  2183. + real.o : real.c $(CONFIG_H) $(TREE_H)
  2184. + getpwd.o : getpwd.c $(CONFIG_H)
  2185. + 
  2186. + integrate.o : integrate.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h integrate.h \
  2187. +    insn-flags.h insn-config.h insn-codes.h expr.h real.h function.h \
  2188. +    bytecode.h
  2189. + 
  2190. + jump.o : jump.c $(CONFIG_H) $(RTL_H) flags.h hard-reg-set.h regs.h \
  2191. +    insn-config.h insn-flags.h insn-codes.h expr.h real.h
  2192. + stupid.o : stupid.c $(CONFIG_H) $(RTL_H) regs.h hard-reg-set.h flags.h
  2193. + 
  2194. + cse.o : cse.c $(CONFIG_H) $(RTL_H) regs.h hard-reg-set.h flags.h real.h \
  2195. +    insn-config.h recog.h
  2196. + loop.o : loop.c $(CONFIG_H) $(RTL_H) flags.h loop.h insn-config.h \
  2197. +    insn-flags.h insn-codes.h regs.h hard-reg-set.h recog.h expr.h real.h
  2198. + unroll.o : unroll.c $(CONFIG_H) $(RTL_H) insn-config.h insn-codes.h \
  2199. +    integrate.h regs.h flags.h expr.h loop.h
  2200. + flow.o : flow.c $(CONFIG_H) $(RTL_H) flags.h insn-config.h \
  2201. +    basic-block.h regs.h hard-reg-set.h output.h
  2202. + combine.o : combine.c $(CONFIG_H) $(RTL_H) gvarargs.h flags.h  \
  2203. +    insn-config.h insn-flags.h insn-codes.h insn-attr.h regs.h expr.h \
  2204. +    basic-block.h recog.h real.h hard-reg-set.h
  2205. + regclass.o : regclass.c $(CONFIG_H) $(RTL_H) hard-reg-set.h flags.h \
  2206. +    basic-block.h regs.h insn-config.h recog.h reload.h real.h bytecode.h
  2207. + local-alloc.o : local-alloc.c $(CONFIG_H) $(RTL_H) flags.h basic-block.h \
  2208. +    regs.h hard-reg-set.h insn-config.h recog.h output.h
  2209. + global.o : global.c $(CONFIG_H) $(RTL_H) flags.h  \
  2210. +    basic-block.h regs.h hard-reg-set.h insn-config.h output.h
  2211. + 
  2212. + reload.o : reload.c $(CONFIG_H) $(RTL_H) flags.h \
  2213. +    reload.h recog.h hard-reg-set.h insn-config.h insn-codes.h regs.h real.h
  2214. + reload1.o : reload1.c $(CONFIG_H) $(RTL_H) flags.h expr.h \
  2215. +    reload.h regs.h hard-reg-set.h insn-config.h insn-flags.h insn-codes.h \
  2216. +    basic-block.h recog.h output.h
  2217. + caller-save.o : caller-save.c $(CONFIG_H) $(RTL_H) flags.h \
  2218. +    regs.h hard-reg-set.h insn-config.h basic-block.h recog.h reload.h expr.h
  2219. + reorg.o : reorg.c $(CONFIG_H) $(RTL_H) conditions.h hard-reg-set.h \
  2220. +    basic-block.h regs.h insn-config.h insn-attr.h insn-flags.h recog.h \
  2221. +    flags.h output.h
  2222. + sched.o : sched.c $(CONFIG_H) $(RTL_H) basic-block.h regs.h hard-reg-set.h \
  2223. +    flags.h insn-config.h insn-attr.h
  2224. + final.o : final.c $(CONFIG_H) $(RTL_H) $(TREE_H) gvarargs.h flags.h regs.h \
  2225. +    recog.h conditions.h insn-config.h insn-attr.h real.h output.h \
  2226. +    hard-reg-set.h insn-flags.h insn-codes.h gstab.h xcoffout.h defaults.h
  2227. + recog.o : recog.c $(CONFIG_H) $(RTL_H)  \
  2228. +    regs.h recog.h hard-reg-set.h flags.h insn-config.h insn-attr.h \
  2229. +    insn-flags.h insn-codes.h real.h
  2230. + reg-stack.o : reg-stack.c $(CONFIG_H) $(RTL_H) $(TREE_H) \
  2231. +    regs.h hard-reg-set.h flags.h insn-config.h
  2232. + 
  2233. + aux-output.o : aux-output.c $(CONFIG_H) \
  2234. +    $(RTL_H) regs.h hard-reg-set.h real.h insn-config.h conditions.h \
  2235. +    insn-flags.h output.h insn-attr.h insn-codes.h
  2236. + 
  2237. + # Build auxiliary files that support ecoff format.
  2238. + mips-tfile: mips-tfile.o version.o $(LIBDEPS)
  2239. +     $(CC) $(CFLAGS) $(LDFLAGS) -o mips-tfile mips-tfile.o version.o $(LIBS)
  2240. + 
  2241. + mips-tfile.o : mips-tfile.c $(CONFIG_H) $(RTL_H)
  2242. + 
  2243. + mips-tdump: mips-tdump.o version.o $(LIBDEPS)
  2244. +     $(CC) $(CFLAGS) $(LDFLAGS) -o mips-tdump mips-tdump.o version.o $(LIBS)
  2245. + 
  2246. + mips-tdump.o : mips-tdump.c $(CONFIG_H) $(RTL_H)
  2247. + 
  2248. + # Normally this target is not used; but it is used if you
  2249. + # define ALLOCA=alloca.o.  In that case, you must get a suitable alloca.c
  2250. + # from the GNU Emacs distribution.
  2251. + alloca.o:    alloca.c
  2252. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(ALLOCA_FLAGS) \
  2253. +       -c `echo $(srcdir)/alloca.c | sed 's,^\./,,'`
  2254. +     $(ALLOCA_FINISH)
  2255. + 
  2256. + # Generate header and source files from the machine description, 
  2257. + # and compile them.
  2258. + 
  2259. + .PRECIOUS: insn-config.h insn-flags.h insn-codes.h \
  2260. +   insn-emit.c insn-recog.c insn-extract.c insn-output.c insn-peep.c \
  2261. +   insn-attr.h insn-attrtab.c
  2262. + 
  2263. + # The following pair of rules has this effect:
  2264. + # genconfig is run only if the md has changed since genconfig was last run;
  2265. + # but the file insn-config.h is touched only when its contents actually change.
  2266. + 
  2267. + # Each of the other insn-* files is handled by a similar pair of rules.
  2268. + 
  2269. + # This causes an anomaly in the results of make -n
  2270. + # because insn-* is older than stamp-*
  2271. + # and thus make -n thinks that insn-* will be updated
  2272. + # and force recompilation of things that depend on it.
  2273. + # We use move-if-change precisely to avoid such recompilation.
  2274. + # But there is no way to teach make -n that it will be avoided.
  2275. + 
  2276. + # Each of the insn-*.[ch] rules has a semicolon at the end,
  2277. + # for otherwise the system Make on SunOS 4.1 never tries
  2278. + # to recompile insn-*.o.  To avoid problems and extra noise from
  2279. + # versions of make which don't like empty commands (nothing after the
  2280. + # trailing `;'), we call true for each.
  2281. + 
  2282. + insn-config.h: stamp-config ; @true
  2283. + stamp-config : md genconfig $(srcdir)/move-if-change
  2284. +     ./genconfig md > tmp-config.h
  2285. +     $(srcdir)/move-if-change tmp-config.h insn-config.h
  2286. +     touch stamp-config
  2287. + 
  2288. + insn-flags.h: stamp-flags ; @true
  2289. + stamp-flags : md genflags $(srcdir)/move-if-change
  2290. +     ./genflags md > tmp-flags.h
  2291. +     $(srcdir)/move-if-change tmp-flags.h insn-flags.h
  2292. +     touch stamp-flags
  2293. + 
  2294. + insn-codes.h: stamp-codes ; @true
  2295. + stamp-codes : md gencodes $(srcdir)/move-if-change
  2296. +     ./gencodes md > tmp-codes.h
  2297. +     $(srcdir)/move-if-change tmp-codes.h insn-codes.h
  2298. +     touch stamp-codes
  2299. + 
  2300. + insn-emit.o : insn-emit.c $(CONFIG_H) $(RTL_H) expr.h real.h output.h \
  2301. +   insn-config.h insn-flags.h insn-codes.h
  2302. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-emit.c
  2303. + 
  2304. + insn-emit.c: stamp-emit ; @true
  2305. + stamp-emit : md genemit $(srcdir)/move-if-change
  2306. +     ./genemit md > tmp-emit.c
  2307. +     $(srcdir)/move-if-change tmp-emit.c insn-emit.c
  2308. +     touch stamp-emit
  2309. + 
  2310. + insn-recog.o : insn-recog.c $(CONFIG_H) $(RTL_H) insn-config.h recog.h \
  2311. +   real.h output.h flags.h
  2312. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-recog.c
  2313. + 
  2314. + insn-recog.c: stamp-recog ; @true
  2315. + stamp-recog : md genrecog $(srcdir)/move-if-change
  2316. +     ./genrecog md > tmp-recog.c
  2317. +     $(srcdir)/move-if-change tmp-recog.c insn-recog.c
  2318. +     touch stamp-recog
  2319. + 
  2320. + insn-opinit.o : insn-opinit.c $(CONFIG_H) $(RTL_H) insn-codes.h insn-flags.h \
  2321. +   insn-config.h flags.h rtl.h recog.h expr.h reload.h
  2322. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-opinit.c
  2323. + 
  2324. + insn-opinit.c: stamp-opinit ; @true
  2325. + stamp-opinit : md genopinit $(srcdir)/move-if-change
  2326. +     ./genopinit md > tmp-opinit.c
  2327. +     $(srcdir)/move-if-change tmp-opinit.c insn-opinit.c
  2328. +     touch stamp-opinit
  2329. + 
  2330. + insn-extract.o : insn-extract.c $(CONFIG_H) $(RTL_H)
  2331. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-extract.c
  2332. + 
  2333. + insn-extract.c: stamp-extract ; @true
  2334. + stamp-extract : md genextract $(srcdir)/move-if-change
  2335. +     ./genextract md > tmp-extract.c
  2336. +     $(srcdir)/move-if-change tmp-extract.c insn-extract.c
  2337. +     touch stamp-extract
  2338. + 
  2339. + insn-peep.o : insn-peep.c $(CONFIG_H) $(RTL_H) regs.h output.h real.h
  2340. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-peep.c
  2341. + 
  2342. + insn-peep.c: stamp-peep ; @true
  2343. + stamp-peep : md genpeep $(srcdir)/move-if-change
  2344. +     ./genpeep md > tmp-peep.c
  2345. +     $(srcdir)/move-if-change tmp-peep.c insn-peep.c
  2346. +     touch stamp-peep
  2347. + 
  2348. + insn-attrtab.o : insn-attrtab.c $(CONFIG_H) $(RTL_H) regs.h real.h output.h \
  2349. +      insn-attr.h insn-config.h
  2350. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-attrtab.c
  2351. + 
  2352. + insn-attr.h: stamp-attr ; @true
  2353. + stamp-attr : md genattr $(srcdir)/move-if-change
  2354. +     ./genattr md > tmp-attr.h
  2355. +     $(srcdir)/move-if-change tmp-attr.h insn-attr.h
  2356. +     touch stamp-attr
  2357. + 
  2358. + insn-attrtab.c: stamp-attrtab ; @true
  2359. + stamp-attrtab : md genattrtab $(srcdir)/move-if-change
  2360. +     if cmp -s $(PREMADE_ATTRTAB_MD) md;    \
  2361. +     then                    \
  2362. +       echo Using $(PREMADE_ATTRTAB);    \
  2363. +       cp $(PREMADE_ATTRTAB) tmp-attrtab.c;    \
  2364. +     else                    \
  2365. +       ./genattrtab md > tmp-attrtab.c;    \
  2366. +     fi
  2367. +     $(srcdir)/move-if-change tmp-attrtab.c insn-attrtab.c
  2368. +     touch stamp-attrtab
  2369. + 
  2370. + insn-output.o : insn-output.c $(CONFIG_H) $(RTL_H) regs.h real.h conditions.h \
  2371. +     hard-reg-set.h insn-config.h insn-flags.h insn-attr.h output.h recog.h \
  2372. +     insn-codes.h
  2373. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c insn-output.c
  2374. + 
  2375. + insn-output.c: stamp-output ; @true
  2376. + stamp-output : md genoutput $(srcdir)/move-if-change
  2377. +     ./genoutput md > tmp-output.c
  2378. +     $(srcdir)/move-if-change tmp-output.c insn-output.c
  2379. +     touch stamp-output
  2380. + 
  2381. + # Compile the programs that generate insn-* from the machine description.
  2382. + # They are compiled with $(HOST_CC), and associated libraries,
  2383. + # since they need to run on this machine
  2384. + # even if GCC is being compiled to run on some other machine.
  2385. + 
  2386. + # $(CONFIG_H) is omitted from the deps of the gen*.o
  2387. + # because these programs don't really depend on anything 
  2388. + # about the target machine.  They do depend on config.h itself,
  2389. + # since that describes the host machine.
  2390. + 
  2391. + # Pass the md file through cpp if the target requests it.
  2392. + $(MD_FILE): $(CPP_MD)
  2393. +     -if [ -f md.pre-cpp ]; then \
  2394. +       rm -f md ; ./cpp $(CPP_MD_FLAGS) md.pre-cpp | sed 's/^# /; /g' > md ; \
  2395. +     else true ; \
  2396. +     fi
  2397. + 
  2398. + genconfig : genconfig.o $(HOST_RTL) $(HOST_LIBDEPS)
  2399. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genconfig \
  2400. +       genconfig.o $(HOST_RTL) $(HOST_LIBS)
  2401. + 
  2402. + genconfig.o : genconfig.c $(RTL_H) hconfig.h
  2403. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genconfig.c
  2404. + 
  2405. + genflags : genflags.o $(HOST_RTL) $(HOST_LIBDEPS)
  2406. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genflags \
  2407. +      genflags.o $(HOST_RTL) $(HOST_LIBS)
  2408. + 
  2409. + genflags.o : genflags.c $(RTL_H) hconfig.h
  2410. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genflags.c
  2411. + 
  2412. + gencodes : gencodes.o $(HOST_RTL) $(HOST_LIBDEPS)
  2413. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o gencodes \
  2414. +      gencodes.o $(HOST_RTL) $(HOST_LIBS)
  2415. + 
  2416. + gencodes.o : gencodes.c $(RTL_H) hconfig.h
  2417. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/gencodes.c
  2418. + 
  2419. + genemit : genemit.o $(HOST_RTL) $(HOST_LIBDEPS)
  2420. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genemit \
  2421. +      genemit.o $(HOST_RTL) $(HOST_LIBS)
  2422. + 
  2423. + genemit.o : genemit.c $(RTL_H) hconfig.h
  2424. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genemit.c
  2425. + 
  2426. + genopinit : genopinit.o $(HOST_RTL) $(HOST_LIBDEPS)
  2427. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genopinit \
  2428. +      genopinit.o $(HOST_RTL) $(HOST_LIBS)
  2429. + 
  2430. + genopinit.o : genopinit.c $(RTL_H) hconfig.h
  2431. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genopinit.c
  2432. + 
  2433. + genrecog : genrecog.o $(HOST_RTL) $(HOST_LIBDEPS)
  2434. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genrecog \
  2435. +      genrecog.o $(HOST_RTL) $(HOST_LIBS)
  2436. + 
  2437. + genrecog.o : genrecog.c $(RTL_H) hconfig.h
  2438. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genrecog.c
  2439. + 
  2440. + genextract : genextract.o $(HOST_RTL) $(HOST_LIBDEPS)
  2441. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genextract \
  2442. +      genextract.o $(HOST_RTL) $(HOST_LIBS)
  2443. + 
  2444. + genextract.o : genextract.c $(RTL_H) hconfig.h insn-config.h
  2445. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genextract.c
  2446. + 
  2447. + genpeep : genpeep.o $(HOST_RTL) $(HOST_LIBDEPS)
  2448. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genpeep \
  2449. +      genpeep.o $(HOST_RTL) $(HOST_LIBS)
  2450. + 
  2451. + genpeep.o : genpeep.c $(RTL_H) hconfig.h
  2452. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genpeep.c
  2453. + 
  2454. + genattr : genattr.o $(HOST_RTL) $(HOST_LIBDEPS)
  2455. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genattr \
  2456. +      genattr.o $(HOST_RTL) $(HOST_LIBS)
  2457. + 
  2458. + genattr.o : genattr.c $(RTL_H) hconfig.h
  2459. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genattr.c
  2460. + 
  2461. + genattrtab : genattrtab.o $(HOST_RTL) $(HOST_PRINT) $(HOST_RTLANAL) $(HOST_LIBDEPS)
  2462. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genattrtab \
  2463. +      genattrtab.o $(HOST_RTL) $(HOST_PRINT) $(HOST_RTLANAL) $(HOST_LIBS)
  2464. + 
  2465. + genattrtab.o : genattrtab.c $(RTL_H) hconfig.h insn-config.h
  2466. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genattrtab.c
  2467. + 
  2468. + genoutput : genoutput.o $(HOST_RTL) $(HOST_LIBDEPS)
  2469. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o genoutput \
  2470. +      genoutput.o $(HOST_RTL) $(HOST_LIBS)
  2471. + 
  2472. + genoutput.o : genoutput.c $(RTL_H) hconfig.h
  2473. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/genoutput.c
  2474. + 
  2475. + # Compile the libraries to be used by gen*.
  2476. + # If we are not cross-building, gen* use the same .o's that cc1 will use,
  2477. + # and HOST_PREFIX_1 is `foobar', just to ensure these rules don't conflict
  2478. + # with the rules for rtl.o, alloca.o, etc.
  2479. + $(HOST_PREFIX_1)rtl.o: $(srcdir)/rtl.c $(CONFIG_H) $(RTL_H)
  2480. +     rm -f $(HOST_PREFIX)rtl.c
  2481. +     sed -e 's/config[.]h/hconfig.h/' $(srcdir)/rtl.c > $(HOST_PREFIX)rtl.c
  2482. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)rtl.c
  2483. + 
  2484. + $(HOST_PREFIX_1)print-rtl.o: $(srcdir)/print-rtl.c $(CONFIG_H) $(RTL_H)
  2485. +     rm -f $(HOST_PREFIX)print-rtl.c
  2486. +     sed -e 's/config[.]h/hconfig.h/' $(srcdir)/print-rtl.c > $(HOST_PREFIX)print-rtl.c
  2487. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)print-rtl.c
  2488. + 
  2489. + $(HOST_PREFIX_1)rtlanal.o: $(srcdir)/rtlanal.c $(CONFIG_H) $(RTL_H)
  2490. +     rm -f $(HOST_PREFIX)rtlanal.c
  2491. +     sed -e 's/config[.]h/hconfig.h/' $(srcdir)/rtlanal.c > $(HOST_PREFIX)rtlanal.c
  2492. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)rtlanal.c
  2493. + 
  2494. + $(HOST_PREFIX_1)alloca.o: alloca.c
  2495. +     rm -f $(HOST_PREFIX)alloca.c
  2496. +     cp $(srcdir)/alloca.c $(HOST_PREFIX)alloca.c
  2497. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)alloca.c
  2498. + 
  2499. + $(HOST_PREFIX_1)obstack.o: obstack.c
  2500. +     rm -f $(HOST_PREFIX)obstack.c
  2501. +     sed -e 's/config[.]h/hconfig.h/' $(srcdir)/obstack.c > $(HOST_PREFIX)obstack.c
  2502. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)obstack.c
  2503. + 
  2504. + $(HOST_PREFIX_1)malloc.o: malloc.c
  2505. +     rm -f $(HOST_PREFIX)malloc.c
  2506. +     sed -e 's/config[.]h/hconfig.h/' $(srcdir)/malloc.c > $(HOST_PREFIX)malloc.c
  2507. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(HOST_PREFIX)malloc.c
  2508. + 
  2509. + # This satisfies the dependency that we get if you cross-compile a compiler
  2510. + # that does not need to compile alloca, malloc or whatever.
  2511. + $(HOST_PREFIX_1): 
  2512. +     touch $(HOST_PREFIX_1)
  2513. + 
  2514. + # Remake bytecode files.
  2515. + # BI_ALL=bi-run.o
  2516. + BI_ALL=
  2517. + BC_ALL=bc-opname.h bc-opcode.h bc-arity.h
  2518. + BI_OBJ=bi-parser.o bi-lexer.o bi-reverse.o
  2519. + 
  2520. + 
  2521. + bc-emit.o : bc-emit.c $(CONFIG_H) $(RTL_H) real.h $(BYTECODE_H) \
  2522. +      bc-arity.h bc-opcode.h bc-typecd.h bc-typecd.def bi-run.h bytetypes.h
  2523. + bc-optab.o : bc-optab.c $(CONFIG_H) $(REAL_H) $(BYTECODE_H) \
  2524. +         bc-opcode.h bc-typecd.h bc-typecd.def
  2525. + 
  2526. + 
  2527. + bytecode: $(BI_ALL) $(BC_ALL)
  2528. + 
  2529. + bi-arity: bi-arity.o $(BI_OBJ) $(HOST_LIBDEPS)
  2530. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o bi-arity \
  2531. +      bi-arity.o $(BI_OBJ) $(HOST_LIBS)
  2532. + bi-opcode: bi-opcode.o $(BI_OBJ) $(HOST_LIBDEPS)
  2533. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o bi-opcode \
  2534. +      bi-opcode.o $(BI_OBJ) $(HOST_LIBS)
  2535. + bi-opname: bi-opname.o $(BI_OBJ) $(HOST_LIBDEPS)
  2536. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o bi-opname \
  2537. +      bi-opname.o $(BI_OBJ) $(HOST_LIBS)
  2538. + 
  2539. + bi-run.o:    $(srcdir)/bi-run.c $(srcdir)/bi-run.h $(srcdir)/bc-typecd.h \
  2540. +   bc-opname.h bc-arity.h bc-opcode.h
  2541. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c $(srcdir)/bi-run.c
  2542. + $(srcdir)/bi-parser.c $(srcdir)/bi-parser.h: $(srcdir)/bi-parser.y
  2543. +     cd $(srcdir); $(BISON) $(BISONFLAGS) -d bi-parser.y -o bi-parser.c
  2544. + bi-parser.o:    $(srcdir)/bi-parser.c $(srcdir)/bi-defs.h hconfig.h
  2545. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2546. +        $(srcdir)/bi-parser.c
  2547. + bi-lexer.o:    $(srcdir)/bi-lexer.c $(srcdir)/bi-parser.h hconfig.h
  2548. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2549. +        $(srcdir)/bi-lexer.c
  2550. + bi-arity.o: bi-arity.c $(srcdir)/bi-defs.h hconfig.h
  2551. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2552. +        $(srcdir)/bi-arity.c
  2553. + bi-opcode.o: bi-opcode.c $(srcdir)/bi-defs.h hconfig.h
  2554. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2555. +        $(srcdir)/bi-opcode.c
  2556. + bi-opname.o: bi-opname.c $(srcdir)/bi-defs.h hconfig.h
  2557. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2558. +        $(srcdir)/bi-opname.c
  2559. + bi-reverse.o: bi-reverse.c $(srcdir)/bi-defs.h
  2560. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) \
  2561. +        $(srcdir)/bi-reverse.c
  2562. + 
  2563. + 
  2564. + bc-arity.h: stamp-bcarity ; @true
  2565. + stamp-bcarity : $(srcdir)/bytecode.def bi-arity $(srcdir)/move-if-change
  2566. +     ./bi-arity < $(srcdir)/bytecode.def >tmp-bc-arity.h
  2567. +     $(srcdir)/move-if-change tmp-bc-arity.h bc-arity.h
  2568. +     touch stamp-bcarity
  2569. + 
  2570. + bc-opcode.h: stamp-bcopcode ; @true
  2571. + stamp-bcopcode : $(srcdir)/bytecode.def bi-opcode $(srcdir)/move-if-change
  2572. +     ./bi-opcode < $(srcdir)/bytecode.def >tmp-bcopcd.h
  2573. +     $(srcdir)/move-if-change tmp-bcopcd.h bc-opcode.h
  2574. +     touch stamp-bcopcode
  2575. + 
  2576. + bc-opname.h: stamp-bcopname ; @true
  2577. + stamp-bcopname : $(srcdir)/bytecode.def bi-opname $(srcdir)/move-if-change
  2578. +     ./bi-opname < $(srcdir)/bytecode.def >tmp-bcopnm.h
  2579. +     $(srcdir)/move-if-change tmp-bcopnm.h bc-opname.h
  2580. +     touch stamp-bcopname
  2581. + 
  2582. + bytecode.mostlyclean:
  2583. +     -rm -f bc-arity.h bc-opcode.h bc-opname.h
  2584. + 
  2585. + bytecode.distclean bytecode.clean:    bytecode.mostlyclean
  2586. +     -rm -f bi-arity bi-opcode bi-opname bi-lexer
  2587. + 
  2588. + bytecode.realclean: bytecode.clean
  2589. +     -rm -f bi-parser.c bi-parser.h
  2590. + 
  2591. + 
  2592. + # Remake cpp and protoize.
  2593. + 
  2594. + # Making the preprocessor
  2595. + cpp: cccp
  2596. +     -rm -f cpp
  2597. +     ln cccp cpp
  2598. + cccp: cccp.o cexp.o version.o $(LIBDEPS)
  2599. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cccp cccp.o cexp.o version.o $(LIBS)
  2600. + cexp.o: $(srcdir)/cexp.c $(CONFIG_H)
  2601. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -c $(srcdir)/cexp.c
  2602. + $(srcdir)/cexp.c: $(srcdir)/cexp.y
  2603. +     cd $(srcdir); $(BISON) -o cexp.c cexp.y
  2604. + cccp.o: cccp.c $(CONFIG_H) pcp.h version.c config.status
  2605. + # The reason we use $(libdir)/g++-include rather than using libsubdir
  2606. + # is for compatibility with the current version of libg++.
  2607. +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2608. +       -DGCC_INCLUDE_DIR=\"$(libsubdir)/include\" \
  2609. +       -DGPLUSPLUS_INCLUDE_DIR=\"$(libdir)/g++-include\" \
  2610. +       -DLOCAL_INCLUDE_DIR=\"$(local_prefix)/include\" \
  2611. +       -DCROSS_INCLUDE_DIR=\"$(libsubdir)/sys-include\" \
  2612. +       -DTOOL_INCLUDE_DIR=\"$(tooldir)/include\" \
  2613. +       -DTOOLDIR=\"$(tooldir)/\" \
  2614. +       -c `echo $(srcdir)/cccp.c | sed 's,^\./,,'`
  2615. + 
  2616. + # Note for the stamp targets, we run the program `true' instead of
  2617. + # having an empty command (nothing following the semicolon).
  2618. + 
  2619. + proto: config.status protoize unprotoize SYSCALLS.c.X
  2620. + 
  2621. + protoize: protoize.o getopt.o getopt1.o getpwd.o version.o $(LIBDEPS)
  2622. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) \
  2623. +       protoize.o getopt.o getopt1.o getpwd.o version.o $(LIBS) -o $@
  2624. + protoize.o: stamp-proto ; @true
  2625. + 
  2626. + unprotoize: unprotoize.o getopt.o getopt1.o getpwd.o version.o $(LIBDEPS)
  2627. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) \
  2628. +       unprotoize.o getopt.o getopt1.o getpwd.o version.o $(LIBS) -o $@
  2629. + unprotoize.o:    stamp-proto ; @true
  2630. + 
  2631. + stamp-proto:    $(srcdir)/protoize.c getopt.h $(CONFIG_H)
  2632. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2633. +           -DGCC_INCLUDE_DIR=\"$(libsubdir)/include\" \
  2634. +           -DGPLUSPLUS_INCLUDE_DIR=\"$(libdir)/g++-include\" \
  2635. +           -DCROSS_INCLUDE_DIR=\"$(libsubdir)/sys-include\" \
  2636. +       -DTOOL_INCLUDE_DIR=\"$(tooldir)/include\" \
  2637. +       -DLOCAL_INCLUDE_DIR=\"$(local_prefix)/include\" \
  2638. +       -DSTD_PROTO_DIR=\"$(libsubdir)\" \
  2639. +       -DUNPROTOIZE $(srcdir)/protoize.c
  2640. +     mv protoize.o unprotoize.o
  2641. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2642. +           -DGCC_INCLUDE_DIR=\"$(libsubdir)/include\" \
  2643. +           -DGPLUSPLUS_INCLUDE_DIR=\"$(libdir)/g++-include\" \
  2644. +           -DCROSS_INCLUDE_DIR=\"$(libsubdir)/sys-include\" \
  2645. +       -DTOOL_INCLUDE_DIR=\"$(tooldir)/include\" \
  2646. +       -DLOCAL_INCLUDE_DIR=\"$(local_prefix)/include\" \
  2647. +       -DSTD_PROTO_DIR=\"$(libsubdir)\" \
  2648. +       $(srcdir)/protoize.c
  2649. +     touch stamp-proto
  2650. + 
  2651. + getopt.o: $(srcdir)/getopt.c getopt.h
  2652. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(srcdir)/getopt.c
  2653. + getopt1.o: $(srcdir)/getopt1.c getopt.h
  2654. +     $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(srcdir)/getopt1.c
  2655. + 
  2656. + # This info describes the target machine, so compile with GCC just built.
  2657. + SYSCALLS.c.X: $(srcdir)/sys-types.h $(srcdir)/sys-protos.h $(GCC_PASSES)
  2658. +     -rm -f SYSCALLS.c tmp-SYSCALLS.s
  2659. +     cat $(srcdir)/sys-types.h $(srcdir)/sys-protos.h > SYSCALLS.c
  2660. +     $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  2661. +       -aux-info $@ -S -o tmp-SYSCALLS.s SYSCALLS.c
  2662. +     -rm -f SYSCALLS.c tmp-SYSCALLS.s
  2663. + 
  2664. + 
  2665. + test-protoize-simple: ./protoize ./unprotoize $(GCC_PASSES)
  2666. +     -rm -f tmp-proto.[cso]
  2667. +     cp $(srcdir)/protoize.c tmp-proto.c
  2668. +     chmod u+w tmp-proto.c
  2669. +     ./protoize -N -B ./ -x getopt.h -c "-B./ -Wall -Wwrite-strings \
  2670. +       $(CFLAGS) $(INCLUDES) \
  2671. +       -DGCC_INCLUDE_DIR=0 \
  2672. +       -DGPLUSPLUS_INCLUDE_DIR=0 \
  2673. +       -DCROSS_INCLUDE_DIR=0 \
  2674. +       -DTOOL_INCLUDE_DIR=0 \
  2675. +       -DSTD_PROTO_DIR=0" tmp-proto.c
  2676. +     @echo '**********' Expect 400 lines of differences.
  2677. +     -diff $(srcdir)/protoize.c tmp-proto.c > tmp-proto.diff
  2678. +     -wc -l tmp-proto.diff
  2679. +     ./unprotoize -N -x getopt.h -c "-B./ -Wall -Wwrite-strings \
  2680. +       $(CFLAGS) $(INCLUDES) \
  2681. +       -DGCC_INCLUDE_DIR=0 \
  2682. +       -DGPLUSPLUS_INCLUDE_DIR=0 \
  2683. +       -DCROSS_INCLUDE_DIR=0 \
  2684. +       -DTOOL_INCLUDE_DIR=0 \
  2685. +       -DSTD_PROTO_DIR=0" tmp-proto.c
  2686. +     @echo Expect zero differences.
  2687. +     diff $(srcdir)/protoize.c tmp-proto.c | cat
  2688. +     -rm -f tmp-proto.[cso]
  2689. + 
  2690. + # Build the include directory.  The stamp files are stmp-* rather than
  2691. + # stamp-* so that mostlyclean does not force the include directory to
  2692. + # be rebuilt.
  2693. + 
  2694. + # Build the include directory except for float.h (which depends upon
  2695. + # enquire).
  2696. + stmp-int-hdrs: stmp-fixinc $(USER_H) gvarargs.h gstdarg.h gstddef.h \
  2697. +   xlimits.h objc-headers
  2698. + # Copy in the headers provided with gcc.
  2699. + # The sed command gets just the last file name component;
  2700. + # this is necessary because VPATH could add a dirname.
  2701. + # Using basename would be simpler, but some systems don't have it.
  2702. +     objdir=`pwd`; \
  2703. +     cd $(srcdir); \
  2704. +     for file in $(USER_H); do \
  2705. +       realfile=`echo $$file | sed -e 's|.*/\([^/]*\)$$|\1|'`; \
  2706. +       rm -f $$objdir/include/$$realfile; \
  2707. +       cp $$realfile $$objdir/include; \
  2708. +       chmod a+r $$objdir/include/$$realfile; \
  2709. +     done
  2710. +     rm -f include/varargs.h
  2711. +     cp $(srcdir)/gvarargs.h include/varargs.h
  2712. +     chmod a+r include/varargs.h
  2713. +     rm -f include/stdarg.h
  2714. +     cp $(srcdir)/gstdarg.h include/stdarg.h
  2715. +     chmod a+r include/stdarg.h
  2716. +     rm -f include/stddef.h
  2717. +     cp $(srcdir)/gstddef.h include/stddef.h
  2718. +     chmod a+r include/stddef.h
  2719. +     rm -f include/limits.h
  2720. +     cp xlimits.h include/limits.h
  2721. +     chmod a+r include/limits.h
  2722. + # Install the README
  2723. +     rm -f include/README
  2724. +     cp $(srcdir)/README-fixinc include/README
  2725. +     chmod a+r include/README
  2726. +     touch stmp-int-hdrs
  2727. + 
  2728. + # Build the complete include directory.
  2729. + stmp-headers: stmp-int-hdrs gfloat.h
  2730. +     rm -f include/float.h
  2731. +     cp gfloat.h include/float.h
  2732. +     chmod a+r include/float.h
  2733. +     touch stmp-headers
  2734. + 
  2735. + # Running fixincludes requires making sure that xgcc and cpp have been
  2736. + # compiled (they are used to get the value of __SIZE_TYPE__).
  2737. + # But recompiling xgcc should not force the the header files to be
  2738. + # fixed again.  If you want to do that, delete stmp-fixinc.
  2739. + fixinc.ready: xgcc cpp
  2740. +     -if [ -f fixinc.ready ] ; then \
  2741. +         true; \
  2742. +     else \
  2743. +         touch fixinc.ready; \
  2744. +     fi
  2745. + 
  2746. + # Build fixed copies of system files.
  2747. + stmp-fixinc: $(srcdir)/$(FIXINCLUDES) gsyslimits.h fixinc.ready
  2748. +     rm -rf include
  2749. +     mkdir include
  2750. +     if [ x$(FIXINCLUDES) != xMakefile.in ]; \
  2751. +     then \
  2752. +       for dir in $(SYSTEM_HEADER_DIR) $(OTHER_FIXINCLUDES_DIRS); do \
  2753. +         if [ -d $$dir ]; \
  2754. +         then \
  2755. +           $(srcdir)/$(FIXINCLUDES) include $$dir $(srcdir) "`pwd`/xgcc -B`pwd`/"; \
  2756. +         else true; fi; \
  2757. +       done; \
  2758. +     else true; \
  2759. +     fi
  2760. +     rm -f include/syslimits.h
  2761. +     if [ -f include/limits.h ]; then \
  2762. +       mv include/limits.h include/syslimits.h; \
  2763. +     else \
  2764. +       cp $(srcdir)/gsyslimits.h include/syslimits.h; \
  2765. +     fi
  2766. +     chmod a+r include/syslimits.h
  2767. +     touch stmp-fixinc
  2768. + 
  2769. + # copy objc header files into build directory
  2770. + objc-headers: stmp-fixinc
  2771. +     if [ -d objc ]; then true; else mkdir objc; fi
  2772. +     thisdir1=`pwd`; \
  2773. +     srcdir1=`cd $(srcdir); pwd`; \
  2774. +     cd objc; \
  2775. +     $(MAKE) -f $${srcdir1}/objc/Makefile copy-headers \
  2776. +     srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  2777. +     GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
  2778. +     GCC_CFLAGS="$(GCC_CFLAGS)" incinstalldir=$${thisdir1}/include
  2779. +     touch objc-headers
  2780. + 
  2781. + # Files related to the fixproto script.
  2782. + 
  2783. + deduced.h: $(GCC_PASSES) $(srcdir)/scan-types.sh stmp-int-hdrs
  2784. +     CC="$(GCC_FOR_TARGET) $(GCC_CFLAGS) $(ALL_CPPFLAGS) -I. -I$(srcdir) -Iinclude -I${SYSTEM_HEADER_DIR}"; \
  2785. +       export CC; \
  2786. +       $(srcdir)/scan-types.sh "$(srcdir)" >tmp-deduced.h
  2787. +     mv tmp-deduced.h deduced.h
  2788. + 
  2789. + gen-protos: gen-protos.o scan.o $(HOST_LIBDEPS)
  2790. +     ${HOST_CC} $(HOST_CFLAGS) $(HOST_LDFLAGS) -o gen-protos \
  2791. +       gen-protos.o scan.o $(HOST_LIBS)
  2792. + 
  2793. + gen-protos.o: gen-protos.c scan.h hconfig.h
  2794. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/gen-protos.c
  2795. + 
  2796. + scan.o: scan.c scan.h hconfig.h
  2797. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/scan.c
  2798. + 
  2799. + xsys-protos.h: $(GCC_PASSES) $(srcdir)/sys-protos.h deduced.h gen-protos Makefile
  2800. +     cat deduced.h $(srcdir)/sys-protos.h > fixtmp.c
  2801. +     $(GCC_FOR_TARGET) fixtmp.c -E \
  2802. +       | sed -e 's/    / /g' -e 's/ *(/ (/g' -e 's/ [ ]*/ /g' -e 's/( )/()/' \
  2803. +       | ./gen-protos >xsys-protos.h
  2804. +     rm -rf fixtmp.c
  2805. + 
  2806. + fix-header: fix-header.o scan-decls.o scan.o xsys-protos.h $(HOST_LIBDEPS)
  2807. +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o fix-header \
  2808. +       fix-header.o scan-decls.o scan.o $(HOST_LIBS)
  2809. + 
  2810. + fix-header.o: fix-header.c obstack.h scan.h xsys-protos.h hconfig.h
  2811. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/fix-header.c
  2812. + 
  2813. + scan-decls.o: scan-decls.c scan.h hconfig.h
  2814. +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/scan-decls.c
  2815. + 
  2816. + # stmp-fixproto depends on this, not on fix-header directly.
  2817. + # The idea is to make sure fix-header gets built,
  2818. + # but not rerun fixproto after each stage
  2819. + # just because fix-header's mtime has changed.
  2820. + fixhdr.ready: fix-header
  2821. +     -if [ -f fixhdr.ready ] ; then \
  2822. +         true; \
  2823. +     else \
  2824. +         touch fixhdr.ready; \
  2825. +     fi
  2826. + 
  2827. + # stmp-headers is to make sure fixincludes has already finished.
  2828. + # The if statement is so that we don't run fixproto a second time
  2829. + # if it has already been run on the files in `include'.
  2830. + stmp-fixproto: fixhdr.ready fixproto stmp-headers
  2831. +     @echo "Various warnings and error messages from fixproto are normal"
  2832. +     -if [ -d include ] ; then true; else mkdir include; fi
  2833. +     if [ -f include/fixed ] ; then true; \
  2834. +     else \
  2835. +       CPP="$(GCC_FOR_TARGET) -E"; export CPP; \
  2836. +         ${srcdir}/fixproto include include $(SYSTEM_HEADER_DIR); \
  2837. +       touch include/fixed; \
  2838. +     fi
  2839. +     touch stmp-fixproto
  2840. + 
  2841. + # Remake the info files.
  2842. + 
  2843. + doc: info
  2844. + info: $(srcdir)/cpp.info $(srcdir)/gcc.info
  2845. + 
  2846. + $(srcdir)/cpp.info: cpp.texi
  2847. +     cd $(srcdir); $(MAKEINFO) cpp.texi
  2848. + 
  2849. + #$(srcdir)/gplus.info: gplus.texi
  2850. + #    $(MAKEINFO) `echo $(srcdir)/gplus.texi | sed 's,^\./,,'`
  2851. + 
  2852. + $(srcdir)/gcc.info: gcc.texi extend.texi install.texi invoke.texi \
  2853. +         md.texi rtl.texi tm.texi 
  2854. +     cd $(srcdir); $(MAKEINFO) gcc.texi
  2855. + 
  2856. + dvi: $(srcdir)/gcc.dvi $(srcdir)/cpp.dvi
  2857. + 
  2858. + # This works with GNU Make's default rule.
  2859. + $(srcdir)/gcc.dvi: gcc.texi extend.texi install.texi invoke.texi \
  2860. +         md.texi rtl.texi tm.texi 
  2861. +     $(TEXI2DVI) $<
  2862. + 
  2863. + # This works with GNU Make's default rule.
  2864. + $(srcdir)/cpp.dvi: cpp.texi
  2865. +     $(TEXI2DVI) $<
  2866. + 
  2867. + $(srcdir)/INSTALL: install1.texi install.texi
  2868. +     $(MAKEINFO) -D INSTALLONLY --no-header --no-split \
  2869. +       `echo $(srcdir)/install1.texi | sed 's,^\./,,'`
  2870. + 
  2871. + # Deletion of files made during compilation.
  2872. + # There are four levels of this:
  2873. + #   `mostlyclean', `clean', `distclean' and `realclean'.
  2874. + # `mostlyclean' is useful while working on a particular type of machine.
  2875. + # It deletes most, but not all, of the files made by compilation.
  2876. + # It does not delete libgcc.a or its parts, so it won't have to be recompiled.
  2877. + # `clean' deletes everything made by running `make all'.
  2878. + # `distclean' also deletes the files made by config.
  2879. + # `realclean' also deletes everything that could be regenerated automatically.
  2880. + 
  2881. + 
  2882. + mostlyclean: bytecode.mostlyclean
  2883. +     -rm -f $(STAGESTUFF)
  2884. + # Clean the objc subdir if we created one.
  2885. +     if [ -d objc ]; then \
  2886. +       srcdir1=`cd $(srcdir); pwd`; \
  2887. +       cd objc; $(MAKE) -f $$srcdir1/objc/Makefile mostlyclean; \
  2888. +     else true; fi
  2889. +     -rm -f libobjc.a
  2890. + # Delete the temporary source copies for cross compilation.
  2891. +     -rm -f $(HOST_PREFIX_1)rtl.c $(HOST_PREFIX_1)rtlanal.c
  2892. +     -rm -f $(HOST_PREFIX_1)alloca.c $(HOST_PREFIX_1)malloc.c
  2893. +     -rm -f $(HOST_PREFIX_1)obstack.c 
  2894. + # Delete the temp files made in the course of building libgcc.a.
  2895. +     -rm -f tmplibgcc* tmpcopy xlimits.h
  2896. +     for name in $(LIB1FUNCS); do rm -f $${name}.c; done
  2897. + # Delete other temporary files.
  2898. +     -rm -f tmp-float.h tmp-gcc.xtar.gz
  2899. +     -rm -f tmp-foo1 tmp-foo2 tmp-proto.* tmp-unproto.1 tmp-SYSCALLS.s
  2900. + # Delete the stamp files.
  2901. +     -rm -f stamp-* tmp-*
  2902. + # Delete debugging dump files.
  2903. +     -rm -f *.greg *.lreg *.combine *.flow *.cse *.jump *.rtl *.tree *.loop
  2904. +     -rm -f *.dbr *.jump2 *.sched *.cse2 *.sched2 *.stack
  2905. + # Delete some files made during installation.
  2906. +     -rm -f specs gfloat.h float.h-* enquire SYSCALLS.c.X SYSCALLS.c
  2907. +     -rm -f collect collect2 ld mips-tfile mips-tdump alloca.s
  2908. + # Delete files generated for fixproto
  2909. +     -rm -rf fix-header xsys-protos.h deduced.h tmp-deduced.h \
  2910. +       gen-protos fixproto.list fixtmp.* fixhdr.ready
  2911. + # Delete unwanted output files from TeX.
  2912. +     -rm -f *.toc *.log *.vr *.fn *.cp *.tp *.ky *.pg
  2913. + # Delete sorted indices we don't actually use.
  2914. +     -rm -f gcc.vrs gcc.kys gcc.tps gcc.pgs gcc.fns
  2915. + # Delete core dumps.
  2916. +     -rm -f core config/core
  2917. + 
  2918. + # Delete all files made by compilation
  2919. + # that don't exist in the distribution.
  2920. + clean: mostlyclean bytecode.clean
  2921. + # It may not be quite desirable to delete unprotoize.c here,
  2922. + # but the spec for `make clean' requires it.
  2923. + # Using unprotoize.c is not quite right in the first place, 
  2924. + # but what better way is there?
  2925. +     -rm -f libgcc.a libgcc1.a libgcc2.a libgcc2.ready libgcc1.null
  2926. +     -rm -f *.dvi
  2927. +     -if [ -f md.pre-cpp ]; then \
  2928. +       rm -f md ; \
  2929. +     fi
  2930. + # Delete the include directory.
  2931. +     -rm -rf stmp-* fixinc.ready include objc-headers
  2932. + 
  2933. + # Delete all files that users would normally create
  2934. + # while building and installing GCC.
  2935. + distclean: clean bytecode.distclean
  2936. +     -rm -f tm.h aux-output.c config.h config.status tconfig.h hconfig.h
  2937. +     -rm -f md md.pre-cpp
  2938. +     -rm -f Makefile *.oaux
  2939. +     -rm -fr stage1 stage2 stage3 stage4
  2940. +     -rm -f cp-parse.output
  2941. +     -rm -f objc-parse.output
  2942. +     -rm -f c-parse.output
  2943. + 
  2944. + # Delete anything likely to be found in the source directory
  2945. + # that shouldn't be in the distribution.
  2946. + extraclean: distclean
  2947. +     -rm -rf =* ./"#"* *~* config/=* config/"#"* config/*~*
  2948. +     -rm -f patch* *.orig *.rej config/patch* config/*.orig config/*.rej
  2949. +     -rm -f config/*/=* config/*/"#"* config/*/*~*
  2950. +     -rm -f config/*/*.orig config/*/*.rej
  2951. +     -rm -f objc/=* objc/"#"* objc/*~*
  2952. +     -rm -f objc/*.orig objc/*.rej
  2953. +     -rm -f *.dvi *.oaux *.d *.[zZ] *.gz
  2954. +     -rm -f *.tar *.xtar *diff *.diff.* *.tar.* *.xtar.* *diffs
  2955. +     -rm -f *lose config/*lose config/*/*lose
  2956. +     -rm -f *.s *.s[0-9] *.i install1.texi config/ChangeLog
  2957. +     -rm -f djefoo
  2958. + 
  2959. + # Get rid of every file that's generated from some other file.
  2960. + # Most of these files ARE PRESENT in the GCC distribution.
  2961. + realclean: distclean bytecode.realclean
  2962. +     -rm -f c-parse.y objc-parse.y
  2963. +     -rm -f cp-parse.c cp-parse.h cp-parse.output
  2964. +     -rm -f objc-parse.c objc-parse.output
  2965. +     -rm -f c-parse.c c-parse.h c-parse.output
  2966. +     -rm -f cexp.c cexp.output TAGS 
  2967. +     -rm -f cpp.info* cpp.??s cpp.*aux
  2968. +     -rm -f gcc.info* gcc.??s gcc.*aux
  2969. +     -rm -f gplus.info* gplus.??s gplus.*aux
  2970. + 
  2971. + # Entry points `install' and `uninstall'.
  2972. + # Also use `install-collect2' to install collect2 when the config files don't.
  2973. + 
  2974. + # The semicolon is to prevent the install.sh -> install default rule
  2975. + # from doing anything.  Having it run true helps avoid problems and
  2976. + # noise from versions of make which don't like to have null commands.
  2977. + install: $(INSTALL_TARGET) ; @true
  2978. + 
  2979. + # Copy the compiler files into directories where they will be run.
  2980. + install-normal: install-common $(INSTALL_HEADERS) $(INSTALL_LIBGCC) \
  2981. +     install-man install-info
  2982. + 
  2983. + # Do nothing while making gcc with a cross-compiler. The person who
  2984. + # makes gcc for the target machine has to know how to put a complete
  2985. + # gcc together by hand.
  2986. + install-build: force
  2987. +     @echo You have to install gcc on your target machine by hand.
  2988. + 
  2989. + # Run this on the target machine
  2990. + # to finish installation of cross compiler.
  2991. + install-cross-rest: install-float-h-cross
  2992. + 
  2993. + # Install float.h for cross compiler.
  2994. + # Run this on the target machine!
  2995. + install-float-h-cross: install-dir
  2996. + #    if [ -f enquire ] ; then true; else false; fi
  2997. + # Note: don't use -.  We should fail right away if enquire was not made.
  2998. +     ./enquire -f > $(tmpdir)/float.h
  2999. +     -rm -f $(libsubdir)/include/float.h
  3000. +     $(INSTALL_DATA) $(tmpdir)/float.h $(libsubdir)/include/float.h
  3001. +     -rm -f $(tmpdir)/float.h
  3002. +     chmod a-x $(libsubdir)/include/float.h
  3003. + 
  3004. + # Create the installation directory.
  3005. + install-dir:
  3006. +     -if [ -d $(libdir) ] ; then true ; else mkdir $(libdir) ; fi
  3007. +     -if [ -d $(libdir)/gcc-lib ] ; then true ; else mkdir $(libdir)/gcc-lib ; fi
  3008. + # This dir isn't currently searched by cpp.
  3009. + #    -if [ -d $(libdir)/gcc-lib/include ] ; then true ; else mkdir $(libdir)/gcc-lib/include ; fi
  3010. +     -if [ -d $(libdir)/gcc-lib/$(target) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target) ; fi
  3011. +     -if [ -d $(libdir)/gcc-lib/$(target)/$(version) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version) ; fi
  3012. +     -if [ -d $(libdir)/gcc-lib/$(target)/$(version)/include ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version)/include ; fi
  3013. +     -if [ -d $(bindir) ] ; then true ; else mkdir $(bindir) ; fi
  3014. +     -if [ -d $(includedir) ] ; then true ; else mkdir $(includedir) ; fi
  3015. +     -if [ -d $(tooldir) ] ; then true ; else mkdir $(tooldir) ; fi
  3016. +     -if [ -d $(assertdir) ] ; then true ; else mkdir $(assertdir) ; fi
  3017. +     -if [ -d $(infodir) ] ; then true ; else mkdir $(infodir) ; fi
  3018. + # We don't use mkdir -p to create the parents of mandir,
  3019. + # because some systems don't support it.
  3020. + # Instead, we use this technique to create the immediate parent of mandir.
  3021. +     -parent=`echo $(mandir)|sed -e 's@/[^/]*$$@@'`; \
  3022. +     if [ -d $$parent ] ; then true ; else mkdir $$parent ; fi
  3023. +     -if [ -d $(mandir) ] ; then true ; else mkdir $(mandir) ; fi
  3024. + 
  3025. + # Install the compiler executables built during cross compilation.
  3026. + install-common: native install-dir xgcc $(EXTRA_PARTS)
  3027. +     for file in $(COMPILERS); do \
  3028. +       if [ -f $$file ] ; then \
  3029. +         rm -f $(libsubdir)/$$file; \
  3030. +         $(INSTALL_PROGRAM) $$file $(libsubdir)/$$file; \
  3031. +       else true; \
  3032. +       fi; \
  3033. +     done
  3034. +     for file in $(EXTRA_PASSES) $(EXTRA_PARTS) $(EXTRA_PROGRAMS) $(USE_COLLECT2) ..; do \
  3035. +       if [ x"$$file" != x.. ]; then \
  3036. +         rm -f $(libsubdir)/$$file; \
  3037. +         $(INSTALL_PROGRAM) $$file $(libsubdir)/$$file; \
  3038. +       else true; fi; \
  3039. +     done
  3040. + # Don't mess with specs if it doesn't exist yet.
  3041. +     -if [ -f specs ] ; then \
  3042. +       rm -f $(libsubdir)/specs; \
  3043. +       $(INSTALL_DATA) specs $(libsubdir)/specs; \
  3044. +     fi
  3045. + # Install the driver program as $(target)-gcc
  3046. + # and also as either gcc (if native) or $(tooldir)/bin/gcc.
  3047. +     -if [ -f gcc-cross ] ; then \
  3048. +       rm -f $(bindir)/$(target)-gcc; \
  3049. +       $(INSTALL_PROGRAM) gcc-cross $(bindir)/$(target)-gcc; \
  3050. +       if [ -d $(tooldir)/bin/. ] ; then \
  3051. +         rm -f $(tooldir)/bin/gcc; \
  3052. +         $(INSTALL_PROGRAM) gcc-cross $(tooldir)/bin/gcc; \
  3053. +       else true; fi; \
  3054. +       if [ -f cc1plus ] ; then \
  3055. +         rm -f $(bindir)/$(target)-g++; \
  3056. +         $(INSTALL_PROGRAM) g++-cross $(bindir)/$(target)-g++; \
  3057. +         chmod a+x $(bindir)/$(target)-g++; \
  3058. +         rm -f $(bindir)/$(target)-c++; \
  3059. +         ln $(bindir)/$(target)-g++ $(bindir)/$(target)-c++; \
  3060. +       fi ; \
  3061. +     else \
  3062. +       rm -f $(bindir)/gcc; \
  3063. +       $(INSTALL_PROGRAM) xgcc $(bindir)/gcc; \
  3064. +       rm -f $(bindir)/$(target)-gcc-1; \
  3065. +       ln $(bindir)/gcc $(bindir)/$(target)-gcc-1; \
  3066. +       mv $(bindir)/$(target)-gcc-1 $(bindir)/$(target)-gcc; \
  3067. +       if [ -f gnat1 ] ; then \
  3068. +         rm -f $(bindir)/gnatbind; \
  3069. +         $(INSTALL_PROGRAM) gnatbind $(bindir)/gnatbind; \
  3070. +         chmod a+x $(bindir)/gnatbind; \
  3071. +         rm -f $(bindir)/gnatsplit; \
  3072. +         $(INSTALL_PROGRAM) gnatsplit $(bindir)/gnatsplit; \
  3073. +         chmod a+x $(bindir)/gnatsplit; \
  3074. +         rm -f $(bindir)/gnatchop; \
  3075. +         $(INSTALL_PROGRAM) gnatchop $(bindir)/gnatchop; \
  3076. +         chmod a+x $(bindir)/gnatchop; \
  3077. +         rm -f $(bindir)/gnatbl; \
  3078. +         $(INSTALL_PROGRAM) gnatbl $(bindir)/gnatbl; \
  3079. +         chmod a+x $(bindir)/gnatbl; \
  3080. +         rm -f $(bindir)/gnatf; \
  3081. +         $(INSTALL_PROGRAM) gnatf $(bindir)/gnatf; \
  3082. +         chmod a+x $(bindir)/gnatf; \
  3083. +             rm -f $(bindir)/gkrunch; \
  3084. +             $(INSTALL_PROGRAM) gkrunch $(bindir)/gkrunch; \
  3085. +             chmod a+x $(bindir)/gkrunch; \
  3086. +             $(MAKE) install-gnatlib; \
  3087. +       fi; \
  3088. +       if [ -f cc1plus ] ; then \
  3089. +         rm -f $(bindir)/g++; \
  3090. +         $(INSTALL_PROGRAM) g++ $(bindir)/g++; \
  3091. +         chmod a+x $(bindir)/g++; \
  3092. +         rm -f $(bindir)/c++; \
  3093. +         ln $(bindir)/g++ $(bindir)/c++; \
  3094. +       fi ; \
  3095. +     fi
  3096. + # Install protoize if it was compiled.
  3097. +     -if [ -f protoize ]; \
  3098. +     then \
  3099. +         rm -f $(bindir)/protoize; \
  3100. +         $(INSTALL_PROGRAM) protoize $(bindir)/protoize; \
  3101. +         rm -f $(bindir)/unprotoize; \
  3102. +         $(INSTALL_PROGRAM) unprotoize $(bindir)/unprotoize; \
  3103. +         rm -f $(libsubdir)/SYSCALLS.c.X; \
  3104. +         $(INSTALL_DATA) SYSCALLS.c.X $(libsubdir)/SYSCALLS.c.X; \
  3105. +         chmod a-x $(libsubdir)/SYSCALLS.c.X; \
  3106. +     fi
  3107. +     -rm -f $(libsubdir)/cpp
  3108. +     $(INSTALL_PROGRAM) cpp $(libsubdir)/cpp
  3109. + 
  3110. + install-gnatlib:
  3111. +     rm -rf tmp-adainclude stamp-pthreads
  3112. +     $(MAKE) tmp-adainclude
  3113. +     $(MAKE) stamp-pthreads
  3114. +     rm -rf $(ADA_RTL_OBJ_DIR)
  3115. +     mkdir $(ADA_RTL_OBJ_DIR)
  3116. +     mv tmp-adainclude/*.o tmp-adainclude/*.ali tmp-adainclude/*.a \
  3117. +           threads/lib/libpthreads.a $(ADA_RTL_OBJ_DIR)
  3118. +     rm -rf $(ADA_INCLUDE_DIR)
  3119. +     mkdir $(ADA_INCLUDE_DIR)
  3120. +     mv tmp-adainclude/*.ad[bs] $(ADA_INCLUDE_DIR)
  3121. +     if $(RANLIB_TEST) ; then $(RANLIB) $(ADA_RTL_OBJ_DIR)/*.a; \
  3122. +           else true; fi
  3123. + 
  3124. + tmp-adainclude:
  3125. +     rm -rf tmp-adainclude-tmp
  3126. +     mkdir tmp-adainclude-tmp
  3127. +     for file in $(ADA_INCLUDE_SRCS) $(LIBGNAT_SRCS); do \
  3128. +           cp $$file tmp-adainclude-tmp/$$file; \
  3129. +         done
  3130. +     (cd tmp-adainclude-tmp; $(MAKE) CC="../xgcc -B../" CFLAGS="-g -O2" \
  3131. +           -f ../Makefile ada-runtime)
  3132. +     mv tmp-adainclude-tmp tmp-adainclude
  3133. + 
  3134. + # Install the info files.
  3135. + install-info: doc install-dir
  3136. +     -rm -f $(infodir)/cpp.info* $(infodir)/gcc.info*
  3137. +     cd $(srcdir); for f in cpp.info* gcc.info*; \
  3138. +     do $(INSTALL_DATA) $$f $(infodir)/$$f; done
  3139. +     -chmod a-x $(infodir)/cpp.info* $(infodir)/gcc.info*
  3140. + 
  3141. + # Install the man pages.
  3142. + install-man: install-dir $(srcdir)/gcc.1 $(srcdir)/cccp.1 $(srcdir)/g++.1
  3143. +     -rm -f $(mandir)/gcc$(manext)
  3144. +     -$(INSTALL_DATA) $(srcdir)/gcc.1 $(mandir)/gcc$(manext)
  3145. +     -chmod a-x $(mandir)/gcc$(manext)
  3146. +     -rm -f $(mandir)/cccp$(manext)
  3147. +     -$(INSTALL_DATA) $(srcdir)/cccp.1 $(mandir)/cccp$(manext)
  3148. +     -chmod a-x $(mandir)/cccp$(manext)
  3149. +     -$(INSTALL_DATA) $(srcdir)/g++.1 $(mandir)/g++$(manext)
  3150. +     -chmod a-x $(mandir)/g++$(manext)
  3151. + 
  3152. + # Install the library.
  3153. + install-libgcc: libgcc.a install-dir
  3154. +     -if [ -f libgcc.a ] ; then \
  3155. +       rm -f $(libsubdir)/libgcc.a; \
  3156. +       $(INSTALL_DATA) libgcc.a $(libsubdir)/libgcc.a; \
  3157. +       if $(RANLIB_TEST) ; then \
  3158. +         (cd $(libsubdir); $(RANLIB) libgcc.a); else true; fi; \
  3159. +       chmod a-x $(libsubdir)/libgcc.a; \
  3160. +     else true; fi
  3161. + 
  3162. + # Install the objc run time library.
  3163. + install-libobjc: libobjc.a install-dir
  3164. +     -if [ -f libobjc.a ] ; then \
  3165. +       rm -f $(libsubdir)/libobjc.a; \
  3166. +       $(INSTALL_DATA) libobjc.a $(libsubdir)/libobjc.a; \
  3167. +       if $(RANLIB_TEST) ; then \
  3168. +         (cd $(libsubdir); $(RANLIB) libobjc.a); else true; fi; \
  3169. +       chmod a-x $(libsubdir)/libobjc.a; \
  3170. +     else true; fi
  3171. + 
  3172. + # Install all the header files built in the include subdirectory.
  3173. + install-headers: install-include-dir $(INSTALL_HEADERS_DIR) install-assert-h
  3174. + # Fix symlinks to absolute paths in the installed include directory to
  3175. + # point to the installed directory, not the build directory.
  3176. +     -files=`cd $(libsubdir)/include; find . -type l -print 2>/dev/null`; \
  3177. +     if [ $$? -eq 0 ]; then \
  3178. +       dir=`cd include; pwd`; \
  3179. +       for i in $$files; do \
  3180. +         dest=`ls -ld $(libsubdir)/include/$$i | sed -n 's/.*-> //p'`; \
  3181. +         if expr "$$dest" : "$$dir.*" > /dev/null; then \
  3182. +           rm -f $(libsubdir)/include/$$i; \
  3183. +           ln -s `echo $$i | sed "s|/[^/]*|/..|g" | sed 's|/..$$||'``echo "$$dest" | sed "s|$$dir||"` $(libsubdir)/include/$$i; \
  3184. +         fi; \
  3185. +       done; \
  3186. +     fi
  3187. + 
  3188. + # Create or recreate the gcc private include file directory.
  3189. + install-include-dir: install-dir
  3190. +     -rm -rf $(libsubdir)/include
  3191. +     mkdir $(libsubdir)/include
  3192. +     -chmod a+rx $(libsubdir)/include
  3193. + 
  3194. + # Install the include directory using tar.
  3195. + install-headers-tar: stmp-headers $(STMP_FIXPROTO) install-include-dir
  3196. +     cd include; \
  3197. +      (tar cf - .; exit 0) | (cd $(libsubdir)/include; tar $(TAROUTOPTS) - )
  3198. + # /bin/sh on some systems returns the status of the first tar,
  3199. + # and that can lose with GNU tar which always writes a full block.
  3200. + # So use `exit 0' to ignore its exit status.
  3201. + 
  3202. + # Install the include directory using cpio.
  3203. + install-headers-cpio: stmp-headers $(STMP_FIXPROTO) install-include-dir
  3204. +     cd include; find . -print | cpio -pdum $(libsubdir)/include
  3205. + 
  3206. + # Put assert.h where it won't override GNU libc's assert.h.
  3207. + # It goes in a dir that is searched after GNU libc's headers;
  3208. + # thus, the following conditionals are no longer needed.
  3209. + # But it's not worth deleting them now.
  3210. + ## Don't replace the assert.h already there if it is not from GCC.
  3211. + ## This code would be simpler if it tested for -f ... && ! grep ...
  3212. + ## but supposedly the ! operator is missing in sh on some systems.
  3213. + install-assert-h: assert.h install-dir
  3214. +     if [ -f $(assertdir)/assert.h ]; \
  3215. +     then \
  3216. +       if grep "__eprintf" $(assertdir)/assert.h >/dev/null; \
  3217. +         then \
  3218. +         rm -f $(assertdir)/assert.h; \
  3219. +         $(INSTALL_DATA) $(srcdir)/assert.h $(assertdir)/assert.h; \
  3220. +         chmod a-x $(assertdir)/assert.h; \
  3221. +       else true; \
  3222. +       fi; \
  3223. +     else \
  3224. +       rm -f $(assertdir)/assert.h; \
  3225. +       $(INSTALL_DATA) $(srcdir)/assert.h $(assertdir)/assert.h; \
  3226. +       chmod a-x $(assertdir)/assert.h; \
  3227. +     fi
  3228. + 
  3229. + # Use this target to install the program `collect2' under the name `ld'.
  3230. + install-collect2: collect2 install-dir
  3231. +     $(INSTALL_PROGRAM) collect2 $(libsubdir)/ld
  3232. + # Install the driver program as $(libsubdir)/gcc for collect2.
  3233. +     $(INSTALL_PROGRAM) xgcc $(libsubdir)/gcc
  3234. + 
  3235. + # Cancel installation by deleting the installed files.
  3236. + uninstall:
  3237. +     -rm -rf $(libsubdir)
  3238. +     -rm -rf $(bindir)/gcc
  3239. +     -rm -rf $(bindir)/protoize
  3240. +     -rm -rf $(bindir)/unprotoize
  3241. +     -rm -rf $(mandir)/gcc$(manext)
  3242. +     -rm -rf $(mandir)/g++$(manext)
  3243. +     -rm -rf $(mandir)/cccp$(manext)
  3244. +     -rm -rf $(mandir)/protoize$(manext)
  3245. +     -rm -rf $(mandir)/unprotoize$(manext)
  3246. + 
  3247. + # These exist for maintenance purposes.
  3248. + 
  3249. + # Update the tags table.
  3250. + TAGS: force
  3251. +     cd $(srcdir);                            \
  3252. +     mkdir temp;                            \
  3253. +     mv -f c-parse.[ch] cp-parse.[ch] objc-parse.c cexp.c =*.[chy] temp; \
  3254. +     etags *.y *.h *.c;                        \
  3255. +     mv temp/* .;                            \
  3256. +     rmdir temp
  3257. + 
  3258. + # Create the distribution tar file.
  3259. + #dist: gcc-$(version).tar.gz
  3260. + dist: gcc.xtar.gz
  3261. + 
  3262. + gcc.xtar.gz: gcc.xtar
  3263. +     gzip < gcc.xtar > tmp-gcc.xtar.gz
  3264. +     mv tmp-gcc.xtar.gz gcc.xtar.gz
  3265. + 
  3266. + #gcc-$(version).tar.gz: gcc-$(version).tar
  3267. + #    gzip < gcc-$(version).tar > gcc-$(version).tar.gz
  3268. + 
  3269. + #gcc-$(version).tar:
  3270. + gcc.xtar: distdir
  3271. + # Make the distribution.
  3272. +     tar chf gcc.xtar gcc-$(version)
  3273. + 
  3274. + distdir: doc $(srcdir)/INSTALL c-parse.y objc-parse.y cp-parse.y \
  3275. +   c-parse.c cp-parse.c objc-parse.c cexp.c
  3276. +     @if grep -s "for version ${mainversion}" gcc.texi > /dev/null; \
  3277. +     then true; \
  3278. +     else echo "You must update the version number in \`gcc.texi'"; sleep 10;\
  3279. +     fi
  3280. + # Update the version number in README
  3281. +     awk '$$1 " " $$2 " " $$3 == "This directory contains" \
  3282. +         { $$6 = version; print $$0 } \
  3283. +          $$1 " " $$2 " " $$3 != "This directory contains"' \
  3284. +       version=$(version) README > tmp.README
  3285. +     mv tmp.README README
  3286. +     -rm -rf gcc-$(version) tmp    
  3287. + # Put all the files in a temporary subdirectory
  3288. + # which has the name that we want to have in the tar file.
  3289. +     mkdir tmp
  3290. +     mkdir tmp/config
  3291. +     mkdir tmp/objc
  3292. +     for file in *[0-9a-zA-Z+]; do \
  3293. +       ln $$file tmp > /dev/null 2>&1 || cp $$file tmp; \
  3294. +     done
  3295. +     cd config; \
  3296. +     for file in *[0-9a-zA-Z+]; do \
  3297. +       if test -d $$file && test "$$file" != RCS; then \
  3298. +         mkdir ../tmp/config/$$file; \
  3299. +         cd $$file; \
  3300. +         for subfile in *[0-9a-zA-Z+]; do \
  3301. +           ln $$subfile ../../tmp/config/$$file >/dev/null 2>&1 \
  3302. +           || cp $$subfile ../../tmp/config/$$file; \
  3303. +         done; \
  3304. +         cd ..; \
  3305. +       else \
  3306. +         ln $$file ../tmp/config >/dev/null 2>&1 \
  3307. +         || cp $$file ../tmp/config; \
  3308. +       fi; \
  3309. +     done
  3310. +     cd objc; \
  3311. +     for file in *[0-9a-zA-Z+]; do \
  3312. +       ln $$file ../tmp/objc >/dev/null 2>&1 || cp $$file ../tmp/objc; \
  3313. +     done
  3314. +     ln .gdbinit tmp
  3315. +     mv tmp gcc-$(version)
  3316. + # Get rid of everything we don't want in the distribution.
  3317. +     cd gcc-$(version); make -f Makefile.in extraclean
  3318. + 
  3319. + # make diff oldversion=M.N 
  3320. + # creates a diff file between an older distribution and this one.
  3321. + # The -P option assumes this is GNU diff.
  3322. + diff:
  3323. +     diff -rc2P -x c-parse.y -x c-parse.c -x c-parse.h -x objc-parse.y \
  3324. +       -x cp-parse.c -x cp-parse.h -x cexp.c -x bi-parser.c \
  3325. +       -x objc-parse.c -x TAGS -x "gcc.??" -x "gcc.??s" -x gcc.aux \
  3326. +       -x "cpp.??s" -x "cpp.??" -x cpp.aux -x "cpp.info*" -x "gcc.info*" \
  3327. +       gcc-$(oldversion) gcc-$(version) > diffs
  3328. + 
  3329. + # do make -f ../gcc/Makefile maketest DIR=../gcc
  3330. + # in the intended test directory to make it a suitable test directory.
  3331. + # THIS IS OBSOLETE; use the -srcdir operand in configure instead. 
  3332. + maketest:
  3333. +     ln -s $(DIR)/*.[chy] .
  3334. +     ln -s $(DIR)/configure .
  3335. +     ln -s $(DIR)/*.def .
  3336. +     -rm -f =*
  3337. +     ln -s $(DIR)/.gdbinit .
  3338. +     ln -s $(DIR)/$(FIXINCLUDES) .
  3339. +     -ln -s $(DIR)/bison.simple .
  3340. +     ln -s $(DIR)/config .
  3341. +     ln -s $(DIR)/move-if-change .
  3342. + # The then and else were swapped to avoid a problem on Ultrix.
  3343. +     if [ ! -f Makefile ] ; then ln -s $(DIR)/Makefile .; else false; fi
  3344. +     -rm tm.h aux-output.c config.h md
  3345. +     make clean
  3346. + # You must then run config to set up for compilation.
  3347. + 
  3348. + bootstrap: force
  3349. + # Only build the C compiler for stage1, because that is the only one that
  3350. + # we can guarantee will build with the native compiler, and also it is the
  3351. + # only thing useful for building stage2.
  3352. +     $(MAKE) CC="$(CC)" libdir=$(libdir) LANGUAGES=c
  3353. +     $(MAKE) stage1
  3354. + # This used to define ALLOCA as empty, but that would lead to bad results
  3355. + # for a subsequent `make install' since that would not have ALLOCA empty.
  3356. + # To prevent `make install' from compiling alloca.o and then relinking cc1
  3357. + # because alloca.o is newer, we permit these recursive makes to compile
  3358. + # alloca.o.  Then cc1 is newer, so it won't have to be relinked.
  3359. +     $(MAKE) CC="stage1/xgcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  3360. +     $(MAKE) stage2
  3361. +     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  3362. + 
  3363. + bootstrap2: force
  3364. +     $(MAKE) CC="stage1/xgcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  3365. +     $(MAKE) stage2
  3366. +     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  3367. + 
  3368. + bootstrap3: force
  3369. +     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  3370. + 
  3371. + # Compare the object files in the current directory with those in the
  3372. + # stage2 directory.
  3373. + 
  3374. + # ./ avoids bug in some versions of tail.
  3375. + compare: force
  3376. +     for file in *.o; do \
  3377. +       tail +16c ./$$file > tmp-foo1; \
  3378. +       tail +16c stage2/$$file > tmp-foo2 2>/dev/null \
  3379. +         && (cmp tmp-foo1 tmp-foo2 || echo $$file differs); \
  3380. +     done
  3381. +     -rm -f tmp-foo*
  3382. + 
  3383. + # Similar, but compare with stage3 directory
  3384. + compare3: force
  3385. +     for file in *.o; do \
  3386. +       tail +16c $$file > tmp-foo1; \
  3387. +       tail +16c stage3/$$file > tmp-foo2 2>/dev/null \
  3388. +         && (cmp tmp-foo1 tmp-foo2 || echo $$file differs); \
  3389. +     done
  3390. +     -rm -f tmp-foo*
  3391. + 
  3392. + # Copy the object files from a particular stage into a subdirectory.
  3393. + stage1: force
  3394. +     -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  3395. +     -mv $(STAGESTUFF) stage1
  3396. +     -rm -f stage1/libgcc.a
  3397. +     -cp libgcc.a stage1
  3398. +     -if $(RANLIB_TEST) ; then $(RANLIB) stage1/libgcc.a; else true; fi
  3399. + 
  3400. + stage2: force
  3401. +     -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  3402. +     -mv $(STAGESTUFF) stage2
  3403. +     -rm -f stage2/libgcc.a
  3404. +     -cp libgcc.a stage2
  3405. +     -if $(RANLIB_TEST) ; then $(RANLIB) stage2/libgcc.a; else true; fi
  3406. + 
  3407. + stage3: force
  3408. +     -if [ -d stage3 ] ; then true ; else mkdir stage3 ; fi
  3409. +     -mv $(STAGESTUFF) stage3
  3410. +     -rm -f stage3/libgcc.a
  3411. +     -cp libgcc.a stage3
  3412. +     -if $(RANLIB_TEST) ; then $(RANLIB) stage3/libgcc.a; else true; fi
  3413. + 
  3414. + stage4: force
  3415. +     -if [ -d stage4 ] ; then true ; else mkdir stage4 ; fi
  3416. +     -mv $(STAGESTUFF) stage4
  3417. +     -rm -f stage4/libgcc.a
  3418. +     -cp libgcc.a stage4
  3419. +     -if $(RANLIB_TEST) ; then $(RANLIB) stage4/libgcc.a; else true; fi
  3420. + 
  3421. + # gnat bootstrapping targets - use the same stage directories
  3422. + gnatboot: force
  3423. +     $(MAKE) gnat1 CC="$(CC)" CFLAGS="$(CFLAGS)" ADA_CC="$(ADA_CC)" ADAFLAGS="$(ADAFLAGS)"
  3424. +     $(MAKE) gnatbind CC="$(CC)" CFLAGS="$(CFLAGS)" ADA_CC="$(ADA_CC)" ADAFLAGS="$(ADAFLAGS)"
  3425. +     $(MAKE) gnatstage1
  3426. +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnat1
  3427. +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnatbind
  3428. +     $(MAKE) gnatstage2
  3429. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  3430. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  3431. + 
  3432. + gnatboot2: force
  3433. +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnat1
  3434. +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnatbind
  3435. +     $(MAKE) gnatstage2
  3436. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  3437. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  3438. + 
  3439. + gnatboot3: force
  3440. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  3441. +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  3442. + 
  3443. + gnatcompare: force
  3444. +     for file in $(GNAT1_ADA_OBJS); do \
  3445. +       tail +16c $$file > tmp-foo1; \
  3446. +       tail +16c stage2/$$file > tmp-foo2 2>/dev/null \
  3447. +         && (cmp tmp-foo1 tmp-foo2 || echo $$file differs); \
  3448. +     done
  3449. +     -rm -f tmp-foo*
  3450. + 
  3451. + gnatstage1: force
  3452. +     -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  3453. +     -mv -f *.ali stage1
  3454. +     -mv -f $(GNAT1_ADA_OBJS) $(GNATBIND_OBJS) $(GNATF_OBJS) $(GKRUNCH_OBJS) gnat1 gnatbind stage1
  3455. + 
  3456. + gnatstage2: force
  3457. +     -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  3458. +     -mv -f *.ali stage2
  3459. +     -mv -f $(GNAT1_ADA_OBJS) $(GNATBIND_OBJS) $(GNATF_OBJS) $(GKRUNCH_OBJS) gnat1 gnatbind stage2
  3460. + 
  3461. + gnatclean: force
  3462. +     rm -f $(GNAT1_OBJS) $(GNATF_OBJS) $(GNATBIND_OBJS) $(GKRUNCH_OBJS) \
  3463. +           $(GNAT_RTL_OBJS) *.ali gnat1 gnatbind
  3464. + 
  3465. + # Copy just the executable files from a particular stage into a subdirectory,
  3466. + # and delete the object files.  Use this if you're just verifying a version
  3467. + # that is pretty sure to work, and you are short of disk space.
  3468. + risky-stage1: force
  3469. +     -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  3470. +     -mv $(GCC_PARTS) stage1
  3471. +     -rm -f stage1/libgcc.a
  3472. +     -cp libgcc.a stage1 && $(RANLIB) stage1/libgcc.a
  3473. +     -make clean
  3474. + 
  3475. + risky-stage2: force
  3476. +     -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  3477. +     -mv $(GCC_PARTS) stage2
  3478. +     -rm -f stage2/libgcc.a
  3479. +     -cp libgcc.a stage2 && $(RANLIB) stage2/libgcc.a
  3480. +     -make clean
  3481. + 
  3482. + risky-stage3: force
  3483. +     -if [ -d stage3 ] ; then true ; else mkdir stage3 ; fi
  3484. +     -mv $(GCC_PARTS) stage3
  3485. +     -rm -f stage3/libgcc.a
  3486. +     -cp libgcc.a stage3 && $(RANLIB) stage3/libgcc.a
  3487. +     -make clean
  3488. + 
  3489. + risky-stage4: force
  3490. +     -if [ -d stage4 ] ; then true ; else mkdir stage4 ; fi
  3491. +     -mv $(GCC_PARTS) stage4
  3492. +     -rm -f stage4/libgcc.a
  3493. +     -cp libgcc.a stage4 && $(RANLIB) stage4/libgcc.a
  3494. +     -make clean
  3495. + 
  3496. + #In GNU Make, ignore whether `stage*' exists.
  3497. + .PHONY: stage1 stage2 stage3 stage4 clean realclean TAGS bootstrap
  3498. + .PHONY: risky-stage1 risky-stage2 risky-stage3 risky-stage4
  3499. + 
  3500. + force:
  3501. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/atree.adb.changes gnat-1.80/amiga/corrections/atree.adb.changes
  3502. *** /src/baseline/gnat-1.80/amiga/corrections/atree.adb.changes    Thu Jan  1 00:00:00 1970
  3503. --- gnat-1.80/amiga/corrections/atree.adb.changes    Thu Jun 23 13:13:08 1994
  3504. ***************
  3505. *** 0 ****
  3506. --- 1,9 ----
  3507. +       function Flag65 (N : Node_Id) return Boolean is
  3508. +       begin
  3509. + --         pragma Assert (Nkind (N) in N_Entity);
  3510. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag65;
  3511. +          pragma Assert (Nkind (N) in N_Entity);
  3512. +          return  To_Flag_Byte_Ptr
  3513. +            (Node_Kind_Ptr'
  3514. +              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65;
  3515. +       end Flag65;
  3516. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/m68k.md gnat-1.80/amiga/corrections/m68k.md
  3517. *** /src/baseline/gnat-1.80/amiga/corrections/m68k.md    Thu Jan  1 00:00:00 1970
  3518. --- gnat-1.80/amiga/corrections/m68k.md    Thu Jun 23 13:13:10 1994
  3519. ***************
  3520. *** 0 ****
  3521. --- 1,5690 ----
  3522. + ;;- Machine description for GNU compiler
  3523. + ;;- Motorola 68000 Version
  3524. + ;;   Copyright (C) 1987, 1988, 1993 Free Software Foundation, Inc.
  3525. + 
  3526. + ;; This file is part of GNU CC.
  3527. + 
  3528. + ;; GNU CC is free software; you can redistribute it and/or modify
  3529. + ;; it under the terms of the GNU General Public License as published by
  3530. + ;; the Free Software Foundation; either version 2, or (at your option)
  3531. + ;; any later version.
  3532. + 
  3533. + ;; GNU CC is distributed in the hope that it will be useful,
  3534. + ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  3535. + ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3536. + ;; GNU General Public License for more details.
  3537. + 
  3538. + ;; You should have received a copy of the GNU General Public License
  3539. + ;; along with GNU CC; see the file COPYING.  If not, write to
  3540. + ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  3541. + 
  3542. + 
  3543. + ;;- instruction definitions
  3544. + 
  3545. + ;;- @@The original PO technology requires these to be ordered by speed,
  3546. + ;;- @@    so that assigner will pick the fastest.
  3547. + 
  3548. + ;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
  3549. + 
  3550. + ;;- When naming insn's (operand 0 of define_insn) be careful about using
  3551. + ;;- names from other targets machine descriptions.
  3552. + 
  3553. + ;;- cpp macro #define NOTICE_UPDATE_CC in file tm.h handles condition code
  3554. + ;;- updates for most instructions.
  3555. + 
  3556. + ;;- Operand classes for the register allocator:
  3557. + ;;- 'a' one of the address registers can be used.
  3558. + ;;- 'd' one of the data registers can be used.
  3559. + ;;- 'f' one of the m68881 registers can be used
  3560. + ;;- 'r' either a data or an address register can be used.
  3561. + ;;- 'x' if one of the Sun FPA registers                    
  3562. + ;;- 'y' if one of the Low Sun FPA registers (fpa0-fpa15).
  3563. + 
  3564. + ;;- Immediate Floating point operator constraints
  3565. + ;;- 'G' a floating point constant that is *NOT* one of the standard
  3566. + ;;   68881 constant values (to force calling output_move_const_double
  3567. + ;;   to get it from rom if it is a 68881 constant).
  3568. + ;;- 'H' one of the standard FPA constant values
  3569. + ;;
  3570. + ;;   See the functions standard_XXX_constant_p in output-m68k.c for more
  3571. + ;; info.
  3572. + 
  3573. + ;;- Immediate integer operand constraints:
  3574. + ;;- 'I'  1 .. 8
  3575. + ;;- 'J'  -32768 .. 32767
  3576. + ;;- 'K'  all integers EXCEPT -128 .. 127
  3577. + ;;- 'L'  -8 .. -1
  3578. + 
  3579. + ;;- Assembler specs:
  3580. + ;;- "%."    size separator ("." or "")            move%.l d0,d1
  3581. + ;;- "%#"    immediate separator ("#" or "")        move%.l %#0,d0
  3582. + ;;- "%-"    push operand "sp@-"                move%.l d0,%-
  3583. + ;;- "%+"    pop operand "sp@+"                move%.l d0,%+
  3584. + ;;- "%@"    top of stack "sp@"                move%.l d0,%@
  3585. + ;;- "%!"    fpcr register
  3586. + ;;- "%$"    single-precision fp specifier ("s" or "")    f%$add.x fp0,fp1
  3587. + ;;- "%&"    double-precision fp specifier ("d" or "")    f%&add.x fp0,fp1
  3588. + 
  3589. + ;;- Information about 68040 port.
  3590. + 
  3591. + ;;- The 68040 executes all 68030 and 68881/2 instructions, but some must
  3592. + ;;- be emulated in software by the OS.  It is faster to avoid these
  3593. + ;;- instructions and issue a library call rather than trapping into
  3594. + ;;- the kernel.  The affected instructions are fintrz and fscale.  The
  3595. + ;;- TARGET_68040 flag turns the use of the opcodes off.
  3596. + 
  3597. + ;;- The '040 also implements a set of new floating-point instructions
  3598. + ;;- which specify the rounding precision in the opcode.  This finally
  3599. + ;;- permit the 68k series to be truly IEEE compliant, and solves all
  3600. + ;;- issues of excess precision accumulating in the extended registers.
  3601. + ;;- By default, GCC does not use these instructions, since such code will
  3602. + ;;- not run on an '030.  To use these instructions, use the -m68040-only
  3603. + ;;- switch.  By changing TARGET_DEFAULT to include TARGET_68040_ONLY,
  3604. + ;;- you can make these instructions the default.
  3605. + 
  3606. + ;;- These new instructions aren't directly in the md.  They are brought
  3607. + ;;- into play by defining "%$" and "%&" to expand to "s" and "d" rather
  3608. + ;;- than "".
  3609. + 
  3610. + 
  3611. + ;;-         FPA port explanation:
  3612. + 
  3613. + ;;-        Usage of the Sun FPA and the 68881 together
  3614. + 
  3615. + ;;- The current port of gcc to the sun fpa disallows use of the m68881
  3616. + ;;- instructions completely if code is targeted for the fpa.  This is
  3617. + ;;- for the following reasons:
  3618. + 
  3619. + ;;- 1) Expressing the preference hierarchy (ie. use the fpa if you
  3620. + ;;- can, the 68881 otherwise, and data registers only if you are
  3621. + ;;- forced to it) is a bitch with the current constraint scheme,
  3622. + ;;- especially since it would have to work for any combination of
  3623. + ;;- -mfpa, -m68881.
  3624. + 
  3625. + ;;- 2) There are no instructions to move between the two types of
  3626. + ;;- registers; the stack must be used as an intermediary.
  3627. + 
  3628. + ;;- It could indeed be done; I think the best way would be to have
  3629. + ;;- separate patterns for TARGET_FPA (which implies a 68881),
  3630. + ;;- TARGET_68881, and no floating point co-processor.  Use
  3631. + ;;- define_expands for all of the named instruction patterns, and
  3632. + ;;- include code in the FPA instruction to deal with the 68881 with
  3633. + ;;- preferences specifically set to favor the fpa.  Some of this has
  3634. + ;;- already been done:
  3635. + ;;-
  3636. + ;;-     1) Separation of most of the patterns out into a TARGET_FPA
  3637. + ;;- case and a TARGET_68881 case (the exceptions are the patterns
  3638. + ;;- which would need one define_expand and three define_insn's under
  3639. + ;;- it (with a lot of duplicate code between them) to replace the
  3640. + ;;- current single define_insn.  These are mov{[ds]f,[ds]i} and the
  3641. + ;;- first two patterns in the md.
  3642. + ;;-
  3643. + ;;- Some would still have to be done:
  3644. + ;;-
  3645. + ;;-    1) Add code to the fpa patterns which correspond to 68881
  3646. + ;;- patterns to deal with the 68881 case (including preferences!).
  3647. + ;;- What you might actually do here is combine the fpa and 68881 code
  3648. + ;;- back together into one pattern for those instructions where it's
  3649. + ;;- absolutely necessary and save yourself some duplicate code.  I'm
  3650. + ;;- not completely sure as to whether you could get away with doing
  3651. + ;;- this only for the mov* insns, or if you'd have to do it for all
  3652. + ;;- named insns.
  3653. + ;;-     2) Add code to the mov{[ds]f,[ds]i} instructions to handle
  3654. + ;;- moving between fpa regs and 68881 regs.
  3655. + 
  3656. + ;;- Since the fpa is more powerful than the 68881 and also has more
  3657. + ;;- registers, and since I think the resultant md would be medium ugly
  3658. + ;;- (lot's of duplicate code, ugly constraint strings), I elected not
  3659. + ;;- to do this change.
  3660. + 
  3661. + ;;- Another reason why someone *might* want to do the change is to
  3662. + ;;- control which register classes are accessed in a slightly cleaner
  3663. + ;;- way than I have.  See the blurb on CONDITIONAL_REGISTER_USAGE in
  3664. + ;;- the internals manual.
  3665. + 
  3666. + ;;- Yet another reason why someone might want to do this change is to
  3667. + ;;- allow use of some of the 68881 insns which have no equivalent on
  3668. + ;;- the fpa.  The sqrt instruction comes fairly quickly to mind.
  3669. + 
  3670. + ;;- If this is ever done, don't forget to change sun3.h so that
  3671. + ;;- it *will* define __HAVE_68881__ when the FPA is in use.
  3672. + 
  3673. + ;;-        Condition code hack
  3674. + 
  3675. + ;;- When a floating point compare is done in the fpa, the resulting
  3676. + ;;- condition codes are left in the fpastatus register.  The values in
  3677. + ;;- this register must be moved into the 68000 cc register before any
  3678. + ;;- jump is executed.  Once this has been done, regular jump
  3679. + ;;- instructions are fine (ie. floating point jumps are not necessary.
  3680. + ;;- They are only done if the cc is in the 68881).
  3681. + 
  3682. + ;;- The instructions that move the fpastatus register to the 68000
  3683. + ;;- register clobber a data register (the move cannot be done direct).
  3684. + ;;- These instructions might be bundled either with the compare
  3685. + ;;- instruction, or the branch instruction.  If we were using both the
  3686. + ;;- fpa and the 68881 together, we would wish to only mark the
  3687. + ;;- register clobbered if we were doing the compare in the fpa, but I
  3688. + ;;- think that that decision (whether to clobber the register or not)
  3689. + ;;- must be done before register allocation (makes sense) and hence we
  3690. + ;;- can't know if the floating point compare will be done in the fpa
  3691. + ;;- or the fp.  So whenever we are asked for code that uses the fpa,
  3692. + ;;- we will mark a data register as clobbered.  This is reasonable, as
  3693. + ;;- almost all floating point compare operations done with fpa code
  3694. + ;;- enabled will be done in the fpa.  It's even more reasonable since
  3695. + ;;- we decided to make the 68881 and the fpa mutually exclusive.
  3696. + 
  3697. + ;;- We place to code to move the fpastatus register inside of a
  3698. + ;;- define_expand so that we can do it conditionally based on whether
  3699. + ;;- we are targeting an fpa or not.
  3700. + 
  3701. + ;;- This still leaves us with the question of where we wish to put the
  3702. + ;;- code to move the fpastatus reg.  If we put it in the compare
  3703. + ;;- instruction, we can restrict the clobbering of the register to
  3704. + ;;- floating point compares, but we can't take advantage of floating
  3705. + ;;- point subtracts & etc. that alter the fpastatus register.  If we
  3706. + ;;- put it in the branch instruction, all branches compiled with fpa
  3707. + ;;- code enabled will clobber a data register, but we will be able to
  3708. + ;;- take advantage of fpa subtracts.  This balance favors putting the
  3709. + ;;- code in with the compare instruction.
  3710. + 
  3711. + ;;- Note that if some enterprising hacker should decide to switch
  3712. + ;;- this, he'll need to modify the code in NOTICE_UPDATE_CC.
  3713. + 
  3714. + ;;-        Usage of the top 16 fpa registers
  3715. + 
  3716. + ;;- The only locations which we may transfer fpa registers 16-31 from
  3717. + ;;- or to are the fpa registers 0-15.  (68000 registers and memory
  3718. + ;;- locations are impossible).  This causes problems in gcc, which
  3719. + ;;- assumes that mov?? instructions require no additional registers
  3720. + ;;- (see section 11.7) and since floating point moves *must* be
  3721. + ;;- supported into general registers (see section 12.3 under
  3722. + ;;- HARD_REGNO_OK_FOR_MODE_P) from anywhere.
  3723. + 
  3724. + ;;- My solution was to reserve fpa0 for moves into or out of these top
  3725. + ;;- 16 registers and to disparage the choice to reload into or out of
  3726. + ;;- these registers as much as I could.  That alternative is always
  3727. + ;;- last in the list, so it will not be used unless all else fails.  I
  3728. + ;;- will note that according to my current information, sun's compiler
  3729. + ;;- doesn't use these top 16 registers at all.
  3730. + 
  3731. + ;;- There is another possible way to do it.  I *believe* that if you
  3732. + ;;- make absolutely sure that the code will not be executed in the
  3733. + ;;- reload pass, you can support the mov?? names with define_expands
  3734. + ;;- which require new registers.  This may be possible by the
  3735. + ;;- appropriate juggling of constraints.  I may come back to this later.
  3736. + 
  3737. + ;;-         Usage of constant RAM
  3738. + 
  3739. + ;;- This has been handled correctly (I believe) but the way I've done
  3740. + ;;- it could use a little explanation.  The constant RAM can only be
  3741. + ;;- accessed when the instruction is in "command register" mode.
  3742. + ;;- "command register" mode means that no accessing of memory or the
  3743. + ;;- 68000 registers is being done.  This can be expressed easily in
  3744. + ;;- constraints, so generally the mode of the instruction is
  3745. + ;;- determined by a branch off of which_alternative.  In outputting
  3746. + ;;- instructions, a 'w' means to output an access to the constant ram
  3747. + ;;- (if the arg is CONST_DOUBLE and is one of the available
  3748. + ;;- constants), and 'x' means to output a register pair (if the arg is
  3749. + ;;- a 68000 register) and a 'y' is the combination of the above two
  3750. + ;;- processes.  You use a 'y' in two operand DF instructions where you
  3751. + ;;- *know* the other operand is an fpa register, you use an 'x' in DF
  3752. + ;;- instructions where the arg might be a 68000 register and the
  3753. + ;;- instruction is *not* in "command register" mode, and you use a 'w'
  3754. + ;;- in two situations: 1) The instruction *is* in command register
  3755. + ;;- mode (and hence won't be accessing 68000 registers), or 2) The
  3756. + ;;- instruction is a two operand SF instruction where you know the
  3757. + ;;- other operand is an fpa register.
  3758. + 
  3759. + ;;-        Optimization issues
  3760. + 
  3761. + ;;- I actually think that I've included all of the fpa instructions
  3762. + ;;- that should be included.  Note that if someone is interested in
  3763. + ;;- doing serious floating point work on the sun fpa, I would advise
  3764. + ;;- the use of the "asm" instruction in gcc to allow you to use the
  3765. + ;;- sin, cos, and exponential functions on the fpa board.
  3766. + 
  3767. + ;;- END FPA Explanation Section.
  3768. + 
  3769. + 
  3770. + ;;- Some of these insn's are composites of several m68000 op codes.
  3771. + ;;- The assembler (or final @@??) insures that the appropriate one is
  3772. + ;;- selected.
  3773. + 
  3774. + (define_insn ""
  3775. +   [(set (match_operand:DF 0 "push_operand" "=m")
  3776. +     (match_operand:DF 1 "general_operand" "ro<>fyE"))]
  3777. +   ""
  3778. +   "*
  3779. + {
  3780. +   if (FP_REG_P (operands[1]))
  3781. +     return \"fmove%.d %f1,%0\";
  3782. +   if (FPA_REG_P (operands[1]))
  3783. +     return \"fpmove%.d %1, %x0\";
  3784. +   return output_move_double (operands);
  3785. + }")
  3786. + 
  3787. + (define_insn ""
  3788. +   [(set (match_operand:DI 0 "push_operand" "=m")
  3789. +     (match_operand:DI 1 "general_operand" "ro<>Fy"))]
  3790. +   ""
  3791. +   "*
  3792. + {
  3793. +   return output_move_double (operands);
  3794. + }")
  3795. + 
  3796. + ;; We don't want to allow a constant operand for test insns because
  3797. + ;; (set (cc0) (const_int foo)) has no mode information.  Such insns will
  3798. + ;; be folded while optimizing anyway.
  3799. + (define_insn "tstsi"
  3800. +   [(set (cc0)
  3801. +     (match_operand:SI 0 "nonimmediate_operand" "rm"))]
  3802. +   ""
  3803. +   "*
  3804. + {
  3805. + #ifdef ISI_OV
  3806. +   /* ISI's assembler fails to handle tstl a0.  */
  3807. +   if (! ADDRESS_REG_P (operands[0]))
  3808. + #else
  3809. +   if (TARGET_68020 || ! ADDRESS_REG_P (operands[0]))
  3810. + #endif
  3811. +     return \"tst%.l %0\";
  3812. +   /* If you think that the 68020 does not support tstl a0,
  3813. +      reread page B-167 of the 68020 manual more carefully.  */
  3814. +   /* On an address reg, cmpw may replace cmpl.  */
  3815. + #ifdef SGS_CMP_ORDER
  3816. +   return \"cmp%.w %0,%#0\";
  3817. + #else
  3818. +   return \"cmp%.w %#0,%0\";
  3819. + #endif
  3820. + }")
  3821. + 
  3822. + ;; This can't use an address register, because comparisons
  3823. + ;; with address registers as second operand always test the whole word.
  3824. + (define_insn "tsthi"
  3825. +   [(set (cc0)
  3826. +     (match_operand:HI 0 "nonimmediate_operand" "dm"))]
  3827. +   ""
  3828. +   "tst%.w %0")
  3829. + 
  3830. + (define_insn "tstqi"
  3831. +   [(set (cc0)
  3832. +     (match_operand:QI 0 "nonimmediate_operand" "dm"))]
  3833. +   ""
  3834. +   "tst%.b %0")
  3835. +   
  3836. + (define_expand "tstsf"
  3837. +   [(set (cc0)
  3838. +     (match_operand:SF 0 "general_operand" ""))]
  3839. +   "TARGET_68881 || TARGET_FPA"
  3840. +   "
  3841. + {
  3842. +   if (TARGET_FPA)
  3843. +     {
  3844. +       emit_insn (gen_tstsf_fpa (operands[0]));
  3845. +       DONE;
  3846. +     }
  3847. + }")
  3848. + 
  3849. + (define_insn "tstsf_fpa"
  3850. +   [(set (cc0)
  3851. +     (match_operand:SF 0 "general_operand" "xmdF"))
  3852. +    (clobber (match_scratch:SI 1 "=d"))]
  3853. +   "TARGET_FPA"
  3854. +   "fptst%.s %x0\;fpmove fpastatus,%1\;movw %1,cc")
  3855. + 
  3856. + (define_insn ""
  3857. +   [(set (cc0)
  3858. +     (match_operand:SF 0 "general_operand" "fdm"))]
  3859. +   "TARGET_68881"
  3860. +   "*
  3861. + {
  3862. +   cc_status.flags = CC_IN_68881;
  3863. +   if (FP_REG_P (operands[0]))
  3864. +     return \"ftst%.x %0\";
  3865. +   return \"ftst%.s %0\";
  3866. + }")
  3867. + 
  3868. + (define_expand "tstdf"
  3869. +   [(set (cc0)
  3870. +     (match_operand:DF 0 "general_operand" ""))]
  3871. +   "TARGET_68881 || TARGET_FPA"
  3872. +   "
  3873. + {
  3874. +   if (TARGET_FPA)
  3875. +     {
  3876. +       emit_insn (gen_tstsf_fpa (operands[0]));
  3877. +       DONE;
  3878. +     }
  3879. + }")
  3880. + 
  3881. + (define_insn "tstdf_fpa"
  3882. +   [(set (cc0)
  3883. +     (match_operand:DF 0 "general_operand" "xrmF"))
  3884. +    (clobber (match_scratch:SI 1 "=d"))]
  3885. +   "TARGET_FPA"
  3886. +   "fptst%.d %x0\;fpmove fpastatus,%1\;movw %1,cc")
  3887. + 
  3888. + (define_insn ""
  3889. +   [(set (cc0)
  3890. +     (match_operand:DF 0 "general_operand" "fm"))]
  3891. +   "TARGET_68881"
  3892. +   "*
  3893. + {
  3894. +   cc_status.flags = CC_IN_68881;
  3895. +   if (FP_REG_P (operands[0]))
  3896. +     return \"ftst%.x %0\";
  3897. +   return \"ftst%.d %0\";
  3898. + }")
  3899. + 
  3900. + ;; compare instructions.
  3901. + 
  3902. + ;; A composite of the cmp, cmpa, & cmpi m68000 op codes.
  3903. + (define_insn "cmpsi"
  3904. +   [(set (cc0)
  3905. +     (compare (match_operand:SI 0 "nonimmediate_operand" "rKs,mr,>")
  3906. +          (match_operand:SI 1 "general_operand" "mr,Ksr,>")))]
  3907. +   ""
  3908. +   "*
  3909. + {
  3910. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  3911. + #ifdef SGS_CMP_ORDER
  3912. +     return \"cmpm%.l %0,%1\";
  3913. + #else
  3914. +     return \"cmpm%.l %1,%0\";
  3915. + #endif
  3916. +   if (REG_P (operands[1])
  3917. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  3918. +     { cc_status.flags |= CC_REVERSED;
  3919. + #ifdef SGS_CMP_ORDER
  3920. +       return \"cmp%.l %d1,%d0\";
  3921. + #else
  3922. +       return \"cmp%.l %d0,%d1\";
  3923. + #endif
  3924. +     }
  3925. + #ifdef SGS_CMP_ORDER
  3926. +   return \"cmp%.l %d0,%d1\";
  3927. + #else
  3928. +   return \"cmp%.l %d1,%d0\";
  3929. + #endif
  3930. + }")
  3931. + 
  3932. + (define_insn "cmphi"
  3933. +   [(set (cc0)
  3934. +     (compare (match_operand:HI 0 "nonimmediate_operand" "rnm,d,n,m,>")
  3935. +          (match_operand:HI 1 "general_operand" "d,rnm,m,n,>")))]
  3936. +   ""
  3937. +   "*
  3938. + {
  3939. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  3940. + #ifdef SGS_CMP_ORDER
  3941. +     return \"cmpm%.w %0,%1\";
  3942. + #else
  3943. +     return \"cmpm%.w %1,%0\";
  3944. + #endif
  3945. +   if ((REG_P (operands[1]) && !ADDRESS_REG_P (operands[1]))
  3946. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  3947. +     { cc_status.flags |= CC_REVERSED;
  3948. + #ifdef SGS_CMP_ORDER
  3949. +       return \"cmp%.w %d1,%d0\";
  3950. + #else
  3951. +       return \"cmp%.w %d0,%d1\";
  3952. + #endif
  3953. +     }
  3954. + #ifdef SGS_CMP_ORDER
  3955. +   return \"cmp%.w %d0,%d1\";
  3956. + #else
  3957. +   return \"cmp%.w %d1,%d0\";
  3958. + #endif
  3959. + }")
  3960. + 
  3961. + (define_insn "cmpqi"
  3962. +   [(set (cc0)
  3963. +     (compare (match_operand:QI 0 "nonimmediate_operand" "dn,md,>")
  3964. +          (match_operand:QI 1 "general_operand" "dm,nd,>")))]
  3965. +   ""
  3966. +   "*
  3967. + {
  3968. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  3969. + #ifdef SGS_CMP_ORDER
  3970. +     return \"cmpm%.b %0,%1\";
  3971. + #else
  3972. +     return \"cmpm%.b %1,%0\";
  3973. + #endif
  3974. +   if (REG_P (operands[1])
  3975. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  3976. +     { cc_status.flags |= CC_REVERSED;
  3977. + #ifdef SGS_CMP_ORDER
  3978. +       return \"cmp%.b %d1,%d0\";
  3979. + #else
  3980. +       return \"cmp%.b %d0,%d1\";
  3981. + #endif
  3982. +     }
  3983. + #ifdef SGS_CMP_ORDER
  3984. +   return \"cmp%.b %d0,%d1\";
  3985. + #else
  3986. +   return \"cmp%.b %d1,%d0\";
  3987. + #endif
  3988. + }")
  3989. + 
  3990. + (define_expand "cmpdf"
  3991. +   [(set (cc0)
  3992. +     (compare (match_operand:DF 0 "general_operand" "")
  3993. +          (match_operand:DF 1 "general_operand" "")))]
  3994. +   "TARGET_68881 || TARGET_FPA"
  3995. +   "
  3996. + {
  3997. +   if (TARGET_FPA)
  3998. +     {
  3999. +       emit_insn (gen_cmpdf_fpa (operands[0], operands[1]));
  4000. +       DONE;
  4001. +     }
  4002. + }")
  4003. + 
  4004. + (define_insn "cmpdf_fpa"
  4005. +   [(set (cc0)
  4006. +     (compare (match_operand:DF 0 "general_operand" "x,y")
  4007. +          (match_operand:DF 1 "general_operand" "xH,rmF")))
  4008. +    (clobber (match_scratch:SI 2 "=d,d"))]
  4009. +   "TARGET_FPA"
  4010. +   "fpcmp%.d %y1,%0\;fpmove fpastatus,%2\;movw %2,cc")
  4011. + 
  4012. + (define_insn ""
  4013. +   [(set (cc0)
  4014. +     (compare (match_operand:DF 0 "general_operand" "f,mG")
  4015. +          (match_operand:DF 1 "general_operand" "fmG,f")))]
  4016. +   "TARGET_68881"
  4017. +   "*
  4018. + {
  4019. +   cc_status.flags = CC_IN_68881;
  4020. + #ifdef SGS_CMP_ORDER
  4021. +   if (REG_P (operands[0]))
  4022. +     {
  4023. +       if (REG_P (operands[1]))
  4024. +     return \"fcmp%.x %0,%1\";
  4025. +       else
  4026. +         return \"fcmp%.d %0,%f1\";
  4027. +     }
  4028. +   cc_status.flags |= CC_REVERSED;
  4029. +   return \"fcmp%.d %1,%f0\";
  4030. + #else
  4031. +   if (REG_P (operands[0]))
  4032. +     {
  4033. +       if (REG_P (operands[1]))
  4034. +     return \"fcmp%.x %1,%0\";
  4035. +       else
  4036. +         return \"fcmp%.d %f1,%0\";
  4037. +     }
  4038. +   cc_status.flags |= CC_REVERSED;
  4039. +   return \"fcmp%.d %f0,%1\";
  4040. + #endif
  4041. + }")
  4042. + 
  4043. + (define_expand "cmpsf"
  4044. +  [(set (cc0)
  4045. +        (compare (match_operand:SF 0 "general_operand" "")
  4046. +         (match_operand:SF 1 "general_operand" "")))]
  4047. +  "TARGET_68881 || TARGET_FPA"
  4048. +  "
  4049. + {
  4050. +   if (TARGET_FPA)
  4051. +     {
  4052. +       emit_insn (gen_cmpsf_fpa (operands[0], operands[1]));
  4053. +       DONE;
  4054. +     }
  4055. + }")
  4056. + 
  4057. + (define_insn "cmpsf_fpa"
  4058. +   [(set (cc0)
  4059. +     (compare (match_operand:SF 0 "general_operand" "x,y")
  4060. +          (match_operand:SF 1 "general_operand" "xH,rmF")))
  4061. +    (clobber (match_scratch:SI 2 "=d,d"))]
  4062. +   "TARGET_FPA"
  4063. +   "fpcmp%.s %w1,%x0\;fpmove fpastatus,%2\;movw %2,cc")
  4064. + 
  4065. + (define_insn ""
  4066. +   [(set (cc0)
  4067. +     (compare (match_operand:SF 0 "general_operand" "f,mdG")
  4068. +          (match_operand:SF 1 "general_operand" "fmdG,f")))]
  4069. +   "TARGET_68881"
  4070. +   "*
  4071. + {
  4072. +   cc_status.flags = CC_IN_68881;
  4073. + #ifdef SGS_CMP_ORDER
  4074. +   if (FP_REG_P (operands[0]))
  4075. +     {
  4076. +       if (FP_REG_P (operands[1]))
  4077. +     return \"fcmp%.x %0,%1\";
  4078. +       else
  4079. +         return \"fcmp%.s %0,%f1\";
  4080. +     }
  4081. +   cc_status.flags |= CC_REVERSED;
  4082. +   return \"fcmp%.s %1,%f0\";
  4083. + #else
  4084. +   if (FP_REG_P (operands[0]))
  4085. +     {
  4086. +       if (FP_REG_P (operands[1]))
  4087. +     return \"fcmp%.x %1,%0\";
  4088. +       else
  4089. +         return \"fcmp%.s %f1,%0\";
  4090. +     }
  4091. +   cc_status.flags |= CC_REVERSED;
  4092. +   return \"fcmp%.s %f0,%1\";
  4093. + #endif
  4094. + }")
  4095. + 
  4096. + ;; Recognizers for btst instructions.
  4097. + 
  4098. + (define_insn ""
  4099. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "do")
  4100. +                 (const_int 1)
  4101. +                 (minus:SI (const_int 7)
  4102. +                       (match_operand:SI 1 "general_operand" "di"))))]
  4103. +   ""
  4104. +   "* { return output_btst (operands, operands[1], operands[0], insn, 7); }")
  4105. + 
  4106. + (define_insn ""
  4107. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "d")
  4108. +                 (const_int 1)
  4109. +                 (minus:SI (const_int 31)
  4110. +                       (match_operand:SI 1 "general_operand" "di"))))]
  4111. +   ""
  4112. +   "* { return output_btst (operands, operands[1], operands[0], insn, 31); }")
  4113. + 
  4114. + ;; The following two patterns are like the previous two
  4115. + ;; except that they use the fact that bit-number operands
  4116. + ;; are automatically masked to 3 or 5 bits.
  4117. + 
  4118. + (define_insn ""
  4119. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "do")
  4120. +                 (const_int 1)
  4121. +                 (minus:SI (const_int 7)
  4122. +                       (and:SI
  4123. +                        (match_operand:SI 1 "general_operand" "d")
  4124. +                        (const_int 7)))))]
  4125. +   ""
  4126. +   "* { return output_btst (operands, operands[1], operands[0], insn, 7); }")
  4127. + 
  4128. + (define_insn ""
  4129. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "d")
  4130. +                 (const_int 1)
  4131. +                 (minus:SI (const_int 31)
  4132. +                       (and:SI
  4133. +                        (match_operand:SI 1 "general_operand" "d")
  4134. +                        (const_int 31)))))]
  4135. +   ""
  4136. +   "* { return output_btst (operands, operands[1], operands[0], insn, 31); }")
  4137. + 
  4138. + ;; Nonoffsettable mem refs are ok in this one pattern
  4139. + ;; since we don't try to adjust them.
  4140. + (define_insn ""
  4141. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "md")
  4142. +                 (const_int 1)
  4143. +                 (match_operand:SI 1 "general_operand" "i")))]
  4144. +   "GET_CODE (operands[1]) == CONST_INT
  4145. +    && (unsigned) INTVAL (operands[1]) < 8"
  4146. +   "*
  4147. + {
  4148. +   operands[1] = gen_rtx (CONST_INT, VOIDmode, 7 - INTVAL (operands[1]));
  4149. +   return output_btst (operands, operands[1], operands[0], insn, 7);
  4150. + }")
  4151. + 
  4152. + (define_insn ""
  4153. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "do")
  4154. +                 (const_int 1)
  4155. +                 (match_operand:SI 1 "general_operand" "i")))]
  4156. +   "GET_CODE (operands[1]) == CONST_INT"
  4157. +   "*
  4158. + {
  4159. +   if (GET_CODE (operands[0]) == MEM)
  4160. +     {
  4161. +       operands[0] = adj_offsettable_operand (operands[0],
  4162. +                          INTVAL (operands[1]) / 8);
  4163. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  4164. +                  7 - INTVAL (operands[1]) % 8);
  4165. +       return output_btst (operands, operands[1], operands[0], insn, 7);
  4166. +     }
  4167. +   operands[1] = gen_rtx (CONST_INT, VOIDmode,
  4168. +              31 - INTVAL (operands[1]));
  4169. +   return output_btst (operands, operands[1], operands[0], insn, 31);
  4170. + }")
  4171. + 
  4172. + 
  4173. + ;; move instructions
  4174. + 
  4175. + ;; A special case in which it is not desirable
  4176. + ;; to reload the constant into a data register.
  4177. + (define_insn ""
  4178. +   [(set (match_operand:SI 0 "push_operand" "=m")
  4179. +     (match_operand:SI 1 "general_operand" "J"))]
  4180. +   "GET_CODE (operands[1]) == CONST_INT
  4181. +    && INTVAL (operands[1]) >= -0x8000
  4182. +    && INTVAL (operands[1]) < 0x8000"
  4183. +   "*
  4184. + {
  4185. +   if (operands[1] == const0_rtx)
  4186. +     return \"clr%.l %0\";
  4187. +   return \"pea %a1\";
  4188. + }")
  4189. + 
  4190. + ;This is never used.
  4191. + ;(define_insn "swapsi"
  4192. + ;  [(set (match_operand:SI 0 "general_operand" "+r")
  4193. + ;    (match_operand:SI 1 "general_operand" "+r"))
  4194. + ;   (set (match_dup 1) (match_dup 0))]
  4195. + ;  ""
  4196. + ;  "exg %1,%0")
  4197. + 
  4198. + ;; Special case of fullword move when source is zero.
  4199. + ;; The reason this is special is to avoid loading a zero
  4200. + ;; into a data reg with moveq in order to store it elsewhere.
  4201. +    
  4202. + (define_insn ""
  4203. +   [(set (match_operand:SI 0 "general_operand" "=g")
  4204. +     (const_int 0))]
  4205. +   ;; clr insns on 68000 read before writing.
  4206. +   ;; This isn't so on the 68010, but we have no alternative for it.
  4207. +   "(TARGET_68020
  4208. +     || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0])))"
  4209. +   "*
  4210. + {
  4211. +   if (ADDRESS_REG_P (operands[0]))
  4212. +     return \"sub%.l %0,%0\";
  4213. +   /* moveq is faster on the 68000.  */
  4214. +   if (DATA_REG_P (operands[0]) && !TARGET_68020)
  4215. + #if defined(MOTOROLA) && !defined(CRDS)
  4216. +     return \"moveq%.l %#0,%0\";
  4217. + #else
  4218. +     return \"moveq %#0,%0\";
  4219. + #endif
  4220. +   return \"clr%.l %0\";
  4221. + }")
  4222. + 
  4223. + ;; General case of fullword move. 
  4224. + ;;
  4225. + ;; This is the main "hook" for PIC code.  When generating
  4226. + ;; PIC, movsi is responsible for determining when the source address
  4227. + ;; needs PIC relocation and appropriately calling legitimize_pic_address
  4228. + ;; to perform the actual relocation.
  4229. + ;;
  4230. + ;; In both the PIC and non-PIC cases the patterns generated will
  4231. + ;; matched by the next define_insn. 
  4232. + (define_expand "movsi"
  4233. +   [(set (match_operand:SI 0 "general_operand" "")
  4234. +     (match_operand:SI 1 "general_operand" ""))]
  4235. +   ""
  4236. +   "
  4237. + {
  4238. +   if (flag_pic && symbolic_operand (operands[1], SImode)) 
  4239. +     {
  4240. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  4241. +       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  4242. + #endif
  4243. +       {
  4244. +         /* The source is an address which requires PIC relocation.  
  4245. +            Call legitimize_pic_address with the source, mode, and a relocation
  4246. +            register (a new pseudo, or the final destination if reload_in_progress
  4247. +            is set).   Then fall through normally */
  4248. +         extern rtx legitimize_pic_address();
  4249. +         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  4250. +         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  4251. +       }
  4252. +     }
  4253. + }")
  4254. + 
  4255. + ;; General case of fullword move.  The register constraints
  4256. + ;; force integer constants in range for a moveq to be reloaded
  4257. + ;; if they are headed for memory.
  4258. + (define_insn ""
  4259. +   ;; Notes: make sure no alternative allows g vs g.
  4260. +   ;; We don't allow f-regs since fixed point cannot go in them.
  4261. +   ;; We do allow y and x regs since fixed point is allowed in them.
  4262. +   [(set (match_operand:SI 0 "general_operand" "=g,da,y,!*x*r*m")
  4263. +     (match_operand:SI 1 "general_operand" "daymKs,i,g,*x*r*m"))]
  4264. +   ""
  4265. +   "*
  4266. + {
  4267. +   if (which_alternative == 3)
  4268. +     return \"fpmove%.l %x1,fpa0\;fpmove%.l fpa0,%x0\";    
  4269. +   if (FPA_REG_P (operands[1]) || FPA_REG_P (operands[0]))
  4270. +     return \"fpmove%.l %x1,%x0\";
  4271. +   if (GET_CODE (operands[1]) == CONST_INT)
  4272. +     {
  4273. +       if (operands[1] == const0_rtx
  4274. +       && (DATA_REG_P (operands[0])
  4275. +           || GET_CODE (operands[0]) == MEM)
  4276. +       /* clr insns on 68000 read before writing.
  4277. +          This isn't so on the 68010, but we have no alternative for it.  */
  4278. +       && (TARGET_68020
  4279. +           || !(GET_CODE (operands[0]) == MEM
  4280. +            && MEM_VOLATILE_P (operands[0]))))
  4281. +     return \"clr%.l %0\";
  4282. +       else if (DATA_REG_P (operands[0])
  4283. +            && INTVAL (operands[1]) < 128
  4284. +            && INTVAL (operands[1]) >= -128)
  4285. +         {
  4286. + #if defined(MOTOROLA) && !defined(CRDS)
  4287. +           return \"moveq%.l %1,%0\";
  4288. + #else
  4289. +       return \"moveq %1,%0\";
  4290. + #endif
  4291. +     }
  4292. + #ifndef NO_ADDSUB_Q
  4293. +       else if (DATA_REG_P (operands[0])
  4294. +            /* Do this with a moveq #N-8, dreg; addq #8,dreg */
  4295. +            && INTVAL (operands[1]) < 136
  4296. +            && INTVAL (operands[1]) >= 128)
  4297. +         {
  4298. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  4299. + #if defined(MOTOROLA) && !defined(CRDS)
  4300. +           return \"moveq%.l %1,%0\;addq%.w %#8,%0\";
  4301. + #else
  4302. +       return \"moveq %1,%0\;addq%.w %#8,%0\";
  4303. + #endif
  4304. +     }
  4305. +       else if (DATA_REG_P (operands[0])
  4306. +            /* Do this with a moveq #N+8, dreg; subq #8,dreg */
  4307. +            && INTVAL (operands[1]) < -128
  4308. +            && INTVAL (operands[1]) >= -136)
  4309. +         {
  4310. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) + 8);
  4311. + #if defined(MOTOROLA) && !defined(CRDS)
  4312. +           return \"moveq%.l %1,%0;subq%.w %#8,%0\";
  4313. + #else
  4314. +       return \"moveq %1,%0;subq%.w %#8,%0\";
  4315. + #endif
  4316. +     }
  4317. + #endif
  4318. +       else if (DATA_REG_P (operands[0])
  4319. +            /* If N is in the right range and is even, then use
  4320. +               moveq #N/2, dreg; addl dreg,dreg */
  4321. +            && INTVAL (operands[1]) > 127
  4322. +            && INTVAL (operands[1]) <= 254
  4323. +            && INTVAL (operands[1]) % 2 == 0)
  4324. +         {
  4325. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) / 2);
  4326. + #if defined(MOTOROLA) && !defined(CRDS)
  4327. +           return \"moveq%.l %1,%0\;add%.w %0,%0\";
  4328. + #else
  4329. +       return \"moveq %1,%0\;add%.w %0,%0\";
  4330. + #endif
  4331. +     }
  4332. +       else if (ADDRESS_REG_P (operands[0])
  4333. +            && INTVAL (operands[1]) < 0x8000
  4334. +            && INTVAL (operands[1]) >= -0x8000)
  4335. +     return \"move%.w %1,%0\";
  4336. +       else if (push_operand (operands[0], SImode)
  4337. +            && INTVAL (operands[1]) < 0x8000
  4338. +            && INTVAL (operands[1]) >= -0x8000)
  4339. +         return \"pea %a1\";
  4340. +     }
  4341. +   else if ((GET_CODE (operands[1]) == SYMBOL_REF
  4342. +         || GET_CODE (operands[1]) == CONST)
  4343. +        && push_operand (operands[0], SImode))
  4344. +     return \"pea %a1\";
  4345. +   else if ((GET_CODE (operands[1]) == SYMBOL_REF
  4346. +         || GET_CODE (operands[1]) == CONST)
  4347. +        && ADDRESS_REG_P (operands[0]))
  4348. +     return \"lea %a1,%0\";
  4349. +   return \"move%.l %1,%0\";
  4350. + }")
  4351. + 
  4352. + (define_insn "movhi"
  4353. +   [(set (match_operand:HI 0 "general_operand" "=g")
  4354. +     (match_operand:HI 1 "general_operand" "g"))]
  4355. +   ""
  4356. +   "*
  4357. + {
  4358. +   if (GET_CODE (operands[1]) == CONST_INT)
  4359. +     {
  4360. +       if (operands[1] == const0_rtx
  4361. +       && (DATA_REG_P (operands[0])
  4362. +           || GET_CODE (operands[0]) == MEM)
  4363. +       /* clr insns on 68000 read before writing.
  4364. +          This isn't so on the 68010, but we have no alternative for it.  */
  4365. +       && (TARGET_68020
  4366. +           || !(GET_CODE (operands[0]) == MEM
  4367. +            && MEM_VOLATILE_P (operands[0]))))
  4368. +     return \"clr%.w %0\";
  4369. +       else if (DATA_REG_P (operands[0])
  4370. +            && INTVAL (operands[1]) < 128
  4371. +            && INTVAL (operands[1]) >= -128)
  4372. +         {
  4373. + #if defined(MOTOROLA) && !defined(CRDS)
  4374. +           return \"moveq%.l %1,%0\";
  4375. + #else
  4376. +       return \"moveq %1,%0\";
  4377. + #endif
  4378. +     }
  4379. +       else if (INTVAL (operands[1]) < 0x8000
  4380. +            && INTVAL (operands[1]) >= -0x8000)
  4381. +     return \"move%.w %1,%0\";
  4382. +     }
  4383. +   else if (CONSTANT_P (operands[1]))
  4384. +     return \"move%.l %1,%0\";
  4385. + #ifndef SGS_NO_LI
  4386. +   /* Recognize the insn before a tablejump, one that refers
  4387. +      to a table of offsets.  Such an insn will need to refer
  4388. +      to a label on the insn.  So output one.  Use the label-number
  4389. +      of the table of offsets to generate this label.  */
  4390. +   if (GET_CODE (operands[1]) == MEM
  4391. +       && GET_CODE (XEXP (operands[1], 0)) == PLUS
  4392. +       && (GET_CODE (XEXP (XEXP (operands[1], 0), 0)) == LABEL_REF
  4393. +       || GET_CODE (XEXP (XEXP (operands[1], 0), 1)) == LABEL_REF)
  4394. +       && GET_CODE (XEXP (XEXP (operands[1], 0), 0)) != PLUS
  4395. +       && GET_CODE (XEXP (XEXP (operands[1], 0), 1)) != PLUS)
  4396. +     {
  4397. +       rtx labelref;
  4398. +       if (GET_CODE (XEXP (XEXP (operands[1], 0), 0)) == LABEL_REF)
  4399. +     labelref = XEXP (XEXP (operands[1], 0), 0);
  4400. +       else
  4401. +     labelref = XEXP (XEXP (operands[1], 0), 1);
  4402. + #if defined (MOTOROLA) && !defined (SGS_SWITCH_TABLES)
  4403. + #ifdef SGS
  4404. +       asm_fprintf (asm_out_file, \"\\tset %LLI%d,.+2\\n\",
  4405. +            CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  4406. + #else /* not SGS */
  4407. +       asm_fprintf (asm_out_file, \"\\t.set %LLI%d,.+2\\n\",
  4408. +                CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  4409. + #endif /* not SGS */
  4410. + #else /* SGS_SWITCH_TABLES or not MOTOROLA */
  4411. +       ASM_OUTPUT_INTERNAL_LABEL (asm_out_file, \"LI\",
  4412. +                  CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  4413. + #ifdef SGS_SWITCH_TABLES
  4414. +       /* Set flag saying we need to define the symbol
  4415. +      LD%n (with value L%n-LI%n) at the end of the switch table.  */
  4416. +       switch_table_difference_label_flag = 1;
  4417. + #endif /* SGS_SWITCH_TABLES */
  4418. + #endif /* SGS_SWITCH_TABLES or not MOTOROLA */
  4419. +     }
  4420. + #endif /* SGS_NO_LI */
  4421. +   return \"move%.w %1,%0\";
  4422. + }")
  4423. + 
  4424. + (define_insn "movstricthi"
  4425. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  4426. +     (match_operand:HI 1 "general_operand" "rmn"))]
  4427. +   ""
  4428. +   "*
  4429. + {
  4430. +   if (GET_CODE (operands[1]) == CONST_INT)
  4431. +     {
  4432. +       if (operands[1] == const0_rtx
  4433. +       && (DATA_REG_P (operands[0])
  4434. +           || GET_CODE (operands[0]) == MEM)
  4435. +       /* clr insns on 68000 read before writing.
  4436. +          This isn't so on the 68010, but we have no alternative for it.  */
  4437. +       && (TARGET_68020
  4438. +           || !(GET_CODE (operands[0]) == MEM
  4439. +            && MEM_VOLATILE_P (operands[0]))))
  4440. +     return \"clr%.w %0\";
  4441. +     }
  4442. +   return \"move%.w %1,%0\";
  4443. + }")
  4444. + 
  4445. + (define_insn "movqi"
  4446. +   [(set (match_operand:QI 0 "general_operand" "=d,*a,m,m,?*a")
  4447. +     (match_operand:QI 1 "general_operand" "dmi*a,d*a,dmi,?*a,m"))]
  4448. +   ""
  4449. +   "*
  4450. + {
  4451. +   rtx xoperands[4];
  4452. + 
  4453. +   /* This is probably useless, since it loses for pushing a struct
  4454. +      of several bytes a byte at a time.  */
  4455. +   if (GET_CODE (operands[0]) == MEM
  4456. +       && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC
  4457. +       && XEXP (XEXP (operands[0], 0), 0) == stack_pointer_rtx
  4458. +       && ! ADDRESS_REG_P (operands[1]))
  4459. +     {
  4460. +       xoperands[1] = operands[1];
  4461. +       xoperands[2]
  4462. +         = gen_rtx (MEM, QImode,
  4463. +            gen_rtx (PLUS, VOIDmode, stack_pointer_rtx, const1_rtx));
  4464. +       /* Just pushing a byte puts it in the high byte of the halfword.  */
  4465. +       /* We must put it in the low-order, high-numbered byte.  */
  4466. +       output_asm_insn (\"move%.b %1,%-\;move%.b %@,%2\", xoperands);
  4467. +       return \"\";
  4468. +     }
  4469. + 
  4470. +   /* Moving a byte into an address register is not possible.  */
  4471. +   /* Use d0 as an intermediate, but don't clobber its contents.  */
  4472. +   if (ADDRESS_REG_P (operands[0]) && GET_CODE (operands[1]) == MEM)
  4473. +     {
  4474. +       /* ??? For 2.5, don't allow this choice and use secondary reloads
  4475. +      instead.
  4476. + 
  4477. +      See if the address register is used in the address.  If it
  4478. +      is, we have to generate a more complex sequence than those below.  */
  4479. +       if (refers_to_regno_p (REGNO (operands[0]), REGNO (operands[0]) + 1,
  4480. +                  operands[1], NULL_RTX))
  4481. +     {
  4482. +       /* See if the stack pointer is used in the address.  If it isn't,
  4483. +          we can push d0 or d1 (the insn can't use both of them) on
  4484. +          the stack, perform our move into d0/d1, copy the byte from d0/1,
  4485. +          and pop d0/1.  */
  4486. +       if (! reg_mentioned_p (stack_pointer_rtx, operands[1]))
  4487. +         {
  4488. +           if (refers_to_regno_p (0, 1, operands[1], NULL_RTX))
  4489. +         return \"move%.l %/d0,%-\;move%.b %1,%/d0\;move%.l %/d0,%0\;move%.l %+,%/d0\";
  4490. +           else
  4491. +         return \"move%.l %/d1,%-\;move%.b %1,%/d1\;move%.l %/d1,%0\;move%.l %+,%/d1\";
  4492. +         }
  4493. +       else
  4494. +         {
  4495. +           /* Otherwise, we know that d0 cannot be used in the address
  4496. +          (since sp and one address register is).  Assume that sp is
  4497. +          being used as a base register and replace the address
  4498. +          register that is our operand[0] with d0.  */
  4499. +           rtx reg_map[FIRST_PSEUDO_REGISTER];
  4500. +           int i;
  4501. + 
  4502. +           for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
  4503. +         reg_map[i] = 0;
  4504. + 
  4505. +           reg_map[REGNO (operands[0])] = gen_rtx (REG, Pmode, 0);
  4506. +           operands[1] = copy_rtx (operands[1]);
  4507. +           replace_regs (operands[1], reg_map, FIRST_PSEUDO_REGISTER, 0);
  4508. +           return \"exg %/d0,%0\;move%.b %1,%/d0\;exg %/d0,%0\";
  4509. +         }
  4510. +     }
  4511. + 
  4512. +       /* If the address of operand 1 uses d0, choose d1 as intermediate.  */
  4513. +       if (refers_to_regno_p (0, 1, operands[1], NULL_RTX))
  4514. +     return \"exg %/d1,%0\;move%.b %1,%/d1\;exg %/d1,%0\";
  4515. +       /* Otherwise d0 is usable.
  4516. +      (An effective address on the 68k can't use two d-regs.)  */
  4517. +       else
  4518. +     return \"exg %/d0,%0\;move%.b %1,%/d0\;exg %/d0,%0\";
  4519. +     }
  4520. +     
  4521. +   /* Likewise for moving from an address reg.  */
  4522. +   if (ADDRESS_REG_P (operands[1]) && GET_CODE (operands[0]) == MEM)
  4523. +     {
  4524. +       /* ??? For 2.5, don't allow this choice and use secondary reloads
  4525. +      instead.
  4526. + 
  4527. +      See if the address register is used in the address.  If it
  4528. +      is, we have to generate a more complex sequence than those below.  */
  4529. +       if (refers_to_regno_p (REGNO (operands[1]), REGNO (operands[1]) + 1,
  4530. +                  operands[0], NULL_RTX))
  4531. +     {
  4532. +       /* See if the stack pointer is used in the address.  If it isn't,
  4533. +          we can push d0 or d1 (the insn can't use both of them) on
  4534. +          the stack, copy the byte to d0/1, perform our move from d0/d1, 
  4535. +          and pop d0/1.  */
  4536. +       if (! reg_mentioned_p (stack_pointer_rtx, operands[0]))
  4537. +         {
  4538. +           if (refers_to_regno_p (0, 1, operands[0], NULL_RTX))
  4539. +         return \"move%.l %/d0,%-\;move%.l %1,%/d0\;move%.b %/d0,%0\;move%.l %+,%/d0\";
  4540. +           else
  4541. +         return \"move%.l %/d1,%-\;move%.l %1,%/d1\;move%.b %/d1,%0\;move%.l %+,%/d1\";
  4542. +         }
  4543. +       else
  4544. +         {
  4545. +           /* Otherwise, we know that d0 cannot be used in the address
  4546. +          (since sp and one address register is).  Assume that sp is
  4547. +          being used as a base register and replace the address
  4548. +          register that is our operand[1] with d0.  */
  4549. +           rtx reg_map[FIRST_PSEUDO_REGISTER];
  4550. +           int i;
  4551. + 
  4552. +           for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
  4553. +         reg_map[i] = 0;
  4554. + 
  4555. +           reg_map[REGNO (operands[1])] = gen_rtx (REG, Pmode, 0);
  4556. +           operands[0] = copy_rtx (operands[0]);
  4557. +           replace_regs (operands[0], reg_map, FIRST_PSEUDO_REGISTER, 0);
  4558. +           return \"exg %/d0,%1\;move%.b %/d0,%0\;exg %/d0,%1\";
  4559. +         }
  4560. +     }
  4561. + 
  4562. +       if (refers_to_regno_p (0, 1, operands[0], NULL_RTX))
  4563. +         return \"exg %/d1,%1\;move%.b %/d1,%0\;exg %/d1,%1\";
  4564. +       else
  4565. +         return \"exg %/d0,%1\;move%.b %/d0,%0\;exg %/d0,%1\";
  4566. +     }
  4567. + 
  4568. +   /* clr and st insns on 68000 read before writing.
  4569. +      This isn't so on the 68010, but we have no alternative for it.  */
  4570. +   if (TARGET_68020
  4571. +       || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0])))
  4572. +     {
  4573. +       if (operands[1] == const0_rtx)
  4574. +     return \"clr%.b %0\";
  4575. +       if (GET_CODE (operands[1]) == CONST_INT
  4576. +       && INTVAL (operands[1]) == -1)
  4577. +     {
  4578. +       CC_STATUS_INIT;
  4579. +       return \"st %0\";
  4580. +     }
  4581. +     }
  4582. +   if (GET_CODE (operands[1]) != CONST_INT && CONSTANT_P (operands[1]))
  4583. +     return \"move%.l %1,%0\";
  4584. +   if (ADDRESS_REG_P (operands[0]) || ADDRESS_REG_P (operands[1]))
  4585. +     return \"move%.w %1,%0\";
  4586. +   return \"move%.b %1,%0\";
  4587. + }")
  4588. + 
  4589. + (define_insn "movstrictqi"
  4590. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  4591. +     (match_operand:QI 1 "general_operand" "dmn"))]
  4592. +   ""
  4593. +   "*
  4594. + {
  4595. +   if (operands[1] == const0_rtx
  4596. +       /* clr insns on 68000 read before writing.
  4597. +          This isn't so on the 68010, but we have no alternative for it.  */
  4598. +       && (TARGET_68020
  4599. +           || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0]))))
  4600. +     return \"clr%.b %0\";
  4601. +   return \"move%.b %1,%0\";
  4602. + }")
  4603. + 
  4604. + (define_insn "movsf"
  4605. +   [(set (match_operand:SF 0 "general_operand" "=rmf,x,y,rm,!x,!rm")
  4606. +     (match_operand:SF 1 "general_operand" "rmfF,xH,rmF,y,rm,x"))]
  4607. + ;  [(set (match_operand:SF 0 "general_operand" "=rmf")
  4608. + ;    (match_operand:SF 1 "general_operand" "rmfF"))]
  4609. +   ""
  4610. +   "*
  4611. + {
  4612. +   if (which_alternative >= 4)
  4613. +     return \"fpmove%.s %1,fpa0\;fpmove%.s fpa0,%0\";
  4614. +   if (FPA_REG_P (operands[0]))
  4615. +     {
  4616. +       if (FPA_REG_P (operands[1]))
  4617. +     return \"fpmove%.s %x1,%x0\";
  4618. +       else if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4619. +     return output_move_const_single (operands);
  4620. +       else if (FP_REG_P (operands[1]))
  4621. +         return \"fmove%.s %1,sp@-\;fpmove%.d sp@+, %0\";
  4622. +       return \"fpmove%.s %x1,%x0\";
  4623. +     }
  4624. +   if (FPA_REG_P (operands[1]))
  4625. +     {
  4626. +       if (FP_REG_P (operands[0]))
  4627. +     return \"fpmove%.s %x1,sp@-\;fmove%.s sp@+,%0\";
  4628. +       else
  4629. +     return \"fpmove%.s %x1,%x0\";
  4630. +     }
  4631. +   if (FP_REG_P (operands[0]))
  4632. +     {
  4633. +       if (FP_REG_P (operands[1]))
  4634. +     return \"f%$move%.x %1,%0\";
  4635. +       else if (ADDRESS_REG_P (operands[1]))
  4636. +     return \"move%.l %1,%-\;f%$move%.s %+,%0\";
  4637. +       else if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4638. +     return output_move_const_single (operands);
  4639. +       return \"f%$move%.s %f1,%0\";
  4640. +     }
  4641. +   if (FP_REG_P (operands[1]))
  4642. +     {
  4643. +       if (ADDRESS_REG_P (operands[0]))
  4644. +     return \"fmove%.s %1,%-\;move%.l %+,%0\";
  4645. +       return \"fmove%.s %f1,%0\";
  4646. +     }
  4647. +   return \"move%.l %1,%0\";
  4648. + }")
  4649. + 
  4650. + (define_insn "movdf"
  4651. +   [(set (match_operand:DF 0 "general_operand" "=rm,rf,rf,&rof<>,y,rm,x,!x,!rm")
  4652. +     (match_operand:DF 1 "general_operand" "rf,m,0,rofE<>,rmE,y,xH,rm,x"))]
  4653. + ;  [(set (match_operand:DF 0 "general_operand" "=rm,&rf,&rof<>")
  4654. + ;    (match_operand:DF 1 "general_operand" "rf,m,rofF<>"))]
  4655. +   ""
  4656. +   "*
  4657. + {
  4658. +   if (which_alternative == 7)
  4659. +     return \"fpmove%.d %x1,fpa0\;fpmove%.d fpa0,%x0\";
  4660. +   if (FPA_REG_P (operands[0]))
  4661. +     {
  4662. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4663. +     return output_move_const_double (operands);
  4664. +       if (FP_REG_P (operands[1]))
  4665. +         return \"fmove%.d %1,sp@-\;fpmove%.d sp@+,%x0\";
  4666. +       return \"fpmove%.d %x1,%x0\";
  4667. +     }
  4668. +   else if (FPA_REG_P (operands[1]))
  4669. +     {
  4670. +       if (FP_REG_P(operands[0]))
  4671. +         return \"fpmove%.d %x1,sp@-\;fmoved sp@+,%0\";
  4672. +       else
  4673. +         return \"fpmove%.d %x1,%x0\";
  4674. +     }
  4675. +   if (FP_REG_P (operands[0]))
  4676. +     {
  4677. +       if (FP_REG_P (operands[1]))
  4678. +     return \"f%&move%.x %1,%0\";
  4679. +       if (REG_P (operands[1]))
  4680. +     {
  4681. +       rtx xoperands[2];
  4682. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  4683. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4684. +       output_asm_insn (\"move%.l %1,%-\", operands);
  4685. +       return \"f%&move%.d %+,%0\";
  4686. +     }
  4687. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4688. +     return output_move_const_double (operands);
  4689. +       return \"f%&move%.d %f1,%0\";
  4690. +     }
  4691. +   else if (FP_REG_P (operands[1]))
  4692. +     {
  4693. +       if (REG_P (operands[0]))
  4694. +     {
  4695. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  4696. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4697. +       return \"move%.l %+,%0\";
  4698. +     }
  4699. +       else
  4700. +         return \"fmove%.d %f1,%0\";
  4701. +     }
  4702. +   return output_move_double (operands);
  4703. + }
  4704. + ")
  4705. + 
  4706. + (define_expand "movxf"
  4707. +   [(set (match_operand:XF 0 "nonimmediate_operand" "")
  4708. +     (match_operand:XF 1 "general_operand" ""))]
  4709. +   ""
  4710. +   "
  4711. + {
  4712. +   if (CONSTANT_P (operands[1]))
  4713. +     {
  4714. +       operands[1] = force_const_mem (XFmode, operands[1]);
  4715. +       if (! memory_address_p (XFmode, XEXP (operands[1], 0))
  4716. +       && ! reload_in_progress)
  4717. +     operands[1] = change_address (operands[1], XFmode,
  4718. +                       XEXP (operands[1], 0));
  4719. +     }
  4720. + }")
  4721. + 
  4722. + (define_insn ""
  4723. +   [(set (match_operand:XF 0 "nonimmediate_operand" "=f,m,f,!r,!f")
  4724. +     (match_operand:XF 1 "nonimmediate_operand" "m,f,f,f,r"))]
  4725. +   "TARGET_68881"
  4726. +   "*
  4727. + {
  4728. +   if (FP_REG_P (operands[0]))
  4729. +     {
  4730. +       if (FP_REG_P (operands[1]))
  4731. +     return \"fmove%.x %1,%0\";
  4732. +       if (REG_P (operands[1]))
  4733. +     {
  4734. +       rtx xoperands[2];
  4735. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 2);
  4736. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4737. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  4738. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4739. +       output_asm_insn (\"move%.l %1,%-\", operands);
  4740. +       return \"fmove%.x %+,%0\";
  4741. +     }
  4742. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4743. +         return \"fmove%.x %1,%0\";
  4744. +       return \"fmove%.x %f1,%0\";
  4745. +     }
  4746. +   if (REG_P (operands[0]))
  4747. +     {
  4748. +       output_asm_insn (\"fmove%.x %f1,%-\;move%.l %+,%0\", operands);
  4749. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4750. +       output_asm_insn (\"move%.l %+,%0\", operands);
  4751. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4752. +       return \"move%.l %+,%0\";
  4753. +     }
  4754. +   return \"fmove%.x %f1,%0\";
  4755. + }
  4756. + ")
  4757. + 
  4758. + (define_insn ""
  4759. +   [(set (match_operand:XF 0 "nonimmediate_operand" "=rm,rf,&rof<>")
  4760. +     (match_operand:XF 1 "nonimmediate_operand" "rf,m,rof<>"))]
  4761. +   "! TARGET_68881"
  4762. +   "*
  4763. + {
  4764. +   if (FP_REG_P (operands[0]))
  4765. +     {
  4766. +       if (FP_REG_P (operands[1]))
  4767. +     return \"fmove%.x %1,%0\";
  4768. +       if (REG_P (operands[1]))
  4769. +     {
  4770. +       rtx xoperands[2];
  4771. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 2);
  4772. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4773. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  4774. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4775. +       output_asm_insn (\"move%.l %1,%-\", operands);
  4776. +       return \"fmove%.x %+,%0\";
  4777. +     }
  4778. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4779. +         return \"fmove%.x %1,%0\";
  4780. +       return \"fmove%.x %f1,%0\";
  4781. +     }
  4782. +   if (FP_REG_P (operands[1]))
  4783. +     {
  4784. +       if (REG_P (operands[0]))
  4785. +         {
  4786. +           output_asm_insn (\"fmove%.x %f1,%-\;move%.l %+,%0\", operands);
  4787. +           operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4788. +           output_asm_insn (\"move%.l %+,%0\", operands);
  4789. +           operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4790. +           return \"move%.l %+,%0\";
  4791. +         }
  4792. +       else
  4793. +         return \"fmove%.x %f1,%0\";
  4794. +     }
  4795. +   return output_move_double (operands);
  4796. + }
  4797. + ")
  4798. + 
  4799. + ;; movdi can apply to fp regs in some cases
  4800. + (define_insn "movdi"
  4801. +   ;; Let's see if it really still needs to handle fp regs, and, if so, why.
  4802. +   [(set (match_operand:DI 0 "general_operand" "=rm,r,&ro<>,y,rm,!*x,!rm")
  4803. +     (match_operand:DI 1 "general_operand" "rF,m,roi<>F,rmiF,y,rmF,*x"))]
  4804. + ;  [(set (match_operand:DI 0 "general_operand" "=rm,&r,&ro<>,!&rm,!&f,y,rm,x,!x,!rm")
  4805. + ;    (match_operand:DI 1 "general_operand" "r,m,roi<>,fF,rfmF,rmi,y,rm,x"))]
  4806. + ;  [(set (match_operand:DI 0 "general_operand" "=rm,&rf,&ro<>,!&rm,!&f")
  4807. + ;    (match_operand:DI 1 "general_operand" "r,m,roi<>,fF,rfF"))]
  4808. +   ""
  4809. +   "*
  4810. + {
  4811. +   if (which_alternative == 8)
  4812. +     return \"fpmove%.d %x1,fpa0\;fpmove%.d fpa0,%x0\";
  4813. +   if (FPA_REG_P (operands[0]) || FPA_REG_P (operands[1]))
  4814. +     return \"fpmove%.d %x1,%x0\";
  4815. +   if (FP_REG_P (operands[0]))
  4816. +     {
  4817. +       if (FP_REG_P (operands[1]))
  4818. +     return \"fmove%.x %1,%0\";
  4819. +       if (REG_P (operands[1]))
  4820. +     {
  4821. +       rtx xoperands[2];
  4822. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  4823. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  4824. +       output_asm_insn (\"move%.l %1,%-\", operands);
  4825. +       return \"fmove%.d %+,%0\";
  4826. +     }
  4827. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  4828. +     return output_move_const_double (operands);
  4829. +       return \"fmove%.d %f1,%0\";
  4830. +     }
  4831. +   else if (FP_REG_P (operands[1]))
  4832. +     {
  4833. +       if (REG_P (operands[0]))
  4834. +     {
  4835. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  4836. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  4837. +       return \"move%.l %+,%0\";
  4838. +     }
  4839. +       else
  4840. +         return \"fmove%.d %f1,%0\";
  4841. +     }
  4842. +   return output_move_double (operands);
  4843. + }
  4844. + ")
  4845. + 
  4846. + ;; Thus goes after the move instructions
  4847. + ;; because the move instructions are better (require no spilling)
  4848. + ;; when they can apply.  It goes before the add/sub insns
  4849. + ;; so we will prefer it to them.
  4850. + 
  4851. + (define_insn "pushasi"
  4852. +   [(set (match_operand:SI 0 "push_operand" "=m")
  4853. +     (match_operand:SI 1 "address_operand" "p"))]
  4854. +   ""
  4855. +   "pea %a1")
  4856. + 
  4857. + ;; truncation instructions
  4858. + (define_insn "truncsiqi2"
  4859. +   [(set (match_operand:QI 0 "general_operand" "=dm,d")
  4860. +     (truncate:QI
  4861. +      (match_operand:SI 1 "general_operand" "doJ,i")))]
  4862. +   ""
  4863. +   "*
  4864. + {
  4865. +   if (GET_CODE (operands[0]) == REG)
  4866. +     {
  4867. +       /* Must clear condition codes, since the move.l bases them on
  4868. +      the entire 32 bits, not just the desired 8 bits.  */
  4869. +       CC_STATUS_INIT;
  4870. +       return \"move%.l %1,%0\";
  4871. +     }
  4872. +   if (GET_CODE (operands[1]) == MEM)
  4873. +     operands[1] = adj_offsettable_operand (operands[1], 3);
  4874. +   return \"move%.b %1,%0\";
  4875. + }")
  4876. + 
  4877. + (define_insn "trunchiqi2"
  4878. +   [(set (match_operand:QI 0 "general_operand" "=dm,d")
  4879. +     (truncate:QI
  4880. +      (match_operand:HI 1 "general_operand" "doJ,i")))]
  4881. +   ""
  4882. +   "*
  4883. + {
  4884. +   if (GET_CODE (operands[0]) == REG
  4885. +       && (GET_CODE (operands[1]) == MEM
  4886. +       || GET_CODE (operands[1]) == CONST_INT))
  4887. +     {
  4888. +       /* Must clear condition codes, since the move.w bases them on
  4889. +      the entire 16 bits, not just the desired 8 bits.  */
  4890. +       CC_STATUS_INIT;
  4891. +       return \"move%.w %1,%0\";
  4892. +     }
  4893. +   if (GET_CODE (operands[0]) == REG)
  4894. +     {
  4895. +       /* Must clear condition codes, since the move.l bases them on
  4896. +      the entire 32 bits, not just the desired 8 bits.  */
  4897. +       CC_STATUS_INIT;
  4898. +       return \"move%.l %1,%0\";
  4899. +     }
  4900. +   if (GET_CODE (operands[1]) == MEM)
  4901. +     operands[1] = adj_offsettable_operand (operands[1], 1);
  4902. +   return \"move%.b %1,%0\";
  4903. + }")
  4904. + 
  4905. + (define_insn "truncsihi2"
  4906. +   [(set (match_operand:HI 0 "general_operand" "=dm,d")
  4907. +     (truncate:HI
  4908. +      (match_operand:SI 1 "general_operand" "roJ,i")))]
  4909. +   ""
  4910. +   "*
  4911. + {
  4912. +   if (GET_CODE (operands[0]) == REG)
  4913. +     {
  4914. +       /* Must clear condition codes, since the move.l bases them on
  4915. +      the entire 32 bits, not just the desired 8 bits.  */
  4916. +       CC_STATUS_INIT;
  4917. +       return \"move%.l %1,%0\";
  4918. +     }
  4919. +   if (GET_CODE (operands[1]) == MEM)
  4920. +     operands[1] = adj_offsettable_operand (operands[1], 2);
  4921. +   return \"move%.w %1,%0\";
  4922. + }")
  4923. + 
  4924. + ;; zero extension instructions
  4925. + 
  4926. + (define_expand "zero_extendhisi2"
  4927. +   [(set (match_operand:SI 0 "register_operand" "")
  4928. +     (const_int 0))
  4929. +    (set (strict_low_part (match_dup 2))
  4930. +     (match_operand:HI 1 "general_operand" ""))]
  4931. +   ""
  4932. +   "
  4933. + {
  4934. +   operands[1] = make_safe_from (operands[1], operands[0]);
  4935. +   if (GET_CODE (operands[0]) == SUBREG)
  4936. +     operands[2] = gen_rtx (SUBREG, HImode, SUBREG_REG (operands[0]),
  4937. +                SUBREG_WORD (operands[0]));
  4938. +   else
  4939. +     operands[2] = gen_rtx (SUBREG, HImode, operands[0], 0);
  4940. + }")
  4941. + 
  4942. + (define_expand "zero_extendqihi2"
  4943. +   [(set (match_operand:HI 0 "register_operand" "")
  4944. +     (const_int 0))
  4945. +    (set (strict_low_part (match_dup 2))
  4946. +     (match_operand:QI 1 "general_operand" ""))]
  4947. +   ""
  4948. +   "
  4949. + {
  4950. +   operands[1] = make_safe_from (operands[1], operands[0]);
  4951. +   if (GET_CODE (operands[0]) == SUBREG)
  4952. +     operands[2] = gen_rtx (SUBREG, QImode, SUBREG_REG (operands[0]),
  4953. +                SUBREG_WORD (operands[0]));
  4954. +   else
  4955. +     operands[2] = gen_rtx (SUBREG, QImode, operands[0], 0);
  4956. + }")
  4957. + 
  4958. + (define_expand "zero_extendqisi2"
  4959. +   [(set (match_operand:SI 0 "register_operand" "")
  4960. +     (const_int 0))
  4961. +    (set (strict_low_part (match_dup 2))
  4962. +     (match_operand:QI 1 "general_operand" ""))]
  4963. +   ""
  4964. +   "
  4965. + {
  4966. +   operands[1] = make_safe_from (operands[1], operands[0]);
  4967. +   if (GET_CODE (operands[0]) == SUBREG)
  4968. +     operands[2] = gen_rtx (SUBREG, QImode, SUBREG_REG (operands[0]),
  4969. +                SUBREG_WORD (operands[0]));
  4970. +   else
  4971. +     operands[2] = gen_rtx (SUBREG, QImode, operands[0], 0);
  4972. + }")
  4973. + 
  4974. + ;; Patterns to recognize zero-extend insns produced by the combiner.
  4975. + ;; We don't allow both operands in memory, because of aliasing problems.
  4976. + ;; Explicitly disallow two memory operands via the condition since reloading
  4977. + ;; of this case will result in worse code than the uncombined patterns.
  4978. + 
  4979. + (define_insn ""
  4980. +   [(set (match_operand:SI 0 "general_operand" "=do<>,d<")
  4981. +     (zero_extend:SI (match_operand:HI 1 "nonimmediate_operand" "r,m")))]
  4982. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  4983. +   "*
  4984. + {
  4985. +   if (DATA_REG_P (operands[0]))
  4986. +     {
  4987. +       if (GET_CODE (operands[1]) == REG
  4988. +       && REGNO (operands[0]) == REGNO (operands[1]))
  4989. +     return \"and%.l %#0xFFFF,%0\";
  4990. +       if (reg_mentioned_p (operands[0], operands[1]))
  4991. +         return \"move%.w %1,%0\;and%.l %#0xFFFF,%0\";
  4992. +       return \"clr%.l %0\;move%.w %1,%0\";
  4993. +     }
  4994. +   else if (GET_CODE (operands[0]) == MEM
  4995. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  4996. +     return \"move%.w %1,%0\;clr%.w %0\";
  4997. +   else if (GET_CODE (operands[0]) == MEM
  4998. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  4999. +     return \"clr%.w %0\;move%.w %1,%0\";
  5000. +   else
  5001. +     {
  5002. +       output_asm_insn (\"clr%.w %0\", operands);
  5003. +       operands[0] = adj_offsettable_operand (operands[0], 2);
  5004. +       return \"move%.w %1,%0\";
  5005. +     }
  5006. + }")
  5007. + 
  5008. + (define_insn ""
  5009. +   [(set (match_operand:HI 0 "general_operand" "=do<>,d")
  5010. +     (zero_extend:HI (match_operand:QI 1 "nonimmediate_operand" "d,m")))]
  5011. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  5012. +   "*
  5013. + {
  5014. +   if (DATA_REG_P (operands[0]))
  5015. +     {
  5016. +       if (GET_CODE (operands[1]) == REG
  5017. +       && REGNO (operands[0]) == REGNO (operands[1]))
  5018. +     return \"and%.w %#0xFF,%0\";
  5019. +       if (reg_mentioned_p (operands[0], operands[1]))
  5020. +         return \"move%.b %1,%0\;and%.w %#0xFF,%0\";
  5021. +       return \"clr%.w %0\;move%.b %1,%0\";
  5022. +     }
  5023. +   else if (GET_CODE (operands[0]) == MEM
  5024. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  5025. +     {
  5026. +       if (REGNO (XEXP (XEXP (operands[0], 0), 0))
  5027. +       == STACK_POINTER_REGNUM)
  5028. +     {
  5029. +       output_asm_insn (\"clr%.w %-\", operands);
  5030. +       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  5031. +                  plus_constant (stack_pointer_rtx, 1));
  5032. +       return \"move%.b %1,%0\";
  5033. +     }
  5034. +       else
  5035. +     return \"move%.b %1,%0\;clr%.b %0\";
  5036. +     }
  5037. +   else if (GET_CODE (operands[0]) == MEM
  5038. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  5039. +     return \"clr%.b %0\;move%.b %1,%0\";
  5040. +   else
  5041. +     {
  5042. +       output_asm_insn (\"clr%.b %0\", operands);
  5043. +       operands[0] = adj_offsettable_operand (operands[0], 1);
  5044. +       return \"move%.b %1,%0\";
  5045. +     }
  5046. + }")
  5047. + 
  5048. + (define_insn ""
  5049. +   [(set (match_operand:SI 0 "general_operand" "=do<>,d")
  5050. +     (zero_extend:SI (match_operand:QI 1 "nonimmediate_operand" "d,m")))]
  5051. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  5052. +   "*
  5053. + {
  5054. +   if (DATA_REG_P (operands[0]))
  5055. +     {
  5056. +       if (GET_CODE (operands[1]) == REG
  5057. +       && REGNO (operands[0]) == REGNO (operands[1]))
  5058. +     return \"and%.l %#0xFF,%0\";
  5059. +       if (reg_mentioned_p (operands[0], operands[1]))
  5060. +         return \"move%.b %1,%0\;and%.l %#0xFF,%0\";
  5061. +       return \"clr%.l %0\;move%.b %1,%0\";
  5062. +     }
  5063. +   else if (GET_CODE (operands[0]) == MEM
  5064. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  5065. +     {
  5066. +       operands[0] = XEXP (XEXP (operands[0], 0), 0);
  5067. + #ifdef MOTOROLA
  5068. + #ifdef SGS
  5069. +       return \"clr%.l -(%0)\;move%.b %1,3(%0)\";
  5070. + #else
  5071. +       return \"clr%.l -(%0)\;move%.b %1,(3,%0)\";
  5072. + #endif
  5073. + #else
  5074. +       return \"clrl %0@-\;moveb %1,%0@(3)\";
  5075. + #endif
  5076. +     }
  5077. +   else if (GET_CODE (operands[0]) == MEM
  5078. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  5079. +     {
  5080. +       operands[0] = XEXP (XEXP (operands[0], 0), 0);
  5081. + #ifdef MOTOROLA
  5082. + #ifdef SGS
  5083. +       return \"clr%.l (%0)+\;move%.b %1,-1(%0)\";
  5084. + #else
  5085. +       return \"clr%.l (%0)+\;move%.b %1,(-1,%0)\";
  5086. + #endif
  5087. + #else
  5088. +       return \"clrl %0@+\;moveb %1,%0@(-1)\";
  5089. + #endif
  5090. +     }
  5091. +   else
  5092. +     {
  5093. +       output_asm_insn (\"clr%.l %0\", operands);
  5094. +       operands[0] = adj_offsettable_operand (operands[0], 3);
  5095. +       return \"move%.b %1,%0\";
  5096. +     }
  5097. + }")
  5098. + 
  5099. + ;; sign extension instructions
  5100. + 
  5101. + (define_insn "extendhisi2"
  5102. +   [(set (match_operand:SI 0 "general_operand" "=*d,a")
  5103. +     (sign_extend:SI
  5104. +      (match_operand:HI 1 "nonimmediate_operand" "0,rm")))]
  5105. +   ""
  5106. +   "*
  5107. + {
  5108. +   if (ADDRESS_REG_P (operands[0]))
  5109. +     return \"move%.w %1,%0\";
  5110. +   return \"ext%.l %0\";
  5111. + }")
  5112. + 
  5113. + (define_insn "extendqihi2"
  5114. +   [(set (match_operand:HI 0 "general_operand" "=d")
  5115. +     (sign_extend:HI (match_operand:QI 1 "nonimmediate_operand" "0")))]
  5116. +   ""
  5117. +   "ext%.w %0")
  5118. + 
  5119. + (define_insn "extendqisi2"
  5120. +   [(set (match_operand:SI 0 "general_operand" "=d")
  5121. +     (sign_extend:SI (match_operand:QI 1 "nonimmediate_operand" "0")))]
  5122. +   "TARGET_68020"
  5123. +   "extb%.l %0")
  5124. + 
  5125. + ;; Conversions between float and double.
  5126. + 
  5127. + (define_expand "extendsfdf2"
  5128. +   [(set (match_operand:DF 0 "general_operand" "")
  5129. +     (float_extend:DF
  5130. +      (match_operand:SF 1 "general_operand" "")))]
  5131. +   "TARGET_68881 || TARGET_FPA"
  5132. +   "")
  5133. + 
  5134. + (define_insn ""
  5135. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  5136. +     (float_extend:DF
  5137. +      (match_operand:SF 1 "general_operand" "xH,rmF")))]
  5138. +   "TARGET_FPA"
  5139. +   "fpstod %w1,%0")
  5140. + 
  5141. + (define_insn ""
  5142. +   [(set (match_operand:DF 0 "general_operand" "=*fdm,f")
  5143. +     (float_extend:DF
  5144. +       (match_operand:SF 1 "general_operand" "f,dmF")))]
  5145. +   "TARGET_68881"
  5146. +   "*
  5147. + {
  5148. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  5149. +     {
  5150. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  5151. +     {
  5152. +       /* Extending float to double in an fp-reg is a no-op.
  5153. +          NOTICE_UPDATE_CC has already assumed that the
  5154. +          cc will be set.  So cancel what it did.  */
  5155. +       cc_status = cc_prev_status;
  5156. +       return \"\";
  5157. +     }
  5158. +       return \"f%&move%.x %1,%0\";
  5159. +     }
  5160. +   if (FP_REG_P (operands[0]))
  5161. +     return \"f%&move%.s %f1,%0\";
  5162. +   if (DATA_REG_P (operands[0]) && FP_REG_P (operands[1]))
  5163. +     {
  5164. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  5165. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  5166. +       return \"move%.l %+,%0\";
  5167. +     }
  5168. +   return \"fmove%.d %f1,%0\";
  5169. + }")
  5170. + 
  5171. + ;; This cannot output into an f-reg because there is no way to be
  5172. + ;; sure of truncating in that case.
  5173. + ;; But on the Sun FPA, we can be sure.
  5174. + (define_expand "truncdfsf2"
  5175. +   [(set (match_operand:SF 0 "general_operand" "")
  5176. +     (float_truncate:SF
  5177. +       (match_operand:DF 1 "general_operand" "")))]
  5178. +   "TARGET_68881 || TARGET_FPA"
  5179. +   "")
  5180. + 
  5181. + (define_insn ""
  5182. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  5183. +     (float_truncate:SF
  5184. +       (match_operand:DF 1 "general_operand" "xH,rmF")))]
  5185. +   "TARGET_FPA"
  5186. +   "fpdtos %y1,%0")
  5187. + 
  5188. + ;; On the '040 we can truncate in a register accurately and easily.
  5189. + (define_insn ""
  5190. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5191. +     (float_truncate:SF
  5192. +       (match_operand:DF 1 "general_operand" "fmG")))]
  5193. +   "TARGET_68040_ONLY"
  5194. +   "*
  5195. + {
  5196. +   if (FP_REG_P (operands[1]))
  5197. +     return \"f%$move%.x %1,%0\";
  5198. +   return \"f%$move%.d %f1,%0\";
  5199. + }")
  5200. + 
  5201. + (define_insn ""
  5202. +   [(set (match_operand:SF 0 "general_operand" "=dm")
  5203. +     (float_truncate:SF
  5204. +       (match_operand:DF 1 "general_operand" "f")))]
  5205. +   "TARGET_68881"
  5206. +   "fmove%.s %f1,%0")
  5207. + 
  5208. + ;; Conversion between fixed point and floating point.
  5209. + ;; Note that among the fix-to-float insns
  5210. + ;; the ones that start with SImode come first.
  5211. + ;; That is so that an operand that is a CONST_INT
  5212. + ;; (and therefore lacks a specific machine mode).
  5213. + ;; will be recognized as SImode (which is always valid)
  5214. + ;; rather than as QImode or HImode.
  5215. + 
  5216. + (define_expand "floatsisf2"
  5217. +   [(set (match_operand:SF 0 "general_operand" "")
  5218. +     (float:SF (match_operand:SI 1 "general_operand" "")))]
  5219. +   "TARGET_68881 || TARGET_FPA"
  5220. +   "")
  5221. + 
  5222. + (define_insn ""
  5223. +   [(set (match_operand:SF 0 "general_operand" "=y,x")
  5224. +     (float:SF (match_operand:SI 1 "general_operand" "rmi,x")))]
  5225. +   "TARGET_FPA"
  5226. +   "fpltos %1,%0")
  5227. + 
  5228. + (define_insn ""
  5229. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5230. +     (float:SF (match_operand:SI 1 "general_operand" "dmi")))]
  5231. +   "TARGET_68881"
  5232. +   "f%$move%.l %1,%0")
  5233. + 
  5234. + (define_expand "floatsidf2"
  5235. +   [(set (match_operand:DF 0 "general_operand" "")
  5236. +     (float:DF (match_operand:SI 1 "general_operand" "")))]
  5237. +   "TARGET_68881 || TARGET_FPA"
  5238. +   "")
  5239. + 
  5240. + (define_insn ""
  5241. +   [(set (match_operand:DF 0 "general_operand" "=y,x")
  5242. +     (float:DF (match_operand:SI 1 "general_operand" "rmi,x")))]
  5243. +   "TARGET_FPA"
  5244. +   "fpltod %1,%0")
  5245. + 
  5246. + (define_insn ""
  5247. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5248. +     (float:DF (match_operand:SI 1 "general_operand" "dmi")))]
  5249. +   "TARGET_68881"
  5250. +   "f%&move%.l %1,%0")
  5251. + 
  5252. + (define_insn "floathisf2"
  5253. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5254. +     (float:SF (match_operand:HI 1 "general_operand" "dmn")))]
  5255. +   "TARGET_68881"
  5256. +   "f%$move%.w %1,%0")
  5257. + 
  5258. + (define_insn "floathidf2"
  5259. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5260. +     (float:DF (match_operand:HI 1 "general_operand" "dmn")))]
  5261. +   "TARGET_68881"
  5262. +   "fmove%.w %1,%0")
  5263. + 
  5264. + (define_insn "floatqisf2"
  5265. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5266. +     (float:SF (match_operand:QI 1 "general_operand" "dmn")))]
  5267. +   "TARGET_68881"
  5268. +   "fmove%.b %1,%0")
  5269. + 
  5270. + (define_insn "floatqidf2"
  5271. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5272. +     (float:DF (match_operand:QI 1 "general_operand" "dmn")))]
  5273. +   "TARGET_68881"
  5274. +   "f%&move%.b %1,%0")
  5275. + 
  5276. + ;; New routines to convert floating-point values to integers
  5277. + ;; to be used on the '040.  These should be faster than trapping
  5278. + ;; into the kernel to emulate fintrz.  They should also be faster
  5279. + ;; than calling the subroutines fixsfsi or fixdfsi.
  5280. + 
  5281. + (define_insn "fix_truncdfsi2"
  5282. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  5283. +     (fix:SI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  5284. +    (clobber (match_scratch:SI 2 "=d"))
  5285. +    (clobber (match_scratch:SI 3 "=d"))]
  5286. +   "TARGET_68881 && TARGET_68040"
  5287. +   "*
  5288. + {
  5289. +   CC_STATUS_INIT;
  5290. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.l %1,%0\;fmovem%.l %2,%!\";
  5291. + }")
  5292. + 
  5293. + (define_insn "fix_truncdfhi2"
  5294. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  5295. +     (fix:HI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  5296. +    (clobber (match_scratch:SI 2 "=d"))
  5297. +    (clobber (match_scratch:SI 3 "=d"))]
  5298. +   "TARGET_68881 && TARGET_68040"
  5299. +   "*
  5300. + {
  5301. +   CC_STATUS_INIT;
  5302. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.w %1,%0\;fmovem%.l %2,%!\";
  5303. + }")
  5304. + 
  5305. + (define_insn "fix_truncdfqi2"
  5306. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  5307. +     (fix:QI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  5308. +    (clobber (match_scratch:SI 2 "=d"))
  5309. +    (clobber (match_scratch:SI 3 "=d"))]
  5310. +   "TARGET_68881 && TARGET_68040"
  5311. +   "*
  5312. + {
  5313. +   CC_STATUS_INIT;
  5314. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.b %1,%0\;fmovem%.l %2,%!\";
  5315. + }")
  5316. + 
  5317. + ;; Convert a float to a float whose value is an integer.
  5318. + ;; This is the first stage of converting it to an integer type.
  5319. + 
  5320. + (define_insn "ftruncdf2"
  5321. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5322. +     (fix:DF (match_operand:DF 1 "general_operand" "fFm")))]
  5323. +   "TARGET_68881 && !TARGET_68040"
  5324. +   "*
  5325. + {
  5326. +   if (FP_REG_P (operands[1]))
  5327. +     return \"fintrz%.x %f1,%0\";
  5328. +   return \"fintrz%.d %f1,%0\";
  5329. + }")
  5330. + 
  5331. + (define_insn "ftruncsf2"
  5332. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5333. +     (fix:SF (match_operand:SF 1 "general_operand" "dfFm")))]
  5334. +   "TARGET_68881 && !TARGET_68040"
  5335. +   "*
  5336. + {
  5337. +   if (FP_REG_P (operands[1]))
  5338. +     return \"fintrz%.x %f1,%0\";
  5339. +   return \"fintrz%.s %f1,%0\";
  5340. + }")
  5341. + 
  5342. + ;; Convert a float whose value is an integer
  5343. + ;; to an actual integer.  Second stage of converting float to integer type.
  5344. + (define_insn "fixsfqi2"
  5345. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  5346. +     (fix:QI (match_operand:SF 1 "general_operand" "f")))]
  5347. +   "TARGET_68881"
  5348. +   "fmove%.b %1,%0")
  5349. + 
  5350. + (define_insn "fixsfhi2"
  5351. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  5352. +     (fix:HI (match_operand:SF 1 "general_operand" "f")))]
  5353. +   "TARGET_68881"
  5354. +   "fmove%.w %1,%0")
  5355. + 
  5356. + (define_insn "fixsfsi2"
  5357. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  5358. +     (fix:SI (match_operand:SF 1 "general_operand" "f")))]
  5359. +   "TARGET_68881"
  5360. +   "fmove%.l %1,%0")
  5361. + 
  5362. + (define_insn "fixdfqi2"
  5363. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  5364. +     (fix:QI (match_operand:DF 1 "general_operand" "f")))]
  5365. +   "TARGET_68881"
  5366. +   "fmove%.b %1,%0")
  5367. + 
  5368. + (define_insn "fixdfhi2"
  5369. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  5370. +     (fix:HI (match_operand:DF 1 "general_operand" "f")))]
  5371. +   "TARGET_68881"
  5372. +   "fmove%.w %1,%0")
  5373. + 
  5374. + (define_insn "fixdfsi2"
  5375. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  5376. +     (fix:SI (match_operand:DF 1 "general_operand" "f")))]
  5377. +   "TARGET_68881"
  5378. +   "fmove%.l %1,%0")
  5379. + 
  5380. + ;; Convert a float to an integer.
  5381. + ;; On the Sun FPA, this is done in one step.
  5382. + 
  5383. + (define_insn ""
  5384. +   [(set (match_operand:SI 0 "general_operand" "=x,y")
  5385. +     (fix:SI (fix:SF (match_operand:SF 1 "general_operand" "xH,rmF"))))]
  5386. +   "TARGET_FPA"
  5387. +   "fpstol %w1,%0")
  5388. + 
  5389. + (define_insn ""
  5390. +   [(set (match_operand:SI 0 "general_operand" "=x,y")
  5391. +     (fix:SI (fix:DF (match_operand:DF 1 "general_operand" "xH,rmF"))))]
  5392. +   "TARGET_FPA"
  5393. +   "fpdtol %y1,%0")
  5394. + 
  5395. + ;; add instructions
  5396. + 
  5397. + ;; Note that the middle two alternatives are near-duplicates
  5398. + ;; in order to handle insns generated by reload.
  5399. + ;; This is needed since they are not themselves reloaded,
  5400. + ;; so commutativity won't apply to them.
  5401. + (define_insn "addsi3"
  5402. +   [(set (match_operand:SI 0 "general_operand" "=m,?a,?a,r")
  5403. +     (plus:SI (match_operand:SI 1 "general_operand" "%0,a,rJK,0")
  5404. +          (match_operand:SI 2 "general_operand" "dIKLs,rJK,a,mrIKLs")))]
  5405. +   ""
  5406. +   "*
  5407. + {
  5408. +   if (! operands_match_p (operands[0], operands[1]))
  5409. +     {
  5410. +       if (!ADDRESS_REG_P (operands[1]))
  5411. +     {
  5412. +       rtx tmp = operands[1];
  5413. + 
  5414. +       operands[1] = operands[2];
  5415. +       operands[2] = tmp;
  5416. +     }
  5417. + 
  5418. +       /* These insns can result from reloads to access
  5419. +      stack slots over 64k from the frame pointer.  */
  5420. +       if (((GET_CODE (operands[2]) == CONST_INT
  5421. +        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  5422. +       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  5423. +         return \"move%.l %2,%0\;add%.l %1,%0\";
  5424. + #ifdef SGS
  5425. +       if (GET_CODE (operands[2]) == REG)
  5426. +     return \"lea 0(%1,%2.l),%0\";
  5427. +       else
  5428. +     return \"lea %c2(%1),%0\";
  5429. + #else /* not SGS */
  5430. + #ifdef MOTOROLA
  5431. +       if (GET_CODE (operands[2]) == REG)
  5432. +     return \"lea (%1,%2.l),%0\";
  5433. +       else
  5434. +     return \"lea (%c2,%1),%0\";
  5435. + #else /* not MOTOROLA (MIT syntax) */
  5436. +       if (GET_CODE (operands[2]) == REG)
  5437. +     return \"lea %1@(0,%2:l),%0\";
  5438. +       else
  5439. +     return \"lea %1@(%c2),%0\";
  5440. + #endif /* not MOTOROLA */
  5441. + #endif /* not SGS */
  5442. +     }
  5443. +   if (GET_CODE (operands[2]) == CONST_INT)
  5444. +     {
  5445. + #ifndef NO_ADDSUB_Q
  5446. +       if (INTVAL (operands[2]) > 0
  5447. +       && INTVAL (operands[2]) <= 8)
  5448. +     return (ADDRESS_REG_P (operands[0])
  5449. +         ? \"addq%.w %2,%0\"
  5450. +         : \"addq%.l %2,%0\");
  5451. +       if (INTVAL (operands[2]) < 0
  5452. +       && INTVAL (operands[2]) >= -8)
  5453. +         {
  5454. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  5455. +                      - INTVAL (operands[2]));
  5456. +       return (ADDRESS_REG_P (operands[0])
  5457. +           ? \"subq%.w %2,%0\"
  5458. +           : \"subq%.l %2,%0\");
  5459. +     }
  5460. +       /* On everything except the 68000 it is faster to use two
  5461. +      addqw instructions to add a small integer (8 < N <= 16)
  5462. +      to an address register.  Likewise for subqw.*/
  5463. +       if (INTVAL (operands[2]) > 8
  5464. +       && INTVAL (operands[2]) <= 16
  5465. +       && ADDRESS_REG_P (operands[0])
  5466. +       && TARGET_68020) 
  5467. +     {
  5468. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  5469. +       return \"addq%.w %#8,%0\;addq%.w %2,%0\";
  5470. +     }
  5471. +       if (INTVAL (operands[2]) < -8
  5472. +       && INTVAL (operands[2]) >= -16
  5473. +       && ADDRESS_REG_P (operands[0])
  5474. +       && TARGET_68020) 
  5475. +     {
  5476. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, 
  5477. +                   - INTVAL (operands[2]) - 8);
  5478. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  5479. +     }
  5480. + #endif
  5481. +       if (ADDRESS_REG_P (operands[0])
  5482. +       && INTVAL (operands[2]) >= -0x8000
  5483. +       && INTVAL (operands[2]) < 0x8000)
  5484. +     return \"add%.w %2,%0\";
  5485. +     }
  5486. +   return \"add%.l %2,%0\";
  5487. + }")
  5488. + 
  5489. + (define_insn ""
  5490. +   [(set (match_operand:SI 0 "general_operand" "=a")
  5491. +     (plus:SI (match_operand:SI 1 "general_operand" "0")
  5492. +          (sign_extend:SI
  5493. +           (match_operand:HI 2 "nonimmediate_operand" "rm"))))]
  5494. +   ""
  5495. +   "add%.w %2,%0")
  5496. + 
  5497. + (define_insn "addhi3"
  5498. +   [(set (match_operand:HI 0 "general_operand" "=m,r")
  5499. +     (plus:HI (match_operand:HI 1 "general_operand" "%0,0")
  5500. +          (match_operand:HI 2 "general_operand" "dn,rmn")))]
  5501. +   ""
  5502. +   "*
  5503. + {
  5504. + #ifndef NO_ADDSUB_Q
  5505. +   if (GET_CODE (operands[2]) == CONST_INT)
  5506. +     {
  5507. +       /* If the constant would be a negative number when interpreted as
  5508. +      HImode, make it negative.  This is usually, but not always, done
  5509. +      elsewhere in the compiler.  First check for constants out of range,
  5510. +      which could confuse us.  */
  5511. + 
  5512. +       if (INTVAL (operands[2]) >= 32768)
  5513. +     operands[2] = gen_rtx (CONST_INT, VOIDmode,
  5514. +                    INTVAL (operands[2]) - 65536);
  5515. + 
  5516. +       if (INTVAL (operands[2]) > 0
  5517. +       && INTVAL (operands[2]) <= 8)
  5518. +     return \"addq%.w %2,%0\";
  5519. +       if (INTVAL (operands[2]) < 0
  5520. +       && INTVAL (operands[2]) >= -8)
  5521. +     {
  5522. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  5523. +                      - INTVAL (operands[2]));
  5524. +       return \"subq%.w %2,%0\";
  5525. +     }
  5526. +       /* On everything except the 68000 it is faster to use two
  5527. +      addqw instructions to add a small integer (8 < N <= 16)
  5528. +      to an address register.  Likewise for subqw. */
  5529. +       if (INTVAL (operands[2]) > 8
  5530. +       && INTVAL (operands[2]) <= 16
  5531. +       && ADDRESS_REG_P (operands[0])
  5532. +       && TARGET_68020) 
  5533. +     {
  5534. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  5535. +       return \"addq%.w %#8,%0\;addq%.w %2,%0\";
  5536. +     }
  5537. +       if (INTVAL (operands[2]) < -8
  5538. +       && INTVAL (operands[2]) >= -16
  5539. +       && ADDRESS_REG_P (operands[0])
  5540. +       && TARGET_68020) 
  5541. +     {
  5542. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, 
  5543. +                  - INTVAL (operands[2]) - 8);
  5544. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  5545. +     }
  5546. +     }
  5547. + #endif
  5548. +   return \"add%.w %2,%0\";
  5549. + }")
  5550. + 
  5551. + ;; These insns must use MATCH_DUP instead of the more expected
  5552. + ;; use of a matching constraint because the "output" here is also
  5553. + ;; an input, so you can't use the matching constraint.  That also means
  5554. + ;; that you can't use the "%", so you need patterns with the matched
  5555. + ;; operand in both positions.
  5556. + 
  5557. + (define_insn ""
  5558. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  5559. +     (plus:HI (match_dup 0)
  5560. +          (match_operand:HI 1 "general_operand" "dn,rmn")))]
  5561. +   ""
  5562. +   "*
  5563. + {
  5564. + #ifndef NO_ADDSUB_Q
  5565. +   if (GET_CODE (operands[1]) == CONST_INT)
  5566. +     {
  5567. +       /* If the constant would be a negative number when interpreted as
  5568. +      HImode, make it negative.  This is usually, but not always, done
  5569. +      elsewhere in the compiler.  First check for constants out of range,
  5570. +      which could confuse us.  */
  5571. + 
  5572. +       if (INTVAL (operands[1]) >= 32768)
  5573. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5574. +                    INTVAL (operands[1]) - 65536);
  5575. + 
  5576. +       if (INTVAL (operands[1]) > 0
  5577. +       && INTVAL (operands[1]) <= 8)
  5578. +     return \"addq%.w %1,%0\";
  5579. +       if (INTVAL (operands[1]) < 0
  5580. +       && INTVAL (operands[1]) >= -8)
  5581. +     {
  5582. +       operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5583. +                      - INTVAL (operands[1]));
  5584. +       return \"subq%.w %1,%0\";
  5585. +     }
  5586. +       /* On everything except the 68000 it is faster to use two
  5587. +      addqw instructions to add a small integer (8 < N <= 16)
  5588. +      to an address register.  Likewise for subqw. */
  5589. +       if (INTVAL (operands[1]) > 8
  5590. +       && INTVAL (operands[1]) <= 16
  5591. +       && ADDRESS_REG_P (operands[0])
  5592. +       && TARGET_68020) 
  5593. +     {
  5594. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  5595. +       return \"addq%.w %#8,%0\;addq%.w %1,%0\";
  5596. +     }
  5597. +       if (INTVAL (operands[1]) < -8
  5598. +       && INTVAL (operands[1]) >= -16
  5599. +       && ADDRESS_REG_P (operands[0])
  5600. +       && TARGET_68020) 
  5601. +     {
  5602. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  5603. +                  - INTVAL (operands[1]) - 8);
  5604. +       return \"subq%.w %#8,%0\;subq%.w %1,%0\";
  5605. +     }
  5606. +     }
  5607. + #endif
  5608. +   return \"add%.w %1,%0\";
  5609. + }")
  5610. + 
  5611. + (define_insn ""
  5612. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  5613. +     (plus:HI (match_operand:HI 1 "general_operand" "dn,rmn")
  5614. +          (match_dup 0)))]
  5615. +   ""
  5616. +   "*
  5617. + {
  5618. + #ifndef NO_ADDSUB_Q
  5619. +   if (GET_CODE (operands[1]) == CONST_INT)
  5620. +     {
  5621. +       /* If the constant would be a negative number when interpreted as
  5622. +      HImode, make it negative.  This is usually, but not always, done
  5623. +      elsewhere in the compiler.  First check for constants out of range,
  5624. +      which could confuse us.  */
  5625. + 
  5626. +       if (INTVAL (operands[1]) >= 32768)
  5627. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5628. +                    INTVAL (operands[1]) - 65536);
  5629. + 
  5630. +       if (INTVAL (operands[1]) > 0
  5631. +       && INTVAL (operands[1]) <= 8)
  5632. +     return \"addq%.w %1,%0\";
  5633. +       if (INTVAL (operands[1]) < 0
  5634. +       && INTVAL (operands[1]) >= -8)
  5635. +     {
  5636. +       operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5637. +                      - INTVAL (operands[1]));
  5638. +       return \"subq%.w %1,%0\";
  5639. +     }
  5640. +       /* On everything except the 68000 it is faster to use two
  5641. +      addqw instructions to add a small integer (8 < N <= 16)
  5642. +      to an address register.  Likewise for subqw. */
  5643. +       if (INTVAL (operands[1]) > 8
  5644. +       && INTVAL (operands[1]) <= 16
  5645. +       && ADDRESS_REG_P (operands[0])
  5646. +       && TARGET_68020) 
  5647. +     {
  5648. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  5649. +       return \"addq%.w %#8,%0\;addq%.w %1,%0\";
  5650. +     }
  5651. +       if (INTVAL (operands[1]) < -8
  5652. +       && INTVAL (operands[1]) >= -16
  5653. +       && ADDRESS_REG_P (operands[0])
  5654. +       && TARGET_68020) 
  5655. +     {
  5656. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  5657. +                  - INTVAL (operands[1]) - 8);
  5658. +       return \"subq%.w %#8,%0\;subq%.w %1,%0\";
  5659. +     }
  5660. +     }
  5661. + #endif
  5662. +   return \"add%.w %1,%0\";
  5663. + }")
  5664. + 
  5665. + (define_insn "addqi3"
  5666. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  5667. +     (plus:QI (match_operand:QI 1 "general_operand" "%0,0")
  5668. +          (match_operand:QI 2 "general_operand" "dn,dmn")))]
  5669. +   ""
  5670. +   "*
  5671. + {
  5672. + #ifndef NO_ADDSUB_Q
  5673. +   if (GET_CODE (operands[2]) == CONST_INT)
  5674. +     {
  5675. +       if (INTVAL (operands[2]) >= 128)
  5676. +     operands[2] = gen_rtx (CONST_INT, VOIDmode,
  5677. +                    INTVAL (operands[2]) - 256);
  5678. + 
  5679. +       if (INTVAL (operands[2]) > 0
  5680. +       && INTVAL (operands[2]) <= 8)
  5681. +     return \"addq%.b %2,%0\";
  5682. +       if (INTVAL (operands[2]) < 0 && INTVAL (operands[2]) >= -8)
  5683. +        {
  5684. +      operands[2] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[2]));
  5685. +      return \"subq%.b %2,%0\";
  5686. +        }
  5687. +     }
  5688. + #endif
  5689. +   return \"add%.b %2,%0\";
  5690. + }")
  5691. + 
  5692. + (define_insn ""
  5693. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  5694. +     (plus:QI (match_dup 0)
  5695. +          (match_operand:QI 1 "general_operand" "dn,dmn")))]
  5696. +   ""
  5697. +   "*
  5698. + {
  5699. + #ifndef NO_ADDSUB_Q
  5700. +   if (GET_CODE (operands[1]) == CONST_INT)
  5701. +     {
  5702. +       if (INTVAL (operands[1]) >= 128)
  5703. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5704. +                    INTVAL (operands[1]) - 256);
  5705. + 
  5706. +       if (INTVAL (operands[1]) > 0
  5707. +       && INTVAL (operands[1]) <= 8)
  5708. +     return \"addq%.b %1,%0\";
  5709. +       if (INTVAL (operands[1]) < 0 && INTVAL (operands[1]) >= -8)
  5710. +        {
  5711. +      operands[1] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[1]));
  5712. +      return \"subq%.b %1,%0\";
  5713. +        }
  5714. +     }
  5715. + #endif
  5716. +   return \"add%.b %1,%0\";
  5717. + }")
  5718. + 
  5719. + (define_insn ""
  5720. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  5721. +     (plus:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  5722. +          (match_dup 0)))]
  5723. +   ""
  5724. +   "*
  5725. + {
  5726. + #ifndef NO_ADDSUB_Q
  5727. +   if (GET_CODE (operands[1]) == CONST_INT)
  5728. +     {
  5729. +       if (INTVAL (operands[1]) >= 128)
  5730. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  5731. +                    INTVAL (operands[1]) - 256);
  5732. + 
  5733. +       if (INTVAL (operands[1]) > 0
  5734. +       && INTVAL (operands[1]) <= 8)
  5735. +     return \"addq%.b %1,%0\";
  5736. +       if (INTVAL (operands[1]) < 0 && INTVAL (operands[1]) >= -8)
  5737. +        {
  5738. +      operands[1] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[1]));
  5739. +      return \"subq%.b %1,%0\";
  5740. +        }
  5741. +     }
  5742. + #endif
  5743. +   return \"add%.b %1,%0\";
  5744. + }")
  5745. + 
  5746. + (define_expand "adddf3"
  5747. +   [(set (match_operand:DF 0 "general_operand" "")
  5748. +     (plus:DF (match_operand:DF 1 "general_operand" "")
  5749. +          (match_operand:DF 2 "general_operand" "")))]
  5750. +   "TARGET_68881 || TARGET_FPA"
  5751. +   "")
  5752. + 
  5753. + (define_insn ""
  5754. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  5755. +     (plus:DF (match_operand:DF 1 "general_operand" "%xH,y")
  5756. +          (match_operand:DF 2 "general_operand" "xH,dmF")))]
  5757. +   "TARGET_FPA"
  5758. +   "*
  5759. + {
  5760. +   if (rtx_equal_p (operands[0], operands[1]))
  5761. +     return \"fpadd%.d %y2,%0\";
  5762. +   if (rtx_equal_p (operands[0], operands[2]))
  5763. +     return \"fpadd%.d %y1,%0\";
  5764. +   if (which_alternative == 0)
  5765. +     return \"fpadd3%.d %w2,%w1,%0\";
  5766. +   return \"fpadd3%.d %x2,%x1,%0\";
  5767. + }")
  5768. + 
  5769. + (define_insn ""
  5770. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5771. +     (plus:DF (match_operand:DF 1 "general_operand" "%0")
  5772. +          (match_operand:DF 2 "general_operand" "fmG")))]
  5773. +   "TARGET_68881"
  5774. +   "*
  5775. + {
  5776. +   if (REG_P (operands[2]))
  5777. +     return \"f%&add%.x %2,%0\";
  5778. +   return \"f%&add%.d %f2,%0\";
  5779. + }")
  5780. + 
  5781. + (define_expand "addsf3"
  5782. +   [(set (match_operand:SF 0 "general_operand" "")
  5783. +     (plus:SF (match_operand:SF 1 "general_operand" "")
  5784. +          (match_operand:SF 2 "general_operand" "")))]
  5785. +   "TARGET_68881 || TARGET_FPA"
  5786. +   "")
  5787. + 
  5788. + (define_insn ""
  5789. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  5790. +     (plus:SF (match_operand:SF 1 "general_operand" "%xH,y")
  5791. +          (match_operand:SF 2 "general_operand" "xH,rmF")))]
  5792. +   "TARGET_FPA"
  5793. +   "*
  5794. + {
  5795. +   if (rtx_equal_p (operands[0], operands[1]))
  5796. +     return \"fpadd%.s %w2,%0\";
  5797. +   if (rtx_equal_p (operands[0], operands[2]))
  5798. +     return \"fpadd%.s %w1,%0\";
  5799. +   if (which_alternative == 0)
  5800. +     return \"fpadd3%.s %w2,%w1,%0\";
  5801. +   return \"fpadd3%.s %2,%1,%0\";
  5802. + }")
  5803. + 
  5804. + (define_insn ""
  5805. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5806. +     (plus:SF (match_operand:SF 1 "general_operand" "%0")
  5807. +          (match_operand:SF 2 "general_operand" "fdmF")))]
  5808. +   "TARGET_68881"
  5809. +   "*
  5810. + {
  5811. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  5812. +     return \"f%$add%.x %2,%0\";
  5813. +   return \"f%$add%.s %f2,%0\";
  5814. + }")
  5815. + 
  5816. + ;; subtract instructions
  5817. + 
  5818. + (define_insn "subsi3"
  5819. +   [(set (match_operand:SI 0 "general_operand" "=m,r,!a,?d")
  5820. +     (minus:SI (match_operand:SI 1 "general_operand" "0,0,a,mrIKs")
  5821. +           (match_operand:SI 2 "general_operand" "dIKs,mrIKs,J,0")))]
  5822. +   ""
  5823. +   "*
  5824. + {
  5825. +   if (! operands_match_p (operands[0], operands[1]))
  5826. +     {
  5827. +       if (operands_match_p (operands[0], operands[2]))
  5828. +     {
  5829. + #ifndef NO_ADDSUB_Q
  5830. +       if (GET_CODE (operands[1]) == CONST_INT)
  5831. +         {
  5832. +           if (INTVAL (operands[1]) > 0
  5833. +           && INTVAL (operands[1]) <= 8)
  5834. +         return \"subq%.l %1,%0\;neg%.l %0\";
  5835. +         }
  5836. + #endif
  5837. +       return \"sub%.l %1,%0\;neg%.l %0\";
  5838. +     }
  5839. +       /* This case is matched by J, but negating -0x8000
  5840. +          in an lea would give an invalid displacement.
  5841. +      So do this specially.  */
  5842. +       if (INTVAL (operands[2]) == -0x8000)
  5843. +     return \"move%.l %1,%0\;sub%.l %2,%0\";
  5844. + #ifdef SGS
  5845. +       return \"lea %n2(%1),%0\";
  5846. + #else
  5847. + #ifdef MOTOROLA
  5848. +       return \"lea (%n2,%1),%0\";
  5849. + #else /* not MOTOROLA (MIT syntax) */
  5850. +       return \"lea %1@(%n2),%0\";
  5851. + #endif /* not MOTOROLA */
  5852. + #endif /* not SGS */
  5853. +     }
  5854. +   if (GET_CODE (operands[2]) == CONST_INT)
  5855. +     {
  5856. + #ifndef NO_ADDSUB_Q
  5857. +       if (INTVAL (operands[2]) > 0
  5858. +       && INTVAL (operands[2]) <= 8)
  5859. +     return \"subq%.l %2,%0\";
  5860. +       /* Using two subqw for 8 < N <= 16 being subtracted from an
  5861. +      address register is faster on all but 68000 */
  5862. +       if (INTVAL (operands[2]) > 8
  5863. +       && INTVAL (operands[2]) <= 16
  5864. +       && ADDRESS_REG_P (operands[0])
  5865. +       && TARGET_68020)
  5866. +     {
  5867. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  5868. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  5869. +     }
  5870. + #endif
  5871. +       if (ADDRESS_REG_P (operands[0])
  5872. +       && INTVAL (operands[2]) >= -0x8000
  5873. +       && INTVAL (operands[2]) < 0x8000)
  5874. +     return \"sub%.w %2,%0\";
  5875. +     }
  5876. +   return \"sub%.l %2,%0\";
  5877. + }")
  5878. + 
  5879. + (define_insn ""
  5880. +   [(set (match_operand:SI 0 "general_operand" "=a")
  5881. +     (minus:SI (match_operand:SI 1 "general_operand" "0")
  5882. +           (sign_extend:SI
  5883. +            (match_operand:HI 2 "nonimmediate_operand" "rm"))))]
  5884. +   ""
  5885. +   "sub%.w %2,%0")
  5886. + 
  5887. + (define_insn "subhi3"
  5888. +   [(set (match_operand:HI 0 "general_operand" "=m,r")
  5889. +     (minus:HI (match_operand:HI 1 "general_operand" "0,0")
  5890. +           (match_operand:HI 2 "general_operand" "dn,rmn")))]
  5891. +   ""
  5892. +   "sub%.w %2,%0")
  5893. + 
  5894. + (define_insn ""
  5895. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  5896. +     (minus:HI (match_dup 0)
  5897. +           (match_operand:HI 1 "general_operand" "dn,rmn")))]
  5898. +   ""
  5899. +   "sub%.w %1,%0")
  5900. + 
  5901. + (define_insn "subqi3"
  5902. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  5903. +     (minus:QI (match_operand:QI 1 "general_operand" "0,0")
  5904. +           (match_operand:QI 2 "general_operand" "dn,dmn")))]
  5905. +   ""
  5906. +   "sub%.b %2,%0")
  5907. + 
  5908. + (define_insn ""
  5909. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  5910. +     (minus:QI (match_dup 0)
  5911. +           (match_operand:QI 1 "general_operand" "dn,dmn")))]
  5912. +   ""
  5913. +   "sub%.b %1,%0")
  5914. + 
  5915. + (define_expand "subdf3"
  5916. +   [(set (match_operand:DF 0 "general_operand" "")
  5917. +     (minus:DF (match_operand:DF 1 "general_operand" "")
  5918. +           (match_operand:DF 2 "general_operand" "")))]
  5919. +   "TARGET_68881 || TARGET_FPA"
  5920. +   "")
  5921. + 
  5922. + (define_insn ""
  5923. +   [(set (match_operand:DF 0 "general_operand" "=x,y,y")
  5924. +     (minus:DF (match_operand:DF 1 "general_operand" "xH,y,dmF")
  5925. +           (match_operand:DF 2 "general_operand" "xH,dmF,0")))]
  5926. +   "TARGET_FPA"
  5927. +   "*
  5928. + {
  5929. +   if (rtx_equal_p (operands[0], operands[2]))
  5930. +     return \"fprsub%.d %y1,%0\";
  5931. +   if (rtx_equal_p (operands[0], operands[1]))
  5932. +     return \"fpsub%.d %y2,%0\";
  5933. +   if (which_alternative == 0)
  5934. +     return \"fpsub3%.d %w2,%w1,%0\";
  5935. +   return \"fpsub3%.d %x2,%x1,%0\";
  5936. + }")
  5937. + 
  5938. + (define_insn ""
  5939. +   [(set (match_operand:DF 0 "general_operand" "=f")
  5940. +     (minus:DF (match_operand:DF 1 "general_operand" "0")
  5941. +           (match_operand:DF 2 "general_operand" "fmG")))]
  5942. +   "TARGET_68881"
  5943. +   "*
  5944. + {
  5945. +   if (REG_P (operands[2]))
  5946. +     return \"f%&sub%.x %2,%0\";
  5947. +   return \"f%&sub%.d %f2,%0\";
  5948. + }")
  5949. + 
  5950. + (define_expand "subsf3"
  5951. +   [(set (match_operand:SF 0 "general_operand" "")
  5952. +     (minus:SF (match_operand:SF 1 "general_operand" "")
  5953. +           (match_operand:SF 2 "general_operand" "")))]
  5954. +   "TARGET_68881 || TARGET_FPA"
  5955. +   "")
  5956. + 
  5957. + (define_insn ""
  5958. +   [(set (match_operand:SF 0 "general_operand" "=x,y,y")
  5959. +     (minus:SF (match_operand:SF 1 "general_operand" "xH,y,rmF")
  5960. +           (match_operand:SF 2 "general_operand" "xH,rmF,0")))]
  5961. +   "TARGET_FPA"
  5962. +   "*
  5963. + {
  5964. +   if (rtx_equal_p (operands[0], operands[2]))
  5965. +     return \"fprsub%.s %w1,%0\";
  5966. +   if (rtx_equal_p (operands[0], operands[1]))
  5967. +     return \"fpsub%.s %w2,%0\";
  5968. +   if (which_alternative == 0)
  5969. +     return \"fpsub3%.s %w2,%w1,%0\";
  5970. +   return \"fpsub3%.s %2,%1,%0\";
  5971. + }")
  5972. + 
  5973. + (define_insn ""
  5974. +   [(set (match_operand:SF 0 "general_operand" "=f")
  5975. +     (minus:SF (match_operand:SF 1 "general_operand" "0")
  5976. +           (match_operand:SF 2 "general_operand" "fdmF")))]
  5977. +   "TARGET_68881"
  5978. +   "*
  5979. + {
  5980. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  5981. +     return \"f%$sub%.x %2,%0\";
  5982. +   return \"f%$sub%.s %f2,%0\";
  5983. + }")
  5984. + 
  5985. + ;; multiply instructions
  5986. + 
  5987. + (define_insn "mulhi3"
  5988. +   [(set (match_operand:HI 0 "general_operand" "=d")
  5989. +     (mult:HI (match_operand:HI 1 "general_operand" "%0")
  5990. +          (match_operand:HI 2 "general_operand" "dmn")))]
  5991. +   ""
  5992. +   "*
  5993. + {
  5994. + #if defined(MOTOROLA) && !defined(CRDS)
  5995. +   return \"muls%.w %2,%0\";
  5996. + #else
  5997. +   return \"muls %2,%0\";
  5998. + #endif
  5999. + }")
  6000. + 
  6001. + (define_insn "mulhisi3"
  6002. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6003. +     (mult:SI (sign_extend:SI
  6004. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  6005. +          (sign_extend:SI
  6006. +           (match_operand:HI 2 "nonimmediate_operand" "dm"))))]
  6007. +   ""
  6008. +   "*
  6009. + {
  6010. + #if defined(MOTOROLA) && !defined(CRDS)
  6011. +   return \"muls%.w %2,%0\";
  6012. + #else
  6013. +   return \"muls %2,%0\";
  6014. + #endif
  6015. + }")
  6016. + 
  6017. + (define_insn ""
  6018. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6019. +     (mult:SI (sign_extend:SI
  6020. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  6021. +          (match_operand:SI 2 "const_int_operand" "n")))]
  6022. +   "INTVAL (operands[2]) >= -0x8000 && INTVAL (operands[2]) <= 0x7fff"
  6023. +   "*
  6024. + {
  6025. + #if defined(MOTOROLA) && !defined(CRDS)
  6026. +   return \"muls%.w %2,%0\";
  6027. + #else
  6028. +   return \"muls %2,%0\";
  6029. + #endif
  6030. + }")
  6031. + 
  6032. + (define_insn "mulsi3"
  6033. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6034. +     (mult:SI (match_operand:SI 1 "general_operand" "%0")
  6035. +          (match_operand:SI 2 "general_operand" "dmsK")))]
  6036. +   "TARGET_68020"
  6037. +   "muls%.l %2,%0")
  6038. + 
  6039. + (define_insn "umulhisi3"
  6040. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6041. +     (mult:SI (zero_extend:SI
  6042. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  6043. +          (zero_extend:SI
  6044. +           (match_operand:HI 2 "nonimmediate_operand" "dm"))))]
  6045. +   ""
  6046. +   "*
  6047. + {
  6048. + #if defined(MOTOROLA) && !defined(CRDS)
  6049. +   return \"mulu%.w %2,%0\";
  6050. + #else
  6051. +   return \"mulu %2,%0\";
  6052. + #endif
  6053. + }")
  6054. + 
  6055. + (define_insn ""
  6056. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6057. +     (mult:SI (zero_extend:SI
  6058. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  6059. +          (match_operand:SI 2 "const_int_operand" "n")))]
  6060. +   "INTVAL (operands[2]) >= 0 && INTVAL (operands[2]) <= 0xffff"
  6061. +   "*
  6062. + {
  6063. + #if defined(MOTOROLA) && !defined(CRDS)
  6064. +   return \"mulu%.w %2,%0\";
  6065. + #else
  6066. +   return \"mulu %2,%0\";
  6067. + #endif
  6068. + }")
  6069. + 
  6070. + ;; We need a separate DEFINE_EXPAND for u?mulsidi3 to be able to use the
  6071. + ;; proper matching constraint.  This is because the matching is between
  6072. + ;; the high-numbered word of the DImode operand[0] and operand[1].
  6073. + (define_expand "umulsidi3"
  6074. +   [(parallel
  6075. +     [(set (subreg:SI (match_operand:DI 0 "register_operand" "") 1)
  6076. +       (mult:SI (match_operand:SI 1 "register_operand" "")
  6077. +            (match_operand:SI 2 "nonimmediate_operand" "")))
  6078. +      (set (subreg:SI (match_dup 0) 0)
  6079. +       (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  6080. +                          (zero_extend:DI (match_dup 2)))
  6081. +                     (const_int 32))))])]
  6082. +   "TARGET_68020"
  6083. +   "")
  6084. + 
  6085. + (define_insn ""
  6086. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6087. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  6088. +           (match_operand:SI 2 "nonimmediate_operand" "dm")))
  6089. +    (set (match_operand:SI 3 "register_operand" "=d")
  6090. +     (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  6091. +                        (zero_extend:DI (match_dup 2)))
  6092. +                   (const_int 32))))]
  6093. +   "TARGET_68020"
  6094. +   "mulu%.l %2,%3:%0")
  6095. + 
  6096. + ; Match immediate case.  For 2.4 only match things < 2^31.
  6097. + ; It's tricky with larger values in these patterns since we need to match
  6098. + ; values between the two parallel multiplies, between a CONST_DOUBLE and
  6099. + ; a CONST_INT.
  6100. + (define_insn ""
  6101. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6102. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  6103. +          (match_operand:SI 2 "const_int_operand" "n")))
  6104. +    (set (match_operand:SI 3 "register_operand" "=d")
  6105. +     (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  6106. +                        (match_dup 2))
  6107. +                   (const_int 32))))]
  6108. +   "TARGET_68020
  6109. +    && (unsigned) INTVAL (operands[2]) <= 0x7fffffff"
  6110. +   "mulu%.l %2,%3:%0")
  6111. + 
  6112. + (define_expand "mulsidi3"
  6113. +   [(parallel
  6114. +     [(set (subreg:SI (match_operand:DI 0 "register_operand" "") 1)
  6115. +       (mult:SI (match_operand:SI 1 "register_operand" "")
  6116. +            (match_operand:SI 2 "nonimmediate_operand" "")))
  6117. +      (set (subreg:SI (match_dup 0) 0)
  6118. +       (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  6119. +                          (sign_extend:DI (match_dup 2)))
  6120. +                     (const_int 32))))])]
  6121. +   "TARGET_68020"
  6122. +   "")
  6123. + 
  6124. + (define_insn ""
  6125. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6126. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  6127. +          (match_operand:SI 2 "nonimmediate_operand" "dm")))
  6128. +    (set (match_operand:SI 3 "register_operand" "=d")
  6129. +     (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  6130. +                        (sign_extend:DI (match_dup 2)))
  6131. +                   (const_int 32))))]
  6132. +   "TARGET_68020"
  6133. +   "muls%.l %2,%3:%0")
  6134. + 
  6135. + (define_insn ""
  6136. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6137. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  6138. +          (match_operand:SI 2 "const_int_operand" "n")))
  6139. +    (set (match_operand:SI 3 "register_operand" "=d")
  6140. +     (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  6141. +                        (match_dup 2))
  6142. +                   (const_int 32))))]
  6143. +   "TARGET_68020
  6144. +    /* This test is a noop on 32 bit machines,
  6145. +       but important for a cross-compiler hosted on 64-bit machines.  */
  6146. +    && INTVAL (operands[2]) <= 0x7fffffff
  6147. +    && INTVAL (operands[2]) >= -0x80000000"
  6148. +   "muls%.l %2,%3:%0")
  6149. + 
  6150. + (define_expand "muldf3"
  6151. +   [(set (match_operand:DF 0 "general_operand" "")
  6152. +     (mult:DF (match_operand:DF 1 "general_operand" "")
  6153. +          (match_operand:DF 2 "general_operand" "")))]
  6154. +   "TARGET_68881 || TARGET_FPA"
  6155. +   "")
  6156. + 
  6157. + (define_insn ""
  6158. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  6159. +     (mult:DF (match_operand:DF 1 "general_operand" "%xH,y")
  6160. +          (match_operand:DF 2 "general_operand" "xH,rmF")))]
  6161. +   "TARGET_FPA"
  6162. +   "*
  6163. + {
  6164. +   if (rtx_equal_p (operands[1], operands[2]))
  6165. +     return \"fpsqr%.d %y1,%0\";
  6166. +   if (rtx_equal_p (operands[0], operands[1]))
  6167. +     return \"fpmul%.d %y2,%0\";
  6168. +   if (rtx_equal_p (operands[0], operands[2]))
  6169. +     return \"fpmul%.d %y1,%0\";
  6170. +   if (which_alternative == 0)
  6171. +     return \"fpmul3%.d %w2,%w1,%0\";
  6172. +   return \"fpmul3%.d %x2,%x1,%0\";
  6173. + }")
  6174. + 
  6175. + (define_insn ""
  6176. +   [(set (match_operand:DF 0 "general_operand" "=f")
  6177. +     (mult:DF (match_operand:DF 1 "general_operand" "%0")
  6178. +          (match_operand:DF 2 "general_operand" "fmG")))]
  6179. +   "TARGET_68881"
  6180. +   "*
  6181. + {
  6182. +   if (GET_CODE (operands[2]) == CONST_DOUBLE
  6183. +       && floating_exact_log2 (operands[2]) && !TARGET_68040)
  6184. +     {
  6185. +       int i = floating_exact_log2 (operands[2]);
  6186. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, i);
  6187. +       return \"fscale%.l %2,%0\";
  6188. +     }
  6189. +   if (REG_P (operands[2]))
  6190. +     return \"f%&mul%.x %2,%0\";
  6191. +   return \"f%&mul%.d %f2,%0\";
  6192. + }")
  6193. + 
  6194. + (define_expand "mulsf3"
  6195. +   [(set (match_operand:SF 0 "general_operand" "")
  6196. +     (mult:SF (match_operand:SF 1 "general_operand" "")
  6197. +          (match_operand:SF 2 "general_operand" "")))]
  6198. +   "TARGET_68881 || TARGET_FPA"
  6199. +   "")
  6200. + 
  6201. + (define_insn ""
  6202. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  6203. +     (mult:SF (match_operand:SF 1 "general_operand" "%xH,y")
  6204. +          (match_operand:SF 2 "general_operand" "xH,rmF")))]
  6205. +   "TARGET_FPA"
  6206. +   "*
  6207. + {
  6208. +   if (rtx_equal_p (operands[1], operands[2]))
  6209. +     return \"fpsqr%.s %w1,%0\";
  6210. +   if (rtx_equal_p (operands[0], operands[1]))
  6211. +     return \"fpmul%.s %w2,%0\";
  6212. +   if (rtx_equal_p (operands[0], operands[2]))
  6213. +     return \"fpmul%.s %w1,%0\";
  6214. +   if (which_alternative == 0)
  6215. +     return \"fpmul3%.s %w2,%w1,%0\";
  6216. +   return \"fpmul3%.s %2,%1,%0\";
  6217. + }")
  6218. + 
  6219. + (define_insn ""
  6220. +   [(set (match_operand:SF 0 "general_operand" "=f")
  6221. +     (mult:SF (match_operand:SF 1 "general_operand" "%0")
  6222. +          (match_operand:SF 2 "general_operand" "fdmF")))]
  6223. +   "TARGET_68881"
  6224. +   "*
  6225. + {
  6226. + #ifdef FSGLMUL_USE_S
  6227. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  6228. +     return (TARGET_68040_ONLY
  6229. +         ? \"fsmul%.s %2,%0\"
  6230. +         : \"fsglmul%.s %2,%0\");
  6231. + #else
  6232. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  6233. +     return (TARGET_68040_ONLY
  6234. +         ? \"fsmul%.x %2,%0\"
  6235. +         : \"fsglmul%.x %2,%0\");
  6236. + #endif
  6237. +   return (TARGET_68040_ONLY
  6238. +       ? \"fsmul%.s %f2,%0\"
  6239. +       : \"fsglmul%.s %f2,%0\");
  6240. + }")
  6241. + 
  6242. + ;; divide instructions
  6243. + 
  6244. + (define_insn "divhi3"
  6245. +   [(set (match_operand:HI 0 "general_operand" "=d")
  6246. +     (div:HI (match_operand:HI 1 "general_operand" "0")
  6247. +         (match_operand:HI 2 "general_operand" "dmn")))]
  6248. +   ""
  6249. +   "*
  6250. + {
  6251. + #ifdef MOTOROLA
  6252. +   return \"ext%.l %0\;divs%.w %2,%0\";
  6253. + #else
  6254. +   return \"extl %0\;divs %2,%0\";
  6255. + #endif
  6256. + }")
  6257. + 
  6258. + ;; These patterns don't work because the divs instruction is undefined if
  6259. + ;; the quotient is more than 16 bits.  This valid C would be miscompiled:
  6260. + ;; int n; short d; unsigned short q; ... q = (unsigned int) (n / d);
  6261. + ;; Imagine what happens when n = 100000 and d = 1.
  6262. + ;;(define_insn "divhisi3"
  6263. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6264. + ;;    (truncate:HI
  6265. + ;;     (div:SI
  6266. + ;;      (match_operand:SI 1 "general_operand" "0")
  6267. + ;;      (sign_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  6268. + ;;  ""
  6269. + ;;  "*
  6270. + ;;{
  6271. + ;;#ifdef MOTOROLA
  6272. + ;;  return \"divs%.w %2,%0\";
  6273. + ;;#else
  6274. + ;;  return \"divs %2,%0\";
  6275. + ;;#endif
  6276. + ;;}")
  6277. + 
  6278. + ;;(define_insn ""
  6279. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6280. + ;;    (truncate:HI (div:SI (match_operand:SI 1 "general_operand" "0")
  6281. + ;;                 (match_operand:SI 2 "const_int_operand" "n"))))]
  6282. + ;;  ""
  6283. + ;;  "*
  6284. + ;;{
  6285. + ;;#ifdef MOTOROLA
  6286. + ;;  return \"divs%.w %2,%0\";
  6287. + ;;#else
  6288. + ;;  return \"divs %2,%0\";
  6289. + ;;#endif
  6290. + ;;}")
  6291. + 
  6292. + (define_insn "udivhi3"
  6293. +   [(set (match_operand:HI 0 "general_operand" "=d")
  6294. +     (udiv:HI (match_operand:HI 1 "general_operand" "0")
  6295. +          (match_operand:HI 2 "general_operand" "dmn")))]
  6296. +   ""
  6297. +   "*
  6298. + {
  6299. + #ifdef MOTOROLA
  6300. +   return \"and%.l %#0xFFFF,%0\;divu%.w %2,%0\";
  6301. + #else
  6302. +   return \"andl %#0xFFFF,%0\;divu %2,%0\";
  6303. + #endif
  6304. + }")
  6305. + 
  6306. + ;; See comment before divhisi3 why these are commented out.
  6307. + ;;(define_insn "udivhisi3"
  6308. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6309. + ;;    (truncate:HI
  6310. + ;;     (udiv:SI
  6311. + ;;      (match_operand:SI 1 "general_operand" "0")
  6312. + ;;      (zero_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  6313. + ;;  ""
  6314. + ;;  "*
  6315. + ;;{
  6316. + ;;#ifdef MOTOROLA
  6317. + ;;  return \"divu%.w %2,%0\";
  6318. + ;;#else
  6319. + ;;  return \"divu %2,%0\";
  6320. + ;;#endif
  6321. + ;;}")
  6322. + 
  6323. + ;;(define_insn ""
  6324. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6325. + ;;    (truncate:HI (udiv:SI (match_operand:SI 1 "general_operand" "0")
  6326. + ;;                  (match_operand:SI 2 "const_int_operand" "n"))))]
  6327. + ;;  ""
  6328. + ;;  "*
  6329. + ;;{
  6330. + ;;#ifdef MOTOROLA
  6331. + ;;  return \"divu%.w %2,%0\";
  6332. + ;;#else
  6333. + ;;  return \"divu %2,%0\";
  6334. + ;;#endif
  6335. + ;;}")
  6336. + 
  6337. + (define_expand "divdf3"
  6338. +   [(set (match_operand:DF 0 "general_operand" "")
  6339. +     (div:DF (match_operand:DF 1 "general_operand" "")
  6340. +         (match_operand:DF 2 "general_operand" "")))]
  6341. +   "TARGET_68881 || TARGET_FPA"
  6342. +   "")
  6343. + 
  6344. + (define_insn ""
  6345. +   [(set (match_operand:DF 0 "general_operand" "=x,y,y")
  6346. +     (div:DF (match_operand:DF 1 "general_operand" "xH,y,rmF")
  6347. +         (match_operand:DF 2 "general_operand" "xH,rmF,0")))]
  6348. +   "TARGET_FPA"
  6349. +   "*
  6350. + {
  6351. +   if (rtx_equal_p (operands[0], operands[2]))
  6352. +     return \"fprdiv%.d %y1,%0\";
  6353. +   if (rtx_equal_p (operands[0], operands[1]))
  6354. +     return \"fpdiv%.d %y2,%0\";
  6355. +   if (which_alternative == 0)
  6356. +     return \"fpdiv3%.d %w2,%w1,%0\";
  6357. +   return \"fpdiv3%.d %x2,%x1,%x0\";
  6358. + }")
  6359. + 
  6360. + (define_insn ""
  6361. +   [(set (match_operand:DF 0 "general_operand" "=f")
  6362. +     (div:DF (match_operand:DF 1 "general_operand" "0")
  6363. +         (match_operand:DF 2 "general_operand" "fmG")))]
  6364. +   "TARGET_68881"
  6365. +   "*
  6366. + {
  6367. +   if (REG_P (operands[2]))
  6368. +     return \"f%&div%.x %2,%0\";
  6369. +   return \"f%&div%.d %f2,%0\";
  6370. + }")
  6371. + 
  6372. + (define_expand "divsf3"
  6373. +   [(set (match_operand:SF 0 "general_operand" "")
  6374. +     (div:SF (match_operand:SF 1 "general_operand" "")
  6375. +         (match_operand:SF 2 "general_operand" "")))]
  6376. +   "TARGET_68881 || TARGET_FPA"
  6377. +   "")
  6378. + 
  6379. + (define_insn ""
  6380. +   [(set (match_operand:SF 0 "general_operand" "=x,y,y")
  6381. +     (div:SF (match_operand:SF 1 "general_operand" "xH,y,rmF")
  6382. +         (match_operand:SF 2 "general_operand" "xH,rmF,0")))]
  6383. +   "TARGET_FPA"
  6384. +   "*
  6385. + {
  6386. +   if (rtx_equal_p (operands[0], operands[1]))
  6387. +     return \"fpdiv%.s %w2,%0\";
  6388. +   if (rtx_equal_p (operands[0], operands[2]))
  6389. +     return \"fprdiv%.s %w1,%0\";
  6390. +   if (which_alternative == 0)
  6391. +     return \"fpdiv3%.s %w2,%w1,%0\";
  6392. +   return \"fpdiv3%.s %2,%1,%0\";
  6393. + }")
  6394. + 
  6395. + (define_insn ""
  6396. +   [(set (match_operand:SF 0 "general_operand" "=f")
  6397. +     (div:SF (match_operand:SF 1 "general_operand" "0")
  6398. +         (match_operand:SF 2 "general_operand" "fdmF")))]
  6399. +   "TARGET_68881"
  6400. +   "*
  6401. + {
  6402. + #ifdef FSGLDIV_USE_S
  6403. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  6404. +     return (TARGET_68040_ONLY
  6405. +         ? \"fsdiv%.s %2,%0\"
  6406. +         : \"fsgldiv%.s %2,%0\");
  6407. + #else
  6408. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  6409. +     return (TARGET_68040_ONLY
  6410. +         ? \"fsdiv%.x %2,%0\"
  6411. +         : \"fsgldiv%.x %2,%0\");
  6412. + #endif
  6413. +   return (TARGET_68040_ONLY
  6414. +       ? \"fsdiv%.s %f2,%0\"
  6415. +       : \"fsgldiv%.s %f2,%0\");
  6416. + }")
  6417. + 
  6418. + ;; Remainder instructions.
  6419. + 
  6420. + (define_insn "modhi3"
  6421. +   [(set (match_operand:HI 0 "general_operand" "=d")
  6422. +     (mod:HI (match_operand:HI 1 "general_operand" "0")
  6423. +         (match_operand:HI 2 "general_operand" "dmn")))]
  6424. +   ""
  6425. +   "*
  6426. + {
  6427. +   /* The swap insn produces cc's that don't correspond to the result.  */
  6428. +   CC_STATUS_INIT;
  6429. + #ifdef MOTOROLA
  6430. +   return \"ext%.l %0\;divs%.w %2,%0\;swap %0\";
  6431. + #else
  6432. +   return \"extl %0\;divs %2,%0\;swap %0\";
  6433. + #endif
  6434. + }")
  6435. + 
  6436. + ;; See comment before divhisi3 why these are commented out.
  6437. + ;;(define_insn "modhisi3"
  6438. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6439. + ;;    (truncate:HI
  6440. + ;;     (mod:SI
  6441. + ;;      (match_operand:SI 1 "general_operand" "0")
  6442. + ;;      (sign_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  6443. + ;;  ""
  6444. + ;;  "*
  6445. + ;;{
  6446. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  6447. + ;;  CC_STATUS_INIT;
  6448. + ;;#ifdef MOTOROLA
  6449. + ;;  return \"divs%.w %2,%0\;swap %0\";
  6450. + ;;#else
  6451. + ;;  return \"divs %2,%0\;swap %0\";
  6452. + ;;#endif
  6453. + ;;}")
  6454. + 
  6455. + ;;(define_insn ""
  6456. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6457. + ;;    (truncate:HI (mod:SI (match_operand:SI 1 "general_operand" "0")
  6458. + ;;                 (match_operand:SI 2 "const_int_operand" "n"))))]
  6459. + ;;  ""
  6460. + ;;  "*
  6461. + ;;{
  6462. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  6463. + ;;  CC_STATUS_INIT;
  6464. + ;;#ifdef MOTOROLA
  6465. + ;;  return \"divs%.w %2,%0\;swap %0\";
  6466. + ;;#else
  6467. + ;;  return \"divs %2,%0\;swap %0\";
  6468. + ;;#endif
  6469. + ;;}")
  6470. + 
  6471. + (define_insn "umodhi3"
  6472. +   [(set (match_operand:HI 0 "general_operand" "=d")
  6473. +     (umod:HI (match_operand:HI 1 "general_operand" "0")
  6474. +          (match_operand:HI 2 "general_operand" "dmn")))]
  6475. +   ""
  6476. +   "*
  6477. + {
  6478. +   /* The swap insn produces cc's that don't correspond to the result.  */
  6479. +   CC_STATUS_INIT;
  6480. + #ifdef MOTOROLA
  6481. +   return \"and%.l %#0xFFFF,%0\;divu%.w %2,%0\;swap %0\";
  6482. + #else
  6483. +   return \"andl %#0xFFFF,%0\;divu %2,%0\;swap %0\";
  6484. + #endif
  6485. + }")
  6486. + 
  6487. + ;; See comment before divhisi3 why these are commented out.
  6488. + ;;(define_insn "umodhisi3"
  6489. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6490. + ;;    (truncate:HI
  6491. + ;;     (umod:SI
  6492. + ;;      (match_operand:SI 1 "general_operand" "0")
  6493. + ;;      (zero_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  6494. + ;;  ""
  6495. + ;;  "*
  6496. + ;;{
  6497. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  6498. + ;;  CC_STATUS_INIT;
  6499. + ;;#ifdef MOTOROLA
  6500. + ;;  return \"divu%.w %2,%0\;swap %0\";
  6501. + ;;#else
  6502. + ;;  return \"divu %2,%0\;swap %0\";
  6503. + ;;#endif
  6504. + ;;}")
  6505. + 
  6506. + ;;(define_insn ""
  6507. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  6508. + ;;    (truncate:HI (umod:SI (match_operand:SI 1 "general_operand" "0")
  6509. + ;;                  (match_operand:SI 2 "const_int_operand" "n"))))]
  6510. + ;;  ""
  6511. + ;;  "*
  6512. + ;;{
  6513. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  6514. + ;;  CC_STATUS_INIT;
  6515. + ;;#ifdef MOTOROLA
  6516. + ;;  return \"divu%.w %2,%0\;swap %0\";
  6517. + ;;#else
  6518. + ;;  return \"divu %2,%0\;swap %0\";
  6519. + ;;#endif
  6520. + ;;}")
  6521. + 
  6522. + (define_insn "divmodsi4"
  6523. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6524. +     (div:SI (match_operand:SI 1 "general_operand" "0")
  6525. +         (match_operand:SI 2 "general_operand" "dmsK")))
  6526. +    (set (match_operand:SI 3 "general_operand" "=d")
  6527. +     (mod:SI (match_dup 1) (match_dup 2)))]
  6528. +   "TARGET_68020"
  6529. +   "*
  6530. + {
  6531. +   if (find_reg_note (insn, REG_UNUSED, operands[3]))
  6532. +     return \"divs%.l %2,%0\";
  6533. +   else
  6534. +     return \"divsl%.l %2,%3:%0\";
  6535. + }")
  6536. + 
  6537. + (define_insn "udivmodsi4"
  6538. +   [(set (match_operand:SI 0 "general_operand" "=d")
  6539. +     (udiv:SI (match_operand:SI 1 "general_operand" "0")
  6540. +          (match_operand:SI 2 "general_operand" "dmsK")))
  6541. +    (set (match_operand:SI 3 "general_operand" "=d")
  6542. +     (umod:SI (match_dup 1) (match_dup 2)))]
  6543. +   "TARGET_68020"
  6544. +   "*
  6545. + {
  6546. +   if (find_reg_note (insn, REG_UNUSED, operands[3]))
  6547. +     return \"divu%.l %2,%0\";
  6548. +   else
  6549. +     return \"divul%.l %2,%3:%0\";
  6550. + }")
  6551. + 
  6552. + ;; logical-and instructions
  6553. + 
  6554. + ;; Prevent AND from being made with sp.  This doesn't exist in the machine
  6555. + ;; and reload will cause inefficient code.  Since sp is a FIXED_REG, we
  6556. + ;; can't allocate pseudos into it.
  6557. + (define_insn "andsi3"
  6558. +   [(set (match_operand:SI 0 "not_sp_operand" "=m,d")
  6559. +     (and:SI (match_operand:SI 1 "general_operand" "%0,0")
  6560. +         (match_operand:SI 2 "general_operand" "dKs,dmKs")))]
  6561. +   ""
  6562. +   "*
  6563. + {
  6564. +   int logval;
  6565. +   if (GET_CODE (operands[2]) == CONST_INT
  6566. +       && (INTVAL (operands[2]) | 0xffff) == 0xffffffff
  6567. +       && (DATA_REG_P (operands[0])
  6568. +       || offsettable_memref_p (operands[0])))
  6569. +     { 
  6570. +       if (GET_CODE (operands[0]) != REG)
  6571. +         operands[0] = adj_offsettable_operand (operands[0], 2);
  6572. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  6573. +                  INTVAL (operands[2]) & 0xffff);
  6574. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  6575. +       CC_STATUS_INIT;
  6576. +       if (operands[2] == const0_rtx)
  6577. +         return \"clr%.w %0\";
  6578. +       return \"and%.w %2,%0\";
  6579. +     }
  6580. +   if (GET_CODE (operands[2]) == CONST_INT
  6581. +       && (logval = exact_log2 (~ INTVAL (operands[2]))) >= 0
  6582. +       && (DATA_REG_P (operands[0])
  6583. +           || offsettable_memref_p (operands[0])))
  6584. +     { 
  6585. +       if (DATA_REG_P (operands[0]))
  6586. +         {
  6587. +           operands[1] = gen_rtx (CONST_INT, VOIDmode, logval);
  6588. +         }
  6589. +       else
  6590. +         {
  6591. +           operands[0] = adj_offsettable_operand (operands[0], 3 - (logval / 8));          operands[1] = gen_rtx (CONST_INT, VOIDmode, logval % 8);
  6592. +         }
  6593. +       /* This does not set condition codes in a standard way.  */
  6594. +       CC_STATUS_INIT;
  6595. +       return \"bclr %1,%0\";
  6596. +     }
  6597. +   return \"and%.l %2,%0\";
  6598. + }")
  6599. + 
  6600. + (define_insn "andhi3"
  6601. +   [(set (match_operand:HI 0 "general_operand" "=m,d")
  6602. +     (and:HI (match_operand:HI 1 "general_operand" "%0,0")
  6603. +         (match_operand:HI 2 "general_operand" "dn,dmn")))]
  6604. +   ""
  6605. +   "and%.w %2,%0")
  6606. + 
  6607. + (define_insn ""
  6608. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  6609. +     (and:HI (match_dup 0)
  6610. +         (match_operand:HI 1 "general_operand" "dn,dmn")))]
  6611. +   ""
  6612. +   "and%.w %1,%0")
  6613. + 
  6614. + (define_insn ""
  6615. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  6616. +     (and:HI (match_operand:HI 1 "general_operand" "dn,dmn")
  6617. +         (match_dup 0)))]
  6618. +   ""
  6619. +   "and%.w %1,%0")
  6620. + 
  6621. + (define_insn "andqi3"
  6622. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  6623. +     (and:QI (match_operand:QI 1 "general_operand" "%0,0")
  6624. +         (match_operand:QI 2 "general_operand" "dn,dmn")))]
  6625. +   ""
  6626. +   "and%.b %2,%0")
  6627. + 
  6628. + (define_insn ""
  6629. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  6630. +     (and:QI (match_dup 0)
  6631. +         (match_operand:QI 1 "general_operand" "dn,dmn")))]
  6632. +   ""
  6633. +   "and%.b %1,%0")
  6634. + 
  6635. + (define_insn ""
  6636. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  6637. +     (and:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  6638. +         (match_dup 0)))]
  6639. +   ""
  6640. +   "and%.b %1,%0")
  6641. + 
  6642. + ;; inclusive-or instructions
  6643. + 
  6644. + (define_insn "iorsi3"
  6645. +   [(set (match_operand:SI 0 "general_operand" "=m,d")
  6646. +     (ior:SI (match_operand:SI 1 "general_operand" "%0,0")
  6647. +         (match_operand:SI 2 "general_operand" "dKs,dmKs")))]
  6648. +   ""
  6649. +   "*
  6650. + {
  6651. +   register int logval;
  6652. +   if (GET_CODE (operands[2]) == CONST_INT
  6653. +       && INTVAL (operands[2]) >> 16 == 0
  6654. +       && (DATA_REG_P (operands[0])
  6655. +       || offsettable_memref_p (operands[0])))
  6656. +     { 
  6657. +       if (GET_CODE (operands[0]) != REG)
  6658. +         operands[0] = adj_offsettable_operand (operands[0], 2);
  6659. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  6660. +       CC_STATUS_INIT;
  6661. +       return \"or%.w %2,%0\";
  6662. +     }
  6663. +   if (GET_CODE (operands[2]) == CONST_INT
  6664. +       && (logval = exact_log2 (INTVAL (operands[2]))) >= 0
  6665. +       && (DATA_REG_P (operands[0])
  6666. +       || offsettable_memref_p (operands[0])))
  6667. +     { 
  6668. +       if (DATA_REG_P (operands[0]))
  6669. +     {
  6670. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, logval);
  6671. +     }
  6672. +       else
  6673. +         {
  6674. +       operands[0] = adj_offsettable_operand (operands[0], 3 - (logval / 8));
  6675. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, logval % 8);
  6676. +     }
  6677. +       CC_STATUS_INIT;
  6678. +       return \"bset %1,%0\";
  6679. +     }
  6680. +   return \"or%.l %2,%0\";
  6681. + }")
  6682. + 
  6683. + (define_insn "iorhi3"
  6684. +   [(set (match_operand:HI 0 "general_operand" "=m,d")
  6685. +     (ior:HI (match_operand:HI 1 "general_operand" "%0,0")
  6686. +         (match_operand:HI 2 "general_operand" "dn,dmn")))]
  6687. +   ""
  6688. +   "or%.w %2,%0")
  6689. + 
  6690. + (define_insn ""
  6691. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  6692. +     (ior:HI (match_dup 0)
  6693. +         (match_operand:HI 1 "general_operand" "dn,dmn")))]
  6694. +   ""
  6695. +   "or%.w %1,%0")
  6696. + 
  6697. + (define_insn ""
  6698. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  6699. +     (ior:HI (match_operand:HI 1 "general_operand" "dn,dmn")
  6700. +         (match_dup 0)))]
  6701. +   ""
  6702. +   "or%.w %1,%0")
  6703. + 
  6704. + (define_insn "iorqi3"
  6705. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  6706. +     (ior:QI (match_operand:QI 1 "general_operand" "%0,0")
  6707. +         (match_operand:QI 2 "general_operand" "dn,dmn")))]
  6708. +   ""
  6709. +   "or%.b %2,%0")
  6710. + 
  6711. + (define_insn ""
  6712. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  6713. +     (ior:QI (match_dup 0)
  6714. +         (match_operand:QI 1 "general_operand" "dn,dmn")))]
  6715. +   ""
  6716. +   "or%.b %1,%0")
  6717. + 
  6718. + (define_insn ""
  6719. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  6720. +     (ior:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  6721. +         (match_dup 0)))]
  6722. +   ""
  6723. +   "or%.b %1,%0")
  6724. + 
  6725. + ;; xor instructions
  6726. + 
  6727. + (define_insn "xorsi3"
  6728. +   [(set (match_operand:SI 0 "general_operand" "=do,m")
  6729. +     (xor:SI (match_operand:SI 1 "general_operand" "%0,0")
  6730. +         (match_operand:SI 2 "general_operand" "di,dKs")))]
  6731. +   ""
  6732. +   "*
  6733. + {
  6734. +   if (GET_CODE (operands[2]) == CONST_INT
  6735. +       && INTVAL (operands[2]) >> 16 == 0
  6736. +       && (offsettable_memref_p (operands[0]) || DATA_REG_P (operands[0])))
  6737. +     { 
  6738. +       if (! DATA_REG_P (operands[0]))
  6739. +     operands[0] = adj_offsettable_operand (operands[0], 2);
  6740. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  6741. +       CC_STATUS_INIT;
  6742. +       return \"eor%.w %2,%0\";
  6743. +     }
  6744. +   return \"eor%.l %2,%0\";
  6745. + }")
  6746. + 
  6747. + (define_insn "xorhi3"
  6748. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  6749. +     (xor:HI (match_operand:HI 1 "general_operand" "%0")
  6750. +         (match_operand:HI 2 "general_operand" "dn")))]
  6751. +   ""
  6752. +   "eor%.w %2,%0")
  6753. + 
  6754. + (define_insn ""
  6755. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  6756. +     (xor:HI (match_dup 0)
  6757. +         (match_operand:HI 1 "general_operand" "dn")))]
  6758. +   ""
  6759. +   "eor%.w %1,%0")
  6760. + 
  6761. + 
  6762. + (define_insn ""
  6763. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  6764. +     (xor:HI (match_operand:HI 1 "general_operand" "dn")
  6765. +         (match_dup 0)))]
  6766. +   ""
  6767. +   "eor%.w %1,%0")
  6768. + 
  6769. + (define_insn "xorqi3"
  6770. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  6771. +     (xor:QI (match_operand:QI 1 "general_operand" "%0")
  6772. +         (match_operand:QI 2 "general_operand" "dn")))]
  6773. +   ""
  6774. +   "eor%.b %2,%0")
  6775. + 
  6776. + (define_insn ""
  6777. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  6778. +     (xor:QI (match_dup 0)
  6779. +         (match_operand:QI 1 "general_operand" "dn")))]
  6780. +   ""
  6781. +   "eor%.b %1,%0")
  6782. + 
  6783. + (define_insn ""
  6784. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  6785. +     (xor:QI (match_operand:QI 1 "general_operand" "dn")
  6786. +         (match_dup 0)))]
  6787. +   ""
  6788. +   "eor%.b %1,%0")
  6789. + 
  6790. + ;; negation instructions
  6791. + 
  6792. + (define_insn "negsi2"
  6793. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  6794. +     (neg:SI (match_operand:SI 1 "general_operand" "0")))]
  6795. +   ""
  6796. +   "neg%.l %0")
  6797. + 
  6798. + (define_insn "neghi2"
  6799. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  6800. +     (neg:HI (match_operand:HI 1 "general_operand" "0")))]
  6801. +   ""
  6802. +   "neg%.w %0")
  6803. + 
  6804. + (define_insn ""
  6805. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  6806. +     (neg:HI (match_dup 0)))]
  6807. +   ""
  6808. +   "neg%.w %0")
  6809. + 
  6810. + (define_insn "negqi2"
  6811. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  6812. +     (neg:QI (match_operand:QI 1 "general_operand" "0")))]
  6813. +   ""
  6814. +   "neg%.b %0")
  6815. + 
  6816. + (define_insn ""
  6817. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  6818. +     (neg:QI (match_dup 0)))]
  6819. +   ""
  6820. +   "neg%.b %0")
  6821. + 
  6822. + (define_expand "negsf2"
  6823. +   [(set (match_operand:SF 0 "general_operand" "")
  6824. +     (neg:SF (match_operand:SF 1 "general_operand" "")))]
  6825. +   "TARGET_68881 || TARGET_FPA"
  6826. +   "")
  6827. + 
  6828. + (define_insn ""
  6829. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  6830. +     (neg:SF (match_operand:SF 1 "general_operand" "xH,rmF")))]
  6831. +   "TARGET_FPA"
  6832. +   "fpneg%.s %w1,%0")
  6833. + 
  6834. + (define_insn ""
  6835. +   [(set (match_operand:SF 0 "general_operand" "=f,d")
  6836. +     (neg:SF (match_operand:SF 1 "general_operand" "fdmF,0")))]
  6837. +   "TARGET_68881"
  6838. +   "*
  6839. + {
  6840. +   if (DATA_REG_P (operands[0]))
  6841. +     {
  6842. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 31);
  6843. +       return \"bchg %1,%0\";
  6844. +     }
  6845. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  6846. +     return \"f%$neg%.x %1,%0\";
  6847. +   return \"f%$neg%.s %f1,%0\";
  6848. + }")
  6849. + 
  6850. + (define_expand "negdf2"
  6851. +   [(set (match_operand:DF 0 "general_operand" "")
  6852. +     (neg:DF (match_operand:DF 1 "general_operand" "")))]
  6853. +   "TARGET_68881 || TARGET_FPA"
  6854. +   "")
  6855. + 
  6856. + (define_insn ""
  6857. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  6858. +     (neg:DF (match_operand:DF 1 "general_operand" "xH,rmF")))]
  6859. +   "TARGET_FPA"
  6860. +   "fpneg%.d %y1, %0")
  6861. + 
  6862. + (define_insn ""
  6863. +   [(set (match_operand:DF 0 "general_operand" "=f,d")
  6864. +     (neg:DF (match_operand:DF 1 "general_operand" "fmF,0")))]
  6865. +   "TARGET_68881"
  6866. +   "*
  6867. + {
  6868. +   if (DATA_REG_P (operands[0]))
  6869. +     {
  6870. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 31);
  6871. +       return \"bchg %1,%0\";
  6872. +     }
  6873. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  6874. +     return \"f%&neg%.x %1,%0\";
  6875. +   return \"f%&neg%.d %f1,%0\";
  6876. + }")
  6877. + 
  6878. + ;; Sqrt instruction for the 68881
  6879. + 
  6880. + (define_insn "sqrtdf2"
  6881. +   [(set (match_operand:DF 0 "general_operand" "=f")
  6882. +     (sqrt:DF (match_operand:DF 1 "general_operand" "fm")))]
  6883. +   "TARGET_68881"
  6884. +   "*
  6885. + {
  6886. +   if (FP_REG_P (operands[1]))
  6887. +     return \"fsqrt%.x %1,%0\";
  6888. +   else
  6889. +     return \"fsqrt%.d %1,%0\";
  6890. + }")
  6891. + 
  6892. + ;; Absolute value instructions
  6893. + 
  6894. + (define_expand "abssf2"
  6895. +   [(set (match_operand:SF 0 "general_operand" "")
  6896. +     (abs:SF (match_operand:SF 1 "general_operand" "")))]
  6897. +   "TARGET_68881 || TARGET_FPA"
  6898. +   "")
  6899. + 
  6900. + (define_insn ""
  6901. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  6902. +     (abs:SF (match_operand:SF 1 "general_operand" "xH,rmF")))]
  6903. +   "TARGET_FPA"
  6904. +   "fpabs%.s %y1,%0")
  6905. + 
  6906. + (define_insn ""
  6907. +   [(set (match_operand:SF 0 "general_operand" "=f")
  6908. +     (abs:SF (match_operand:SF 1 "general_operand" "fdmF")))]
  6909. +   "TARGET_68881"
  6910. +   "*
  6911. + {
  6912. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  6913. +     return \"f%$abs%.x %1,%0\";
  6914. +   return \"f%$abs%.s %f1,%0\";
  6915. + }")
  6916. + 
  6917. + (define_expand "absdf2"
  6918. +   [(set (match_operand:DF 0 "general_operand" "")
  6919. +     (abs:DF (match_operand:DF 1 "general_operand" "")))]
  6920. +   "TARGET_68881 || TARGET_FPA"
  6921. +   "")
  6922. + 
  6923. + (define_insn ""
  6924. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  6925. +     (abs:DF (match_operand:DF 1 "general_operand" "xH,rmF")))]
  6926. +   "TARGET_FPA"
  6927. +   "fpabs%.d %y1,%0")
  6928. + 
  6929. + (define_insn ""
  6930. +   [(set (match_operand:DF 0 "general_operand" "=f")
  6931. +     (abs:DF (match_operand:DF 1 "general_operand" "fmF")))]
  6932. +   "TARGET_68881"
  6933. +   "*
  6934. + {
  6935. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  6936. +     return \"f%&abs%.x %1,%0\";
  6937. +   return \"f%&abs%.d %f1,%0\";
  6938. + }")
  6939. + 
  6940. + ;; one complement instructions
  6941. + 
  6942. + (define_insn "one_cmplsi2"
  6943. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  6944. +     (not:SI (match_operand:SI 1 "general_operand" "0")))]
  6945. +   ""
  6946. +   "not%.l %0")
  6947. + 
  6948. + (define_insn "one_cmplhi2"
  6949. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  6950. +     (not:HI (match_operand:HI 1 "general_operand" "0")))]
  6951. +   ""
  6952. +   "not%.w %0")
  6953. + 
  6954. + (define_insn ""
  6955. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  6956. +     (not:HI (match_dup 0)))]
  6957. +   ""
  6958. +   "not%.w %0")
  6959. + 
  6960. + (define_insn "one_cmplqi2"
  6961. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  6962. +     (not:QI (match_operand:QI 1 "general_operand" "0")))]
  6963. +   ""
  6964. +   "not%.b %0")
  6965. + 
  6966. + (define_insn ""
  6967. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  6968. +     (not:QI (match_dup 0)))]
  6969. +   ""
  6970. +   "not%.b %0")
  6971. + 
  6972. + ;; arithmetic shift instructions
  6973. + ;; We don't need the shift memory by 1 bit instruction
  6974. + 
  6975. + ;; On all 68k models, this makes faster code in a special case.
  6976. + 
  6977. + (define_insn ""
  6978. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6979. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  6980. +            (match_operand:SI 2 "immediate_operand" "i")))]
  6981. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)"
  6982. +   "*
  6983. + {
  6984. +   CC_STATUS_INIT;
  6985. +   return \"swap %0\;clr%.w %0\";
  6986. + }")
  6987. + 
  6988. + ;; On the 68000, this makes faster code in a special case.
  6989. + 
  6990. + (define_insn ""
  6991. +   [(set (match_operand:SI 0 "register_operand" "=d")
  6992. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  6993. +            (match_operand:SI 2 "immediate_operand" "i")))]
  6994. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  6995. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  6996. +   "*
  6997. + {
  6998. +   CC_STATUS_INIT;
  6999. + 
  7000. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  7001. +   return \"asl%.w %2,%0\;swap %0\;clr%.w %0\";
  7002. + }")
  7003. + 
  7004. + (define_insn "ashlsi3"
  7005. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7006. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  7007. +            (match_operand:SI 2 "general_operand" "dI")))]
  7008. +   ""
  7009. +   "*
  7010. + {
  7011. +   if (operands[2] == const1_rtx)
  7012. +     return \"add%.l %0,%0\";
  7013. +   return \"asl%.l %2,%0\";
  7014. + }")
  7015. + 
  7016. + (define_insn "ashlhi3"
  7017. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7018. +     (ashift:HI (match_operand:HI 1 "register_operand" "0")
  7019. +            (match_operand:HI 2 "general_operand" "dI")))]
  7020. +   ""
  7021. +   "asl%.w %2,%0")
  7022. + 
  7023. + (define_insn ""
  7024. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7025. +     (ashift:HI (match_dup 0)
  7026. +            (match_operand:HI 1 "general_operand" "dI")))]
  7027. +   ""
  7028. +   "asl%.w %1,%0")
  7029. + 
  7030. + (define_insn "ashlqi3"
  7031. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7032. +     (ashift:QI (match_operand:QI 1 "register_operand" "0")
  7033. +            (match_operand:QI 2 "general_operand" "dI")))]
  7034. +   ""
  7035. +   "asl%.b %2,%0")
  7036. + 
  7037. + (define_insn ""
  7038. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7039. +     (ashift:QI (match_dup 0)
  7040. +            (match_operand:QI 1 "general_operand" "dI")))]
  7041. +   ""
  7042. +   "asl%.b %1,%0")
  7043. + 
  7044. + ;; On all 68k models, this makes faster code in a special case.
  7045. + 
  7046. + (define_insn ""
  7047. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7048. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7049. +              (match_operand:SI 2 "immediate_operand" "i")))]
  7050. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)" 
  7051. +   "swap %0\;ext%.l %0")
  7052. + 
  7053. + ;; On the 68000, this makes faster code in a special case.
  7054. + 
  7055. + (define_insn ""
  7056. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7057. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7058. +              (match_operand:SI 2 "immediate_operand" "i")))]
  7059. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  7060. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  7061. +   "*
  7062. + {
  7063. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  7064. +   return \"swap %0\;asr%.w %2,%0\;ext%.l %0\";
  7065. + }")
  7066. + 
  7067. + (define_insn "ashrsi3"
  7068. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7069. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7070. +              (match_operand:SI 2 "general_operand" "dI")))]
  7071. +   ""
  7072. +   "*
  7073. + {
  7074. +   return \"asr%.l %2,%0\";
  7075. + }")
  7076. + 
  7077. + (define_insn "ashrhi3"
  7078. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7079. +     (ashiftrt:HI (match_operand:HI 1 "register_operand" "0")
  7080. +              (match_operand:HI 2 "general_operand" "dI")))]
  7081. +   ""
  7082. +   "asr%.w %2,%0")
  7083. + 
  7084. + (define_insn ""
  7085. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7086. +     (ashiftrt:HI (match_dup 0)
  7087. +              (match_operand:HI 1 "general_operand" "dI")))]
  7088. +   ""
  7089. +   "asr%.w %1,%0")
  7090. + 
  7091. + (define_insn "ashrqi3"
  7092. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7093. +     (ashiftrt:QI (match_operand:QI 1 "register_operand" "0")
  7094. +              (match_operand:QI 2 "general_operand" "dI")))]
  7095. +   ""
  7096. +   "asr%.b %2,%0")
  7097. + 
  7098. + (define_insn ""
  7099. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7100. +     (ashiftrt:QI (match_dup 0)
  7101. +              (match_operand:QI 1 "general_operand" "dI")))]
  7102. +   ""
  7103. +   "asr%.b %1,%0")
  7104. + 
  7105. + ;; logical shift instructions
  7106. + 
  7107. + ;; On all 68k models, this makes faster code in a special case.
  7108. + 
  7109. + (define_insn ""
  7110. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7111. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  7112. +            (match_operand:SI 2 "immediate_operand" "i")))]
  7113. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)"
  7114. +   "*
  7115. + {
  7116. +   CC_STATUS_INIT;
  7117. +   return \"swap %0\;clr%.w %0\";
  7118. + }")
  7119. + 
  7120. + ;; On the 68000, this makes faster code in a special case.
  7121. + 
  7122. + (define_insn ""
  7123. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7124. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  7125. +            (match_operand:SI 2 "immediate_operand" "i")))]
  7126. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  7127. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  7128. +   "*
  7129. + {
  7130. +   CC_STATUS_INIT;
  7131. + 
  7132. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  7133. +   return \"lsl%.w %2,%0\;swap %0\;clr%.w %0\";
  7134. + }")
  7135. + 
  7136. + (define_insn "lshlsi3"
  7137. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7138. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  7139. +            (match_operand:SI 2 "general_operand" "dI")))]
  7140. +   ""
  7141. +   "*
  7142. + {
  7143. +   if (operands[2] == const1_rtx)
  7144. +     return \"add%.l %0,%0\";
  7145. +   return \"lsl%.l %2,%0\";
  7146. + }")
  7147. + 
  7148. + (define_insn "lshlhi3"
  7149. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7150. +     (lshift:HI (match_operand:HI 1 "register_operand" "0")
  7151. +            (match_operand:HI 2 "general_operand" "dI")))]
  7152. +   ""
  7153. +   "lsl%.w %2,%0")
  7154. + 
  7155. + (define_insn ""
  7156. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7157. +     (lshift:HI (match_dup 0)
  7158. +            (match_operand:HI 1 "general_operand" "dI")))]
  7159. +   ""
  7160. +   "lsl%.w %1,%0")
  7161. + 
  7162. + (define_insn "lshlqi3"
  7163. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7164. +     (lshift:QI (match_operand:QI 1 "register_operand" "0")
  7165. +            (match_operand:QI 2 "general_operand" "dI")))]
  7166. +   ""
  7167. +   "lsl%.b %2,%0")
  7168. + 
  7169. + (define_insn ""
  7170. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7171. +     (lshift:QI (match_dup 0)
  7172. +            (match_operand:QI 1 "general_operand" "dI")))]
  7173. +   ""
  7174. +   "lsl%.b %1,%0")
  7175. + 
  7176. + ;; On all 68k models, this makes faster code in a special case.
  7177. + 
  7178. + (define_insn ""
  7179. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7180. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7181. +              (match_operand:SI 2 "immediate_operand" "i")))]
  7182. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)" 
  7183. +   "*
  7184. + {
  7185. +   CC_STATUS_INIT;
  7186. +   return \"clr%.w %0\;swap %0\";
  7187. + }")
  7188. + 
  7189. + ;; On the 68000, this makes faster code in a special case.
  7190. + 
  7191. + (define_insn ""
  7192. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7193. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7194. +              (match_operand:SI 2 "immediate_operand" "i")))]
  7195. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  7196. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  7197. +   "*
  7198. + {
  7199. +   /* I think lsr%.w sets the CC properly.  */
  7200. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  7201. +   return \"clr%.w %0\;swap %0\;lsr%.w %2,%0\";
  7202. + }")
  7203. + 
  7204. + (define_insn "lshrsi3"
  7205. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7206. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  7207. +              (match_operand:SI 2 "general_operand" "dI")))]
  7208. +   ""
  7209. +   "*
  7210. + {
  7211. +   return \"lsr%.l %2,%0\";
  7212. + }")
  7213. + 
  7214. + (define_insn "lshrhi3"
  7215. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7216. +     (lshiftrt:HI (match_operand:HI 1 "register_operand" "0")
  7217. +              (match_operand:HI 2 "general_operand" "dI")))]
  7218. +   ""
  7219. +   "lsr%.w %2,%0")
  7220. + 
  7221. + (define_insn ""
  7222. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7223. +     (lshiftrt:HI (match_dup 0)
  7224. +              (match_operand:HI 1 "general_operand" "dI")))]
  7225. +   ""
  7226. +   "lsr%.w %1,%0")
  7227. + 
  7228. + (define_insn "lshrqi3"
  7229. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7230. +     (lshiftrt:QI (match_operand:QI 1 "register_operand" "0")
  7231. +              (match_operand:QI 2 "general_operand" "dI")))]
  7232. +   ""
  7233. +   "lsr%.b %2,%0")
  7234. + 
  7235. + (define_insn ""
  7236. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7237. +     (lshiftrt:QI (match_dup 0)
  7238. +              (match_operand:QI 1 "general_operand" "dI")))]
  7239. +   ""
  7240. +   "lsr%.b %1,%0")
  7241. + 
  7242. + ;; rotate instructions
  7243. + 
  7244. + (define_insn "rotlsi3"
  7245. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7246. +     (rotate:SI (match_operand:SI 1 "register_operand" "0")
  7247. +            (match_operand:SI 2 "general_operand" "dI")))]
  7248. +   ""
  7249. +   "rol%.l %2,%0")
  7250. + 
  7251. + (define_insn "rotlhi3"
  7252. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7253. +     (rotate:HI (match_operand:HI 1 "register_operand" "0")
  7254. +            (match_operand:HI 2 "general_operand" "dI")))]
  7255. +   ""
  7256. +   "rol%.w %2,%0")
  7257. + 
  7258. + 
  7259. + (define_insn ""
  7260. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7261. +     (rotate:HI (match_dup 0)
  7262. +            (match_operand:HI 1 "general_operand" "dI")))]
  7263. +   ""
  7264. +   "rol%.w %1,%0")
  7265. + 
  7266. + (define_insn "rotlqi3"
  7267. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7268. +     (rotate:QI (match_operand:QI 1 "register_operand" "0")
  7269. +            (match_operand:QI 2 "general_operand" "dI")))]
  7270. +   ""
  7271. +   "rol%.b %2,%0")
  7272. + 
  7273. + (define_insn ""
  7274. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7275. +     (rotate:QI (match_dup 0)
  7276. +            (match_operand:QI 1 "general_operand" "dI")))]
  7277. +   ""
  7278. +   "rol%.b %1,%0")
  7279. + 
  7280. + (define_insn "rotrsi3"
  7281. +   [(set (match_operand:SI 0 "register_operand" "=d")
  7282. +     (rotatert:SI (match_operand:SI 1 "register_operand" "0")
  7283. +              (match_operand:SI 2 "general_operand" "dI")))]
  7284. +   ""
  7285. +   "ror%.l %2,%0")
  7286. + 
  7287. + (define_insn "rotrhi3"
  7288. +   [(set (match_operand:HI 0 "register_operand" "=d")
  7289. +     (rotatert:HI (match_operand:HI 1 "register_operand" "0")
  7290. +              (match_operand:HI 2 "general_operand" "dI")))]
  7291. +   ""
  7292. +   "ror%.w %2,%0")
  7293. + 
  7294. + (define_insn ""
  7295. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  7296. +     (rotatert:HI (match_dup 0)
  7297. +              (match_operand:HI 1 "general_operand" "dI")))]
  7298. +   ""
  7299. +   "ror%.w %1,%0")
  7300. + 
  7301. + (define_insn "rotrqi3"
  7302. +   [(set (match_operand:QI 0 "register_operand" "=d")
  7303. +     (rotatert:QI (match_operand:QI 1 "register_operand" "0")
  7304. +              (match_operand:QI 2 "general_operand" "dI")))]
  7305. +   ""
  7306. +   "ror%.b %2,%0")
  7307. + 
  7308. + (define_insn ""
  7309. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  7310. +     (rotatert:QI (match_dup 0)
  7311. +              (match_operand:QI 1 "general_operand" "dI")))]
  7312. +   ""
  7313. +   "ror%.b %1,%0")
  7314. + 
  7315. + ;; Special cases of bit-field insns which we should
  7316. + ;; recognize in preference to the general case.
  7317. + ;; These handle aligned 8-bit and 16-bit fields,
  7318. + ;; which can usually be done with move instructions.
  7319. + 
  7320. + ;
  7321. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  7322. + ; alignment of structure members is specified.
  7323. + ;
  7324. + ; The move is allowed to be odd byte aligned, because that's still faster
  7325. + ; than an odd byte aligned bit field instruction.
  7326. + ;
  7327. + (define_insn ""
  7328. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o")
  7329. +              (match_operand:SI 1 "immediate_operand" "i")
  7330. +              (match_operand:SI 2 "immediate_operand" "i"))
  7331. +     (match_operand:SI 3 "general_operand" "rmi"))]
  7332. +   "TARGET_68020 && TARGET_BITFIELD
  7333. +    && GET_CODE (operands[1]) == CONST_INT
  7334. +    && (INTVAL (operands[1]) == 32)
  7335. +    && GET_CODE (operands[2]) == CONST_INT
  7336. +    && (INTVAL (operands[2]) % 8) == 0
  7337. +    && ! mode_dependent_address_p (XEXP (operands[0], 0))"
  7338. +   "*
  7339. + {
  7340. +   operands[0]
  7341. +     = adj_offsettable_operand (operands[0], INTVAL (operands[2]) / 8);
  7342. + 
  7343. +   return \"move%.l %3,%0\";
  7344. + }")
  7345. + 
  7346. + (define_insn ""
  7347. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+do")
  7348. +              (match_operand:SI 1 "immediate_operand" "i")
  7349. +              (match_operand:SI 2 "immediate_operand" "i"))
  7350. +     (match_operand:SI 3 "general_operand" "d"))]
  7351. +   "TARGET_68020 && TARGET_BITFIELD
  7352. +    && GET_CODE (operands[1]) == CONST_INT
  7353. +    && (INTVAL (operands[1]) == 8 || INTVAL (operands[1]) == 16)
  7354. +    && GET_CODE (operands[2]) == CONST_INT
  7355. +    && INTVAL (operands[2]) % INTVAL (operands[1]) == 0
  7356. +    && (GET_CODE (operands[0]) == REG
  7357. +        || ! mode_dependent_address_p (XEXP (operands[0], 0)))"
  7358. +   "*
  7359. + {
  7360. +   if (REG_P (operands[0]))
  7361. +     {
  7362. +       if (INTVAL (operands[1]) + INTVAL (operands[2]) != 32)
  7363. +         return \"bfins %3,%0{%b2:%b1}\";
  7364. +     }
  7365. +   else
  7366. +     operands[0]
  7367. +       = adj_offsettable_operand (operands[0], INTVAL (operands[2]) / 8);
  7368. + 
  7369. +   if (GET_CODE (operands[3]) == MEM)
  7370. +     operands[3] = adj_offsettable_operand (operands[3],
  7371. +                        (32 - INTVAL (operands[1])) / 8);
  7372. +   if (INTVAL (operands[1]) == 8)
  7373. +     return \"move%.b %3,%0\";
  7374. +   return \"move%.w %3,%0\";
  7375. + }")
  7376. + 
  7377. + 
  7378. + ;
  7379. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  7380. + ; alignment of structure members is specified.
  7381. + ;
  7382. + ; The move is allowed to be odd byte aligned, because that's still faster
  7383. + ; than an odd byte aligned bit field instruction.
  7384. + ;
  7385. + (define_insn ""
  7386. +   [(set (match_operand:SI 0 "general_operand" "=rm")
  7387. +     (zero_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o")
  7388. +              (match_operand:SI 2 "immediate_operand" "i")
  7389. +              (match_operand:SI 3 "immediate_operand" "i")))]
  7390. +   "TARGET_68020 && TARGET_BITFIELD
  7391. +    && GET_CODE (operands[2]) == CONST_INT
  7392. +    && (INTVAL (operands[2]) == 32)
  7393. +    && GET_CODE (operands[3]) == CONST_INT
  7394. +    && (INTVAL (operands[3]) % 8) == 0
  7395. +    && ! mode_dependent_address_p (XEXP (operands[1], 0))"
  7396. +   "*
  7397. + {
  7398. +   operands[1]
  7399. +     = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  7400. + 
  7401. +   return \"move%.l %1,%0\";
  7402. + }")
  7403. + 
  7404. + (define_insn ""
  7405. +   [(set (match_operand:SI 0 "general_operand" "=&d")
  7406. +     (zero_extract:SI (match_operand:SI 1 "nonimmediate_operand" "do")
  7407. +              (match_operand:SI 2 "immediate_operand" "i")
  7408. +              (match_operand:SI 3 "immediate_operand" "i")))]
  7409. +   "TARGET_68020 && TARGET_BITFIELD
  7410. +    && GET_CODE (operands[2]) == CONST_INT
  7411. +    && (INTVAL (operands[2]) == 8 || INTVAL (operands[2]) == 16)
  7412. +    && GET_CODE (operands[3]) == CONST_INT
  7413. +    && INTVAL (operands[3]) % INTVAL (operands[2]) == 0
  7414. +    && (GET_CODE (operands[1]) == REG
  7415. +        || ! mode_dependent_address_p (XEXP (operands[1], 0)))"
  7416. +   "*
  7417. + {
  7418. +   cc_status.flags |= CC_NOT_NEGATIVE;
  7419. +   if (REG_P (operands[1]))
  7420. +     {
  7421. +       if (INTVAL (operands[2]) + INTVAL (operands[3]) != 32)
  7422. +     return \"bfextu %1{%b3:%b2},%0\";
  7423. +     }
  7424. +   else
  7425. +     operands[1]
  7426. +       = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  7427. + 
  7428. +   output_asm_insn (\"clr%.l %0\", operands);
  7429. +   if (GET_CODE (operands[0]) == MEM)
  7430. +     operands[0] = adj_offsettable_operand (operands[0],
  7431. +                        (32 - INTVAL (operands[1])) / 8);
  7432. +   if (INTVAL (operands[2]) == 8)
  7433. +     return \"move%.b %1,%0\";
  7434. +   return \"move%.w %1,%0\";
  7435. + }")
  7436. + 
  7437. + ;
  7438. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  7439. + ; alignment of structure members is specified.
  7440. + ;
  7441. + ; The move is allowed to be odd byte aligned, because that's still faster
  7442. + ; than an odd byte aligned bit field instruction.
  7443. + ;
  7444. + (define_insn ""
  7445. +   [(set (match_operand:SI 0 "general_operand" "=rm")
  7446. +     (sign_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o")
  7447. +              (match_operand:SI 2 "immediate_operand" "i")
  7448. +              (match_operand:SI 3 "immediate_operand" "i")))]
  7449. +   "TARGET_68020 && TARGET_BITFIELD
  7450. +    && GET_CODE (operands[2]) == CONST_INT
  7451. +    && (INTVAL (operands[2]) == 32)
  7452. +    && GET_CODE (operands[3]) == CONST_INT
  7453. +    && (INTVAL (operands[3]) % 8) == 0
  7454. +    && ! mode_dependent_address_p (XEXP (operands[1], 0))"
  7455. +   "*
  7456. + {
  7457. +   operands[1]
  7458. +     = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  7459. + 
  7460. +   return \"move%.l %1,%0\";
  7461. + }")
  7462. + 
  7463. + (define_insn ""
  7464. +   [(set (match_operand:SI 0 "general_operand" "=d")
  7465. +     (sign_extract:SI (match_operand:SI 1 "nonimmediate_operand" "do")
  7466. +              (match_operand:SI 2 "immediate_operand" "i")
  7467. +              (match_operand:SI 3 "immediate_operand" "i")))]
  7468. +   "TARGET_68020 && TARGET_BITFIELD
  7469. +    && GET_CODE (operands[2]) == CONST_INT
  7470. +    && (INTVAL (operands[2]) == 8 || INTVAL (operands[2]) == 16)
  7471. +    && GET_CODE (operands[3]) == CONST_INT
  7472. +    && INTVAL (operands[3]) % INTVAL (operands[2]) == 0
  7473. +    && (GET_CODE (operands[1]) == REG
  7474. +        || ! mode_dependent_address_p (XEXP (operands[1], 0)))"
  7475. +   "*
  7476. + {
  7477. +   if (REG_P (operands[1]))
  7478. +     {
  7479. +       if (INTVAL (operands[2]) + INTVAL (operands[3]) != 32)
  7480. +     return \"bfexts %1{%b3:%b2},%0\";
  7481. +     }
  7482. +   else
  7483. +     operands[1]
  7484. +       = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  7485. + 
  7486. +   if (INTVAL (operands[2]) == 8)
  7487. +     return \"move%.b %1,%0\;extb%.l %0\";
  7488. +   return \"move%.w %1,%0\;ext%.l %0\";
  7489. + }")
  7490. + 
  7491. + ;; Bit field instructions, general cases.
  7492. + ;; "o,d" constraint causes a nonoffsettable memref to match the "o"
  7493. + ;; so that its address is reloaded.
  7494. + 
  7495. + (define_insn "extv"
  7496. +   [(set (match_operand:SI 0 "general_operand" "=d,d")
  7497. +     (sign_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o,d")
  7498. +              (match_operand:SI 2 "general_operand" "di,di")
  7499. +              (match_operand:SI 3 "general_operand" "di,di")))]
  7500. +   "TARGET_68020 && TARGET_BITFIELD"
  7501. +   "bfexts %1{%b3:%b2},%0")
  7502. + 
  7503. + (define_insn "extzv"
  7504. +   [(set (match_operand:SI 0 "general_operand" "=d,d")
  7505. +     (zero_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o,d")
  7506. +              (match_operand:SI 2 "general_operand" "di,di")
  7507. +              (match_operand:SI 3 "general_operand" "di,di")))]
  7508. +   "TARGET_68020 && TARGET_BITFIELD"
  7509. +   "*
  7510. + {
  7511. +   if (GET_CODE (operands[2]) == CONST_INT)
  7512. +     {
  7513. +       if (INTVAL (operands[2]) != 32)
  7514. +     cc_status.flags |= CC_NOT_NEGATIVE;
  7515. +     }
  7516. +   else
  7517. +     {
  7518. +       CC_STATUS_INIT;
  7519. +     }
  7520. +   return \"bfextu %1{%b3:%b2},%0\";
  7521. + }")
  7522. + 
  7523. + (define_insn ""
  7524. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  7525. +              (match_operand:SI 1 "general_operand" "di,di")
  7526. +              (match_operand:SI 2 "general_operand" "di,di"))
  7527. +         (xor:SI (zero_extract:SI (match_dup 0) (match_dup 1) (match_dup 2))
  7528. +         (match_operand 3 "immediate_operand" "i,i")))]
  7529. +   "TARGET_68020 && TARGET_BITFIELD
  7530. +    && GET_CODE (operands[3]) == CONST_INT
  7531. +    && (INTVAL (operands[3]) == -1
  7532. +        || (GET_CODE (operands[1]) == CONST_INT
  7533. +            && (~ INTVAL (operands[3]) & ((1 << INTVAL (operands[1]))- 1)) == 0))"
  7534. +   "*
  7535. + {
  7536. +   CC_STATUS_INIT;
  7537. +   return \"bfchg %0{%b2:%b1}\";
  7538. + }")
  7539. + 
  7540. + (define_insn ""
  7541. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  7542. +              (match_operand:SI 1 "general_operand" "di,di")
  7543. +              (match_operand:SI 2 "general_operand" "di,di"))
  7544. +     (const_int 0))]
  7545. +   "TARGET_68020 && TARGET_BITFIELD"
  7546. +   "*
  7547. + {
  7548. +   CC_STATUS_INIT;
  7549. +   return \"bfclr %0{%b2:%b1}\";
  7550. + }")
  7551. + 
  7552. + (define_insn ""
  7553. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  7554. +              (match_operand:SI 1 "general_operand" "di,di")
  7555. +              (match_operand:SI 2 "general_operand" "di,di"))
  7556. +     (const_int -1))]
  7557. +   "TARGET_68020 && TARGET_BITFIELD"
  7558. +   "*
  7559. + {
  7560. +   CC_STATUS_INIT;
  7561. +   return \"bfset %0{%b2:%b1}\";
  7562. + }")
  7563. + 
  7564. + (define_insn "insv"
  7565. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  7566. +              (match_operand:SI 1 "general_operand" "di,di")
  7567. +              (match_operand:SI 2 "general_operand" "di,di"))
  7568. +     (match_operand:SI 3 "general_operand" "d,d"))]
  7569. +   "TARGET_68020 && TARGET_BITFIELD"
  7570. +   "bfins %3,%0{%b2:%b1}")
  7571. + 
  7572. + ;; Now recognize bit field insns that operate on registers
  7573. + ;; (or at least were intended to do so).
  7574. + 
  7575. + (define_insn ""
  7576. +   [(set (match_operand:SI 0 "general_operand" "=d")
  7577. +     (sign_extract:SI (match_operand:SI 1 "nonimmediate_operand" "d")
  7578. +              (match_operand:SI 2 "general_operand" "di")
  7579. +              (match_operand:SI 3 "general_operand" "di")))]
  7580. +   "TARGET_68020 && TARGET_BITFIELD"
  7581. +   "bfexts %1{%b3:%b2},%0")
  7582. + 
  7583. + (define_insn ""
  7584. +   [(set (match_operand:SI 0 "general_operand" "=d")
  7585. +     (zero_extract:SI (match_operand:SI 1 "nonimmediate_operand" "d")
  7586. +              (match_operand:SI 2 "general_operand" "di")
  7587. +              (match_operand:SI 3 "general_operand" "di")))]
  7588. +   "TARGET_68020 && TARGET_BITFIELD"
  7589. +   "*
  7590. + {
  7591. +   if (GET_CODE (operands[2]) == CONST_INT)
  7592. +     {
  7593. +       if (INTVAL (operands[2]) != 32)
  7594. +     cc_status.flags |= CC_NOT_NEGATIVE;
  7595. +     }
  7596. +   else
  7597. +     {
  7598. +       CC_STATUS_INIT;
  7599. +     }
  7600. +   return \"bfextu %1{%b3:%b2},%0\";
  7601. + }")
  7602. + 
  7603. + (define_insn ""
  7604. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  7605. +              (match_operand:SI 1 "general_operand" "di")
  7606. +              (match_operand:SI 2 "general_operand" "di"))
  7607. +     (const_int 0))]
  7608. +   "TARGET_68020 && TARGET_BITFIELD"
  7609. +   "*
  7610. + {
  7611. +   CC_STATUS_INIT;
  7612. +   return \"bfclr %0{%b2:%b1}\";
  7613. + }")
  7614. + 
  7615. + (define_insn ""
  7616. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  7617. +              (match_operand:SI 1 "general_operand" "di")
  7618. +              (match_operand:SI 2 "general_operand" "di"))
  7619. +     (const_int -1))]
  7620. +   "TARGET_68020 && TARGET_BITFIELD"
  7621. +   "*
  7622. + {
  7623. +   CC_STATUS_INIT;
  7624. +   return \"bfset %0{%b2:%b1}\";
  7625. + }")
  7626. + 
  7627. + (define_insn ""
  7628. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  7629. +              (match_operand:SI 1 "general_operand" "di")
  7630. +              (match_operand:SI 2 "general_operand" "di"))
  7631. +     (match_operand:SI 3 "general_operand" "d"))]
  7632. +   "TARGET_68020 && TARGET_BITFIELD"
  7633. +   "*
  7634. + {
  7635. + #if 0
  7636. +   /* These special cases are now recognized by a specific pattern.  */
  7637. +   if (GET_CODE (operands[1]) == CONST_INT && GET_CODE (operands[2]) == CONST_INT
  7638. +       && INTVAL (operands[1]) == 16 && INTVAL (operands[2]) == 16)
  7639. +     return \"move%.w %3,%0\";
  7640. +   if (GET_CODE (operands[1]) == CONST_INT && GET_CODE (operands[2]) == CONST_INT
  7641. +       && INTVAL (operands[1]) == 24 && INTVAL (operands[2]) == 8)
  7642. +     return \"move%.b %3,%0\";
  7643. + #endif
  7644. +   return \"bfins %3,%0{%b2:%b1}\";
  7645. + }")
  7646. + 
  7647. + ;; Special patterns for optimizing bit-field instructions.
  7648. + 
  7649. + (define_insn ""
  7650. +   [(set (cc0)
  7651. +     (zero_extract:SI (match_operand:QI 0 "memory_operand" "o")
  7652. +              (match_operand:SI 1 "general_operand" "di")
  7653. +              (match_operand:SI 2 "general_operand" "di")))]
  7654. +   "TARGET_68020 && TARGET_BITFIELD
  7655. +    && GET_CODE (operands[1]) == CONST_INT"
  7656. +   "*
  7657. + {
  7658. +   if (operands[1] == const1_rtx
  7659. +       && GET_CODE (operands[2]) == CONST_INT)
  7660. +     {    
  7661. +       int width = GET_CODE (operands[0]) == REG ? 31 : 7;
  7662. +       return output_btst (operands,
  7663. +               gen_rtx (CONST_INT, VOIDmode,
  7664. +                    width - INTVAL (operands[2])),
  7665. +               operands[0],
  7666. +               insn, 1000);
  7667. +       /* Pass 1000 as SIGNPOS argument so that btst will
  7668. +          not think we are testing the sign bit for an `and'
  7669. +      and assume that nonzero implies a negative result.  */
  7670. +     }
  7671. +   if (INTVAL (operands[1]) != 32)
  7672. +     cc_status.flags = CC_NOT_NEGATIVE;
  7673. +   return \"bftst %0{%b2:%b1}\";
  7674. + }")
  7675. + 
  7676. +   
  7677. + ;;; now handle the register cases
  7678. + (define_insn ""
  7679. +   [(set (cc0)
  7680. +     (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "d")
  7681. +              (match_operand:SI 1 "general_operand" "di")
  7682. +              (match_operand:SI 2 "general_operand" "di")))]
  7683. +   "TARGET_68020 && TARGET_BITFIELD
  7684. +    && GET_CODE (operands[1]) == CONST_INT"
  7685. +   "*
  7686. + {
  7687. +   if (operands[1] == const1_rtx
  7688. +       && GET_CODE (operands[2]) == CONST_INT)
  7689. +     {    
  7690. +       int width = GET_CODE (operands[0]) == REG ? 31 : 7;
  7691. +       return output_btst (operands,
  7692. +               gen_rtx (CONST_INT, VOIDmode,
  7693. +                    width - INTVAL (operands[2])),
  7694. +               operands[0],
  7695. +               insn, 1000);
  7696. +       /* Pass 1000 as SIGNPOS argument so that btst will
  7697. +          not think we are testing the sign bit for an `and'
  7698. +      and assume that nonzero implies a negative result.  */
  7699. +     }
  7700. +   if (INTVAL (operands[1]) != 32)
  7701. +     cc_status.flags = CC_NOT_NEGATIVE;
  7702. +   return \"bftst %0{%b2:%b1}\";
  7703. + }")
  7704. + 
  7705. + (define_insn "seq"
  7706. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7707. +     (eq:QI (cc0) (const_int 0)))]
  7708. +   ""
  7709. +   "*
  7710. +   cc_status = cc_prev_status;
  7711. +   OUTPUT_JUMP (\"seq %0\", \"fseq %0\", \"seq %0\");
  7712. + ")
  7713. + 
  7714. + (define_insn "sne"
  7715. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7716. +     (ne:QI (cc0) (const_int 0)))]
  7717. +   ""
  7718. +   "*
  7719. +   cc_status = cc_prev_status;
  7720. +   OUTPUT_JUMP (\"sne %0\", \"fsne %0\", \"sne %0\");
  7721. + ")
  7722. + 
  7723. + (define_insn "sgt"
  7724. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7725. +     (gt:QI (cc0) (const_int 0)))]
  7726. +   ""
  7727. +   "*
  7728. +   cc_status = cc_prev_status;
  7729. +   OUTPUT_JUMP (\"sgt %0\", \"fsgt %0\", 0);
  7730. + ")
  7731. + 
  7732. + (define_insn "sgtu"
  7733. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7734. +     (gtu:QI (cc0) (const_int 0)))]
  7735. +   ""
  7736. +   "* cc_status = cc_prev_status;
  7737. +      return \"shi %0\"; ")
  7738. + 
  7739. + (define_insn "slt"
  7740. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7741. +     (lt:QI (cc0) (const_int 0)))]
  7742. +   ""
  7743. +   "* cc_status = cc_prev_status;
  7744. +      OUTPUT_JUMP (\"slt %0\", \"fslt %0\", \"smi %0\"); ")
  7745. + 
  7746. + (define_insn "sltu"
  7747. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7748. +     (ltu:QI (cc0) (const_int 0)))]
  7749. +   ""
  7750. +   "* cc_status = cc_prev_status;
  7751. +      return \"scs %0\"; ")
  7752. + 
  7753. + (define_insn "sge"
  7754. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7755. +     (ge:QI (cc0) (const_int 0)))]
  7756. +   ""
  7757. +   "* cc_status = cc_prev_status;
  7758. +      OUTPUT_JUMP (\"sge %0\", \"fsge %0\", \"spl %0\"); ")
  7759. + 
  7760. + (define_insn "sgeu"
  7761. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7762. +     (geu:QI (cc0) (const_int 0)))]
  7763. +   ""
  7764. +   "* cc_status = cc_prev_status;
  7765. +      return \"scc %0\"; ")
  7766. + 
  7767. + (define_insn "sle"
  7768. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7769. +     (le:QI (cc0) (const_int 0)))]
  7770. +   ""
  7771. +   "*
  7772. +   cc_status = cc_prev_status;
  7773. +   OUTPUT_JUMP (\"sle %0\", \"fsle %0\", 0);
  7774. + ")
  7775. + 
  7776. + (define_insn "sleu"
  7777. +   [(set (match_operand:QI 0 "general_operand" "=d")
  7778. +     (leu:QI (cc0) (const_int 0)))]
  7779. +   ""
  7780. +   "* cc_status = cc_prev_status;
  7781. +      return \"sls %0\"; ")
  7782. + 
  7783. + ;; Basic conditional jump instructions.
  7784. + 
  7785. + (define_insn "beq"
  7786. +   [(set (pc)
  7787. +     (if_then_else (eq (cc0)
  7788. +               (const_int 0))
  7789. +               (label_ref (match_operand 0 "" ""))
  7790. +               (pc)))]
  7791. +   ""
  7792. +   "*
  7793. + {
  7794. + #ifdef MOTOROLA
  7795. +   OUTPUT_JUMP (\"jbeq %l0\", \"fbeq %l0\", \"jbeq %l0\");
  7796. + #else
  7797. +   OUTPUT_JUMP (\"jeq %l0\", \"fjeq %l0\", \"jeq %l0\");
  7798. + #endif
  7799. + }")
  7800. + 
  7801. + (define_insn "bne"
  7802. +   [(set (pc)
  7803. +     (if_then_else (ne (cc0)
  7804. +               (const_int 0))
  7805. +               (label_ref (match_operand 0 "" ""))
  7806. +               (pc)))]
  7807. +   ""
  7808. +   "*
  7809. + {
  7810. + #ifdef MOTOROLA
  7811. +   OUTPUT_JUMP (\"jbne %l0\", \"fbne %l0\", \"jbne %l0\");
  7812. + #else
  7813. +   OUTPUT_JUMP (\"jne %l0\", \"fjne %l0\", \"jne %l0\");
  7814. + #endif
  7815. + }")
  7816. + 
  7817. + (define_insn "bgt"
  7818. +   [(set (pc)
  7819. +     (if_then_else (gt (cc0)
  7820. +               (const_int 0))
  7821. +               (label_ref (match_operand 0 "" ""))
  7822. +               (pc)))]
  7823. +   ""
  7824. +   "*
  7825. + #ifdef MOTOROLA
  7826. +   OUTPUT_JUMP (\"jbgt %l0\", \"fbgt %l0\", 0);
  7827. + #else
  7828. +   OUTPUT_JUMP (\"jgt %l0\", \"fjgt %l0\", 0);
  7829. + #endif
  7830. + ")
  7831. + 
  7832. + (define_insn "bgtu"
  7833. +   [(set (pc)
  7834. +     (if_then_else (gtu (cc0)
  7835. +                (const_int 0))
  7836. +               (label_ref (match_operand 0 "" ""))
  7837. +               (pc)))]
  7838. +   ""
  7839. +   "*
  7840. + #ifdef MOTOROLA
  7841. +   return \"jbhi %l0\";
  7842. + #else
  7843. +   return \"jhi %l0\";
  7844. + #endif
  7845. + ")
  7846. + 
  7847. + (define_insn "blt"
  7848. +   [(set (pc)
  7849. +     (if_then_else (lt (cc0)
  7850. +               (const_int 0))
  7851. +               (label_ref (match_operand 0 "" ""))
  7852. +               (pc)))]
  7853. +   ""
  7854. +   "*
  7855. + #ifdef MOTOROLA
  7856. +   OUTPUT_JUMP (\"jblt %l0\", \"fblt %l0\", \"jbmi %l0\");
  7857. + #else
  7858. +   OUTPUT_JUMP (\"jlt %l0\", \"fjlt %l0\", \"jmi %l0\");
  7859. + #endif
  7860. + ")
  7861. + 
  7862. + (define_insn "bltu"
  7863. +   [(set (pc)
  7864. +     (if_then_else (ltu (cc0)
  7865. +                (const_int 0))
  7866. +               (label_ref (match_operand 0 "" ""))
  7867. +               (pc)))]
  7868. +   ""
  7869. +   "*
  7870. + #ifdef MOTOROLA
  7871. +   return \"jbcs %l0\";
  7872. + #else
  7873. +   return \"jcs %l0\";
  7874. + #endif
  7875. + ")
  7876. + 
  7877. + (define_insn "bge"
  7878. +   [(set (pc)
  7879. +     (if_then_else (ge (cc0)
  7880. +               (const_int 0))
  7881. +               (label_ref (match_operand 0 "" ""))
  7882. +               (pc)))]
  7883. +   ""
  7884. +   "*
  7885. + #ifdef MOTOROLA
  7886. +   OUTPUT_JUMP (\"jbge %l0\", \"fbge %l0\", \"jbpl %l0\");
  7887. + #else
  7888. +   OUTPUT_JUMP (\"jge %l0\", \"fjge %l0\", \"jpl %l0\");
  7889. + #endif
  7890. + ")
  7891. + 
  7892. + (define_insn "bgeu"
  7893. +   [(set (pc)
  7894. +     (if_then_else (geu (cc0)
  7895. +                (const_int 0))
  7896. +               (label_ref (match_operand 0 "" ""))
  7897. +               (pc)))]
  7898. +   ""
  7899. +   "*
  7900. + #ifdef MOTOROLA
  7901. +   return \"jbcc %l0\";
  7902. + #else
  7903. +   return \"jcc %l0\";
  7904. + #endif
  7905. + ")
  7906. + 
  7907. + (define_insn "ble"
  7908. +   [(set (pc)
  7909. +     (if_then_else (le (cc0)
  7910. +               (const_int 0))
  7911. +               (label_ref (match_operand 0 "" ""))
  7912. +               (pc)))]
  7913. +   ""
  7914. +   "*
  7915. + #ifdef MOTOROLA
  7916. +   OUTPUT_JUMP (\"jble %l0\", \"fble %l0\", 0);
  7917. + #else
  7918. +   OUTPUT_JUMP (\"jle %l0\", \"fjle %l0\", 0);
  7919. + #endif
  7920. + ")
  7921. + 
  7922. + (define_insn "bleu"
  7923. +   [(set (pc)
  7924. +     (if_then_else (leu (cc0)
  7925. +                (const_int 0))
  7926. +               (label_ref (match_operand 0 "" ""))
  7927. +               (pc)))]
  7928. +   ""
  7929. +   "*
  7930. + #ifdef MOTOROLA
  7931. +   return \"jbls %l0\";
  7932. + #else
  7933. +   return \"jls %l0\";
  7934. + #endif
  7935. + ")
  7936. + 
  7937. + ;; Negated conditional jump instructions.
  7938. + 
  7939. + (define_insn ""
  7940. +   [(set (pc)
  7941. +     (if_then_else (eq (cc0)
  7942. +               (const_int 0))
  7943. +               (pc)
  7944. +               (label_ref (match_operand 0 "" ""))))]
  7945. +   ""
  7946. +   "*
  7947. + {
  7948. + #ifdef MOTOROLA
  7949. +   OUTPUT_JUMP (\"jbne %l0\", \"fbne %l0\", \"jbne %l0\");
  7950. + #else
  7951. +   OUTPUT_JUMP (\"jne %l0\", \"fjne %l0\", \"jne %l0\");
  7952. + #endif
  7953. + }")
  7954. + 
  7955. + (define_insn ""
  7956. +   [(set (pc)
  7957. +     (if_then_else (ne (cc0)
  7958. +               (const_int 0))
  7959. +               (pc)
  7960. +               (label_ref (match_operand 0 "" ""))))]
  7961. +   ""
  7962. +   "*
  7963. + {
  7964. + #ifdef MOTOROLA
  7965. +   OUTPUT_JUMP (\"jbeq %l0\", \"fbeq %l0\", \"jbeq %l0\");
  7966. + #else
  7967. +   OUTPUT_JUMP (\"jeq %l0\", \"fjeq %l0\", \"jeq %l0\");
  7968. + #endif
  7969. + }")
  7970. + 
  7971. + (define_insn ""
  7972. +   [(set (pc)
  7973. +     (if_then_else (gt (cc0)
  7974. +               (const_int 0))
  7975. +               (pc)
  7976. +               (label_ref (match_operand 0 "" ""))))]
  7977. +   ""
  7978. +   "*
  7979. + #ifdef MOTOROLA
  7980. +   OUTPUT_JUMP (\"jble %l0\", \"fbngt %l0\", 0);
  7981. + #else
  7982. +   OUTPUT_JUMP (\"jle %l0\", \"fjngt %l0\", 0);
  7983. + #endif
  7984. + ")
  7985. + 
  7986. + (define_insn ""
  7987. +   [(set (pc)
  7988. +     (if_then_else (gtu (cc0)
  7989. +                (const_int 0))
  7990. +               (pc)
  7991. +               (label_ref (match_operand 0 "" ""))))]
  7992. +   ""
  7993. +   "*
  7994. + #ifdef MOTOROLA
  7995. +   return \"jbls %l0\";
  7996. + #else
  7997. +   return \"jls %l0\";
  7998. + #endif
  7999. + ")
  8000. + 
  8001. + (define_insn ""
  8002. +   [(set (pc)
  8003. +     (if_then_else (lt (cc0)
  8004. +               (const_int 0))
  8005. +               (pc)
  8006. +               (label_ref (match_operand 0 "" ""))))]
  8007. +   ""
  8008. +   "*
  8009. + #ifdef MOTOROLA
  8010. +   OUTPUT_JUMP (\"jbge %l0\", \"fbnlt %l0\", \"jbpl %l0\");
  8011. + #else
  8012. +   OUTPUT_JUMP (\"jge %l0\", \"fjnlt %l0\", \"jpl %l0\");
  8013. + #endif
  8014. + ")
  8015. + 
  8016. + (define_insn ""
  8017. +   [(set (pc)
  8018. +     (if_then_else (ltu (cc0)
  8019. +                (const_int 0))
  8020. +               (pc)
  8021. +               (label_ref (match_operand 0 "" ""))))]
  8022. +   ""
  8023. +   "*
  8024. + #ifdef MOTOROLA
  8025. +   return \"jbcc %l0\";
  8026. + #else
  8027. +   return \"jcc %l0\";
  8028. + #endif
  8029. + ")
  8030. + 
  8031. + (define_insn ""
  8032. +   [(set (pc)
  8033. +     (if_then_else (ge (cc0)
  8034. +               (const_int 0))
  8035. +               (pc)
  8036. +               (label_ref (match_operand 0 "" ""))))]
  8037. +   ""
  8038. +   "*
  8039. + #ifdef MOTOROLA
  8040. +   OUTPUT_JUMP (\"jblt %l0\", \"fbnge %l0\", \"jbmi %l0\");
  8041. + #else
  8042. +   OUTPUT_JUMP (\"jlt %l0\", \"fjnge %l0\", \"jmi %l0\");
  8043. + #endif
  8044. + ")
  8045. + 
  8046. + (define_insn ""
  8047. +   [(set (pc)
  8048. +     (if_then_else (geu (cc0)
  8049. +                (const_int 0))
  8050. +               (pc)
  8051. +               (label_ref (match_operand 0 "" ""))))]
  8052. +   ""
  8053. +   "*
  8054. + #ifdef MOTOROLA
  8055. +   return \"jbcs %l0\";
  8056. + #else
  8057. +   return \"jcs %l0\";
  8058. + #endif
  8059. + ")
  8060. + 
  8061. + (define_insn ""
  8062. +   [(set (pc)
  8063. +     (if_then_else (le (cc0)
  8064. +               (const_int 0))
  8065. +               (pc)
  8066. +               (label_ref (match_operand 0 "" ""))))]
  8067. +   ""
  8068. +   "*
  8069. + #ifdef MOTOROLA
  8070. +   OUTPUT_JUMP (\"jbgt %l0\", \"fbnle %l0\", 0);
  8071. + #else
  8072. +   OUTPUT_JUMP (\"jgt %l0\", \"fjnle %l0\", 0);
  8073. + #endif
  8074. + ")
  8075. + 
  8076. + (define_insn ""
  8077. +   [(set (pc)
  8078. +     (if_then_else (leu (cc0)
  8079. +                (const_int 0))
  8080. +               (pc)
  8081. +               (label_ref (match_operand 0 "" ""))))]
  8082. +   ""
  8083. +   "*
  8084. + #ifdef MOTOROLA
  8085. +   return \"jbhi %l0\";
  8086. + #else
  8087. +   return \"jhi %l0\";
  8088. + #endif
  8089. + ")
  8090. + 
  8091. + ;; Unconditional and other jump instructions
  8092. + (define_insn "jump"
  8093. +   [(set (pc)
  8094. +     (label_ref (match_operand 0 "" "")))]
  8095. +   ""
  8096. +   "*
  8097. + #ifdef MOTOROLA
  8098. +   return \"jbra %l0\";
  8099. + #else
  8100. +   return \"jra %l0\";
  8101. + #endif
  8102. + ")
  8103. + 
  8104. + ;; We support two different ways of handling dispatch tables.
  8105. + ;; The NeXT uses absolute tables, and other machines use relative.
  8106. + ;; This define_expand can generate either kind.
  8107. + (define_expand "tablejump"
  8108. +   [(parallel [(set (pc) (match_operand 0 "" ""))
  8109. +           (use (label_ref (match_operand 1 "" "")))])]
  8110. +   ""
  8111. +   "
  8112. + {
  8113. + #ifdef CASE_VECTOR_PC_RELATIVE
  8114. +     operands[0] = gen_rtx (PLUS, SImode, pc_rtx, operands[0]);
  8115. + #endif
  8116. + }")
  8117. + 
  8118. + ;; Jump to variable address from dispatch table of absolute addresses.
  8119. + (define_insn ""
  8120. +   [(set (pc) (match_operand:SI 0 "register_operand" "a"))
  8121. +    (use (label_ref (match_operand 1 "" "")))]
  8122. +   ""
  8123. +   "*
  8124. + #ifdef MOTOROLA
  8125. +   return \"jmp (%0)\";
  8126. + #else
  8127. +   return \"jmp %0@\";
  8128. + #endif
  8129. + ")
  8130. + 
  8131. + ;; Jump to variable address from dispatch table of relative addresses.
  8132. + (define_insn ""
  8133. +   [(set (pc)
  8134. +     (plus:SI (pc) (match_operand:HI 0 "register_operand" "r")))
  8135. +    (use (label_ref (match_operand 1 "" "")))]
  8136. +   ""
  8137. +   "*
  8138. + #ifdef ASM_RETURN_CASE_JUMP
  8139. +  ASM_RETURN_CASE_JUMP;
  8140. + #else
  8141. + #ifdef SGS
  8142. + #ifdef ASM_OUTPUT_CASE_LABEL
  8143. +   return \"jmp 6(%%pc,%0.w)\";
  8144. + #else
  8145. + #ifdef CRDS
  8146. +   return \"jmp 2(pc,%0.w)\";
  8147. + #else
  8148. +   return \"jmp 2(%%pc,%0.w)\";
  8149. + #endif  /* end !CRDS */
  8150. + #endif
  8151. + #else /* not SGS */
  8152. + #ifdef MOTOROLA
  8153. +   return \"jmp (2,pc,%0.w)\";
  8154. + #else
  8155. +   return \"jmp pc@(2,%0:w)\";
  8156. + #endif
  8157. + #endif
  8158. + #endif
  8159. + ")
  8160. + 
  8161. + ;; Decrement-and-branch insns.
  8162. + (define_insn ""
  8163. +   [(set (pc)
  8164. +     (if_then_else
  8165. +      (ne (match_operand:HI 0 "general_operand" "+g")
  8166. +          (const_int 0))
  8167. +      (label_ref (match_operand 1 "" ""))
  8168. +      (pc)))
  8169. +    (set (match_dup 0)
  8170. +     (plus:HI (match_dup 0)
  8171. +          (const_int -1)))]
  8172. +   ""
  8173. +   "*
  8174. + {
  8175. +   CC_STATUS_INIT;
  8176. +   if (DATA_REG_P (operands[0]))
  8177. +     return \"dbra %0,%l1\";
  8178. +   if (GET_CODE (operands[0]) == MEM)
  8179. +     {
  8180. + #ifdef MOTOROLA
  8181. + #ifdef NO_ADDSUB_Q
  8182. +       return \"sub%.w %#1,%0\;jbcc %l1\";
  8183. + #else
  8184. +       return \"subq%.w %#1,%0\;jbcc %l1\";
  8185. + #endif
  8186. + #else /* not MOTOROLA */
  8187. +       return \"subqw %#1,%0\;jcc %l1\";
  8188. + #endif
  8189. +     }
  8190. + #ifdef MOTOROLA
  8191. + #ifdef SGS_CMP_ORDER
  8192. + #ifdef NO_ADDSUB_Q
  8193. +   return \"sub%.w %#1,%0\;cmp%.w %0,%#-1\;jbne %l1\";
  8194. + #else
  8195. +   return \"subq%.w %#1,%0\;cmp%.w %0,%#-1\;jbne %l1\";
  8196. + #endif
  8197. + #else /* not SGS_CMP_ORDER */
  8198. +   return \"subq%.w %#1,%0\;cmp%.w %#-1,%0\;jbne %l1\";
  8199. + #endif
  8200. + #else /* not MOTOROLA */
  8201. +   return \"subqw %#1,%0\;cmpw %#-1,%0\;jne %l1\";
  8202. + #endif
  8203. + }")
  8204. + 
  8205. + (define_insn ""
  8206. +   [(set (pc)
  8207. +     (if_then_else
  8208. +      (ne (match_operand:SI 0 "general_operand" "+g")
  8209. +          (const_int 0))
  8210. +      (label_ref (match_operand 1 "" ""))
  8211. +      (pc)))
  8212. +    (set (match_dup 0)
  8213. +     (plus:SI (match_dup 0)
  8214. +          (const_int -1)))]
  8215. +   ""
  8216. +   "*
  8217. + {
  8218. +   CC_STATUS_INIT;
  8219. + #ifdef MOTOROLA
  8220. + #ifdef NO_ADDSUB_Q
  8221. +   if (DATA_REG_P (operands[0]))
  8222. +     return \"dbra %0,%l1\;clr%.w %0\;sub%.l %#1,%0\;jbcc %l1\";
  8223. +   if (GET_CODE (operands[0]) == MEM)
  8224. +     return \"sub%.l %#1,%0\;jbcc %l1\";
  8225. + #else
  8226. +   if (DATA_REG_P (operands[0]))
  8227. +     return \"dbra %0,%l1\;clr%.w %0\;subq%.l %#1,%0\;jbcc %l1\";
  8228. +   if (GET_CODE (operands[0]) == MEM)
  8229. +     return \"subq%.l %#1,%0\;jbcc %l1\";
  8230. + #endif /* NO_ADDSUB_Q */
  8231. + #ifdef SGS_CMP_ORDER
  8232. + #ifdef NO_ADDSUB_Q
  8233. +   return \"sub.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  8234. + #else
  8235. +   return \"subq.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  8236. + #endif
  8237. + #else /* not SGS_CMP_ORDER */
  8238. +   return \"subq.l %#1,%0\;cmp.l %#-1,%0\;jbne %l1\";
  8239. + #endif /* not SGS_CMP_ORDER */
  8240. + #else /* not MOTOROLA */
  8241. +   if (DATA_REG_P (operands[0]))
  8242. +     return \"dbra %0,%l1\;clr%.w %0\;subql %#1,%0\;jcc %l1\";
  8243. +   if (GET_CODE (operands[0]) == MEM)
  8244. +     return \"subql %#1,%0\;jcc %l1\";
  8245. +   return \"subql %#1,%0\;cmpl %#-1,%0\;jne %l1\";
  8246. + #endif /* not MOTOROLA */
  8247. + }")
  8248. + 
  8249. + ;; Two dbra patterns that use REG_NOTES info generated by strength_reduce.
  8250. + 
  8251. + (define_insn ""
  8252. +   [(set (pc)
  8253. +     (if_then_else
  8254. +       (ge (plus:HI (match_operand:HI 0 "general_operand" "+g")
  8255. +                (const_int -1))
  8256. +           (const_int 0))
  8257. +       (label_ref (match_operand 1 "" ""))
  8258. +       (pc)))
  8259. +    (set (match_dup 0)
  8260. +     (plus:HI (match_dup 0)
  8261. +          (const_int -1)))]
  8262. +   "find_reg_note (insn, REG_NONNEG, 0)"
  8263. +   "*
  8264. + {
  8265. +   CC_STATUS_INIT;
  8266. + #ifdef MOTOROLA
  8267. + #ifdef NO_ADDSUB_Q
  8268. +   if (DATA_REG_P (operands[0]))
  8269. +     return \"dbra %0,%l1\";
  8270. +   if (GET_CODE (operands[0]) == MEM)
  8271. +     return \"sub%.w %#1,%0\;jbcc %l1\";
  8272. + #else
  8273. +   if (DATA_REG_P (operands[0]))
  8274. +     return \"dbra %0,%l1\";
  8275. +   if (GET_CODE (operands[0]) == MEM)
  8276. +     return \"subq%.w %#1,%0\;jbcc %l1\";
  8277. + #endif
  8278. + #ifdef SGS_CMP_ORDER
  8279. + #ifdef NO_ADDSUB_Q
  8280. +   return \"sub.w %#1,%0\;cmp.w %0,%#-1\;jbne %l1\";
  8281. + #else
  8282. +   return \"subq.w %#1,%0\;cmp.w %0,%#-1\;jbne %l1\";
  8283. + #endif
  8284. + #else /* not SGS_CMP_ORDER */
  8285. +   return \"subq.w %#1,%0\;cmp.w %#-1,%0\;jbne %l1\";
  8286. + #endif /* not SGS_CMP_ORDER */
  8287. + #else /* not MOTOROLA */
  8288. +   if (DATA_REG_P (operands[0]))
  8289. +     return \"dbra %0,%l1\";
  8290. +   if (GET_CODE (operands[0]) == MEM)
  8291. +     return \"subqw %#1,%0\;jcc %l1\";
  8292. +   return \"subqw %#1,%0\;cmpw %#-1,%0\;jne %l1\";
  8293. + #endif /* not MOTOROLA */
  8294. + }")
  8295. + 
  8296. + (define_insn "decrement_and_branch_until_zero"
  8297. +   [(set (pc)
  8298. +     (if_then_else
  8299. +       (ge (plus:SI (match_operand:SI 0 "general_operand" "+g")
  8300. +                (const_int -1))
  8301. +           (const_int 0))
  8302. +       (label_ref (match_operand 1 "" ""))
  8303. +       (pc)))
  8304. +    (set (match_dup 0)
  8305. +     (plus:SI (match_dup 0)
  8306. +          (const_int -1)))]
  8307. +   "find_reg_note (insn, REG_NONNEG, 0)"
  8308. +   "*
  8309. + {
  8310. +   CC_STATUS_INIT;
  8311. + #ifdef MOTOROLA
  8312. + #ifdef NO_ADDSUB_Q
  8313. +   if (DATA_REG_P (operands[0]))
  8314. +     return \"dbra %0,%l1\;clr%.w %0\;sub%.l %#1,%0\;jbcc %l1\";
  8315. +   if (GET_CODE (operands[0]) == MEM)
  8316. +     return \"sub%.l %#1,%0\;jbcc %l1\";
  8317. + #else
  8318. +   if (DATA_REG_P (operands[0]))
  8319. +     return \"dbra %0,%l1\;clr%.w %0\;subq%.l %#1,%0\;jbcc %l1\";
  8320. +   if (GET_CODE (operands[0]) == MEM)
  8321. +     return \"subq%.l %#1,%0\;jbcc %l1\";
  8322. + #endif
  8323. + #ifdef SGS_CMP_ORDER
  8324. + #ifdef NO_ADDSUB_Q
  8325. +   return \"sub.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  8326. + #else
  8327. +   return \"subq.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  8328. + #endif
  8329. + #else /* not SGS_CMP_ORDER */
  8330. +   return \"subq.l %#1,%0\;cmp.l %#-1,%0\;jbne %l1\";
  8331. + #endif /* not SGS_CMP_ORDER */
  8332. + #else /* not MOTOROLA */
  8333. +   if (DATA_REG_P (operands[0]))
  8334. +     return \"dbra %0,%l1\;clr%.w %0\;subql %#1,%0\;jcc %l1\";
  8335. +   if (GET_CODE (operands[0]) == MEM)
  8336. +     return \"subql %#1,%0\;jcc %l1\";
  8337. +   return \"subql %#1,%0\;cmpl %#-1,%0\;jne %l1\";
  8338. + #endif /* not MOTOROLA */
  8339. + }")
  8340. + 
  8341. + 
  8342. + ;; PIC calls are handled by loading the address of the function into a 
  8343. + ;; register (via movsi), then emitting a register indirect call using
  8344. + ;; the "jsr" function call syntax.
  8345. + ;;
  8346. + ;; It is important to note that the "jsr" syntax is always used for 
  8347. + ;; PIC calls, even on machines in which GCC normally uses the "jbsr"
  8348. + ;; syntax for non-PIC calls.  This keeps at least 1 assembler (Sun)
  8349. + ;; from emitting incorrect code for a PIC call.
  8350. + ;;
  8351. + ;; We have different patterns for PIC calls and non-PIC calls.  The
  8352. + ;; different patterns are only used to choose the right syntax
  8353. + ;; ("jsr" vs "jbsr").
  8354. + ;;
  8355. + ;; On svr4 m68k, PIC stuff is done differently. To be able to support
  8356. + ;; dynamic linker LAZY BINDING, all the procedure calls need to go 
  8357. + ;; through the PLT (Procedure Linkage Table) section in PIC mode. The 
  8358. + ;; svr4 m68k assembler recognizes this syntax: `bsr FUNC@PLTPC' and it 
  8359. + ;; will create the correct relocation entry (R_68K_PLT32) for `FUNC', 
  8360. + ;; that tells the linker editor to create an entry for `FUNC' in PLT
  8361. + ;; section at link time. However, all global objects reference are still
  8362. + ;; done by using `OBJ@GOT'. So, the goal here is to output the function 
  8363. + ;; call operand as `FUNC@PLTPC', but output object operand as `OBJ@GOT'. 
  8364. + ;; We need to have a way to differentiate these two different operands.
  8365. + ;;
  8366. + ;; The strategy I use here is to use SYMBOL_REF_FLAG to differentiate 
  8367. + ;; these two different operands. The macro LEGITIMATE_PIC_OPERAND_P needs
  8368. + ;; to be changed to recognize function calls symbol_ref operand as a legal 
  8369. + ;; PIC operand (by checking whether SYMBOL_REF_FLAG is set). This will 
  8370. + ;; avoid the compiler to load this symbol_ref operand into a register. 
  8371. + ;; Remember, the operand "foo@PLTPC" cannot be called via jsr directly 
  8372. + ;; since the value is a PC relative offset, not a real address.
  8373. + ;;
  8374. + ;; All global objects are treated in the similar way as in SUN3. The only 
  8375. + ;; difference is: on m68k svr4, the reference of such global object needs 
  8376. + ;; to end with a suffix "@GOT" so the assembler and linker know to create
  8377. + ;; an entry for it in GOT (Global Offset Table) section. This is done in 
  8378. + ;; m68k.c.
  8379. + 
  8380. + ;; Call subroutine with no return value.
  8381. + (define_expand "call"
  8382. +   [(call (match_operand:QI 0 "memory_operand" "")
  8383. +      (match_operand:SI 1 "general_operand" ""))]
  8384. +   ;; Operand 1 not really used on the m68000.
  8385. + 
  8386. +   ""
  8387. +   "
  8388. + {
  8389. +   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  8390. + #ifdef MOTOROLA
  8391. +     SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  8392. + #else
  8393. +     operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  8394. +                force_reg (Pmode, XEXP (operands[0], 0)));
  8395. + #endif
  8396. + }")
  8397. + 
  8398. + ;; This is a normal call sequence.
  8399. + (define_insn ""
  8400. +   [(call (match_operand:QI 0 "memory_operand" "o")
  8401. +      (match_operand:SI 1 "general_operand" "g"))]
  8402. +   ;; Operand 1 not really used on the m68000.
  8403. + 
  8404. +   "(! flag_pic || flag_pic >= 3)"
  8405. +   "*
  8406. + #ifdef MOTOROLA
  8407. +   return \"jsr %0\";
  8408. + #else
  8409. +   return \"jbsr %0\";
  8410. + #endif
  8411. + ")
  8412. + 
  8413. + ;; This is a PIC call sequence.
  8414. + (define_insn ""
  8415. +   [(call (match_operand:QI 0 "memory_operand" "o")
  8416. +      (match_operand:SI 1 "general_operand" "g"))]
  8417. +   ;; Operand 1 not really used on the m68000.
  8418. + 
  8419. +   "(flag_pic && flag_pic < 3)"
  8420. +   "*
  8421. + #ifdef HPUX_ASM
  8422. +   return \"bsr %0\";
  8423. + #else
  8424. + #ifdef MOTOROLA
  8425. +   if (GET_CODE (operands[0]) == MEM 
  8426. +       && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  8427. +     return \"bsr %0@PLTPC\";
  8428. + #endif
  8429. +   return \"jsr %0\";
  8430. + #endif
  8431. + ")
  8432. + 
  8433. + ;; Call subroutine, returning value in operand 0
  8434. + ;; (which must be a hard register).
  8435. + ;; See comments before "call" regarding PIC calls.
  8436. + (define_expand "call_value"
  8437. +   [(set (match_operand 0 "" "")
  8438. +     (call (match_operand:QI 1 "memory_operand" "")
  8439. +      (match_operand:SI 2 "general_operand" "")))]
  8440. +   ;; Operand 2 not really used on the m68000.
  8441. +   ""
  8442. +   "
  8443. + {
  8444. +   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  8445. + #ifdef MOTOROLA
  8446. +     SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  8447. + #else
  8448. +     operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  8449. +                force_reg (Pmode, XEXP (operands[1], 0)));
  8450. + #endif
  8451. + }")
  8452. + 
  8453. + ;; This is a normal call_value
  8454. + (define_insn ""
  8455. +   [(set (match_operand 0 "" "=rf")
  8456. +     (call (match_operand:QI 1 "memory_operand" "o")
  8457. +           (match_operand:SI 2 "general_operand" "g")))]
  8458. +   ;; Operand 2 not really used on the m68000.
  8459. +   "(! flag_pic || flag_pic >= 3)"
  8460. +   "*
  8461. + #ifdef MOTOROLA
  8462. +   return \"jsr %1\";
  8463. + #else
  8464. +   return \"jbsr %1\";
  8465. + #endif
  8466. + ")
  8467. + 
  8468. + ;; This is a PIC call_value
  8469. + (define_insn ""
  8470. +   [(set (match_operand 0 "" "=rf")
  8471. +     (call (match_operand:QI 1 "memory_operand" "o")
  8472. +           (match_operand:SI 2 "general_operand" "g")))]
  8473. +   ;; Operand 2 not really used on the m68000.
  8474. +   "(flag_pic && flag_pic < 3)"
  8475. +   "*
  8476. + #ifdef HPUX_ASM
  8477. +   return \"bsr %1\";
  8478. + #else
  8479. + #ifdef MOTOROLA
  8480. +   if (GET_CODE (operands[1]) == MEM 
  8481. +       && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  8482. +     return \"bsr %1@PLTPC\";
  8483. + #endif
  8484. +   return \"jsr %1\";
  8485. + #endif
  8486. + ")
  8487. + 
  8488. + ;; Call subroutine returning any type.
  8489. + 
  8490. + (define_expand "untyped_call"
  8491. +   [(parallel [(call (match_operand 0 "" "")
  8492. +             (const_int 0))
  8493. +           (match_operand 1 "" "")
  8494. +           (match_operand 2 "" "")])]
  8495. +   "NEEDS_UNTYPED_CALL"
  8496. +   "
  8497. + {
  8498. +   int i;
  8499. + 
  8500. +   emit_call_insn (gen_call (operands[0], const0_rtx, NULL, const0_rtx));
  8501. + 
  8502. +   for (i = 0; i < XVECLEN (operands[2], 0); i++)
  8503. +     {
  8504. +       rtx set = XVECEXP (operands[2], 0, i);
  8505. +       emit_move_insn (SET_DEST (set), SET_SRC (set));
  8506. +     }
  8507. + 
  8508. +   /* The optimizer does not know that the call sets the function value
  8509. +      registers we stored in the result block.  We avoid problems by
  8510. +      claiming that all hard registers are used and clobbered at this
  8511. +      point.  */
  8512. +   emit_insn (gen_blockage ());
  8513. + 
  8514. +   DONE;
  8515. + }")
  8516. + 
  8517. + ;; UNSPEC_VOLATILE is considered to use and clobber all hard registers and
  8518. + ;; all of memory.  This blocks insns from being moved across this point.
  8519. + 
  8520. + (define_insn "blockage"
  8521. +   [(unspec_volatile [(const_int 0)] 0)]
  8522. +   ""
  8523. +   "")
  8524. + 
  8525. + (define_insn "nop"
  8526. +   [(const_int 0)]
  8527. +   ""
  8528. +   "nop")
  8529. + 
  8530. + (define_insn "probe"
  8531. +  [(reg:SI 15)]
  8532. +  "NEED_PROBE"
  8533. +  "*
  8534. + {
  8535. +   operands[0] = gen_rtx (PLUS, SImode, stack_pointer_rtx,
  8536. +              gen_rtx (CONST_INT, VOIDmode, NEED_PROBE));
  8537. +   return \"tstl %a0\";
  8538. + }")
  8539. + 
  8540. + ;; Used for frameless functions which save no regs and allocate no locals.
  8541. + (define_insn "return"
  8542. +   [(return)]
  8543. +   "USE_RETURN_INSN"
  8544. +   "*
  8545. + {
  8546. +   if (current_function_pops_args == 0)
  8547. +     return \"rts\";
  8548. +   operands[0] = gen_rtx (CONST_INT, VOIDmode, current_function_pops_args);
  8549. +   return \"rtd %0\";
  8550. + }")
  8551. + 
  8552. + (define_insn "indirect_jump"
  8553. +   [(set (pc) (match_operand:SI 0 "address_operand" "p"))]
  8554. +   ""
  8555. +   "jmp %a0")
  8556. + 
  8557. + ;; This should not be used unless the add/sub insns can't be.
  8558. + 
  8559. + (define_insn ""
  8560. +   [(set (match_operand:SI 0 "general_operand" "=a")
  8561. +     (match_operand:QI 1 "address_operand" "p"))]
  8562. +   ""
  8563. +   "lea %a1,%0")
  8564. + 
  8565. + ;; This is the first machine-dependent peephole optimization.
  8566. + ;; It is useful when a floating value is returned from a function call
  8567. + ;; and then is moved into an FP register.
  8568. + ;; But it is mainly intended to test the support for these optimizations.
  8569. + 
  8570. + (define_peephole
  8571. +   [(set (reg:SI 15) (plus:SI (reg:SI 15) (const_int 4)))
  8572. +    (set (match_operand:DF 0 "register_operand" "=f")
  8573. +     (match_operand:DF 1 "register_operand" "ad"))]
  8574. +   "FP_REG_P (operands[0]) && ! FP_REG_P (operands[1])"
  8575. +   "*
  8576. + {
  8577. +   rtx xoperands[2];
  8578. +   xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  8579. +   output_asm_insn (\"move%.l %1,%@\", xoperands);
  8580. +   output_asm_insn (\"move%.l %1,%-\", operands);
  8581. +   return \"fmove%.d %+,%0\";
  8582. + }
  8583. + ")
  8584. + 
  8585. + ;; Optimize a stack-adjust followed by a push of an argument.
  8586. + ;; This is said to happen frequently with -msoft-float
  8587. + ;; when there are consecutive library calls.
  8588. + 
  8589. + (define_peephole
  8590. +   [(set (reg:SI 15) (plus:SI (reg:SI 15)
  8591. +                  (match_operand:SI 0 "immediate_operand" "n")))
  8592. +    (set (match_operand:SF 1 "push_operand" "=m")
  8593. +     (match_operand:SF 2 "general_operand" "rmfF"))]
  8594. +   "GET_CODE (operands[0]) == CONST_INT && INTVAL (operands[0]) >= 4
  8595. +    && ! reg_mentioned_p (stack_pointer_rtx, operands[2])"
  8596. +   "*
  8597. + {
  8598. +   if (INTVAL (operands[0]) > 4)
  8599. +     {
  8600. +       rtx xoperands[2];
  8601. +       xoperands[0] = stack_pointer_rtx;
  8602. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[0]) - 4);
  8603. + #ifndef NO_ADDSUB_Q
  8604. +       if (INTVAL (xoperands[1]) <= 8)
  8605. +         output_asm_insn (\"addq%.w %1,%0\", xoperands);
  8606. +       else if (INTVAL (xoperands[1]) <= 16 && TARGET_68020)
  8607. +     {
  8608. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, 
  8609. +                   INTVAL (xoperands[1]) - 8);
  8610. +       output_asm_insn (\"addq%.w %#8,%0\;addq%.w %1,%0\", xoperands);
  8611. +     }
  8612. +       else
  8613. + #endif
  8614. +         if (INTVAL (xoperands[1]) <= 0x7FFF)
  8615. +           output_asm_insn (\"add%.w %1,%0\", xoperands);
  8616. +       else
  8617. +         output_asm_insn (\"add%.l %1,%0\", xoperands);
  8618. +     }
  8619. +   if (FP_REG_P (operands[2]))
  8620. +     return \"fmove%.s %2,%@\";
  8621. +   return \"move%.l %2,%@\";
  8622. + }")
  8623. + 
  8624. + ;; Speed up stack adjust followed by a fullword fixedpoint push.
  8625. + 
  8626. + (define_peephole
  8627. +   [(set (reg:SI 15) (plus:SI (reg:SI 15)
  8628. +                  (match_operand:SI 0 "immediate_operand" "n")))
  8629. +    (set (match_operand:SI 1 "push_operand" "=m")
  8630. +     (match_operand:SI 2 "general_operand" "g"))]
  8631. +   "GET_CODE (operands[0]) == CONST_INT && INTVAL (operands[0]) >= 4
  8632. +    && ! reg_mentioned_p (stack_pointer_rtx, operands[2])"
  8633. +   "*
  8634. + {
  8635. +   if (INTVAL (operands[0]) > 4)
  8636. +     {
  8637. +       rtx xoperands[2];
  8638. +       xoperands[0] = stack_pointer_rtx;
  8639. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[0]) - 4);
  8640. + #ifndef NO_ADDSUB_Q
  8641. +       if (INTVAL (xoperands[1]) <= 8)
  8642. +         output_asm_insn (\"addq%.w %1,%0\", xoperands);
  8643. +       else if (INTVAL (xoperands[1]) <= 16 && TARGET_68020)
  8644. +     {
  8645. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, 
  8646. +                   INTVAL (xoperands[1]) - 8);
  8647. +       output_asm_insn (\"addq%.w %#8,%0\;addq%.w %1,%0\", xoperands);
  8648. +     }
  8649. +       else
  8650. + #endif
  8651. +         if (INTVAL (xoperands[1]) <= 0x7FFF)
  8652. +           output_asm_insn (\"add%.w %1,%0\", xoperands);
  8653. +       else
  8654. +         output_asm_insn (\"add%.l %1,%0\", xoperands);
  8655. +     }
  8656. +   if (operands[2] == const0_rtx)
  8657. +     return \"clr%.l %@\";
  8658. +   return \"move%.l %2,%@\";
  8659. + }")
  8660. + 
  8661. + ;; Speed up pushing a single byte but leaving four bytes of space.
  8662. + 
  8663. + (define_peephole
  8664. +   [(set (mem:QI (pre_dec:SI (reg:SI 15)))
  8665. +     (match_operand:QI 1 "general_operand" "dami"))
  8666. +    (set (reg:SI 15) (minus:SI (reg:SI 15) (const_int 2)))]
  8667. +   "! reg_mentioned_p (stack_pointer_rtx, operands[1])"
  8668. +   "*
  8669. + {
  8670. +   rtx xoperands[4];
  8671. + 
  8672. +   if (GET_CODE (operands[1]) == REG)
  8673. +     return \"move%.l %1,%-\";
  8674. + 
  8675. +   xoperands[1] = operands[1];
  8676. +   xoperands[2]
  8677. +     = gen_rtx (MEM, QImode,
  8678. +            gen_rtx (PLUS, VOIDmode, stack_pointer_rtx,
  8679. +             gen_rtx (CONST_INT, VOIDmode, 3)));
  8680. +   xoperands[3] = stack_pointer_rtx;
  8681. +   output_asm_insn (\"subq%.w %#4,%3\;move%.b %1,%2\", xoperands);
  8682. +   return \"\";
  8683. + }")
  8684. + 
  8685. + (define_peephole
  8686. +   [(set (match_operand:SI 0 "register_operand" "=d")
  8687. +     (const_int 0))
  8688. +    (set (strict_low_part (subreg:HI (match_dup 0) 0))
  8689. +     (match_operand:HI 1 "general_operand" "rmn"))]
  8690. +   "strict_low_part_peephole_ok (HImode, prev_nonnote_insn (insn), operands[0])"
  8691. +   "*
  8692. + {
  8693. +   if (GET_CODE (operands[1]) == CONST_INT)
  8694. +     {
  8695. +       if (operands[1] == const0_rtx
  8696. +       && (DATA_REG_P (operands[0])
  8697. +           || GET_CODE (operands[0]) == MEM)
  8698. +       /* clr insns on 68000 read before writing.
  8699. +          This isn't so on the 68010, but we have no alternative for it.  */
  8700. +       && (TARGET_68020
  8701. +           || !(GET_CODE (operands[0]) == MEM
  8702. +            && MEM_VOLATILE_P (operands[0]))))
  8703. +     return \"clr%.w %0\";
  8704. +     }
  8705. +   return \"move%.w %1,%0\";
  8706. + }")
  8707. + 
  8708. + ;; dbCC peepholes
  8709. + ;;
  8710. + ;; Turns
  8711. + ;;   loop:
  8712. + ;;           [ ... ]
  8713. + ;;           jCC label        ; abnormal loop termination
  8714. + ;;           dbra dN, loop    ; normal loop termination
  8715. + ;;
  8716. + ;; Into
  8717. + ;;   loop:
  8718. + ;;           [ ... ]
  8719. + ;;           dbCC dN, loop
  8720. + ;;           jCC label
  8721. + ;;
  8722. + ;; Which moves the jCC condition outside the inner loop for free.
  8723. + ;;
  8724. + (define_peephole
  8725. +   [(set (pc) (if_then_else (match_operator 3 "valid_dbcc_comparison_p"
  8726. +                              [(cc0) (const_int 0)])
  8727. +                            (label_ref (match_operand 2 "" ""))
  8728. +                            (pc)))
  8729. +    (parallel
  8730. +     [(set (pc)
  8731. +       (if_then_else
  8732. +         (ge (plus:HI (match_operand:HI 0 "register_operand" "+d")
  8733. +                  (const_int -1))
  8734. +             (const_int 0))
  8735. +         (label_ref (match_operand 1 "" ""))
  8736. +         (pc)))
  8737. +      (set (match_dup 0)
  8738. +       (plus:HI (match_dup 0)
  8739. +            (const_int -1)))])]
  8740. +   "DATA_REG_P (operands[0])"
  8741. +   "*
  8742. + {
  8743. +   CC_STATUS_INIT;
  8744. +   output_dbcc_and_branch (operands);
  8745. +   return \"\";
  8746. + }")
  8747. + 
  8748. + (define_peephole
  8749. +   [(set (pc) (if_then_else (match_operator 3 "valid_dbcc_comparison_p"
  8750. +                              [(cc0) (const_int 0)])
  8751. +                            (label_ref (match_operand 2 "" ""))
  8752. +                            (pc)))
  8753. +    (parallel
  8754. +     [(set (pc)
  8755. +       (if_then_else
  8756. +         (ge (plus:SI (match_operand:SI 0 "register_operand" "+d")
  8757. +                  (const_int -1))
  8758. +             (const_int 0))
  8759. +         (label_ref (match_operand 1 "" ""))
  8760. +         (pc)))
  8761. +      (set (match_dup 0)
  8762. +       (plus:SI (match_dup 0)
  8763. +            (const_int -1)))])]
  8764. +   "DATA_REG_P (operands[0])"
  8765. +   "*
  8766. + {
  8767. +   CC_STATUS_INIT;
  8768. +   output_dbcc_and_branch (operands);
  8769. +   return \"\";
  8770. + }")
  8771. + 
  8772. + 
  8773. + ;; FPA multiply and add.
  8774. + (define_insn ""
  8775. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8776. +     (plus:DF (mult:DF (match_operand:DF 1 "general_operand" "%x,dmF,y")
  8777. +               (match_operand:DF 2 "general_operand" "xH,y,y"))
  8778. +          (match_operand:DF 3 "general_operand" "xH,y,dmF")))]
  8779. +    "TARGET_FPA"
  8780. +    "@
  8781. +     fpma%.d %1,%w2,%w3,%0
  8782. +     fpma%.d %x1,%x2,%x3,%0
  8783. +     fpma%.d %x1,%x2,%x3,%0")
  8784. + 
  8785. + (define_insn ""
  8786. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8787. +     (plus:SF (mult:SF (match_operand:SF 1 "general_operand" "%x,ydmF,y")
  8788. +               (match_operand:SF 2 "general_operand" "xH,y,ydmF"))
  8789. +          (match_operand:SF 3 "general_operand" "xH,ydmF,ydmF")))]
  8790. +    "TARGET_FPA"
  8791. +    "@
  8792. +     fpma%.s %1,%w2,%w3,%0
  8793. +     fpma%.s %1,%2,%3,%0
  8794. +     fpma%.s %1,%2,%3,%0")
  8795. + 
  8796. + ;; FPA Multiply and subtract
  8797. + (define_insn ""
  8798. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8799. +     (minus:DF (match_operand:DF 1 "general_operand" "xH,rmF,y")
  8800. +           (mult:DF (match_operand:DF 2 "general_operand" "%xH,y,y")
  8801. +                (match_operand:DF 3 "general_operand" "x,y,rmF"))))]
  8802. +   "TARGET_FPA"
  8803. +   "@
  8804. +    fpms%.d %3,%w2,%w1,%0
  8805. +    fpms%.d %x3,%2,%x1,%0
  8806. +    fpms%.d %x3,%2,%x1,%0")
  8807. + 
  8808. + (define_insn ""
  8809. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8810. +     (minus:SF (match_operand:SF 1 "general_operand" "xH,rmF,yrmF")
  8811. +           (mult:SF (match_operand:SF 2 "general_operand" "%xH,rmF,y")
  8812. +                (match_operand:SF 3 "general_operand" "x,y,yrmF"))))]
  8813. +   "TARGET_FPA"
  8814. +   "@
  8815. +    fpms%.s %3,%w2,%w1,%0
  8816. +    fpms%.s %3,%2,%1,%0
  8817. +    fpms%.s %3,%2,%1,%0")
  8818. + 
  8819. + (define_insn ""
  8820. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8821. +     (minus:DF (mult:DF (match_operand:DF 1 "general_operand" "%xH,y,y")
  8822. +                (match_operand:DF 2 "general_operand" "x,y,rmF"))
  8823. +           (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  8824. +   "TARGET_FPA"
  8825. +   "@
  8826. +    fpmr%.d %2,%w1,%w3,%0
  8827. +    fpmr%.d %x2,%1,%x3,%0
  8828. +    fpmr%.d %x2,%1,%x3,%0")
  8829. + 
  8830. + (define_insn ""
  8831. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8832. +     (minus:SF (mult:SF (match_operand:SF 1 "general_operand" "%xH,rmF,y")
  8833. +                (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  8834. +           (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  8835. +   "TARGET_FPA"
  8836. +   "@
  8837. +    fpmr%.s %2,%w1,%w3,%0
  8838. +    fpmr%.s %x2,%1,%x3,%0
  8839. +    fpmr%.s %x2,%1,%x3,%0")
  8840. + 
  8841. + ;; FPA Add and multiply
  8842. + (define_insn ""
  8843. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8844. +     (mult:DF (plus:DF (match_operand:DF 1 "general_operand" "%xH,y,y")
  8845. +               (match_operand:DF 2 "general_operand" "x,y,rmF"))
  8846. +          (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  8847. +   "TARGET_FPA"
  8848. +   "@
  8849. +    fpam%.d %2,%w1,%w3,%0
  8850. +    fpam%.d %x2,%1,%x3,%0
  8851. +    fpam%.d %x2,%1,%x3,%0")
  8852. + 
  8853. + (define_insn ""
  8854. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8855. +     (mult:SF (plus:SF (match_operand:SF 1 "general_operand" "%xH,rmF,y")
  8856. +               (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  8857. +          (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  8858. +   "TARGET_FPA"
  8859. +   "@
  8860. +    fpam%.s %2,%w1,%w3,%0
  8861. +    fpam%.s %x2,%1,%x3,%0
  8862. +    fpam%.s %x2,%1,%x3,%0")
  8863. + 
  8864. + ;;FPA Subtract and multiply
  8865. + (define_insn ""
  8866. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8867. +     (mult:DF (minus:DF (match_operand:DF 1 "general_operand" "xH,y,y")
  8868. +                (match_operand:DF 2 "general_operand" "x,y,rmF"))
  8869. +          (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  8870. +   "TARGET_FPA"
  8871. +   "@
  8872. +    fpsm%.d %2,%w1,%w3,%0
  8873. +    fpsm%.d %x2,%1,%x3,%0
  8874. +    fpsm%.d %x2,%1,%x3,%0")
  8875. + 
  8876. + (define_insn ""
  8877. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  8878. +     (mult:DF (match_operand:DF 1 "general_operand" "xH,rmF,y")
  8879. +          (minus:DF (match_operand:DF 2 "general_operand" "xH,y,y")
  8880. +                (match_operand:DF 3 "general_operand" "x,y,rmF"))))]
  8881. +   "TARGET_FPA"
  8882. +   "@
  8883. +    fpsm%.d %3,%w2,%w1,%0
  8884. +    fpsm%.d %x3,%2,%x1,%0
  8885. +    fpsm%.d %x3,%2,%x1,%0")
  8886. + 
  8887. + (define_insn ""
  8888. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8889. +     (mult:SF (minus:SF (match_operand:SF 1 "general_operand" "xH,rmF,y")
  8890. +                (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  8891. +          (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  8892. +   "TARGET_FPA"
  8893. +   "@
  8894. +    fpsm%.s %2,%w1,%w3,%0
  8895. +    fpsm%.s %x2,%1,%x3,%0
  8896. +    fpsm%.s %x2,%1,%x3,%0")
  8897. + 
  8898. + (define_insn ""
  8899. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  8900. +     (mult:SF (match_operand:SF 1 "general_operand" "xH,rmF,yrmF")
  8901. +          (minus:SF (match_operand:SF 2 "general_operand" "xH,rmF,y")
  8902. +                (match_operand:SF 3 "general_operand" "x,y,yrmF"))))]
  8903. +   "TARGET_FPA"
  8904. +   "@
  8905. +    fpsm%.s %3,%w2,%w1,%0
  8906. +    fpsm%.s %x3,%2,%x1,%0
  8907. +    fpsm%.s %x3,%2,%x1,%0")
  8908. + 
  8909. + (define_insn "tstxf"
  8910. +   [(set (cc0)
  8911. +     (match_operand:XF 0 "nonimmediate_operand" "fm"))]
  8912. +   "TARGET_68881"
  8913. +   "*
  8914. + {
  8915. +   cc_status.flags = CC_IN_68881;
  8916. +   return \"ftst%.x %0\";
  8917. + }")
  8918. + 
  8919. + 
  8920. + (define_expand "cmpxf"
  8921. +   [(set (cc0)
  8922. +     (compare (match_operand:XF 0 "general_operand" "f,mG")
  8923. +          (match_operand:XF 1 "general_operand" "fmG,f")))]
  8924. +   "TARGET_68881"
  8925. +   "
  8926. + {
  8927. +   if (CONSTANT_P (operands[0]))
  8928. +       operands[0] = force_const_mem (XFmode, operands[0]);
  8929. +   if (CONSTANT_P (operands[1]))
  8930. +       operands[1] = force_const_mem (XFmode, operands[1]);
  8931. + }")
  8932. + 
  8933. + (define_insn ""
  8934. +   [(set (cc0)
  8935. +     (compare (match_operand:XF 0 "nonimmediate_operand" "f,mG")
  8936. +          (match_operand:XF 1 "nonimmediate_operand" "fmG,f")))]
  8937. +   "TARGET_68881"
  8938. +   "*
  8939. + {
  8940. +   cc_status.flags = CC_IN_68881;
  8941. + #ifdef SGS_CMP_ORDER
  8942. +   if (REG_P (operands[0]))
  8943. +     {
  8944. +       if (REG_P (operands[1]))
  8945. +     return \"fcmp%.x %0,%1\";
  8946. +       else
  8947. +         return \"fcmp%.x %0,%f1\";
  8948. +     }
  8949. +   cc_status.flags |= CC_REVERSED;
  8950. +   return \"fcmp%.x %1,%f0\";
  8951. + #else
  8952. +   if (REG_P (operands[0]))
  8953. +     {
  8954. +       if (REG_P (operands[1]))
  8955. +     return \"fcmp%.x %1,%0\";
  8956. +       else
  8957. +         return \"fcmp%.x %f1,%0\";
  8958. +     }
  8959. +   cc_status.flags |= CC_REVERSED;
  8960. +   return \"fcmp%.x %f0,%1\";
  8961. + #endif
  8962. + }")
  8963. + 
  8964. + (define_insn "extendsfxf2"
  8965. +   [(set (match_operand:XF 0 "general_operand" "=fm,f")
  8966. +     (float_extend:XF (match_operand:SF 1 "general_operand" "f,m")))]
  8967. +   "TARGET_68881"
  8968. +   "*
  8969. + {
  8970. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  8971. +     {
  8972. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  8973. +     {
  8974. +       /* Extending float to double in an fp-reg is a no-op.
  8975. +          NOTICE_UPDATE_CC has already assumed that the
  8976. +          cc will be set.  So cancel what it did.  */
  8977. +       cc_status = cc_prev_status;
  8978. +       return \"\";
  8979. +     }
  8980. +       return \"f%$move%.x %1,%0\";
  8981. +     }
  8982. +   if (FP_REG_P (operands[0]))
  8983. +     return \"f%$move%.s %f1,%0\";
  8984. +   return \"fmove%.x %f1,%0\";
  8985. + }")
  8986. + 
  8987. + 
  8988. + (define_insn "extenddfxf2"
  8989. +   [(set (match_operand:XF 0 "general_operand" "=fm,f")
  8990. +     (float_extend:XF
  8991. +           (match_operand:DF 1 "general_operand" "f,m")))]
  8992. +   "TARGET_68881"
  8993. +   "*
  8994. + {
  8995. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  8996. +     {
  8997. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  8998. +     {
  8999. +       /* Extending float to double in an fp-reg is a no-op.
  9000. +          NOTICE_UPDATE_CC has already assumed that the
  9001. +          cc will be set.  So cancel what it did.  */
  9002. +       cc_status = cc_prev_status;
  9003. +       return \"\";
  9004. +     }
  9005. +       return \"fmove%.x %1,%0\";
  9006. +     }
  9007. +   if (FP_REG_P (operands[0]))
  9008. +     return \"f%&move%.d %f1,%0\";
  9009. +   return \"fmove%.x %f1,%0\";
  9010. + }")
  9011. + 
  9012. + (define_insn "truncxfdf2"
  9013. +   [(set (match_operand:DF 0 "general_operand" "=m,!r")
  9014. +     (float_truncate:DF
  9015. +           (match_operand:XF 1 "general_operand" "f,f")))]
  9016. +   "TARGET_68881"
  9017. +   "*
  9018. + {
  9019. +   if (REG_P (operands[0]))
  9020. +     {
  9021. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  9022. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  9023. +       return \"move%.l %+,%0\";
  9024. +     }
  9025. +   return \"fmove%.d %f1,%0\";
  9026. + }")
  9027. +  
  9028. + (define_insn "truncxfsf2"
  9029. +   [(set (match_operand:SF 0 "general_operand" "=dm")
  9030. +     (float_truncate:SF
  9031. +       (match_operand:XF 1 "general_operand" "f")))]
  9032. +   "TARGET_68881"
  9033. +   "fmove%.s %f1,%0")
  9034. + 
  9035. + (define_insn "floatsixf2"
  9036. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9037. +     (float:XF (match_operand:SI 1 "general_operand" "dmi")))]
  9038. +   "TARGET_68881"
  9039. +   "fmove%.l %1,%0")
  9040. + 
  9041. + (define_insn "floathixf2"
  9042. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9043. +     (float:XF (match_operand:HI 1 "general_operand" "dmn")))]
  9044. +   "TARGET_68881"
  9045. +   "fmove%.w %1,%0")
  9046. + 
  9047. + (define_insn "floatqixf2"
  9048. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9049. +     (float:XF (match_operand:QI 1 "general_operand" "dmn")))]
  9050. +   "TARGET_68881"
  9051. +   "fmove%.b %1,%0")
  9052. + 
  9053. + (define_insn "ftruncxf2"
  9054. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9055. +     (fix:XF (match_operand:XF 1 "general_operand" "fFm")))]
  9056. +   "TARGET_68881"
  9057. +   "*
  9058. + {
  9059. +   if (FP_REG_P (operands[1]))
  9060. +     return \"fintrz%.x %f1,%0\";
  9061. +   return \"fintrz%.x %f1,%0\";
  9062. + }")
  9063. + 
  9064. + (define_insn "fixxfqi2"
  9065. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  9066. +     (fix:QI (match_operand:XF 1 "general_operand" "f")))]
  9067. +   "TARGET_68881"
  9068. +   "fmove%.b %1,%0")
  9069. + 
  9070. + (define_insn "fixxfhi2"
  9071. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  9072. +     (fix:HI (match_operand:XF 1 "general_operand" "f")))]
  9073. +   "TARGET_68881"
  9074. +   "fmove%.w %1,%0")
  9075. + 
  9076. + (define_insn "fixxfsi2"
  9077. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  9078. +     (fix:SI (match_operand:XF 1 "general_operand" "f")))]
  9079. +   "TARGET_68881"
  9080. +   "fmove%.l %1,%0")
  9081. + 
  9082. + (define_expand "addxf3"
  9083. +   [(set (match_operand:XF 0 "general_operand" "")
  9084. +     (plus:XF (match_operand:XF 1 "general_operand" "")
  9085. +          (match_operand:XF 2 "general_operand" "")))]
  9086. +   "TARGET_68881"
  9087. +   "
  9088. + {
  9089. +   if (CONSTANT_P (operands[1]))
  9090. +     operands[1] = force_const_mem (XFmode, operands[1]);
  9091. +   if (CONSTANT_P (operands[2]))
  9092. +     operands[2] = force_const_mem (XFmode, operands[2]);
  9093. + }")
  9094. + 
  9095. + (define_insn ""
  9096. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9097. +     (plus:XF (match_operand:XF 1 "nonimmediate_operand" "%0")
  9098. +          (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  9099. +   "TARGET_68881"
  9100. +   "*
  9101. + {
  9102. +   if (REG_P (operands[2]))
  9103. +     return \"fadd%.x %2,%0\";
  9104. +   return \"fadd%.x %f2,%0\";
  9105. + }")
  9106. + 
  9107. + (define_expand "subxf3"
  9108. +   [(set (match_operand:XF 0 "general_operand" "")
  9109. +     (minus:XF (match_operand:XF 1 "general_operand" "")
  9110. +          (match_operand:XF 2 "general_operand" "")))]
  9111. +   "TARGET_68881"
  9112. +   "
  9113. + {
  9114. +   if (CONSTANT_P (operands[1]))
  9115. +     operands[1] = force_const_mem (XFmode, operands[1]);
  9116. +   if (CONSTANT_P (operands[2]))
  9117. +     operands[2] = force_const_mem (XFmode, operands[2]);
  9118. + }")
  9119. + 
  9120. + (define_insn ""
  9121. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9122. +     (minus:XF (match_operand:XF 1 "nonimmediate_operand" "0")
  9123. +          (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  9124. +   "TARGET_68881"
  9125. +   "*
  9126. + {
  9127. +   if (REG_P (operands[2]))
  9128. +     return \"fsub%.x %2,%0\";
  9129. +   return \"fsub%.x %f2,%0\";
  9130. + }")
  9131. + 
  9132. + (define_expand "mulxf3"
  9133. +   [(set (match_operand:XF 0 "general_operand" "")
  9134. +     (mult:XF (match_operand:XF 1 "general_operand" "")
  9135. +         (match_operand:XF 2 "general_operand" "")))]
  9136. +   "TARGET_68881"
  9137. +   "
  9138. + {
  9139. +   if (CONSTANT_P (operands[1]))
  9140. +     operands[1] = force_const_mem (XFmode, operands[1]);
  9141. +   if (CONSTANT_P (operands[2]))
  9142. +     operands[2] = force_const_mem (XFmode, operands[2]);
  9143. + }")
  9144. + 
  9145. + (define_insn ""
  9146. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9147. +     (mult:XF (match_operand:XF 1 "nonimmediate_operand" "%0")
  9148. +         (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  9149. +   "TARGET_68881"
  9150. +   "*
  9151. + {
  9152. +   if (REG_P (operands[2]))
  9153. +     return \"fmul%.x %2,%0\";
  9154. +   return \"fmul%.x %f2,%0\";
  9155. + }")
  9156. + 
  9157. + (define_expand "divxf3"
  9158. +   [(set (match_operand:XF 0 "general_operand" "")
  9159. +     (div:XF (match_operand:XF 1 "general_operand" "")
  9160. +         (match_operand:XF 2 "general_operand" "")))]
  9161. +   "TARGET_68881"
  9162. +   "
  9163. + {
  9164. +   if (CONSTANT_P (operands[1]))
  9165. +     operands[1] = force_const_mem (XFmode, operands[1]);
  9166. +   if (CONSTANT_P (operands[2]))
  9167. +     operands[2] = force_const_mem (XFmode, operands[2]);
  9168. + }")
  9169. + 
  9170. + (define_insn ""
  9171. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9172. +     (div:XF (match_operand:XF 1 "nonimmediate_operand" "0")
  9173. +         (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  9174. +   "TARGET_68881"
  9175. +   "*
  9176. + {
  9177. +   if (REG_P (operands[2]))
  9178. +     return \"fdiv%.x %2,%0\";
  9179. +   return \"fdiv%.x %f2,%0\";
  9180. + }")
  9181. + 
  9182. + (define_insn "negxf2"
  9183. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9184. +     (neg:XF (match_operand:XF 1 "nonimmediate_operand" "fmF")))]
  9185. +   "TARGET_68881"
  9186. +   "*
  9187. + {
  9188. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  9189. +     return \"fneg%.x %1,%0\";
  9190. +   return \"fneg%.x %f1,%0\";
  9191. + }")
  9192. + 
  9193. + (define_insn "absxf2"
  9194. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9195. +     (abs:XF (match_operand:XF 1 "nonimmediate_operand" "fmF")))]
  9196. +   "TARGET_68881"
  9197. +   "*
  9198. + {
  9199. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  9200. +     return \"fabs%.x %1,%0\";
  9201. +   return \"fabs%.x %f1,%0\";
  9202. + }")
  9203. + 
  9204. + (define_insn "sqrtxf2"
  9205. +   [(set (match_operand:XF 0 "general_operand" "=f")
  9206. +     (sqrt:XF (match_operand:DF 1 "nonimmediate_operand" "fm")))]
  9207. +   "TARGET_68881"
  9208. +   "*
  9209. + {
  9210. +     return \"fsqrt%.x %1,%0\";
  9211. + }")
  9212. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/m68k.md.orig gnat-1.80/amiga/corrections/m68k.md.orig
  9213. *** /src/baseline/gnat-1.80/amiga/corrections/m68k.md.orig    Thu Jan  1 00:00:00 1970
  9214. --- gnat-1.80/amiga/corrections/m68k.md.orig    Thu Jun 23 13:13:13 1994
  9215. ***************
  9216. *** 0 ****
  9217. --- 1,5689 ----
  9218. + ;;- Machine description for GNU compiler
  9219. + ;;- Motorola 68000 Version
  9220. + ;;   Copyright (C) 1987, 1988, 1993 Free Software Foundation, Inc.
  9221. + 
  9222. + ;; This file is part of GNU CC.
  9223. + 
  9224. + ;; GNU CC is free software; you can redistribute it and/or modify
  9225. + ;; it under the terms of the GNU General Public License as published by
  9226. + ;; the Free Software Foundation; either version 2, or (at your option)
  9227. + ;; any later version.
  9228. + 
  9229. + ;; GNU CC is distributed in the hope that it will be useful,
  9230. + ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  9231. + ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  9232. + ;; GNU General Public License for more details.
  9233. + 
  9234. + ;; You should have received a copy of the GNU General Public License
  9235. + ;; along with GNU CC; see the file COPYING.  If not, write to
  9236. + ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  9237. + 
  9238. + 
  9239. + ;;- instruction definitions
  9240. + 
  9241. + ;;- @@The original PO technology requires these to be ordered by speed,
  9242. + ;;- @@    so that assigner will pick the fastest.
  9243. + 
  9244. + ;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
  9245. + 
  9246. + ;;- When naming insn's (operand 0 of define_insn) be careful about using
  9247. + ;;- names from other targets machine descriptions.
  9248. + 
  9249. + ;;- cpp macro #define NOTICE_UPDATE_CC in file tm.h handles condition code
  9250. + ;;- updates for most instructions.
  9251. + 
  9252. + ;;- Operand classes for the register allocator:
  9253. + ;;- 'a' one of the address registers can be used.
  9254. + ;;- 'd' one of the data registers can be used.
  9255. + ;;- 'f' one of the m68881 registers can be used
  9256. + ;;- 'r' either a data or an address register can be used.
  9257. + ;;- 'x' if one of the Sun FPA registers                    
  9258. + ;;- 'y' if one of the Low Sun FPA registers (fpa0-fpa15).
  9259. + 
  9260. + ;;- Immediate Floating point operator constraints
  9261. + ;;- 'G' a floating point constant that is *NOT* one of the standard
  9262. + ;;   68881 constant values (to force calling output_move_const_double
  9263. + ;;   to get it from rom if it is a 68881 constant).
  9264. + ;;- 'H' one of the standard FPA constant values
  9265. + ;;
  9266. + ;;   See the functions standard_XXX_constant_p in output-m68k.c for more
  9267. + ;; info.
  9268. + 
  9269. + ;;- Immediate integer operand constraints:
  9270. + ;;- 'I'  1 .. 8
  9271. + ;;- 'J'  -32768 .. 32767
  9272. + ;;- 'K'  all integers EXCEPT -128 .. 127
  9273. + ;;- 'L'  -8 .. -1
  9274. + 
  9275. + ;;- Assembler specs:
  9276. + ;;- "%."    size separator ("." or "")            move%.l d0,d1
  9277. + ;;- "%#"    immediate separator ("#" or "")        move%.l %#0,d0
  9278. + ;;- "%-"    push operand "sp@-"                move%.l d0,%-
  9279. + ;;- "%+"    pop operand "sp@+"                move%.l d0,%+
  9280. + ;;- "%@"    top of stack "sp@"                move%.l d0,%@
  9281. + ;;- "%!"    fpcr register
  9282. + ;;- "%$"    single-precision fp specifier ("s" or "")    f%$add.x fp0,fp1
  9283. + ;;- "%&"    double-precision fp specifier ("d" or "")    f%&add.x fp0,fp1
  9284. + 
  9285. + ;;- Information about 68040 port.
  9286. + 
  9287. + ;;- The 68040 executes all 68030 and 68881/2 instructions, but some must
  9288. + ;;- be emulated in software by the OS.  It is faster to avoid these
  9289. + ;;- instructions and issue a library call rather than trapping into
  9290. + ;;- the kernel.  The affected instructions are fintrz and fscale.  The
  9291. + ;;- TARGET_68040 flag turns the use of the opcodes off.
  9292. + 
  9293. + ;;- The '040 also implements a set of new floating-point instructions
  9294. + ;;- which specify the rounding precision in the opcode.  This finally
  9295. + ;;- permit the 68k series to be truly IEEE compliant, and solves all
  9296. + ;;- issues of excess precision accumulating in the extended registers.
  9297. + ;;- By default, GCC does not use these instructions, since such code will
  9298. + ;;- not run on an '030.  To use these instructions, use the -m68040-only
  9299. + ;;- switch.  By changing TARGET_DEFAULT to include TARGET_68040_ONLY,
  9300. + ;;- you can make these instructions the default.
  9301. + 
  9302. + ;;- These new instructions aren't directly in the md.  They are brought
  9303. + ;;- into play by defining "%$" and "%&" to expand to "s" and "d" rather
  9304. + ;;- than "".
  9305. + 
  9306. + 
  9307. + ;;-         FPA port explanation:
  9308. + 
  9309. + ;;-        Usage of the Sun FPA and the 68881 together
  9310. + 
  9311. + ;;- The current port of gcc to the sun fpa disallows use of the m68881
  9312. + ;;- instructions completely if code is targeted for the fpa.  This is
  9313. + ;;- for the following reasons:
  9314. + 
  9315. + ;;- 1) Expressing the preference hierarchy (ie. use the fpa if you
  9316. + ;;- can, the 68881 otherwise, and data registers only if you are
  9317. + ;;- forced to it) is a bitch with the current constraint scheme,
  9318. + ;;- especially since it would have to work for any combination of
  9319. + ;;- -mfpa, -m68881.
  9320. + 
  9321. + ;;- 2) There are no instructions to move between the two types of
  9322. + ;;- registers; the stack must be used as an intermediary.
  9323. + 
  9324. + ;;- It could indeed be done; I think the best way would be to have
  9325. + ;;- separate patterns for TARGET_FPA (which implies a 68881),
  9326. + ;;- TARGET_68881, and no floating point co-processor.  Use
  9327. + ;;- define_expands for all of the named instruction patterns, and
  9328. + ;;- include code in the FPA instruction to deal with the 68881 with
  9329. + ;;- preferences specifically set to favor the fpa.  Some of this has
  9330. + ;;- already been done:
  9331. + ;;-
  9332. + ;;-     1) Separation of most of the patterns out into a TARGET_FPA
  9333. + ;;- case and a TARGET_68881 case (the exceptions are the patterns
  9334. + ;;- which would need one define_expand and three define_insn's under
  9335. + ;;- it (with a lot of duplicate code between them) to replace the
  9336. + ;;- current single define_insn.  These are mov{[ds]f,[ds]i} and the
  9337. + ;;- first two patterns in the md.
  9338. + ;;-
  9339. + ;;- Some would still have to be done:
  9340. + ;;-
  9341. + ;;-    1) Add code to the fpa patterns which correspond to 68881
  9342. + ;;- patterns to deal with the 68881 case (including preferences!).
  9343. + ;;- What you might actually do here is combine the fpa and 68881 code
  9344. + ;;- back together into one pattern for those instructions where it's
  9345. + ;;- absolutely necessary and save yourself some duplicate code.  I'm
  9346. + ;;- not completely sure as to whether you could get away with doing
  9347. + ;;- this only for the mov* insns, or if you'd have to do it for all
  9348. + ;;- named insns.
  9349. + ;;-     2) Add code to the mov{[ds]f,[ds]i} instructions to handle
  9350. + ;;- moving between fpa regs and 68881 regs.
  9351. + 
  9352. + ;;- Since the fpa is more powerful than the 68881 and also has more
  9353. + ;;- registers, and since I think the resultant md would be medium ugly
  9354. + ;;- (lot's of duplicate code, ugly constraint strings), I elected not
  9355. + ;;- to do this change.
  9356. + 
  9357. + ;;- Another reason why someone *might* want to do the change is to
  9358. + ;;- control which register classes are accessed in a slightly cleaner
  9359. + ;;- way than I have.  See the blurb on CONDITIONAL_REGISTER_USAGE in
  9360. + ;;- the internals manual.
  9361. + 
  9362. + ;;- Yet another reason why someone might want to do this change is to
  9363. + ;;- allow use of some of the 68881 insns which have no equivalent on
  9364. + ;;- the fpa.  The sqrt instruction comes fairly quickly to mind.
  9365. + 
  9366. + ;;- If this is ever done, don't forget to change sun3.h so that
  9367. + ;;- it *will* define __HAVE_68881__ when the FPA is in use.
  9368. + 
  9369. + ;;-        Condition code hack
  9370. + 
  9371. + ;;- When a floating point compare is done in the fpa, the resulting
  9372. + ;;- condition codes are left in the fpastatus register.  The values in
  9373. + ;;- this register must be moved into the 68000 cc register before any
  9374. + ;;- jump is executed.  Once this has been done, regular jump
  9375. + ;;- instructions are fine (ie. floating point jumps are not necessary.
  9376. + ;;- They are only done if the cc is in the 68881).
  9377. + 
  9378. + ;;- The instructions that move the fpastatus register to the 68000
  9379. + ;;- register clobber a data register (the move cannot be done direct).
  9380. + ;;- These instructions might be bundled either with the compare
  9381. + ;;- instruction, or the branch instruction.  If we were using both the
  9382. + ;;- fpa and the 68881 together, we would wish to only mark the
  9383. + ;;- register clobbered if we were doing the compare in the fpa, but I
  9384. + ;;- think that that decision (whether to clobber the register or not)
  9385. + ;;- must be done before register allocation (makes sense) and hence we
  9386. + ;;- can't know if the floating point compare will be done in the fpa
  9387. + ;;- or the fp.  So whenever we are asked for code that uses the fpa,
  9388. + ;;- we will mark a data register as clobbered.  This is reasonable, as
  9389. + ;;- almost all floating point compare operations done with fpa code
  9390. + ;;- enabled will be done in the fpa.  It's even more reasonable since
  9391. + ;;- we decided to make the 68881 and the fpa mutually exclusive.
  9392. + 
  9393. + ;;- We place to code to move the fpastatus register inside of a
  9394. + ;;- define_expand so that we can do it conditionally based on whether
  9395. + ;;- we are targeting an fpa or not.
  9396. + 
  9397. + ;;- This still leaves us with the question of where we wish to put the
  9398. + ;;- code to move the fpastatus reg.  If we put it in the compare
  9399. + ;;- instruction, we can restrict the clobbering of the register to
  9400. + ;;- floating point compares, but we can't take advantage of floating
  9401. + ;;- point subtracts & etc. that alter the fpastatus register.  If we
  9402. + ;;- put it in the branch instruction, all branches compiled with fpa
  9403. + ;;- code enabled will clobber a data register, but we will be able to
  9404. + ;;- take advantage of fpa subtracts.  This balance favors putting the
  9405. + ;;- code in with the compare instruction.
  9406. + 
  9407. + ;;- Note that if some enterprising hacker should decide to switch
  9408. + ;;- this, he'll need to modify the code in NOTICE_UPDATE_CC.
  9409. + 
  9410. + ;;-        Usage of the top 16 fpa registers
  9411. + 
  9412. + ;;- The only locations which we may transfer fpa registers 16-31 from
  9413. + ;;- or to are the fpa registers 0-15.  (68000 registers and memory
  9414. + ;;- locations are impossible).  This causes problems in gcc, which
  9415. + ;;- assumes that mov?? instructions require no additional registers
  9416. + ;;- (see section 11.7) and since floating point moves *must* be
  9417. + ;;- supported into general registers (see section 12.3 under
  9418. + ;;- HARD_REGNO_OK_FOR_MODE_P) from anywhere.
  9419. + 
  9420. + ;;- My solution was to reserve fpa0 for moves into or out of these top
  9421. + ;;- 16 registers and to disparage the choice to reload into or out of
  9422. + ;;- these registers as much as I could.  That alternative is always
  9423. + ;;- last in the list, so it will not be used unless all else fails.  I
  9424. + ;;- will note that according to my current information, sun's compiler
  9425. + ;;- doesn't use these top 16 registers at all.
  9426. + 
  9427. + ;;- There is another possible way to do it.  I *believe* that if you
  9428. + ;;- make absolutely sure that the code will not be executed in the
  9429. + ;;- reload pass, you can support the mov?? names with define_expands
  9430. + ;;- which require new registers.  This may be possible by the
  9431. + ;;- appropriate juggling of constraints.  I may come back to this later.
  9432. + 
  9433. + ;;-         Usage of constant RAM
  9434. + 
  9435. + ;;- This has been handled correctly (I believe) but the way I've done
  9436. + ;;- it could use a little explanation.  The constant RAM can only be
  9437. + ;;- accessed when the instruction is in "command register" mode.
  9438. + ;;- "command register" mode means that no accessing of memory or the
  9439. + ;;- 68000 registers is being done.  This can be expressed easily in
  9440. + ;;- constraints, so generally the mode of the instruction is
  9441. + ;;- determined by a branch off of which_alternative.  In outputting
  9442. + ;;- instructions, a 'w' means to output an access to the constant ram
  9443. + ;;- (if the arg is CONST_DOUBLE and is one of the available
  9444. + ;;- constants), and 'x' means to output a register pair (if the arg is
  9445. + ;;- a 68000 register) and a 'y' is the combination of the above two
  9446. + ;;- processes.  You use a 'y' in two operand DF instructions where you
  9447. + ;;- *know* the other operand is an fpa register, you use an 'x' in DF
  9448. + ;;- instructions where the arg might be a 68000 register and the
  9449. + ;;- instruction is *not* in "command register" mode, and you use a 'w'
  9450. + ;;- in two situations: 1) The instruction *is* in command register
  9451. + ;;- mode (and hence won't be accessing 68000 registers), or 2) The
  9452. + ;;- instruction is a two operand SF instruction where you know the
  9453. + ;;- other operand is an fpa register.
  9454. + 
  9455. + ;;-        Optimization issues
  9456. + 
  9457. + ;;- I actually think that I've included all of the fpa instructions
  9458. + ;;- that should be included.  Note that if someone is interested in
  9459. + ;;- doing serious floating point work on the sun fpa, I would advise
  9460. + ;;- the use of the "asm" instruction in gcc to allow you to use the
  9461. + ;;- sin, cos, and exponential functions on the fpa board.
  9462. + 
  9463. + ;;- END FPA Explanation Section.
  9464. + 
  9465. + 
  9466. + ;;- Some of these insn's are composites of several m68000 op codes.
  9467. + ;;- The assembler (or final @@??) insures that the appropriate one is
  9468. + ;;- selected.
  9469. + 
  9470. + (define_insn ""
  9471. +   [(set (match_operand:DF 0 "push_operand" "=m")
  9472. +     (match_operand:DF 1 "general_operand" "ro<>fyE"))]
  9473. +   ""
  9474. +   "*
  9475. + {
  9476. +   if (FP_REG_P (operands[1]))
  9477. +     return \"fmove%.d %f1,%0\";
  9478. +   if (FPA_REG_P (operands[1]))
  9479. +     return \"fpmove%.d %1, %x0\";
  9480. +   return output_move_double (operands);
  9481. + }")
  9482. + 
  9483. + (define_insn ""
  9484. +   [(set (match_operand:DI 0 "push_operand" "=m")
  9485. +     (match_operand:DI 1 "general_operand" "ro<>Fy"))]
  9486. +   ""
  9487. +   "*
  9488. + {
  9489. +   return output_move_double (operands);
  9490. + }")
  9491. + 
  9492. + ;; We don't want to allow a constant operand for test insns because
  9493. + ;; (set (cc0) (const_int foo)) has no mode information.  Such insns will
  9494. + ;; be folded while optimizing anyway.
  9495. + (define_insn "tstsi"
  9496. +   [(set (cc0)
  9497. +     (match_operand:SI 0 "nonimmediate_operand" "rm"))]
  9498. +   ""
  9499. +   "*
  9500. + {
  9501. + #ifdef ISI_OV
  9502. +   /* ISI's assembler fails to handle tstl a0.  */
  9503. +   if (! ADDRESS_REG_P (operands[0]))
  9504. + #else
  9505. +   if (TARGET_68020 || ! ADDRESS_REG_P (operands[0]))
  9506. + #endif
  9507. +     return \"tst%.l %0\";
  9508. +   /* If you think that the 68020 does not support tstl a0,
  9509. +      reread page B-167 of the 68020 manual more carefully.  */
  9510. +   /* On an address reg, cmpw may replace cmpl.  */
  9511. + #ifdef SGS_CMP_ORDER
  9512. +   return \"cmp%.w %0,%#0\";
  9513. + #else
  9514. +   return \"cmp%.w %#0,%0\";
  9515. + #endif
  9516. + }")
  9517. + 
  9518. + ;; This can't use an address register, because comparisons
  9519. + ;; with address registers as second operand always test the whole word.
  9520. + (define_insn "tsthi"
  9521. +   [(set (cc0)
  9522. +     (match_operand:HI 0 "nonimmediate_operand" "dm"))]
  9523. +   ""
  9524. +   "tst%.w %0")
  9525. + 
  9526. + (define_insn "tstqi"
  9527. +   [(set (cc0)
  9528. +     (match_operand:QI 0 "nonimmediate_operand" "dm"))]
  9529. +   ""
  9530. +   "tst%.b %0")
  9531. +   
  9532. + (define_expand "tstsf"
  9533. +   [(set (cc0)
  9534. +     (match_operand:SF 0 "general_operand" ""))]
  9535. +   "TARGET_68881 || TARGET_FPA"
  9536. +   "
  9537. + {
  9538. +   if (TARGET_FPA)
  9539. +     {
  9540. +       emit_insn (gen_tstsf_fpa (operands[0]));
  9541. +       DONE;
  9542. +     }
  9543. + }")
  9544. + 
  9545. + (define_insn "tstsf_fpa"
  9546. +   [(set (cc0)
  9547. +     (match_operand:SF 0 "general_operand" "xmdF"))
  9548. +    (clobber (match_scratch:SI 1 "=d"))]
  9549. +   "TARGET_FPA"
  9550. +   "fptst%.s %x0\;fpmove fpastatus,%1\;movw %1,cc")
  9551. + 
  9552. + (define_insn ""
  9553. +   [(set (cc0)
  9554. +     (match_operand:SF 0 "general_operand" "fdm"))]
  9555. +   "TARGET_68881"
  9556. +   "*
  9557. + {
  9558. +   cc_status.flags = CC_IN_68881;
  9559. +   if (FP_REG_P (operands[0]))
  9560. +     return \"ftst%.x %0\";
  9561. +   return \"ftst%.s %0\";
  9562. + }")
  9563. + 
  9564. + (define_expand "tstdf"
  9565. +   [(set (cc0)
  9566. +     (match_operand:DF 0 "general_operand" ""))]
  9567. +   "TARGET_68881 || TARGET_FPA"
  9568. +   "
  9569. + {
  9570. +   if (TARGET_FPA)
  9571. +     {
  9572. +       emit_insn (gen_tstsf_fpa (operands[0]));
  9573. +       DONE;
  9574. +     }
  9575. + }")
  9576. + 
  9577. + (define_insn "tstdf_fpa"
  9578. +   [(set (cc0)
  9579. +     (match_operand:DF 0 "general_operand" "xrmF"))
  9580. +    (clobber (match_scratch:SI 1 "=d"))]
  9581. +   "TARGET_FPA"
  9582. +   "fptst%.d %x0\;fpmove fpastatus,%1\;movw %1,cc")
  9583. + 
  9584. + (define_insn ""
  9585. +   [(set (cc0)
  9586. +     (match_operand:DF 0 "general_operand" "fm"))]
  9587. +   "TARGET_68881"
  9588. +   "*
  9589. + {
  9590. +   cc_status.flags = CC_IN_68881;
  9591. +   if (FP_REG_P (operands[0]))
  9592. +     return \"ftst%.x %0\";
  9593. +   return \"ftst%.d %0\";
  9594. + }")
  9595. + 
  9596. + ;; compare instructions.
  9597. + 
  9598. + ;; A composite of the cmp, cmpa, & cmpi m68000 op codes.
  9599. + (define_insn "cmpsi"
  9600. +   [(set (cc0)
  9601. +     (compare (match_operand:SI 0 "nonimmediate_operand" "rKs,mr,>")
  9602. +          (match_operand:SI 1 "general_operand" "mr,Ksr,>")))]
  9603. +   ""
  9604. +   "*
  9605. + {
  9606. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  9607. + #ifdef SGS_CMP_ORDER
  9608. +     return \"cmpm%.l %0,%1\";
  9609. + #else
  9610. +     return \"cmpm%.l %1,%0\";
  9611. + #endif
  9612. +   if (REG_P (operands[1])
  9613. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  9614. +     { cc_status.flags |= CC_REVERSED;
  9615. + #ifdef SGS_CMP_ORDER
  9616. +       return \"cmp%.l %d1,%d0\";
  9617. + #else
  9618. +       return \"cmp%.l %d0,%d1\";
  9619. + #endif
  9620. +     }
  9621. + #ifdef SGS_CMP_ORDER
  9622. +   return \"cmp%.l %d0,%d1\";
  9623. + #else
  9624. +   return \"cmp%.l %d1,%d0\";
  9625. + #endif
  9626. + }")
  9627. + 
  9628. + (define_insn "cmphi"
  9629. +   [(set (cc0)
  9630. +     (compare (match_operand:HI 0 "nonimmediate_operand" "rnm,d,n,m,>")
  9631. +          (match_operand:HI 1 "general_operand" "d,rnm,m,n,>")))]
  9632. +   ""
  9633. +   "*
  9634. + {
  9635. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  9636. + #ifdef SGS_CMP_ORDER
  9637. +     return \"cmpm%.w %0,%1\";
  9638. + #else
  9639. +     return \"cmpm%.w %1,%0\";
  9640. + #endif
  9641. +   if ((REG_P (operands[1]) && !ADDRESS_REG_P (operands[1]))
  9642. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  9643. +     { cc_status.flags |= CC_REVERSED;
  9644. + #ifdef SGS_CMP_ORDER
  9645. +       return \"cmp%.w %d1,%d0\";
  9646. + #else
  9647. +       return \"cmp%.w %d0,%d1\";
  9648. + #endif
  9649. +     }
  9650. + #ifdef SGS_CMP_ORDER
  9651. +   return \"cmp%.w %d0,%d1\";
  9652. + #else
  9653. +   return \"cmp%.w %d1,%d0\";
  9654. + #endif
  9655. + }")
  9656. + 
  9657. + (define_insn "cmpqi"
  9658. +   [(set (cc0)
  9659. +     (compare (match_operand:QI 0 "nonimmediate_operand" "dn,md,>")
  9660. +          (match_operand:QI 1 "general_operand" "dm,nd,>")))]
  9661. +   ""
  9662. +   "*
  9663. + {
  9664. +   if (GET_CODE (operands[0]) == MEM && GET_CODE (operands[1]) == MEM)
  9665. + #ifdef SGS_CMP_ORDER
  9666. +     return \"cmpm%.b %0,%1\";
  9667. + #else
  9668. +     return \"cmpm%.b %1,%0\";
  9669. + #endif
  9670. +   if (REG_P (operands[1])
  9671. +       || (!REG_P (operands[0]) && GET_CODE (operands[0]) != MEM))
  9672. +     { cc_status.flags |= CC_REVERSED;
  9673. + #ifdef SGS_CMP_ORDER
  9674. +       return \"cmp%.b %d1,%d0\";
  9675. + #else
  9676. +       return \"cmp%.b %d0,%d1\";
  9677. + #endif
  9678. +     }
  9679. + #ifdef SGS_CMP_ORDER
  9680. +   return \"cmp%.b %d0,%d1\";
  9681. + #else
  9682. +   return \"cmp%.b %d1,%d0\";
  9683. + #endif
  9684. + }")
  9685. + 
  9686. + (define_expand "cmpdf"
  9687. +   [(set (cc0)
  9688. +     (compare (match_operand:DF 0 "general_operand" "")
  9689. +          (match_operand:DF 1 "general_operand" "")))]
  9690. +   "TARGET_68881 || TARGET_FPA"
  9691. +   "
  9692. + {
  9693. +   if (TARGET_FPA)
  9694. +     {
  9695. +       emit_insn (gen_cmpdf_fpa (operands[0], operands[1]));
  9696. +       DONE;
  9697. +     }
  9698. + }")
  9699. + 
  9700. + (define_insn "cmpdf_fpa"
  9701. +   [(set (cc0)
  9702. +     (compare (match_operand:DF 0 "general_operand" "x,y")
  9703. +          (match_operand:DF 1 "general_operand" "xH,rmF")))
  9704. +    (clobber (match_scratch:SI 2 "=d,d"))]
  9705. +   "TARGET_FPA"
  9706. +   "fpcmp%.d %y1,%0\;fpmove fpastatus,%2\;movw %2,cc")
  9707. + 
  9708. + (define_insn ""
  9709. +   [(set (cc0)
  9710. +     (compare (match_operand:DF 0 "general_operand" "f,mG")
  9711. +          (match_operand:DF 1 "general_operand" "fmG,f")))]
  9712. +   "TARGET_68881"
  9713. +   "*
  9714. + {
  9715. +   cc_status.flags = CC_IN_68881;
  9716. + #ifdef SGS_CMP_ORDER
  9717. +   if (REG_P (operands[0]))
  9718. +     {
  9719. +       if (REG_P (operands[1]))
  9720. +     return \"fcmp%.x %0,%1\";
  9721. +       else
  9722. +         return \"fcmp%.d %0,%f1\";
  9723. +     }
  9724. +   cc_status.flags |= CC_REVERSED;
  9725. +   return \"fcmp%.d %1,%f0\";
  9726. + #else
  9727. +   if (REG_P (operands[0]))
  9728. +     {
  9729. +       if (REG_P (operands[1]))
  9730. +     return \"fcmp%.x %1,%0\";
  9731. +       else
  9732. +         return \"fcmp%.d %f1,%0\";
  9733. +     }
  9734. +   cc_status.flags |= CC_REVERSED;
  9735. +   return \"fcmp%.d %f0,%1\";
  9736. + #endif
  9737. + }")
  9738. + 
  9739. + (define_expand "cmpsf"
  9740. +  [(set (cc0)
  9741. +        (compare (match_operand:SF 0 "general_operand" "")
  9742. +         (match_operand:SF 1 "general_operand" "")))]
  9743. +  "TARGET_68881 || TARGET_FPA"
  9744. +  "
  9745. + {
  9746. +   if (TARGET_FPA)
  9747. +     {
  9748. +       emit_insn (gen_cmpsf_fpa (operands[0], operands[1]));
  9749. +       DONE;
  9750. +     }
  9751. + }")
  9752. + 
  9753. + (define_insn "cmpsf_fpa"
  9754. +   [(set (cc0)
  9755. +     (compare (match_operand:SF 0 "general_operand" "x,y")
  9756. +          (match_operand:SF 1 "general_operand" "xH,rmF")))
  9757. +    (clobber (match_scratch:SI 2 "=d,d"))]
  9758. +   "TARGET_FPA"
  9759. +   "fpcmp%.s %w1,%x0\;fpmove fpastatus,%2\;movw %2,cc")
  9760. + 
  9761. + (define_insn ""
  9762. +   [(set (cc0)
  9763. +     (compare (match_operand:SF 0 "general_operand" "f,mdG")
  9764. +          (match_operand:SF 1 "general_operand" "fmdG,f")))]
  9765. +   "TARGET_68881"
  9766. +   "*
  9767. + {
  9768. +   cc_status.flags = CC_IN_68881;
  9769. + #ifdef SGS_CMP_ORDER
  9770. +   if (FP_REG_P (operands[0]))
  9771. +     {
  9772. +       if (FP_REG_P (operands[1]))
  9773. +     return \"fcmp%.x %0,%1\";
  9774. +       else
  9775. +         return \"fcmp%.s %0,%f1\";
  9776. +     }
  9777. +   cc_status.flags |= CC_REVERSED;
  9778. +   return \"fcmp%.s %1,%f0\";
  9779. + #else
  9780. +   if (FP_REG_P (operands[0]))
  9781. +     {
  9782. +       if (FP_REG_P (operands[1]))
  9783. +     return \"fcmp%.x %1,%0\";
  9784. +       else
  9785. +         return \"fcmp%.s %f1,%0\";
  9786. +     }
  9787. +   cc_status.flags |= CC_REVERSED;
  9788. +   return \"fcmp%.s %f0,%1\";
  9789. + #endif
  9790. + }")
  9791. + 
  9792. + ;; Recognizers for btst instructions.
  9793. + 
  9794. + (define_insn ""
  9795. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "do")
  9796. +                 (const_int 1)
  9797. +                 (minus:SI (const_int 7)
  9798. +                       (match_operand:SI 1 "general_operand" "di"))))]
  9799. +   ""
  9800. +   "* { return output_btst (operands, operands[1], operands[0], insn, 7); }")
  9801. + 
  9802. + (define_insn ""
  9803. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "d")
  9804. +                 (const_int 1)
  9805. +                 (minus:SI (const_int 31)
  9806. +                       (match_operand:SI 1 "general_operand" "di"))))]
  9807. +   ""
  9808. +   "* { return output_btst (operands, operands[1], operands[0], insn, 31); }")
  9809. + 
  9810. + ;; The following two patterns are like the previous two
  9811. + ;; except that they use the fact that bit-number operands
  9812. + ;; are automatically masked to 3 or 5 bits.
  9813. + 
  9814. + (define_insn ""
  9815. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "do")
  9816. +                 (const_int 1)
  9817. +                 (minus:SI (const_int 7)
  9818. +                       (and:SI
  9819. +                        (match_operand:SI 1 "general_operand" "d")
  9820. +                        (const_int 7)))))]
  9821. +   ""
  9822. +   "* { return output_btst (operands, operands[1], operands[0], insn, 7); }")
  9823. + 
  9824. + (define_insn ""
  9825. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "d")
  9826. +                 (const_int 1)
  9827. +                 (minus:SI (const_int 31)
  9828. +                       (and:SI
  9829. +                        (match_operand:SI 1 "general_operand" "d")
  9830. +                        (const_int 31)))))]
  9831. +   ""
  9832. +   "* { return output_btst (operands, operands[1], operands[0], insn, 31); }")
  9833. + 
  9834. + ;; Nonoffsettable mem refs are ok in this one pattern
  9835. + ;; since we don't try to adjust them.
  9836. + (define_insn ""
  9837. +   [(set (cc0) (zero_extract (match_operand:QI 0 "nonimmediate_operand" "md")
  9838. +                 (const_int 1)
  9839. +                 (match_operand:SI 1 "general_operand" "i")))]
  9840. +   "GET_CODE (operands[1]) == CONST_INT
  9841. +    && (unsigned) INTVAL (operands[1]) < 8"
  9842. +   "*
  9843. + {
  9844. +   operands[1] = gen_rtx (CONST_INT, VOIDmode, 7 - INTVAL (operands[1]));
  9845. +   return output_btst (operands, operands[1], operands[0], insn, 7);
  9846. + }")
  9847. + 
  9848. + (define_insn ""
  9849. +   [(set (cc0) (zero_extract (match_operand:SI 0 "nonimmediate_operand" "do")
  9850. +                 (const_int 1)
  9851. +                 (match_operand:SI 1 "general_operand" "i")))]
  9852. +   "GET_CODE (operands[1]) == CONST_INT"
  9853. +   "*
  9854. + {
  9855. +   if (GET_CODE (operands[0]) == MEM)
  9856. +     {
  9857. +       operands[0] = adj_offsettable_operand (operands[0],
  9858. +                          INTVAL (operands[1]) / 8);
  9859. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  9860. +                  7 - INTVAL (operands[1]) % 8);
  9861. +       return output_btst (operands, operands[1], operands[0], insn, 7);
  9862. +     }
  9863. +   operands[1] = gen_rtx (CONST_INT, VOIDmode,
  9864. +              31 - INTVAL (operands[1]));
  9865. +   return output_btst (operands, operands[1], operands[0], insn, 31);
  9866. + }")
  9867. + 
  9868. + 
  9869. + ;; move instructions
  9870. + 
  9871. + ;; A special case in which it is not desirable
  9872. + ;; to reload the constant into a data register.
  9873. + (define_insn ""
  9874. +   [(set (match_operand:SI 0 "push_operand" "=m")
  9875. +     (match_operand:SI 1 "general_operand" "J"))]
  9876. +   "GET_CODE (operands[1]) == CONST_INT
  9877. +    && INTVAL (operands[1]) >= -0x8000
  9878. +    && INTVAL (operands[1]) < 0x8000"
  9879. +   "*
  9880. + {
  9881. +   if (operands[1] == const0_rtx)
  9882. +     return \"clr%.l %0\";
  9883. +   return \"pea %a1\";
  9884. + }")
  9885. + 
  9886. + ;This is never used.
  9887. + ;(define_insn "swapsi"
  9888. + ;  [(set (match_operand:SI 0 "general_operand" "+r")
  9889. + ;    (match_operand:SI 1 "general_operand" "+r"))
  9890. + ;   (set (match_dup 1) (match_dup 0))]
  9891. + ;  ""
  9892. + ;  "exg %1,%0")
  9893. + 
  9894. + ;; Special case of fullword move when source is zero.
  9895. + ;; The reason this is special is to avoid loading a zero
  9896. + ;; into a data reg with moveq in order to store it elsewhere.
  9897. +    
  9898. + (define_insn ""
  9899. +   [(set (match_operand:SI 0 "general_operand" "=g")
  9900. +     (const_int 0))]
  9901. +   ;; clr insns on 68000 read before writing.
  9902. +   ;; This isn't so on the 68010, but we have no alternative for it.
  9903. +   "(TARGET_68020
  9904. +     || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0])))"
  9905. +   "*
  9906. + {
  9907. +   if (ADDRESS_REG_P (operands[0]))
  9908. +     return \"sub%.l %0,%0\";
  9909. +   /* moveq is faster on the 68000.  */
  9910. +   if (DATA_REG_P (operands[0]) && !TARGET_68020)
  9911. + #if defined(MOTOROLA) && !defined(CRDS)
  9912. +     return \"moveq%.l %#0,%0\";
  9913. + #else
  9914. +     return \"moveq %#0,%0\";
  9915. + #endif
  9916. +   return \"clr%.l %0\";
  9917. + }")
  9918. + 
  9919. + ;; General case of fullword move. 
  9920. + ;;
  9921. + ;; This is the main "hook" for PIC code.  When generating
  9922. + ;; PIC, movsi is responsible for determining when the source address
  9923. + ;; needs PIC relocation and appropriately calling legitimize_pic_address
  9924. + ;; to perform the actual relocation.
  9925. + ;;
  9926. + ;; In both the PIC and non-PIC cases the patterns generated will
  9927. + ;; matched by the next define_insn. 
  9928. + (define_expand "movsi"
  9929. +   [(set (match_operand:SI 0 "general_operand" "")
  9930. +     (match_operand:SI 1 "general_operand" ""))]
  9931. +   ""
  9932. +   "
  9933. + {
  9934. +   if (flag_pic && symbolic_operand (operands[1], SImode)) 
  9935. +     {
  9936. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  9937. +       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  9938. + #endif
  9939. +       {
  9940. +         /* The source is an address which requires PIC relocation.  
  9941. +            Call legitimize_pic_address with the source, mode, and a relocation
  9942. +            register (a new pseudo, or the final destination if reload_in_progress
  9943. +            is set).   Then fall through normally */
  9944. +         extern rtx legitimize_pic_address();
  9945. +         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  9946. +         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  9947. +       }
  9948. +     }
  9949. + }")
  9950. + 
  9951. + ;; General case of fullword move.  The register constraints
  9952. + ;; force integer constants in range for a moveq to be reloaded
  9953. + ;; if they are headed for memory.
  9954. + (define_insn ""
  9955. +   ;; Notes: make sure no alternative allows g vs g.
  9956. +   ;; We don't allow f-regs since fixed point cannot go in them.
  9957. +   ;; We do allow y and x regs since fixed point is allowed in them.
  9958. +   [(set (match_operand:SI 0 "general_operand" "=g,da,y,!*x*r*m")
  9959. +     (match_operand:SI 1 "general_operand" "daymKs,i,g,*x*r*m"))]
  9960. +   ""
  9961. +   "*
  9962. + {
  9963. +   if (which_alternative == 3)
  9964. +     return \"fpmove%.l %x1,fpa0\;fpmove%.l fpa0,%x0\";    
  9965. +   if (FPA_REG_P (operands[1]) || FPA_REG_P (operands[0]))
  9966. +     return \"fpmove%.l %x1,%x0\";
  9967. +   if (GET_CODE (operands[1]) == CONST_INT)
  9968. +     {
  9969. +       if (operands[1] == const0_rtx
  9970. +       && (DATA_REG_P (operands[0])
  9971. +           || GET_CODE (operands[0]) == MEM)
  9972. +       /* clr insns on 68000 read before writing.
  9973. +          This isn't so on the 68010, but we have no alternative for it.  */
  9974. +       && (TARGET_68020
  9975. +           || !(GET_CODE (operands[0]) == MEM
  9976. +            && MEM_VOLATILE_P (operands[0]))))
  9977. +     return \"clr%.l %0\";
  9978. +       else if (DATA_REG_P (operands[0])
  9979. +            && INTVAL (operands[1]) < 128
  9980. +            && INTVAL (operands[1]) >= -128)
  9981. +         {
  9982. + #if defined(MOTOROLA) && !defined(CRDS)
  9983. +           return \"moveq%.l %1,%0\";
  9984. + #else
  9985. +       return \"moveq %1,%0\";
  9986. + #endif
  9987. +     }
  9988. + #ifndef NO_ADDSUB_Q
  9989. +       else if (DATA_REG_P (operands[0])
  9990. +            /* Do this with a moveq #N-8, dreg; addq #8,dreg */
  9991. +            && INTVAL (operands[1]) < 136
  9992. +            && INTVAL (operands[1]) >= 128)
  9993. +         {
  9994. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  9995. + #if defined(MOTOROLA) && !defined(CRDS)
  9996. +           return \"moveq%.l %1,%0\;addq%.w %#8,%0\";
  9997. + #else
  9998. +       return \"moveq %1,%0\;addq%.w %#8,%0\";
  9999. + #endif
  10000. +     }
  10001. +       else if (DATA_REG_P (operands[0])
  10002. +            /* Do this with a moveq #N+8, dreg; subq #8,dreg */
  10003. +            && INTVAL (operands[1]) < -128
  10004. +            && INTVAL (operands[1]) >= -136)
  10005. +         {
  10006. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) + 8);
  10007. + #if defined(MOTOROLA) && !defined(CRDS)
  10008. +           return \"moveq%.l %1,%0;subq%.w %#8,%0\";
  10009. + #else
  10010. +       return \"moveq %1,%0;subq%.w %#8,%0\";
  10011. + #endif
  10012. +     }
  10013. + #endif
  10014. +       else if (DATA_REG_P (operands[0])
  10015. +            /* If N is in the right range and is even, then use
  10016. +               moveq #N/2, dreg; addl dreg,dreg */
  10017. +            && INTVAL (operands[1]) > 127
  10018. +            && INTVAL (operands[1]) <= 254
  10019. +            && INTVAL (operands[1]) % 2 == 0)
  10020. +         {
  10021. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) / 2);
  10022. + #if defined(MOTOROLA) && !defined(CRDS)
  10023. +           return \"moveq%.l %1,%0\;add%.w %0,%0\";
  10024. + #else
  10025. +       return \"moveq %1,%0\;add%.w %0,%0\";
  10026. + #endif
  10027. +     }
  10028. +       else if (ADDRESS_REG_P (operands[0])
  10029. +            && INTVAL (operands[1]) < 0x8000
  10030. +            && INTVAL (operands[1]) >= -0x8000)
  10031. +     return \"move%.w %1,%0\";
  10032. +       else if (push_operand (operands[0], SImode)
  10033. +            && INTVAL (operands[1]) < 0x8000
  10034. +            && INTVAL (operands[1]) >= -0x8000)
  10035. +         return \"pea %a1\";
  10036. +     }
  10037. +   else if ((GET_CODE (operands[1]) == SYMBOL_REF
  10038. +         || GET_CODE (operands[1]) == CONST)
  10039. +        && push_operand (operands[0], SImode))
  10040. +     return \"pea %a1\";
  10041. +   else if ((GET_CODE (operands[1]) == SYMBOL_REF
  10042. +         || GET_CODE (operands[1]) == CONST)
  10043. +        && ADDRESS_REG_P (operands[0]))
  10044. +     return \"lea %a1,%0\";
  10045. +   return \"move%.l %1,%0\";
  10046. + }")
  10047. + 
  10048. + (define_insn "movhi"
  10049. +   [(set (match_operand:HI 0 "general_operand" "=g")
  10050. +     (match_operand:HI 1 "general_operand" "g"))]
  10051. +   ""
  10052. +   "*
  10053. + {
  10054. +   if (GET_CODE (operands[1]) == CONST_INT)
  10055. +     {
  10056. +       if (operands[1] == const0_rtx
  10057. +       && (DATA_REG_P (operands[0])
  10058. +           || GET_CODE (operands[0]) == MEM)
  10059. +       /* clr insns on 68000 read before writing.
  10060. +          This isn't so on the 68010, but we have no alternative for it.  */
  10061. +       && (TARGET_68020
  10062. +           || !(GET_CODE (operands[0]) == MEM
  10063. +            && MEM_VOLATILE_P (operands[0]))))
  10064. +     return \"clr%.w %0\";
  10065. +       else if (DATA_REG_P (operands[0])
  10066. +            && INTVAL (operands[1]) < 128
  10067. +            && INTVAL (operands[1]) >= -128)
  10068. +         {
  10069. + #if defined(MOTOROLA) && !defined(CRDS)
  10070. +           return \"moveq%.l %1,%0\";
  10071. + #else
  10072. +       return \"moveq %1,%0\";
  10073. + #endif
  10074. +     }
  10075. +       else if (INTVAL (operands[1]) < 0x8000
  10076. +            && INTVAL (operands[1]) >= -0x8000)
  10077. +     return \"move%.w %1,%0\";
  10078. +     }
  10079. +   else if (CONSTANT_P (operands[1]))
  10080. +     return \"move%.l %1,%0\";
  10081. + #ifndef SGS_NO_LI
  10082. +   /* Recognize the insn before a tablejump, one that refers
  10083. +      to a table of offsets.  Such an insn will need to refer
  10084. +      to a label on the insn.  So output one.  Use the label-number
  10085. +      of the table of offsets to generate this label.  */
  10086. +   if (GET_CODE (operands[1]) == MEM
  10087. +       && GET_CODE (XEXP (operands[1], 0)) == PLUS
  10088. +       && (GET_CODE (XEXP (XEXP (operands[1], 0), 0)) == LABEL_REF
  10089. +       || GET_CODE (XEXP (XEXP (operands[1], 0), 1)) == LABEL_REF)
  10090. +       && GET_CODE (XEXP (XEXP (operands[1], 0), 0)) != PLUS
  10091. +       && GET_CODE (XEXP (XEXP (operands[1], 0), 1)) != PLUS)
  10092. +     {
  10093. +       rtx labelref;
  10094. +       if (GET_CODE (XEXP (XEXP (operands[1], 0), 0)) == LABEL_REF)
  10095. +     labelref = XEXP (XEXP (operands[1], 0), 0);
  10096. +       else
  10097. +     labelref = XEXP (XEXP (operands[1], 0), 1);
  10098. + #if defined (MOTOROLA) && !defined (SGS_SWITCH_TABLES)
  10099. + #ifdef SGS
  10100. +       asm_fprintf (asm_out_file, \"\\tset %LLI%d,.+2\\n\",
  10101. +            CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  10102. + #else /* not SGS */
  10103. +       asm_fprintf (asm_out_file, \"\\t.set %LLI%d,.+2\\n\",
  10104. +                CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  10105. + #endif /* not SGS */
  10106. + #else /* SGS_SWITCH_TABLES or not MOTOROLA */
  10107. +       ASM_OUTPUT_INTERNAL_LABEL (asm_out_file, \"LI\",
  10108. +                  CODE_LABEL_NUMBER (XEXP (labelref, 0)));
  10109. + #ifdef SGS_SWITCH_TABLES
  10110. +       /* Set flag saying we need to define the symbol
  10111. +      LD%n (with value L%n-LI%n) at the end of the switch table.  */
  10112. +       switch_table_difference_label_flag = 1;
  10113. + #endif /* SGS_SWITCH_TABLES */
  10114. + #endif /* SGS_SWITCH_TABLES or not MOTOROLA */
  10115. +     }
  10116. + #endif /* SGS_NO_LI */
  10117. +   return \"move%.w %1,%0\";
  10118. + }")
  10119. + 
  10120. + (define_insn "movstricthi"
  10121. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  10122. +     (match_operand:HI 1 "general_operand" "rmn"))]
  10123. +   ""
  10124. +   "*
  10125. + {
  10126. +   if (GET_CODE (operands[1]) == CONST_INT)
  10127. +     {
  10128. +       if (operands[1] == const0_rtx
  10129. +       && (DATA_REG_P (operands[0])
  10130. +           || GET_CODE (operands[0]) == MEM)
  10131. +       /* clr insns on 68000 read before writing.
  10132. +          This isn't so on the 68010, but we have no alternative for it.  */
  10133. +       && (TARGET_68020
  10134. +           || !(GET_CODE (operands[0]) == MEM
  10135. +            && MEM_VOLATILE_P (operands[0]))))
  10136. +     return \"clr%.w %0\";
  10137. +     }
  10138. +   return \"move%.w %1,%0\";
  10139. + }")
  10140. + 
  10141. + (define_insn "movqi"
  10142. +   [(set (match_operand:QI 0 "general_operand" "=d,*a,m,m,?*a")
  10143. +     (match_operand:QI 1 "general_operand" "dmi*a,d*a,dmi,?*a,m"))]
  10144. +   ""
  10145. +   "*
  10146. + {
  10147. +   rtx xoperands[4];
  10148. + 
  10149. +   /* This is probably useless, since it loses for pushing a struct
  10150. +      of several bytes a byte at a time.  */
  10151. +   if (GET_CODE (operands[0]) == MEM
  10152. +       && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC
  10153. +       && XEXP (XEXP (operands[0], 0), 0) == stack_pointer_rtx)
  10154. +     {
  10155. +       xoperands[1] = operands[1];
  10156. +       xoperands[2]
  10157. +         = gen_rtx (MEM, QImode,
  10158. +            gen_rtx (PLUS, VOIDmode, stack_pointer_rtx, const1_rtx));
  10159. +       /* Just pushing a byte puts it in the high byte of the halfword.  */
  10160. +       /* We must put it in the low-order, high-numbered byte.  */
  10161. +       output_asm_insn (\"move%.b %1,%-\;move%.b %@,%2\", xoperands);
  10162. +       return \"\";
  10163. +     }
  10164. + 
  10165. +   /* Moving a byte into an address register is not possible.  */
  10166. +   /* Use d0 as an intermediate, but don't clobber its contents.  */
  10167. +   if (ADDRESS_REG_P (operands[0]) && GET_CODE (operands[1]) == MEM)
  10168. +     {
  10169. +       /* ??? For 2.5, don't allow this choice and use secondary reloads
  10170. +      instead.
  10171. + 
  10172. +      See if the address register is used in the address.  If it
  10173. +      is, we have to generate a more complex sequence than those below.  */
  10174. +       if (refers_to_regno_p (REGNO (operands[0]), REGNO (operands[0]) + 1,
  10175. +                  operands[1], NULL_RTX))
  10176. +     {
  10177. +       /* See if the stack pointer is used in the address.  If it isn't,
  10178. +          we can push d0 or d1 (the insn can't use both of them) on
  10179. +          the stack, perform our move into d0/d1, copy the byte from d0/1,
  10180. +          and pop d0/1.  */
  10181. +       if (! reg_mentioned_p (stack_pointer_rtx, operands[1]))
  10182. +         {
  10183. +           if (refers_to_regno_p (0, 1, operands[1], NULL_RTX))
  10184. +         return \"move%.l %/d0,%-\;move%.b %1,%/d0\;move%.l %/d0,%0\;move%.l %+,%/d0\";
  10185. +           else
  10186. +         return \"move%.l %/d1,%-\;move%.b %1,%/d1\;move%.l %/d1,%0\;move%.l %+,%/d1\";
  10187. +         }
  10188. +       else
  10189. +         {
  10190. +           /* Otherwise, we know that d0 cannot be used in the address
  10191. +          (since sp and one address register is).  Assume that sp is
  10192. +          being used as a base register and replace the address
  10193. +          register that is our operand[0] with d0.  */
  10194. +           rtx reg_map[FIRST_PSEUDO_REGISTER];
  10195. +           int i;
  10196. + 
  10197. +           for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
  10198. +         reg_map[i] = 0;
  10199. + 
  10200. +           reg_map[REGNO (operands[0])] = gen_rtx (REG, Pmode, 0);
  10201. +           operands[1] = copy_rtx (operands[1]);
  10202. +           replace_regs (operands[1], reg_map, FIRST_PSEUDO_REGISTER, 0);
  10203. +           return \"exg %/d0,%0\;move%.b %1,%/d0\;exg %/d0,%0\";
  10204. +         }
  10205. +     }
  10206. + 
  10207. +       /* If the address of operand 1 uses d0, choose d1 as intermediate.  */
  10208. +       if (refers_to_regno_p (0, 1, operands[1], NULL_RTX))
  10209. +     return \"exg %/d1,%0\;move%.b %1,%/d1\;exg %/d1,%0\";
  10210. +       /* Otherwise d0 is usable.
  10211. +      (An effective address on the 68k can't use two d-regs.)  */
  10212. +       else
  10213. +     return \"exg %/d0,%0\;move%.b %1,%/d0\;exg %/d0,%0\";
  10214. +     }
  10215. +     
  10216. +   /* Likewise for moving from an address reg.  */
  10217. +   if (ADDRESS_REG_P (operands[1]) && GET_CODE (operands[0]) == MEM)
  10218. +     {
  10219. +       /* ??? For 2.5, don't allow this choice and use secondary reloads
  10220. +      instead.
  10221. + 
  10222. +      See if the address register is used in the address.  If it
  10223. +      is, we have to generate a more complex sequence than those below.  */
  10224. +       if (refers_to_regno_p (REGNO (operands[1]), REGNO (operands[1]) + 1,
  10225. +                  operands[0], NULL_RTX))
  10226. +     {
  10227. +       /* See if the stack pointer is used in the address.  If it isn't,
  10228. +          we can push d0 or d1 (the insn can't use both of them) on
  10229. +          the stack, copy the byte to d0/1, perform our move from d0/d1, 
  10230. +          and pop d0/1.  */
  10231. +       if (! reg_mentioned_p (stack_pointer_rtx, operands[0]))
  10232. +         {
  10233. +           if (refers_to_regno_p (0, 1, operands[0], NULL_RTX))
  10234. +         return \"move%.l %/d0,%-\;move%.l %1,%/d0\;move%.b %/d0,%0\;move%.l %+,%/d0\";
  10235. +           else
  10236. +         return \"move%.l %/d1,%-\;move%.l %1,%/d1\;move%.b %/d1,%0\;move%.l %+,%/d1\";
  10237. +         }
  10238. +       else
  10239. +         {
  10240. +           /* Otherwise, we know that d0 cannot be used in the address
  10241. +          (since sp and one address register is).  Assume that sp is
  10242. +          being used as a base register and replace the address
  10243. +          register that is our operand[1] with d0.  */
  10244. +           rtx reg_map[FIRST_PSEUDO_REGISTER];
  10245. +           int i;
  10246. + 
  10247. +           for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
  10248. +         reg_map[i] = 0;
  10249. + 
  10250. +           reg_map[REGNO (operands[1])] = gen_rtx (REG, Pmode, 0);
  10251. +           operands[0] = copy_rtx (operands[0]);
  10252. +           replace_regs (operands[0], reg_map, FIRST_PSEUDO_REGISTER, 0);
  10253. +           return \"exg %/d0,%1\;move%.b %/d0,%0\;exg %/d0,%1\";
  10254. +         }
  10255. +     }
  10256. + 
  10257. +       if (refers_to_regno_p (0, 1, operands[0], NULL_RTX))
  10258. +         return \"exg %/d1,%1\;move%.b %/d1,%0\;exg %/d1,%1\";
  10259. +       else
  10260. +         return \"exg %/d0,%1\;move%.b %/d0,%0\;exg %/d0,%1\";
  10261. +     }
  10262. + 
  10263. +   /* clr and st insns on 68000 read before writing.
  10264. +      This isn't so on the 68010, but we have no alternative for it.  */
  10265. +   if (TARGET_68020
  10266. +       || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0])))
  10267. +     {
  10268. +       if (operands[1] == const0_rtx)
  10269. +     return \"clr%.b %0\";
  10270. +       if (GET_CODE (operands[1]) == CONST_INT
  10271. +       && INTVAL (operands[1]) == -1)
  10272. +     {
  10273. +       CC_STATUS_INIT;
  10274. +       return \"st %0\";
  10275. +     }
  10276. +     }
  10277. +   if (GET_CODE (operands[1]) != CONST_INT && CONSTANT_P (operands[1]))
  10278. +     return \"move%.l %1,%0\";
  10279. +   if (ADDRESS_REG_P (operands[0]) || ADDRESS_REG_P (operands[1]))
  10280. +     return \"move%.w %1,%0\";
  10281. +   return \"move%.b %1,%0\";
  10282. + }")
  10283. + 
  10284. + (define_insn "movstrictqi"
  10285. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  10286. +     (match_operand:QI 1 "general_operand" "dmn"))]
  10287. +   ""
  10288. +   "*
  10289. + {
  10290. +   if (operands[1] == const0_rtx
  10291. +       /* clr insns on 68000 read before writing.
  10292. +          This isn't so on the 68010, but we have no alternative for it.  */
  10293. +       && (TARGET_68020
  10294. +           || !(GET_CODE (operands[0]) == MEM && MEM_VOLATILE_P (operands[0]))))
  10295. +     return \"clr%.b %0\";
  10296. +   return \"move%.b %1,%0\";
  10297. + }")
  10298. + 
  10299. + (define_insn "movsf"
  10300. +   [(set (match_operand:SF 0 "general_operand" "=rmf,x,y,rm,!x,!rm")
  10301. +     (match_operand:SF 1 "general_operand" "rmfF,xH,rmF,y,rm,x"))]
  10302. + ;  [(set (match_operand:SF 0 "general_operand" "=rmf")
  10303. + ;    (match_operand:SF 1 "general_operand" "rmfF"))]
  10304. +   ""
  10305. +   "*
  10306. + {
  10307. +   if (which_alternative >= 4)
  10308. +     return \"fpmove%.s %1,fpa0\;fpmove%.s fpa0,%0\";
  10309. +   if (FPA_REG_P (operands[0]))
  10310. +     {
  10311. +       if (FPA_REG_P (operands[1]))
  10312. +     return \"fpmove%.s %x1,%x0\";
  10313. +       else if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10314. +     return output_move_const_single (operands);
  10315. +       else if (FP_REG_P (operands[1]))
  10316. +         return \"fmove%.s %1,sp@-\;fpmove%.d sp@+, %0\";
  10317. +       return \"fpmove%.s %x1,%x0\";
  10318. +     }
  10319. +   if (FPA_REG_P (operands[1]))
  10320. +     {
  10321. +       if (FP_REG_P (operands[0]))
  10322. +     return \"fpmove%.s %x1,sp@-\;fmove%.s sp@+,%0\";
  10323. +       else
  10324. +     return \"fpmove%.s %x1,%x0\";
  10325. +     }
  10326. +   if (FP_REG_P (operands[0]))
  10327. +     {
  10328. +       if (FP_REG_P (operands[1]))
  10329. +     return \"f%$move%.x %1,%0\";
  10330. +       else if (ADDRESS_REG_P (operands[1]))
  10331. +     return \"move%.l %1,%-\;f%$move%.s %+,%0\";
  10332. +       else if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10333. +     return output_move_const_single (operands);
  10334. +       return \"f%$move%.s %f1,%0\";
  10335. +     }
  10336. +   if (FP_REG_P (operands[1]))
  10337. +     {
  10338. +       if (ADDRESS_REG_P (operands[0]))
  10339. +     return \"fmove%.s %1,%-\;move%.l %+,%0\";
  10340. +       return \"fmove%.s %f1,%0\";
  10341. +     }
  10342. +   return \"move%.l %1,%0\";
  10343. + }")
  10344. + 
  10345. + (define_insn "movdf"
  10346. +   [(set (match_operand:DF 0 "general_operand" "=rm,rf,rf,&rof<>,y,rm,x,!x,!rm")
  10347. +     (match_operand:DF 1 "general_operand" "rf,m,0,rofE<>,rmE,y,xH,rm,x"))]
  10348. + ;  [(set (match_operand:DF 0 "general_operand" "=rm,&rf,&rof<>")
  10349. + ;    (match_operand:DF 1 "general_operand" "rf,m,rofF<>"))]
  10350. +   ""
  10351. +   "*
  10352. + {
  10353. +   if (which_alternative == 7)
  10354. +     return \"fpmove%.d %x1,fpa0\;fpmove%.d fpa0,%x0\";
  10355. +   if (FPA_REG_P (operands[0]))
  10356. +     {
  10357. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10358. +     return output_move_const_double (operands);
  10359. +       if (FP_REG_P (operands[1]))
  10360. +         return \"fmove%.d %1,sp@-\;fpmove%.d sp@+,%x0\";
  10361. +       return \"fpmove%.d %x1,%x0\";
  10362. +     }
  10363. +   else if (FPA_REG_P (operands[1]))
  10364. +     {
  10365. +       if (FP_REG_P(operands[0]))
  10366. +         return \"fpmove%.d %x1,sp@-\;fmoved sp@+,%0\";
  10367. +       else
  10368. +         return \"fpmove%.d %x1,%x0\";
  10369. +     }
  10370. +   if (FP_REG_P (operands[0]))
  10371. +     {
  10372. +       if (FP_REG_P (operands[1]))
  10373. +     return \"f%&move%.x %1,%0\";
  10374. +       if (REG_P (operands[1]))
  10375. +     {
  10376. +       rtx xoperands[2];
  10377. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  10378. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10379. +       output_asm_insn (\"move%.l %1,%-\", operands);
  10380. +       return \"f%&move%.d %+,%0\";
  10381. +     }
  10382. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10383. +     return output_move_const_double (operands);
  10384. +       return \"f%&move%.d %f1,%0\";
  10385. +     }
  10386. +   else if (FP_REG_P (operands[1]))
  10387. +     {
  10388. +       if (REG_P (operands[0]))
  10389. +     {
  10390. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  10391. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10392. +       return \"move%.l %+,%0\";
  10393. +     }
  10394. +       else
  10395. +         return \"fmove%.d %f1,%0\";
  10396. +     }
  10397. +   return output_move_double (operands);
  10398. + }
  10399. + ")
  10400. + 
  10401. + (define_expand "movxf"
  10402. +   [(set (match_operand:XF 0 "nonimmediate_operand" "")
  10403. +     (match_operand:XF 1 "general_operand" ""))]
  10404. +   ""
  10405. +   "
  10406. + {
  10407. +   if (CONSTANT_P (operands[1]))
  10408. +     {
  10409. +       operands[1] = force_const_mem (XFmode, operands[1]);
  10410. +       if (! memory_address_p (XFmode, XEXP (operands[1], 0))
  10411. +       && ! reload_in_progress)
  10412. +     operands[1] = change_address (operands[1], XFmode,
  10413. +                       XEXP (operands[1], 0));
  10414. +     }
  10415. + }")
  10416. + 
  10417. + (define_insn ""
  10418. +   [(set (match_operand:XF 0 "nonimmediate_operand" "=f,m,f,!r,!f")
  10419. +     (match_operand:XF 1 "nonimmediate_operand" "m,f,f,f,r"))]
  10420. +   "TARGET_68881"
  10421. +   "*
  10422. + {
  10423. +   if (FP_REG_P (operands[0]))
  10424. +     {
  10425. +       if (FP_REG_P (operands[1]))
  10426. +     return \"fmove%.x %1,%0\";
  10427. +       if (REG_P (operands[1]))
  10428. +     {
  10429. +       rtx xoperands[2];
  10430. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 2);
  10431. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10432. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  10433. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10434. +       output_asm_insn (\"move%.l %1,%-\", operands);
  10435. +       return \"fmove%.x %+,%0\";
  10436. +     }
  10437. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10438. +         return \"fmove%.x %1,%0\";
  10439. +       return \"fmove%.x %f1,%0\";
  10440. +     }
  10441. +   if (REG_P (operands[0]))
  10442. +     {
  10443. +       output_asm_insn (\"fmove%.x %f1,%-\;move%.l %+,%0\", operands);
  10444. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10445. +       output_asm_insn (\"move%.l %+,%0\", operands);
  10446. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10447. +       return \"move%.l %+,%0\";
  10448. +     }
  10449. +   return \"fmove%.x %f1,%0\";
  10450. + }
  10451. + ")
  10452. + 
  10453. + (define_insn ""
  10454. +   [(set (match_operand:XF 0 "nonimmediate_operand" "=rm,rf,&rof<>")
  10455. +     (match_operand:XF 1 "nonimmediate_operand" "rf,m,rof<>"))]
  10456. +   "! TARGET_68881"
  10457. +   "*
  10458. + {
  10459. +   if (FP_REG_P (operands[0]))
  10460. +     {
  10461. +       if (FP_REG_P (operands[1]))
  10462. +     return \"fmove%.x %1,%0\";
  10463. +       if (REG_P (operands[1]))
  10464. +     {
  10465. +       rtx xoperands[2];
  10466. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 2);
  10467. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10468. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  10469. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10470. +       output_asm_insn (\"move%.l %1,%-\", operands);
  10471. +       return \"fmove%.x %+,%0\";
  10472. +     }
  10473. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10474. +         return \"fmove%.x %1,%0\";
  10475. +       return \"fmove%.x %f1,%0\";
  10476. +     }
  10477. +   if (FP_REG_P (operands[1]))
  10478. +     {
  10479. +       if (REG_P (operands[0]))
  10480. +         {
  10481. +           output_asm_insn (\"fmove%.x %f1,%-\;move%.l %+,%0\", operands);
  10482. +           operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10483. +           output_asm_insn (\"move%.l %+,%0\", operands);
  10484. +           operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10485. +           return \"move%.l %+,%0\";
  10486. +         }
  10487. +       else
  10488. +         return \"fmove%.x %f1,%0\";
  10489. +     }
  10490. +   return output_move_double (operands);
  10491. + }
  10492. + ")
  10493. + 
  10494. + ;; movdi can apply to fp regs in some cases
  10495. + (define_insn "movdi"
  10496. +   ;; Let's see if it really still needs to handle fp regs, and, if so, why.
  10497. +   [(set (match_operand:DI 0 "general_operand" "=rm,r,&ro<>,y,rm,!*x,!rm")
  10498. +     (match_operand:DI 1 "general_operand" "rF,m,roi<>F,rmiF,y,rmF,*x"))]
  10499. + ;  [(set (match_operand:DI 0 "general_operand" "=rm,&r,&ro<>,!&rm,!&f,y,rm,x,!x,!rm")
  10500. + ;    (match_operand:DI 1 "general_operand" "r,m,roi<>,fF,rfmF,rmi,y,rm,x"))]
  10501. + ;  [(set (match_operand:DI 0 "general_operand" "=rm,&rf,&ro<>,!&rm,!&f")
  10502. + ;    (match_operand:DI 1 "general_operand" "r,m,roi<>,fF,rfF"))]
  10503. +   ""
  10504. +   "*
  10505. + {
  10506. +   if (which_alternative == 8)
  10507. +     return \"fpmove%.d %x1,fpa0\;fpmove%.d fpa0,%x0\";
  10508. +   if (FPA_REG_P (operands[0]) || FPA_REG_P (operands[1]))
  10509. +     return \"fpmove%.d %x1,%x0\";
  10510. +   if (FP_REG_P (operands[0]))
  10511. +     {
  10512. +       if (FP_REG_P (operands[1]))
  10513. +     return \"fmove%.x %1,%0\";
  10514. +       if (REG_P (operands[1]))
  10515. +     {
  10516. +       rtx xoperands[2];
  10517. +       xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  10518. +       output_asm_insn (\"move%.l %1,%-\", xoperands);
  10519. +       output_asm_insn (\"move%.l %1,%-\", operands);
  10520. +       return \"fmove%.d %+,%0\";
  10521. +     }
  10522. +       if (GET_CODE (operands[1]) == CONST_DOUBLE)
  10523. +     return output_move_const_double (operands);
  10524. +       return \"fmove%.d %f1,%0\";
  10525. +     }
  10526. +   else if (FP_REG_P (operands[1]))
  10527. +     {
  10528. +       if (REG_P (operands[0]))
  10529. +     {
  10530. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  10531. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10532. +       return \"move%.l %+,%0\";
  10533. +     }
  10534. +       else
  10535. +         return \"fmove%.d %f1,%0\";
  10536. +     }
  10537. +   return output_move_double (operands);
  10538. + }
  10539. + ")
  10540. + 
  10541. + ;; Thus goes after the move instructions
  10542. + ;; because the move instructions are better (require no spilling)
  10543. + ;; when they can apply.  It goes before the add/sub insns
  10544. + ;; so we will prefer it to them.
  10545. + 
  10546. + (define_insn "pushasi"
  10547. +   [(set (match_operand:SI 0 "push_operand" "=m")
  10548. +     (match_operand:SI 1 "address_operand" "p"))]
  10549. +   ""
  10550. +   "pea %a1")
  10551. + 
  10552. + ;; truncation instructions
  10553. + (define_insn "truncsiqi2"
  10554. +   [(set (match_operand:QI 0 "general_operand" "=dm,d")
  10555. +     (truncate:QI
  10556. +      (match_operand:SI 1 "general_operand" "doJ,i")))]
  10557. +   ""
  10558. +   "*
  10559. + {
  10560. +   if (GET_CODE (operands[0]) == REG)
  10561. +     {
  10562. +       /* Must clear condition codes, since the move.l bases them on
  10563. +      the entire 32 bits, not just the desired 8 bits.  */
  10564. +       CC_STATUS_INIT;
  10565. +       return \"move%.l %1,%0\";
  10566. +     }
  10567. +   if (GET_CODE (operands[1]) == MEM)
  10568. +     operands[1] = adj_offsettable_operand (operands[1], 3);
  10569. +   return \"move%.b %1,%0\";
  10570. + }")
  10571. + 
  10572. + (define_insn "trunchiqi2"
  10573. +   [(set (match_operand:QI 0 "general_operand" "=dm,d")
  10574. +     (truncate:QI
  10575. +      (match_operand:HI 1 "general_operand" "doJ,i")))]
  10576. +   ""
  10577. +   "*
  10578. + {
  10579. +   if (GET_CODE (operands[0]) == REG
  10580. +       && (GET_CODE (operands[1]) == MEM
  10581. +       || GET_CODE (operands[1]) == CONST_INT))
  10582. +     {
  10583. +       /* Must clear condition codes, since the move.w bases them on
  10584. +      the entire 16 bits, not just the desired 8 bits.  */
  10585. +       CC_STATUS_INIT;
  10586. +       return \"move%.w %1,%0\";
  10587. +     }
  10588. +   if (GET_CODE (operands[0]) == REG)
  10589. +     {
  10590. +       /* Must clear condition codes, since the move.l bases them on
  10591. +      the entire 32 bits, not just the desired 8 bits.  */
  10592. +       CC_STATUS_INIT;
  10593. +       return \"move%.l %1,%0\";
  10594. +     }
  10595. +   if (GET_CODE (operands[1]) == MEM)
  10596. +     operands[1] = adj_offsettable_operand (operands[1], 1);
  10597. +   return \"move%.b %1,%0\";
  10598. + }")
  10599. + 
  10600. + (define_insn "truncsihi2"
  10601. +   [(set (match_operand:HI 0 "general_operand" "=dm,d")
  10602. +     (truncate:HI
  10603. +      (match_operand:SI 1 "general_operand" "roJ,i")))]
  10604. +   ""
  10605. +   "*
  10606. + {
  10607. +   if (GET_CODE (operands[0]) == REG)
  10608. +     {
  10609. +       /* Must clear condition codes, since the move.l bases them on
  10610. +      the entire 32 bits, not just the desired 8 bits.  */
  10611. +       CC_STATUS_INIT;
  10612. +       return \"move%.l %1,%0\";
  10613. +     }
  10614. +   if (GET_CODE (operands[1]) == MEM)
  10615. +     operands[1] = adj_offsettable_operand (operands[1], 2);
  10616. +   return \"move%.w %1,%0\";
  10617. + }")
  10618. + 
  10619. + ;; zero extension instructions
  10620. + 
  10621. + (define_expand "zero_extendhisi2"
  10622. +   [(set (match_operand:SI 0 "register_operand" "")
  10623. +     (const_int 0))
  10624. +    (set (strict_low_part (match_dup 2))
  10625. +     (match_operand:HI 1 "general_operand" ""))]
  10626. +   ""
  10627. +   "
  10628. + {
  10629. +   operands[1] = make_safe_from (operands[1], operands[0]);
  10630. +   if (GET_CODE (operands[0]) == SUBREG)
  10631. +     operands[2] = gen_rtx (SUBREG, HImode, SUBREG_REG (operands[0]),
  10632. +                SUBREG_WORD (operands[0]));
  10633. +   else
  10634. +     operands[2] = gen_rtx (SUBREG, HImode, operands[0], 0);
  10635. + }")
  10636. + 
  10637. + (define_expand "zero_extendqihi2"
  10638. +   [(set (match_operand:HI 0 "register_operand" "")
  10639. +     (const_int 0))
  10640. +    (set (strict_low_part (match_dup 2))
  10641. +     (match_operand:QI 1 "general_operand" ""))]
  10642. +   ""
  10643. +   "
  10644. + {
  10645. +   operands[1] = make_safe_from (operands[1], operands[0]);
  10646. +   if (GET_CODE (operands[0]) == SUBREG)
  10647. +     operands[2] = gen_rtx (SUBREG, QImode, SUBREG_REG (operands[0]),
  10648. +                SUBREG_WORD (operands[0]));
  10649. +   else
  10650. +     operands[2] = gen_rtx (SUBREG, QImode, operands[0], 0);
  10651. + }")
  10652. + 
  10653. + (define_expand "zero_extendqisi2"
  10654. +   [(set (match_operand:SI 0 "register_operand" "")
  10655. +     (const_int 0))
  10656. +    (set (strict_low_part (match_dup 2))
  10657. +     (match_operand:QI 1 "general_operand" ""))]
  10658. +   ""
  10659. +   "
  10660. + {
  10661. +   operands[1] = make_safe_from (operands[1], operands[0]);
  10662. +   if (GET_CODE (operands[0]) == SUBREG)
  10663. +     operands[2] = gen_rtx (SUBREG, QImode, SUBREG_REG (operands[0]),
  10664. +                SUBREG_WORD (operands[0]));
  10665. +   else
  10666. +     operands[2] = gen_rtx (SUBREG, QImode, operands[0], 0);
  10667. + }")
  10668. + 
  10669. + ;; Patterns to recognize zero-extend insns produced by the combiner.
  10670. + ;; We don't allow both operands in memory, because of aliasing problems.
  10671. + ;; Explicitly disallow two memory operands via the condition since reloading
  10672. + ;; of this case will result in worse code than the uncombined patterns.
  10673. + 
  10674. + (define_insn ""
  10675. +   [(set (match_operand:SI 0 "general_operand" "=do<>,d<")
  10676. +     (zero_extend:SI (match_operand:HI 1 "nonimmediate_operand" "r,m")))]
  10677. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  10678. +   "*
  10679. + {
  10680. +   if (DATA_REG_P (operands[0]))
  10681. +     {
  10682. +       if (GET_CODE (operands[1]) == REG
  10683. +       && REGNO (operands[0]) == REGNO (operands[1]))
  10684. +     return \"and%.l %#0xFFFF,%0\";
  10685. +       if (reg_mentioned_p (operands[0], operands[1]))
  10686. +         return \"move%.w %1,%0\;and%.l %#0xFFFF,%0\";
  10687. +       return \"clr%.l %0\;move%.w %1,%0\";
  10688. +     }
  10689. +   else if (GET_CODE (operands[0]) == MEM
  10690. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  10691. +     return \"move%.w %1,%0\;clr%.w %0\";
  10692. +   else if (GET_CODE (operands[0]) == MEM
  10693. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  10694. +     return \"clr%.w %0\;move%.w %1,%0\";
  10695. +   else
  10696. +     {
  10697. +       output_asm_insn (\"clr%.w %0\", operands);
  10698. +       operands[0] = adj_offsettable_operand (operands[0], 2);
  10699. +       return \"move%.w %1,%0\";
  10700. +     }
  10701. + }")
  10702. + 
  10703. + (define_insn ""
  10704. +   [(set (match_operand:HI 0 "general_operand" "=do<>,d")
  10705. +     (zero_extend:HI (match_operand:QI 1 "nonimmediate_operand" "d,m")))]
  10706. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  10707. +   "*
  10708. + {
  10709. +   if (DATA_REG_P (operands[0]))
  10710. +     {
  10711. +       if (GET_CODE (operands[1]) == REG
  10712. +       && REGNO (operands[0]) == REGNO (operands[1]))
  10713. +     return \"and%.w %#0xFF,%0\";
  10714. +       if (reg_mentioned_p (operands[0], operands[1]))
  10715. +         return \"move%.b %1,%0\;and%.w %#0xFF,%0\";
  10716. +       return \"clr%.w %0\;move%.b %1,%0\";
  10717. +     }
  10718. +   else if (GET_CODE (operands[0]) == MEM
  10719. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  10720. +     {
  10721. +       if (REGNO (XEXP (XEXP (operands[0], 0), 0))
  10722. +       == STACK_POINTER_REGNUM)
  10723. +     {
  10724. +       output_asm_insn (\"clr%.w %-\", operands);
  10725. +       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  10726. +                  plus_constant (stack_pointer_rtx, 1));
  10727. +       return \"move%.b %1,%0\";
  10728. +     }
  10729. +       else
  10730. +     return \"move%.b %1,%0\;clr%.b %0\";
  10731. +     }
  10732. +   else if (GET_CODE (operands[0]) == MEM
  10733. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  10734. +     return \"clr%.b %0\;move%.b %1,%0\";
  10735. +   else
  10736. +     {
  10737. +       output_asm_insn (\"clr%.b %0\", operands);
  10738. +       operands[0] = adj_offsettable_operand (operands[0], 1);
  10739. +       return \"move%.b %1,%0\";
  10740. +     }
  10741. + }")
  10742. + 
  10743. + (define_insn ""
  10744. +   [(set (match_operand:SI 0 "general_operand" "=do<>,d")
  10745. +     (zero_extend:SI (match_operand:QI 1 "nonimmediate_operand" "d,m")))]
  10746. +   "GET_CODE (operands[0]) != MEM || GET_CODE (operands[1]) != MEM"
  10747. +   "*
  10748. + {
  10749. +   if (DATA_REG_P (operands[0]))
  10750. +     {
  10751. +       if (GET_CODE (operands[1]) == REG
  10752. +       && REGNO (operands[0]) == REGNO (operands[1]))
  10753. +     return \"and%.l %#0xFF,%0\";
  10754. +       if (reg_mentioned_p (operands[0], operands[1]))
  10755. +         return \"move%.b %1,%0\;and%.l %#0xFF,%0\";
  10756. +       return \"clr%.l %0\;move%.b %1,%0\";
  10757. +     }
  10758. +   else if (GET_CODE (operands[0]) == MEM
  10759. +        && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC)
  10760. +     {
  10761. +       operands[0] = XEXP (XEXP (operands[0], 0), 0);
  10762. + #ifdef MOTOROLA
  10763. + #ifdef SGS
  10764. +       return \"clr%.l -(%0)\;move%.b %1,3(%0)\";
  10765. + #else
  10766. +       return \"clr%.l -(%0)\;move%.b %1,(3,%0)\";
  10767. + #endif
  10768. + #else
  10769. +       return \"clrl %0@-\;moveb %1,%0@(3)\";
  10770. + #endif
  10771. +     }
  10772. +   else if (GET_CODE (operands[0]) == MEM
  10773. +        && GET_CODE (XEXP (operands[0], 0)) == POST_INC)
  10774. +     {
  10775. +       operands[0] = XEXP (XEXP (operands[0], 0), 0);
  10776. + #ifdef MOTOROLA
  10777. + #ifdef SGS
  10778. +       return \"clr%.l (%0)+\;move%.b %1,-1(%0)\";
  10779. + #else
  10780. +       return \"clr%.l (%0)+\;move%.b %1,(-1,%0)\";
  10781. + #endif
  10782. + #else
  10783. +       return \"clrl %0@+\;moveb %1,%0@(-1)\";
  10784. + #endif
  10785. +     }
  10786. +   else
  10787. +     {
  10788. +       output_asm_insn (\"clr%.l %0\", operands);
  10789. +       operands[0] = adj_offsettable_operand (operands[0], 3);
  10790. +       return \"move%.b %1,%0\";
  10791. +     }
  10792. + }")
  10793. + 
  10794. + ;; sign extension instructions
  10795. + 
  10796. + (define_insn "extendhisi2"
  10797. +   [(set (match_operand:SI 0 "general_operand" "=*d,a")
  10798. +     (sign_extend:SI
  10799. +      (match_operand:HI 1 "nonimmediate_operand" "0,rm")))]
  10800. +   ""
  10801. +   "*
  10802. + {
  10803. +   if (ADDRESS_REG_P (operands[0]))
  10804. +     return \"move%.w %1,%0\";
  10805. +   return \"ext%.l %0\";
  10806. + }")
  10807. + 
  10808. + (define_insn "extendqihi2"
  10809. +   [(set (match_operand:HI 0 "general_operand" "=d")
  10810. +     (sign_extend:HI (match_operand:QI 1 "nonimmediate_operand" "0")))]
  10811. +   ""
  10812. +   "ext%.w %0")
  10813. + 
  10814. + (define_insn "extendqisi2"
  10815. +   [(set (match_operand:SI 0 "general_operand" "=d")
  10816. +     (sign_extend:SI (match_operand:QI 1 "nonimmediate_operand" "0")))]
  10817. +   "TARGET_68020"
  10818. +   "extb%.l %0")
  10819. + 
  10820. + ;; Conversions between float and double.
  10821. + 
  10822. + (define_expand "extendsfdf2"
  10823. +   [(set (match_operand:DF 0 "general_operand" "")
  10824. +     (float_extend:DF
  10825. +      (match_operand:SF 1 "general_operand" "")))]
  10826. +   "TARGET_68881 || TARGET_FPA"
  10827. +   "")
  10828. + 
  10829. + (define_insn ""
  10830. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  10831. +     (float_extend:DF
  10832. +      (match_operand:SF 1 "general_operand" "xH,rmF")))]
  10833. +   "TARGET_FPA"
  10834. +   "fpstod %w1,%0")
  10835. + 
  10836. + (define_insn ""
  10837. +   [(set (match_operand:DF 0 "general_operand" "=*fdm,f")
  10838. +     (float_extend:DF
  10839. +       (match_operand:SF 1 "general_operand" "f,dmF")))]
  10840. +   "TARGET_68881"
  10841. +   "*
  10842. + {
  10843. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  10844. +     {
  10845. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  10846. +     {
  10847. +       /* Extending float to double in an fp-reg is a no-op.
  10848. +          NOTICE_UPDATE_CC has already assumed that the
  10849. +          cc will be set.  So cancel what it did.  */
  10850. +       cc_status = cc_prev_status;
  10851. +       return \"\";
  10852. +     }
  10853. +       return \"f%&move%.x %1,%0\";
  10854. +     }
  10855. +   if (FP_REG_P (operands[0]))
  10856. +     return \"f%&move%.s %f1,%0\";
  10857. +   if (DATA_REG_P (operands[0]) && FP_REG_P (operands[1]))
  10858. +     {
  10859. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  10860. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  10861. +       return \"move%.l %+,%0\";
  10862. +     }
  10863. +   return \"fmove%.d %f1,%0\";
  10864. + }")
  10865. + 
  10866. + ;; This cannot output into an f-reg because there is no way to be
  10867. + ;; sure of truncating in that case.
  10868. + ;; But on the Sun FPA, we can be sure.
  10869. + (define_expand "truncdfsf2"
  10870. +   [(set (match_operand:SF 0 "general_operand" "")
  10871. +     (float_truncate:SF
  10872. +       (match_operand:DF 1 "general_operand" "")))]
  10873. +   "TARGET_68881 || TARGET_FPA"
  10874. +   "")
  10875. + 
  10876. + (define_insn ""
  10877. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  10878. +     (float_truncate:SF
  10879. +       (match_operand:DF 1 "general_operand" "xH,rmF")))]
  10880. +   "TARGET_FPA"
  10881. +   "fpdtos %y1,%0")
  10882. + 
  10883. + ;; On the '040 we can truncate in a register accurately and easily.
  10884. + (define_insn ""
  10885. +   [(set (match_operand:SF 0 "general_operand" "=f")
  10886. +     (float_truncate:SF
  10887. +       (match_operand:DF 1 "general_operand" "fmG")))]
  10888. +   "TARGET_68040_ONLY"
  10889. +   "*
  10890. + {
  10891. +   if (FP_REG_P (operands[1]))
  10892. +     return \"f%$move%.x %1,%0\";
  10893. +   return \"f%$move%.d %f1,%0\";
  10894. + }")
  10895. + 
  10896. + (define_insn ""
  10897. +   [(set (match_operand:SF 0 "general_operand" "=dm")
  10898. +     (float_truncate:SF
  10899. +       (match_operand:DF 1 "general_operand" "f")))]
  10900. +   "TARGET_68881"
  10901. +   "fmove%.s %f1,%0")
  10902. + 
  10903. + ;; Conversion between fixed point and floating point.
  10904. + ;; Note that among the fix-to-float insns
  10905. + ;; the ones that start with SImode come first.
  10906. + ;; That is so that an operand that is a CONST_INT
  10907. + ;; (and therefore lacks a specific machine mode).
  10908. + ;; will be recognized as SImode (which is always valid)
  10909. + ;; rather than as QImode or HImode.
  10910. + 
  10911. + (define_expand "floatsisf2"
  10912. +   [(set (match_operand:SF 0 "general_operand" "")
  10913. +     (float:SF (match_operand:SI 1 "general_operand" "")))]
  10914. +   "TARGET_68881 || TARGET_FPA"
  10915. +   "")
  10916. + 
  10917. + (define_insn ""
  10918. +   [(set (match_operand:SF 0 "general_operand" "=y,x")
  10919. +     (float:SF (match_operand:SI 1 "general_operand" "rmi,x")))]
  10920. +   "TARGET_FPA"
  10921. +   "fpltos %1,%0")
  10922. + 
  10923. + (define_insn ""
  10924. +   [(set (match_operand:SF 0 "general_operand" "=f")
  10925. +     (float:SF (match_operand:SI 1 "general_operand" "dmi")))]
  10926. +   "TARGET_68881"
  10927. +   "f%$move%.l %1,%0")
  10928. + 
  10929. + (define_expand "floatsidf2"
  10930. +   [(set (match_operand:DF 0 "general_operand" "")
  10931. +     (float:DF (match_operand:SI 1 "general_operand" "")))]
  10932. +   "TARGET_68881 || TARGET_FPA"
  10933. +   "")
  10934. + 
  10935. + (define_insn ""
  10936. +   [(set (match_operand:DF 0 "general_operand" "=y,x")
  10937. +     (float:DF (match_operand:SI 1 "general_operand" "rmi,x")))]
  10938. +   "TARGET_FPA"
  10939. +   "fpltod %1,%0")
  10940. + 
  10941. + (define_insn ""
  10942. +   [(set (match_operand:DF 0 "general_operand" "=f")
  10943. +     (float:DF (match_operand:SI 1 "general_operand" "dmi")))]
  10944. +   "TARGET_68881"
  10945. +   "f%&move%.l %1,%0")
  10946. + 
  10947. + (define_insn "floathisf2"
  10948. +   [(set (match_operand:SF 0 "general_operand" "=f")
  10949. +     (float:SF (match_operand:HI 1 "general_operand" "dmn")))]
  10950. +   "TARGET_68881"
  10951. +   "f%$move%.w %1,%0")
  10952. + 
  10953. + (define_insn "floathidf2"
  10954. +   [(set (match_operand:DF 0 "general_operand" "=f")
  10955. +     (float:DF (match_operand:HI 1 "general_operand" "dmn")))]
  10956. +   "TARGET_68881"
  10957. +   "fmove%.w %1,%0")
  10958. + 
  10959. + (define_insn "floatqisf2"
  10960. +   [(set (match_operand:SF 0 "general_operand" "=f")
  10961. +     (float:SF (match_operand:QI 1 "general_operand" "dmn")))]
  10962. +   "TARGET_68881"
  10963. +   "fmove%.b %1,%0")
  10964. + 
  10965. + (define_insn "floatqidf2"
  10966. +   [(set (match_operand:DF 0 "general_operand" "=f")
  10967. +     (float:DF (match_operand:QI 1 "general_operand" "dmn")))]
  10968. +   "TARGET_68881"
  10969. +   "f%&move%.b %1,%0")
  10970. + 
  10971. + ;; New routines to convert floating-point values to integers
  10972. + ;; to be used on the '040.  These should be faster than trapping
  10973. + ;; into the kernel to emulate fintrz.  They should also be faster
  10974. + ;; than calling the subroutines fixsfsi or fixdfsi.
  10975. + 
  10976. + (define_insn "fix_truncdfsi2"
  10977. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  10978. +     (fix:SI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  10979. +    (clobber (match_scratch:SI 2 "=d"))
  10980. +    (clobber (match_scratch:SI 3 "=d"))]
  10981. +   "TARGET_68881 && TARGET_68040"
  10982. +   "*
  10983. + {
  10984. +   CC_STATUS_INIT;
  10985. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.l %1,%0\;fmovem%.l %2,%!\";
  10986. + }")
  10987. + 
  10988. + (define_insn "fix_truncdfhi2"
  10989. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  10990. +     (fix:HI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  10991. +    (clobber (match_scratch:SI 2 "=d"))
  10992. +    (clobber (match_scratch:SI 3 "=d"))]
  10993. +   "TARGET_68881 && TARGET_68040"
  10994. +   "*
  10995. + {
  10996. +   CC_STATUS_INIT;
  10997. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.w %1,%0\;fmovem%.l %2,%!\";
  10998. + }")
  10999. + 
  11000. + (define_insn "fix_truncdfqi2"
  11001. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  11002. +     (fix:QI (fix:DF (match_operand:DF 1 "register_operand" "f"))))
  11003. +    (clobber (match_scratch:SI 2 "=d"))
  11004. +    (clobber (match_scratch:SI 3 "=d"))]
  11005. +   "TARGET_68881 && TARGET_68040"
  11006. +   "*
  11007. + {
  11008. +   CC_STATUS_INIT;
  11009. +   return \"fmovem%.l %!,%2\;moveq %#16,%3\;or%.l %2,%3\;and%.w %#-33,%3\;fmovem%.l %3,%!\;fmove%.b %1,%0\;fmovem%.l %2,%!\";
  11010. + }")
  11011. + 
  11012. + ;; Convert a float to a float whose value is an integer.
  11013. + ;; This is the first stage of converting it to an integer type.
  11014. + 
  11015. + (define_insn "ftruncdf2"
  11016. +   [(set (match_operand:DF 0 "general_operand" "=f")
  11017. +     (fix:DF (match_operand:DF 1 "general_operand" "fFm")))]
  11018. +   "TARGET_68881 && !TARGET_68040"
  11019. +   "*
  11020. + {
  11021. +   if (FP_REG_P (operands[1]))
  11022. +     return \"fintrz%.x %f1,%0\";
  11023. +   return \"fintrz%.d %f1,%0\";
  11024. + }")
  11025. + 
  11026. + (define_insn "ftruncsf2"
  11027. +   [(set (match_operand:SF 0 "general_operand" "=f")
  11028. +     (fix:SF (match_operand:SF 1 "general_operand" "dfFm")))]
  11029. +   "TARGET_68881 && !TARGET_68040"
  11030. +   "*
  11031. + {
  11032. +   if (FP_REG_P (operands[1]))
  11033. +     return \"fintrz%.x %f1,%0\";
  11034. +   return \"fintrz%.s %f1,%0\";
  11035. + }")
  11036. + 
  11037. + ;; Convert a float whose value is an integer
  11038. + ;; to an actual integer.  Second stage of converting float to integer type.
  11039. + (define_insn "fixsfqi2"
  11040. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  11041. +     (fix:QI (match_operand:SF 1 "general_operand" "f")))]
  11042. +   "TARGET_68881"
  11043. +   "fmove%.b %1,%0")
  11044. + 
  11045. + (define_insn "fixsfhi2"
  11046. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  11047. +     (fix:HI (match_operand:SF 1 "general_operand" "f")))]
  11048. +   "TARGET_68881"
  11049. +   "fmove%.w %1,%0")
  11050. + 
  11051. + (define_insn "fixsfsi2"
  11052. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  11053. +     (fix:SI (match_operand:SF 1 "general_operand" "f")))]
  11054. +   "TARGET_68881"
  11055. +   "fmove%.l %1,%0")
  11056. + 
  11057. + (define_insn "fixdfqi2"
  11058. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  11059. +     (fix:QI (match_operand:DF 1 "general_operand" "f")))]
  11060. +   "TARGET_68881"
  11061. +   "fmove%.b %1,%0")
  11062. + 
  11063. + (define_insn "fixdfhi2"
  11064. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  11065. +     (fix:HI (match_operand:DF 1 "general_operand" "f")))]
  11066. +   "TARGET_68881"
  11067. +   "fmove%.w %1,%0")
  11068. + 
  11069. + (define_insn "fixdfsi2"
  11070. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  11071. +     (fix:SI (match_operand:DF 1 "general_operand" "f")))]
  11072. +   "TARGET_68881"
  11073. +   "fmove%.l %1,%0")
  11074. + 
  11075. + ;; Convert a float to an integer.
  11076. + ;; On the Sun FPA, this is done in one step.
  11077. + 
  11078. + (define_insn ""
  11079. +   [(set (match_operand:SI 0 "general_operand" "=x,y")
  11080. +     (fix:SI (fix:SF (match_operand:SF 1 "general_operand" "xH,rmF"))))]
  11081. +   "TARGET_FPA"
  11082. +   "fpstol %w1,%0")
  11083. + 
  11084. + (define_insn ""
  11085. +   [(set (match_operand:SI 0 "general_operand" "=x,y")
  11086. +     (fix:SI (fix:DF (match_operand:DF 1 "general_operand" "xH,rmF"))))]
  11087. +   "TARGET_FPA"
  11088. +   "fpdtol %y1,%0")
  11089. + 
  11090. + ;; add instructions
  11091. + 
  11092. + ;; Note that the middle two alternatives are near-duplicates
  11093. + ;; in order to handle insns generated by reload.
  11094. + ;; This is needed since they are not themselves reloaded,
  11095. + ;; so commutativity won't apply to them.
  11096. + (define_insn "addsi3"
  11097. +   [(set (match_operand:SI 0 "general_operand" "=m,?a,?a,r")
  11098. +     (plus:SI (match_operand:SI 1 "general_operand" "%0,a,rJK,0")
  11099. +          (match_operand:SI 2 "general_operand" "dIKLs,rJK,a,mrIKLs")))]
  11100. +   ""
  11101. +   "*
  11102. + {
  11103. +   if (! operands_match_p (operands[0], operands[1]))
  11104. +     {
  11105. +       if (!ADDRESS_REG_P (operands[1]))
  11106. +     {
  11107. +       rtx tmp = operands[1];
  11108. + 
  11109. +       operands[1] = operands[2];
  11110. +       operands[2] = tmp;
  11111. +     }
  11112. + 
  11113. +       /* These insns can result from reloads to access
  11114. +      stack slots over 64k from the frame pointer.  */
  11115. +       if (((GET_CODE (operands[2]) == CONST_INT
  11116. +        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  11117. +       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  11118. +         return \"move%.l %2,%0\;add%.l %1,%0\";
  11119. + #ifdef SGS
  11120. +       if (GET_CODE (operands[2]) == REG)
  11121. +     return \"lea 0(%1,%2.l),%0\";
  11122. +       else
  11123. +     return \"lea %c2(%1),%0\";
  11124. + #else /* not SGS */
  11125. + #ifdef MOTOROLA
  11126. +       if (GET_CODE (operands[2]) == REG)
  11127. +     return \"lea (%1,%2.l),%0\";
  11128. +       else
  11129. +     return \"lea (%c2,%1),%0\";
  11130. + #else /* not MOTOROLA (MIT syntax) */
  11131. +       if (GET_CODE (operands[2]) == REG)
  11132. +     return \"lea %1@(0,%2:l),%0\";
  11133. +       else
  11134. +     return \"lea %1@(%c2),%0\";
  11135. + #endif /* not MOTOROLA */
  11136. + #endif /* not SGS */
  11137. +     }
  11138. +   if (GET_CODE (operands[2]) == CONST_INT)
  11139. +     {
  11140. + #ifndef NO_ADDSUB_Q
  11141. +       if (INTVAL (operands[2]) > 0
  11142. +       && INTVAL (operands[2]) <= 8)
  11143. +     return (ADDRESS_REG_P (operands[0])
  11144. +         ? \"addq%.w %2,%0\"
  11145. +         : \"addq%.l %2,%0\");
  11146. +       if (INTVAL (operands[2]) < 0
  11147. +       && INTVAL (operands[2]) >= -8)
  11148. +         {
  11149. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  11150. +                      - INTVAL (operands[2]));
  11151. +       return (ADDRESS_REG_P (operands[0])
  11152. +           ? \"subq%.w %2,%0\"
  11153. +           : \"subq%.l %2,%0\");
  11154. +     }
  11155. +       /* On everything except the 68000 it is faster to use two
  11156. +      addqw instructions to add a small integer (8 < N <= 16)
  11157. +      to an address register.  Likewise for subqw.*/
  11158. +       if (INTVAL (operands[2]) > 8
  11159. +       && INTVAL (operands[2]) <= 16
  11160. +       && ADDRESS_REG_P (operands[0])
  11161. +       && TARGET_68020) 
  11162. +     {
  11163. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  11164. +       return \"addq%.w %#8,%0\;addq%.w %2,%0\";
  11165. +     }
  11166. +       if (INTVAL (operands[2]) < -8
  11167. +       && INTVAL (operands[2]) >= -16
  11168. +       && ADDRESS_REG_P (operands[0])
  11169. +       && TARGET_68020) 
  11170. +     {
  11171. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, 
  11172. +                   - INTVAL (operands[2]) - 8);
  11173. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  11174. +     }
  11175. + #endif
  11176. +       if (ADDRESS_REG_P (operands[0])
  11177. +       && INTVAL (operands[2]) >= -0x8000
  11178. +       && INTVAL (operands[2]) < 0x8000)
  11179. +     return \"add%.w %2,%0\";
  11180. +     }
  11181. +   return \"add%.l %2,%0\";
  11182. + }")
  11183. + 
  11184. + (define_insn ""
  11185. +   [(set (match_operand:SI 0 "general_operand" "=a")
  11186. +     (plus:SI (match_operand:SI 1 "general_operand" "0")
  11187. +          (sign_extend:SI
  11188. +           (match_operand:HI 2 "nonimmediate_operand" "rm"))))]
  11189. +   ""
  11190. +   "add%.w %2,%0")
  11191. + 
  11192. + (define_insn "addhi3"
  11193. +   [(set (match_operand:HI 0 "general_operand" "=m,r")
  11194. +     (plus:HI (match_operand:HI 1 "general_operand" "%0,0")
  11195. +          (match_operand:HI 2 "general_operand" "dn,rmn")))]
  11196. +   ""
  11197. +   "*
  11198. + {
  11199. + #ifndef NO_ADDSUB_Q
  11200. +   if (GET_CODE (operands[2]) == CONST_INT)
  11201. +     {
  11202. +       /* If the constant would be a negative number when interpreted as
  11203. +      HImode, make it negative.  This is usually, but not always, done
  11204. +      elsewhere in the compiler.  First check for constants out of range,
  11205. +      which could confuse us.  */
  11206. + 
  11207. +       if (INTVAL (operands[2]) >= 32768)
  11208. +     operands[2] = gen_rtx (CONST_INT, VOIDmode,
  11209. +                    INTVAL (operands[2]) - 65536);
  11210. + 
  11211. +       if (INTVAL (operands[2]) > 0
  11212. +       && INTVAL (operands[2]) <= 8)
  11213. +     return \"addq%.w %2,%0\";
  11214. +       if (INTVAL (operands[2]) < 0
  11215. +       && INTVAL (operands[2]) >= -8)
  11216. +     {
  11217. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  11218. +                      - INTVAL (operands[2]));
  11219. +       return \"subq%.w %2,%0\";
  11220. +     }
  11221. +       /* On everything except the 68000 it is faster to use two
  11222. +      addqw instructions to add a small integer (8 < N <= 16)
  11223. +      to an address register.  Likewise for subqw. */
  11224. +       if (INTVAL (operands[2]) > 8
  11225. +       && INTVAL (operands[2]) <= 16
  11226. +       && ADDRESS_REG_P (operands[0])
  11227. +       && TARGET_68020) 
  11228. +     {
  11229. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  11230. +       return \"addq%.w %#8,%0\;addq%.w %2,%0\";
  11231. +     }
  11232. +       if (INTVAL (operands[2]) < -8
  11233. +       && INTVAL (operands[2]) >= -16
  11234. +       && ADDRESS_REG_P (operands[0])
  11235. +       && TARGET_68020) 
  11236. +     {
  11237. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, 
  11238. +                  - INTVAL (operands[2]) - 8);
  11239. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  11240. +     }
  11241. +     }
  11242. + #endif
  11243. +   return \"add%.w %2,%0\";
  11244. + }")
  11245. + 
  11246. + ;; These insns must use MATCH_DUP instead of the more expected
  11247. + ;; use of a matching constraint because the "output" here is also
  11248. + ;; an input, so you can't use the matching constraint.  That also means
  11249. + ;; that you can't use the "%", so you need patterns with the matched
  11250. + ;; operand in both positions.
  11251. + 
  11252. + (define_insn ""
  11253. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  11254. +     (plus:HI (match_dup 0)
  11255. +          (match_operand:HI 1 "general_operand" "dn,rmn")))]
  11256. +   ""
  11257. +   "*
  11258. + {
  11259. + #ifndef NO_ADDSUB_Q
  11260. +   if (GET_CODE (operands[1]) == CONST_INT)
  11261. +     {
  11262. +       /* If the constant would be a negative number when interpreted as
  11263. +      HImode, make it negative.  This is usually, but not always, done
  11264. +      elsewhere in the compiler.  First check for constants out of range,
  11265. +      which could confuse us.  */
  11266. + 
  11267. +       if (INTVAL (operands[1]) >= 32768)
  11268. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11269. +                    INTVAL (operands[1]) - 65536);
  11270. + 
  11271. +       if (INTVAL (operands[1]) > 0
  11272. +       && INTVAL (operands[1]) <= 8)
  11273. +     return \"addq%.w %1,%0\";
  11274. +       if (INTVAL (operands[1]) < 0
  11275. +       && INTVAL (operands[1]) >= -8)
  11276. +     {
  11277. +       operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11278. +                      - INTVAL (operands[1]));
  11279. +       return \"subq%.w %1,%0\";
  11280. +     }
  11281. +       /* On everything except the 68000 it is faster to use two
  11282. +      addqw instructions to add a small integer (8 < N <= 16)
  11283. +      to an address register.  Likewise for subqw. */
  11284. +       if (INTVAL (operands[1]) > 8
  11285. +       && INTVAL (operands[1]) <= 16
  11286. +       && ADDRESS_REG_P (operands[0])
  11287. +       && TARGET_68020) 
  11288. +     {
  11289. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  11290. +       return \"addq%.w %#8,%0\;addq%.w %1,%0\";
  11291. +     }
  11292. +       if (INTVAL (operands[1]) < -8
  11293. +       && INTVAL (operands[1]) >= -16
  11294. +       && ADDRESS_REG_P (operands[0])
  11295. +       && TARGET_68020) 
  11296. +     {
  11297. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  11298. +                  - INTVAL (operands[1]) - 8);
  11299. +       return \"subq%.w %#8,%0\;subq%.w %1,%0\";
  11300. +     }
  11301. +     }
  11302. + #endif
  11303. +   return \"add%.w %1,%0\";
  11304. + }")
  11305. + 
  11306. + (define_insn ""
  11307. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  11308. +     (plus:HI (match_operand:HI 1 "general_operand" "dn,rmn")
  11309. +          (match_dup 0)))]
  11310. +   ""
  11311. +   "*
  11312. + {
  11313. + #ifndef NO_ADDSUB_Q
  11314. +   if (GET_CODE (operands[1]) == CONST_INT)
  11315. +     {
  11316. +       /* If the constant would be a negative number when interpreted as
  11317. +      HImode, make it negative.  This is usually, but not always, done
  11318. +      elsewhere in the compiler.  First check for constants out of range,
  11319. +      which could confuse us.  */
  11320. + 
  11321. +       if (INTVAL (operands[1]) >= 32768)
  11322. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11323. +                    INTVAL (operands[1]) - 65536);
  11324. + 
  11325. +       if (INTVAL (operands[1]) > 0
  11326. +       && INTVAL (operands[1]) <= 8)
  11327. +     return \"addq%.w %1,%0\";
  11328. +       if (INTVAL (operands[1]) < 0
  11329. +       && INTVAL (operands[1]) >= -8)
  11330. +     {
  11331. +       operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11332. +                      - INTVAL (operands[1]));
  11333. +       return \"subq%.w %1,%0\";
  11334. +     }
  11335. +       /* On everything except the 68000 it is faster to use two
  11336. +      addqw instructions to add a small integer (8 < N <= 16)
  11337. +      to an address register.  Likewise for subqw. */
  11338. +       if (INTVAL (operands[1]) > 8
  11339. +       && INTVAL (operands[1]) <= 16
  11340. +       && ADDRESS_REG_P (operands[0])
  11341. +       && TARGET_68020) 
  11342. +     {
  11343. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[1]) - 8);
  11344. +       return \"addq%.w %#8,%0\;addq%.w %1,%0\";
  11345. +     }
  11346. +       if (INTVAL (operands[1]) < -8
  11347. +       && INTVAL (operands[1]) >= -16
  11348. +       && ADDRESS_REG_P (operands[0])
  11349. +       && TARGET_68020) 
  11350. +     {
  11351. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 
  11352. +                  - INTVAL (operands[1]) - 8);
  11353. +       return \"subq%.w %#8,%0\;subq%.w %1,%0\";
  11354. +     }
  11355. +     }
  11356. + #endif
  11357. +   return \"add%.w %1,%0\";
  11358. + }")
  11359. + 
  11360. + (define_insn "addqi3"
  11361. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  11362. +     (plus:QI (match_operand:QI 1 "general_operand" "%0,0")
  11363. +          (match_operand:QI 2 "general_operand" "dn,dmn")))]
  11364. +   ""
  11365. +   "*
  11366. + {
  11367. + #ifndef NO_ADDSUB_Q
  11368. +   if (GET_CODE (operands[2]) == CONST_INT)
  11369. +     {
  11370. +       if (INTVAL (operands[2]) >= 128)
  11371. +     operands[2] = gen_rtx (CONST_INT, VOIDmode,
  11372. +                    INTVAL (operands[2]) - 256);
  11373. + 
  11374. +       if (INTVAL (operands[2]) > 0
  11375. +       && INTVAL (operands[2]) <= 8)
  11376. +     return \"addq%.b %2,%0\";
  11377. +       if (INTVAL (operands[2]) < 0 && INTVAL (operands[2]) >= -8)
  11378. +        {
  11379. +      operands[2] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[2]));
  11380. +      return \"subq%.b %2,%0\";
  11381. +        }
  11382. +     }
  11383. + #endif
  11384. +   return \"add%.b %2,%0\";
  11385. + }")
  11386. + 
  11387. + (define_insn ""
  11388. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  11389. +     (plus:QI (match_dup 0)
  11390. +          (match_operand:QI 1 "general_operand" "dn,dmn")))]
  11391. +   ""
  11392. +   "*
  11393. + {
  11394. + #ifndef NO_ADDSUB_Q
  11395. +   if (GET_CODE (operands[1]) == CONST_INT)
  11396. +     {
  11397. +       if (INTVAL (operands[1]) >= 128)
  11398. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11399. +                    INTVAL (operands[1]) - 256);
  11400. + 
  11401. +       if (INTVAL (operands[1]) > 0
  11402. +       && INTVAL (operands[1]) <= 8)
  11403. +     return \"addq%.b %1,%0\";
  11404. +       if (INTVAL (operands[1]) < 0 && INTVAL (operands[1]) >= -8)
  11405. +        {
  11406. +      operands[1] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[1]));
  11407. +      return \"subq%.b %1,%0\";
  11408. +        }
  11409. +     }
  11410. + #endif
  11411. +   return \"add%.b %1,%0\";
  11412. + }")
  11413. + 
  11414. + (define_insn ""
  11415. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  11416. +     (plus:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  11417. +          (match_dup 0)))]
  11418. +   ""
  11419. +   "*
  11420. + {
  11421. + #ifndef NO_ADDSUB_Q
  11422. +   if (GET_CODE (operands[1]) == CONST_INT)
  11423. +     {
  11424. +       if (INTVAL (operands[1]) >= 128)
  11425. +     operands[1] = gen_rtx (CONST_INT, VOIDmode,
  11426. +                    INTVAL (operands[1]) - 256);
  11427. + 
  11428. +       if (INTVAL (operands[1]) > 0
  11429. +       && INTVAL (operands[1]) <= 8)
  11430. +     return \"addq%.b %1,%0\";
  11431. +       if (INTVAL (operands[1]) < 0 && INTVAL (operands[1]) >= -8)
  11432. +        {
  11433. +      operands[1] = gen_rtx (CONST_INT, VOIDmode, - INTVAL (operands[1]));
  11434. +      return \"subq%.b %1,%0\";
  11435. +        }
  11436. +     }
  11437. + #endif
  11438. +   return \"add%.b %1,%0\";
  11439. + }")
  11440. + 
  11441. + (define_expand "adddf3"
  11442. +   [(set (match_operand:DF 0 "general_operand" "")
  11443. +     (plus:DF (match_operand:DF 1 "general_operand" "")
  11444. +          (match_operand:DF 2 "general_operand" "")))]
  11445. +   "TARGET_68881 || TARGET_FPA"
  11446. +   "")
  11447. + 
  11448. + (define_insn ""
  11449. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  11450. +     (plus:DF (match_operand:DF 1 "general_operand" "%xH,y")
  11451. +          (match_operand:DF 2 "general_operand" "xH,dmF")))]
  11452. +   "TARGET_FPA"
  11453. +   "*
  11454. + {
  11455. +   if (rtx_equal_p (operands[0], operands[1]))
  11456. +     return \"fpadd%.d %y2,%0\";
  11457. +   if (rtx_equal_p (operands[0], operands[2]))
  11458. +     return \"fpadd%.d %y1,%0\";
  11459. +   if (which_alternative == 0)
  11460. +     return \"fpadd3%.d %w2,%w1,%0\";
  11461. +   return \"fpadd3%.d %x2,%x1,%0\";
  11462. + }")
  11463. + 
  11464. + (define_insn ""
  11465. +   [(set (match_operand:DF 0 "general_operand" "=f")
  11466. +     (plus:DF (match_operand:DF 1 "general_operand" "%0")
  11467. +          (match_operand:DF 2 "general_operand" "fmG")))]
  11468. +   "TARGET_68881"
  11469. +   "*
  11470. + {
  11471. +   if (REG_P (operands[2]))
  11472. +     return \"f%&add%.x %2,%0\";
  11473. +   return \"f%&add%.d %f2,%0\";
  11474. + }")
  11475. + 
  11476. + (define_expand "addsf3"
  11477. +   [(set (match_operand:SF 0 "general_operand" "")
  11478. +     (plus:SF (match_operand:SF 1 "general_operand" "")
  11479. +          (match_operand:SF 2 "general_operand" "")))]
  11480. +   "TARGET_68881 || TARGET_FPA"
  11481. +   "")
  11482. + 
  11483. + (define_insn ""
  11484. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  11485. +     (plus:SF (match_operand:SF 1 "general_operand" "%xH,y")
  11486. +          (match_operand:SF 2 "general_operand" "xH,rmF")))]
  11487. +   "TARGET_FPA"
  11488. +   "*
  11489. + {
  11490. +   if (rtx_equal_p (operands[0], operands[1]))
  11491. +     return \"fpadd%.s %w2,%0\";
  11492. +   if (rtx_equal_p (operands[0], operands[2]))
  11493. +     return \"fpadd%.s %w1,%0\";
  11494. +   if (which_alternative == 0)
  11495. +     return \"fpadd3%.s %w2,%w1,%0\";
  11496. +   return \"fpadd3%.s %2,%1,%0\";
  11497. + }")
  11498. + 
  11499. + (define_insn ""
  11500. +   [(set (match_operand:SF 0 "general_operand" "=f")
  11501. +     (plus:SF (match_operand:SF 1 "general_operand" "%0")
  11502. +          (match_operand:SF 2 "general_operand" "fdmF")))]
  11503. +   "TARGET_68881"
  11504. +   "*
  11505. + {
  11506. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  11507. +     return \"f%$add%.x %2,%0\";
  11508. +   return \"f%$add%.s %f2,%0\";
  11509. + }")
  11510. + 
  11511. + ;; subtract instructions
  11512. + 
  11513. + (define_insn "subsi3"
  11514. +   [(set (match_operand:SI 0 "general_operand" "=m,r,!a,?d")
  11515. +     (minus:SI (match_operand:SI 1 "general_operand" "0,0,a,mrIKs")
  11516. +           (match_operand:SI 2 "general_operand" "dIKs,mrIKs,J,0")))]
  11517. +   ""
  11518. +   "*
  11519. + {
  11520. +   if (! operands_match_p (operands[0], operands[1]))
  11521. +     {
  11522. +       if (operands_match_p (operands[0], operands[2]))
  11523. +     {
  11524. + #ifndef NO_ADDSUB_Q
  11525. +       if (GET_CODE (operands[1]) == CONST_INT)
  11526. +         {
  11527. +           if (INTVAL (operands[1]) > 0
  11528. +           && INTVAL (operands[1]) <= 8)
  11529. +         return \"subq%.l %1,%0\;neg%.l %0\";
  11530. +         }
  11531. + #endif
  11532. +       return \"sub%.l %1,%0\;neg%.l %0\";
  11533. +     }
  11534. +       /* This case is matched by J, but negating -0x8000
  11535. +          in an lea would give an invalid displacement.
  11536. +      So do this specially.  */
  11537. +       if (INTVAL (operands[2]) == -0x8000)
  11538. +     return \"move%.l %1,%0\;sub%.l %2,%0\";
  11539. + #ifdef SGS
  11540. +       return \"lea %n2(%1),%0\";
  11541. + #else
  11542. + #ifdef MOTOROLA
  11543. +       return \"lea (%n2,%1),%0\";
  11544. + #else /* not MOTOROLA (MIT syntax) */
  11545. +       return \"lea %1@(%n2),%0\";
  11546. + #endif /* not MOTOROLA */
  11547. + #endif /* not SGS */
  11548. +     }
  11549. +   if (GET_CODE (operands[2]) == CONST_INT)
  11550. +     {
  11551. + #ifndef NO_ADDSUB_Q
  11552. +       if (INTVAL (operands[2]) > 0
  11553. +       && INTVAL (operands[2]) <= 8)
  11554. +     return \"subq%.l %2,%0\";
  11555. +       /* Using two subqw for 8 < N <= 16 being subtracted from an
  11556. +      address register is faster on all but 68000 */
  11557. +       if (INTVAL (operands[2]) > 8
  11558. +       && INTVAL (operands[2]) <= 16
  11559. +       && ADDRESS_REG_P (operands[0])
  11560. +       && TARGET_68020)
  11561. +     {
  11562. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 8);
  11563. +       return \"subq%.w %#8,%0\;subq%.w %2,%0\";
  11564. +     }
  11565. + #endif
  11566. +       if (ADDRESS_REG_P (operands[0])
  11567. +       && INTVAL (operands[2]) >= -0x8000
  11568. +       && INTVAL (operands[2]) < 0x8000)
  11569. +     return \"sub%.w %2,%0\";
  11570. +     }
  11571. +   return \"sub%.l %2,%0\";
  11572. + }")
  11573. + 
  11574. + (define_insn ""
  11575. +   [(set (match_operand:SI 0 "general_operand" "=a")
  11576. +     (minus:SI (match_operand:SI 1 "general_operand" "0")
  11577. +           (sign_extend:SI
  11578. +            (match_operand:HI 2 "nonimmediate_operand" "rm"))))]
  11579. +   ""
  11580. +   "sub%.w %2,%0")
  11581. + 
  11582. + (define_insn "subhi3"
  11583. +   [(set (match_operand:HI 0 "general_operand" "=m,r")
  11584. +     (minus:HI (match_operand:HI 1 "general_operand" "0,0")
  11585. +           (match_operand:HI 2 "general_operand" "dn,rmn")))]
  11586. +   ""
  11587. +   "sub%.w %2,%0")
  11588. + 
  11589. + (define_insn ""
  11590. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  11591. +     (minus:HI (match_dup 0)
  11592. +           (match_operand:HI 1 "general_operand" "dn,rmn")))]
  11593. +   ""
  11594. +   "sub%.w %1,%0")
  11595. + 
  11596. + (define_insn "subqi3"
  11597. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  11598. +     (minus:QI (match_operand:QI 1 "general_operand" "0,0")
  11599. +           (match_operand:QI 2 "general_operand" "dn,dmn")))]
  11600. +   ""
  11601. +   "sub%.b %2,%0")
  11602. + 
  11603. + (define_insn ""
  11604. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  11605. +     (minus:QI (match_dup 0)
  11606. +           (match_operand:QI 1 "general_operand" "dn,dmn")))]
  11607. +   ""
  11608. +   "sub%.b %1,%0")
  11609. + 
  11610. + (define_expand "subdf3"
  11611. +   [(set (match_operand:DF 0 "general_operand" "")
  11612. +     (minus:DF (match_operand:DF 1 "general_operand" "")
  11613. +           (match_operand:DF 2 "general_operand" "")))]
  11614. +   "TARGET_68881 || TARGET_FPA"
  11615. +   "")
  11616. + 
  11617. + (define_insn ""
  11618. +   [(set (match_operand:DF 0 "general_operand" "=x,y,y")
  11619. +     (minus:DF (match_operand:DF 1 "general_operand" "xH,y,dmF")
  11620. +           (match_operand:DF 2 "general_operand" "xH,dmF,0")))]
  11621. +   "TARGET_FPA"
  11622. +   "*
  11623. + {
  11624. +   if (rtx_equal_p (operands[0], operands[2]))
  11625. +     return \"fprsub%.d %y1,%0\";
  11626. +   if (rtx_equal_p (operands[0], operands[1]))
  11627. +     return \"fpsub%.d %y2,%0\";
  11628. +   if (which_alternative == 0)
  11629. +     return \"fpsub3%.d %w2,%w1,%0\";
  11630. +   return \"fpsub3%.d %x2,%x1,%0\";
  11631. + }")
  11632. + 
  11633. + (define_insn ""
  11634. +   [(set (match_operand:DF 0 "general_operand" "=f")
  11635. +     (minus:DF (match_operand:DF 1 "general_operand" "0")
  11636. +           (match_operand:DF 2 "general_operand" "fmG")))]
  11637. +   "TARGET_68881"
  11638. +   "*
  11639. + {
  11640. +   if (REG_P (operands[2]))
  11641. +     return \"f%&sub%.x %2,%0\";
  11642. +   return \"f%&sub%.d %f2,%0\";
  11643. + }")
  11644. + 
  11645. + (define_expand "subsf3"
  11646. +   [(set (match_operand:SF 0 "general_operand" "")
  11647. +     (minus:SF (match_operand:SF 1 "general_operand" "")
  11648. +           (match_operand:SF 2 "general_operand" "")))]
  11649. +   "TARGET_68881 || TARGET_FPA"
  11650. +   "")
  11651. + 
  11652. + (define_insn ""
  11653. +   [(set (match_operand:SF 0 "general_operand" "=x,y,y")
  11654. +     (minus:SF (match_operand:SF 1 "general_operand" "xH,y,rmF")
  11655. +           (match_operand:SF 2 "general_operand" "xH,rmF,0")))]
  11656. +   "TARGET_FPA"
  11657. +   "*
  11658. + {
  11659. +   if (rtx_equal_p (operands[0], operands[2]))
  11660. +     return \"fprsub%.s %w1,%0\";
  11661. +   if (rtx_equal_p (operands[0], operands[1]))
  11662. +     return \"fpsub%.s %w2,%0\";
  11663. +   if (which_alternative == 0)
  11664. +     return \"fpsub3%.s %w2,%w1,%0\";
  11665. +   return \"fpsub3%.s %2,%1,%0\";
  11666. + }")
  11667. + 
  11668. + (define_insn ""
  11669. +   [(set (match_operand:SF 0 "general_operand" "=f")
  11670. +     (minus:SF (match_operand:SF 1 "general_operand" "0")
  11671. +           (match_operand:SF 2 "general_operand" "fdmF")))]
  11672. +   "TARGET_68881"
  11673. +   "*
  11674. + {
  11675. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  11676. +     return \"f%$sub%.x %2,%0\";
  11677. +   return \"f%$sub%.s %f2,%0\";
  11678. + }")
  11679. + 
  11680. + ;; multiply instructions
  11681. + 
  11682. + (define_insn "mulhi3"
  11683. +   [(set (match_operand:HI 0 "general_operand" "=d")
  11684. +     (mult:HI (match_operand:HI 1 "general_operand" "%0")
  11685. +          (match_operand:HI 2 "general_operand" "dmn")))]
  11686. +   ""
  11687. +   "*
  11688. + {
  11689. + #if defined(MOTOROLA) && !defined(CRDS)
  11690. +   return \"muls%.w %2,%0\";
  11691. + #else
  11692. +   return \"muls %2,%0\";
  11693. + #endif
  11694. + }")
  11695. + 
  11696. + (define_insn "mulhisi3"
  11697. +   [(set (match_operand:SI 0 "general_operand" "=d")
  11698. +     (mult:SI (sign_extend:SI
  11699. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  11700. +          (sign_extend:SI
  11701. +           (match_operand:HI 2 "nonimmediate_operand" "dm"))))]
  11702. +   ""
  11703. +   "*
  11704. + {
  11705. + #if defined(MOTOROLA) && !defined(CRDS)
  11706. +   return \"muls%.w %2,%0\";
  11707. + #else
  11708. +   return \"muls %2,%0\";
  11709. + #endif
  11710. + }")
  11711. + 
  11712. + (define_insn ""
  11713. +   [(set (match_operand:SI 0 "general_operand" "=d")
  11714. +     (mult:SI (sign_extend:SI
  11715. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  11716. +          (match_operand:SI 2 "const_int_operand" "n")))]
  11717. +   "INTVAL (operands[2]) >= -0x8000 && INTVAL (operands[2]) <= 0x7fff"
  11718. +   "*
  11719. + {
  11720. + #if defined(MOTOROLA) && !defined(CRDS)
  11721. +   return \"muls%.w %2,%0\";
  11722. + #else
  11723. +   return \"muls %2,%0\";
  11724. + #endif
  11725. + }")
  11726. + 
  11727. + (define_insn "mulsi3"
  11728. +   [(set (match_operand:SI 0 "general_operand" "=d")
  11729. +     (mult:SI (match_operand:SI 1 "general_operand" "%0")
  11730. +          (match_operand:SI 2 "general_operand" "dmsK")))]
  11731. +   "TARGET_68020"
  11732. +   "muls%.l %2,%0")
  11733. + 
  11734. + (define_insn "umulhisi3"
  11735. +   [(set (match_operand:SI 0 "general_operand" "=d")
  11736. +     (mult:SI (zero_extend:SI
  11737. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  11738. +          (zero_extend:SI
  11739. +           (match_operand:HI 2 "nonimmediate_operand" "dm"))))]
  11740. +   ""
  11741. +   "*
  11742. + {
  11743. + #if defined(MOTOROLA) && !defined(CRDS)
  11744. +   return \"mulu%.w %2,%0\";
  11745. + #else
  11746. +   return \"mulu %2,%0\";
  11747. + #endif
  11748. + }")
  11749. + 
  11750. + (define_insn ""
  11751. +   [(set (match_operand:SI 0 "general_operand" "=d")
  11752. +     (mult:SI (zero_extend:SI
  11753. +           (match_operand:HI 1 "nonimmediate_operand" "%0"))
  11754. +          (match_operand:SI 2 "const_int_operand" "n")))]
  11755. +   "INTVAL (operands[2]) >= 0 && INTVAL (operands[2]) <= 0xffff"
  11756. +   "*
  11757. + {
  11758. + #if defined(MOTOROLA) && !defined(CRDS)
  11759. +   return \"mulu%.w %2,%0\";
  11760. + #else
  11761. +   return \"mulu %2,%0\";
  11762. + #endif
  11763. + }")
  11764. + 
  11765. + ;; We need a separate DEFINE_EXPAND for u?mulsidi3 to be able to use the
  11766. + ;; proper matching constraint.  This is because the matching is between
  11767. + ;; the high-numbered word of the DImode operand[0] and operand[1].
  11768. + (define_expand "umulsidi3"
  11769. +   [(parallel
  11770. +     [(set (subreg:SI (match_operand:DI 0 "register_operand" "") 1)
  11771. +       (mult:SI (match_operand:SI 1 "register_operand" "")
  11772. +            (match_operand:SI 2 "nonimmediate_operand" "")))
  11773. +      (set (subreg:SI (match_dup 0) 0)
  11774. +       (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  11775. +                          (zero_extend:DI (match_dup 2)))
  11776. +                     (const_int 32))))])]
  11777. +   "TARGET_68020"
  11778. +   "")
  11779. + 
  11780. + (define_insn ""
  11781. +   [(set (match_operand:SI 0 "register_operand" "=d")
  11782. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  11783. +           (match_operand:SI 2 "nonimmediate_operand" "dm")))
  11784. +    (set (match_operand:SI 3 "register_operand" "=d")
  11785. +     (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  11786. +                        (zero_extend:DI (match_dup 2)))
  11787. +                   (const_int 32))))]
  11788. +   "TARGET_68020"
  11789. +   "mulu%.l %2,%3:%0")
  11790. + 
  11791. + ; Match immediate case.  For 2.4 only match things < 2^31.
  11792. + ; It's tricky with larger values in these patterns since we need to match
  11793. + ; values between the two parallel multiplies, between a CONST_DOUBLE and
  11794. + ; a CONST_INT.
  11795. + (define_insn ""
  11796. +   [(set (match_operand:SI 0 "register_operand" "=d")
  11797. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  11798. +          (match_operand:SI 2 "const_int_operand" "n")))
  11799. +    (set (match_operand:SI 3 "register_operand" "=d")
  11800. +     (truncate:SI (lshiftrt:DI (mult:DI (zero_extend:DI (match_dup 1))
  11801. +                        (match_dup 2))
  11802. +                   (const_int 32))))]
  11803. +   "TARGET_68020
  11804. +    && (unsigned) INTVAL (operands[2]) <= 0x7fffffff"
  11805. +   "mulu%.l %2,%3:%0")
  11806. + 
  11807. + (define_expand "mulsidi3"
  11808. +   [(parallel
  11809. +     [(set (subreg:SI (match_operand:DI 0 "register_operand" "") 1)
  11810. +       (mult:SI (match_operand:SI 1 "register_operand" "")
  11811. +            (match_operand:SI 2 "nonimmediate_operand" "")))
  11812. +      (set (subreg:SI (match_dup 0) 0)
  11813. +       (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  11814. +                          (sign_extend:DI (match_dup 2)))
  11815. +                     (const_int 32))))])]
  11816. +   "TARGET_68020"
  11817. +   "")
  11818. + 
  11819. + (define_insn ""
  11820. +   [(set (match_operand:SI 0 "register_operand" "=d")
  11821. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  11822. +          (match_operand:SI 2 "nonimmediate_operand" "dm")))
  11823. +    (set (match_operand:SI 3 "register_operand" "=d")
  11824. +     (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  11825. +                        (sign_extend:DI (match_dup 2)))
  11826. +                   (const_int 32))))]
  11827. +   "TARGET_68020"
  11828. +   "muls%.l %2,%3:%0")
  11829. + 
  11830. + (define_insn ""
  11831. +   [(set (match_operand:SI 0 "register_operand" "=d")
  11832. +     (mult:SI (match_operand:SI 1 "register_operand" "%0")
  11833. +          (match_operand:SI 2 "const_int_operand" "n")))
  11834. +    (set (match_operand:SI 3 "register_operand" "=d")
  11835. +     (truncate:SI (lshiftrt:DI (mult:DI (sign_extend:DI (match_dup 1))
  11836. +                        (match_dup 2))
  11837. +                   (const_int 32))))]
  11838. +   "TARGET_68020
  11839. +    /* This test is a noop on 32 bit machines,
  11840. +       but important for a cross-compiler hosted on 64-bit machines.  */
  11841. +    && INTVAL (operands[2]) <= 0x7fffffff
  11842. +    && INTVAL (operands[2]) >= -0x80000000"
  11843. +   "muls%.l %2,%3:%0")
  11844. + 
  11845. + (define_expand "muldf3"
  11846. +   [(set (match_operand:DF 0 "general_operand" "")
  11847. +     (mult:DF (match_operand:DF 1 "general_operand" "")
  11848. +          (match_operand:DF 2 "general_operand" "")))]
  11849. +   "TARGET_68881 || TARGET_FPA"
  11850. +   "")
  11851. + 
  11852. + (define_insn ""
  11853. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  11854. +     (mult:DF (match_operand:DF 1 "general_operand" "%xH,y")
  11855. +          (match_operand:DF 2 "general_operand" "xH,rmF")))]
  11856. +   "TARGET_FPA"
  11857. +   "*
  11858. + {
  11859. +   if (rtx_equal_p (operands[1], operands[2]))
  11860. +     return \"fpsqr%.d %y1,%0\";
  11861. +   if (rtx_equal_p (operands[0], operands[1]))
  11862. +     return \"fpmul%.d %y2,%0\";
  11863. +   if (rtx_equal_p (operands[0], operands[2]))
  11864. +     return \"fpmul%.d %y1,%0\";
  11865. +   if (which_alternative == 0)
  11866. +     return \"fpmul3%.d %w2,%w1,%0\";
  11867. +   return \"fpmul3%.d %x2,%x1,%0\";
  11868. + }")
  11869. + 
  11870. + (define_insn ""
  11871. +   [(set (match_operand:DF 0 "general_operand" "=f")
  11872. +     (mult:DF (match_operand:DF 1 "general_operand" "%0")
  11873. +          (match_operand:DF 2 "general_operand" "fmG")))]
  11874. +   "TARGET_68881"
  11875. +   "*
  11876. + {
  11877. +   if (GET_CODE (operands[2]) == CONST_DOUBLE
  11878. +       && floating_exact_log2 (operands[2]) && !TARGET_68040)
  11879. +     {
  11880. +       int i = floating_exact_log2 (operands[2]);
  11881. +       operands[2] = gen_rtx (CONST_INT, VOIDmode, i);
  11882. +       return \"fscale%.l %2,%0\";
  11883. +     }
  11884. +   if (REG_P (operands[2]))
  11885. +     return \"f%&mul%.x %2,%0\";
  11886. +   return \"f%&mul%.d %f2,%0\";
  11887. + }")
  11888. + 
  11889. + (define_expand "mulsf3"
  11890. +   [(set (match_operand:SF 0 "general_operand" "")
  11891. +     (mult:SF (match_operand:SF 1 "general_operand" "")
  11892. +          (match_operand:SF 2 "general_operand" "")))]
  11893. +   "TARGET_68881 || TARGET_FPA"
  11894. +   "")
  11895. + 
  11896. + (define_insn ""
  11897. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  11898. +     (mult:SF (match_operand:SF 1 "general_operand" "%xH,y")
  11899. +          (match_operand:SF 2 "general_operand" "xH,rmF")))]
  11900. +   "TARGET_FPA"
  11901. +   "*
  11902. + {
  11903. +   if (rtx_equal_p (operands[1], operands[2]))
  11904. +     return \"fpsqr%.s %w1,%0\";
  11905. +   if (rtx_equal_p (operands[0], operands[1]))
  11906. +     return \"fpmul%.s %w2,%0\";
  11907. +   if (rtx_equal_p (operands[0], operands[2]))
  11908. +     return \"fpmul%.s %w1,%0\";
  11909. +   if (which_alternative == 0)
  11910. +     return \"fpmul3%.s %w2,%w1,%0\";
  11911. +   return \"fpmul3%.s %2,%1,%0\";
  11912. + }")
  11913. + 
  11914. + (define_insn ""
  11915. +   [(set (match_operand:SF 0 "general_operand" "=f")
  11916. +     (mult:SF (match_operand:SF 1 "general_operand" "%0")
  11917. +          (match_operand:SF 2 "general_operand" "fdmF")))]
  11918. +   "TARGET_68881"
  11919. +   "*
  11920. + {
  11921. + #ifdef FSGLMUL_USE_S
  11922. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  11923. +     return (TARGET_68040_ONLY
  11924. +         ? \"fsmul%.s %2,%0\"
  11925. +         : \"fsglmul%.s %2,%0\");
  11926. + #else
  11927. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  11928. +     return (TARGET_68040_ONLY
  11929. +         ? \"fsmul%.x %2,%0\"
  11930. +         : \"fsglmul%.x %2,%0\");
  11931. + #endif
  11932. +   return (TARGET_68040_ONLY
  11933. +       ? \"fsmul%.s %f2,%0\"
  11934. +       : \"fsglmul%.s %f2,%0\");
  11935. + }")
  11936. + 
  11937. + ;; divide instructions
  11938. + 
  11939. + (define_insn "divhi3"
  11940. +   [(set (match_operand:HI 0 "general_operand" "=d")
  11941. +     (div:HI (match_operand:HI 1 "general_operand" "0")
  11942. +         (match_operand:HI 2 "general_operand" "dmn")))]
  11943. +   ""
  11944. +   "*
  11945. + {
  11946. + #ifdef MOTOROLA
  11947. +   return \"ext%.l %0\;divs%.w %2,%0\";
  11948. + #else
  11949. +   return \"extl %0\;divs %2,%0\";
  11950. + #endif
  11951. + }")
  11952. + 
  11953. + ;; These patterns don't work because the divs instruction is undefined if
  11954. + ;; the quotient is more than 16 bits.  This valid C would be miscompiled:
  11955. + ;; int n; short d; unsigned short q; ... q = (unsigned int) (n / d);
  11956. + ;; Imagine what happens when n = 100000 and d = 1.
  11957. + ;;(define_insn "divhisi3"
  11958. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  11959. + ;;    (truncate:HI
  11960. + ;;     (div:SI
  11961. + ;;      (match_operand:SI 1 "general_operand" "0")
  11962. + ;;      (sign_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  11963. + ;;  ""
  11964. + ;;  "*
  11965. + ;;{
  11966. + ;;#ifdef MOTOROLA
  11967. + ;;  return \"divs%.w %2,%0\";
  11968. + ;;#else
  11969. + ;;  return \"divs %2,%0\";
  11970. + ;;#endif
  11971. + ;;}")
  11972. + 
  11973. + ;;(define_insn ""
  11974. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  11975. + ;;    (truncate:HI (div:SI (match_operand:SI 1 "general_operand" "0")
  11976. + ;;                 (match_operand:SI 2 "const_int_operand" "n"))))]
  11977. + ;;  ""
  11978. + ;;  "*
  11979. + ;;{
  11980. + ;;#ifdef MOTOROLA
  11981. + ;;  return \"divs%.w %2,%0\";
  11982. + ;;#else
  11983. + ;;  return \"divs %2,%0\";
  11984. + ;;#endif
  11985. + ;;}")
  11986. + 
  11987. + (define_insn "udivhi3"
  11988. +   [(set (match_operand:HI 0 "general_operand" "=d")
  11989. +     (udiv:HI (match_operand:HI 1 "general_operand" "0")
  11990. +          (match_operand:HI 2 "general_operand" "dmn")))]
  11991. +   ""
  11992. +   "*
  11993. + {
  11994. + #ifdef MOTOROLA
  11995. +   return \"and%.l %#0xFFFF,%0\;divu%.w %2,%0\";
  11996. + #else
  11997. +   return \"andl %#0xFFFF,%0\;divu %2,%0\";
  11998. + #endif
  11999. + }")
  12000. + 
  12001. + ;; See comment before divhisi3 why these are commented out.
  12002. + ;;(define_insn "udivhisi3"
  12003. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12004. + ;;    (truncate:HI
  12005. + ;;     (udiv:SI
  12006. + ;;      (match_operand:SI 1 "general_operand" "0")
  12007. + ;;      (zero_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  12008. + ;;  ""
  12009. + ;;  "*
  12010. + ;;{
  12011. + ;;#ifdef MOTOROLA
  12012. + ;;  return \"divu%.w %2,%0\";
  12013. + ;;#else
  12014. + ;;  return \"divu %2,%0\";
  12015. + ;;#endif
  12016. + ;;}")
  12017. + 
  12018. + ;;(define_insn ""
  12019. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12020. + ;;    (truncate:HI (udiv:SI (match_operand:SI 1 "general_operand" "0")
  12021. + ;;                  (match_operand:SI 2 "const_int_operand" "n"))))]
  12022. + ;;  ""
  12023. + ;;  "*
  12024. + ;;{
  12025. + ;;#ifdef MOTOROLA
  12026. + ;;  return \"divu%.w %2,%0\";
  12027. + ;;#else
  12028. + ;;  return \"divu %2,%0\";
  12029. + ;;#endif
  12030. + ;;}")
  12031. + 
  12032. + (define_expand "divdf3"
  12033. +   [(set (match_operand:DF 0 "general_operand" "")
  12034. +     (div:DF (match_operand:DF 1 "general_operand" "")
  12035. +         (match_operand:DF 2 "general_operand" "")))]
  12036. +   "TARGET_68881 || TARGET_FPA"
  12037. +   "")
  12038. + 
  12039. + (define_insn ""
  12040. +   [(set (match_operand:DF 0 "general_operand" "=x,y,y")
  12041. +     (div:DF (match_operand:DF 1 "general_operand" "xH,y,rmF")
  12042. +         (match_operand:DF 2 "general_operand" "xH,rmF,0")))]
  12043. +   "TARGET_FPA"
  12044. +   "*
  12045. + {
  12046. +   if (rtx_equal_p (operands[0], operands[2]))
  12047. +     return \"fprdiv%.d %y1,%0\";
  12048. +   if (rtx_equal_p (operands[0], operands[1]))
  12049. +     return \"fpdiv%.d %y2,%0\";
  12050. +   if (which_alternative == 0)
  12051. +     return \"fpdiv3%.d %w2,%w1,%0\";
  12052. +   return \"fpdiv3%.d %x2,%x1,%x0\";
  12053. + }")
  12054. + 
  12055. + (define_insn ""
  12056. +   [(set (match_operand:DF 0 "general_operand" "=f")
  12057. +     (div:DF (match_operand:DF 1 "general_operand" "0")
  12058. +         (match_operand:DF 2 "general_operand" "fmG")))]
  12059. +   "TARGET_68881"
  12060. +   "*
  12061. + {
  12062. +   if (REG_P (operands[2]))
  12063. +     return \"f%&div%.x %2,%0\";
  12064. +   return \"f%&div%.d %f2,%0\";
  12065. + }")
  12066. + 
  12067. + (define_expand "divsf3"
  12068. +   [(set (match_operand:SF 0 "general_operand" "")
  12069. +     (div:SF (match_operand:SF 1 "general_operand" "")
  12070. +         (match_operand:SF 2 "general_operand" "")))]
  12071. +   "TARGET_68881 || TARGET_FPA"
  12072. +   "")
  12073. + 
  12074. + (define_insn ""
  12075. +   [(set (match_operand:SF 0 "general_operand" "=x,y,y")
  12076. +     (div:SF (match_operand:SF 1 "general_operand" "xH,y,rmF")
  12077. +         (match_operand:SF 2 "general_operand" "xH,rmF,0")))]
  12078. +   "TARGET_FPA"
  12079. +   "*
  12080. + {
  12081. +   if (rtx_equal_p (operands[0], operands[1]))
  12082. +     return \"fpdiv%.s %w2,%0\";
  12083. +   if (rtx_equal_p (operands[0], operands[2]))
  12084. +     return \"fprdiv%.s %w1,%0\";
  12085. +   if (which_alternative == 0)
  12086. +     return \"fpdiv3%.s %w2,%w1,%0\";
  12087. +   return \"fpdiv3%.s %2,%1,%0\";
  12088. + }")
  12089. + 
  12090. + (define_insn ""
  12091. +   [(set (match_operand:SF 0 "general_operand" "=f")
  12092. +     (div:SF (match_operand:SF 1 "general_operand" "0")
  12093. +         (match_operand:SF 2 "general_operand" "fdmF")))]
  12094. +   "TARGET_68881"
  12095. +   "*
  12096. + {
  12097. + #ifdef FSGLDIV_USE_S
  12098. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  12099. +     return (TARGET_68040_ONLY
  12100. +         ? \"fsdiv%.s %2,%0\"
  12101. +         : \"fsgldiv%.s %2,%0\");
  12102. + #else
  12103. +   if (REG_P (operands[2]) && ! DATA_REG_P (operands[2]))
  12104. +     return (TARGET_68040_ONLY
  12105. +         ? \"fsdiv%.x %2,%0\"
  12106. +         : \"fsgldiv%.x %2,%0\");
  12107. + #endif
  12108. +   return (TARGET_68040_ONLY
  12109. +       ? \"fsdiv%.s %f2,%0\"
  12110. +       : \"fsgldiv%.s %f2,%0\");
  12111. + }")
  12112. + 
  12113. + ;; Remainder instructions.
  12114. + 
  12115. + (define_insn "modhi3"
  12116. +   [(set (match_operand:HI 0 "general_operand" "=d")
  12117. +     (mod:HI (match_operand:HI 1 "general_operand" "0")
  12118. +         (match_operand:HI 2 "general_operand" "dmn")))]
  12119. +   ""
  12120. +   "*
  12121. + {
  12122. +   /* The swap insn produces cc's that don't correspond to the result.  */
  12123. +   CC_STATUS_INIT;
  12124. + #ifdef MOTOROLA
  12125. +   return \"ext%.l %0\;divs%.w %2,%0\;swap %0\";
  12126. + #else
  12127. +   return \"extl %0\;divs %2,%0\;swap %0\";
  12128. + #endif
  12129. + }")
  12130. + 
  12131. + ;; See comment before divhisi3 why these are commented out.
  12132. + ;;(define_insn "modhisi3"
  12133. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12134. + ;;    (truncate:HI
  12135. + ;;     (mod:SI
  12136. + ;;      (match_operand:SI 1 "general_operand" "0")
  12137. + ;;      (sign_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  12138. + ;;  ""
  12139. + ;;  "*
  12140. + ;;{
  12141. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  12142. + ;;  CC_STATUS_INIT;
  12143. + ;;#ifdef MOTOROLA
  12144. + ;;  return \"divs%.w %2,%0\;swap %0\";
  12145. + ;;#else
  12146. + ;;  return \"divs %2,%0\;swap %0\";
  12147. + ;;#endif
  12148. + ;;}")
  12149. + 
  12150. + ;;(define_insn ""
  12151. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12152. + ;;    (truncate:HI (mod:SI (match_operand:SI 1 "general_operand" "0")
  12153. + ;;                 (match_operand:SI 2 "const_int_operand" "n"))))]
  12154. + ;;  ""
  12155. + ;;  "*
  12156. + ;;{
  12157. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  12158. + ;;  CC_STATUS_INIT;
  12159. + ;;#ifdef MOTOROLA
  12160. + ;;  return \"divs%.w %2,%0\;swap %0\";
  12161. + ;;#else
  12162. + ;;  return \"divs %2,%0\;swap %0\";
  12163. + ;;#endif
  12164. + ;;}")
  12165. + 
  12166. + (define_insn "umodhi3"
  12167. +   [(set (match_operand:HI 0 "general_operand" "=d")
  12168. +     (umod:HI (match_operand:HI 1 "general_operand" "0")
  12169. +          (match_operand:HI 2 "general_operand" "dmn")))]
  12170. +   ""
  12171. +   "*
  12172. + {
  12173. +   /* The swap insn produces cc's that don't correspond to the result.  */
  12174. +   CC_STATUS_INIT;
  12175. + #ifdef MOTOROLA
  12176. +   return \"and%.l %#0xFFFF,%0\;divu%.w %2,%0\;swap %0\";
  12177. + #else
  12178. +   return \"andl %#0xFFFF,%0\;divu %2,%0\;swap %0\";
  12179. + #endif
  12180. + }")
  12181. + 
  12182. + ;; See comment before divhisi3 why these are commented out.
  12183. + ;;(define_insn "umodhisi3"
  12184. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12185. + ;;    (truncate:HI
  12186. + ;;     (umod:SI
  12187. + ;;      (match_operand:SI 1 "general_operand" "0")
  12188. + ;;      (zero_extend:SI (match_operand:HI 2 "nonimmediate_operand" "dm")))))]
  12189. + ;;  ""
  12190. + ;;  "*
  12191. + ;;{
  12192. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  12193. + ;;  CC_STATUS_INIT;
  12194. + ;;#ifdef MOTOROLA
  12195. + ;;  return \"divu%.w %2,%0\;swap %0\";
  12196. + ;;#else
  12197. + ;;  return \"divu %2,%0\;swap %0\";
  12198. + ;;#endif
  12199. + ;;}")
  12200. + 
  12201. + ;;(define_insn ""
  12202. + ;;  [(set (match_operand:HI 0 "general_operand" "=d")
  12203. + ;;    (truncate:HI (umod:SI (match_operand:SI 1 "general_operand" "0")
  12204. + ;;                  (match_operand:SI 2 "const_int_operand" "n"))))]
  12205. + ;;  ""
  12206. + ;;  "*
  12207. + ;;{
  12208. + ;;  /* The swap insn produces cc's that don't correspond to the result.  */
  12209. + ;;  CC_STATUS_INIT;
  12210. + ;;#ifdef MOTOROLA
  12211. + ;;  return \"divu%.w %2,%0\;swap %0\";
  12212. + ;;#else
  12213. + ;;  return \"divu %2,%0\;swap %0\";
  12214. + ;;#endif
  12215. + ;;}")
  12216. + 
  12217. + (define_insn "divmodsi4"
  12218. +   [(set (match_operand:SI 0 "general_operand" "=d")
  12219. +     (div:SI (match_operand:SI 1 "general_operand" "0")
  12220. +         (match_operand:SI 2 "general_operand" "dmsK")))
  12221. +    (set (match_operand:SI 3 "general_operand" "=d")
  12222. +     (mod:SI (match_dup 1) (match_dup 2)))]
  12223. +   "TARGET_68020"
  12224. +   "*
  12225. + {
  12226. +   if (find_reg_note (insn, REG_UNUSED, operands[3]))
  12227. +     return \"divs%.l %2,%0\";
  12228. +   else
  12229. +     return \"divsl%.l %2,%3:%0\";
  12230. + }")
  12231. + 
  12232. + (define_insn "udivmodsi4"
  12233. +   [(set (match_operand:SI 0 "general_operand" "=d")
  12234. +     (udiv:SI (match_operand:SI 1 "general_operand" "0")
  12235. +          (match_operand:SI 2 "general_operand" "dmsK")))
  12236. +    (set (match_operand:SI 3 "general_operand" "=d")
  12237. +     (umod:SI (match_dup 1) (match_dup 2)))]
  12238. +   "TARGET_68020"
  12239. +   "*
  12240. + {
  12241. +   if (find_reg_note (insn, REG_UNUSED, operands[3]))
  12242. +     return \"divu%.l %2,%0\";
  12243. +   else
  12244. +     return \"divul%.l %2,%3:%0\";
  12245. + }")
  12246. + 
  12247. + ;; logical-and instructions
  12248. + 
  12249. + ;; Prevent AND from being made with sp.  This doesn't exist in the machine
  12250. + ;; and reload will cause inefficient code.  Since sp is a FIXED_REG, we
  12251. + ;; can't allocate pseudos into it.
  12252. + (define_insn "andsi3"
  12253. +   [(set (match_operand:SI 0 "not_sp_operand" "=m,d")
  12254. +     (and:SI (match_operand:SI 1 "general_operand" "%0,0")
  12255. +         (match_operand:SI 2 "general_operand" "dKs,dmKs")))]
  12256. +   ""
  12257. +   "*
  12258. + {
  12259. +   int logval;
  12260. +   if (GET_CODE (operands[2]) == CONST_INT
  12261. +       && (INTVAL (operands[2]) | 0xffff) == 0xffffffff
  12262. +       && (DATA_REG_P (operands[0])
  12263. +       || offsettable_memref_p (operands[0])))
  12264. +     { 
  12265. +       if (GET_CODE (operands[0]) != REG)
  12266. +         operands[0] = adj_offsettable_operand (operands[0], 2);
  12267. +       operands[2] = gen_rtx (CONST_INT, VOIDmode,
  12268. +                  INTVAL (operands[2]) & 0xffff);
  12269. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  12270. +       CC_STATUS_INIT;
  12271. +       if (operands[2] == const0_rtx)
  12272. +         return \"clr%.w %0\";
  12273. +       return \"and%.w %2,%0\";
  12274. +     }
  12275. +   if (GET_CODE (operands[2]) == CONST_INT
  12276. +       && (logval = exact_log2 (~ INTVAL (operands[2]))) >= 0
  12277. +       && (DATA_REG_P (operands[0])
  12278. +           || offsettable_memref_p (operands[0])))
  12279. +     { 
  12280. +       if (DATA_REG_P (operands[0]))
  12281. +         {
  12282. +           operands[1] = gen_rtx (CONST_INT, VOIDmode, logval);
  12283. +         }
  12284. +       else
  12285. +         {
  12286. +           operands[0] = adj_offsettable_operand (operands[0], 3 - (logval / 8));          operands[1] = gen_rtx (CONST_INT, VOIDmode, logval % 8);
  12287. +         }
  12288. +       /* This does not set condition codes in a standard way.  */
  12289. +       CC_STATUS_INIT;
  12290. +       return \"bclr %1,%0\";
  12291. +     }
  12292. +   return \"and%.l %2,%0\";
  12293. + }")
  12294. + 
  12295. + (define_insn "andhi3"
  12296. +   [(set (match_operand:HI 0 "general_operand" "=m,d")
  12297. +     (and:HI (match_operand:HI 1 "general_operand" "%0,0")
  12298. +         (match_operand:HI 2 "general_operand" "dn,dmn")))]
  12299. +   ""
  12300. +   "and%.w %2,%0")
  12301. + 
  12302. + (define_insn ""
  12303. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  12304. +     (and:HI (match_dup 0)
  12305. +         (match_operand:HI 1 "general_operand" "dn,dmn")))]
  12306. +   ""
  12307. +   "and%.w %1,%0")
  12308. + 
  12309. + (define_insn ""
  12310. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  12311. +     (and:HI (match_operand:HI 1 "general_operand" "dn,dmn")
  12312. +         (match_dup 0)))]
  12313. +   ""
  12314. +   "and%.w %1,%0")
  12315. + 
  12316. + (define_insn "andqi3"
  12317. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  12318. +     (and:QI (match_operand:QI 1 "general_operand" "%0,0")
  12319. +         (match_operand:QI 2 "general_operand" "dn,dmn")))]
  12320. +   ""
  12321. +   "and%.b %2,%0")
  12322. + 
  12323. + (define_insn ""
  12324. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  12325. +     (and:QI (match_dup 0)
  12326. +         (match_operand:QI 1 "general_operand" "dn,dmn")))]
  12327. +   ""
  12328. +   "and%.b %1,%0")
  12329. + 
  12330. + (define_insn ""
  12331. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  12332. +     (and:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  12333. +         (match_dup 0)))]
  12334. +   ""
  12335. +   "and%.b %1,%0")
  12336. + 
  12337. + ;; inclusive-or instructions
  12338. + 
  12339. + (define_insn "iorsi3"
  12340. +   [(set (match_operand:SI 0 "general_operand" "=m,d")
  12341. +     (ior:SI (match_operand:SI 1 "general_operand" "%0,0")
  12342. +         (match_operand:SI 2 "general_operand" "dKs,dmKs")))]
  12343. +   ""
  12344. +   "*
  12345. + {
  12346. +   register int logval;
  12347. +   if (GET_CODE (operands[2]) == CONST_INT
  12348. +       && INTVAL (operands[2]) >> 16 == 0
  12349. +       && (DATA_REG_P (operands[0])
  12350. +       || offsettable_memref_p (operands[0])))
  12351. +     { 
  12352. +       if (GET_CODE (operands[0]) != REG)
  12353. +         operands[0] = adj_offsettable_operand (operands[0], 2);
  12354. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  12355. +       CC_STATUS_INIT;
  12356. +       return \"or%.w %2,%0\";
  12357. +     }
  12358. +   if (GET_CODE (operands[2]) == CONST_INT
  12359. +       && (logval = exact_log2 (INTVAL (operands[2]))) >= 0
  12360. +       && (DATA_REG_P (operands[0])
  12361. +       || offsettable_memref_p (operands[0])))
  12362. +     { 
  12363. +       if (DATA_REG_P (operands[0]))
  12364. +     {
  12365. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, logval);
  12366. +     }
  12367. +       else
  12368. +         {
  12369. +       operands[0] = adj_offsettable_operand (operands[0], 3 - (logval / 8));
  12370. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, logval % 8);
  12371. +     }
  12372. +       CC_STATUS_INIT;
  12373. +       return \"bset %1,%0\";
  12374. +     }
  12375. +   return \"or%.l %2,%0\";
  12376. + }")
  12377. + 
  12378. + (define_insn "iorhi3"
  12379. +   [(set (match_operand:HI 0 "general_operand" "=m,d")
  12380. +     (ior:HI (match_operand:HI 1 "general_operand" "%0,0")
  12381. +         (match_operand:HI 2 "general_operand" "dn,dmn")))]
  12382. +   ""
  12383. +   "or%.w %2,%0")
  12384. + 
  12385. + (define_insn ""
  12386. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  12387. +     (ior:HI (match_dup 0)
  12388. +         (match_operand:HI 1 "general_operand" "dn,dmn")))]
  12389. +   ""
  12390. +   "or%.w %1,%0")
  12391. + 
  12392. + (define_insn ""
  12393. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+m,d"))
  12394. +     (ior:HI (match_operand:HI 1 "general_operand" "dn,dmn")
  12395. +         (match_dup 0)))]
  12396. +   ""
  12397. +   "or%.w %1,%0")
  12398. + 
  12399. + (define_insn "iorqi3"
  12400. +   [(set (match_operand:QI 0 "general_operand" "=m,d")
  12401. +     (ior:QI (match_operand:QI 1 "general_operand" "%0,0")
  12402. +         (match_operand:QI 2 "general_operand" "dn,dmn")))]
  12403. +   ""
  12404. +   "or%.b %2,%0")
  12405. + 
  12406. + (define_insn ""
  12407. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  12408. +     (ior:QI (match_dup 0)
  12409. +         (match_operand:QI 1 "general_operand" "dn,dmn")))]
  12410. +   ""
  12411. +   "or%.b %1,%0")
  12412. + 
  12413. + (define_insn ""
  12414. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+m,d"))
  12415. +     (ior:QI (match_operand:QI 1 "general_operand" "dn,dmn")
  12416. +         (match_dup 0)))]
  12417. +   ""
  12418. +   "or%.b %1,%0")
  12419. + 
  12420. + ;; xor instructions
  12421. + 
  12422. + (define_insn "xorsi3"
  12423. +   [(set (match_operand:SI 0 "general_operand" "=do,m")
  12424. +     (xor:SI (match_operand:SI 1 "general_operand" "%0,0")
  12425. +         (match_operand:SI 2 "general_operand" "di,dKs")))]
  12426. +   ""
  12427. +   "*
  12428. + {
  12429. +   if (GET_CODE (operands[2]) == CONST_INT
  12430. +       && INTVAL (operands[2]) >> 16 == 0
  12431. +       && (offsettable_memref_p (operands[0]) || DATA_REG_P (operands[0])))
  12432. +     { 
  12433. +       if (! DATA_REG_P (operands[0]))
  12434. +     operands[0] = adj_offsettable_operand (operands[0], 2);
  12435. +       /* Do not delete a following tstl %0 insn; that would be incorrect.  */
  12436. +       CC_STATUS_INIT;
  12437. +       return \"eor%.w %2,%0\";
  12438. +     }
  12439. +   return \"eor%.l %2,%0\";
  12440. + }")
  12441. + 
  12442. + (define_insn "xorhi3"
  12443. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  12444. +     (xor:HI (match_operand:HI 1 "general_operand" "%0")
  12445. +         (match_operand:HI 2 "general_operand" "dn")))]
  12446. +   ""
  12447. +   "eor%.w %2,%0")
  12448. + 
  12449. + (define_insn ""
  12450. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  12451. +     (xor:HI (match_dup 0)
  12452. +         (match_operand:HI 1 "general_operand" "dn")))]
  12453. +   ""
  12454. +   "eor%.w %1,%0")
  12455. + 
  12456. + 
  12457. + (define_insn ""
  12458. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  12459. +     (xor:HI (match_operand:HI 1 "general_operand" "dn")
  12460. +         (match_dup 0)))]
  12461. +   ""
  12462. +   "eor%.w %1,%0")
  12463. + 
  12464. + (define_insn "xorqi3"
  12465. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  12466. +     (xor:QI (match_operand:QI 1 "general_operand" "%0")
  12467. +         (match_operand:QI 2 "general_operand" "dn")))]
  12468. +   ""
  12469. +   "eor%.b %2,%0")
  12470. + 
  12471. + (define_insn ""
  12472. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  12473. +     (xor:QI (match_dup 0)
  12474. +         (match_operand:QI 1 "general_operand" "dn")))]
  12475. +   ""
  12476. +   "eor%.b %1,%0")
  12477. + 
  12478. + (define_insn ""
  12479. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  12480. +     (xor:QI (match_operand:QI 1 "general_operand" "dn")
  12481. +         (match_dup 0)))]
  12482. +   ""
  12483. +   "eor%.b %1,%0")
  12484. + 
  12485. + ;; negation instructions
  12486. + 
  12487. + (define_insn "negsi2"
  12488. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  12489. +     (neg:SI (match_operand:SI 1 "general_operand" "0")))]
  12490. +   ""
  12491. +   "neg%.l %0")
  12492. + 
  12493. + (define_insn "neghi2"
  12494. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  12495. +     (neg:HI (match_operand:HI 1 "general_operand" "0")))]
  12496. +   ""
  12497. +   "neg%.w %0")
  12498. + 
  12499. + (define_insn ""
  12500. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  12501. +     (neg:HI (match_dup 0)))]
  12502. +   ""
  12503. +   "neg%.w %0")
  12504. + 
  12505. + (define_insn "negqi2"
  12506. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  12507. +     (neg:QI (match_operand:QI 1 "general_operand" "0")))]
  12508. +   ""
  12509. +   "neg%.b %0")
  12510. + 
  12511. + (define_insn ""
  12512. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  12513. +     (neg:QI (match_dup 0)))]
  12514. +   ""
  12515. +   "neg%.b %0")
  12516. + 
  12517. + (define_expand "negsf2"
  12518. +   [(set (match_operand:SF 0 "general_operand" "")
  12519. +     (neg:SF (match_operand:SF 1 "general_operand" "")))]
  12520. +   "TARGET_68881 || TARGET_FPA"
  12521. +   "")
  12522. + 
  12523. + (define_insn ""
  12524. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  12525. +     (neg:SF (match_operand:SF 1 "general_operand" "xH,rmF")))]
  12526. +   "TARGET_FPA"
  12527. +   "fpneg%.s %w1,%0")
  12528. + 
  12529. + (define_insn ""
  12530. +   [(set (match_operand:SF 0 "general_operand" "=f,d")
  12531. +     (neg:SF (match_operand:SF 1 "general_operand" "fdmF,0")))]
  12532. +   "TARGET_68881"
  12533. +   "*
  12534. + {
  12535. +   if (DATA_REG_P (operands[0]))
  12536. +     {
  12537. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 31);
  12538. +       return \"bchg %1,%0\";
  12539. +     }
  12540. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  12541. +     return \"f%$neg%.x %1,%0\";
  12542. +   return \"f%$neg%.s %f1,%0\";
  12543. + }")
  12544. + 
  12545. + (define_expand "negdf2"
  12546. +   [(set (match_operand:DF 0 "general_operand" "")
  12547. +     (neg:DF (match_operand:DF 1 "general_operand" "")))]
  12548. +   "TARGET_68881 || TARGET_FPA"
  12549. +   "")
  12550. + 
  12551. + (define_insn ""
  12552. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  12553. +     (neg:DF (match_operand:DF 1 "general_operand" "xH,rmF")))]
  12554. +   "TARGET_FPA"
  12555. +   "fpneg%.d %y1, %0")
  12556. + 
  12557. + (define_insn ""
  12558. +   [(set (match_operand:DF 0 "general_operand" "=f,d")
  12559. +     (neg:DF (match_operand:DF 1 "general_operand" "fmF,0")))]
  12560. +   "TARGET_68881"
  12561. +   "*
  12562. + {
  12563. +   if (DATA_REG_P (operands[0]))
  12564. +     {
  12565. +       operands[1] = gen_rtx (CONST_INT, VOIDmode, 31);
  12566. +       return \"bchg %1,%0\";
  12567. +     }
  12568. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  12569. +     return \"f%&neg%.x %1,%0\";
  12570. +   return \"f%&neg%.d %f1,%0\";
  12571. + }")
  12572. + 
  12573. + ;; Sqrt instruction for the 68881
  12574. + 
  12575. + (define_insn "sqrtdf2"
  12576. +   [(set (match_operand:DF 0 "general_operand" "=f")
  12577. +     (sqrt:DF (match_operand:DF 1 "general_operand" "fm")))]
  12578. +   "TARGET_68881"
  12579. +   "*
  12580. + {
  12581. +   if (FP_REG_P (operands[1]))
  12582. +     return \"fsqrt%.x %1,%0\";
  12583. +   else
  12584. +     return \"fsqrt%.d %1,%0\";
  12585. + }")
  12586. + 
  12587. + ;; Absolute value instructions
  12588. + 
  12589. + (define_expand "abssf2"
  12590. +   [(set (match_operand:SF 0 "general_operand" "")
  12591. +     (abs:SF (match_operand:SF 1 "general_operand" "")))]
  12592. +   "TARGET_68881 || TARGET_FPA"
  12593. +   "")
  12594. + 
  12595. + (define_insn ""
  12596. +   [(set (match_operand:SF 0 "general_operand" "=x,y")
  12597. +     (abs:SF (match_operand:SF 1 "general_operand" "xH,rmF")))]
  12598. +   "TARGET_FPA"
  12599. +   "fpabs%.s %y1,%0")
  12600. + 
  12601. + (define_insn ""
  12602. +   [(set (match_operand:SF 0 "general_operand" "=f")
  12603. +     (abs:SF (match_operand:SF 1 "general_operand" "fdmF")))]
  12604. +   "TARGET_68881"
  12605. +   "*
  12606. + {
  12607. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  12608. +     return \"f%$abs%.x %1,%0\";
  12609. +   return \"f%$abs%.s %f1,%0\";
  12610. + }")
  12611. + 
  12612. + (define_expand "absdf2"
  12613. +   [(set (match_operand:DF 0 "general_operand" "")
  12614. +     (abs:DF (match_operand:DF 1 "general_operand" "")))]
  12615. +   "TARGET_68881 || TARGET_FPA"
  12616. +   "")
  12617. + 
  12618. + (define_insn ""
  12619. +   [(set (match_operand:DF 0 "general_operand" "=x,y")
  12620. +     (abs:DF (match_operand:DF 1 "general_operand" "xH,rmF")))]
  12621. +   "TARGET_FPA"
  12622. +   "fpabs%.d %y1,%0")
  12623. + 
  12624. + (define_insn ""
  12625. +   [(set (match_operand:DF 0 "general_operand" "=f")
  12626. +     (abs:DF (match_operand:DF 1 "general_operand" "fmF")))]
  12627. +   "TARGET_68881"
  12628. +   "*
  12629. + {
  12630. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  12631. +     return \"f%&abs%.x %1,%0\";
  12632. +   return \"f%&abs%.d %f1,%0\";
  12633. + }")
  12634. + 
  12635. + ;; one complement instructions
  12636. + 
  12637. + (define_insn "one_cmplsi2"
  12638. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  12639. +     (not:SI (match_operand:SI 1 "general_operand" "0")))]
  12640. +   ""
  12641. +   "not%.l %0")
  12642. + 
  12643. + (define_insn "one_cmplhi2"
  12644. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  12645. +     (not:HI (match_operand:HI 1 "general_operand" "0")))]
  12646. +   ""
  12647. +   "not%.w %0")
  12648. + 
  12649. + (define_insn ""
  12650. +   [(set (strict_low_part (match_operand:HI 0 "general_operand" "+dm"))
  12651. +     (not:HI (match_dup 0)))]
  12652. +   ""
  12653. +   "not%.w %0")
  12654. + 
  12655. + (define_insn "one_cmplqi2"
  12656. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  12657. +     (not:QI (match_operand:QI 1 "general_operand" "0")))]
  12658. +   ""
  12659. +   "not%.b %0")
  12660. + 
  12661. + (define_insn ""
  12662. +   [(set (strict_low_part (match_operand:QI 0 "general_operand" "+dm"))
  12663. +     (not:QI (match_dup 0)))]
  12664. +   ""
  12665. +   "not%.b %0")
  12666. + 
  12667. + ;; arithmetic shift instructions
  12668. + ;; We don't need the shift memory by 1 bit instruction
  12669. + 
  12670. + ;; On all 68k models, this makes faster code in a special case.
  12671. + 
  12672. + (define_insn ""
  12673. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12674. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  12675. +            (match_operand:SI 2 "immediate_operand" "i")))]
  12676. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)"
  12677. +   "*
  12678. + {
  12679. +   CC_STATUS_INIT;
  12680. +   return \"swap %0\;clr%.w %0\";
  12681. + }")
  12682. + 
  12683. + ;; On the 68000, this makes faster code in a special case.
  12684. + 
  12685. + (define_insn ""
  12686. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12687. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  12688. +            (match_operand:SI 2 "immediate_operand" "i")))]
  12689. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  12690. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  12691. +   "*
  12692. + {
  12693. +   CC_STATUS_INIT;
  12694. + 
  12695. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  12696. +   return \"asl%.w %2,%0\;swap %0\;clr%.w %0\";
  12697. + }")
  12698. + 
  12699. + (define_insn "ashlsi3"
  12700. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12701. +     (ashift:SI (match_operand:SI 1 "register_operand" "0")
  12702. +            (match_operand:SI 2 "general_operand" "dI")))]
  12703. +   ""
  12704. +   "*
  12705. + {
  12706. +   if (operands[2] == const1_rtx)
  12707. +     return \"add%.l %0,%0\";
  12708. +   return \"asl%.l %2,%0\";
  12709. + }")
  12710. + 
  12711. + (define_insn "ashlhi3"
  12712. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12713. +     (ashift:HI (match_operand:HI 1 "register_operand" "0")
  12714. +            (match_operand:HI 2 "general_operand" "dI")))]
  12715. +   ""
  12716. +   "asl%.w %2,%0")
  12717. + 
  12718. + (define_insn ""
  12719. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12720. +     (ashift:HI (match_dup 0)
  12721. +            (match_operand:HI 1 "general_operand" "dI")))]
  12722. +   ""
  12723. +   "asl%.w %1,%0")
  12724. + 
  12725. + (define_insn "ashlqi3"
  12726. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12727. +     (ashift:QI (match_operand:QI 1 "register_operand" "0")
  12728. +            (match_operand:QI 2 "general_operand" "dI")))]
  12729. +   ""
  12730. +   "asl%.b %2,%0")
  12731. + 
  12732. + (define_insn ""
  12733. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  12734. +     (ashift:QI (match_dup 0)
  12735. +            (match_operand:QI 1 "general_operand" "dI")))]
  12736. +   ""
  12737. +   "asl%.b %1,%0")
  12738. + 
  12739. + ;; On all 68k models, this makes faster code in a special case.
  12740. + 
  12741. + (define_insn ""
  12742. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12743. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12744. +              (match_operand:SI 2 "immediate_operand" "i")))]
  12745. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)" 
  12746. +   "swap %0\;ext%.l %0")
  12747. + 
  12748. + ;; On the 68000, this makes faster code in a special case.
  12749. + 
  12750. + (define_insn ""
  12751. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12752. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12753. +              (match_operand:SI 2 "immediate_operand" "i")))]
  12754. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  12755. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  12756. +   "*
  12757. + {
  12758. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  12759. +   return \"swap %0\;asr%.w %2,%0\;ext%.l %0\";
  12760. + }")
  12761. + 
  12762. + (define_insn "ashrsi3"
  12763. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12764. +     (ashiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12765. +              (match_operand:SI 2 "general_operand" "dI")))]
  12766. +   ""
  12767. +   "*
  12768. + {
  12769. +   return \"asr%.l %2,%0\";
  12770. + }")
  12771. + 
  12772. + (define_insn "ashrhi3"
  12773. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12774. +     (ashiftrt:HI (match_operand:HI 1 "register_operand" "0")
  12775. +              (match_operand:HI 2 "general_operand" "dI")))]
  12776. +   ""
  12777. +   "asr%.w %2,%0")
  12778. + 
  12779. + (define_insn ""
  12780. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12781. +     (ashiftrt:HI (match_dup 0)
  12782. +              (match_operand:HI 1 "general_operand" "dI")))]
  12783. +   ""
  12784. +   "asr%.w %1,%0")
  12785. + 
  12786. + (define_insn "ashrqi3"
  12787. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12788. +     (ashiftrt:QI (match_operand:QI 1 "register_operand" "0")
  12789. +              (match_operand:QI 2 "general_operand" "dI")))]
  12790. +   ""
  12791. +   "asr%.b %2,%0")
  12792. + 
  12793. + (define_insn ""
  12794. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  12795. +     (ashiftrt:QI (match_dup 0)
  12796. +              (match_operand:QI 1 "general_operand" "dI")))]
  12797. +   ""
  12798. +   "asr%.b %1,%0")
  12799. + 
  12800. + ;; logical shift instructions
  12801. + 
  12802. + ;; On all 68k models, this makes faster code in a special case.
  12803. + 
  12804. + (define_insn ""
  12805. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12806. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  12807. +            (match_operand:SI 2 "immediate_operand" "i")))]
  12808. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)"
  12809. +   "*
  12810. + {
  12811. +   CC_STATUS_INIT;
  12812. +   return \"swap %0\;clr%.w %0\";
  12813. + }")
  12814. + 
  12815. + ;; On the 68000, this makes faster code in a special case.
  12816. + 
  12817. + (define_insn ""
  12818. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12819. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  12820. +            (match_operand:SI 2 "immediate_operand" "i")))]
  12821. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  12822. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  12823. +   "*
  12824. + {
  12825. +   CC_STATUS_INIT;
  12826. + 
  12827. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  12828. +   return \"lsl%.w %2,%0\;swap %0\;clr%.w %0\";
  12829. + }")
  12830. + 
  12831. + (define_insn "lshlsi3"
  12832. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12833. +     (lshift:SI (match_operand:SI 1 "register_operand" "0")
  12834. +            (match_operand:SI 2 "general_operand" "dI")))]
  12835. +   ""
  12836. +   "*
  12837. + {
  12838. +   if (operands[2] == const1_rtx)
  12839. +     return \"add%.l %0,%0\";
  12840. +   return \"lsl%.l %2,%0\";
  12841. + }")
  12842. + 
  12843. + (define_insn "lshlhi3"
  12844. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12845. +     (lshift:HI (match_operand:HI 1 "register_operand" "0")
  12846. +            (match_operand:HI 2 "general_operand" "dI")))]
  12847. +   ""
  12848. +   "lsl%.w %2,%0")
  12849. + 
  12850. + (define_insn ""
  12851. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12852. +     (lshift:HI (match_dup 0)
  12853. +            (match_operand:HI 1 "general_operand" "dI")))]
  12854. +   ""
  12855. +   "lsl%.w %1,%0")
  12856. + 
  12857. + (define_insn "lshlqi3"
  12858. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12859. +     (lshift:QI (match_operand:QI 1 "register_operand" "0")
  12860. +            (match_operand:QI 2 "general_operand" "dI")))]
  12861. +   ""
  12862. +   "lsl%.b %2,%0")
  12863. + 
  12864. + (define_insn ""
  12865. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  12866. +     (lshift:QI (match_dup 0)
  12867. +            (match_operand:QI 1 "general_operand" "dI")))]
  12868. +   ""
  12869. +   "lsl%.b %1,%0")
  12870. + 
  12871. + ;; On all 68k models, this makes faster code in a special case.
  12872. + 
  12873. + (define_insn ""
  12874. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12875. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12876. +              (match_operand:SI 2 "immediate_operand" "i")))]
  12877. +   "(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)" 
  12878. +   "*
  12879. + {
  12880. +   CC_STATUS_INIT;
  12881. +   return \"clr%.w %0\;swap %0\";
  12882. + }")
  12883. + 
  12884. + ;; On the 68000, this makes faster code in a special case.
  12885. + 
  12886. + (define_insn ""
  12887. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12888. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12889. +              (match_operand:SI 2 "immediate_operand" "i")))]
  12890. +   "(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
  12891. +     && INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
  12892. +   "*
  12893. + {
  12894. +   /* I think lsr%.w sets the CC properly.  */
  12895. +   operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
  12896. +   return \"clr%.w %0\;swap %0\;lsr%.w %2,%0\";
  12897. + }")
  12898. + 
  12899. + (define_insn "lshrsi3"
  12900. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12901. +     (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")
  12902. +              (match_operand:SI 2 "general_operand" "dI")))]
  12903. +   ""
  12904. +   "*
  12905. + {
  12906. +   return \"lsr%.l %2,%0\";
  12907. + }")
  12908. + 
  12909. + (define_insn "lshrhi3"
  12910. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12911. +     (lshiftrt:HI (match_operand:HI 1 "register_operand" "0")
  12912. +              (match_operand:HI 2 "general_operand" "dI")))]
  12913. +   ""
  12914. +   "lsr%.w %2,%0")
  12915. + 
  12916. + (define_insn ""
  12917. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12918. +     (lshiftrt:HI (match_dup 0)
  12919. +              (match_operand:HI 1 "general_operand" "dI")))]
  12920. +   ""
  12921. +   "lsr%.w %1,%0")
  12922. + 
  12923. + (define_insn "lshrqi3"
  12924. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12925. +     (lshiftrt:QI (match_operand:QI 1 "register_operand" "0")
  12926. +              (match_operand:QI 2 "general_operand" "dI")))]
  12927. +   ""
  12928. +   "lsr%.b %2,%0")
  12929. + 
  12930. + (define_insn ""
  12931. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  12932. +     (lshiftrt:QI (match_dup 0)
  12933. +              (match_operand:QI 1 "general_operand" "dI")))]
  12934. +   ""
  12935. +   "lsr%.b %1,%0")
  12936. + 
  12937. + ;; rotate instructions
  12938. + 
  12939. + (define_insn "rotlsi3"
  12940. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12941. +     (rotate:SI (match_operand:SI 1 "register_operand" "0")
  12942. +            (match_operand:SI 2 "general_operand" "dI")))]
  12943. +   ""
  12944. +   "rol%.l %2,%0")
  12945. + 
  12946. + (define_insn "rotlhi3"
  12947. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12948. +     (rotate:HI (match_operand:HI 1 "register_operand" "0")
  12949. +            (match_operand:HI 2 "general_operand" "dI")))]
  12950. +   ""
  12951. +   "rol%.w %2,%0")
  12952. + 
  12953. + 
  12954. + (define_insn ""
  12955. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12956. +     (rotate:HI (match_dup 0)
  12957. +            (match_operand:HI 1 "general_operand" "dI")))]
  12958. +   ""
  12959. +   "rol%.w %1,%0")
  12960. + 
  12961. + (define_insn "rotlqi3"
  12962. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12963. +     (rotate:QI (match_operand:QI 1 "register_operand" "0")
  12964. +            (match_operand:QI 2 "general_operand" "dI")))]
  12965. +   ""
  12966. +   "rol%.b %2,%0")
  12967. + 
  12968. + (define_insn ""
  12969. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  12970. +     (rotate:QI (match_dup 0)
  12971. +            (match_operand:QI 1 "general_operand" "dI")))]
  12972. +   ""
  12973. +   "rol%.b %1,%0")
  12974. + 
  12975. + (define_insn "rotrsi3"
  12976. +   [(set (match_operand:SI 0 "register_operand" "=d")
  12977. +     (rotatert:SI (match_operand:SI 1 "register_operand" "0")
  12978. +              (match_operand:SI 2 "general_operand" "dI")))]
  12979. +   ""
  12980. +   "ror%.l %2,%0")
  12981. + 
  12982. + (define_insn "rotrhi3"
  12983. +   [(set (match_operand:HI 0 "register_operand" "=d")
  12984. +     (rotatert:HI (match_operand:HI 1 "register_operand" "0")
  12985. +              (match_operand:HI 2 "general_operand" "dI")))]
  12986. +   ""
  12987. +   "ror%.w %2,%0")
  12988. + 
  12989. + (define_insn ""
  12990. +   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
  12991. +     (rotatert:HI (match_dup 0)
  12992. +              (match_operand:HI 1 "general_operand" "dI")))]
  12993. +   ""
  12994. +   "ror%.w %1,%0")
  12995. + 
  12996. + (define_insn "rotrqi3"
  12997. +   [(set (match_operand:QI 0 "register_operand" "=d")
  12998. +     (rotatert:QI (match_operand:QI 1 "register_operand" "0")
  12999. +              (match_operand:QI 2 "general_operand" "dI")))]
  13000. +   ""
  13001. +   "ror%.b %2,%0")
  13002. + 
  13003. + (define_insn ""
  13004. +   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
  13005. +     (rotatert:QI (match_dup 0)
  13006. +              (match_operand:QI 1 "general_operand" "dI")))]
  13007. +   ""
  13008. +   "ror%.b %1,%0")
  13009. + 
  13010. + ;; Special cases of bit-field insns which we should
  13011. + ;; recognize in preference to the general case.
  13012. + ;; These handle aligned 8-bit and 16-bit fields,
  13013. + ;; which can usually be done with move instructions.
  13014. + 
  13015. + ;
  13016. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  13017. + ; alignment of structure members is specified.
  13018. + ;
  13019. + ; The move is allowed to be odd byte aligned, because that's still faster
  13020. + ; than an odd byte aligned bit field instruction.
  13021. + ;
  13022. + (define_insn ""
  13023. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o")
  13024. +              (match_operand:SI 1 "immediate_operand" "i")
  13025. +              (match_operand:SI 2 "immediate_operand" "i"))
  13026. +     (match_operand:SI 3 "general_operand" "rmi"))]
  13027. +   "TARGET_68020 && TARGET_BITFIELD
  13028. +    && GET_CODE (operands[1]) == CONST_INT
  13029. +    && (INTVAL (operands[1]) == 32)
  13030. +    && GET_CODE (operands[2]) == CONST_INT
  13031. +    && (INTVAL (operands[2]) % 8) == 0
  13032. +    && ! mode_dependent_address_p (XEXP (operands[0], 0))"
  13033. +   "*
  13034. + {
  13035. +   operands[0]
  13036. +     = adj_offsettable_operand (operands[0], INTVAL (operands[2]) / 8);
  13037. + 
  13038. +   return \"move%.l %3,%0\";
  13039. + }")
  13040. + 
  13041. + (define_insn ""
  13042. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+do")
  13043. +              (match_operand:SI 1 "immediate_operand" "i")
  13044. +              (match_operand:SI 2 "immediate_operand" "i"))
  13045. +     (match_operand:SI 3 "general_operand" "d"))]
  13046. +   "TARGET_68020 && TARGET_BITFIELD
  13047. +    && GET_CODE (operands[1]) == CONST_INT
  13048. +    && (INTVAL (operands[1]) == 8 || INTVAL (operands[1]) == 16)
  13049. +    && GET_CODE (operands[2]) == CONST_INT
  13050. +    && INTVAL (operands[2]) % INTVAL (operands[1]) == 0
  13051. +    && (GET_CODE (operands[0]) == REG
  13052. +        || ! mode_dependent_address_p (XEXP (operands[0], 0)))"
  13053. +   "*
  13054. + {
  13055. +   if (REG_P (operands[0]))
  13056. +     {
  13057. +       if (INTVAL (operands[1]) + INTVAL (operands[2]) != 32)
  13058. +         return \"bfins %3,%0{%b2:%b1}\";
  13059. +     }
  13060. +   else
  13061. +     operands[0]
  13062. +       = adj_offsettable_operand (operands[0], INTVAL (operands[2]) / 8);
  13063. + 
  13064. +   if (GET_CODE (operands[3]) == MEM)
  13065. +     operands[3] = adj_offsettable_operand (operands[3],
  13066. +                        (32 - INTVAL (operands[1])) / 8);
  13067. +   if (INTVAL (operands[1]) == 8)
  13068. +     return \"move%.b %3,%0\";
  13069. +   return \"move%.w %3,%0\";
  13070. + }")
  13071. + 
  13072. + 
  13073. + ;
  13074. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  13075. + ; alignment of structure members is specified.
  13076. + ;
  13077. + ; The move is allowed to be odd byte aligned, because that's still faster
  13078. + ; than an odd byte aligned bit field instruction.
  13079. + ;
  13080. + (define_insn ""
  13081. +   [(set (match_operand:SI 0 "general_operand" "=rm")
  13082. +     (zero_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o")
  13083. +              (match_operand:SI 2 "immediate_operand" "i")
  13084. +              (match_operand:SI 3 "immediate_operand" "i")))]
  13085. +   "TARGET_68020 && TARGET_BITFIELD
  13086. +    && GET_CODE (operands[2]) == CONST_INT
  13087. +    && (INTVAL (operands[2]) == 32)
  13088. +    && GET_CODE (operands[3]) == CONST_INT
  13089. +    && (INTVAL (operands[3]) % 8) == 0
  13090. +    && ! mode_dependent_address_p (XEXP (operands[1], 0))"
  13091. +   "*
  13092. + {
  13093. +   operands[1]
  13094. +     = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  13095. + 
  13096. +   return \"move%.l %1,%0\";
  13097. + }")
  13098. + 
  13099. + (define_insn ""
  13100. +   [(set (match_operand:SI 0 "general_operand" "=&d")
  13101. +     (zero_extract:SI (match_operand:SI 1 "nonimmediate_operand" "do")
  13102. +              (match_operand:SI 2 "immediate_operand" "i")
  13103. +              (match_operand:SI 3 "immediate_operand" "i")))]
  13104. +   "TARGET_68020 && TARGET_BITFIELD
  13105. +    && GET_CODE (operands[2]) == CONST_INT
  13106. +    && (INTVAL (operands[2]) == 8 || INTVAL (operands[2]) == 16)
  13107. +    && GET_CODE (operands[3]) == CONST_INT
  13108. +    && INTVAL (operands[3]) % INTVAL (operands[2]) == 0
  13109. +    && (GET_CODE (operands[1]) == REG
  13110. +        || ! mode_dependent_address_p (XEXP (operands[1], 0)))"
  13111. +   "*
  13112. + {
  13113. +   cc_status.flags |= CC_NOT_NEGATIVE;
  13114. +   if (REG_P (operands[1]))
  13115. +     {
  13116. +       if (INTVAL (operands[2]) + INTVAL (operands[3]) != 32)
  13117. +     return \"bfextu %1{%b3:%b2},%0\";
  13118. +     }
  13119. +   else
  13120. +     operands[1]
  13121. +       = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  13122. + 
  13123. +   output_asm_insn (\"clr%.l %0\", operands);
  13124. +   if (GET_CODE (operands[0]) == MEM)
  13125. +     operands[0] = adj_offsettable_operand (operands[0],
  13126. +                        (32 - INTVAL (operands[1])) / 8);
  13127. +   if (INTVAL (operands[2]) == 8)
  13128. +     return \"move%.b %1,%0\";
  13129. +   return \"move%.w %1,%0\";
  13130. + }")
  13131. + 
  13132. + ;
  13133. + ; Special case for 32-bit field in memory.  This only occurs when 32-bit
  13134. + ; alignment of structure members is specified.
  13135. + ;
  13136. + ; The move is allowed to be odd byte aligned, because that's still faster
  13137. + ; than an odd byte aligned bit field instruction.
  13138. + ;
  13139. + (define_insn ""
  13140. +   [(set (match_operand:SI 0 "general_operand" "=rm")
  13141. +     (sign_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o")
  13142. +              (match_operand:SI 2 "immediate_operand" "i")
  13143. +              (match_operand:SI 3 "immediate_operand" "i")))]
  13144. +   "TARGET_68020 && TARGET_BITFIELD
  13145. +    && GET_CODE (operands[2]) == CONST_INT
  13146. +    && (INTVAL (operands[2]) == 32)
  13147. +    && GET_CODE (operands[3]) == CONST_INT
  13148. +    && (INTVAL (operands[3]) % 8) == 0
  13149. +    && ! mode_dependent_address_p (XEXP (operands[1], 0))"
  13150. +   "*
  13151. + {
  13152. +   operands[1]
  13153. +     = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  13154. + 
  13155. +   return \"move%.l %1,%0\";
  13156. + }")
  13157. + 
  13158. + (define_insn ""
  13159. +   [(set (match_operand:SI 0 "general_operand" "=d")
  13160. +     (sign_extract:SI (match_operand:SI 1 "nonimmediate_operand" "do")
  13161. +              (match_operand:SI 2 "immediate_operand" "i")
  13162. +              (match_operand:SI 3 "immediate_operand" "i")))]
  13163. +   "TARGET_68020 && TARGET_BITFIELD
  13164. +    && GET_CODE (operands[2]) == CONST_INT
  13165. +    && (INTVAL (operands[2]) == 8 || INTVAL (operands[2]) == 16)
  13166. +    && GET_CODE (operands[3]) == CONST_INT
  13167. +    && INTVAL (operands[3]) % INTVAL (operands[2]) == 0
  13168. +    && (GET_CODE (operands[1]) == REG
  13169. +        || ! mode_dependent_address_p (XEXP (operands[1], 0)))"
  13170. +   "*
  13171. + {
  13172. +   if (REG_P (operands[1]))
  13173. +     {
  13174. +       if (INTVAL (operands[2]) + INTVAL (operands[3]) != 32)
  13175. +     return \"bfexts %1{%b3:%b2},%0\";
  13176. +     }
  13177. +   else
  13178. +     operands[1]
  13179. +       = adj_offsettable_operand (operands[1], INTVAL (operands[3]) / 8);
  13180. + 
  13181. +   if (INTVAL (operands[2]) == 8)
  13182. +     return \"move%.b %1,%0\;extb%.l %0\";
  13183. +   return \"move%.w %1,%0\;ext%.l %0\";
  13184. + }")
  13185. + 
  13186. + ;; Bit field instructions, general cases.
  13187. + ;; "o,d" constraint causes a nonoffsettable memref to match the "o"
  13188. + ;; so that its address is reloaded.
  13189. + 
  13190. + (define_insn "extv"
  13191. +   [(set (match_operand:SI 0 "general_operand" "=d,d")
  13192. +     (sign_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o,d")
  13193. +              (match_operand:SI 2 "general_operand" "di,di")
  13194. +              (match_operand:SI 3 "general_operand" "di,di")))]
  13195. +   "TARGET_68020 && TARGET_BITFIELD"
  13196. +   "bfexts %1{%b3:%b2},%0")
  13197. + 
  13198. + (define_insn "extzv"
  13199. +   [(set (match_operand:SI 0 "general_operand" "=d,d")
  13200. +     (zero_extract:SI (match_operand:QI 1 "nonimmediate_operand" "o,d")
  13201. +              (match_operand:SI 2 "general_operand" "di,di")
  13202. +              (match_operand:SI 3 "general_operand" "di,di")))]
  13203. +   "TARGET_68020 && TARGET_BITFIELD"
  13204. +   "*
  13205. + {
  13206. +   if (GET_CODE (operands[2]) == CONST_INT)
  13207. +     {
  13208. +       if (INTVAL (operands[2]) != 32)
  13209. +     cc_status.flags |= CC_NOT_NEGATIVE;
  13210. +     }
  13211. +   else
  13212. +     {
  13213. +       CC_STATUS_INIT;
  13214. +     }
  13215. +   return \"bfextu %1{%b3:%b2},%0\";
  13216. + }")
  13217. + 
  13218. + (define_insn ""
  13219. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  13220. +              (match_operand:SI 1 "general_operand" "di,di")
  13221. +              (match_operand:SI 2 "general_operand" "di,di"))
  13222. +         (xor:SI (zero_extract:SI (match_dup 0) (match_dup 1) (match_dup 2))
  13223. +         (match_operand 3 "immediate_operand" "i,i")))]
  13224. +   "TARGET_68020 && TARGET_BITFIELD
  13225. +    && GET_CODE (operands[3]) == CONST_INT
  13226. +    && (INTVAL (operands[3]) == -1
  13227. +        || (GET_CODE (operands[1]) == CONST_INT
  13228. +            && (~ INTVAL (operands[3]) & ((1 << INTVAL (operands[1]))- 1)) == 0))"
  13229. +   "*
  13230. + {
  13231. +   CC_STATUS_INIT;
  13232. +   return \"bfchg %0{%b2:%b1}\";
  13233. + }")
  13234. + 
  13235. + (define_insn ""
  13236. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  13237. +              (match_operand:SI 1 "general_operand" "di,di")
  13238. +              (match_operand:SI 2 "general_operand" "di,di"))
  13239. +     (const_int 0))]
  13240. +   "TARGET_68020 && TARGET_BITFIELD"
  13241. +   "*
  13242. + {
  13243. +   CC_STATUS_INIT;
  13244. +   return \"bfclr %0{%b2:%b1}\";
  13245. + }")
  13246. + 
  13247. + (define_insn ""
  13248. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  13249. +              (match_operand:SI 1 "general_operand" "di,di")
  13250. +              (match_operand:SI 2 "general_operand" "di,di"))
  13251. +     (const_int -1))]
  13252. +   "TARGET_68020 && TARGET_BITFIELD"
  13253. +   "*
  13254. + {
  13255. +   CC_STATUS_INIT;
  13256. +   return \"bfset %0{%b2:%b1}\";
  13257. + }")
  13258. + 
  13259. + (define_insn "insv"
  13260. +   [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+o,d")
  13261. +              (match_operand:SI 1 "general_operand" "di,di")
  13262. +              (match_operand:SI 2 "general_operand" "di,di"))
  13263. +     (match_operand:SI 3 "general_operand" "d,d"))]
  13264. +   "TARGET_68020 && TARGET_BITFIELD"
  13265. +   "bfins %3,%0{%b2:%b1}")
  13266. + 
  13267. + ;; Now recognize bit field insns that operate on registers
  13268. + ;; (or at least were intended to do so).
  13269. + 
  13270. + (define_insn ""
  13271. +   [(set (match_operand:SI 0 "general_operand" "=d")
  13272. +     (sign_extract:SI (match_operand:SI 1 "nonimmediate_operand" "d")
  13273. +              (match_operand:SI 2 "general_operand" "di")
  13274. +              (match_operand:SI 3 "general_operand" "di")))]
  13275. +   "TARGET_68020 && TARGET_BITFIELD"
  13276. +   "bfexts %1{%b3:%b2},%0")
  13277. + 
  13278. + (define_insn ""
  13279. +   [(set (match_operand:SI 0 "general_operand" "=d")
  13280. +     (zero_extract:SI (match_operand:SI 1 "nonimmediate_operand" "d")
  13281. +              (match_operand:SI 2 "general_operand" "di")
  13282. +              (match_operand:SI 3 "general_operand" "di")))]
  13283. +   "TARGET_68020 && TARGET_BITFIELD"
  13284. +   "*
  13285. + {
  13286. +   if (GET_CODE (operands[2]) == CONST_INT)
  13287. +     {
  13288. +       if (INTVAL (operands[2]) != 32)
  13289. +     cc_status.flags |= CC_NOT_NEGATIVE;
  13290. +     }
  13291. +   else
  13292. +     {
  13293. +       CC_STATUS_INIT;
  13294. +     }
  13295. +   return \"bfextu %1{%b3:%b2},%0\";
  13296. + }")
  13297. + 
  13298. + (define_insn ""
  13299. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  13300. +              (match_operand:SI 1 "general_operand" "di")
  13301. +              (match_operand:SI 2 "general_operand" "di"))
  13302. +     (const_int 0))]
  13303. +   "TARGET_68020 && TARGET_BITFIELD"
  13304. +   "*
  13305. + {
  13306. +   CC_STATUS_INIT;
  13307. +   return \"bfclr %0{%b2:%b1}\";
  13308. + }")
  13309. + 
  13310. + (define_insn ""
  13311. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  13312. +              (match_operand:SI 1 "general_operand" "di")
  13313. +              (match_operand:SI 2 "general_operand" "di"))
  13314. +     (const_int -1))]
  13315. +   "TARGET_68020 && TARGET_BITFIELD"
  13316. +   "*
  13317. + {
  13318. +   CC_STATUS_INIT;
  13319. +   return \"bfset %0{%b2:%b1}\";
  13320. + }")
  13321. + 
  13322. + (define_insn ""
  13323. +   [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+d")
  13324. +              (match_operand:SI 1 "general_operand" "di")
  13325. +              (match_operand:SI 2 "general_operand" "di"))
  13326. +     (match_operand:SI 3 "general_operand" "d"))]
  13327. +   "TARGET_68020 && TARGET_BITFIELD"
  13328. +   "*
  13329. + {
  13330. + #if 0
  13331. +   /* These special cases are now recognized by a specific pattern.  */
  13332. +   if (GET_CODE (operands[1]) == CONST_INT && GET_CODE (operands[2]) == CONST_INT
  13333. +       && INTVAL (operands[1]) == 16 && INTVAL (operands[2]) == 16)
  13334. +     return \"move%.w %3,%0\";
  13335. +   if (GET_CODE (operands[1]) == CONST_INT && GET_CODE (operands[2]) == CONST_INT
  13336. +       && INTVAL (operands[1]) == 24 && INTVAL (operands[2]) == 8)
  13337. +     return \"move%.b %3,%0\";
  13338. + #endif
  13339. +   return \"bfins %3,%0{%b2:%b1}\";
  13340. + }")
  13341. + 
  13342. + ;; Special patterns for optimizing bit-field instructions.
  13343. + 
  13344. + (define_insn ""
  13345. +   [(set (cc0)
  13346. +     (zero_extract:SI (match_operand:QI 0 "memory_operand" "o")
  13347. +              (match_operand:SI 1 "general_operand" "di")
  13348. +              (match_operand:SI 2 "general_operand" "di")))]
  13349. +   "TARGET_68020 && TARGET_BITFIELD
  13350. +    && GET_CODE (operands[1]) == CONST_INT"
  13351. +   "*
  13352. + {
  13353. +   if (operands[1] == const1_rtx
  13354. +       && GET_CODE (operands[2]) == CONST_INT)
  13355. +     {    
  13356. +       int width = GET_CODE (operands[0]) == REG ? 31 : 7;
  13357. +       return output_btst (operands,
  13358. +               gen_rtx (CONST_INT, VOIDmode,
  13359. +                    width - INTVAL (operands[2])),
  13360. +               operands[0],
  13361. +               insn, 1000);
  13362. +       /* Pass 1000 as SIGNPOS argument so that btst will
  13363. +          not think we are testing the sign bit for an `and'
  13364. +      and assume that nonzero implies a negative result.  */
  13365. +     }
  13366. +   if (INTVAL (operands[1]) != 32)
  13367. +     cc_status.flags = CC_NOT_NEGATIVE;
  13368. +   return \"bftst %0{%b2:%b1}\";
  13369. + }")
  13370. + 
  13371. +   
  13372. + ;;; now handle the register cases
  13373. + (define_insn ""
  13374. +   [(set (cc0)
  13375. +     (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "d")
  13376. +              (match_operand:SI 1 "general_operand" "di")
  13377. +              (match_operand:SI 2 "general_operand" "di")))]
  13378. +   "TARGET_68020 && TARGET_BITFIELD
  13379. +    && GET_CODE (operands[1]) == CONST_INT"
  13380. +   "*
  13381. + {
  13382. +   if (operands[1] == const1_rtx
  13383. +       && GET_CODE (operands[2]) == CONST_INT)
  13384. +     {    
  13385. +       int width = GET_CODE (operands[0]) == REG ? 31 : 7;
  13386. +       return output_btst (operands,
  13387. +               gen_rtx (CONST_INT, VOIDmode,
  13388. +                    width - INTVAL (operands[2])),
  13389. +               operands[0],
  13390. +               insn, 1000);
  13391. +       /* Pass 1000 as SIGNPOS argument so that btst will
  13392. +          not think we are testing the sign bit for an `and'
  13393. +      and assume that nonzero implies a negative result.  */
  13394. +     }
  13395. +   if (INTVAL (operands[1]) != 32)
  13396. +     cc_status.flags = CC_NOT_NEGATIVE;
  13397. +   return \"bftst %0{%b2:%b1}\";
  13398. + }")
  13399. + 
  13400. + (define_insn "seq"
  13401. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13402. +     (eq:QI (cc0) (const_int 0)))]
  13403. +   ""
  13404. +   "*
  13405. +   cc_status = cc_prev_status;
  13406. +   OUTPUT_JUMP (\"seq %0\", \"fseq %0\", \"seq %0\");
  13407. + ")
  13408. + 
  13409. + (define_insn "sne"
  13410. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13411. +     (ne:QI (cc0) (const_int 0)))]
  13412. +   ""
  13413. +   "*
  13414. +   cc_status = cc_prev_status;
  13415. +   OUTPUT_JUMP (\"sne %0\", \"fsne %0\", \"sne %0\");
  13416. + ")
  13417. + 
  13418. + (define_insn "sgt"
  13419. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13420. +     (gt:QI (cc0) (const_int 0)))]
  13421. +   ""
  13422. +   "*
  13423. +   cc_status = cc_prev_status;
  13424. +   OUTPUT_JUMP (\"sgt %0\", \"fsgt %0\", 0);
  13425. + ")
  13426. + 
  13427. + (define_insn "sgtu"
  13428. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13429. +     (gtu:QI (cc0) (const_int 0)))]
  13430. +   ""
  13431. +   "* cc_status = cc_prev_status;
  13432. +      return \"shi %0\"; ")
  13433. + 
  13434. + (define_insn "slt"
  13435. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13436. +     (lt:QI (cc0) (const_int 0)))]
  13437. +   ""
  13438. +   "* cc_status = cc_prev_status;
  13439. +      OUTPUT_JUMP (\"slt %0\", \"fslt %0\", \"smi %0\"); ")
  13440. + 
  13441. + (define_insn "sltu"
  13442. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13443. +     (ltu:QI (cc0) (const_int 0)))]
  13444. +   ""
  13445. +   "* cc_status = cc_prev_status;
  13446. +      return \"scs %0\"; ")
  13447. + 
  13448. + (define_insn "sge"
  13449. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13450. +     (ge:QI (cc0) (const_int 0)))]
  13451. +   ""
  13452. +   "* cc_status = cc_prev_status;
  13453. +      OUTPUT_JUMP (\"sge %0\", \"fsge %0\", \"spl %0\"); ")
  13454. + 
  13455. + (define_insn "sgeu"
  13456. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13457. +     (geu:QI (cc0) (const_int 0)))]
  13458. +   ""
  13459. +   "* cc_status = cc_prev_status;
  13460. +      return \"scc %0\"; ")
  13461. + 
  13462. + (define_insn "sle"
  13463. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13464. +     (le:QI (cc0) (const_int 0)))]
  13465. +   ""
  13466. +   "*
  13467. +   cc_status = cc_prev_status;
  13468. +   OUTPUT_JUMP (\"sle %0\", \"fsle %0\", 0);
  13469. + ")
  13470. + 
  13471. + (define_insn "sleu"
  13472. +   [(set (match_operand:QI 0 "general_operand" "=d")
  13473. +     (leu:QI (cc0) (const_int 0)))]
  13474. +   ""
  13475. +   "* cc_status = cc_prev_status;
  13476. +      return \"sls %0\"; ")
  13477. + 
  13478. + ;; Basic conditional jump instructions.
  13479. + 
  13480. + (define_insn "beq"
  13481. +   [(set (pc)
  13482. +     (if_then_else (eq (cc0)
  13483. +               (const_int 0))
  13484. +               (label_ref (match_operand 0 "" ""))
  13485. +               (pc)))]
  13486. +   ""
  13487. +   "*
  13488. + {
  13489. + #ifdef MOTOROLA
  13490. +   OUTPUT_JUMP (\"jbeq %l0\", \"fbeq %l0\", \"jbeq %l0\");
  13491. + #else
  13492. +   OUTPUT_JUMP (\"jeq %l0\", \"fjeq %l0\", \"jeq %l0\");
  13493. + #endif
  13494. + }")
  13495. + 
  13496. + (define_insn "bne"
  13497. +   [(set (pc)
  13498. +     (if_then_else (ne (cc0)
  13499. +               (const_int 0))
  13500. +               (label_ref (match_operand 0 "" ""))
  13501. +               (pc)))]
  13502. +   ""
  13503. +   "*
  13504. + {
  13505. + #ifdef MOTOROLA
  13506. +   OUTPUT_JUMP (\"jbne %l0\", \"fbne %l0\", \"jbne %l0\");
  13507. + #else
  13508. +   OUTPUT_JUMP (\"jne %l0\", \"fjne %l0\", \"jne %l0\");
  13509. + #endif
  13510. + }")
  13511. + 
  13512. + (define_insn "bgt"
  13513. +   [(set (pc)
  13514. +     (if_then_else (gt (cc0)
  13515. +               (const_int 0))
  13516. +               (label_ref (match_operand 0 "" ""))
  13517. +               (pc)))]
  13518. +   ""
  13519. +   "*
  13520. + #ifdef MOTOROLA
  13521. +   OUTPUT_JUMP (\"jbgt %l0\", \"fbgt %l0\", 0);
  13522. + #else
  13523. +   OUTPUT_JUMP (\"jgt %l0\", \"fjgt %l0\", 0);
  13524. + #endif
  13525. + ")
  13526. + 
  13527. + (define_insn "bgtu"
  13528. +   [(set (pc)
  13529. +     (if_then_else (gtu (cc0)
  13530. +                (const_int 0))
  13531. +               (label_ref (match_operand 0 "" ""))
  13532. +               (pc)))]
  13533. +   ""
  13534. +   "*
  13535. + #ifdef MOTOROLA
  13536. +   return \"jbhi %l0\";
  13537. + #else
  13538. +   return \"jhi %l0\";
  13539. + #endif
  13540. + ")
  13541. + 
  13542. + (define_insn "blt"
  13543. +   [(set (pc)
  13544. +     (if_then_else (lt (cc0)
  13545. +               (const_int 0))
  13546. +               (label_ref (match_operand 0 "" ""))
  13547. +               (pc)))]
  13548. +   ""
  13549. +   "*
  13550. + #ifdef MOTOROLA
  13551. +   OUTPUT_JUMP (\"jblt %l0\", \"fblt %l0\", \"jbmi %l0\");
  13552. + #else
  13553. +   OUTPUT_JUMP (\"jlt %l0\", \"fjlt %l0\", \"jmi %l0\");
  13554. + #endif
  13555. + ")
  13556. + 
  13557. + (define_insn "bltu"
  13558. +   [(set (pc)
  13559. +     (if_then_else (ltu (cc0)
  13560. +                (const_int 0))
  13561. +               (label_ref (match_operand 0 "" ""))
  13562. +               (pc)))]
  13563. +   ""
  13564. +   "*
  13565. + #ifdef MOTOROLA
  13566. +   return \"jbcs %l0\";
  13567. + #else
  13568. +   return \"jcs %l0\";
  13569. + #endif
  13570. + ")
  13571. + 
  13572. + (define_insn "bge"
  13573. +   [(set (pc)
  13574. +     (if_then_else (ge (cc0)
  13575. +               (const_int 0))
  13576. +               (label_ref (match_operand 0 "" ""))
  13577. +               (pc)))]
  13578. +   ""
  13579. +   "*
  13580. + #ifdef MOTOROLA
  13581. +   OUTPUT_JUMP (\"jbge %l0\", \"fbge %l0\", \"jbpl %l0\");
  13582. + #else
  13583. +   OUTPUT_JUMP (\"jge %l0\", \"fjge %l0\", \"jpl %l0\");
  13584. + #endif
  13585. + ")
  13586. + 
  13587. + (define_insn "bgeu"
  13588. +   [(set (pc)
  13589. +     (if_then_else (geu (cc0)
  13590. +                (const_int 0))
  13591. +               (label_ref (match_operand 0 "" ""))
  13592. +               (pc)))]
  13593. +   ""
  13594. +   "*
  13595. + #ifdef MOTOROLA
  13596. +   return \"jbcc %l0\";
  13597. + #else
  13598. +   return \"jcc %l0\";
  13599. + #endif
  13600. + ")
  13601. + 
  13602. + (define_insn "ble"
  13603. +   [(set (pc)
  13604. +     (if_then_else (le (cc0)
  13605. +               (const_int 0))
  13606. +               (label_ref (match_operand 0 "" ""))
  13607. +               (pc)))]
  13608. +   ""
  13609. +   "*
  13610. + #ifdef MOTOROLA
  13611. +   OUTPUT_JUMP (\"jble %l0\", \"fble %l0\", 0);
  13612. + #else
  13613. +   OUTPUT_JUMP (\"jle %l0\", \"fjle %l0\", 0);
  13614. + #endif
  13615. + ")
  13616. + 
  13617. + (define_insn "bleu"
  13618. +   [(set (pc)
  13619. +     (if_then_else (leu (cc0)
  13620. +                (const_int 0))
  13621. +               (label_ref (match_operand 0 "" ""))
  13622. +               (pc)))]
  13623. +   ""
  13624. +   "*
  13625. + #ifdef MOTOROLA
  13626. +   return \"jbls %l0\";
  13627. + #else
  13628. +   return \"jls %l0\";
  13629. + #endif
  13630. + ")
  13631. + 
  13632. + ;; Negated conditional jump instructions.
  13633. + 
  13634. + (define_insn ""
  13635. +   [(set (pc)
  13636. +     (if_then_else (eq (cc0)
  13637. +               (const_int 0))
  13638. +               (pc)
  13639. +               (label_ref (match_operand 0 "" ""))))]
  13640. +   ""
  13641. +   "*
  13642. + {
  13643. + #ifdef MOTOROLA
  13644. +   OUTPUT_JUMP (\"jbne %l0\", \"fbne %l0\", \"jbne %l0\");
  13645. + #else
  13646. +   OUTPUT_JUMP (\"jne %l0\", \"fjne %l0\", \"jne %l0\");
  13647. + #endif
  13648. + }")
  13649. + 
  13650. + (define_insn ""
  13651. +   [(set (pc)
  13652. +     (if_then_else (ne (cc0)
  13653. +               (const_int 0))
  13654. +               (pc)
  13655. +               (label_ref (match_operand 0 "" ""))))]
  13656. +   ""
  13657. +   "*
  13658. + {
  13659. + #ifdef MOTOROLA
  13660. +   OUTPUT_JUMP (\"jbeq %l0\", \"fbeq %l0\", \"jbeq %l0\");
  13661. + #else
  13662. +   OUTPUT_JUMP (\"jeq %l0\", \"fjeq %l0\", \"jeq %l0\");
  13663. + #endif
  13664. + }")
  13665. + 
  13666. + (define_insn ""
  13667. +   [(set (pc)
  13668. +     (if_then_else (gt (cc0)
  13669. +               (const_int 0))
  13670. +               (pc)
  13671. +               (label_ref (match_operand 0 "" ""))))]
  13672. +   ""
  13673. +   "*
  13674. + #ifdef MOTOROLA
  13675. +   OUTPUT_JUMP (\"jble %l0\", \"fbngt %l0\", 0);
  13676. + #else
  13677. +   OUTPUT_JUMP (\"jle %l0\", \"fjngt %l0\", 0);
  13678. + #endif
  13679. + ")
  13680. + 
  13681. + (define_insn ""
  13682. +   [(set (pc)
  13683. +     (if_then_else (gtu (cc0)
  13684. +                (const_int 0))
  13685. +               (pc)
  13686. +               (label_ref (match_operand 0 "" ""))))]
  13687. +   ""
  13688. +   "*
  13689. + #ifdef MOTOROLA
  13690. +   return \"jbls %l0\";
  13691. + #else
  13692. +   return \"jls %l0\";
  13693. + #endif
  13694. + ")
  13695. + 
  13696. + (define_insn ""
  13697. +   [(set (pc)
  13698. +     (if_then_else (lt (cc0)
  13699. +               (const_int 0))
  13700. +               (pc)
  13701. +               (label_ref (match_operand 0 "" ""))))]
  13702. +   ""
  13703. +   "*
  13704. + #ifdef MOTOROLA
  13705. +   OUTPUT_JUMP (\"jbge %l0\", \"fbnlt %l0\", \"jbpl %l0\");
  13706. + #else
  13707. +   OUTPUT_JUMP (\"jge %l0\", \"fjnlt %l0\", \"jpl %l0\");
  13708. + #endif
  13709. + ")
  13710. + 
  13711. + (define_insn ""
  13712. +   [(set (pc)
  13713. +     (if_then_else (ltu (cc0)
  13714. +                (const_int 0))
  13715. +               (pc)
  13716. +               (label_ref (match_operand 0 "" ""))))]
  13717. +   ""
  13718. +   "*
  13719. + #ifdef MOTOROLA
  13720. +   return \"jbcc %l0\";
  13721. + #else
  13722. +   return \"jcc %l0\";
  13723. + #endif
  13724. + ")
  13725. + 
  13726. + (define_insn ""
  13727. +   [(set (pc)
  13728. +     (if_then_else (ge (cc0)
  13729. +               (const_int 0))
  13730. +               (pc)
  13731. +               (label_ref (match_operand 0 "" ""))))]
  13732. +   ""
  13733. +   "*
  13734. + #ifdef MOTOROLA
  13735. +   OUTPUT_JUMP (\"jblt %l0\", \"fbnge %l0\", \"jbmi %l0\");
  13736. + #else
  13737. +   OUTPUT_JUMP (\"jlt %l0\", \"fjnge %l0\", \"jmi %l0\");
  13738. + #endif
  13739. + ")
  13740. + 
  13741. + (define_insn ""
  13742. +   [(set (pc)
  13743. +     (if_then_else (geu (cc0)
  13744. +                (const_int 0))
  13745. +               (pc)
  13746. +               (label_ref (match_operand 0 "" ""))))]
  13747. +   ""
  13748. +   "*
  13749. + #ifdef MOTOROLA
  13750. +   return \"jbcs %l0\";
  13751. + #else
  13752. +   return \"jcs %l0\";
  13753. + #endif
  13754. + ")
  13755. + 
  13756. + (define_insn ""
  13757. +   [(set (pc)
  13758. +     (if_then_else (le (cc0)
  13759. +               (const_int 0))
  13760. +               (pc)
  13761. +               (label_ref (match_operand 0 "" ""))))]
  13762. +   ""
  13763. +   "*
  13764. + #ifdef MOTOROLA
  13765. +   OUTPUT_JUMP (\"jbgt %l0\", \"fbnle %l0\", 0);
  13766. + #else
  13767. +   OUTPUT_JUMP (\"jgt %l0\", \"fjnle %l0\", 0);
  13768. + #endif
  13769. + ")
  13770. + 
  13771. + (define_insn ""
  13772. +   [(set (pc)
  13773. +     (if_then_else (leu (cc0)
  13774. +                (const_int 0))
  13775. +               (pc)
  13776. +               (label_ref (match_operand 0 "" ""))))]
  13777. +   ""
  13778. +   "*
  13779. + #ifdef MOTOROLA
  13780. +   return \"jbhi %l0\";
  13781. + #else
  13782. +   return \"jhi %l0\";
  13783. + #endif
  13784. + ")
  13785. + 
  13786. + ;; Unconditional and other jump instructions
  13787. + (define_insn "jump"
  13788. +   [(set (pc)
  13789. +     (label_ref (match_operand 0 "" "")))]
  13790. +   ""
  13791. +   "*
  13792. + #ifdef MOTOROLA
  13793. +   return \"jbra %l0\";
  13794. + #else
  13795. +   return \"jra %l0\";
  13796. + #endif
  13797. + ")
  13798. + 
  13799. + ;; We support two different ways of handling dispatch tables.
  13800. + ;; The NeXT uses absolute tables, and other machines use relative.
  13801. + ;; This define_expand can generate either kind.
  13802. + (define_expand "tablejump"
  13803. +   [(parallel [(set (pc) (match_operand 0 "" ""))
  13804. +           (use (label_ref (match_operand 1 "" "")))])]
  13805. +   ""
  13806. +   "
  13807. + {
  13808. + #ifdef CASE_VECTOR_PC_RELATIVE
  13809. +     operands[0] = gen_rtx (PLUS, SImode, pc_rtx, operands[0]);
  13810. + #endif
  13811. + }")
  13812. + 
  13813. + ;; Jump to variable address from dispatch table of absolute addresses.
  13814. + (define_insn ""
  13815. +   [(set (pc) (match_operand:SI 0 "register_operand" "a"))
  13816. +    (use (label_ref (match_operand 1 "" "")))]
  13817. +   ""
  13818. +   "*
  13819. + #ifdef MOTOROLA
  13820. +   return \"jmp (%0)\";
  13821. + #else
  13822. +   return \"jmp %0@\";
  13823. + #endif
  13824. + ")
  13825. + 
  13826. + ;; Jump to variable address from dispatch table of relative addresses.
  13827. + (define_insn ""
  13828. +   [(set (pc)
  13829. +     (plus:SI (pc) (match_operand:HI 0 "register_operand" "r")))
  13830. +    (use (label_ref (match_operand 1 "" "")))]
  13831. +   ""
  13832. +   "*
  13833. + #ifdef ASM_RETURN_CASE_JUMP
  13834. +  ASM_RETURN_CASE_JUMP;
  13835. + #else
  13836. + #ifdef SGS
  13837. + #ifdef ASM_OUTPUT_CASE_LABEL
  13838. +   return \"jmp 6(%%pc,%0.w)\";
  13839. + #else
  13840. + #ifdef CRDS
  13841. +   return \"jmp 2(pc,%0.w)\";
  13842. + #else
  13843. +   return \"jmp 2(%%pc,%0.w)\";
  13844. + #endif  /* end !CRDS */
  13845. + #endif
  13846. + #else /* not SGS */
  13847. + #ifdef MOTOROLA
  13848. +   return \"jmp (2,pc,%0.w)\";
  13849. + #else
  13850. +   return \"jmp pc@(2,%0:w)\";
  13851. + #endif
  13852. + #endif
  13853. + #endif
  13854. + ")
  13855. + 
  13856. + ;; Decrement-and-branch insns.
  13857. + (define_insn ""
  13858. +   [(set (pc)
  13859. +     (if_then_else
  13860. +      (ne (match_operand:HI 0 "general_operand" "+g")
  13861. +          (const_int 0))
  13862. +      (label_ref (match_operand 1 "" ""))
  13863. +      (pc)))
  13864. +    (set (match_dup 0)
  13865. +     (plus:HI (match_dup 0)
  13866. +          (const_int -1)))]
  13867. +   ""
  13868. +   "*
  13869. + {
  13870. +   CC_STATUS_INIT;
  13871. +   if (DATA_REG_P (operands[0]))
  13872. +     return \"dbra %0,%l1\";
  13873. +   if (GET_CODE (operands[0]) == MEM)
  13874. +     {
  13875. + #ifdef MOTOROLA
  13876. + #ifdef NO_ADDSUB_Q
  13877. +       return \"sub%.w %#1,%0\;jbcc %l1\";
  13878. + #else
  13879. +       return \"subq%.w %#1,%0\;jbcc %l1\";
  13880. + #endif
  13881. + #else /* not MOTOROLA */
  13882. +       return \"subqw %#1,%0\;jcc %l1\";
  13883. + #endif
  13884. +     }
  13885. + #ifdef MOTOROLA
  13886. + #ifdef SGS_CMP_ORDER
  13887. + #ifdef NO_ADDSUB_Q
  13888. +   return \"sub%.w %#1,%0\;cmp%.w %0,%#-1\;jbne %l1\";
  13889. + #else
  13890. +   return \"subq%.w %#1,%0\;cmp%.w %0,%#-1\;jbne %l1\";
  13891. + #endif
  13892. + #else /* not SGS_CMP_ORDER */
  13893. +   return \"subq%.w %#1,%0\;cmp%.w %#-1,%0\;jbne %l1\";
  13894. + #endif
  13895. + #else /* not MOTOROLA */
  13896. +   return \"subqw %#1,%0\;cmpw %#-1,%0\;jne %l1\";
  13897. + #endif
  13898. + }")
  13899. + 
  13900. + (define_insn ""
  13901. +   [(set (pc)
  13902. +     (if_then_else
  13903. +      (ne (match_operand:SI 0 "general_operand" "+g")
  13904. +          (const_int 0))
  13905. +      (label_ref (match_operand 1 "" ""))
  13906. +      (pc)))
  13907. +    (set (match_dup 0)
  13908. +     (plus:SI (match_dup 0)
  13909. +          (const_int -1)))]
  13910. +   ""
  13911. +   "*
  13912. + {
  13913. +   CC_STATUS_INIT;
  13914. + #ifdef MOTOROLA
  13915. + #ifdef NO_ADDSUB_Q
  13916. +   if (DATA_REG_P (operands[0]))
  13917. +     return \"dbra %0,%l1\;clr%.w %0\;sub%.l %#1,%0\;jbcc %l1\";
  13918. +   if (GET_CODE (operands[0]) == MEM)
  13919. +     return \"sub%.l %#1,%0\;jbcc %l1\";
  13920. + #else
  13921. +   if (DATA_REG_P (operands[0]))
  13922. +     return \"dbra %0,%l1\;clr%.w %0\;subq%.l %#1,%0\;jbcc %l1\";
  13923. +   if (GET_CODE (operands[0]) == MEM)
  13924. +     return \"subq%.l %#1,%0\;jbcc %l1\";
  13925. + #endif /* NO_ADDSUB_Q */
  13926. + #ifdef SGS_CMP_ORDER
  13927. + #ifdef NO_ADDSUB_Q
  13928. +   return \"sub.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  13929. + #else
  13930. +   return \"subq.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  13931. + #endif
  13932. + #else /* not SGS_CMP_ORDER */
  13933. +   return \"subq.l %#1,%0\;cmp.l %#-1,%0\;jbne %l1\";
  13934. + #endif /* not SGS_CMP_ORDER */
  13935. + #else /* not MOTOROLA */
  13936. +   if (DATA_REG_P (operands[0]))
  13937. +     return \"dbra %0,%l1\;clr%.w %0\;subql %#1,%0\;jcc %l1\";
  13938. +   if (GET_CODE (operands[0]) == MEM)
  13939. +     return \"subql %#1,%0\;jcc %l1\";
  13940. +   return \"subql %#1,%0\;cmpl %#-1,%0\;jne %l1\";
  13941. + #endif /* not MOTOROLA */
  13942. + }")
  13943. + 
  13944. + ;; Two dbra patterns that use REG_NOTES info generated by strength_reduce.
  13945. + 
  13946. + (define_insn ""
  13947. +   [(set (pc)
  13948. +     (if_then_else
  13949. +       (ge (plus:HI (match_operand:HI 0 "general_operand" "+g")
  13950. +                (const_int -1))
  13951. +           (const_int 0))
  13952. +       (label_ref (match_operand 1 "" ""))
  13953. +       (pc)))
  13954. +    (set (match_dup 0)
  13955. +     (plus:HI (match_dup 0)
  13956. +          (const_int -1)))]
  13957. +   "find_reg_note (insn, REG_NONNEG, 0)"
  13958. +   "*
  13959. + {
  13960. +   CC_STATUS_INIT;
  13961. + #ifdef MOTOROLA
  13962. + #ifdef NO_ADDSUB_Q
  13963. +   if (DATA_REG_P (operands[0]))
  13964. +     return \"dbra %0,%l1\";
  13965. +   if (GET_CODE (operands[0]) == MEM)
  13966. +     return \"sub%.w %#1,%0\;jbcc %l1\";
  13967. + #else
  13968. +   if (DATA_REG_P (operands[0]))
  13969. +     return \"dbra %0,%l1\";
  13970. +   if (GET_CODE (operands[0]) == MEM)
  13971. +     return \"subq%.w %#1,%0\;jbcc %l1\";
  13972. + #endif
  13973. + #ifdef SGS_CMP_ORDER
  13974. + #ifdef NO_ADDSUB_Q
  13975. +   return \"sub.w %#1,%0\;cmp.w %0,%#-1\;jbne %l1\";
  13976. + #else
  13977. +   return \"subq.w %#1,%0\;cmp.w %0,%#-1\;jbne %l1\";
  13978. + #endif
  13979. + #else /* not SGS_CMP_ORDER */
  13980. +   return \"subq.w %#1,%0\;cmp.w %#-1,%0\;jbne %l1\";
  13981. + #endif /* not SGS_CMP_ORDER */
  13982. + #else /* not MOTOROLA */
  13983. +   if (DATA_REG_P (operands[0]))
  13984. +     return \"dbra %0,%l1\";
  13985. +   if (GET_CODE (operands[0]) == MEM)
  13986. +     return \"subqw %#1,%0\;jcc %l1\";
  13987. +   return \"subqw %#1,%0\;cmpw %#-1,%0\;jne %l1\";
  13988. + #endif /* not MOTOROLA */
  13989. + }")
  13990. + 
  13991. + (define_insn "decrement_and_branch_until_zero"
  13992. +   [(set (pc)
  13993. +     (if_then_else
  13994. +       (ge (plus:SI (match_operand:SI 0 "general_operand" "+g")
  13995. +                (const_int -1))
  13996. +           (const_int 0))
  13997. +       (label_ref (match_operand 1 "" ""))
  13998. +       (pc)))
  13999. +    (set (match_dup 0)
  14000. +     (plus:SI (match_dup 0)
  14001. +          (const_int -1)))]
  14002. +   "find_reg_note (insn, REG_NONNEG, 0)"
  14003. +   "*
  14004. + {
  14005. +   CC_STATUS_INIT;
  14006. + #ifdef MOTOROLA
  14007. + #ifdef NO_ADDSUB_Q
  14008. +   if (DATA_REG_P (operands[0]))
  14009. +     return \"dbra %0,%l1\;clr%.w %0\;sub%.l %#1,%0\;jbcc %l1\";
  14010. +   if (GET_CODE (operands[0]) == MEM)
  14011. +     return \"sub%.l %#1,%0\;jbcc %l1\";
  14012. + #else
  14013. +   if (DATA_REG_P (operands[0]))
  14014. +     return \"dbra %0,%l1\;clr%.w %0\;subq%.l %#1,%0\;jbcc %l1\";
  14015. +   if (GET_CODE (operands[0]) == MEM)
  14016. +     return \"subq%.l %#1,%0\;jbcc %l1\";
  14017. + #endif
  14018. + #ifdef SGS_CMP_ORDER
  14019. + #ifdef NO_ADDSUB_Q
  14020. +   return \"sub.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  14021. + #else
  14022. +   return \"subq.l %#1,%0\;cmp.l %0,%#-1\;jbne %l1\";
  14023. + #endif
  14024. + #else /* not SGS_CMP_ORDER */
  14025. +   return \"subq.l %#1,%0\;cmp.l %#-1,%0\;jbne %l1\";
  14026. + #endif /* not SGS_CMP_ORDER */
  14027. + #else /* not MOTOROLA */
  14028. +   if (DATA_REG_P (operands[0]))
  14029. +     return \"dbra %0,%l1\;clr%.w %0\;subql %#1,%0\;jcc %l1\";
  14030. +   if (GET_CODE (operands[0]) == MEM)
  14031. +     return \"subql %#1,%0\;jcc %l1\";
  14032. +   return \"subql %#1,%0\;cmpl %#-1,%0\;jne %l1\";
  14033. + #endif /* not MOTOROLA */
  14034. + }")
  14035. + 
  14036. + 
  14037. + ;; PIC calls are handled by loading the address of the function into a 
  14038. + ;; register (via movsi), then emitting a register indirect call using
  14039. + ;; the "jsr" function call syntax.
  14040. + ;;
  14041. + ;; It is important to note that the "jsr" syntax is always used for 
  14042. + ;; PIC calls, even on machines in which GCC normally uses the "jbsr"
  14043. + ;; syntax for non-PIC calls.  This keeps at least 1 assembler (Sun)
  14044. + ;; from emitting incorrect code for a PIC call.
  14045. + ;;
  14046. + ;; We have different patterns for PIC calls and non-PIC calls.  The
  14047. + ;; different patterns are only used to choose the right syntax
  14048. + ;; ("jsr" vs "jbsr").
  14049. + ;;
  14050. + ;; On svr4 m68k, PIC stuff is done differently. To be able to support
  14051. + ;; dynamic linker LAZY BINDING, all the procedure calls need to go 
  14052. + ;; through the PLT (Procedure Linkage Table) section in PIC mode. The 
  14053. + ;; svr4 m68k assembler recognizes this syntax: `bsr FUNC@PLTPC' and it 
  14054. + ;; will create the correct relocation entry (R_68K_PLT32) for `FUNC', 
  14055. + ;; that tells the linker editor to create an entry for `FUNC' in PLT
  14056. + ;; section at link time. However, all global objects reference are still
  14057. + ;; done by using `OBJ@GOT'. So, the goal here is to output the function 
  14058. + ;; call operand as `FUNC@PLTPC', but output object operand as `OBJ@GOT'. 
  14059. + ;; We need to have a way to differentiate these two different operands.
  14060. + ;;
  14061. + ;; The strategy I use here is to use SYMBOL_REF_FLAG to differentiate 
  14062. + ;; these two different operands. The macro LEGITIMATE_PIC_OPERAND_P needs
  14063. + ;; to be changed to recognize function calls symbol_ref operand as a legal 
  14064. + ;; PIC operand (by checking whether SYMBOL_REF_FLAG is set). This will 
  14065. + ;; avoid the compiler to load this symbol_ref operand into a register. 
  14066. + ;; Remember, the operand "foo@PLTPC" cannot be called via jsr directly 
  14067. + ;; since the value is a PC relative offset, not a real address.
  14068. + ;;
  14069. + ;; All global objects are treated in the similar way as in SUN3. The only 
  14070. + ;; difference is: on m68k svr4, the reference of such global object needs 
  14071. + ;; to end with a suffix "@GOT" so the assembler and linker know to create
  14072. + ;; an entry for it in GOT (Global Offset Table) section. This is done in 
  14073. + ;; m68k.c.
  14074. + 
  14075. + ;; Call subroutine with no return value.
  14076. + (define_expand "call"
  14077. +   [(call (match_operand:QI 0 "memory_operand" "")
  14078. +      (match_operand:SI 1 "general_operand" ""))]
  14079. +   ;; Operand 1 not really used on the m68000.
  14080. + 
  14081. +   ""
  14082. +   "
  14083. + {
  14084. +   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  14085. + #ifdef MOTOROLA
  14086. +     SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  14087. + #else
  14088. +     operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  14089. +                force_reg (Pmode, XEXP (operands[0], 0)));
  14090. + #endif
  14091. + }")
  14092. + 
  14093. + ;; This is a normal call sequence.
  14094. + (define_insn ""
  14095. +   [(call (match_operand:QI 0 "memory_operand" "o")
  14096. +      (match_operand:SI 1 "general_operand" "g"))]
  14097. +   ;; Operand 1 not really used on the m68000.
  14098. + 
  14099. +   "(! flag_pic || flag_pic >= 3)"
  14100. +   "*
  14101. + #ifdef MOTOROLA
  14102. +   return \"jsr %0\";
  14103. + #else
  14104. +   return \"jbsr %0\";
  14105. + #endif
  14106. + ")
  14107. + 
  14108. + ;; This is a PIC call sequence.
  14109. + (define_insn ""
  14110. +   [(call (match_operand:QI 0 "memory_operand" "o")
  14111. +      (match_operand:SI 1 "general_operand" "g"))]
  14112. +   ;; Operand 1 not really used on the m68000.
  14113. + 
  14114. +   "(flag_pic && flag_pic < 3)"
  14115. +   "*
  14116. + #ifdef HPUX_ASM
  14117. +   return \"bsr %0\";
  14118. + #else
  14119. + #ifdef MOTOROLA
  14120. +   if (GET_CODE (operands[0]) == MEM 
  14121. +       && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  14122. +     return \"bsr %0@PLTPC\";
  14123. + #endif
  14124. +   return \"jsr %0\";
  14125. + #endif
  14126. + ")
  14127. + 
  14128. + ;; Call subroutine, returning value in operand 0
  14129. + ;; (which must be a hard register).
  14130. + ;; See comments before "call" regarding PIC calls.
  14131. + (define_expand "call_value"
  14132. +   [(set (match_operand 0 "" "")
  14133. +     (call (match_operand:QI 1 "memory_operand" "")
  14134. +      (match_operand:SI 2 "general_operand" "")))]
  14135. +   ;; Operand 2 not really used on the m68000.
  14136. +   ""
  14137. +   "
  14138. + {
  14139. +   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  14140. + #ifdef MOTOROLA
  14141. +     SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  14142. + #else
  14143. +     operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  14144. +                force_reg (Pmode, XEXP (operands[1], 0)));
  14145. + #endif
  14146. + }")
  14147. + 
  14148. + ;; This is a normal call_value
  14149. + (define_insn ""
  14150. +   [(set (match_operand 0 "" "=rf")
  14151. +     (call (match_operand:QI 1 "memory_operand" "o")
  14152. +           (match_operand:SI 2 "general_operand" "g")))]
  14153. +   ;; Operand 2 not really used on the m68000.
  14154. +   "(! flag_pic || flag_pic >= 3)"
  14155. +   "*
  14156. + #ifdef MOTOROLA
  14157. +   return \"jsr %1\";
  14158. + #else
  14159. +   return \"jbsr %1\";
  14160. + #endif
  14161. + ")
  14162. + 
  14163. + ;; This is a PIC call_value
  14164. + (define_insn ""
  14165. +   [(set (match_operand 0 "" "=rf")
  14166. +     (call (match_operand:QI 1 "memory_operand" "o")
  14167. +           (match_operand:SI 2 "general_operand" "g")))]
  14168. +   ;; Operand 2 not really used on the m68000.
  14169. +   "(flag_pic && flag_pic < 3)"
  14170. +   "*
  14171. + #ifdef HPUX_ASM
  14172. +   return \"bsr %1\";
  14173. + #else
  14174. + #ifdef MOTOROLA
  14175. +   if (GET_CODE (operands[1]) == MEM 
  14176. +       && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  14177. +     return \"bsr %1@PLTPC\";
  14178. + #endif
  14179. +   return \"jsr %1\";
  14180. + #endif
  14181. + ")
  14182. + 
  14183. + ;; Call subroutine returning any type.
  14184. + 
  14185. + (define_expand "untyped_call"
  14186. +   [(parallel [(call (match_operand 0 "" "")
  14187. +             (const_int 0))
  14188. +           (match_operand 1 "" "")
  14189. +           (match_operand 2 "" "")])]
  14190. +   "NEEDS_UNTYPED_CALL"
  14191. +   "
  14192. + {
  14193. +   int i;
  14194. + 
  14195. +   emit_call_insn (gen_call (operands[0], const0_rtx, NULL, const0_rtx));
  14196. + 
  14197. +   for (i = 0; i < XVECLEN (operands[2], 0); i++)
  14198. +     {
  14199. +       rtx set = XVECEXP (operands[2], 0, i);
  14200. +       emit_move_insn (SET_DEST (set), SET_SRC (set));
  14201. +     }
  14202. + 
  14203. +   /* The optimizer does not know that the call sets the function value
  14204. +      registers we stored in the result block.  We avoid problems by
  14205. +      claiming that all hard registers are used and clobbered at this
  14206. +      point.  */
  14207. +   emit_insn (gen_blockage ());
  14208. + 
  14209. +   DONE;
  14210. + }")
  14211. + 
  14212. + ;; UNSPEC_VOLATILE is considered to use and clobber all hard registers and
  14213. + ;; all of memory.  This blocks insns from being moved across this point.
  14214. + 
  14215. + (define_insn "blockage"
  14216. +   [(unspec_volatile [(const_int 0)] 0)]
  14217. +   ""
  14218. +   "")
  14219. + 
  14220. + (define_insn "nop"
  14221. +   [(const_int 0)]
  14222. +   ""
  14223. +   "nop")
  14224. + 
  14225. + (define_insn "probe"
  14226. +  [(reg:SI 15)]
  14227. +  "NEED_PROBE"
  14228. +  "*
  14229. + {
  14230. +   operands[0] = gen_rtx (PLUS, SImode, stack_pointer_rtx,
  14231. +              gen_rtx (CONST_INT, VOIDmode, NEED_PROBE));
  14232. +   return \"tstl %a0\";
  14233. + }")
  14234. + 
  14235. + ;; Used for frameless functions which save no regs and allocate no locals.
  14236. + (define_insn "return"
  14237. +   [(return)]
  14238. +   "USE_RETURN_INSN"
  14239. +   "*
  14240. + {
  14241. +   if (current_function_pops_args == 0)
  14242. +     return \"rts\";
  14243. +   operands[0] = gen_rtx (CONST_INT, VOIDmode, current_function_pops_args);
  14244. +   return \"rtd %0\";
  14245. + }")
  14246. + 
  14247. + (define_insn "indirect_jump"
  14248. +   [(set (pc) (match_operand:SI 0 "address_operand" "p"))]
  14249. +   ""
  14250. +   "jmp %a0")
  14251. + 
  14252. + ;; This should not be used unless the add/sub insns can't be.
  14253. + 
  14254. + (define_insn ""
  14255. +   [(set (match_operand:SI 0 "general_operand" "=a")
  14256. +     (match_operand:QI 1 "address_operand" "p"))]
  14257. +   ""
  14258. +   "lea %a1,%0")
  14259. + 
  14260. + ;; This is the first machine-dependent peephole optimization.
  14261. + ;; It is useful when a floating value is returned from a function call
  14262. + ;; and then is moved into an FP register.
  14263. + ;; But it is mainly intended to test the support for these optimizations.
  14264. + 
  14265. + (define_peephole
  14266. +   [(set (reg:SI 15) (plus:SI (reg:SI 15) (const_int 4)))
  14267. +    (set (match_operand:DF 0 "register_operand" "=f")
  14268. +     (match_operand:DF 1 "register_operand" "ad"))]
  14269. +   "FP_REG_P (operands[0]) && ! FP_REG_P (operands[1])"
  14270. +   "*
  14271. + {
  14272. +   rtx xoperands[2];
  14273. +   xoperands[1] = gen_rtx (REG, SImode, REGNO (operands[1]) + 1);
  14274. +   output_asm_insn (\"move%.l %1,%@\", xoperands);
  14275. +   output_asm_insn (\"move%.l %1,%-\", operands);
  14276. +   return \"fmove%.d %+,%0\";
  14277. + }
  14278. + ")
  14279. + 
  14280. + ;; Optimize a stack-adjust followed by a push of an argument.
  14281. + ;; This is said to happen frequently with -msoft-float
  14282. + ;; when there are consecutive library calls.
  14283. + 
  14284. + (define_peephole
  14285. +   [(set (reg:SI 15) (plus:SI (reg:SI 15)
  14286. +                  (match_operand:SI 0 "immediate_operand" "n")))
  14287. +    (set (match_operand:SF 1 "push_operand" "=m")
  14288. +     (match_operand:SF 2 "general_operand" "rmfF"))]
  14289. +   "GET_CODE (operands[0]) == CONST_INT && INTVAL (operands[0]) >= 4
  14290. +    && ! reg_mentioned_p (stack_pointer_rtx, operands[2])"
  14291. +   "*
  14292. + {
  14293. +   if (INTVAL (operands[0]) > 4)
  14294. +     {
  14295. +       rtx xoperands[2];
  14296. +       xoperands[0] = stack_pointer_rtx;
  14297. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[0]) - 4);
  14298. + #ifndef NO_ADDSUB_Q
  14299. +       if (INTVAL (xoperands[1]) <= 8)
  14300. +         output_asm_insn (\"addq%.w %1,%0\", xoperands);
  14301. +       else if (INTVAL (xoperands[1]) <= 16 && TARGET_68020)
  14302. +     {
  14303. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, 
  14304. +                   INTVAL (xoperands[1]) - 8);
  14305. +       output_asm_insn (\"addq%.w %#8,%0\;addq%.w %1,%0\", xoperands);
  14306. +     }
  14307. +       else
  14308. + #endif
  14309. +         if (INTVAL (xoperands[1]) <= 0x7FFF)
  14310. +           output_asm_insn (\"add%.w %1,%0\", xoperands);
  14311. +       else
  14312. +         output_asm_insn (\"add%.l %1,%0\", xoperands);
  14313. +     }
  14314. +   if (FP_REG_P (operands[2]))
  14315. +     return \"fmove%.s %2,%@\";
  14316. +   return \"move%.l %2,%@\";
  14317. + }")
  14318. + 
  14319. + ;; Speed up stack adjust followed by a fullword fixedpoint push.
  14320. + 
  14321. + (define_peephole
  14322. +   [(set (reg:SI 15) (plus:SI (reg:SI 15)
  14323. +                  (match_operand:SI 0 "immediate_operand" "n")))
  14324. +    (set (match_operand:SI 1 "push_operand" "=m")
  14325. +     (match_operand:SI 2 "general_operand" "g"))]
  14326. +   "GET_CODE (operands[0]) == CONST_INT && INTVAL (operands[0]) >= 4
  14327. +    && ! reg_mentioned_p (stack_pointer_rtx, operands[2])"
  14328. +   "*
  14329. + {
  14330. +   if (INTVAL (operands[0]) > 4)
  14331. +     {
  14332. +       rtx xoperands[2];
  14333. +       xoperands[0] = stack_pointer_rtx;
  14334. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[0]) - 4);
  14335. + #ifndef NO_ADDSUB_Q
  14336. +       if (INTVAL (xoperands[1]) <= 8)
  14337. +         output_asm_insn (\"addq%.w %1,%0\", xoperands);
  14338. +       else if (INTVAL (xoperands[1]) <= 16 && TARGET_68020)
  14339. +     {
  14340. +       xoperands[1] = gen_rtx (CONST_INT, VOIDmode, 
  14341. +                   INTVAL (xoperands[1]) - 8);
  14342. +       output_asm_insn (\"addq%.w %#8,%0\;addq%.w %1,%0\", xoperands);
  14343. +     }
  14344. +       else
  14345. + #endif
  14346. +         if (INTVAL (xoperands[1]) <= 0x7FFF)
  14347. +           output_asm_insn (\"add%.w %1,%0\", xoperands);
  14348. +       else
  14349. +         output_asm_insn (\"add%.l %1,%0\", xoperands);
  14350. +     }
  14351. +   if (operands[2] == const0_rtx)
  14352. +     return \"clr%.l %@\";
  14353. +   return \"move%.l %2,%@\";
  14354. + }")
  14355. + 
  14356. + ;; Speed up pushing a single byte but leaving four bytes of space.
  14357. + 
  14358. + (define_peephole
  14359. +   [(set (mem:QI (pre_dec:SI (reg:SI 15)))
  14360. +     (match_operand:QI 1 "general_operand" "dami"))
  14361. +    (set (reg:SI 15) (minus:SI (reg:SI 15) (const_int 2)))]
  14362. +   "! reg_mentioned_p (stack_pointer_rtx, operands[1])"
  14363. +   "*
  14364. + {
  14365. +   rtx xoperands[4];
  14366. + 
  14367. +   if (GET_CODE (operands[1]) == REG)
  14368. +     return \"move%.l %1,%-\";
  14369. + 
  14370. +   xoperands[1] = operands[1];
  14371. +   xoperands[2]
  14372. +     = gen_rtx (MEM, QImode,
  14373. +            gen_rtx (PLUS, VOIDmode, stack_pointer_rtx,
  14374. +             gen_rtx (CONST_INT, VOIDmode, 3)));
  14375. +   xoperands[3] = stack_pointer_rtx;
  14376. +   output_asm_insn (\"subq%.w %#4,%3\;move%.b %1,%2\", xoperands);
  14377. +   return \"\";
  14378. + }")
  14379. + 
  14380. + (define_peephole
  14381. +   [(set (match_operand:SI 0 "register_operand" "=d")
  14382. +     (const_int 0))
  14383. +    (set (strict_low_part (subreg:HI (match_dup 0) 0))
  14384. +     (match_operand:HI 1 "general_operand" "rmn"))]
  14385. +   "strict_low_part_peephole_ok (HImode, prev_nonnote_insn (insn), operands[0])"
  14386. +   "*
  14387. + {
  14388. +   if (GET_CODE (operands[1]) == CONST_INT)
  14389. +     {
  14390. +       if (operands[1] == const0_rtx
  14391. +       && (DATA_REG_P (operands[0])
  14392. +           || GET_CODE (operands[0]) == MEM)
  14393. +       /* clr insns on 68000 read before writing.
  14394. +          This isn't so on the 68010, but we have no alternative for it.  */
  14395. +       && (TARGET_68020
  14396. +           || !(GET_CODE (operands[0]) == MEM
  14397. +            && MEM_VOLATILE_P (operands[0]))))
  14398. +     return \"clr%.w %0\";
  14399. +     }
  14400. +   return \"move%.w %1,%0\";
  14401. + }")
  14402. + 
  14403. + ;; dbCC peepholes
  14404. + ;;
  14405. + ;; Turns
  14406. + ;;   loop:
  14407. + ;;           [ ... ]
  14408. + ;;           jCC label        ; abnormal loop termination
  14409. + ;;           dbra dN, loop    ; normal loop termination
  14410. + ;;
  14411. + ;; Into
  14412. + ;;   loop:
  14413. + ;;           [ ... ]
  14414. + ;;           dbCC dN, loop
  14415. + ;;           jCC label
  14416. + ;;
  14417. + ;; Which moves the jCC condition outside the inner loop for free.
  14418. + ;;
  14419. + (define_peephole
  14420. +   [(set (pc) (if_then_else (match_operator 3 "valid_dbcc_comparison_p"
  14421. +                              [(cc0) (const_int 0)])
  14422. +                            (label_ref (match_operand 2 "" ""))
  14423. +                            (pc)))
  14424. +    (parallel
  14425. +     [(set (pc)
  14426. +       (if_then_else
  14427. +         (ge (plus:HI (match_operand:HI 0 "register_operand" "+d")
  14428. +                  (const_int -1))
  14429. +             (const_int 0))
  14430. +         (label_ref (match_operand 1 "" ""))
  14431. +         (pc)))
  14432. +      (set (match_dup 0)
  14433. +       (plus:HI (match_dup 0)
  14434. +            (const_int -1)))])]
  14435. +   "DATA_REG_P (operands[0])"
  14436. +   "*
  14437. + {
  14438. +   CC_STATUS_INIT;
  14439. +   output_dbcc_and_branch (operands);
  14440. +   return \"\";
  14441. + }")
  14442. + 
  14443. + (define_peephole
  14444. +   [(set (pc) (if_then_else (match_operator 3 "valid_dbcc_comparison_p"
  14445. +                              [(cc0) (const_int 0)])
  14446. +                            (label_ref (match_operand 2 "" ""))
  14447. +                            (pc)))
  14448. +    (parallel
  14449. +     [(set (pc)
  14450. +       (if_then_else
  14451. +         (ge (plus:SI (match_operand:SI 0 "register_operand" "+d")
  14452. +                  (const_int -1))
  14453. +             (const_int 0))
  14454. +         (label_ref (match_operand 1 "" ""))
  14455. +         (pc)))
  14456. +      (set (match_dup 0)
  14457. +       (plus:SI (match_dup 0)
  14458. +            (const_int -1)))])]
  14459. +   "DATA_REG_P (operands[0])"
  14460. +   "*
  14461. + {
  14462. +   CC_STATUS_INIT;
  14463. +   output_dbcc_and_branch (operands);
  14464. +   return \"\";
  14465. + }")
  14466. + 
  14467. + 
  14468. + ;; FPA multiply and add.
  14469. + (define_insn ""
  14470. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14471. +     (plus:DF (mult:DF (match_operand:DF 1 "general_operand" "%x,dmF,y")
  14472. +               (match_operand:DF 2 "general_operand" "xH,y,y"))
  14473. +          (match_operand:DF 3 "general_operand" "xH,y,dmF")))]
  14474. +    "TARGET_FPA"
  14475. +    "@
  14476. +     fpma%.d %1,%w2,%w3,%0
  14477. +     fpma%.d %x1,%x2,%x3,%0
  14478. +     fpma%.d %x1,%x2,%x3,%0")
  14479. + 
  14480. + (define_insn ""
  14481. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14482. +     (plus:SF (mult:SF (match_operand:SF 1 "general_operand" "%x,ydmF,y")
  14483. +               (match_operand:SF 2 "general_operand" "xH,y,ydmF"))
  14484. +          (match_operand:SF 3 "general_operand" "xH,ydmF,ydmF")))]
  14485. +    "TARGET_FPA"
  14486. +    "@
  14487. +     fpma%.s %1,%w2,%w3,%0
  14488. +     fpma%.s %1,%2,%3,%0
  14489. +     fpma%.s %1,%2,%3,%0")
  14490. + 
  14491. + ;; FPA Multiply and subtract
  14492. + (define_insn ""
  14493. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14494. +     (minus:DF (match_operand:DF 1 "general_operand" "xH,rmF,y")
  14495. +           (mult:DF (match_operand:DF 2 "general_operand" "%xH,y,y")
  14496. +                (match_operand:DF 3 "general_operand" "x,y,rmF"))))]
  14497. +   "TARGET_FPA"
  14498. +   "@
  14499. +    fpms%.d %3,%w2,%w1,%0
  14500. +    fpms%.d %x3,%2,%x1,%0
  14501. +    fpms%.d %x3,%2,%x1,%0")
  14502. + 
  14503. + (define_insn ""
  14504. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14505. +     (minus:SF (match_operand:SF 1 "general_operand" "xH,rmF,yrmF")
  14506. +           (mult:SF (match_operand:SF 2 "general_operand" "%xH,rmF,y")
  14507. +                (match_operand:SF 3 "general_operand" "x,y,yrmF"))))]
  14508. +   "TARGET_FPA"
  14509. +   "@
  14510. +    fpms%.s %3,%w2,%w1,%0
  14511. +    fpms%.s %3,%2,%1,%0
  14512. +    fpms%.s %3,%2,%1,%0")
  14513. + 
  14514. + (define_insn ""
  14515. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14516. +     (minus:DF (mult:DF (match_operand:DF 1 "general_operand" "%xH,y,y")
  14517. +                (match_operand:DF 2 "general_operand" "x,y,rmF"))
  14518. +           (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  14519. +   "TARGET_FPA"
  14520. +   "@
  14521. +    fpmr%.d %2,%w1,%w3,%0
  14522. +    fpmr%.d %x2,%1,%x3,%0
  14523. +    fpmr%.d %x2,%1,%x3,%0")
  14524. + 
  14525. + (define_insn ""
  14526. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14527. +     (minus:SF (mult:SF (match_operand:SF 1 "general_operand" "%xH,rmF,y")
  14528. +                (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  14529. +           (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  14530. +   "TARGET_FPA"
  14531. +   "@
  14532. +    fpmr%.s %2,%w1,%w3,%0
  14533. +    fpmr%.s %x2,%1,%x3,%0
  14534. +    fpmr%.s %x2,%1,%x3,%0")
  14535. + 
  14536. + ;; FPA Add and multiply
  14537. + (define_insn ""
  14538. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14539. +     (mult:DF (plus:DF (match_operand:DF 1 "general_operand" "%xH,y,y")
  14540. +               (match_operand:DF 2 "general_operand" "x,y,rmF"))
  14541. +          (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  14542. +   "TARGET_FPA"
  14543. +   "@
  14544. +    fpam%.d %2,%w1,%w3,%0
  14545. +    fpam%.d %x2,%1,%x3,%0
  14546. +    fpam%.d %x2,%1,%x3,%0")
  14547. + 
  14548. + (define_insn ""
  14549. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14550. +     (mult:SF (plus:SF (match_operand:SF 1 "general_operand" "%xH,rmF,y")
  14551. +               (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  14552. +          (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  14553. +   "TARGET_FPA"
  14554. +   "@
  14555. +    fpam%.s %2,%w1,%w3,%0
  14556. +    fpam%.s %x2,%1,%x3,%0
  14557. +    fpam%.s %x2,%1,%x3,%0")
  14558. + 
  14559. + ;;FPA Subtract and multiply
  14560. + (define_insn ""
  14561. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14562. +     (mult:DF (minus:DF (match_operand:DF 1 "general_operand" "xH,y,y")
  14563. +                (match_operand:DF 2 "general_operand" "x,y,rmF"))
  14564. +          (match_operand:DF 3 "general_operand" "xH,rmF,y")))]
  14565. +   "TARGET_FPA"
  14566. +   "@
  14567. +    fpsm%.d %2,%w1,%w3,%0
  14568. +    fpsm%.d %x2,%1,%x3,%0
  14569. +    fpsm%.d %x2,%1,%x3,%0")
  14570. + 
  14571. + (define_insn ""
  14572. +   [(set (match_operand:DF 0 "register_operand" "=x,y,y")
  14573. +     (mult:DF (match_operand:DF 1 "general_operand" "xH,rmF,y")
  14574. +          (minus:DF (match_operand:DF 2 "general_operand" "xH,y,y")
  14575. +                (match_operand:DF 3 "general_operand" "x,y,rmF"))))]
  14576. +   "TARGET_FPA"
  14577. +   "@
  14578. +    fpsm%.d %3,%w2,%w1,%0
  14579. +    fpsm%.d %x3,%2,%x1,%0
  14580. +    fpsm%.d %x3,%2,%x1,%0")
  14581. + 
  14582. + (define_insn ""
  14583. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14584. +     (mult:SF (minus:SF (match_operand:SF 1 "general_operand" "xH,rmF,y")
  14585. +                (match_operand:SF 2 "general_operand" "x,y,yrmF"))
  14586. +          (match_operand:SF 3 "general_operand" "xH,rmF,yrmF")))]
  14587. +   "TARGET_FPA"
  14588. +   "@
  14589. +    fpsm%.s %2,%w1,%w3,%0
  14590. +    fpsm%.s %x2,%1,%x3,%0
  14591. +    fpsm%.s %x2,%1,%x3,%0")
  14592. + 
  14593. + (define_insn ""
  14594. +   [(set (match_operand:SF 0 "register_operand" "=x,y,y")
  14595. +     (mult:SF (match_operand:SF 1 "general_operand" "xH,rmF,yrmF")
  14596. +          (minus:SF (match_operand:SF 2 "general_operand" "xH,rmF,y")
  14597. +                (match_operand:SF 3 "general_operand" "x,y,yrmF"))))]
  14598. +   "TARGET_FPA"
  14599. +   "@
  14600. +    fpsm%.s %3,%w2,%w1,%0
  14601. +    fpsm%.s %x3,%2,%x1,%0
  14602. +    fpsm%.s %x3,%2,%x1,%0")
  14603. + 
  14604. + (define_insn "tstxf"
  14605. +   [(set (cc0)
  14606. +     (match_operand:XF 0 "nonimmediate_operand" "fm"))]
  14607. +   "TARGET_68881"
  14608. +   "*
  14609. + {
  14610. +   cc_status.flags = CC_IN_68881;
  14611. +   return \"ftst%.x %0\";
  14612. + }")
  14613. + 
  14614. + 
  14615. + (define_expand "cmpxf"
  14616. +   [(set (cc0)
  14617. +     (compare (match_operand:XF 0 "general_operand" "f,mG")
  14618. +          (match_operand:XF 1 "general_operand" "fmG,f")))]
  14619. +   "TARGET_68881"
  14620. +   "
  14621. + {
  14622. +   if (CONSTANT_P (operands[0]))
  14623. +       operands[0] = force_const_mem (XFmode, operands[0]);
  14624. +   if (CONSTANT_P (operands[1]))
  14625. +       operands[1] = force_const_mem (XFmode, operands[1]);
  14626. + }")
  14627. + 
  14628. + (define_insn ""
  14629. +   [(set (cc0)
  14630. +     (compare (match_operand:XF 0 "nonimmediate_operand" "f,mG")
  14631. +          (match_operand:XF 1 "nonimmediate_operand" "fmG,f")))]
  14632. +   "TARGET_68881"
  14633. +   "*
  14634. + {
  14635. +   cc_status.flags = CC_IN_68881;
  14636. + #ifdef SGS_CMP_ORDER
  14637. +   if (REG_P (operands[0]))
  14638. +     {
  14639. +       if (REG_P (operands[1]))
  14640. +     return \"fcmp%.x %0,%1\";
  14641. +       else
  14642. +         return \"fcmp%.x %0,%f1\";
  14643. +     }
  14644. +   cc_status.flags |= CC_REVERSED;
  14645. +   return \"fcmp%.x %1,%f0\";
  14646. + #else
  14647. +   if (REG_P (operands[0]))
  14648. +     {
  14649. +       if (REG_P (operands[1]))
  14650. +     return \"fcmp%.x %1,%0\";
  14651. +       else
  14652. +         return \"fcmp%.x %f1,%0\";
  14653. +     }
  14654. +   cc_status.flags |= CC_REVERSED;
  14655. +   return \"fcmp%.x %f0,%1\";
  14656. + #endif
  14657. + }")
  14658. + 
  14659. + (define_insn "extendsfxf2"
  14660. +   [(set (match_operand:XF 0 "general_operand" "=fm,f")
  14661. +     (float_extend:XF (match_operand:SF 1 "general_operand" "f,m")))]
  14662. +   "TARGET_68881"
  14663. +   "*
  14664. + {
  14665. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  14666. +     {
  14667. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  14668. +     {
  14669. +       /* Extending float to double in an fp-reg is a no-op.
  14670. +          NOTICE_UPDATE_CC has already assumed that the
  14671. +          cc will be set.  So cancel what it did.  */
  14672. +       cc_status = cc_prev_status;
  14673. +       return \"\";
  14674. +     }
  14675. +       return \"f%$move%.x %1,%0\";
  14676. +     }
  14677. +   if (FP_REG_P (operands[0]))
  14678. +     return \"f%$move%.s %f1,%0\";
  14679. +   return \"fmove%.x %f1,%0\";
  14680. + }")
  14681. + 
  14682. + 
  14683. + (define_insn "extenddfxf2"
  14684. +   [(set (match_operand:XF 0 "general_operand" "=fm,f")
  14685. +     (float_extend:XF
  14686. +           (match_operand:DF 1 "general_operand" "f,m")))]
  14687. +   "TARGET_68881"
  14688. +   "*
  14689. + {
  14690. +   if (FP_REG_P (operands[0]) && FP_REG_P (operands[1]))
  14691. +     {
  14692. +       if (REGNO (operands[0]) == REGNO (operands[1]))
  14693. +     {
  14694. +       /* Extending float to double in an fp-reg is a no-op.
  14695. +          NOTICE_UPDATE_CC has already assumed that the
  14696. +          cc will be set.  So cancel what it did.  */
  14697. +       cc_status = cc_prev_status;
  14698. +       return \"\";
  14699. +     }
  14700. +       return \"fmove%.x %1,%0\";
  14701. +     }
  14702. +   if (FP_REG_P (operands[0]))
  14703. +     return \"f%&move%.d %f1,%0\";
  14704. +   return \"fmove%.x %f1,%0\";
  14705. + }")
  14706. + 
  14707. + (define_insn "truncxfdf2"
  14708. +   [(set (match_operand:DF 0 "general_operand" "=m,!r")
  14709. +     (float_truncate:DF
  14710. +           (match_operand:XF 1 "general_operand" "f,f")))]
  14711. +   "TARGET_68881"
  14712. +   "*
  14713. + {
  14714. +   if (REG_P (operands[0]))
  14715. +     {
  14716. +       output_asm_insn (\"fmove%.d %f1,%-\;move%.l %+,%0\", operands);
  14717. +       operands[0] = gen_rtx (REG, SImode, REGNO (operands[0]) + 1);
  14718. +       return \"move%.l %+,%0\";
  14719. +     }
  14720. +   return \"fmove%.d %f1,%0\";
  14721. + }")
  14722. +  
  14723. + (define_insn "truncxfsf2"
  14724. +   [(set (match_operand:SF 0 "general_operand" "=dm")
  14725. +     (float_truncate:SF
  14726. +       (match_operand:XF 1 "general_operand" "f")))]
  14727. +   "TARGET_68881"
  14728. +   "fmove%.s %f1,%0")
  14729. + 
  14730. + (define_insn "floatsixf2"
  14731. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14732. +     (float:XF (match_operand:SI 1 "general_operand" "dmi")))]
  14733. +   "TARGET_68881"
  14734. +   "fmove%.l %1,%0")
  14735. + 
  14736. + (define_insn "floathixf2"
  14737. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14738. +     (float:XF (match_operand:HI 1 "general_operand" "dmn")))]
  14739. +   "TARGET_68881"
  14740. +   "fmove%.w %1,%0")
  14741. + 
  14742. + (define_insn "floatqixf2"
  14743. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14744. +     (float:XF (match_operand:QI 1 "general_operand" "dmn")))]
  14745. +   "TARGET_68881"
  14746. +   "fmove%.b %1,%0")
  14747. + 
  14748. + (define_insn "ftruncxf2"
  14749. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14750. +     (fix:XF (match_operand:XF 1 "general_operand" "fFm")))]
  14751. +   "TARGET_68881"
  14752. +   "*
  14753. + {
  14754. +   if (FP_REG_P (operands[1]))
  14755. +     return \"fintrz%.x %f1,%0\";
  14756. +   return \"fintrz%.x %f1,%0\";
  14757. + }")
  14758. + 
  14759. + (define_insn "fixxfqi2"
  14760. +   [(set (match_operand:QI 0 "general_operand" "=dm")
  14761. +     (fix:QI (match_operand:XF 1 "general_operand" "f")))]
  14762. +   "TARGET_68881"
  14763. +   "fmove%.b %1,%0")
  14764. + 
  14765. + (define_insn "fixxfhi2"
  14766. +   [(set (match_operand:HI 0 "general_operand" "=dm")
  14767. +     (fix:HI (match_operand:XF 1 "general_operand" "f")))]
  14768. +   "TARGET_68881"
  14769. +   "fmove%.w %1,%0")
  14770. + 
  14771. + (define_insn "fixxfsi2"
  14772. +   [(set (match_operand:SI 0 "general_operand" "=dm")
  14773. +     (fix:SI (match_operand:XF 1 "general_operand" "f")))]
  14774. +   "TARGET_68881"
  14775. +   "fmove%.l %1,%0")
  14776. + 
  14777. + (define_expand "addxf3"
  14778. +   [(set (match_operand:XF 0 "general_operand" "")
  14779. +     (plus:XF (match_operand:XF 1 "general_operand" "")
  14780. +          (match_operand:XF 2 "general_operand" "")))]
  14781. +   "TARGET_68881"
  14782. +   "
  14783. + {
  14784. +   if (CONSTANT_P (operands[1]))
  14785. +     operands[1] = force_const_mem (XFmode, operands[1]);
  14786. +   if (CONSTANT_P (operands[2]))
  14787. +     operands[2] = force_const_mem (XFmode, operands[2]);
  14788. + }")
  14789. + 
  14790. + (define_insn ""
  14791. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14792. +     (plus:XF (match_operand:XF 1 "nonimmediate_operand" "%0")
  14793. +          (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  14794. +   "TARGET_68881"
  14795. +   "*
  14796. + {
  14797. +   if (REG_P (operands[2]))
  14798. +     return \"fadd%.x %2,%0\";
  14799. +   return \"fadd%.x %f2,%0\";
  14800. + }")
  14801. + 
  14802. + (define_expand "subxf3"
  14803. +   [(set (match_operand:XF 0 "general_operand" "")
  14804. +     (minus:XF (match_operand:XF 1 "general_operand" "")
  14805. +          (match_operand:XF 2 "general_operand" "")))]
  14806. +   "TARGET_68881"
  14807. +   "
  14808. + {
  14809. +   if (CONSTANT_P (operands[1]))
  14810. +     operands[1] = force_const_mem (XFmode, operands[1]);
  14811. +   if (CONSTANT_P (operands[2]))
  14812. +     operands[2] = force_const_mem (XFmode, operands[2]);
  14813. + }")
  14814. + 
  14815. + (define_insn ""
  14816. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14817. +     (minus:XF (match_operand:XF 1 "nonimmediate_operand" "0")
  14818. +          (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  14819. +   "TARGET_68881"
  14820. +   "*
  14821. + {
  14822. +   if (REG_P (operands[2]))
  14823. +     return \"fsub%.x %2,%0\";
  14824. +   return \"fsub%.x %f2,%0\";
  14825. + }")
  14826. + 
  14827. + (define_expand "mulxf3"
  14828. +   [(set (match_operand:XF 0 "general_operand" "")
  14829. +     (mult:XF (match_operand:XF 1 "general_operand" "")
  14830. +         (match_operand:XF 2 "general_operand" "")))]
  14831. +   "TARGET_68881"
  14832. +   "
  14833. + {
  14834. +   if (CONSTANT_P (operands[1]))
  14835. +     operands[1] = force_const_mem (XFmode, operands[1]);
  14836. +   if (CONSTANT_P (operands[2]))
  14837. +     operands[2] = force_const_mem (XFmode, operands[2]);
  14838. + }")
  14839. + 
  14840. + (define_insn ""
  14841. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14842. +     (mult:XF (match_operand:XF 1 "nonimmediate_operand" "%0")
  14843. +         (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  14844. +   "TARGET_68881"
  14845. +   "*
  14846. + {
  14847. +   if (REG_P (operands[2]))
  14848. +     return \"fmul%.x %2,%0\";
  14849. +   return \"fmul%.x %f2,%0\";
  14850. + }")
  14851. + 
  14852. + (define_expand "divxf3"
  14853. +   [(set (match_operand:XF 0 "general_operand" "")
  14854. +     (div:XF (match_operand:XF 1 "general_operand" "")
  14855. +         (match_operand:XF 2 "general_operand" "")))]
  14856. +   "TARGET_68881"
  14857. +   "
  14858. + {
  14859. +   if (CONSTANT_P (operands[1]))
  14860. +     operands[1] = force_const_mem (XFmode, operands[1]);
  14861. +   if (CONSTANT_P (operands[2]))
  14862. +     operands[2] = force_const_mem (XFmode, operands[2]);
  14863. + }")
  14864. + 
  14865. + (define_insn ""
  14866. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14867. +     (div:XF (match_operand:XF 1 "nonimmediate_operand" "0")
  14868. +         (match_operand:XF 2 "nonimmediate_operand" "fmG")))]
  14869. +   "TARGET_68881"
  14870. +   "*
  14871. + {
  14872. +   if (REG_P (operands[2]))
  14873. +     return \"fdiv%.x %2,%0\";
  14874. +   return \"fdiv%.x %f2,%0\";
  14875. + }")
  14876. + 
  14877. + (define_insn "negxf2"
  14878. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14879. +     (neg:XF (match_operand:XF 1 "nonimmediate_operand" "fmF")))]
  14880. +   "TARGET_68881"
  14881. +   "*
  14882. + {
  14883. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  14884. +     return \"fneg%.x %1,%0\";
  14885. +   return \"fneg%.x %f1,%0\";
  14886. + }")
  14887. + 
  14888. + (define_insn "absxf2"
  14889. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14890. +     (abs:XF (match_operand:XF 1 "nonimmediate_operand" "fmF")))]
  14891. +   "TARGET_68881"
  14892. +   "*
  14893. + {
  14894. +   if (REG_P (operands[1]) && ! DATA_REG_P (operands[1]))
  14895. +     return \"fabs%.x %1,%0\";
  14896. +   return \"fabs%.x %f1,%0\";
  14897. + }")
  14898. + 
  14899. + (define_insn "sqrtxf2"
  14900. +   [(set (match_operand:XF 0 "general_operand" "=f")
  14901. +     (sqrt:XF (match_operand:DF 1 "nonimmediate_operand" "fm")))]
  14902. +   "TARGET_68881"
  14903. +   "*
  14904. + {
  14905. +     return \"fsqrt%.x %1,%0\";
  14906. + }")
  14907. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/par.s.diff gnat-1.80/amiga/corrections/par.s.diff
  14908. *** /src/baseline/gnat-1.80/amiga/corrections/par.s.diff    Thu Jan  1 00:00:00 1970
  14909. --- gnat-1.80/amiga/corrections/par.s.diff    Thu Jun 23 13:13:16 1994
  14910. ***************
  14911. *** 0 ****
  14912. --- 1,16 ----
  14913. + *** par.s    Sun Jun 19 00:42:42 1994
  14914. + --- par.s!    Sun Jun 19 00:30:21 1994
  14915. + ***************
  14916. + *** 11807,11812 ****
  14917. +       jbsr _system__task_specific_data__set_jmpbuf_address
  14918. +       addqw #4,sp
  14919. + !     bfextu a5@(10){#7:#1},d0
  14920. + !     tstb d0
  14921. +       jne L835
  14922. +       jra L834
  14923. + --- 11807,11811 ----
  14924. +       jbsr _system__task_specific_data__set_jmpbuf_address
  14925. +       addqw #4,sp
  14926. + !     tstb a5@(10)
  14927. +       jne L835
  14928. +       jra L834
  14929. diff -rc --new-file /src/baseline/gnat-1.80/amiga/corrections/uintp.adb.diff gnat-1.80/amiga/corrections/uintp.adb.diff
  14930. *** /src/baseline/gnat-1.80/amiga/corrections/uintp.adb.diff    Thu Jan  1 00:00:00 1970
  14931. --- gnat-1.80/amiga/corrections/uintp.adb.diff    Thu Jun 23 13:13:17 1994
  14932. ***************
  14933. *** 0 ****
  14934. --- 1,47 ----
  14935. + *** uintp.adb.orig    Sun Jun 19 05:23:18 1994
  14936. + --- uintp.adb    Sun Jun 19 09:56:09 1994
  14937. + ***************
  14938. + *** 232,235 ****
  14939. + --- 232,236 ----
  14940. +      procedure Init_Operand (UI : Uint; Vec : out UI_Vector) is
  14941. +         Loc : Int;
  14942. + +       tempa : Int;
  14943. +   
  14944. +      begin
  14945. + ***************
  14946. + *** 240,244 ****
  14947. +   
  14948. +            for J in 1 .. Uints.Table (UI).Length loop
  14949. + !             Vec (J) := Udigits.Table (Loc + J - 1);
  14950. +            end loop;
  14951. +         end if;
  14952. + --- 241,246 ----
  14953. +   
  14954. +            for J in 1 .. Uints.Table (UI).Length loop
  14955. + !             Tempa := Loc + J - 1;
  14956. + !             Vec (J) := Udigits.Table (tempa);
  14957. +            end loop;
  14958. +         end if;
  14959. + ***************
  14960. + *** 694,697 ****
  14961. + --- 696,700 ----
  14962. +               Length : Int := Uints.Table (Right).Length;
  14963. +               Loc    : Int := Uints.Table (Right).Loc;
  14964. + +             tempa, tempb : Int;
  14965. +   
  14966. +            begin
  14967. + ***************
  14968. + *** 705,709 ****
  14969. +               for Idx in 2 .. Length loop
  14970. +                  Udigits.Increment_Last;
  14971. + !                Udigits.Table (Udigits.Last) := Udigits.Table (Loc + Idx - 1);
  14972. +               end loop;
  14973. +   
  14974. + --- 708,714 ----
  14975. +               for Idx in 2 .. Length loop
  14976. +                  Udigits.Increment_Last;
  14977. + !                tempa := Udigits.Last;
  14978. + !                tempb := Loc + Idx - 1;
  14979. + !                Udigits.Table (tempa) := Udigits.Table (tempb);
  14980. +               end loop;
  14981. +   
  14982. diff -rc --new-file /src/baseline/gnat-1.80/amiga/gcc-2.5.8.diffs gnat-1.80/amiga/gcc-2.5.8.diffs
  14983. *** /src/baseline/gnat-1.80/amiga/gcc-2.5.8.diffs    Thu Jan  1 00:00:00 1970
  14984. --- gnat-1.80/amiga/gcc-2.5.8.diffs    Sat Jul  9 08:50:19 1994
  14985. ***************
  14986. *** 0 ****
  14987. --- 1,8981 ----
  14988. + diff -rc --new-file gcc-2.5.8-fsf/INSTALL gcc-2.5.8/INSTALL
  14989. + *** gcc-2.5.8-fsf/INSTALL    Sat Nov 27 19:47:57 1993
  14990. + --- gcc-2.5.8/INSTALL    Tue Feb 22 11:26:44 1994
  14991. + ***************
  14992. + *** 518,536 ****
  14993. +             files do not exist, it means nothing needs to be added for a
  14994. +             given target or host.
  14995. +   
  14996. + !   4. The standard directory for installing GNU CC is `/usr/local/lib'.
  14997. +        If you want to install its files somewhere else, specify
  14998. +        `--prefix=DIR' when you run `configure'.  Here DIR is a directory
  14999. + !      name to use instead of `/usr/local' for all purposes with one
  15000. + !      exception: the directory `/usr/local/include' is searched for
  15001. +        header files no matter where you install the compiler.
  15002. +   
  15003. +     5. Specify `--local-prefix=DIR' if you want the compiler to search
  15004. +        directory `DIR/include' for header files *instead* of
  15005. + !      `/usr/local/include'.  (This is for systems that have different
  15006. +        conventions for where to put site-specific things.)
  15007. +   
  15008. + !      Unless you have a convention other than `/usr/local' for
  15009. +        site-specific files, it is a bad idea to specify `--local-prefix'.
  15010. +   
  15011. +     6. Make sure the Bison parser generator is installed.  (This is
  15012. + --- 518,536 ----
  15013. +             files do not exist, it means nothing needs to be added for a
  15014. +             given target or host.
  15015. +   
  15016. + !   4. The standard directory for installing GNU CC is `/gnu/lib'.
  15017. +        If you want to install its files somewhere else, specify
  15018. +        `--prefix=DIR' when you run `configure'.  Here DIR is a directory
  15019. + !      name to use instead of `/gnu' for all purposes with one
  15020. + !      exception: the directory `/gnu/include' is searched for
  15021. +        header files no matter where you install the compiler.
  15022. +   
  15023. +     5. Specify `--local-prefix=DIR' if you want the compiler to search
  15024. +        directory `DIR/include' for header files *instead* of
  15025. + !      `/gnu/include'.  (This is for systems that have different
  15026. +        conventions for where to put site-specific things.)
  15027. +   
  15028. + !      Unless you have a convention other than `/gnu' for
  15029. +        site-specific files, it is a bad idea to specify `--local-prefix'.
  15030. +   
  15031. +     6. Make sure the Bison parser generator is installed.  (This is
  15032. + ***************
  15033. + *** 582,588 ****
  15034. +        If you are building with a previous GNU C compiler, do not use
  15035. +        `CC=gcc' on the make command or by editing the Makefile.  Instead,
  15036. +        use a full pathname to specify the compiler, such as
  15037. + !      `CC=/usr/local/bin/gcc'.  This is because make might execute the
  15038. +        `gcc' in the current directory before all of the compiler
  15039. +        components have been built.
  15040. +   
  15041. + --- 582,588 ----
  15042. +        If you are building with a previous GNU C compiler, do not use
  15043. +        `CC=gcc' on the make command or by editing the Makefile.  Instead,
  15044. +        use a full pathname to specify the compiler, such as
  15045. + !      `CC=/gnu/bin/gcc'.  This is because make might execute the
  15046. +        `gcc' in the current directory before all of the compiler
  15047. +        components have been built.
  15048. +   
  15049. + ***************
  15050. + *** 707,720 ****
  15051. +   
  15052. +        This copies the files `cc1', `cpp' and `libgcc.a' to files `cc1',
  15053. +        `cpp' and `libgcc.a' in the directory
  15054. + !      `/usr/local/lib/gcc-lib/TARGET/VERSION', which is where the
  15055. +        compiler driver program looks for them.  Here TARGET is the target
  15056. +        machine type specified when you ran `configure', and VERSION is
  15057. +        the version number of GNU CC.  This naming scheme permits various
  15058. +        versions and/or cross-compilers to coexist.
  15059. +   
  15060. +        This also copies the driver program `xgcc' into
  15061. + !      `/usr/local/bin/gcc', so that it appears in typical execution
  15062. +        search paths.
  15063. +   
  15064. +        On some systems, this command causes recompilation of some files.
  15065. + --- 707,720 ----
  15066. +   
  15067. +        This copies the files `cc1', `cpp' and `libgcc.a' to files `cc1',
  15068. +        `cpp' and `libgcc.a' in the directory
  15069. + !      `/gnu/lib/gcc-lib/TARGET/VERSION', which is where the
  15070. +        compiler driver program looks for them.  Here TARGET is the target
  15071. +        machine type specified when you ran `configure', and VERSION is
  15072. +        the version number of GNU CC.  This naming scheme permits various
  15073. +        versions and/or cross-compilers to coexist.
  15074. +   
  15075. +        This also copies the driver program `xgcc' into
  15076. + !      `/gnu/bin/gcc', so that it appears in typical execution
  15077. +        search paths.
  15078. +   
  15079. +        On some systems, this command causes recompilation of some files.
  15080. + ***************
  15081. + *** 854,860 ****
  15082. +   ----------------------------------------
  15083. +   
  15084. +      If you have a cross-assembler and cross-linker available, you should
  15085. + ! install them now.  Put them in the directory `/usr/local/TARGET/bin'.
  15086. +   Here is a table of the tools you should put in this directory:
  15087. +   
  15088. +   `as'
  15089. + --- 854,860 ----
  15090. +   ----------------------------------------
  15091. +   
  15092. +      If you have a cross-assembler and cross-linker available, you should
  15093. + ! install them now.  Put them in the directory `/gnu/TARGET/bin'.
  15094. +   Here is a table of the tools you should put in this directory:
  15095. +   
  15096. +   `as'
  15097. + ***************
  15098. + *** 884,896 ****
  15099. +   
  15100. +      If you want to install libraries to use with the cross-compiler,
  15101. +   such as a standard C library, put them in the directory
  15102. + ! `/usr/local/TARGET/lib'; installation of GNU CC copies all all the
  15103. +   files in that subdirectory into the proper place for GNU CC to find
  15104. +   them and link with them.  Here's an example of copying some libraries
  15105. +   from a target machine:
  15106. +   
  15107. +        ftp TARGET-MACHINE
  15108. + !      lcd /usr/local/TARGET/lib
  15109. +        cd /lib
  15110. +        get libc.a
  15111. +        cd /usr/lib
  15112. + --- 884,896 ----
  15113. +   
  15114. +      If you want to install libraries to use with the cross-compiler,
  15115. +   such as a standard C library, put them in the directory
  15116. + ! `/gnu/TARGET/lib'; installation of GNU CC copies all all the
  15117. +   files in that subdirectory into the proper place for GNU CC to find
  15118. +   them and link with them.  Here's an example of copying some libraries
  15119. +   from a target machine:
  15120. +   
  15121. +        ftp TARGET-MACHINE
  15122. + !      lcd /gnu/TARGET/lib
  15123. +        cd /lib
  15124. +        get libc.a
  15125. +        cd /usr/lib
  15126. + ***************
  15127. + *** 903,916 ****
  15128. +   
  15129. +      Many targets require "start files" such as `crt0.o' and `crtn.o'
  15130. +   which are linked into each executable; these too should be placed in
  15131. + ! `/usr/local/TARGET/lib'.  There may be several alternatives for
  15132. +   `crt0.o', for use with profiling or other compilation options.  Check
  15133. +   your target's definition of `STARTFILE_SPEC' to find out what start
  15134. +   files it uses.  Here's an example of copying these files from a target
  15135. +   machine:
  15136. +   
  15137. +        ftp TARGET-MACHINE
  15138. + !      lcd /usr/local/TARGET/lib
  15139. +        prompt
  15140. +        cd /lib
  15141. +        mget *crt*.o
  15142. + --- 903,916 ----
  15143. +   
  15144. +      Many targets require "start files" such as `crt0.o' and `crtn.o'
  15145. +   which are linked into each executable; these too should be placed in
  15146. + ! `/gnu/TARGET/lib'.  There may be several alternatives for
  15147. +   `crt0.o', for use with profiling or other compilation options.  Check
  15148. +   your target's definition of `STARTFILE_SPEC' to find out what start
  15149. +   files it uses.  Here's an example of copying these files from a target
  15150. +   machine:
  15151. +   
  15152. +        ftp TARGET-MACHINE
  15153. + !      lcd /gnu/TARGET/lib
  15154. +        prompt
  15155. +        cd /lib
  15156. +        mget *crt*.o
  15157. + ***************
  15158. + *** 1023,1029 ****
  15159. +   cross-compiling.
  15160. +   
  15161. +      When you have found suitable header files, put them in
  15162. + ! `/usr/local/TARGET/include', before building the cross compiler.  Then
  15163. +   installation will run fixincludes properly and install the corrected
  15164. +   versions of the header files where the compiler will use them.
  15165. +   
  15166. + --- 1023,1029 ----
  15167. +   cross-compiling.
  15168. +   
  15169. +      When you have found suitable header files, put them in
  15170. + ! `/gnu/TARGET/include', before building the cross compiler.  Then
  15171. +   installation will run fixincludes properly and install the corrected
  15172. +   versions of the header files where the compiler will use them.
  15173. +   
  15174. + ***************
  15175. + *** 1040,1046 ****
  15176. +      Then, on the host machine, do this:
  15177. +   
  15178. +        ftp TARGET-MACHINE
  15179. + !      lcd /usr/local/TARGET/include
  15180. +        get tarfile
  15181. +        quit
  15182. +        tar xf tarfile
  15183. + --- 1040,1046 ----
  15184. +      Then, on the host machine, do this:
  15185. +   
  15186. +        ftp TARGET-MACHINE
  15187. + !      lcd /gnu/TARGET/include
  15188. +        get tarfile
  15189. +        quit
  15190. +        tar xf tarfile
  15191. + ***************
  15192. + *** 1098,1104 ****
  15193. +   `jaguar.cs.utah.edu' `dist' subdirectory.  You would need to install
  15194. +   GAS in the file
  15195. +   
  15196. + !      /usr/local/lib/gcc-lib/CONFIGURATION/GCCVERSION/as
  15197. +   
  15198. +   where CONFIGURATION is the configuration name (perhaps `hpNNN-hpux')
  15199. +   and GCCVERSION is the GNU CC version number.  Do this *before* starting
  15200. + --- 1098,1104 ----
  15201. +   `jaguar.cs.utah.edu' `dist' subdirectory.  You would need to install
  15202. +   GAS in the file
  15203. +   
  15204. + !      /gnu/lib/gcc-lib/CONFIGURATION/GCCVERSION/as
  15205. +   
  15206. +   where CONFIGURATION is the configuration name (perhaps `hpNNN-hpux')
  15207. +   and GCCVERSION is the GNU CC version number.  Do this *before* starting
  15208. + ***************
  15209. + *** 1618,1625 ****
  15210. +   target independent header files in that directory.
  15211. +   
  15212. +      `LOCAL_INCLUDE_DIR' is used only for a native compiler.  It is
  15213. + ! normally `/usr/local/include'.  GNU CC searches this directory so that
  15214. + ! users can install header files in `/usr/local/include'.
  15215. +   
  15216. +      `CROSS_INCLUDE_DIR' is used only for a cross compiler.  GNU CC
  15217. +   doesn't install anything there.
  15218. + --- 1618,1625 ----
  15219. +   target independent header files in that directory.
  15220. +   
  15221. +      `LOCAL_INCLUDE_DIR' is used only for a native compiler.  It is
  15222. + ! normally `/gnu/include'.  GNU CC searches this directory so that
  15223. + ! users can install header files in `/gnu/include'.
  15224. +   
  15225. +      `CROSS_INCLUDE_DIR' is used only for a cross compiler.  GNU CC
  15226. +   doesn't install anything there.
  15227. + diff -rc --new-file gcc-2.5.8-fsf/Makefile.in gcc-2.5.8/Makefile.in
  15228. + *** gcc-2.5.8-fsf/Makefile.in    Thu Dec 23 23:13:50 1993
  15229. + --- gcc-2.5.8/Makefile.in    Tue Feb 22 11:26:49 1994
  15230. + ***************
  15231. + *** 58,68 ****
  15232. +   AR_FLAGS = rc
  15233. +   SHELL = /bin/sh
  15234. +   # on sysV, define this as cp.
  15235. + ! INSTALL = install -c
  15236. +   # These permit overriding just for certain files.
  15237. +   INSTALL_PROGRAM = $(INSTALL)
  15238. +   INSTALL_DATA = $(INSTALL)
  15239. +   SYMLINK = ln -s
  15240. +   MAKEINFO = makeinfo
  15241. +   TEXI2DVI = texi2dvi
  15242. +   
  15243. + --- 58,71 ----
  15244. +   AR_FLAGS = rc
  15245. +   SHELL = /bin/sh
  15246. +   # on sysV, define this as cp.
  15247. + ! INSTALL = cp
  15248. +   # These permit overriding just for certain files.
  15249. +   INSTALL_PROGRAM = $(INSTALL)
  15250. +   INSTALL_DATA = $(INSTALL)
  15251. +   SYMLINK = ln -s
  15252. + + # Some systems don't support hardlinks.  For this case, a simple copy
  15253. + + # will achieve the same results for our purposes.
  15254. + + HARDLINK = ln
  15255. +   MAKEINFO = makeinfo
  15256. +   TEXI2DVI = texi2dvi
  15257. +   
  15258. + ***************
  15259. + *** 90,102 ****
  15260. +   OLDAR = ar
  15261. +   
  15262. +   # Target to use when installing include directory.  Either
  15263. + ! # install-headers-tar or install-headers-cpio.
  15264. +   INSTALL_HEADERS_DIR = install-headers-tar
  15265. +   
  15266. +   # The GCC to use for compiling libgcc2.a, enquire, and cross-test.
  15267. +   # Usually the one we just built.
  15268. +   # Don't use this as a dependency--use $(GCC_PASSES) or $(GCC_PARTS).
  15269. + ! GCC_FOR_TARGET = ./xgcc -B./
  15270. +   
  15271. +   # This is used instead of ALL_CFLAGS when compiling with GCC_FOR_TARGET.
  15272. +   # It omits XCFLAGS, and specifies -B./.
  15273. + --- 93,106 ----
  15274. +   OLDAR = ar
  15275. +   
  15276. +   # Target to use when installing include directory.  Either
  15277. + ! # install-headers-tar install-headers-cpio, or install-headers-cp.
  15278. +   INSTALL_HEADERS_DIR = install-headers-tar
  15279. +   
  15280. +   # The GCC to use for compiling libgcc2.a, enquire, and cross-test.
  15281. +   # Usually the one we just built.
  15282. +   # Don't use this as a dependency--use $(GCC_PASSES) or $(GCC_PARTS).
  15283. + ! XGCC = xgcc
  15284. + ! GCC_FOR_TARGET = ./$(XGCC) -B./
  15285. +   
  15286. +   # This is used instead of ALL_CFLAGS when compiling with GCC_FOR_TARGET.
  15287. +   # It omits XCFLAGS, and specifies -B./.
  15288. + ***************
  15289. + *** 141,152 ****
  15290. +   srcdir = .
  15291. +   # Common prefix for installation directories.
  15292. +   # NOTE: This directory must exist when you start installation.
  15293. + ! prefix = /usr/local
  15294. +   # Directory in which to put localized header files. On the systems with
  15295. +   # gcc as the native cc, `local_prefix' may not be `prefix' which is
  15296. +   # `/usr'.
  15297. +   # NOTE: local_prefix *should not* default from prefix.
  15298. + ! local_prefix = /usr/local
  15299. +   # Directory in which to put host dependent programs and libraries
  15300. +   exec_prefix = $(prefix)
  15301. +   # Directory in which to put the executable for the command `gcc'
  15302. + --- 145,159 ----
  15303. +   srcdir = .
  15304. +   # Common prefix for installation directories.
  15305. +   # NOTE: This directory must exist when you start installation.
  15306. + ! prefix = /gnu
  15307. +   # Directory in which to put localized header files. On the systems with
  15308. +   # gcc as the native cc, `local_prefix' may not be `prefix' which is
  15309. +   # `/usr'.
  15310. + + # Similar considerations apply for toolkits located on non-writable storage,
  15311. + + # such as CD-ROM, where we need a completely separate place to put local
  15312. + + # include files.
  15313. +   # NOTE: local_prefix *should not* default from prefix.
  15314. + ! local_prefix = /gnu
  15315. +   # Directory in which to put host dependent programs and libraries
  15316. +   exec_prefix = $(prefix)
  15317. +   # Directory in which to put the executable for the command `gcc'
  15318. + ***************
  15319. + *** 161,171 ****
  15320. +   # (But this currently agrees with what is in cross-make.)
  15321. +   assertdir = $(tooldir)/include
  15322. +   # where the info files go
  15323. + ! infodir = $(prefix)/info
  15324. +   # Extension (if any) to put in installed man-page filename.
  15325. +   manext = .1
  15326. +   # Directory in which to put man pages.
  15327. + ! mandir = $(prefix)/man/man1
  15328. +   # Directory in which to find other cross-compilation tools and headers.
  15329. +   # Used in install-cross.
  15330. +   tooldir = $(exec_prefix)/$(target)
  15331. + --- 168,178 ----
  15332. +   # (But this currently agrees with what is in cross-make.)
  15333. +   assertdir = $(tooldir)/include
  15334. +   # where the info files go
  15335. + ! infodir = /info
  15336. +   # Extension (if any) to put in installed man-page filename.
  15337. +   manext = .1
  15338. +   # Directory in which to put man pages.
  15339. + ! mandir = /man/man1
  15340. +   # Directory in which to find other cross-compilation tools and headers.
  15341. +   # Used in install-cross.
  15342. +   tooldir = $(exec_prefix)/$(target)
  15343. + ***************
  15344. + *** 549,555 ****
  15345. +       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o xgcc gcc.o version.o $(LIBS)
  15346. +   
  15347. +   # Dump a specs file to make -B./ read these specs over installed ones.
  15348. + ! specs: xgcc
  15349. +       $(GCC_FOR_TARGET) -dumpspecs > specs
  15350. +   
  15351. +   # Create the compiler driver for g++.
  15352. + --- 556,562 ----
  15353. +       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o xgcc gcc.o version.o $(LIBS)
  15354. +   
  15355. +   # Dump a specs file to make -B./ read these specs over installed ones.
  15356. + ! specs: xgcc xgccv
  15357. +       $(GCC_FOR_TARGET) -dumpspecs > specs
  15358. +   
  15359. +   # Create the compiler driver for g++.
  15360. + ***************
  15361. + *** 752,759 ****
  15362. +   # the second ar command tries to overwrite this file.  To avoid the error
  15363. +   # message from ar, we make sure all files are writable.
  15364. +       -(cd tmpcopy; chmod +w * > /dev/null 2>&1)
  15365. + !     (cd tmpcopy; $(AR) x ../$(LIBGCC2))
  15366. + !     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o)
  15367. +       rm -rf tmpcopy
  15368. +       -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  15369. +   # Actually build it in tmplibgcc.a, then rename at end,
  15370. + --- 759,767 ----
  15371. +   # the second ar command tries to overwrite this file.  To avoid the error
  15372. +   # message from ar, we make sure all files are writable.
  15373. +       -(cd tmpcopy; chmod +w * > /dev/null 2>&1)
  15374. + ! # The "cd..; wait" makes sure that the lock on tmpcopy has time to disappear.
  15375. + !     (cd tmpcopy; $(AR) x ../$(LIBGCC2); cd ..; /c/wait 2)
  15376. + !     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o; cd ..; /c/wait 2)
  15377. +       rm -rf tmpcopy
  15378. +       -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  15379. +   # Actually build it in tmplibgcc.a, then rename at end,
  15380. + ***************
  15381. + *** 770,779 ****
  15382. +       cd objc; \
  15383. +       $(MAKE) -f $${srcdir1}/objc/Makefile libobjc.a \
  15384. +         srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15385. + !       GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
  15386. +         GCC_CFLAGS="$(GCC_CFLAGS)"
  15387. +       -rm -f libobjc.a
  15388. + !     ln objc/libobjc.a . >/dev/null 2>&1 || cp objc/libobjc.a .
  15389. +       -if $(RANLIB_TEST) ; then $(RANLIB) libobjc.a; else true; fi
  15390. +   
  15391. +   # This is used by objc/Makefile if the user runs that directly.
  15392. + --- 778,787 ----
  15393. +       cd objc; \
  15394. +       $(MAKE) -f $${srcdir1}/objc/Makefile libobjc.a \
  15395. +         srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15396. + !       GCC_FOR_TARGET="$${thisdir1}/$(XGCC) -B$${thisdir1}/" \
  15397. +         GCC_CFLAGS="$(GCC_CFLAGS)"
  15398. +       -rm -f libobjc.a
  15399. + !     cp objc/libobjc.a . >/dev/null 2>&1 || cp objc/libobjc.a .
  15400. +       -if $(RANLIB_TEST) ; then $(RANLIB) libobjc.a; else true; fi
  15401. +   
  15402. +   # This is used by objc/Makefile if the user runs that directly.
  15403. + ***************
  15404. + *** 783,789 ****
  15405. +       cd objc; \
  15406. +       $(MAKE) -f $$srcdir1/objc/Makefile libobjc.a \
  15407. +         srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15408. + !       GCC_FOR_TARGET="$$thisdir1/xgcc -B$$thisdir1/" \
  15409. +         GCC_CFLAGS="$(GCC_CFLAGS)"
  15410. +   
  15411. +   # Compile two additional files that are linked with every program
  15412. + --- 791,797 ----
  15413. +       cd objc; \
  15414. +       $(MAKE) -f $$srcdir1/objc/Makefile libobjc.a \
  15415. +         srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15416. + !       GCC_FOR_TARGET="$$thisdir1/$(XGCC) -B$$thisdir1/" \
  15417. +         GCC_CFLAGS="$(GCC_CFLAGS)"
  15418. +   
  15419. +   # Compile two additional files that are linked with every program
  15420. + ***************
  15421. + *** 872,878 ****
  15422. +   # To make a configuration always use collect2, set USE_COLLECT2 to ld.
  15423. +   ld: collect2
  15424. +       rm -f ld
  15425. + !     ln collect2 ld
  15426. +   
  15427. +   collect2 : collect2.o version.o $(LIBDEPS)
  15428. +   # Don't try modifying collect2 (aka ld) in place--it might be linking this.
  15429. + --- 880,886 ----
  15430. +   # To make a configuration always use collect2, set USE_COLLECT2 to ld.
  15431. +   ld: collect2
  15432. +       rm -f ld
  15433. + !     cp collect2 ld
  15434. +   
  15435. +   collect2 : collect2.o version.o $(LIBDEPS)
  15436. +   # Don't try modifying collect2 (aka ld) in place--it might be linking this.
  15437. + ***************
  15438. + *** 1383,1389 ****
  15439. +   # Making the preprocessor
  15440. +   cpp: cccp
  15441. +       -rm -f cpp
  15442. + !     ln cccp cpp
  15443. +   cccp: cccp.o cexp.o version.o $(LIBDEPS)
  15444. +       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cccp cccp.o cexp.o version.o $(LIBS)
  15445. +   cexp.o: $(srcdir)/cexp.c $(CONFIG_H)
  15446. + --- 1391,1397 ----
  15447. +   # Making the preprocessor
  15448. +   cpp: cccp
  15449. +       -rm -f cpp
  15450. + !     cp cccp cpp
  15451. +   cccp: cccp.o cexp.o version.o $(LIBDEPS)
  15452. +       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cccp cccp.o cexp.o version.o $(LIBS)
  15453. +   cexp.o: $(srcdir)/cexp.c $(CONFIG_H)
  15454. + ***************
  15455. + *** 1541,1547 ****
  15456. +         for dir in $(SYSTEM_HEADER_DIR) $(OTHER_FIXINCLUDES_DIRS); do \
  15457. +           if [ -d $$dir ]; \
  15458. +           then \
  15459. + !           $(srcdir)/$(FIXINCLUDES) include $$dir $(srcdir) "`pwd`/xgcc -B`pwd`/"; \
  15460. +           else true; fi; \
  15461. +         done; \
  15462. +       else true; \
  15463. + --- 1549,1555 ----
  15464. +         for dir in $(SYSTEM_HEADER_DIR) $(OTHER_FIXINCLUDES_DIRS); do \
  15465. +           if [ -d $$dir ]; \
  15466. +           then \
  15467. + !           $(srcdir)/$(FIXINCLUDES) include $$dir $(srcdir) "`pwd`/$(XGCC) -B`pwd`/"; \
  15468. +           else true; fi; \
  15469. +         done; \
  15470. +       else true; \
  15471. + ***************
  15472. + *** 1563,1569 ****
  15473. +       cd objc; \
  15474. +       $(MAKE) -f $${srcdir1}/objc/Makefile copy-headers \
  15475. +       srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15476. + !     GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
  15477. +       GCC_CFLAGS="$(GCC_CFLAGS)" incinstalldir=$${thisdir1}/include
  15478. +       touch objc-headers
  15479. +   
  15480. + --- 1571,1577 ----
  15481. +       cd objc; \
  15482. +       $(MAKE) -f $${srcdir1}/objc/Makefile copy-headers \
  15483. +       srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
  15484. + !     GCC_FOR_TARGET="$${thisdir1}/$(XGCC) -B$${thisdir1}/" \
  15485. +       GCC_CFLAGS="$(GCC_CFLAGS)" incinstalldir=$${thisdir1}/include
  15486. +       touch objc-headers
  15487. +   
  15488. + ***************
  15489. + *** 1845,1864 ****
  15490. +           $(INSTALL_PROGRAM) g++-cross $(bindir)/$(target)-g++; \
  15491. +           chmod a+x $(bindir)/$(target)-g++; \
  15492. +           rm -f $(bindir)/$(target)-c++; \
  15493. + !         ln $(bindir)/$(target)-g++ $(bindir)/$(target)-c++; \
  15494. +         fi ; \
  15495. +       else \
  15496. +         rm -f $(bindir)/gcc; \
  15497. +         $(INSTALL_PROGRAM) xgcc $(bindir)/gcc; \
  15498. +         rm -f $(bindir)/$(target)-gcc-1; \
  15499. + !       ln $(bindir)/gcc $(bindir)/$(target)-gcc-1; \
  15500. +         mv $(bindir)/$(target)-gcc-1 $(bindir)/$(target)-gcc; \
  15501. +         if [ -f cc1plus ] ; then \
  15502. +           rm -f $(bindir)/g++; \
  15503. +           $(INSTALL_PROGRAM) g++ $(bindir)/g++; \
  15504. +           chmod a+x $(bindir)/g++; \
  15505. +           rm -f $(bindir)/c++; \
  15506. + !         ln $(bindir)/g++ $(bindir)/c++; \
  15507. +         fi ; \
  15508. +       fi
  15509. +   # Install protoize if it was compiled.
  15510. + --- 1853,1872 ----
  15511. +           $(INSTALL_PROGRAM) g++-cross $(bindir)/$(target)-g++; \
  15512. +           chmod a+x $(bindir)/$(target)-g++; \
  15513. +           rm -f $(bindir)/$(target)-c++; \
  15514. + !         $(HARDLINK) $(bindir)/$(target)-g++ $(bindir)/$(target)-c++; \
  15515. +         fi ; \
  15516. +       else \
  15517. +         rm -f $(bindir)/gcc; \
  15518. +         $(INSTALL_PROGRAM) xgcc $(bindir)/gcc; \
  15519. +         rm -f $(bindir)/$(target)-gcc-1; \
  15520. + !       $(HARDLINK) $(bindir)/gcc $(bindir)/$(target)-gcc-1; \
  15521. +         mv $(bindir)/$(target)-gcc-1 $(bindir)/$(target)-gcc; \
  15522. +         if [ -f cc1plus ] ; then \
  15523. +           rm -f $(bindir)/g++; \
  15524. +           $(INSTALL_PROGRAM) g++ $(bindir)/g++; \
  15525. +           chmod a+x $(bindir)/g++; \
  15526. +           rm -f $(bindir)/c++; \
  15527. + !         $(HARDLINK) $(bindir)/g++ $(bindir)/c++; \
  15528. +         fi ; \
  15529. +       fi
  15530. +   # Install protoize if it was compiled.
  15531. + ***************
  15532. + *** 1924,1930 ****
  15533. +           dest=`ls -ld $(libsubdir)/include/$$i | sed -n 's/.*-> //p'`; \
  15534. +           if expr "$$dest" : "$$dir.*" > /dev/null; then \
  15535. +             rm -f $(libsubdir)/include/$$i; \
  15536. + !           ln -s `echo $$i | sed "s|/[^/]*|/..|g" | sed 's|/..$$||'``echo "$$dest" | sed "s|$$dir||"` $(libsubdir)/include/$$i; \
  15537. +           fi; \
  15538. +         done; \
  15539. +       fi
  15540. + --- 1932,1938 ----
  15541. +           dest=`ls -ld $(libsubdir)/include/$$i | sed -n 's/.*-> //p'`; \
  15542. +           if expr "$$dest" : "$$dir.*" > /dev/null; then \
  15543. +             rm -f $(libsubdir)/include/$$i; \
  15544. + !           $(HARDLINK) -s `echo $$i | sed "s|/[^/]*|/..|g" | sed 's|/..$$||'``echo "$$dest" | sed "s|$$dir||"` $(libsubdir)/include/$$i; \
  15545. +           fi; \
  15546. +         done; \
  15547. +       fi
  15548. + ***************
  15549. + *** 1947,1952 ****
  15550. + --- 1955,1964 ----
  15551. +   install-headers-cpio: stmp-headers $(STMP_FIXPROTO) install-include-dir
  15552. +       cd include; find . -print | cpio -pdum $(libsubdir)/include
  15553. +   
  15554. + + # Install the include directory using simple recursive copy.
  15555. + + install-headers-cp: stmp-headers install-include-dir
  15556. + +     cd include; cp -r . $(libsubdir)/include
  15557. + + 
  15558. +   # Put assert.h where it won't override GNU libc's assert.h.
  15559. +   # It goes in a dir that is searched after GNU libc's headers;
  15560. +   # thus, the following conditionals are no longer needed.
  15561. + ***************
  15562. + *** 2034,2040 ****
  15563. +       mkdir tmp/config
  15564. +       mkdir tmp/objc
  15565. +       for file in *[0-9a-zA-Z+]; do \
  15566. + !       ln $$file tmp > /dev/null 2>&1 || cp $$file tmp; \
  15567. +       done
  15568. +       cd config; \
  15569. +       for file in *[0-9a-zA-Z+]; do \
  15570. + --- 2046,2052 ----
  15571. +       mkdir tmp/config
  15572. +       mkdir tmp/objc
  15573. +       for file in *[0-9a-zA-Z+]; do \
  15574. + !       $(HARDLINK) $$file tmp > /dev/null 2>&1 || cp $$file tmp; \
  15575. +       done
  15576. +       cd config; \
  15577. +       for file in *[0-9a-zA-Z+]; do \
  15578. + ***************
  15579. + *** 2042,2061 ****
  15580. +           mkdir ../tmp/config/$$file; \
  15581. +           cd $$file; \
  15582. +           for subfile in *[0-9a-zA-Z+]; do \
  15583. + !           ln $$subfile ../../tmp/config/$$file >/dev/null 2>&1 \
  15584. +             || cp $$subfile ../../tmp/config/$$file; \
  15585. +           done; \
  15586. +           cd ..; \
  15587. +         else \
  15588. + !         ln $$file ../tmp/config >/dev/null 2>&1 \
  15589. +           || cp $$file ../tmp/config; \
  15590. +         fi; \
  15591. +       done
  15592. +       cd objc; \
  15593. +       for file in *[0-9a-zA-Z+]; do \
  15594. + !       ln $$file ../tmp/objc >/dev/null 2>&1 || cp $$file ../tmp/objc; \
  15595. +       done
  15596. + !     ln .gdbinit tmp
  15597. +       mv tmp gcc-$(version)
  15598. +   # Get rid of everything we don't want in the distribution.
  15599. +       cd gcc-$(version); make -f Makefile.in extraclean
  15600. + --- 2054,2073 ----
  15601. +           mkdir ../tmp/config/$$file; \
  15602. +           cd $$file; \
  15603. +           for subfile in *[0-9a-zA-Z+]; do \
  15604. + !           $(HARDLINK) $$subfile ../../tmp/config/$$file >/dev/null 2>&1 \
  15605. +             || cp $$subfile ../../tmp/config/$$file; \
  15606. +           done; \
  15607. +           cd ..; \
  15608. +         else \
  15609. + !         $(HARDLINK) $$file ../tmp/config >/dev/null 2>&1 \
  15610. +           || cp $$file ../tmp/config; \
  15611. +         fi; \
  15612. +       done
  15613. +       cd objc; \
  15614. +       for file in *[0-9a-zA-Z+]; do \
  15615. + !       $(HARDLINK) $$file ../tmp/objc >/dev/null 2>&1 || cp $$file ../tmp/objc; \
  15616. +       done
  15617. + !     $(HARDLINK) .gdbinit tmp
  15618. +       mv tmp gcc-$(version)
  15619. +   # Get rid of everything we don't want in the distribution.
  15620. +       cd gcc-$(version); make -f Makefile.in extraclean
  15621. + ***************
  15622. + *** 2074,2090 ****
  15623. +   # in the intended test directory to make it a suitable test directory.
  15624. +   # THIS IS OBSOLETE; use the -srcdir operand in configure instead. 
  15625. +   maketest:
  15626. + !     ln -s $(DIR)/*.[chy] .
  15627. + !     ln -s $(DIR)/configure .
  15628. + !     ln -s $(DIR)/*.def .
  15629. +       -rm -f =*
  15630. + !     ln -s $(DIR)/.gdbinit .
  15631. + !     ln -s $(DIR)/$(FIXINCLUDES) .
  15632. + !     -ln -s $(DIR)/bison.simple .
  15633. + !     ln -s $(DIR)/config .
  15634. + !     ln -s $(DIR)/move-if-change .
  15635. +   # The then and else were swapped to avoid a problem on Ultrix.
  15636. + !     if [ ! -f Makefile ] ; then ln -s $(DIR)/Makefile .; else false; fi
  15637. +       -rm tm.h aux-output.c config.h md
  15638. +       make clean
  15639. +   # You must then run config to set up for compilation.
  15640. + --- 2086,2102 ----
  15641. +   # in the intended test directory to make it a suitable test directory.
  15642. +   # THIS IS OBSOLETE; use the -srcdir operand in configure instead. 
  15643. +   maketest:
  15644. + !     cp $(DIR)/*.[chy] .
  15645. + !     cp $(DIR)/configure .
  15646. + !     cp $(DIR)/*.def .
  15647. +       -rm -f =*
  15648. + !     cp $(DIR)/.gdbinit .
  15649. + !     cp $(DIR)/$(FIXINCLUDES) .
  15650. + !     -cp $(DIR)/bison.simple .
  15651. + !     cp $(DIR)/config .
  15652. + !     cp $(DIR)/move-if-change .
  15653. +   # The then and else were swapped to avoid a problem on Ultrix.
  15654. + !     if [ ! -f Makefile ] ; then cp $(DIR)/Makefile .; else false; fi
  15655. +       -rm tm.h aux-output.c config.h md
  15656. +       make clean
  15657. +   # You must then run config to set up for compilation.
  15658. + ***************
  15659. + *** 2100,2116 ****
  15660. +   # To prevent `make install' from compiling alloca.o and then relinking cc1
  15661. +   # because alloca.o is newer, we permit these recursive makes to compile
  15662. +   # alloca.o.  Then cc1 is newer, so it won't have to be relinked.
  15663. + !     $(MAKE) CC="stage1/xgcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15664. +       $(MAKE) stage2
  15665. + !     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15666. +   
  15667. +   bootstrap2: force
  15668. + !     $(MAKE) CC="stage1/xgcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15669. +       $(MAKE) stage2
  15670. + !     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15671. +   
  15672. +   bootstrap3: force
  15673. + !     $(MAKE) CC="stage2/xgcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15674. +   
  15675. +   # Compare the object files in the current directory with those in the
  15676. +   # stage2 directory.
  15677. + --- 2112,2128 ----
  15678. +   # To prevent `make install' from compiling alloca.o and then relinking cc1
  15679. +   # because alloca.o is newer, we permit these recursive makes to compile
  15680. +   # alloca.o.  Then cc1 is newer, so it won't have to be relinked.
  15681. + !     $(MAKE) CC="stage1/$(XGCC) -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15682. +       $(MAKE) stage2
  15683. + !     $(MAKE) CC="stage2/$(XGCC) -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15684. +   
  15685. +   bootstrap2: force
  15686. + !     $(MAKE) CC="stage1/$(XGCC) -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15687. +       $(MAKE) stage2
  15688. + !     $(MAKE) CC="stage2/$(XGCC) -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15689. +   
  15690. +   bootstrap3: force
  15691. + !     $(MAKE) CC="stage2/$(XGCC) -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" libdir=$(libdir) LANGUAGES="$(LANGUAGES)"
  15692. +   
  15693. +   # Compare the object files in the current directory with those in the
  15694. +   # stage2 directory.
  15695. + ***************
  15696. + *** 2134,2161 ****
  15697. +       -rm -f tmp-foo*
  15698. +   
  15699. +   # Copy the object files from a particular stage into a subdirectory.
  15700. + ! stage1: force
  15701. +       -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  15702. +       -mv $(STAGESTUFF) stage1
  15703. +       -rm -f stage1/libgcc.a
  15704. +       -cp libgcc.a stage1
  15705. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage1/libgcc.a; else true; fi
  15706. +   
  15707. + ! stage2: force
  15708. +       -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  15709. +       -mv $(STAGESTUFF) stage2
  15710. +       -rm -f stage2/libgcc.a
  15711. +       -cp libgcc.a stage2
  15712. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage2/libgcc.a; else true; fi
  15713. +   
  15714. + ! stage3: force
  15715. +       -if [ -d stage3 ] ; then true ; else mkdir stage3 ; fi
  15716. +       -mv $(STAGESTUFF) stage3
  15717. +       -rm -f stage3/libgcc.a
  15718. +       -cp libgcc.a stage3
  15719. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage3/libgcc.a; else true; fi
  15720. +   
  15721. + ! stage4: force
  15722. +       -if [ -d stage4 ] ; then true ; else mkdir stage4 ; fi
  15723. +       -mv $(STAGESTUFF) stage4
  15724. +       -rm -f stage4/libgcc.a
  15725. + --- 2146,2173 ----
  15726. +       -rm -f tmp-foo*
  15727. +   
  15728. +   # Copy the object files from a particular stage into a subdirectory.
  15729. + ! stage1: force $(EXTRA_STAGE1_TARGETS)
  15730. +       -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  15731. +       -mv $(STAGESTUFF) stage1
  15732. +       -rm -f stage1/libgcc.a
  15733. +       -cp libgcc.a stage1
  15734. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage1/libgcc.a; else true; fi
  15735. +   
  15736. + ! stage2: force $(EXTRA_STAGE2_TARGETS)
  15737. +       -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  15738. +       -mv $(STAGESTUFF) stage2
  15739. +       -rm -f stage2/libgcc.a
  15740. +       -cp libgcc.a stage2
  15741. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage2/libgcc.a; else true; fi
  15742. +   
  15743. + ! stage3: force $(EXTRA_STAGE3_TARGETS)
  15744. +       -if [ -d stage3 ] ; then true ; else mkdir stage3 ; fi
  15745. +       -mv $(STAGESTUFF) stage3
  15746. +       -rm -f stage3/libgcc.a
  15747. +       -cp libgcc.a stage3
  15748. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage3/libgcc.a; else true; fi
  15749. +   
  15750. + ! stage4: force $(EXTRA_STAGE4_TARGETS)
  15751. +       -if [ -d stage4 ] ; then true ; else mkdir stage4 ; fi
  15752. +       -mv $(STAGESTUFF) stage4
  15753. +       -rm -f stage4/libgcc.a
  15754. + diff -rc --new-file gcc-2.5.8-fsf/README gcc-2.5.8/README
  15755. + *** gcc-2.5.8-fsf/README    Sun Dec 12 11:50:02 1993
  15756. + --- gcc-2.5.8/README    Tue Feb 22 11:26:53 1994
  15757. + ***************
  15758. + *** 10,17 ****
  15759. +   copy of the installation information, as plain ASCII.
  15760. +   
  15761. +   Installing this package will create various files in subdirectories of
  15762. + ! /usr/local/lib, which are passes used by the compiler and a library
  15763. + ! named libgcc.a.  It will also create /usr/local/bin/gcc, which is
  15764. +   the user-level command to do a compilation.
  15765. +   
  15766. +   See the Bugs chapter of the GCC Manual for how to report bugs
  15767. + --- 10,17 ----
  15768. +   copy of the installation information, as plain ASCII.
  15769. +   
  15770. +   Installing this package will create various files in subdirectories of
  15771. + ! /gnu/lib, which are passes used by the compiler and a library
  15772. + ! named libgcc.a.  It will also create /gnu/bin/gcc, which is
  15773. +   the user-level command to do a compilation.
  15774. +   
  15775. +   See the Bugs chapter of the GCC Manual for how to report bugs
  15776. + diff -rc --new-file gcc-2.5.8-fsf/bi-parser.c gcc-2.5.8/bi-parser.c
  15777. + *** gcc-2.5.8-fsf/bi-parser.c    Mon Nov 15 03:57:34 1993
  15778. + --- gcc-2.5.8/bi-parser.c    Tue Feb 22 11:22:13 1994
  15779. + ***************
  15780. + *** 1,5 ****
  15781. +   
  15782. + ! /*  A Bison parser, made from bi-parser.y  */
  15783. +   
  15784. +   #define YYBISON 1  /* Identify Bison output.  */
  15785. +   
  15786. + --- 1,6 ----
  15787. +   
  15788. + ! /*  A Bison parser, made from bi-parser.y with Bison version GNU Bison version 1.22
  15789. + !   */
  15790. +   
  15791. +   #define YYBISON 1  /* Identify Bison output.  */
  15792. +   
  15793. + ***************
  15794. + *** 55,63 ****
  15795. + --- 56,66 ----
  15796. +   
  15797. +   #include <stdio.h>
  15798. +   
  15799. + + #ifndef __cplusplus
  15800. +   #ifndef __STDC__
  15801. +   #define const
  15802. +   #endif
  15803. + + #endif
  15804. +   
  15805. +   
  15806. +   
  15807. + ***************
  15808. + *** 96,101 ****
  15809. + --- 99,105 ----
  15810. +        2,     2,     2,     2,     2,     1,     2,     3,     4
  15811. +   };
  15812. +   
  15813. + + #if YYDEBUG != 0
  15814. +   static const short yyprhs[] = {     0,
  15815. +        0,     2,     4,     7,    18,    20,    24,    28,    34,    42,
  15816. +       52,    53,    55,    59,    60,    62,    66
  15817. + ***************
  15818. + *** 111,116 ****
  15819. + --- 115,122 ----
  15820. +        0,    16,     6,    15,     0,     4,     0
  15821. +   };
  15822. +   
  15823. + + #endif
  15824. + + 
  15825. +   #if YYDEBUG != 0
  15826. +   static const short yyrline[] = { 0,
  15827. +       59,    64,    66,    70,    75,    77,    81,    84,    86,    88,
  15828. + ***************
  15829. + *** 173,179 ****
  15830. +       -1,    12,    -1,    -1,    16
  15831. +   };
  15832. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  15833. + ! #line 3 "bison.simple"
  15834. +   
  15835. +   /* Skeleton output parser for bison,
  15836. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  15837. + --- 179,185 ----
  15838. +       -1,    12,    -1,    -1,    16
  15839. +   };
  15840. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  15841. + ! #line 3 "/usr/lib/bison.simple"
  15842. +   
  15843. +   /* Skeleton output parser for bison,
  15844. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  15845. + ***************
  15846. + *** 354,377 ****
  15847. +   #endif
  15848. +   #endif
  15849. +   
  15850. + ! #line 184 "bison.simple"
  15851. + ! 
  15852. + ! /* The user can define YYPARSE_PARAM as the name of an argument to be passed
  15853. + !    into yyparse.  The argument should have type void *.
  15854. + !    It should actually point to an object.
  15855. + !    Grammar actions can access the variable by casting it
  15856. + !    to the proper pointer type.  */
  15857. + ! 
  15858. + ! #ifdef YYPARSE_PARAM
  15859. + ! #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
  15860. + ! #else
  15861. + ! #define YYPARSE_PARAM
  15862. + ! #define YYPARSE_PARAM_DECL
  15863. + ! #endif
  15864. + ! 
  15865. +   int
  15866. + ! yyparse(YYPARSE_PARAM)
  15867. + !      YYPARSE_PARAM_DECL
  15868. +   {
  15869. +     register int yystate;
  15870. +     register int yyn;
  15871. + --- 360,368 ----
  15872. +   #endif
  15873. +   #endif
  15874. +   
  15875. + ! #line 184 "/usr/lib/bison.simple"
  15876. +   int
  15877. + ! yyparse()
  15878. +   {
  15879. +     register int yystate;
  15880. +     register int yyn;
  15881. + ***************
  15882. + *** 710,716 ****
  15883. +       break;}
  15884. +   }
  15885. +      /* the action file gets copied in in place of this dollarsign */
  15886. + ! #line 480 "bison.simple"
  15887. +   
  15888. +     yyvsp -= yylen;
  15889. +     yyssp -= yylen;
  15890. + --- 701,707 ----
  15891. +       break;}
  15892. +   }
  15893. +      /* the action file gets copied in in place of this dollarsign */
  15894. + ! #line 465 "/usr/lib/bison.simple"
  15895. +   
  15896. +     yyvsp -= yylen;
  15897. +     yyssp -= yylen;
  15898. + diff -rc --new-file gcc-2.5.8-fsf/c-parse.c gcc-2.5.8/c-parse.c
  15899. + *** gcc-2.5.8-fsf/c-parse.c    Tue Nov 23 23:43:40 1993
  15900. + --- gcc-2.5.8/c-parse.c    Mon Apr 25 22:38:25 1994
  15901. + ***************
  15902. + *** 1,5 ****
  15903. +   
  15904. + ! /*  A Bison parser, made from c-parse.y  */
  15905. +   
  15906. +   #define    IDENTIFIER    258
  15907. +   #define    TYPENAME    259
  15908. + --- 1,8 ----
  15909. +   
  15910. + ! /*  A Bison parser, made from c-parse.y with Bison version GNU Bison version 1.22
  15911. + !   */
  15912. + ! 
  15913. + ! #define YYBISON 1  /* Identify Bison output.  */
  15914. +   
  15915. +   #define    IDENTIFIER    258
  15916. +   #define    TYPENAME    259
  15917. + ***************
  15918. + *** 143,151 ****
  15919. + --- 146,156 ----
  15920. +   
  15921. +   #include <stdio.h>
  15922. +   
  15923. + + #ifndef __cplusplus
  15924. +   #ifndef __STDC__
  15925. +   #define const
  15926. +   #endif
  15927. + + #endif
  15928. +   
  15929. +   
  15930. +   
  15931. + ***************
  15932. + *** 190,196 ****
  15933. +       70,    71,    72,    73,    74,    75,    76
  15934. +   };
  15935. +   
  15936. + ! static const short yyrline[] = {     0,
  15937. +      218,   222,   235,   237,   237,   238,   240,   242,   243,   253,
  15938. +      259,   261,   263,   265,   267,   268,   269,   274,   280,   282,
  15939. +      283,   285,   290,   292,   293,   295,   300,   302,   303,   307,
  15940. + --- 195,363 ----
  15941. +       70,    71,    72,    73,    74,    75,    76
  15942. +   };
  15943. +   
  15944. + ! #if YYDEBUG != 0
  15945. + ! static const short yyprhs[] = {     0,
  15946. + !      0,     1,     3,     4,     7,     8,    12,    14,    16,    22,
  15947. + !     26,    31,    36,    39,    42,    45,    48,    50,    51,    52,
  15948. + !     60,    65,    66,    67,    75,    80,    81,    82,    89,    93,
  15949. + !     95,    97,    99,   101,   103,   105,   107,   109,   111,   113,
  15950. + !    114,   116,   118,   122,   124,   127,   128,   132,   135,   138,
  15951. + !    141,   146,   149,   154,   157,   160,   162,   167,   168,   176,
  15952. + !    178,   182,   186,   190,   194,   198,   202,   206,   210,   214,
  15953. + !    218,   222,   226,   230,   234,   240,   244,   248,   250,   252,
  15954. + !    254,   258,   262,   263,   268,   273,   278,   282,   286,   289,
  15955. + !    292,   294,   297,   298,   300,   303,   307,   309,   311,   314,
  15956. + !    317,   322,   327,   330,   333,   337,   339,   341,   344,   347,
  15957. + !    348,   353,   358,   362,   366,   369,   372,   375,   379,   380,
  15958. + !    383,   386,   388,   390,   393,   396,   399,   403,   404,   407,
  15959. + !    409,   411,   413,   418,   423,   425,   427,   429,   431,   435,
  15960. + !    437,   441,   442,   447,   448,   455,   459,   460,   467,   471,
  15961. + !    472,   479,   481,   485,   487,   489,   494,   499,   508,   510,
  15962. + !    511,   516,   518,   519,   522,   524,   528,   530,   531,   536,
  15963. + !    538,   539,   548,   549,   556,   557,   562,   563,   569,   570,
  15964. + !    574,   575,   579,   581,   583,   587,   591,   596,   600,   604,
  15965. + !    606,   610,   615,   619,   623,   625,   629,   633,   637,   642,
  15966. + !    646,   648,   649,   656,   661,   664,   665,   672,   677,   680,
  15967. + !    681,   689,   690,   697,   700,   701,   703,   704,   706,   708,
  15968. + !    711,   712,   716,   719,   723,   725,   729,   731,   733,   735,
  15969. + !    739,   744,   751,   757,   759,   763,   765,   769,   772,   775,
  15970. + !    776,   778,   780,   783,   784,   787,   791,   795,   798,   802,
  15971. + !    807,   811,   814,   818,   821,   823,   826,   829,   830,   832,
  15972. + !    835,   836,   837,   839,   841,   844,   848,   850,   853,   856,
  15973. + !    863,   869,   875,   878,   881,   886,   887,   892,   893,   894,
  15974. + !    898,   903,   907,   909,   911,   913,   915,   918,   919,   924,
  15975. + !    926,   930,   931,   932,   940,   946,   949,   950,   951,   952,
  15976. + !    965,   966,   973,   976,   979,   982,   986,   993,  1002,  1013,
  15977. + !   1026,  1030,  1035,  1037,  1039,  1040,  1047,  1051,  1057,  1060,
  15978. + !   1063,  1064,  1066,  1067,  1069,  1070,  1072,  1074,  1078,  1083,
  15979. + !   1085,  1089,  1090,  1093,  1096,  1097,  1102,  1105,  1106,  1108,
  15980. + !   1110,  1114,  1116,  1120,  1123,  1126,  1129,  1132,  1135,  1136,
  15981. + !   1139,  1141,  1144,  1146,  1150,  1152
  15982. + ! };
  15983. + ! 
  15984. + ! static const short yyrhs[] = {    -1,
  15985. + !     86,     0,     0,    87,    89,     0,     0,    86,    88,    89,
  15986. + !      0,    91,     0,    90,     0,    27,    60,   100,    77,    78,
  15987. + !      0,   117,   127,    78,     0,   121,   117,   127,    78,     0,
  15988. + !    119,   117,   126,    78,     0,   121,    78,     0,   119,    78,
  15989. + !      0,     1,    78,     0,     1,    79,     0,    78,     0,     0,
  15990. + !      0,   119,   117,   150,    92,   111,    93,   180,     0,   119,
  15991. + !    117,   150,     1,     0,     0,     0,   121,   117,   153,    94,
  15992. + !    111,    95,   180,     0,   121,   117,   153,     1,     0,     0,
  15993. + !      0,   117,   153,    96,   111,    97,   180,     0,   117,   153,
  15994. + !      1,     0,     3,     0,     4,     0,    44,     0,    50,     0,
  15995. + !     49,     0,    55,     0,    56,     0,    80,     0,    81,     0,
  15996. + !    102,     0,     0,   102,     0,   107,     0,   102,    82,   107,
  15997. + !      0,   108,     0,    51,   105,     0,     0,    32,   104,   105,
  15998. + !      0,    99,   105,     0,    41,    98,     0,    11,   103,     0,
  15999. + !     11,    60,   168,    77,     0,    29,   103,     0,    29,    60,
  16000. + !    168,    77,     0,    34,   105,     0,    35,   105,     0,   103,
  16001. + !      0,    60,   168,    77,   105,     0,     0,    60,   168,    77,
  16002. + !     83,   106,   138,    79,     0,   105,     0,   107,    49,   107,
  16003. + !      0,   107,    50,   107,     0,   107,    51,   107,     0,   107,
  16004. + !     52,   107,     0,   107,    53,   107,     0,   107,    47,   107,
  16005. + !      0,   107,    48,   107,     0,   107,    46,   107,     0,   107,
  16006. + !     45,   107,     0,   107,    44,   107,     0,   107,    42,   107,
  16007. + !      0,   107,    43,   107,     0,   107,    41,   107,     0,   107,
  16008. + !     40,   107,     0,   107,    38,   204,    39,   107,     0,   107,
  16009. + !     37,   107,     0,   107,    36,   107,     0,     3,     0,     8,
  16010. + !      0,   110,     0,    60,   100,    77,     0,    60,     1,    77,
  16011. + !      0,     0,    60,   109,   181,    77,     0,   108,    60,   101,
  16012. + !     77,     0,   108,    61,   100,    84,     0,   108,    59,    98,
  16013. + !      0,   108,    58,    98,     0,   108,    55,     0,   108,    56,
  16014. + !      0,     9,     0,   110,     9,     0,     0,   113,     0,   113,
  16015. + !     10,     0,   186,   187,   114,     0,   112,     0,   175,     0,
  16016. + !    113,   112,     0,   112,   175,     0,   119,   117,   126,    78,
  16017. + !      0,   121,   117,   127,    78,     0,   119,    78,     0,   121,
  16018. + !     78,     0,   186,   187,   118,     0,   115,     0,   175,     0,
  16019. + !    116,   115,     0,   115,   175,     0,     0,   119,   117,   126,
  16020. + !     78,     0,   121,   117,   127,    78,     0,   119,   117,   146,
  16021. + !      0,   121,   117,   148,     0,   119,    78,     0,   121,    78,
  16022. + !      0,   124,   120,     0,   121,   124,   120,     0,     0,   120,
  16023. + !    125,     0,   120,     5,     0,     7,     0,     5,     0,   121,
  16024. + !      7,     0,   121,     5,     0,   124,   123,     0,   170,   124,
  16025. + !    123,     0,     0,   123,   125,     0,     6,     0,   154,     0,
  16026. + !      4,     0,    28,    60,   100,    77,     0,    28,    60,   168,
  16027. + !     77,     0,     6,     0,     7,     0,   154,     0,   129,     0,
  16028. + !    126,    82,   129,     0,   131,     0,   127,    82,   129,     0,
  16029. + !      0,    27,    60,   110,    77,     0,     0,   150,   128,   133,
  16030. + !     37,   130,   136,     0,   150,   128,   133,     0,     0,   153,
  16031. + !    128,   133,    37,   132,   136,     0,   153,   128,   133,     0,
  16032. + !      0,    31,    60,    60,   134,    77,    77,     0,   135,     0,
  16033. + !    134,    82,   135,     0,     3,     0,     7,     0,     3,    60,
  16034. + !      3,    77,     0,     3,    60,     8,    77,     0,     3,    60,
  16035. + !      3,    82,     8,    82,     8,    77,     0,   107,     0,     0,
  16036. + !     83,   137,   138,    79,     0,     1,     0,     0,   139,   159,
  16037. + !      0,   140,     0,   139,    82,   140,     0,   107,     0,     0,
  16038. + !     83,   141,   138,    79,     0,     1,     0,     0,    61,   107,
  16039. + !     10,   107,    84,    37,   142,   140,     0,     0,    61,   107,
  16040. + !     84,    37,   143,   140,     0,     0,    98,    39,   144,   140,
  16041. + !      0,     0,    59,    98,    37,   145,   140,     0,     0,   150,
  16042. + !    147,   181,     0,     0,   153,   149,   181,     0,   151,     0,
  16043. + !    153,     0,    60,   151,    77,     0,   151,    60,   216,     0,
  16044. + !    151,    61,   100,    84,     0,   151,    61,    84,     0,    51,
  16045. + !    171,   151,     0,     4,     0,   152,    60,   216,     0,   152,
  16046. + !     61,   100,    84,     0,   152,    61,    84,     0,    51,   171,
  16047. + !    152,     0,     4,     0,   153,    60,   216,     0,    60,   153,
  16048. + !     77,     0,    51,   171,   153,     0,   153,    61,   100,    84,
  16049. + !      0,   153,    61,    84,     0,     3,     0,     0,    13,    98,
  16050. + !     83,   155,   161,    79,     0,    13,    83,   161,    79,     0,
  16051. + !     13,    98,     0,     0,    14,    98,    83,   156,   161,    79,
  16052. + !      0,    14,    83,   161,    79,     0,    14,    98,     0,     0,
  16053. + !     12,    98,    83,   157,   166,   160,    79,     0,     0,    12,
  16054. + !     83,   158,   166,   160,    79,     0,    12,    98,     0,     0,
  16055. + !     82,     0,     0,    82,     0,   162,     0,   162,   163,     0,
  16056. + !      0,   162,   163,    78,     0,   162,    78,     0,   122,   117,
  16057. + !    164,     0,   122,     0,   170,   117,   164,     0,   170,     0,
  16058. + !      1,     0,   165,     0,   164,    82,   165,     0,   186,   187,
  16059. + !    150,   133,     0,   186,   187,   150,    39,   107,   133,     0,
  16060. + !    186,   187,    39,   107,   133,     0,   167,     0,   166,    82,
  16061. + !    167,     0,    98,     0,    98,    37,   107,     0,   122,   169,
  16062. + !      0,   170,   169,     0,     0,   172,     0,     7,     0,   170,
  16063. + !      7,     0,     0,   171,     7,     0,    60,   172,    77,     0,
  16064. + !     51,   171,   172,     0,    51,   171,     0,   172,    60,   209,
  16065. + !      0,   172,    61,   100,    84,     0,   172,    61,    84,     0,
  16066. + !     60,   209,     0,    61,   100,    84,     0,    61,    84,     0,
  16067. + !    189,     0,   173,   189,     0,   173,   175,     0,     0,   173,
  16068. + !      0,     1,    78,     0,     0,     0,   178,     0,   179,     0,
  16069. + !    178,   179,     0,    33,   220,    78,     0,   181,     0,     1,
  16070. + !    181,     0,    83,    79,     0,    83,   176,   177,   116,   174,
  16071. + !     79,     0,    83,   176,   177,     1,    79,     0,    83,   176,
  16072. + !    177,   173,    79,     0,   183,   188,     0,   183,     1,     0,
  16073. + !     15,    60,   100,    77,     0,     0,    18,   185,   188,    17,
  16074. + !      0,     0,     0,   186,   187,   191,     0,   186,   187,   202,
  16075. + !    188,     0,   186,   187,   190,     0,   191,     0,   202,     0,
  16076. + !    181,     0,   199,     0,   100,    78,     0,     0,   182,    16,
  16077. + !    192,   188,     0,   182,     0,   182,    16,     1,     0,     0,
  16078. + !      0,    17,   193,    60,   100,    77,   194,   188,     0,   184,
  16079. + !     60,   100,    77,    78,     0,   184,     1,     0,     0,     0,
  16080. + !      0,    19,    60,   204,    78,   195,   204,    78,   196,   204,
  16081. + !     77,   197,   188,     0,     0,    20,    60,   100,    77,   198,
  16082. + !    188,     0,    23,    78,     0,    24,    78,     0,    25,    78,
  16083. + !      0,    25,   100,    78,     0,    27,   203,    60,   100,    77,
  16084. + !     78,     0,    27,   203,    60,   100,    39,   205,    77,    78,
  16085. + !      0,    27,   203,    60,   100,    39,   205,    39,   205,    77,
  16086. + !     78,     0,    27,   203,    60,   100,    39,   205,    39,   205,
  16087. + !     39,   208,    77,    78,     0,    26,    98,    78,     0,    26,
  16088. + !     51,   100,    78,     0,    78,     0,   200,     0,     0,    19,
  16089. + !     60,   108,    77,   201,   188,     0,    21,   107,    39,     0,
  16090. + !     21,   107,    10,   107,    39,     0,    22,    39,     0,    98,
  16091. + !     39,     0,     0,     7,     0,     0,   100,     0,     0,   206,
  16092. + !      0,   207,     0,   206,    82,   207,     0,     9,    60,   100,
  16093. + !     77,     0,   110,     0,   208,    82,   110,     0,     0,   210,
  16094. + !    211,     0,   213,    77,     0,     0,   214,    78,   212,   211,
  16095. + !      0,     1,    77,     0,     0,    10,     0,   214,     0,   214,
  16096. + !     82,    10,     0,   215,     0,   214,    82,   215,     0,   119,
  16097. + !    152,     0,   119,   153,     0,   119,   169,     0,   121,   153,
  16098. + !      0,   121,   169,     0,     0,   217,   218,     0,   211,     0,
  16099. + !    219,    77,     0,     3,     0,   219,    82,     3,     0,    98,
  16100. + !      0,   220,    82,    98,     0
  16101. + ! };
  16102. + ! 
  16103. + ! #endif
  16104. + ! 
  16105. + ! #if YYDEBUG != 0
  16106. + ! static const short yyrline[] = { 0,
  16107. +      218,   222,   235,   237,   237,   238,   240,   242,   243,   253,
  16108. +      259,   261,   263,   265,   267,   268,   269,   274,   280,   282,
  16109. +      283,   285,   290,   292,   293,   295,   300,   302,   303,   307,
  16110. + ***************
  16111. + *** 206,245 ****
  16112. +      764,   775,   779,   781,   784,   797,   800,   804,   806,   814,
  16113. +      815,   816,   820,   822,   828,   829,   830,   833,   835,   838,
  16114. +      840,   843,   846,   852,   859,   862,   868,   875,   878,   885,
  16115. + !    888,   893,   895,   900,   906,   907,   917,   928,   948,   950,
  16116. + !    955,   962,   967,   971,   974,   976,   981,   984,   986,   988,
  16117. + !    992,   995,   995,   998,   998,  1001,  1001,  1004,  1006,  1023,
  16118. + !   1027,  1044,  1051,  1053,  1058,  1061,  1066,  1068,  1070,  1072,
  16119. + !   1080,  1086,  1088,  1090,  1092,  1098,  1104,  1106,  1108,  1110,
  16120. + !   1112,  1115,  1120,  1124,  1127,  1129,  1131,  1133,  1136,  1138,
  16121. + !   1141,  1144,  1147,  1150,  1154,  1156,  1159,  1161,  1165,  1168,
  16122. + !   1173,  1175,  1177,  1191,  1197,  1202,  1207,  1212,  1216,  1218,
  16123. + !   1222,  1226,  1230,  1240,  1242,  1247,  1250,  1254,  1257,  1261,
  16124. + !   1264,  1267,  1270,  1274,  1277,  1281,  1285,  1287,  1289,  1291,
  16125. + !   1293,  1295,  1297,  1299,  1307,  1309,  1310,  1313,  1315,  1318,
  16126. + !   1321,  1332,  1334,  1339,  1341,  1344,  1358,  1361,  1364,  1366,
  16127. + !   1371,  1376,  1384,  1389,  1392,  1405,  1413,  1417,  1421,  1425,
  16128. + !   1431,  1435,  1440,  1442,  1453,  1456,  1457,  1474,  1479,  1482,
  16129. + !   1493,  1495,  1505,  1515,  1516,  1524,  1527,  1539,  1543,  1560,
  16130. + !   1567,  1576,  1578,  1583,  1588,  1592,  1596,  1607,  1614,  1621,
  16131. + !   1628,  1639,  1643,  1646,  1651,  1674,  1705,  1730,  1759,  1774,
  16132. + !   1785,  1789,  1793,  1796,  1801,  1803,  1806,  1808,  1812,  1817,
  16133. + !   1820,  1826,  1831,  1836,  1838,  1847,  1848,  1854,  1856,  1861,
  16134. + !   1863,  1867,  1870,  1876,  1879,  1881,  1883,  1885,  1892,  1897,
  16135. + !   1902,  1904,  1913,  1916,  1921,  1924
  16136. +   };
  16137. +   
  16138. + ! static const char * const yytname[] = {     0,
  16139. + ! "error","$illegal.","IDENTIFIER","TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS",
  16140. + ! "SIZEOF","ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH",
  16141. + ! "CASE","DEFAULT","BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ALIGN",
  16142. + ! "ATTRIBUTE","EXTENSION","LABEL","REALPART","IMAGPART","ASSIGN","'='","'?'","':'","OROR",
  16143. + ! "ANDAND","'|'","'^'","'&'","EQCOMPARE","ARITHCOMPARE","LSHIFT","RSHIFT","'+'","'-'",
  16144. + ! "'*'","'/'","'%'","UNARY","PLUSPLUS","MINUSMINUS","HYPERUNARY","POINTSAT","'.'","'('",
  16145. + ! "'['","INTERFACE","IMPLEMENTATION","END","SELECTOR","DEFS","ENCODE","CLASSNAME","PUBLIC","PRIVATE",
  16146. + ! "PROTECTED","PROTOCOL","OBJECTNAME","CLASS","ALIAS","OBJC_STRING","')'","';'","'}'","'~'",
  16147. + ! "'!'","','","'{'","']'","program"
  16148. +   };
  16149. +   
  16150. +   static const short yyr1[] = {     0,
  16151. +       85,    85,    87,    86,    88,    86,    89,    89,    89,    90,
  16152. + --- 373,433 ----
  16153. +      764,   775,   779,   781,   784,   797,   800,   804,   806,   814,
  16154. +      815,   816,   820,   822,   828,   829,   830,   833,   835,   838,
  16155. +      840,   843,   846,   852,   859,   862,   868,   875,   878,   885,
  16156. + !    888,   893,   895,   900,   914,   915,   925,   936,   956,   958,
  16157. + !    963,   970,   975,   979,   982,   984,   989,   992,   994,   996,
  16158. + !   1000,  1003,  1003,  1006,  1006,  1009,  1009,  1012,  1014,  1031,
  16159. + !   1035,  1052,  1059,  1061,  1066,  1069,  1074,  1076,  1078,  1080,
  16160. + !   1088,  1094,  1096,  1098,  1100,  1106,  1112,  1114,  1116,  1118,
  16161. + !   1120,  1123,  1128,  1132,  1135,  1137,  1139,  1141,  1144,  1146,
  16162. + !   1149,  1152,  1155,  1158,  1162,  1164,  1167,  1169,  1173,  1176,
  16163. + !   1181,  1183,  1185,  1199,  1205,  1210,  1215,  1220,  1224,  1226,
  16164. + !   1230,  1234,  1238,  1248,  1250,  1255,  1258,  1262,  1265,  1269,
  16165. + !   1272,  1275,  1278,  1282,  1285,  1289,  1293,  1295,  1297,  1299,
  16166. + !   1301,  1303,  1305,  1307,  1315,  1317,  1318,  1321,  1323,  1326,
  16167. + !   1329,  1340,  1342,  1347,  1349,  1352,  1366,  1369,  1372,  1374,
  16168. + !   1379,  1384,  1392,  1397,  1400,  1413,  1421,  1425,  1429,  1433,
  16169. + !   1439,  1443,  1448,  1450,  1461,  1464,  1465,  1482,  1487,  1490,
  16170. + !   1501,  1503,  1513,  1523,  1524,  1532,  1535,  1547,  1551,  1568,
  16171. + !   1575,  1584,  1586,  1591,  1596,  1600,  1604,  1615,  1622,  1629,
  16172. + !   1636,  1647,  1651,  1654,  1659,  1682,  1713,  1738,  1767,  1782,
  16173. + !   1793,  1797,  1801,  1804,  1809,  1811,  1814,  1816,  1820,  1825,
  16174. + !   1828,  1834,  1839,  1844,  1846,  1855,  1856,  1862,  1864,  1869,
  16175. + !   1871,  1875,  1878,  1884,  1887,  1889,  1891,  1893,  1900,  1905,
  16176. + !   1910,  1912,  1921,  1924,  1929,  1932
  16177. +   };
  16178. +   
  16179. + ! static const char * const yytname[] = {   "$","error","$illegal.","IDENTIFIER",
  16180. + ! "TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
  16181. + ! "ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT",
  16182. + ! "BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ALIGN",
  16183. + ! "ATTRIBUTE","EXTENSION","LABEL","REALPART","IMAGPART","ASSIGN","'='","'?'","':'",
  16184. + ! "OROR","ANDAND","'|'","'^'","'&'","EQCOMPARE","ARITHCOMPARE","LSHIFT","RSHIFT",
  16185. + ! "'+'","'-'","'*'","'/'","'%'","UNARY","PLUSPLUS","MINUSMINUS","HYPERUNARY","POINTSAT",
  16186. + ! "'.'","'('","'['","INTERFACE","IMPLEMENTATION","END","SELECTOR","DEFS","ENCODE",
  16187. + ! "CLASSNAME","PUBLIC","PRIVATE","PROTECTED","PROTOCOL","OBJECTNAME","CLASS","ALIAS",
  16188. + ! "OBJC_STRING","')'","';'","'}'","'~'","'!'","','","'{'","']'","program","extdefs",
  16189. + ! "@1","@2","extdef","datadef","fndef","@3","@4","@5","@6","@7","@8","identifier",
  16190. + ! "unop","expr","exprlist","nonnull_exprlist","unary_expr","@9","cast_expr","@10",
  16191. + ! "expr_no_commas","primary","@11","string","xdecls","lineno_datadecl","datadecls",
  16192. + ! "datadecl","lineno_decl","decls","setspecs","decl","typed_declspecs","reserved_declspecs",
  16193. + ! "declmods","typed_typespecs","reserved_typespecquals","typespec","typespecqual_reserved",
  16194. + ! "initdecls","notype_initdecls","maybeasm","initdcl","@12","notype_initdcl","@13",
  16195. + ! "maybe_attribute","attribute_list","attrib","init","@14","initlist_maybe_comma",
  16196. + ! "initlist1","initelt","@15","@16","@17","@18","@19","nested_function","@20",
  16197. + ! "notype_nested_function","@21","declarator","after_type_declarator","parm_declarator",
  16198. + ! "notype_declarator","structsp","@22","@23","@24","@25","maybecomma","maybecomma_warn",
  16199. + ! "component_decl_list","component_decl_list2","component_decl","components","component_declarator",
  16200. + ! "enumlist","enumerator","typename","absdcl","nonempty_type_quals","type_quals",
  16201. + ! "absdcl1","stmts","xstmts","errstmt","pushlevel","maybe_label_decls","label_decls",
  16202. + ! "label_decl","compstmt_or_error","compstmt","simple_if","if_prefix","do_stmt_start",
  16203. + ! "@26","save_filename","save_lineno","lineno_labeled_stmt","lineno_stmt_or_label",
  16204. + ! "stmt_or_label","stmt","@27","@28","@29","@30","@31","@32","@33","all_iter_stmt",
  16205. + ! "all_iter_stmt_simple","@34","label","maybe_type_qual","xexpr","asm_operands",
  16206. + ! "nonnull_asm_operands","asm_operand","asm_clobbers","parmlist","@35","parmlist_1",
  16207. + ! "@36","parmlist_2","parms","parm","parmlist_or_identifiers","@37","parmlist_or_identifiers_1",
  16208. + ! "identifiers","identifiers_or_typenames",""
  16209. +   };
  16210. + + #endif
  16211. +   
  16212. +   static const short yyr1[] = {     0,
  16213. +       85,    85,    87,    86,    88,    86,    89,    89,    89,    90,
  16214. + ***************
  16215. + *** 896,908 ****
  16216. +       48,    49,    50,    51,    52,    53,    43,    44,    45,    46,
  16217. +       47,    48,    49,    50,    51,    52,    53
  16218. +   };
  16219. + - #define YYPURE 1
  16220. + - 
  16221. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  16222. + ! #line 3 "bison.simple"
  16223. +   
  16224. +   /* Skeleton output parser for bison,
  16225. + !    Copyright (C) 1984 Bob Corbett and Richard Stallman
  16226. +   
  16227. +      This program is free software; you can redistribute it and/or modify
  16228. +      it under the terms of the GNU General Public License as published by
  16229. + --- 1084,1094 ----
  16230. +       48,    49,    50,    51,    52,    53,    43,    44,    45,    46,
  16231. +       47,    48,    49,    50,    51,    52,    53
  16232. +   };
  16233. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  16234. + ! #line 3 "/gnu/lib/bison.simple"
  16235. +   
  16236. +   /* Skeleton output parser for bison,
  16237. + !    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  16238. +   
  16239. +      This program is free software; you can redistribute it and/or modify
  16240. +      it under the terms of the GNU General Public License as published by
  16241. + ***************
  16242. + *** 919,927 ****
  16243. +      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16244. +   
  16245. +   
  16246. + ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  16247. +   #include <alloca.h>
  16248. + ! #endif
  16249. +   
  16250. +   /* This is the parser code that is written into each bison parser
  16251. +     when the %semantic_parser declaration is not specified in the grammar.
  16252. + --- 1105,1138 ----
  16253. +      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16254. +   
  16255. +   
  16256. + ! #ifndef alloca
  16257. + ! #ifdef __GNUC__
  16258. + ! #define alloca __builtin_alloca
  16259. + ! #else /* not GNU C.  */
  16260. + ! #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  16261. +   #include <alloca.h>
  16262. + ! #else /* not sparc */
  16263. + ! #if defined (MSDOS) && !defined (__TURBOC__)
  16264. + ! #include <malloc.h>
  16265. + ! #else /* not MSDOS, or __TURBOC__ */
  16266. + ! #if defined(_AIX)
  16267. + ! #include <malloc.h>
  16268. + !  #pragma alloca
  16269. + ! #else /* not MSDOS, __TURBOC__, or _AIX */
  16270. + ! #ifdef __hpux
  16271. + ! #ifdef __cplusplus
  16272. + ! extern "C" {
  16273. + ! void *alloca (unsigned int);
  16274. + ! };
  16275. + ! #else /* not __cplusplus */
  16276. + ! void *alloca ();
  16277. + ! #endif /* not __cplusplus */
  16278. + ! #endif /* __hpux */
  16279. + ! #endif /* not _AIX */
  16280. + ! #endif /* not MSDOS, or __TURBOC__ */
  16281. + ! #endif /* not sparc.  */
  16282. + ! #endif /* not GNU C.  */
  16283. + ! #endif /* alloca not defined.  */
  16284. +   
  16285. +   /* This is the parser code that is written into each bison parser
  16286. +     when the %semantic_parser declaration is not specified in the grammar.
  16287. + ***************
  16288. + *** 936,970 ****
  16289. +   #define yyclearin    (yychar = YYEMPTY)
  16290. +   #define YYEMPTY        -2
  16291. +   #define YYEOF        0
  16292. + - #define YYFAIL        goto yyerrlab;
  16293. +   #define YYACCEPT    return(0)
  16294. +   #define YYABORT     return(1)
  16295. + ! #define YYERROR        goto yyerrlab
  16296. +   
  16297. +   #define YYTERROR    1
  16298. +   #define YYERRCODE    256
  16299. +   
  16300. + ! #ifndef YYIMPURE
  16301. +   #define YYLEX        yylex()
  16302. +   #endif
  16303. +   
  16304. + ! #ifndef YYPURE
  16305. +   #define YYLEX        yylex(&yylval, &yylloc)
  16306. +   #endif
  16307. +   
  16308. +   /* If nonreentrant, generate the variables here */
  16309. +   
  16310. + ! #ifndef YYIMPURE
  16311. +   
  16312. +   int    yychar;            /*  the lookahead symbol        */
  16313. +   YYSTYPE    yylval;            /*  the semantic value of the        */
  16314. +                   /*  lookahead symbol            */
  16315. +   
  16316. +   YYLTYPE yylloc;            /*  location data for the lookahead    */
  16317. +                   /*  symbol                */
  16318. +   
  16319. +   int yynerrs;            /*  number of parse errors so far       */
  16320. + ! #endif  /* YYIMPURE */
  16321. +   
  16322. +   #if YYDEBUG != 0
  16323. +   int yydebug;            /*  nonzero means print parse trace    */
  16324. + --- 1147,1203 ----
  16325. +   #define yyclearin    (yychar = YYEMPTY)
  16326. +   #define YYEMPTY        -2
  16327. +   #define YYEOF        0
  16328. +   #define YYACCEPT    return(0)
  16329. +   #define YYABORT     return(1)
  16330. + ! #define YYERROR        goto yyerrlab1
  16331. + ! /* Like YYERROR except do call yyerror.
  16332. + !    This remains here temporarily to ease the
  16333. + !    transition to the new meaning of YYERROR, for GCC.
  16334. + !    Once GCC version 2 has supplanted version 1, this can go.  */
  16335. + ! #define YYFAIL        goto yyerrlab
  16336. + ! #define YYRECOVERING()  (!!yyerrstatus)
  16337. + ! #define YYBACKUP(token, value) \
  16338. + ! do                                \
  16339. + !   if (yychar == YYEMPTY && yylen == 1)                \
  16340. + !     { yychar = (token), yylval = (value);            \
  16341. + !       yychar1 = YYTRANSLATE (yychar);                \
  16342. + !       YYPOPSTACK;                        \
  16343. + !       goto yybackup;                        \
  16344. + !     }                                \
  16345. + !   else                                \
  16346. + !     { yyerror ("syntax error: cannot back up"); YYERROR; }    \
  16347. + ! while (0)
  16348. +   
  16349. +   #define YYTERROR    1
  16350. +   #define YYERRCODE    256
  16351. +   
  16352. + ! #ifndef YYPURE
  16353. +   #define YYLEX        yylex()
  16354. +   #endif
  16355. +   
  16356. + ! #ifdef YYPURE
  16357. + ! #ifdef YYLSP_NEEDED
  16358. +   #define YYLEX        yylex(&yylval, &yylloc)
  16359. + + #else
  16360. + + #define YYLEX        yylex(&yylval)
  16361. + + #endif
  16362. +   #endif
  16363. +   
  16364. +   /* If nonreentrant, generate the variables here */
  16365. +   
  16366. + ! #ifndef YYPURE
  16367. +   
  16368. +   int    yychar;            /*  the lookahead symbol        */
  16369. +   YYSTYPE    yylval;            /*  the semantic value of the        */
  16370. +                   /*  lookahead symbol            */
  16371. +   
  16372. + + #ifdef YYLSP_NEEDED
  16373. +   YYLTYPE yylloc;            /*  location data for the lookahead    */
  16374. +                   /*  symbol                */
  16375. + + #endif
  16376. +   
  16377. +   int yynerrs;            /*  number of parse errors so far       */
  16378. + ! #endif  /* not YYPURE */
  16379. +   
  16380. +   #if YYDEBUG != 0
  16381. +   int yydebug;            /*  nonzero means print parse trace    */
  16382. + ***************
  16383. + *** 972,992 ****
  16384. +      from coexisting.  */
  16385. +   #endif
  16386. +   
  16387. + ! /*  YYMAXDEPTH indicates the initial size of the parser's stacks    */
  16388. +   
  16389. + ! #ifndef    YYMAXDEPTH
  16390. + ! #define YYMAXDEPTH 200
  16391. +   #endif
  16392. +   
  16393. + ! /*  YYMAXLIMIT is the maximum size the stacks can grow to
  16394. +       (effective only if the built-in stack extension method is used).  */
  16395. +   
  16396. + ! #ifndef YYMAXLIMIT
  16397. + ! #define YYMAXLIMIT 10000
  16398. +   #endif
  16399. +   
  16400. +   
  16401. + ! #line 90 "bison.simple"
  16402. +   int
  16403. +   yyparse()
  16404. +   {
  16405. + --- 1205,1272 ----
  16406. +      from coexisting.  */
  16407. +   #endif
  16408. +   
  16409. + ! /*  YYINITDEPTH indicates the initial size of the parser's stacks    */
  16410. +   
  16411. + ! #ifndef    YYINITDEPTH
  16412. + ! #define YYINITDEPTH 200
  16413. +   #endif
  16414. +   
  16415. + ! /*  YYMAXDEPTH is the maximum size the stacks can grow to
  16416. +       (effective only if the built-in stack extension method is used).  */
  16417. +   
  16418. + ! #if YYMAXDEPTH == 0
  16419. + ! #undef YYMAXDEPTH
  16420. +   #endif
  16421. +   
  16422. + + #ifndef YYMAXDEPTH
  16423. + + #define YYMAXDEPTH 10000
  16424. + + #endif
  16425. + + 
  16426. + + /* Prevent warning if -Wstrict-prototypes.  */
  16427. + + #ifdef __GNUC__
  16428. + + int yyparse (void);
  16429. + + #endif
  16430. + + 
  16431. + + #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  16432. + + #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  16433. + + #else                /* not GNU C or C++ */
  16434. + + #ifndef __cplusplus
  16435. + + 
  16436. + + /* This is the most reliable way to avoid incompatibilities
  16437. + +    in available built-in functions on various systems.  */
  16438. + + static void
  16439. + + __yy_bcopy (from, to, count)
  16440. + +      char *from;
  16441. + +      char *to;
  16442. + +      int count;
  16443. + + {
  16444. + +   register char *f = from;
  16445. + +   register char *t = to;
  16446. + +   register int i = count;
  16447. +   
  16448. + !   while (i-- > 0)
  16449. + !     *t++ = *f++;
  16450. + ! }
  16451. + ! 
  16452. + ! #else /* __cplusplus */
  16453. + ! 
  16454. + ! /* This is the most reliable way to avoid incompatibilities
  16455. + !    in available built-in functions on various systems.  */
  16456. + ! static void
  16457. + ! __yy_bcopy (char *from, char *to, int count)
  16458. + ! {
  16459. + !   register char *f = from;
  16460. + !   register char *t = to;
  16461. + !   register int i = count;
  16462. + ! 
  16463. + !   while (i-- > 0)
  16464. + !     *t++ = *f++;
  16465. + ! }
  16466. + ! 
  16467. + ! #endif
  16468. + ! #endif
  16469. + ! 
  16470. + ! #line 184 "/gnu/lib/bison.simple"
  16471. +   int
  16472. +   yyparse()
  16473. +   {
  16474. + ***************
  16475. + *** 994,1018 ****
  16476. +     register int yyn;
  16477. +     register short *yyssp;
  16478. +     register YYSTYPE *yyvsp;
  16479. + -   YYLTYPE *yylsp;
  16480. +     int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  16481. + !   int yychar1;        /*  lookahead token as an internal (translated) token number */
  16482. +   
  16483. + !   short    yyssa[YYMAXDEPTH];    /*  the state stack            */
  16484. + !   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack        */
  16485. + !   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack            */
  16486. +   
  16487. +     short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  16488. +     YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  16489. +     YYLTYPE *yyls = yylsa;
  16490. +   
  16491. + !   int yymaxdepth = YYMAXDEPTH;
  16492. +   
  16493. + ! #ifndef YYPURE
  16494. +     int yychar;
  16495. +     YYSTYPE yylval;
  16496. + -   YYLTYPE yylloc;
  16497. +     int yynerrs;
  16498. +   #endif
  16499. +   
  16500. +     YYSTYPE yyval;        /*  the variable used to return        */
  16501. + --- 1274,1307 ----
  16502. +     register int yyn;
  16503. +     register short *yyssp;
  16504. +     register YYSTYPE *yyvsp;
  16505. +     int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  16506. + !   int yychar1 = 0;        /*  lookahead token as an internal (translated) token number */
  16507. +   
  16508. + !   short    yyssa[YYINITDEPTH];    /*  the state stack            */
  16509. + !   YYSTYPE yyvsa[YYINITDEPTH];    /*  the semantic value stack        */
  16510. +   
  16511. +     short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  16512. +     YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  16513. + + 
  16514. + + #ifdef YYLSP_NEEDED
  16515. + +   YYLTYPE yylsa[YYINITDEPTH];    /*  the location stack            */
  16516. +     YYLTYPE *yyls = yylsa;
  16517. + +   YYLTYPE *yylsp;
  16518. + + 
  16519. + + #define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
  16520. + + #else
  16521. + + #define YYPOPSTACK   (yyvsp--, yyssp--)
  16522. + + #endif
  16523. +   
  16524. + !   int yystacksize = YYINITDEPTH;
  16525. +   
  16526. + ! #ifdef YYPURE
  16527. +     int yychar;
  16528. +     YYSTYPE yylval;
  16529. +     int yynerrs;
  16530. + + #ifdef YYLSP_NEEDED
  16531. + +   YYLTYPE yylloc;
  16532. + + #endif
  16533. +   #endif
  16534. +   
  16535. +     YYSTYPE yyval;        /*  the variable used to return        */
  16536. + ***************
  16537. + *** 1033,1043 ****
  16538. +   
  16539. +     /* Initialize stack pointers.
  16540. +        Waste one element of value and location stack
  16541. + !      so that they stay on the same level as the state stack.  */
  16542. +   
  16543. +     yyssp = yyss - 1;
  16544. +     yyvsp = yyvs;
  16545. +     yylsp = yyls;
  16546. +   
  16547. +   /* Push a new state, which is found in  yystate  .  */
  16548. +   /* In all cases, when you get here, the value and location stacks
  16549. + --- 1322,1335 ----
  16550. +   
  16551. +     /* Initialize stack pointers.
  16552. +        Waste one element of value and location stack
  16553. + !      so that they stay on the same level as the state stack.
  16554. + !      The wasted elements are never initialized.  */
  16555. +   
  16556. +     yyssp = yyss - 1;
  16557. +     yyvsp = yyvs;
  16558. + + #ifdef YYLSP_NEEDED
  16559. +     yylsp = yyls;
  16560. + + #endif
  16561. +   
  16562. +   /* Push a new state, which is found in  yystate  .  */
  16563. +   /* In all cases, when you get here, the value and location stacks
  16564. + ***************
  16565. + *** 1046,1058 ****
  16566. +   
  16567. +     *++yyssp = yystate;
  16568. +   
  16569. + !   if (yyssp >= yyss + yymaxdepth - 1)
  16570. +       {
  16571. +         /* Give user a chance to reallocate the stack */
  16572. +         /* Use copies of these so that the &'s don't force the real ones into memory. */
  16573. +         YYSTYPE *yyvs1 = yyvs;
  16574. + -       YYLTYPE *yyls1 = yyls;
  16575. +         short *yyss1 = yyss;
  16576. +   
  16577. +         /* Get the current used size of the three stacks, in elements.  */
  16578. +         int size = yyssp - yyss + 1;
  16579. + --- 1338,1352 ----
  16580. +   
  16581. +     *++yyssp = yystate;
  16582. +   
  16583. + !   if (yyssp >= yyss + yystacksize - 1)
  16584. +       {
  16585. +         /* Give user a chance to reallocate the stack */
  16586. +         /* Use copies of these so that the &'s don't force the real ones into memory. */
  16587. +         YYSTYPE *yyvs1 = yyvs;
  16588. +         short *yyss1 = yyss;
  16589. + + #ifdef YYLSP_NEEDED
  16590. + +       YYLTYPE *yyls1 = yyls;
  16591. + + #endif
  16592. +   
  16593. +         /* Get the current used size of the three stacks, in elements.  */
  16594. +         int size = yyssp - yyss + 1;
  16595. + ***************
  16596. + *** 1060,1086 ****
  16597. +   #ifdef yyoverflow
  16598. +         /* Each stack pointer address is followed by the size of
  16599. +        the data in use in that stack, in bytes.  */
  16600. +         yyoverflow("parser stack overflow",
  16601. +            &yyss1, size * sizeof (*yyssp),
  16602. +            &yyvs1, size * sizeof (*yyvsp),
  16603. +            &yyls1, size * sizeof (*yylsp),
  16604. + !          &yymaxdepth);
  16605. +   
  16606. + !       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  16607. +   #else /* no yyoverflow */
  16608. +         /* Extend the stack our own way.  */
  16609. + !       if (yymaxdepth >= YYMAXLIMIT)
  16610. + !     yyerror("parser stack overflow");
  16611. + !       yymaxdepth *= 2;
  16612. + !       if (yymaxdepth > YYMAXLIMIT)
  16613. + !     yymaxdepth = YYMAXLIMIT;
  16614. + !       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  16615. + !       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  16616. + !       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  16617. + !       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  16618. +   #ifdef YYLSP_NEEDED
  16619. + !       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  16620. + !       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  16621. +   #endif
  16622. +   #endif /* no yyoverflow */
  16623. +   
  16624. + --- 1354,1395 ----
  16625. +   #ifdef yyoverflow
  16626. +         /* Each stack pointer address is followed by the size of
  16627. +        the data in use in that stack, in bytes.  */
  16628. + + #ifdef YYLSP_NEEDED
  16629. + +       /* This used to be a conditional around just the two extra args,
  16630. + +      but that might be undefined if yyoverflow is a macro.  */
  16631. +         yyoverflow("parser stack overflow",
  16632. +            &yyss1, size * sizeof (*yyssp),
  16633. +            &yyvs1, size * sizeof (*yyvsp),
  16634. +            &yyls1, size * sizeof (*yylsp),
  16635. + !          &yystacksize);
  16636. + ! #else
  16637. + !       yyoverflow("parser stack overflow",
  16638. + !          &yyss1, size * sizeof (*yyssp),
  16639. + !          &yyvs1, size * sizeof (*yyvsp),
  16640. + !          &yystacksize);
  16641. + ! #endif
  16642. +   
  16643. + !       yyss = yyss1; yyvs = yyvs1;
  16644. + ! #ifdef YYLSP_NEEDED
  16645. + !       yyls = yyls1;
  16646. + ! #endif
  16647. +   #else /* no yyoverflow */
  16648. +         /* Extend the stack our own way.  */
  16649. + !       if (yystacksize >= YYMAXDEPTH)
  16650. + !     {
  16651. + !       yyerror("parser stack overflow");
  16652. + !       return 2;
  16653. + !     }
  16654. + !       yystacksize *= 2;
  16655. + !       if (yystacksize > YYMAXDEPTH)
  16656. + !     yystacksize = YYMAXDEPTH;
  16657. + !       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  16658. + !       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  16659. + !       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  16660. + !       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  16661. +   #ifdef YYLSP_NEEDED
  16662. + !       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  16663. + !       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  16664. +   #endif
  16665. +   #endif /* no yyoverflow */
  16666. +   
  16667. + ***************
  16668. + *** 1092,1101 ****
  16669. +   
  16670. +   #if YYDEBUG != 0
  16671. +         if (yydebug)
  16672. + !     fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  16673. +   #endif
  16674. +   
  16675. + !       if (yyssp >= yyss + yymaxdepth - 1)
  16676. +       YYABORT;
  16677. +       }
  16678. +   
  16679. + --- 1401,1410 ----
  16680. +   
  16681. +   #if YYDEBUG != 0
  16682. +         if (yydebug)
  16683. + !     fprintf(stderr, "Stack size increased to %d\n", yystacksize);
  16684. +   #endif
  16685. +   
  16686. + !       if (yyssp >= yyss + yystacksize - 1)
  16687. +       YYABORT;
  16688. +       }
  16689. +   
  16690. + ***************
  16691. + *** 1104,1112 ****
  16692. +       fprintf(stderr, "Entering state %d\n", yystate);
  16693. +   #endif
  16694. +   
  16695. +   /* Do appropriate processing given the current state.  */
  16696. +   /* Read a lookahead token if we need one and don't already have one.  */
  16697. + ! yyresume:
  16698. +   
  16699. +     /* First try to decide what to do without reference to lookahead token.  */
  16700. +   
  16701. + --- 1413,1424 ----
  16702. +       fprintf(stderr, "Entering state %d\n", yystate);
  16703. +   #endif
  16704. +   
  16705. + +   goto yybackup;
  16706. + +  yybackup:
  16707. + + 
  16708. +   /* Do appropriate processing given the current state.  */
  16709. +   /* Read a lookahead token if we need one and don't already have one.  */
  16710. + ! /* yyresume: */
  16711. +   
  16712. +     /* First try to decide what to do without reference to lookahead token.  */
  16713. +   
  16714. + ***************
  16715. + *** 1146,1152 ****
  16716. +   
  16717. +   #if YYDEBUG != 0
  16718. +         if (yydebug)
  16719. + !     fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  16720. +   #endif
  16721. +       }
  16722. +   
  16723. + --- 1458,1472 ----
  16724. +   
  16725. +   #if YYDEBUG != 0
  16726. +         if (yydebug)
  16727. + !     {
  16728. + !       fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  16729. + !       /* Give the individual parser a way to print the precise meaning
  16730. + !          of a token, for further debugging info.  */
  16731. + ! #ifdef YYPRINT
  16732. + !       YYPRINT (stderr, yychar, yylval);
  16733. + ! #endif
  16734. + !       fprintf (stderr, ")\n");
  16735. + !     }
  16736. +   #endif
  16737. +       }
  16738. +   
  16739. + ***************
  16740. + *** 1208,1224 ****
  16741. +   /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  16742. +   yyreduce:
  16743. +     yylen = yyr2[yyn];
  16744. + !   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  16745. +   
  16746. +   #if YYDEBUG != 0
  16747. +     if (yydebug)
  16748. +       {
  16749. + !       if (yylen == 1)
  16750. + !     fprintf (stderr, "Reducing 1 value via line %d, ",
  16751. + !          yyrline[yyn]);
  16752. + !       else
  16753. + !     fprintf (stderr, "Reducing %d values via line %d, ",
  16754. + !          yylen, yyrline[yyn]);
  16755. +       }
  16756. +   #endif
  16757. +   
  16758. + --- 1528,1548 ----
  16759. +   /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  16760. +   yyreduce:
  16761. +     yylen = yyr2[yyn];
  16762. + !   if (yylen > 0)
  16763. + !     yyval = yyvsp[1-yylen]; /* implement default value of the action */
  16764. +   
  16765. +   #if YYDEBUG != 0
  16766. +     if (yydebug)
  16767. +       {
  16768. + !       int i;
  16769. + ! 
  16770. + !       fprintf (stderr, "Reducing via rule %d (line %d), ",
  16771. + !            yyn, yyrline[yyn]);
  16772. + ! 
  16773. + !       /* Print the symbols being reduced, and their result.  */
  16774. + !       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  16775. + !     fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  16776. + !       fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  16777. +       }
  16778. +   #endif
  16779. +   
  16780. + ***************
  16781. + *** 1959,1972 ****
  16782. +       break;}
  16783. +   case 154:
  16784. +   #line 901 "c-parse.y"
  16785. + ! { if (strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed")
  16786. +             && strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "noreturn"))
  16787. +           warning ("`%s' attribute directive ignored",
  16788. +                IDENTIFIER_POINTER (yyvsp[0].ttype));
  16789. +         yyval.ttype = yyvsp[0].ttype; ;
  16790. +       break;}
  16791. +   case 156:
  16792. + ! #line 908 "c-parse.y"
  16793. +   { /* If not "mode (m)", then issue warning.  */
  16794. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "mode") != 0)
  16795. +           {
  16796. + --- 2283,2304 ----
  16797. +       break;}
  16798. +   case 154:
  16799. +   #line 901 "c-parse.y"
  16800. + ! {
  16801. + ! #ifdef HANDLE_ATTRIBUTE0
  16802. + !       /* give the function a chance to validate further attributes */
  16803. + !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER (yyvsp[0].ttype)) ||
  16804. + !           (strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed")
  16805. + !           && strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "noreturn")))
  16806. + ! #else
  16807. + !       if (strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "packed")
  16808. +             && strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "noreturn"))
  16809. + + #endif
  16810. +           warning ("`%s' attribute directive ignored",
  16811. +                IDENTIFIER_POINTER (yyvsp[0].ttype));
  16812. +         yyval.ttype = yyvsp[0].ttype; ;
  16813. +       break;}
  16814. +   case 156:
  16815. + ! #line 916 "c-parse.y"
  16816. +   { /* If not "mode (m)", then issue warning.  */
  16817. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "mode") != 0)
  16818. +           {
  16819. + ***************
  16820. + *** 1978,1984 ****
  16821. +           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  16822. +       break;}
  16823. +   case 157:
  16824. + ! #line 918 "c-parse.y"
  16825. +   { /* if not "aligned(n)", then issue warning */
  16826. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "aligned") != 0
  16827. +             || TREE_CODE (yyvsp[-1].ttype) != INTEGER_CST)
  16828. + --- 2310,2316 ----
  16829. +           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  16830. +       break;}
  16831. +   case 157:
  16832. + ! #line 926 "c-parse.y"
  16833. +   { /* if not "aligned(n)", then issue warning */
  16834. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-3].ttype), "aligned") != 0
  16835. +             || TREE_CODE (yyvsp[-1].ttype) != INTEGER_CST)
  16836. + ***************
  16837. + *** 1991,1997 ****
  16838. +           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  16839. +       break;}
  16840. +   case 158:
  16841. + ! #line 929 "c-parse.y"
  16842. +   { /* if not "format(...)", then issue warning */
  16843. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-7].ttype), "format") != 0
  16844. +             || TREE_CODE (yyvsp[-3].ttype) != INTEGER_CST
  16845. + --- 2323,2329 ----
  16846. +           yyval.ttype = tree_cons (yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); ;
  16847. +       break;}
  16848. +   case 158:
  16849. + ! #line 937 "c-parse.y"
  16850. +   { /* if not "format(...)", then issue warning */
  16851. +         if (strcmp (IDENTIFIER_POINTER (yyvsp[-7].ttype), "format") != 0
  16852. +             || TREE_CODE (yyvsp[-3].ttype) != INTEGER_CST
  16853. + ***************
  16854. + *** 2009,2022 ****
  16855. +                   NULL_TREE); ;
  16856. +       break;}
  16857. +   case 160:
  16858. + ! #line 951 "c-parse.y"
  16859. +   { really_start_incremental_init (NULL_TREE);
  16860. +             /* Note that the call to clear_momentary
  16861. +                is in process_init_element.  */
  16862. +             push_momentary (); ;
  16863. +       break;}
  16864. +   case 161:
  16865. + ! #line 956 "c-parse.y"
  16866. +   { yyval.ttype = pop_init_level (0);
  16867. +             if (yyval.ttype == error_mark_node)
  16868. +               pop_momentary ();
  16869. + --- 2341,2354 ----
  16870. +                   NULL_TREE); ;
  16871. +       break;}
  16872. +   case 160:
  16873. + ! #line 959 "c-parse.y"
  16874. +   { really_start_incremental_init (NULL_TREE);
  16875. +             /* Note that the call to clear_momentary
  16876. +                is in process_init_element.  */
  16877. +             push_momentary (); ;
  16878. +       break;}
  16879. +   case 161:
  16880. + ! #line 964 "c-parse.y"
  16881. +   { yyval.ttype = pop_init_level (0);
  16882. +             if (yyval.ttype == error_mark_node)
  16883. +               pop_momentary ();
  16884. + ***************
  16885. + *** 2024,2067 ****
  16886. +               pop_momentary_nofree (); ;
  16887. +       break;}
  16888. +   case 162:
  16889. + ! #line 963 "c-parse.y"
  16890. +   { yyval.ttype = error_mark_node; ;
  16891. +       break;}
  16892. +   case 163:
  16893. + ! #line 969 "c-parse.y"
  16894. +   { if (pedantic)
  16895. +               pedwarn ("ANSI C forbids empty initializer braces"); ;
  16896. +       break;}
  16897. +   case 167:
  16898. + ! #line 983 "c-parse.y"
  16899. +   { process_init_element (yyvsp[0].ttype); ;
  16900. +       break;}
  16901. +   case 168:
  16902. + ! #line 985 "c-parse.y"
  16903. +   { push_init_level (0); ;
  16904. +       break;}
  16905. +   case 169:
  16906. + ! #line 987 "c-parse.y"
  16907. +   { process_init_element (pop_init_level (0)); ;
  16908. +       break;}
  16909. +   case 171:
  16910. + ! #line 993 "c-parse.y"
  16911. +   { set_init_index (yyvsp[-4].ttype, yyvsp[-2].ttype); ;
  16912. +       break;}
  16913. +   case 173:
  16914. + ! #line 996 "c-parse.y"
  16915. +   { set_init_index (yyvsp[-2].ttype, NULL_TREE); ;
  16916. +       break;}
  16917. +   case 175:
  16918. + ! #line 999 "c-parse.y"
  16919. +   { set_init_label (yyvsp[-1].ttype); ;
  16920. +       break;}
  16921. +   case 177:
  16922. + ! #line 1002 "c-parse.y"
  16923. +   { set_init_label (yyvsp[-1].ttype); ;
  16924. +       break;}
  16925. +   case 179:
  16926. + ! #line 1008 "c-parse.y"
  16927. +   { push_c_function_context ();
  16928. +             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  16929. +               {
  16930. + --- 2356,2399 ----
  16931. +               pop_momentary_nofree (); ;
  16932. +       break;}
  16933. +   case 162:
  16934. + ! #line 971 "c-parse.y"
  16935. +   { yyval.ttype = error_mark_node; ;
  16936. +       break;}
  16937. +   case 163:
  16938. + ! #line 977 "c-parse.y"
  16939. +   { if (pedantic)
  16940. +               pedwarn ("ANSI C forbids empty initializer braces"); ;
  16941. +       break;}
  16942. +   case 167:
  16943. + ! #line 991 "c-parse.y"
  16944. +   { process_init_element (yyvsp[0].ttype); ;
  16945. +       break;}
  16946. +   case 168:
  16947. + ! #line 993 "c-parse.y"
  16948. +   { push_init_level (0); ;
  16949. +       break;}
  16950. +   case 169:
  16951. + ! #line 995 "c-parse.y"
  16952. +   { process_init_element (pop_init_level (0)); ;
  16953. +       break;}
  16954. +   case 171:
  16955. + ! #line 1001 "c-parse.y"
  16956. +   { set_init_index (yyvsp[-4].ttype, yyvsp[-2].ttype); ;
  16957. +       break;}
  16958. +   case 173:
  16959. + ! #line 1004 "c-parse.y"
  16960. +   { set_init_index (yyvsp[-2].ttype, NULL_TREE); ;
  16961. +       break;}
  16962. +   case 175:
  16963. + ! #line 1007 "c-parse.y"
  16964. +   { set_init_label (yyvsp[-1].ttype); ;
  16965. +       break;}
  16966. +   case 177:
  16967. + ! #line 1010 "c-parse.y"
  16968. +   { set_init_label (yyvsp[-1].ttype); ;
  16969. +       break;}
  16970. +   case 179:
  16971. + ! #line 1016 "c-parse.y"
  16972. +   { push_c_function_context ();
  16973. +             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  16974. +               {
  16975. + ***************
  16976. + *** 2072,2083 ****
  16977. +             store_parm_decls (); ;
  16978. +       break;}
  16979. +   case 180:
  16980. + ! #line 1023 "c-parse.y"
  16981. +   { finish_function (1);
  16982. +             pop_c_function_context (); ;
  16983. +       break;}
  16984. +   case 181:
  16985. + ! #line 1029 "c-parse.y"
  16986. +   { push_c_function_context ();
  16987. +             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  16988. +               {
  16989. + --- 2404,2415 ----
  16990. +             store_parm_decls (); ;
  16991. +       break;}
  16992. +   case 180:
  16993. + ! #line 1031 "c-parse.y"
  16994. +   { finish_function (1);
  16995. +             pop_c_function_context (); ;
  16996. +       break;}
  16997. +   case 181:
  16998. + ! #line 1037 "c-parse.y"
  16999. +   { push_c_function_context ();
  17000. +             if (! start_function (current_declspecs, yyvsp[0].ttype, 1))
  17001. +               {
  17002. + ***************
  17003. + *** 2088,2370 ****
  17004. +             store_parm_decls (); ;
  17005. +       break;}
  17006. +   case 182:
  17007. + ! #line 1044 "c-parse.y"
  17008. +   { finish_function (1);
  17009. +             pop_c_function_context (); ;
  17010. +       break;}
  17011. +   case 185:
  17012. + ! #line 1060 "c-parse.y"
  17013. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17014. +       break;}
  17015. +   case 186:
  17016. + ! #line 1062 "c-parse.y"
  17017. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17018. +       break;}
  17019. +   case 187:
  17020. + ! #line 1067 "c-parse.y"
  17021. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17022. +       break;}
  17023. +   case 188:
  17024. + ! #line 1069 "c-parse.y"
  17025. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17026. +       break;}
  17027. +   case 189:
  17028. + ! #line 1071 "c-parse.y"
  17029. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17030. +       break;}
  17031. +   case 191:
  17032. + ! #line 1082 "c-parse.y"
  17033. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17034. +       break;}
  17035. +   case 192:
  17036. + ! #line 1087 "c-parse.y"
  17037. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17038. +       break;}
  17039. +   case 193:
  17040. + ! #line 1089 "c-parse.y"
  17041. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17042. +       break;}
  17043. +   case 194:
  17044. + ! #line 1091 "c-parse.y"
  17045. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17046. +       break;}
  17047. +   case 196:
  17048. + ! #line 1100 "c-parse.y"
  17049. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17050. +       break;}
  17051. +   case 197:
  17052. + ! #line 1105 "c-parse.y"
  17053. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17054. +       break;}
  17055. +   case 198:
  17056. + ! #line 1107 "c-parse.y"
  17057. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17058. +       break;}
  17059. +   case 199:
  17060. + ! #line 1109 "c-parse.y"
  17061. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17062. +       break;}
  17063. +   case 200:
  17064. + ! #line 1111 "c-parse.y"
  17065. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17066. +       break;}
  17067. +   case 202:
  17068. + ! #line 1117 "c-parse.y"
  17069. +   { yyval.ttype = start_struct (RECORD_TYPE, yyvsp[-1].ttype);
  17070. +             /* Start scope of tag before parsing components.  */
  17071. +           ;
  17072. +       break;}
  17073. +   case 203:
  17074. + ! #line 1121 "c-parse.y"
  17075. +   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype);
  17076. +             /* Really define the structure.  */
  17077. +           ;
  17078. +       break;}
  17079. +   case 204:
  17080. + ! #line 1125 "c-parse.y"
  17081. +   { yyval.ttype = finish_struct (start_struct (RECORD_TYPE, NULL_TREE),
  17082. +                         yyvsp[-1].ttype); ;
  17083. +       break;}
  17084. +   case 205:
  17085. + ! #line 1128 "c-parse.y"
  17086. +   { yyval.ttype = xref_tag (RECORD_TYPE, yyvsp[0].ttype); ;
  17087. +       break;}
  17088. +   case 206:
  17089. + ! #line 1130 "c-parse.y"
  17090. +   { yyval.ttype = start_struct (UNION_TYPE, yyvsp[-1].ttype); ;
  17091. +       break;}
  17092. +   case 207:
  17093. + ! #line 1132 "c-parse.y"
  17094. +   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  17095. +       break;}
  17096. +   case 208:
  17097. + ! #line 1134 "c-parse.y"
  17098. +   { yyval.ttype = finish_struct (start_struct (UNION_TYPE, NULL_TREE),
  17099. +                         yyvsp[-1].ttype); ;
  17100. +       break;}
  17101. +   case 209:
  17102. + ! #line 1137 "c-parse.y"
  17103. +   { yyval.ttype = xref_tag (UNION_TYPE, yyvsp[0].ttype); ;
  17104. +       break;}
  17105. +   case 210:
  17106. + ! #line 1139 "c-parse.y"
  17107. +   { yyvsp[0].itype = suspend_momentary ();
  17108. +             yyval.ttype = start_enum (yyvsp[-1].ttype); ;
  17109. +       break;}
  17110. +   case 211:
  17111. + ! #line 1142 "c-parse.y"
  17112. +   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  17113. +             resume_momentary (yyvsp[-4].itype); ;
  17114. +       break;}
  17115. +   case 212:
  17116. + ! #line 1145 "c-parse.y"
  17117. +   { yyvsp[0].itype = suspend_momentary ();
  17118. +             yyval.ttype = start_enum (NULL_TREE); ;
  17119. +       break;}
  17120. +   case 213:
  17121. + ! #line 1148 "c-parse.y"
  17122. +   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  17123. +             resume_momentary (yyvsp[-4].itype); ;
  17124. +       break;}
  17125. +   case 214:
  17126. + ! #line 1151 "c-parse.y"
  17127. +   { yyval.ttype = xref_tag (ENUMERAL_TYPE, yyvsp[0].ttype); ;
  17128. +       break;}
  17129. +   case 218:
  17130. + ! #line 1162 "c-parse.y"
  17131. +   { if (pedantic) pedwarn ("comma at end of enumerator list"); ;
  17132. +       break;}
  17133. +   case 219:
  17134. + ! #line 1167 "c-parse.y"
  17135. +   { yyval.ttype = yyvsp[0].ttype; ;
  17136. +       break;}
  17137. +   case 220:
  17138. + ! #line 1169 "c-parse.y"
  17139. +   { yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype);
  17140. +             pedwarn ("no semicolon at end of struct or union"); ;
  17141. +       break;}
  17142. +   case 221:
  17143. + ! #line 1174 "c-parse.y"
  17144. +   { yyval.ttype = NULL_TREE; ;
  17145. +       break;}
  17146. +   case 222:
  17147. + ! #line 1176 "c-parse.y"
  17148. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  17149. +       break;}
  17150. +   case 223:
  17151. + ! #line 1178 "c-parse.y"
  17152. +   { if (pedantic)
  17153. +               pedwarn ("extra semicolon in struct or union specified"); ;
  17154. +       break;}
  17155. +   case 224:
  17156. + ! #line 1193 "c-parse.y"
  17157. +   { yyval.ttype = yyvsp[0].ttype;
  17158. +             current_declspecs = TREE_VALUE (declspec_stack);
  17159. +             declspec_stack = TREE_CHAIN (declspec_stack);
  17160. +             resume_momentary (yyvsp[-1].itype); ;
  17161. +       break;}
  17162. +   case 225:
  17163. + ! #line 1198 "c-parse.y"
  17164. +   { if (pedantic)
  17165. +               pedwarn ("ANSI C forbids member declarations with no members");
  17166. +             shadow_tag(yyvsp[0].ttype);
  17167. +             yyval.ttype = NULL_TREE; ;
  17168. +       break;}
  17169. +   case 226:
  17170. + ! #line 1203 "c-parse.y"
  17171. +   { yyval.ttype = yyvsp[0].ttype;
  17172. +             current_declspecs = TREE_VALUE (declspec_stack);
  17173. +             declspec_stack = TREE_CHAIN (declspec_stack);
  17174. +             resume_momentary (yyvsp[-1].itype); ;
  17175. +       break;}
  17176. +   case 227:
  17177. + ! #line 1208 "c-parse.y"
  17178. +   { if (pedantic)
  17179. +               pedwarn ("ANSI C forbids member declarations with no members");
  17180. +             shadow_tag(yyvsp[0].ttype);
  17181. +             yyval.ttype = NULL_TREE; ;
  17182. +       break;}
  17183. +   case 228:
  17184. + ! #line 1213 "c-parse.y"
  17185. +   { yyval.ttype = NULL_TREE; ;
  17186. +       break;}
  17187. +   case 230:
  17188. + ! #line 1219 "c-parse.y"
  17189. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  17190. +       break;}
  17191. +   case 231:
  17192. + ! #line 1224 "c-parse.y"
  17193. +   { yyval.ttype = grokfield (yyvsp[-3].filename, yyvsp[-2].lineno, yyvsp[-1].ttype, current_declspecs, NULL_TREE);
  17194. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17195. +       break;}
  17196. +   case 232:
  17197. + ! #line 1228 "c-parse.y"
  17198. +   { yyval.ttype = grokfield (yyvsp[-5].filename, yyvsp[-4].lineno, yyvsp[-3].ttype, current_declspecs, yyvsp[-1].ttype);
  17199. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17200. +       break;}
  17201. +   case 233:
  17202. + ! #line 1231 "c-parse.y"
  17203. +   { yyval.ttype = grokfield (yyvsp[-4].filename, yyvsp[-3].lineno, NULL_TREE, current_declspecs, yyvsp[-1].ttype);
  17204. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17205. +       break;}
  17206. +   case 235:
  17207. + ! #line 1243 "c-parse.y"
  17208. +   { yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-2].ttype); ;
  17209. +       break;}
  17210. +   case 236:
  17211. + ! #line 1249 "c-parse.y"
  17212. +   { yyval.ttype = build_enumerator (yyvsp[0].ttype, NULL_TREE); ;
  17213. +       break;}
  17214. +   case 237:
  17215. + ! #line 1251 "c-parse.y"
  17216. +   { yyval.ttype = build_enumerator (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  17217. +       break;}
  17218. +   case 238:
  17219. + ! #line 1256 "c-parse.y"
  17220. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17221. +       break;}
  17222. +   case 239:
  17223. + ! #line 1258 "c-parse.y"
  17224. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17225. +       break;}
  17226. +   case 240:
  17227. + ! #line 1263 "c-parse.y"
  17228. +   { yyval.ttype = NULL_TREE; ;
  17229. +       break;}
  17230. +   case 242:
  17231. + ! #line 1269 "c-parse.y"
  17232. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  17233. +       break;}
  17234. +   case 243:
  17235. + ! #line 1271 "c-parse.y"
  17236. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  17237. +       break;}
  17238. +   case 244:
  17239. + ! #line 1276 "c-parse.y"
  17240. +   { yyval.ttype = NULL_TREE; ;
  17241. +       break;}
  17242. +   case 245:
  17243. + ! #line 1278 "c-parse.y"
  17244. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  17245. +       break;}
  17246. +   case 246:
  17247. + ! #line 1283 "c-parse.y"
  17248. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17249. +       break;}
  17250. +   case 247:
  17251. + ! #line 1286 "c-parse.y"
  17252. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17253. +       break;}
  17254. +   case 248:
  17255. + ! #line 1288 "c-parse.y"
  17256. +   { yyval.ttype = make_pointer_declarator (yyvsp[0].ttype, NULL_TREE); ;
  17257. +       break;}
  17258. +   case 249:
  17259. + ! #line 1290 "c-parse.y"
  17260. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17261. +       break;}
  17262. +   case 250:
  17263. + ! #line 1292 "c-parse.y"
  17264. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17265. +       break;}
  17266. +   case 251:
  17267. + ! #line 1294 "c-parse.y"
  17268. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17269. +       break;}
  17270. +   case 252:
  17271. + ! #line 1296 "c-parse.y"
  17272. +   { yyval.ttype = build_nt (CALL_EXPR, NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  17273. +       break;}
  17274. +   case 253:
  17275. + ! #line 1298 "c-parse.y"
  17276. +   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, yyvsp[-1].ttype); ;
  17277. +       break;}
  17278. +   case 254:
  17279. + ! #line 1300 "c-parse.y"
  17280. +   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); ;
  17281. +       break;}
  17282. +   case 261:
  17283. + ! #line 1322 "c-parse.y"
  17284. +   { emit_line_note (input_filename, lineno);
  17285. +             pushlevel (0);
  17286. +             clear_last_expr ();
  17287. + --- 2420,2702 ----
  17288. +             store_parm_decls (); ;
  17289. +       break;}
  17290. +   case 182:
  17291. + ! #line 1052 "c-parse.y"
  17292. +   { finish_function (1);
  17293. +             pop_c_function_context (); ;
  17294. +       break;}
  17295. +   case 185:
  17296. + ! #line 1068 "c-parse.y"
  17297. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17298. +       break;}
  17299. +   case 186:
  17300. + ! #line 1070 "c-parse.y"
  17301. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17302. +       break;}
  17303. +   case 187:
  17304. + ! #line 1075 "c-parse.y"
  17305. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17306. +       break;}
  17307. +   case 188:
  17308. + ! #line 1077 "c-parse.y"
  17309. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17310. +       break;}
  17311. +   case 189:
  17312. + ! #line 1079 "c-parse.y"
  17313. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17314. +       break;}
  17315. +   case 191:
  17316. + ! #line 1090 "c-parse.y"
  17317. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17318. +       break;}
  17319. +   case 192:
  17320. + ! #line 1095 "c-parse.y"
  17321. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17322. +       break;}
  17323. +   case 193:
  17324. + ! #line 1097 "c-parse.y"
  17325. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17326. +       break;}
  17327. +   case 194:
  17328. + ! #line 1099 "c-parse.y"
  17329. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17330. +       break;}
  17331. +   case 196:
  17332. + ! #line 1108 "c-parse.y"
  17333. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17334. +       break;}
  17335. +   case 197:
  17336. + ! #line 1113 "c-parse.y"
  17337. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17338. +       break;}
  17339. +   case 198:
  17340. + ! #line 1115 "c-parse.y"
  17341. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17342. +       break;}
  17343. +   case 199:
  17344. + ! #line 1117 "c-parse.y"
  17345. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17346. +       break;}
  17347. +   case 200:
  17348. + ! #line 1119 "c-parse.y"
  17349. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17350. +       break;}
  17351. +   case 202:
  17352. + ! #line 1125 "c-parse.y"
  17353. +   { yyval.ttype = start_struct (RECORD_TYPE, yyvsp[-1].ttype);
  17354. +             /* Start scope of tag before parsing components.  */
  17355. +           ;
  17356. +       break;}
  17357. +   case 203:
  17358. + ! #line 1129 "c-parse.y"
  17359. +   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype);
  17360. +             /* Really define the structure.  */
  17361. +           ;
  17362. +       break;}
  17363. +   case 204:
  17364. + ! #line 1133 "c-parse.y"
  17365. +   { yyval.ttype = finish_struct (start_struct (RECORD_TYPE, NULL_TREE),
  17366. +                         yyvsp[-1].ttype); ;
  17367. +       break;}
  17368. +   case 205:
  17369. + ! #line 1136 "c-parse.y"
  17370. +   { yyval.ttype = xref_tag (RECORD_TYPE, yyvsp[0].ttype); ;
  17371. +       break;}
  17372. +   case 206:
  17373. + ! #line 1138 "c-parse.y"
  17374. +   { yyval.ttype = start_struct (UNION_TYPE, yyvsp[-1].ttype); ;
  17375. +       break;}
  17376. +   case 207:
  17377. + ! #line 1140 "c-parse.y"
  17378. +   { yyval.ttype = finish_struct (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  17379. +       break;}
  17380. +   case 208:
  17381. + ! #line 1142 "c-parse.y"
  17382. +   { yyval.ttype = finish_struct (start_struct (UNION_TYPE, NULL_TREE),
  17383. +                         yyvsp[-1].ttype); ;
  17384. +       break;}
  17385. +   case 209:
  17386. + ! #line 1145 "c-parse.y"
  17387. +   { yyval.ttype = xref_tag (UNION_TYPE, yyvsp[0].ttype); ;
  17388. +       break;}
  17389. +   case 210:
  17390. + ! #line 1147 "c-parse.y"
  17391. +   { yyvsp[0].itype = suspend_momentary ();
  17392. +             yyval.ttype = start_enum (yyvsp[-1].ttype); ;
  17393. +       break;}
  17394. +   case 211:
  17395. + ! #line 1150 "c-parse.y"
  17396. +   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  17397. +             resume_momentary (yyvsp[-4].itype); ;
  17398. +       break;}
  17399. +   case 212:
  17400. + ! #line 1153 "c-parse.y"
  17401. +   { yyvsp[0].itype = suspend_momentary ();
  17402. +             yyval.ttype = start_enum (NULL_TREE); ;
  17403. +       break;}
  17404. +   case 213:
  17405. + ! #line 1156 "c-parse.y"
  17406. +   { yyval.ttype = finish_enum (yyvsp[-3].ttype, nreverse (yyvsp[-2].ttype));
  17407. +             resume_momentary (yyvsp[-4].itype); ;
  17408. +       break;}
  17409. +   case 214:
  17410. + ! #line 1159 "c-parse.y"
  17411. +   { yyval.ttype = xref_tag (ENUMERAL_TYPE, yyvsp[0].ttype); ;
  17412. +       break;}
  17413. +   case 218:
  17414. + ! #line 1170 "c-parse.y"
  17415. +   { if (pedantic) pedwarn ("comma at end of enumerator list"); ;
  17416. +       break;}
  17417. +   case 219:
  17418. + ! #line 1175 "c-parse.y"
  17419. +   { yyval.ttype = yyvsp[0].ttype; ;
  17420. +       break;}
  17421. +   case 220:
  17422. + ! #line 1177 "c-parse.y"
  17423. +   { yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype);
  17424. +             pedwarn ("no semicolon at end of struct or union"); ;
  17425. +       break;}
  17426. +   case 221:
  17427. + ! #line 1182 "c-parse.y"
  17428. +   { yyval.ttype = NULL_TREE; ;
  17429. +       break;}
  17430. +   case 222:
  17431. + ! #line 1184 "c-parse.y"
  17432. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[-1].ttype); ;
  17433. +       break;}
  17434. +   case 223:
  17435. + ! #line 1186 "c-parse.y"
  17436. +   { if (pedantic)
  17437. +               pedwarn ("extra semicolon in struct or union specified"); ;
  17438. +       break;}
  17439. +   case 224:
  17440. + ! #line 1201 "c-parse.y"
  17441. +   { yyval.ttype = yyvsp[0].ttype;
  17442. +             current_declspecs = TREE_VALUE (declspec_stack);
  17443. +             declspec_stack = TREE_CHAIN (declspec_stack);
  17444. +             resume_momentary (yyvsp[-1].itype); ;
  17445. +       break;}
  17446. +   case 225:
  17447. + ! #line 1206 "c-parse.y"
  17448. +   { if (pedantic)
  17449. +               pedwarn ("ANSI C forbids member declarations with no members");
  17450. +             shadow_tag(yyvsp[0].ttype);
  17451. +             yyval.ttype = NULL_TREE; ;
  17452. +       break;}
  17453. +   case 226:
  17454. + ! #line 1211 "c-parse.y"
  17455. +   { yyval.ttype = yyvsp[0].ttype;
  17456. +             current_declspecs = TREE_VALUE (declspec_stack);
  17457. +             declspec_stack = TREE_CHAIN (declspec_stack);
  17458. +             resume_momentary (yyvsp[-1].itype); ;
  17459. +       break;}
  17460. +   case 227:
  17461. + ! #line 1216 "c-parse.y"
  17462. +   { if (pedantic)
  17463. +               pedwarn ("ANSI C forbids member declarations with no members");
  17464. +             shadow_tag(yyvsp[0].ttype);
  17465. +             yyval.ttype = NULL_TREE; ;
  17466. +       break;}
  17467. +   case 228:
  17468. + ! #line 1221 "c-parse.y"
  17469. +   { yyval.ttype = NULL_TREE; ;
  17470. +       break;}
  17471. +   case 230:
  17472. + ! #line 1227 "c-parse.y"
  17473. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  17474. +       break;}
  17475. +   case 231:
  17476. + ! #line 1232 "c-parse.y"
  17477. +   { yyval.ttype = grokfield (yyvsp[-3].filename, yyvsp[-2].lineno, yyvsp[-1].ttype, current_declspecs, NULL_TREE);
  17478. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17479. +       break;}
  17480. +   case 232:
  17481. + ! #line 1236 "c-parse.y"
  17482. +   { yyval.ttype = grokfield (yyvsp[-5].filename, yyvsp[-4].lineno, yyvsp[-3].ttype, current_declspecs, yyvsp[-1].ttype);
  17483. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17484. +       break;}
  17485. +   case 233:
  17486. + ! #line 1239 "c-parse.y"
  17487. +   { yyval.ttype = grokfield (yyvsp[-4].filename, yyvsp[-3].lineno, NULL_TREE, current_declspecs, yyvsp[-1].ttype);
  17488. +             decl_attributes (yyval.ttype, yyvsp[0].ttype); ;
  17489. +       break;}
  17490. +   case 235:
  17491. + ! #line 1251 "c-parse.y"
  17492. +   { yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-2].ttype); ;
  17493. +       break;}
  17494. +   case 236:
  17495. + ! #line 1257 "c-parse.y"
  17496. +   { yyval.ttype = build_enumerator (yyvsp[0].ttype, NULL_TREE); ;
  17497. +       break;}
  17498. +   case 237:
  17499. + ! #line 1259 "c-parse.y"
  17500. +   { yyval.ttype = build_enumerator (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  17501. +       break;}
  17502. +   case 238:
  17503. + ! #line 1264 "c-parse.y"
  17504. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17505. +       break;}
  17506. +   case 239:
  17507. + ! #line 1266 "c-parse.y"
  17508. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17509. +       break;}
  17510. +   case 240:
  17511. + ! #line 1271 "c-parse.y"
  17512. +   { yyval.ttype = NULL_TREE; ;
  17513. +       break;}
  17514. +   case 242:
  17515. + ! #line 1277 "c-parse.y"
  17516. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  17517. +       break;}
  17518. +   case 243:
  17519. + ! #line 1279 "c-parse.y"
  17520. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  17521. +       break;}
  17522. +   case 244:
  17523. + ! #line 1284 "c-parse.y"
  17524. +   { yyval.ttype = NULL_TREE; ;
  17525. +       break;}
  17526. +   case 245:
  17527. + ! #line 1286 "c-parse.y"
  17528. +   { yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ;
  17529. +       break;}
  17530. +   case 246:
  17531. + ! #line 1291 "c-parse.y"
  17532. +   { yyval.ttype = yyvsp[-1].ttype; ;
  17533. +       break;}
  17534. +   case 247:
  17535. + ! #line 1294 "c-parse.y"
  17536. +   { yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  17537. +       break;}
  17538. +   case 248:
  17539. + ! #line 1296 "c-parse.y"
  17540. +   { yyval.ttype = make_pointer_declarator (yyvsp[0].ttype, NULL_TREE); ;
  17541. +       break;}
  17542. +   case 249:
  17543. + ! #line 1298 "c-parse.y"
  17544. +   { yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ;
  17545. +       break;}
  17546. +   case 250:
  17547. + ! #line 1300 "c-parse.y"
  17548. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  17549. +       break;}
  17550. +   case 251:
  17551. + ! #line 1302 "c-parse.y"
  17552. +   { yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ;
  17553. +       break;}
  17554. +   case 252:
  17555. + ! #line 1304 "c-parse.y"
  17556. +   { yyval.ttype = build_nt (CALL_EXPR, NULL_TREE, yyvsp[0].ttype, NULL_TREE); ;
  17557. +       break;}
  17558. +   case 253:
  17559. + ! #line 1306 "c-parse.y"
  17560. +   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, yyvsp[-1].ttype); ;
  17561. +       break;}
  17562. +   case 254:
  17563. + ! #line 1308 "c-parse.y"
  17564. +   { yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); ;
  17565. +       break;}
  17566. +   case 261:
  17567. + ! #line 1330 "c-parse.y"
  17568. +   { emit_line_note (input_filename, lineno);
  17569. +             pushlevel (0);
  17570. +             clear_last_expr ();
  17571. + ***************
  17572. + *** 2373,2384 ****
  17573. +           ;
  17574. +       break;}
  17575. +   case 263:
  17576. + ! #line 1335 "c-parse.y"
  17577. +   { if (pedantic)
  17578. +               pedwarn ("ANSI C forbids label declarations"); ;
  17579. +       break;}
  17580. +   case 266:
  17581. + ! #line 1346 "c-parse.y"
  17582. +   { tree link;
  17583. +             for (link = yyvsp[-1].ttype; link; link = TREE_CHAIN (link))
  17584. +               {
  17585. + --- 2705,2716 ----
  17586. +           ;
  17587. +       break;}
  17588. +   case 263:
  17589. + ! #line 1343 "c-parse.y"
  17590. +   { if (pedantic)
  17591. +               pedwarn ("ANSI C forbids label declarations"); ;
  17592. +       break;}
  17593. +   case 266:
  17594. + ! #line 1354 "c-parse.y"
  17595. +   { tree link;
  17596. +             for (link = yyvsp[-1].ttype; link; link = TREE_CHAIN (link))
  17597. +               {
  17598. + ***************
  17599. + *** 2389,2424 ****
  17600. +           ;
  17601. +       break;}
  17602. +   case 267:
  17603. + ! #line 1360 "c-parse.y"
  17604. +   {;
  17605. +       break;}
  17606. +   case 269:
  17607. + ! #line 1365 "c-parse.y"
  17608. +   { yyval.ttype = convert (void_type_node, integer_zero_node); ;
  17609. +       break;}
  17610. +   case 270:
  17611. + ! #line 1367 "c-parse.y"
  17612. +   { emit_line_note (input_filename, lineno);
  17613. +             expand_end_bindings (getdecls (), 1, 0);
  17614. +             yyval.ttype = poplevel (1, 1, 0);
  17615. +             pop_momentary (); ;
  17616. +       break;}
  17617. +   case 271:
  17618. + ! #line 1372 "c-parse.y"
  17619. +   { emit_line_note (input_filename, lineno);
  17620. +             expand_end_bindings (getdecls (), kept_level_p (), 0);
  17621. +             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  17622. +             pop_momentary (); ;
  17623. +       break;}
  17624. +   case 272:
  17625. + ! #line 1377 "c-parse.y"
  17626. +   { emit_line_note (input_filename, lineno);
  17627. +             expand_end_bindings (getdecls (), kept_level_p (), 0);
  17628. +             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  17629. +             pop_momentary (); ;
  17630. +       break;}
  17631. +   case 275:
  17632. + ! #line 1394 "c-parse.y"
  17633. +   { emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17634. +             expand_start_cond (truthvalue_conversion (yyvsp[-1].ttype), 0);
  17635. +             yyval.itype = stmt_count;
  17636. + --- 2721,2756 ----
  17637. +           ;
  17638. +       break;}
  17639. +   case 267:
  17640. + ! #line 1368 "c-parse.y"
  17641. +   {;
  17642. +       break;}
  17643. +   case 269:
  17644. + ! #line 1373 "c-parse.y"
  17645. +   { yyval.ttype = convert (void_type_node, integer_zero_node); ;
  17646. +       break;}
  17647. +   case 270:
  17648. + ! #line 1375 "c-parse.y"
  17649. +   { emit_line_note (input_filename, lineno);
  17650. +             expand_end_bindings (getdecls (), 1, 0);
  17651. +             yyval.ttype = poplevel (1, 1, 0);
  17652. +             pop_momentary (); ;
  17653. +       break;}
  17654. +   case 271:
  17655. + ! #line 1380 "c-parse.y"
  17656. +   { emit_line_note (input_filename, lineno);
  17657. +             expand_end_bindings (getdecls (), kept_level_p (), 0);
  17658. +             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  17659. +             pop_momentary (); ;
  17660. +       break;}
  17661. +   case 272:
  17662. + ! #line 1385 "c-parse.y"
  17663. +   { emit_line_note (input_filename, lineno);
  17664. +             expand_end_bindings (getdecls (), kept_level_p (), 0);
  17665. +             yyval.ttype = poplevel (kept_level_p (), 0, 0);
  17666. +             pop_momentary (); ;
  17667. +       break;}
  17668. +   case 275:
  17669. + ! #line 1402 "c-parse.y"
  17670. +   { emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17671. +             expand_start_cond (truthvalue_conversion (yyvsp[-1].ttype), 0);
  17672. +             yyval.itype = stmt_count;
  17673. + ***************
  17674. + *** 2427,2433 ****
  17675. +             position_after_white_space (); ;
  17676. +       break;}
  17677. +   case 276:
  17678. + ! #line 1407 "c-parse.y"
  17679. +   { stmt_count++;
  17680. +             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  17681. +             /* See comment in `while' alternative, above.  */
  17682. + --- 2759,2765 ----
  17683. +             position_after_white_space (); ;
  17684. +       break;}
  17685. +   case 276:
  17686. + ! #line 1415 "c-parse.y"
  17687. +   { stmt_count++;
  17688. +             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  17689. +             /* See comment in `while' alternative, above.  */
  17690. + ***************
  17691. + *** 2436,2466 ****
  17692. +             position_after_white_space (); ;
  17693. +       break;}
  17694. +   case 277:
  17695. + ! #line 1414 "c-parse.y"
  17696. +   { expand_loop_continue_here (); ;
  17697. +       break;}
  17698. +   case 278:
  17699. + ! #line 1418 "c-parse.y"
  17700. +   { yyval.filename = input_filename; ;
  17701. +       break;}
  17702. +   case 279:
  17703. + ! #line 1422 "c-parse.y"
  17704. +   { yyval.lineno = lineno; ;
  17705. +       break;}
  17706. +   case 280:
  17707. + ! #line 1427 "c-parse.y"
  17708. +   { ;
  17709. +       break;}
  17710. +   case 281:
  17711. + ! #line 1432 "c-parse.y"
  17712. +   { ;
  17713. +       break;}
  17714. +   case 282:
  17715. + ! #line 1437 "c-parse.y"
  17716. +   { ;
  17717. +       break;}
  17718. +   case 284:
  17719. + ! #line 1443 "c-parse.y"
  17720. +   { int next;
  17721. +             position_after_white_space ();
  17722. +             next = getc (finput);
  17723. + --- 2768,2798 ----
  17724. +             position_after_white_space (); ;
  17725. +       break;}
  17726. +   case 277:
  17727. + ! #line 1422 "c-parse.y"
  17728. +   { expand_loop_continue_here (); ;
  17729. +       break;}
  17730. +   case 278:
  17731. + ! #line 1426 "c-parse.y"
  17732. +   { yyval.filename = input_filename; ;
  17733. +       break;}
  17734. +   case 279:
  17735. + ! #line 1430 "c-parse.y"
  17736. +   { yyval.lineno = lineno; ;
  17737. +       break;}
  17738. +   case 280:
  17739. + ! #line 1435 "c-parse.y"
  17740. +   { ;
  17741. +       break;}
  17742. +   case 281:
  17743. + ! #line 1440 "c-parse.y"
  17744. +   { ;
  17745. +       break;}
  17746. +   case 282:
  17747. + ! #line 1445 "c-parse.y"
  17748. +   { ;
  17749. +       break;}
  17750. +   case 284:
  17751. + ! #line 1451 "c-parse.y"
  17752. +   { int next;
  17753. +             position_after_white_space ();
  17754. +             next = getc (finput);
  17755. + ***************
  17756. + *** 2470,2480 ****
  17757. +           ;
  17758. +       break;}
  17759. +   case 285:
  17760. + ! #line 1455 "c-parse.y"
  17761. +   { stmt_count++; ;
  17762. +       break;}
  17763. +   case 287:
  17764. + ! #line 1458 "c-parse.y"
  17765. +   { stmt_count++;
  17766. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  17767. +   /* It appears that this should not be done--that a non-lvalue array
  17768. + --- 2802,2812 ----
  17769. +           ;
  17770. +       break;}
  17771. +   case 285:
  17772. + ! #line 1463 "c-parse.y"
  17773. +   { stmt_count++; ;
  17774. +       break;}
  17775. +   case 287:
  17776. + ! #line 1466 "c-parse.y"
  17777. +   { stmt_count++;
  17778. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  17779. +   /* It appears that this should not be done--that a non-lvalue array
  17780. + ***************
  17781. + *** 2493,2511 ****
  17782. +             clear_momentary (); ;
  17783. +       break;}
  17784. +   case 288:
  17785. + ! #line 1475 "c-parse.y"
  17786. +   { expand_start_else ();
  17787. +             yyvsp[-1].itype = stmt_count;
  17788. +             position_after_white_space (); ;
  17789. +       break;}
  17790. +   case 289:
  17791. + ! #line 1479 "c-parse.y"
  17792. +   { expand_end_cond ();
  17793. +             if (extra_warnings && stmt_count == yyvsp[-3].itype)
  17794. +               warning ("empty body in an else-statement"); ;
  17795. +       break;}
  17796. +   case 290:
  17797. + ! #line 1483 "c-parse.y"
  17798. +   { expand_end_cond ();
  17799. +             /* This warning is here instead of in simple_if, because we
  17800. +                do not want a warning if an empty if is followed by an
  17801. + --- 2825,2843 ----
  17802. +             clear_momentary (); ;
  17803. +       break;}
  17804. +   case 288:
  17805. + ! #line 1483 "c-parse.y"
  17806. +   { expand_start_else ();
  17807. +             yyvsp[-1].itype = stmt_count;
  17808. +             position_after_white_space (); ;
  17809. +       break;}
  17810. +   case 289:
  17811. + ! #line 1487 "c-parse.y"
  17812. +   { expand_end_cond ();
  17813. +             if (extra_warnings && stmt_count == yyvsp[-3].itype)
  17814. +               warning ("empty body in an else-statement"); ;
  17815. +       break;}
  17816. +   case 290:
  17817. + ! #line 1491 "c-parse.y"
  17818. +   { expand_end_cond ();
  17819. +             /* This warning is here instead of in simple_if, because we
  17820. +                do not want a warning if an empty if is followed by an
  17821. + ***************
  17822. + *** 2515,2525 ****
  17823. +                           "empty body in an if-statement"); ;
  17824. +       break;}
  17825. +   case 291:
  17826. + ! #line 1494 "c-parse.y"
  17827. +   { expand_end_cond (); ;
  17828. +       break;}
  17829. +   case 292:
  17830. + ! #line 1496 "c-parse.y"
  17831. +   { stmt_count++;
  17832. +             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  17833. +             /* The emit_nop used to come before emit_line_note,
  17834. + --- 2847,2857 ----
  17835. +                           "empty body in an if-statement"); ;
  17836. +       break;}
  17837. +   case 291:
  17838. + ! #line 1502 "c-parse.y"
  17839. +   { expand_end_cond (); ;
  17840. +       break;}
  17841. +   case 292:
  17842. + ! #line 1504 "c-parse.y"
  17843. +   { stmt_count++;
  17844. +             emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno);
  17845. +             /* The emit_nop used to come before emit_line_note,
  17846. + ***************
  17847. + *** 2531,2537 ****
  17848. +             emit_nop (); ;
  17849. +       break;}
  17850. +   case 293:
  17851. + ! #line 1506 "c-parse.y"
  17852. +   { /* Don't start the loop till we have succeeded
  17853. +                in parsing the end test.  This is to make sure
  17854. +                that we end every loop we start.  */
  17855. + --- 2863,2869 ----
  17856. +             emit_nop (); ;
  17857. +       break;}
  17858. +   case 293:
  17859. + ! #line 1514 "c-parse.y"
  17860. +   { /* Don't start the loop till we have succeeded
  17861. +                in parsing the end test.  This is to make sure
  17862. +                that we end every loop we start.  */
  17863. + ***************
  17864. + *** 2542,2552 ****
  17865. +             position_after_white_space (); ;
  17866. +       break;}
  17867. +   case 294:
  17868. + ! #line 1515 "c-parse.y"
  17869. +   { expand_end_loop (); ;
  17870. +       break;}
  17871. +   case 295:
  17872. + ! #line 1518 "c-parse.y"
  17873. +   { emit_line_note (input_filename, lineno);
  17874. +             expand_exit_loop_if_false (NULL_PTR,
  17875. +                            truthvalue_conversion (yyvsp[-2].ttype));
  17876. + --- 2874,2884 ----
  17877. +             position_after_white_space (); ;
  17878. +       break;}
  17879. +   case 294:
  17880. + ! #line 1523 "c-parse.y"
  17881. +   { expand_end_loop (); ;
  17882. +       break;}
  17883. +   case 295:
  17884. + ! #line 1526 "c-parse.y"
  17885. +   { emit_line_note (input_filename, lineno);
  17886. +             expand_exit_loop_if_false (NULL_PTR,
  17887. +                            truthvalue_conversion (yyvsp[-2].ttype));
  17888. + ***************
  17889. + *** 2554,2565 ****
  17890. +             clear_momentary (); ;
  17891. +       break;}
  17892. +   case 296:
  17893. + ! #line 1525 "c-parse.y"
  17894. +   { expand_end_loop ();
  17895. +             clear_momentary (); ;
  17896. +       break;}
  17897. +   case 297:
  17898. + ! #line 1529 "c-parse.y"
  17899. +   { stmt_count++;
  17900. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17901. +             /* See comment in `while' alternative, above.  */
  17902. + --- 2886,2897 ----
  17903. +             clear_momentary (); ;
  17904. +       break;}
  17905. +   case 296:
  17906. + ! #line 1533 "c-parse.y"
  17907. +   { expand_end_loop ();
  17908. +             clear_momentary (); ;
  17909. +       break;}
  17910. +   case 297:
  17911. + ! #line 1537 "c-parse.y"
  17912. +   { stmt_count++;
  17913. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17914. +             /* See comment in `while' alternative, above.  */
  17915. + ***************
  17916. + *** 2572,2583 ****
  17917. +           ;
  17918. +       break;}
  17919. +   case 298:
  17920. + ! #line 1541 "c-parse.y"
  17921. +   { yyvsp[0].lineno = lineno;
  17922. +             yyval.filename = input_filename; ;
  17923. +       break;}
  17924. +   case 299:
  17925. + ! #line 1544 "c-parse.y"
  17926. +   { 
  17927. +             /* Start the loop.  Doing this after parsing
  17928. +                all the expressions ensures we will end the loop.  */
  17929. + --- 2904,2915 ----
  17930. +           ;
  17931. +       break;}
  17932. +   case 298:
  17933. + ! #line 1549 "c-parse.y"
  17934. +   { yyvsp[0].lineno = lineno;
  17935. +             yyval.filename = input_filename; ;
  17936. +       break;}
  17937. +   case 299:
  17938. + ! #line 1552 "c-parse.y"
  17939. +   { 
  17940. +             /* Start the loop.  Doing this after parsing
  17941. +                all the expressions ensures we will end the loop.  */
  17942. + ***************
  17943. + *** 2595,2601 ****
  17944. +             position_after_white_space (); ;
  17945. +       break;}
  17946. +   case 300:
  17947. + ! #line 1560 "c-parse.y"
  17948. +   { /* Emit the increment expression, with a line number.  */
  17949. +             emit_line_note (yyvsp[-4].filename, yyvsp[-5].lineno);
  17950. +             expand_loop_continue_here ();
  17951. + --- 2927,2933 ----
  17952. +             position_after_white_space (); ;
  17953. +       break;}
  17954. +   case 300:
  17955. + ! #line 1568 "c-parse.y"
  17956. +   { /* Emit the increment expression, with a line number.  */
  17957. +             emit_line_note (yyvsp[-4].filename, yyvsp[-5].lineno);
  17958. +             expand_loop_continue_here ();
  17959. + ***************
  17960. + *** 2605,2611 ****
  17961. +             expand_end_loop (); ;
  17962. +       break;}
  17963. +   case 301:
  17964. + ! #line 1568 "c-parse.y"
  17965. +   { stmt_count++;
  17966. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17967. +             c_expand_start_case (yyvsp[-1].ttype);
  17968. + --- 2937,2943 ----
  17969. +             expand_end_loop (); ;
  17970. +       break;}
  17971. +   case 301:
  17972. + ! #line 1576 "c-parse.y"
  17973. +   { stmt_count++;
  17974. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  17975. +             c_expand_start_case (yyvsp[-1].ttype);
  17976. + ***************
  17977. + *** 2615,2652 ****
  17978. +             position_after_white_space (); ;
  17979. +       break;}
  17980. +   case 302:
  17981. + ! #line 1576 "c-parse.y"
  17982. +   { expand_end_case (yyvsp[-3].ttype);
  17983. +             pop_momentary (); ;
  17984. +       break;}
  17985. +   case 303:
  17986. + ! #line 1579 "c-parse.y"
  17987. +   { stmt_count++;
  17988. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  17989. +             if ( ! expand_exit_something ())
  17990. +               error ("break statement not within loop or switch"); ;
  17991. +       break;}
  17992. +   case 304:
  17993. + ! #line 1584 "c-parse.y"
  17994. +   { stmt_count++;
  17995. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  17996. +             if (! expand_continue_loop (NULL_PTR))
  17997. +               error ("continue statement not within a loop"); ;
  17998. +       break;}
  17999. +   case 305:
  18000. + ! #line 1589 "c-parse.y"
  18001. +   { stmt_count++;
  18002. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  18003. +             c_expand_return (NULL_TREE); ;
  18004. +       break;}
  18005. +   case 306:
  18006. + ! #line 1593 "c-parse.y"
  18007. +   { stmt_count++;
  18008. +             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  18009. +             c_expand_return (yyvsp[-1].ttype); ;
  18010. +       break;}
  18011. +   case 307:
  18012. + ! #line 1597 "c-parse.y"
  18013. +   { stmt_count++;
  18014. +             emit_line_note (yyvsp[-7].filename, yyvsp[-6].lineno);
  18015. +             STRIP_NOPS (yyvsp[-2].ttype);
  18016. + --- 2947,2984 ----
  18017. +             position_after_white_space (); ;
  18018. +       break;}
  18019. +   case 302:
  18020. + ! #line 1584 "c-parse.y"
  18021. +   { expand_end_case (yyvsp[-3].ttype);
  18022. +             pop_momentary (); ;
  18023. +       break;}
  18024. +   case 303:
  18025. + ! #line 1587 "c-parse.y"
  18026. +   { stmt_count++;
  18027. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  18028. +             if ( ! expand_exit_something ())
  18029. +               error ("break statement not within loop or switch"); ;
  18030. +       break;}
  18031. +   case 304:
  18032. + ! #line 1592 "c-parse.y"
  18033. +   { stmt_count++;
  18034. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  18035. +             if (! expand_continue_loop (NULL_PTR))
  18036. +               error ("continue statement not within a loop"); ;
  18037. +       break;}
  18038. +   case 305:
  18039. + ! #line 1597 "c-parse.y"
  18040. +   { stmt_count++;
  18041. +             emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno);
  18042. +             c_expand_return (NULL_TREE); ;
  18043. +       break;}
  18044. +   case 306:
  18045. + ! #line 1601 "c-parse.y"
  18046. +   { stmt_count++;
  18047. +             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  18048. +             c_expand_return (yyvsp[-1].ttype); ;
  18049. +       break;}
  18050. +   case 307:
  18051. + ! #line 1605 "c-parse.y"
  18052. +   { stmt_count++;
  18053. +             emit_line_note (yyvsp[-7].filename, yyvsp[-6].lineno);
  18054. +             STRIP_NOPS (yyvsp[-2].ttype);
  18055. + ***************
  18056. + *** 2658,2664 ****
  18057. +               error ("argument of `asm' is not a constant string"); ;
  18058. +       break;}
  18059. +   case 308:
  18060. + ! #line 1608 "c-parse.y"
  18061. +   { stmt_count++;
  18062. +             emit_line_note (yyvsp[-9].filename, yyvsp[-8].lineno);
  18063. +             c_expand_asm_operands (yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, NULL_TREE,
  18064. + --- 2990,2996 ----
  18065. +               error ("argument of `asm' is not a constant string"); ;
  18066. +       break;}
  18067. +   case 308:
  18068. + ! #line 1616 "c-parse.y"
  18069. +   { stmt_count++;
  18070. +             emit_line_note (yyvsp[-9].filename, yyvsp[-8].lineno);
  18071. +             c_expand_asm_operands (yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, NULL_TREE,
  18072. + ***************
  18073. + *** 2666,2672 ****
  18074. +                        input_filename, lineno); ;
  18075. +       break;}
  18076. +   case 309:
  18077. + ! #line 1615 "c-parse.y"
  18078. +   { stmt_count++;
  18079. +             emit_line_note (yyvsp[-11].filename, yyvsp[-10].lineno);
  18080. +             c_expand_asm_operands (yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE,
  18081. + --- 2998,3004 ----
  18082. +                        input_filename, lineno); ;
  18083. +       break;}
  18084. +   case 309:
  18085. + ! #line 1623 "c-parse.y"
  18086. +   { stmt_count++;
  18087. +             emit_line_note (yyvsp[-11].filename, yyvsp[-10].lineno);
  18088. +             c_expand_asm_operands (yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE,
  18089. + ***************
  18090. + *** 2674,2680 ****
  18091. +                        input_filename, lineno); ;
  18092. +       break;}
  18093. +   case 310:
  18094. + ! #line 1623 "c-parse.y"
  18095. +   { stmt_count++;
  18096. +             emit_line_note (yyvsp[-13].filename, yyvsp[-12].lineno);
  18097. +             c_expand_asm_operands (yyvsp[-8].ttype, yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype,
  18098. + --- 3006,3012 ----
  18099. +                        input_filename, lineno); ;
  18100. +       break;}
  18101. +   case 310:
  18102. + ! #line 1631 "c-parse.y"
  18103. +   { stmt_count++;
  18104. +             emit_line_note (yyvsp[-13].filename, yyvsp[-12].lineno);
  18105. +             c_expand_asm_operands (yyvsp[-8].ttype, yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype,
  18106. + ***************
  18107. + *** 2682,2688 ****
  18108. +                        input_filename, lineno); ;
  18109. +       break;}
  18110. +   case 311:
  18111. + ! #line 1629 "c-parse.y"
  18112. +   { tree decl;
  18113. +             stmt_count++;
  18114. +             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  18115. + --- 3014,3020 ----
  18116. +                        input_filename, lineno); ;
  18117. +       break;}
  18118. +   case 311:
  18119. + ! #line 1637 "c-parse.y"
  18120. +   { tree decl;
  18121. +             stmt_count++;
  18122. +             emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno);
  18123. + ***************
  18124. + *** 2695,2707 ****
  18125. +           ;
  18126. +       break;}
  18127. +   case 312:
  18128. + ! #line 1640 "c-parse.y"
  18129. +   { stmt_count++;
  18130. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  18131. +             expand_computed_goto (convert (ptr_type_node, yyvsp[-1].ttype)); ;
  18132. +       break;}
  18133. +   case 315:
  18134. + ! #line 1653 "c-parse.y"
  18135. +   {
  18136. +           /* The value returned by this action is  */
  18137. +           /*      1 if everything is OK */ 
  18138. + --- 3027,3039 ----
  18139. +           ;
  18140. +       break;}
  18141. +   case 312:
  18142. + ! #line 1648 "c-parse.y"
  18143. +   { stmt_count++;
  18144. +             emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno);
  18145. +             expand_computed_goto (convert (ptr_type_node, yyvsp[-1].ttype)); ;
  18146. +       break;}
  18147. +   case 315:
  18148. + ! #line 1661 "c-parse.y"
  18149. +   {
  18150. +           /* The value returned by this action is  */
  18151. +           /*      1 if everything is OK */ 
  18152. + ***************
  18153. + *** 2724,2737 ****
  18154. +         ;
  18155. +       break;}
  18156. +   case 316:
  18157. + ! #line 1674 "c-parse.y"
  18158. +   {
  18159. +           if (yyvsp[-1].itype)
  18160. +             iterator_for_loop_end (yyvsp[-3].ttype);
  18161. +         ;
  18162. +       break;}
  18163. +   case 317:
  18164. + ! #line 1706 "c-parse.y"
  18165. +   { register tree value = check_case_value (yyvsp[-1].ttype);
  18166. +             register tree label
  18167. +               = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE);
  18168. + --- 3056,3069 ----
  18169. +         ;
  18170. +       break;}
  18171. +   case 316:
  18172. + ! #line 1682 "c-parse.y"
  18173. +   {
  18174. +           if (yyvsp[-1].itype)
  18175. +             iterator_for_loop_end (yyvsp[-3].ttype);
  18176. +         ;
  18177. +       break;}
  18178. +   case 317:
  18179. + ! #line 1714 "c-parse.y"
  18180. +   { register tree value = check_case_value (yyvsp[-1].ttype);
  18181. +             register tree label
  18182. +               = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE);
  18183. + ***************
  18184. + *** 2758,2764 ****
  18185. +             position_after_white_space (); ;
  18186. +       break;}
  18187. +   case 318:
  18188. + ! #line 1731 "c-parse.y"
  18189. +   { register tree value1 = check_case_value (yyvsp[-3].ttype);
  18190. +             register tree value2 = check_case_value (yyvsp[-1].ttype);
  18191. +             register tree label
  18192. + --- 3090,3096 ----
  18193. +             position_after_white_space (); ;
  18194. +       break;}
  18195. +   case 318:
  18196. + ! #line 1739 "c-parse.y"
  18197. +   { register tree value1 = check_case_value (yyvsp[-3].ttype);
  18198. +             register tree value2 = check_case_value (yyvsp[-1].ttype);
  18199. +             register tree label
  18200. + ***************
  18201. + *** 2789,2795 ****
  18202. +             position_after_white_space (); ;
  18203. +       break;}
  18204. +   case 319:
  18205. + ! #line 1760 "c-parse.y"
  18206. +   {
  18207. +             tree duplicate;
  18208. +             register tree label
  18209. + --- 3121,3127 ----
  18210. +             position_after_white_space (); ;
  18211. +       break;}
  18212. +   case 319:
  18213. + ! #line 1768 "c-parse.y"
  18214. +   {
  18215. +             tree duplicate;
  18216. +             register tree label
  18217. + ***************
  18218. + *** 2806,2812 ****
  18219. +             position_after_white_space (); ;
  18220. +       break;}
  18221. +   case 320:
  18222. + ! #line 1775 "c-parse.y"
  18223. +   { tree label = define_label (input_filename, lineno, yyvsp[-1].ttype);
  18224. +             stmt_count++;
  18225. +             emit_nop ();
  18226. + --- 3138,3144 ----
  18227. +             position_after_white_space (); ;
  18228. +       break;}
  18229. +   case 320:
  18230. + ! #line 1783 "c-parse.y"
  18231. +   { tree label = define_label (input_filename, lineno, yyvsp[-1].ttype);
  18232. +             stmt_count++;
  18233. +             emit_nop ();
  18234. + ***************
  18235. + *** 2815,2866 ****
  18236. +             position_after_white_space (); ;
  18237. +       break;}
  18238. +   case 321:
  18239. + ! #line 1787 "c-parse.y"
  18240. +   { emit_line_note (input_filename, lineno);
  18241. +             yyval.ttype = NULL_TREE; ;
  18242. +       break;}
  18243. +   case 322:
  18244. + ! #line 1790 "c-parse.y"
  18245. +   { emit_line_note (input_filename, lineno); ;
  18246. +       break;}
  18247. +   case 323:
  18248. + ! #line 1795 "c-parse.y"
  18249. +   { yyval.ttype = NULL_TREE; ;
  18250. +       break;}
  18251. +   case 325:
  18252. + ! #line 1802 "c-parse.y"
  18253. +   { yyval.ttype = NULL_TREE; ;
  18254. +       break;}
  18255. +   case 328:
  18256. + ! #line 1809 "c-parse.y"
  18257. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  18258. +       break;}
  18259. +   case 329:
  18260. + ! #line 1814 "c-parse.y"
  18261. +   { yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  18262. +       break;}
  18263. +   case 330:
  18264. + ! #line 1819 "c-parse.y"
  18265. +   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), NULL_TREE); ;
  18266. +       break;}
  18267. +   case 331:
  18268. + ! #line 1821 "c-parse.y"
  18269. +   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), yyvsp[-2].ttype); ;
  18270. +       break;}
  18271. +   case 332:
  18272. + ! #line 1827 "c-parse.y"
  18273. +   { pushlevel (0);
  18274. +             clear_parm_order ();
  18275. +             declare_parm_level (0); ;
  18276. +       break;}
  18277. +   case 333:
  18278. + ! #line 1831 "c-parse.y"
  18279. +   { yyval.ttype = yyvsp[0].ttype;
  18280. +             parmlist_tags_warning ();
  18281. +             poplevel (0, 0, 0); ;
  18282. +       break;}
  18283. +   case 335:
  18284. + ! #line 1839 "c-parse.y"
  18285. +   { tree parm;
  18286. +             if (pedantic)
  18287. +               pedwarn ("ANSI C forbids forward parameter declarations");
  18288. + --- 3147,3198 ----
  18289. +             position_after_white_space (); ;
  18290. +       break;}
  18291. +   case 321:
  18292. + ! #line 1795 "c-parse.y"
  18293. +   { emit_line_note (input_filename, lineno);
  18294. +             yyval.ttype = NULL_TREE; ;
  18295. +       break;}
  18296. +   case 322:
  18297. + ! #line 1798 "c-parse.y"
  18298. +   { emit_line_note (input_filename, lineno); ;
  18299. +       break;}
  18300. +   case 323:
  18301. + ! #line 1803 "c-parse.y"
  18302. +   { yyval.ttype = NULL_TREE; ;
  18303. +       break;}
  18304. +   case 325:
  18305. + ! #line 1810 "c-parse.y"
  18306. +   { yyval.ttype = NULL_TREE; ;
  18307. +       break;}
  18308. +   case 328:
  18309. + ! #line 1817 "c-parse.y"
  18310. +   { yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ;
  18311. +       break;}
  18312. +   case 329:
  18313. + ! #line 1822 "c-parse.y"
  18314. +   { yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ;
  18315. +       break;}
  18316. +   case 330:
  18317. + ! #line 1827 "c-parse.y"
  18318. +   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), NULL_TREE); ;
  18319. +       break;}
  18320. +   case 331:
  18321. + ! #line 1829 "c-parse.y"
  18322. +   { yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), yyvsp[-2].ttype); ;
  18323. +       break;}
  18324. +   case 332:
  18325. + ! #line 1835 "c-parse.y"
  18326. +   { pushlevel (0);
  18327. +             clear_parm_order ();
  18328. +             declare_parm_level (0); ;
  18329. +       break;}
  18330. +   case 333:
  18331. + ! #line 1839 "c-parse.y"
  18332. +   { yyval.ttype = yyvsp[0].ttype;
  18333. +             parmlist_tags_warning ();
  18334. +             poplevel (0, 0, 0); ;
  18335. +       break;}
  18336. +   case 335:
  18337. + ! #line 1847 "c-parse.y"
  18338. +   { tree parm;
  18339. +             if (pedantic)
  18340. +               pedwarn ("ANSI C forbids forward parameter declarations");
  18341. + ***************
  18342. + *** 2870,2943 ****
  18343. +             clear_parm_order (); ;
  18344. +       break;}
  18345. +   case 336:
  18346. + ! #line 1847 "c-parse.y"
  18347. +   { yyval.ttype = yyvsp[0].ttype; ;
  18348. +       break;}
  18349. +   case 337:
  18350. + ! #line 1849 "c-parse.y"
  18351. +   { yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); ;
  18352. +       break;}
  18353. +   case 338:
  18354. + ! #line 1855 "c-parse.y"
  18355. +   { yyval.ttype = get_parm_info (0); ;
  18356. +       break;}
  18357. +   case 339:
  18358. + ! #line 1857 "c-parse.y"
  18359. +   { yyval.ttype = get_parm_info (0);
  18360. +             if (pedantic)
  18361. +               pedwarn ("ANSI C requires a named argument before `...'");
  18362. +           ;
  18363. +       break;}
  18364. +   case 340:
  18365. + ! #line 1862 "c-parse.y"
  18366. +   { yyval.ttype = get_parm_info (1); ;
  18367. +       break;}
  18368. +   case 341:
  18369. + ! #line 1864 "c-parse.y"
  18370. +   { yyval.ttype = get_parm_info (0); ;
  18371. +       break;}
  18372. +   case 342:
  18373. + ! #line 1869 "c-parse.y"
  18374. +   { push_parm_decl (yyvsp[0].ttype); ;
  18375. +       break;}
  18376. +   case 343:
  18377. + ! #line 1871 "c-parse.y"
  18378. +   { push_parm_decl (yyvsp[0].ttype); ;
  18379. +       break;}
  18380. +   case 344:
  18381. + ! #line 1878 "c-parse.y"
  18382. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18383. +       break;}
  18384. +   case 345:
  18385. + ! #line 1880 "c-parse.y"
  18386. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18387. +       break;}
  18388. +   case 346:
  18389. + ! #line 1882 "c-parse.y"
  18390. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  18391. +       break;}
  18392. +   case 347:
  18393. + ! #line 1884 "c-parse.y"
  18394. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18395. +       break;}
  18396. +   case 348:
  18397. + ! #line 1886 "c-parse.y"
  18398. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  18399. +       break;}
  18400. +   case 349:
  18401. + ! #line 1893 "c-parse.y"
  18402. +   { pushlevel (0);
  18403. +             clear_parm_order ();
  18404. +             declare_parm_level (1); ;
  18405. +       break;}
  18406. +   case 350:
  18407. + ! #line 1897 "c-parse.y"
  18408. +   { yyval.ttype = yyvsp[0].ttype;
  18409. +             parmlist_tags_warning ();
  18410. +             poplevel (0, 0, 0); ;
  18411. +       break;}
  18412. +   case 352:
  18413. + ! #line 1905 "c-parse.y"
  18414. +   { tree t;
  18415. +             for (t = yyvsp[-1].ttype; t; t = TREE_CHAIN (t))
  18416. +               if (TREE_VALUE (t) == NULL_TREE)
  18417. + --- 3202,3275 ----
  18418. +             clear_parm_order (); ;
  18419. +       break;}
  18420. +   case 336:
  18421. + ! #line 1855 "c-parse.y"
  18422. +   { yyval.ttype = yyvsp[0].ttype; ;
  18423. +       break;}
  18424. +   case 337:
  18425. + ! #line 1857 "c-parse.y"
  18426. +   { yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); ;
  18427. +       break;}
  18428. +   case 338:
  18429. + ! #line 1863 "c-parse.y"
  18430. +   { yyval.ttype = get_parm_info (0); ;
  18431. +       break;}
  18432. +   case 339:
  18433. + ! #line 1865 "c-parse.y"
  18434. +   { yyval.ttype = get_parm_info (0);
  18435. +             if (pedantic)
  18436. +               pedwarn ("ANSI C requires a named argument before `...'");
  18437. +           ;
  18438. +       break;}
  18439. +   case 340:
  18440. + ! #line 1870 "c-parse.y"
  18441. +   { yyval.ttype = get_parm_info (1); ;
  18442. +       break;}
  18443. +   case 341:
  18444. + ! #line 1872 "c-parse.y"
  18445. +   { yyval.ttype = get_parm_info (0); ;
  18446. +       break;}
  18447. +   case 342:
  18448. + ! #line 1877 "c-parse.y"
  18449. +   { push_parm_decl (yyvsp[0].ttype); ;
  18450. +       break;}
  18451. +   case 343:
  18452. + ! #line 1879 "c-parse.y"
  18453. +   { push_parm_decl (yyvsp[0].ttype); ;
  18454. +       break;}
  18455. +   case 344:
  18456. + ! #line 1886 "c-parse.y"
  18457. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18458. +       break;}
  18459. +   case 345:
  18460. + ! #line 1888 "c-parse.y"
  18461. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18462. +       break;}
  18463. +   case 346:
  18464. + ! #line 1890 "c-parse.y"
  18465. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  18466. +       break;}
  18467. +   case 347:
  18468. + ! #line 1892 "c-parse.y"
  18469. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype)    ; ;
  18470. +       break;}
  18471. +   case 348:
  18472. + ! #line 1894 "c-parse.y"
  18473. +   { yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ;
  18474. +       break;}
  18475. +   case 349:
  18476. + ! #line 1901 "c-parse.y"
  18477. +   { pushlevel (0);
  18478. +             clear_parm_order ();
  18479. +             declare_parm_level (1); ;
  18480. +       break;}
  18481. +   case 350:
  18482. + ! #line 1905 "c-parse.y"
  18483. +   { yyval.ttype = yyvsp[0].ttype;
  18484. +             parmlist_tags_warning ();
  18485. +             poplevel (0, 0, 0); ;
  18486. +       break;}
  18487. +   case 352:
  18488. + ! #line 1913 "c-parse.y"
  18489. +   { tree t;
  18490. +             for (t = yyvsp[-1].ttype; t; t = TREE_CHAIN (t))
  18491. +               if (TREE_VALUE (t) == NULL_TREE)
  18492. + ***************
  18493. + *** 2945,2968 ****
  18494. +             yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, yyvsp[-1].ttype); ;
  18495. +       break;}
  18496. +   case 353:
  18497. + ! #line 1915 "c-parse.y"
  18498. +   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  18499. +       break;}
  18500. +   case 354:
  18501. + ! #line 1917 "c-parse.y"
  18502. +   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  18503. +       break;}
  18504. +   case 355:
  18505. + ! #line 1923 "c-parse.y"
  18506. +   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  18507. +       break;}
  18508. +   case 356:
  18509. + ! #line 1925 "c-parse.y"
  18510. +   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  18511. +       break;}
  18512. +   }
  18513. +      /* the action file gets copied in in place of this dollarsign */
  18514. + ! #line 327 "bison.simple"
  18515. +   
  18516. +     yyvsp -= yylen;
  18517. +     yyssp -= yylen;
  18518. + --- 3277,3300 ----
  18519. +             yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, yyvsp[-1].ttype); ;
  18520. +       break;}
  18521. +   case 353:
  18522. + ! #line 1923 "c-parse.y"
  18523. +   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  18524. +       break;}
  18525. +   case 354:
  18526. + ! #line 1925 "c-parse.y"
  18527. +   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  18528. +       break;}
  18529. +   case 355:
  18530. + ! #line 1931 "c-parse.y"
  18531. +   { yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ;
  18532. +       break;}
  18533. +   case 356:
  18534. + ! #line 1933 "c-parse.y"
  18535. +   { yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ;
  18536. +       break;}
  18537. +   }
  18538. +      /* the action file gets copied in in place of this dollarsign */
  18539. + ! #line 465 "/gnu/lib/bison.simple"
  18540. +   
  18541. +     yyvsp -= yylen;
  18542. +     yyssp -= yylen;
  18543. + ***************
  18544. + *** 3021,3029 ****
  18545. +       /* If not already recovering from an error, report this error.  */
  18546. +       {
  18547. +         ++yynerrs;
  18548. + !       yyerror("parse error");
  18549. +       }
  18550. +   
  18551. +     if (yyerrstatus == 3)
  18552. +       {
  18553. +         /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  18554. + --- 3353,3406 ----
  18555. +       /* If not already recovering from an error, report this error.  */
  18556. +       {
  18557. +         ++yynerrs;
  18558. + ! 
  18559. + ! #ifdef YYERROR_VERBOSE
  18560. + !       yyn = yypact[yystate];
  18561. + ! 
  18562. + !       if (yyn > YYFLAG && yyn < YYLAST)
  18563. + !     {
  18564. + !       int size = 0;
  18565. + !       char *msg;
  18566. + !       int x, count;
  18567. + ! 
  18568. + !       count = 0;
  18569. + !       /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  18570. + !       for (x = (yyn < 0 ? -yyn : 0);
  18571. + !            x < (sizeof(yytname) / sizeof(char *)); x++)
  18572. + !         if (yycheck[x + yyn] == x)
  18573. + !           size += strlen(yytname[x]) + 15, count++;
  18574. + !       msg = (char *) malloc(size + 15);
  18575. + !       if (msg != 0)
  18576. + !         {
  18577. + !           strcpy(msg, "parse error");
  18578. + ! 
  18579. + !           if (count < 5)
  18580. + !         {
  18581. + !           count = 0;
  18582. + !           for (x = (yyn < 0 ? -yyn : 0);
  18583. + !                x < (sizeof(yytname) / sizeof(char *)); x++)
  18584. + !             if (yycheck[x + yyn] == x)
  18585. + !               {
  18586. + !             strcat(msg, count == 0 ? ", expecting `" : " or `");
  18587. + !             strcat(msg, yytname[x]);
  18588. + !             strcat(msg, "'");
  18589. + !             count++;
  18590. + !               }
  18591. + !         }
  18592. + !           yyerror(msg);
  18593. + !           free(msg);
  18594. + !         }
  18595. + !       else
  18596. + !         yyerror ("parse error; also virtual memory exceeded");
  18597. + !     }
  18598. + !       else
  18599. + ! #endif /* YYERROR_VERBOSE */
  18600. + !     yyerror("parse error");
  18601. +       }
  18602. +   
  18603. + +   goto yyerrlab1;
  18604. + + yyerrlab1:   /* here on error raised explicitly by an action */
  18605. + + 
  18606. +     if (yyerrstatus == 3)
  18607. +       {
  18608. +         /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  18609. + ***************
  18610. + *** 3113,3117 ****
  18611. +     yystate = yyn;
  18612. +     goto yynewstate;
  18613. +   }
  18614. + ! #line 1928 "c-parse.y"
  18615. +   
  18616. + --- 3490,3494 ----
  18617. +     yystate = yyn;
  18618. +     goto yynewstate;
  18619. +   }
  18620. + ! #line 1936 "c-parse.y"
  18621. +   
  18622. + diff -rc --new-file gcc-2.5.8-fsf/c-parse.y gcc-2.5.8/c-parse.y
  18623. + *** gcc-2.5.8-fsf/c-parse.y    Tue Nov 23 23:43:28 1993
  18624. + --- gcc-2.5.8/c-parse.y    Tue Feb 22 11:22:26 1994
  18625. + ***************
  18626. + *** 898,905 ****
  18627. +   
  18628. +   attrib
  18629. +       : IDENTIFIER
  18630. + !     { if (strcmp (IDENTIFIER_POINTER ($1), "packed")
  18631. +             && strcmp (IDENTIFIER_POINTER ($1), "noreturn"))
  18632. +           warning ("`%s' attribute directive ignored",
  18633. +                IDENTIFIER_POINTER ($1));
  18634. +         $$ = $1; }
  18635. + --- 898,913 ----
  18636. +   
  18637. +   attrib
  18638. +       : IDENTIFIER
  18639. + !     {
  18640. + ! #ifdef HANDLE_ATTRIBUTE0
  18641. + !       /* give the function a chance to validate further attributes */
  18642. + !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER ($1)) ||
  18643. + !           (strcmp (IDENTIFIER_POINTER ($1), "packed")
  18644. + !           && strcmp (IDENTIFIER_POINTER ($1), "noreturn")))
  18645. + ! #else
  18646. + !       if (strcmp (IDENTIFIER_POINTER ($1), "packed")
  18647. +             && strcmp (IDENTIFIER_POINTER ($1), "noreturn"))
  18648. + + #endif
  18649. +           warning ("`%s' attribute directive ignored",
  18650. +                IDENTIFIER_POINTER ($1));
  18651. +         $$ = $1; }
  18652. + diff -rc --new-file gcc-2.5.8-fsf/calls.c gcc-2.5.8/calls.c
  18653. + *** gcc-2.5.8-fsf/calls.c    Thu Dec  2 12:21:43 1993
  18654. + --- gcc-2.5.8/calls.c    Tue Feb 22 11:22:32 1994
  18655. + ***************
  18656. + *** 2107,2112 ****
  18657. + --- 2107,2120 ----
  18658. +   
  18659. +     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  18660. +   
  18661. + + #if defined (__amigados__)
  18662. + + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  18663. + + #ifdef ENCODE_SECTION_INFO
  18664. + +   /* mark it as a function (to be in the text section that is) */
  18665. + +   SYMBOL_REF_FLAG (fun) = 1;
  18666. + + #endif
  18667. + + #endif
  18668. + + 
  18669. +     INIT_CUMULATIVE_ARGS (args_so_far, NULL_TREE, fun);
  18670. +   
  18671. +     args_size.constant = 0;
  18672. + diff -rc --new-file gcc-2.5.8-fsf/cccp.c gcc-2.5.8/cccp.c
  18673. + *** gcc-2.5.8-fsf/cccp.c    Sat Dec 11 13:49:38 1993
  18674. + --- gcc-2.5.8/cccp.c    Tue Feb 22 11:27:02 1994
  18675. + ***************
  18676. + *** 39,50 ****
  18677. +   #include "config.h"
  18678. +   #endif /* not EMACS */
  18679. +   
  18680. +   #ifndef STANDARD_INCLUDE_DIR
  18681. + ! #define STANDARD_INCLUDE_DIR "/usr/include"
  18682. +   #endif
  18683. +   
  18684. +   #ifndef LOCAL_INCLUDE_DIR
  18685. + ! #define LOCAL_INCLUDE_DIR "/usr/local/include"
  18686. +   #endif
  18687. +   
  18688. +   #if 0 /* We can't get ptrdiff_t, so I arranged not to need PTR_INT_TYPE.  */
  18689. + --- 39,66 ----
  18690. +   #include "config.h"
  18691. +   #endif /* not EMACS */
  18692. +   
  18693. + + #ifdef amigados
  18694. + + /* Since cpp uses alloca to store all its read files, this is quite deadly
  18695. + +    on a system with non-automatic stackgrowth like amigados, so we better
  18696. + +    turn it off now.  Normally alloca is #defined to __builtin_alloca, so
  18697. + +    undefining it causes an external alloca to be used.
  18698. + + 
  18699. + +    Note that it's not wise to generally inhibit __builtin_alloca, since
  18700. + +    using the generic emulator entitels a serious (!) speed penalty, and
  18701. + +    it's bad enough that we have to live with it in cccp, don't make cc1
  18702. + +    unbearably slow as well... */
  18703. + + 
  18704. + + #undef alloca
  18705. + + 
  18706. + + static int amigados_abs_filename ();
  18707. + + #endif
  18708. + + 
  18709. +   #ifndef STANDARD_INCLUDE_DIR
  18710. + ! #define STANDARD_INCLUDE_DIR "/gnu/include"
  18711. +   #endif
  18712. +   
  18713. +   #ifndef LOCAL_INCLUDE_DIR
  18714. + ! #define LOCAL_INCLUDE_DIR "/local/include"
  18715. +   #endif
  18716. +   
  18717. +   #if 0 /* We can't get ptrdiff_t, so I arranged not to need PTR_INT_TYPE.  */
  18718. + ***************
  18719. + *** 1874,1884 ****
  18720. + --- 1890,1904 ----
  18721. +         char *p = in_fname;
  18722. +         char *p1 = p;
  18723. +         /* Discard all directory prefixes from P.  */
  18724. + + #ifdef FILE_NAME_NONDIRECTORY
  18725. + +       p = FILE_NAME_NONDIRECTORY (p);
  18726. + + #else
  18727. +         while (*p1) {
  18728. +       if (*p1 == '/')
  18729. +         p = p1 + 1;
  18730. +       p1++;
  18731. +         }
  18732. + + #endif
  18733. +         /* Output P, but remove known suffixes.  */
  18734. +         len = strlen (p);
  18735. +         if (p[len - 2] == '.' && p[len - 1] == 'c')
  18736. + ***************
  18737. + *** 3636,3642 ****
  18738. +   
  18739. +         if (!no_output && already_output == 0
  18740. +         && (kt->pass_thru
  18741. + !           || (kt->type == T_DEFINE
  18742. +             && (dump_macros == dump_names
  18743. +                 || dump_macros == dump_definitions)))) {
  18744. +           int len;
  18745. + --- 3656,3662 ----
  18746. +   
  18747. +         if (!no_output && already_output == 0
  18748. +         && (kt->pass_thru
  18749. + !           || ((kt->type == T_DEFINE || kt->type == T_UNDEF)
  18750. +             && (dump_macros == dump_names
  18751. +                 || dump_macros == dump_definitions)))) {
  18752. +           int len;
  18753. + ***************
  18754. + *** 3982,3987 ****
  18755. + --- 4002,4019 ----
  18756. +           search_start = dsp;
  18757. +   #ifndef VMS
  18758. +           ep = rindex (nam, '/');
  18759. + + 
  18760. + + #ifdef amigados
  18761. + +         /* amigados uses unix-style directory-filename separation, but
  18762. + +            has VMS-style logicals as well */
  18763. + + 
  18764. + +         if (ep == NULL) 
  18765. + +           {
  18766. + +         ep = rindex (nam, ':');
  18767. + +         /* a ':' is part of the directory name, a '/' isn't ! */
  18768. + +             if (ep != NULL) ep++;
  18769. + +           }
  18770. + + #endif /* amigados */
  18771. +   #else                /* VMS */
  18772. +           ep = rindex (nam, ']');
  18773. +           if (ep == NULL) ep = rindex (nam, '>');
  18774. + ***************
  18775. + *** 4061,4067 ****
  18776. + --- 4093,4103 ----
  18777. +   
  18778. +     /* If specified file name is absolute, just open it.  */
  18779. +   
  18780. + + #ifndef amigados
  18781. +     if (*fbeg == '/') {
  18782. + + #else
  18783. + +   if (amigados_abs_filename (fbeg, flen)) {
  18784. + + #endif
  18785. +       strncpy (fname, fbeg, flen);
  18786. +       fname[flen] = 0;
  18787. +       if (redundant_include_p (fname))
  18788. + ***************
  18789. + *** 4084,4089 ****
  18790. + --- 4120,4129 ----
  18791. +       if (searchptr->fname[0] == 0)
  18792. +         continue;
  18793. +       strcpy (fname, searchptr->fname);
  18794. + + 
  18795. + + #ifdef amigados
  18796. + +     if (fname[strlen (fname) - 1] != ':')
  18797. + + #endif
  18798. +       strcat (fname, "/");
  18799. +       fname[strlen (fname) + flen] = 0;
  18800. +         } else {
  18801. + ***************
  18802. + *** 9017,9025 ****
  18803. +   perror_with_name (name)
  18804. +        char *name;
  18805. +   {
  18806. +     fprintf (stderr, "%s: ", progname);
  18807. + !   if (errno < sys_nerr)
  18808. + !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  18809. +     else
  18810. +       fprintf (stderr, "%s: undocumented I/O error\n", name);
  18811. +     errors++;
  18812. + --- 9057,9067 ----
  18813. +   perror_with_name (name)
  18814. +        char *name;
  18815. +   {
  18816. + +   int error = errno;
  18817. + + 
  18818. +     fprintf (stderr, "%s: ", progname);
  18819. + !   if (error < sys_nerr)
  18820. + !     fprintf (stderr, "%s: %s\n", name, sys_errlist[error]);
  18821. +     else
  18822. +       fprintf (stderr, "%s: undocumented I/O error\n", name);
  18823. +     errors++;
  18824. + ***************
  18825. + *** 9416,9418 ****
  18826. + --- 9458,9484 ----
  18827. +     return dst;
  18828. +   }
  18829. +   #endif /* VMS */
  18830. + + 
  18831. + + 
  18832. + + #ifdef amigados
  18833. + + 
  18834. + + /* This function returns whether the LEN characters long filename FNAME 
  18835. + +    is an absolute path specification. */
  18836. + + 
  18837. + + static int
  18838. + + amigados_abs_filename (fname, len)
  18839. + +      char *fname;
  18840. + +      int len;
  18841. + + {
  18842. + +   /* we're using ixemul.library, which treats `/foo' as `foo:', so 
  18843. + +      fname[0] is to be considered absolute as well */
  18844. + +   if (fname[0] == '/')
  18845. + +     return 1;
  18846. + + 
  18847. + +   /* else do an index() on fname, but one which is limited to len characters */
  18848. + +   while (*fname && *fname != ':' && len) 
  18849. + +     fname++, len--;
  18850. + + 
  18851. + +   return *fname == ':';
  18852. + + }
  18853. + + #endif /* amigados */
  18854. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/amigados.c gcc-2.5.8/config/m68k/amigados.c
  18855. + *** gcc-2.5.8-fsf/config/m68k/amigados.c    Thu Jan  1 00:00:00 1970
  18856. + --- gcc-2.5.8/config/m68k/amigados.c    Tue Feb 22 11:22:43 1994
  18857. + ***************
  18858. + *** 0 ****
  18859. + --- 1,158 ----
  18860. + + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  18861. + +    Copyright (C) 1992 Free Software Foundation, Inc.
  18862. + +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  18863. + + 
  18864. + + This file is part of GNU CC.
  18865. + + 
  18866. + + GNU CC is free software; you can redistribute it and/or modify
  18867. + + it under the terms of the GNU General Public License as published by
  18868. + + the Free Software Foundation; either version 2, or (at your option)
  18869. + + any later version.
  18870. + + 
  18871. + + GNU CC is distributed in the hope that it will be useful,
  18872. + + but WITHOUT ANY WARRANTY; without even the implied warranty of
  18873. + + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18874. + + GNU General Public License for more details.
  18875. + + 
  18876. + + You should have received a copy of the GNU General Public License
  18877. + + along with GNU CC; see the file COPYING.  If not, write to
  18878. + + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18879. + + 
  18880. + + #include "m68k/m68k.c"
  18881. + + 
  18882. + + /* Does operand (which is a symbolic_operand) live in text space? If
  18883. + +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.
  18884. + + 
  18885. + +    This function is used in base relative code generation. */
  18886. + + 
  18887. + + int
  18888. + + read_only_operand (operand)
  18889. + +      rtx operand;
  18890. + + {
  18891. + +   if (GET_CODE (operand) == CONST)
  18892. + +     operand = XEXP (XEXP (operand, 0), 0);
  18893. + +   if (GET_CODE (operand) == SYMBOL_REF)
  18894. + +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  18895. + +   return 1;
  18896. + + }
  18897. + + 
  18898. + + 
  18899. + + /* the rest of the file is to implement AmigaDOS specific keywords some day.
  18900. + +    The approach used so far used __attribute__ for this, but this required
  18901. + +    changes to c-parse.y as well as if we'd use the common keywords used
  18902. + +    on commercial AmigaDOS C-compilers as well. So in the future I'll probably
  18903. + +    switch to __saveds and __interrupt keywords as well.
  18904. + + 
  18905. + +    The rest of this file is currently ignored, because it's no longer
  18906. + +    working with the current gcc version. */
  18907. + + 
  18908. + + #if not_yet_working
  18909. + + 
  18910. + + #include "tree.h"
  18911. + + 
  18912. + + struct attribute {
  18913. + +   tree ident;
  18914. + +   int  saveds : 1,
  18915. + +        interrupt : 1;
  18916. + + };
  18917. + + 
  18918. + + 
  18919. + + static struct attribute *a_tab = 0;
  18920. + + static int a_index, a_size;
  18921. + + 
  18922. + + void
  18923. + + add_attr_entry (attr)
  18924. + +     struct attribute *attr;
  18925. + + {
  18926. + +   if (! a_tab)
  18927. + +     {
  18928. + +       a_size = 10;
  18929. + +       a_index = 0;
  18930. + +       a_tab  = (struct attribute *) xmalloc (a_size * sizeof (struct attribute));
  18931. + +     }
  18932. + + 
  18933. + +   if (a_index == a_size)
  18934. + +     {
  18935. + +       a_size <<= 1;
  18936. + +       a_tab = (struct attribute *) xrealloc (a_tab, a_size * sizeof (struct attribute));
  18937. + +     }
  18938. + + 
  18939. + +   a_tab[a_index++] = *attr;
  18940. + + }
  18941. + + 
  18942. + + 
  18943. + + void
  18944. + + attr_do_saveds (function_ident)
  18945. + +       tree function_ident;
  18946. + + {
  18947. + +   struct attribute attr, *a;
  18948. + +   int i;
  18949. + + 
  18950. + +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  18951. + +     if (a->ident == function_ident)
  18952. + +       {
  18953. + +     a->saveds = 1;
  18954. + +     return;
  18955. + +       }
  18956. + + 
  18957. + +   /* create a new entry for this function */
  18958. + +   attr.ident     = function_ident;
  18959. + +   attr.saveds    = 1;
  18960. + +   attr.interrupt = 0;
  18961. + +   add_attr_entry (&attr);
  18962. + + }
  18963. + + 
  18964. + + void
  18965. + + attr_do_interrupt (function_ident)
  18966. + +     tree function_ident;
  18967. + + {
  18968. + +   struct attribute attr, *a;
  18969. + +   int i;
  18970. + + 
  18971. + +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  18972. + +     if (a->ident == function_ident)
  18973. + +       {
  18974. + +     /* __interrupt implies __saveds */
  18975. + +     a->saveds    = 1;
  18976. + +     a->interrupt = 1;
  18977. + +     return;
  18978. + +       }
  18979. + + 
  18980. + +   /* create a new entry for this function */
  18981. + +   attr.ident     = function_ident;
  18982. + +   attr.saveds     = 1;
  18983. + +   attr.interrupt = 1;
  18984. + +   add_attr_entry (&attr);
  18985. + + }
  18986. + + 
  18987. + + int
  18988. + + attr_does_saveds (function_name)
  18989. + +     char *function_name;
  18990. + + {
  18991. + +   tree ident = get_identifier (function_name);
  18992. + +   struct attribute *attr;
  18993. + +   int i;
  18994. + +   
  18995. + +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  18996. + +     if (attr->ident == ident)
  18997. + +       return attr->saveds;
  18998. + + 
  18999. + +   return 0;
  19000. + + }
  19001. + + 
  19002. + + int
  19003. + + attr_does_interrupt (function_name)
  19004. + +     char *function_name;
  19005. + + {
  19006. + +   tree ident = get_identifier (function_name);
  19007. + +   struct attribute *attr;
  19008. + +   int i;
  19009. + +   
  19010. + +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  19011. + +     if (attr->ident == ident)
  19012. + +       return attr->interrupt;
  19013. + + 
  19014. + +   return 0;
  19015. + + }
  19016. + + 
  19017. + + #endif
  19018. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/amigados.h gcc-2.5.8/config/m68k/amigados.h
  19019. + *** gcc-2.5.8-fsf/config/m68k/amigados.h    Thu Jan  1 00:00:00 1970
  19020. + --- gcc-2.5.8/config/m68k/amigados.h    Tue Feb 22 11:22:44 1994
  19021. + ***************
  19022. + *** 0 ****
  19023. + --- 1,408 ----
  19024. + + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  19025. + +    Copyright (C) 1992 Free Software Foundation, Inc.
  19026. + +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  19027. + + 
  19028. + + This file is part of GNU CC.
  19029. + + 
  19030. + + GNU CC is free software; you can redistribute it and/or modify
  19031. + + it under the terms of the GNU General Public License as published by
  19032. + + the Free Software Foundation; either version 2, or (at your option)
  19033. + + any later version.
  19034. + + 
  19035. + + GNU CC is distributed in the hope that it will be useful,
  19036. + + but WITHOUT ANY WARRANTY; without even the implied warranty of
  19037. + + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19038. + + GNU General Public License for more details.
  19039. + + 
  19040. + + You should have received a copy of the GNU General Public License
  19041. + + along with GNU CC; see the file COPYING.  If not, write to
  19042. + + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19043. + + 
  19044. + + #include "m68k/m68k.h"
  19045. + + 
  19046. + + /* See m68k.h for bits in TARGET_DEFAULT.
  19047. + +    0 means 68000, no hardware fpu (68881/68882/68040).
  19048. + +    7 means 68020 (or higher) with hardware fpu.  */
  19049. + + 
  19050. + + #ifndef TARGET_DEFAULT
  19051. + + #define TARGET_DEFAULT 0
  19052. + + #endif
  19053. + + 
  19054. + + /* Define __HAVE_68881__ in preprocessor according to the -m flags.
  19055. + +    This will control the use of inline 68881 insns in certain macros.
  19056. + +    Also inform the program which CPU this is for.  */
  19057. + + 
  19058. + + #if TARGET_DEFAULT & 02
  19059. + + 
  19060. + + /* -m68881 is the default */
  19061. + + #define CPP_SPEC \
  19062. + + "%{!msoft-float:-D__HAVE_68881__ }\
  19063. + + %{!ansi:%{m68000:-Dmc68010}%{mc68000:-Dmc68010}%{!mc68000:%{!m68000:-Dmc68020}}}"
  19064. + + 
  19065. + + #else
  19066. + + 
  19067. + + /* -msoft-float is the default, assume -mc68000 as well */
  19068. + + #define CPP_SPEC \
  19069. + + "%{m68881:-D__HAVE_68881__ }\
  19070. + + %{!ansi:%{m68020:-Dmc68020}%{mc68020:-Dmc68020}%{!mc68020:%{!m68020:-Dmc68010}}}"
  19071. + + 
  19072. + + /* Don't try using XFmode since we don't have appropriate runtime software
  19073. + +    support.  */
  19074. + + #undef LONG_DOUBLE_TYPE_SIZE
  19075. + + #define LONG_DOUBLE_TYPE_SIZE 64
  19076. + + 
  19077. + + #endif
  19078. + + 
  19079. + + /* -m68000 requires special flags to the assembler.  */
  19080. + + 
  19081. + + #if TARGET_DEFAULT & 01
  19082. + + 
  19083. + + #define ASM_SPEC \
  19084. + +  "%{m68000:-mc68010}%{mc68000:-mc68010}%{!mc68000:%{!m68000:-mc68020}} %{msmall-code:-l} "
  19085. + + 
  19086. + + #else
  19087. + + 
  19088. + + #define ASM_SPEC \
  19089. + +  "%{m68020:-mc68020}%{mc68020:-mc68020}%{!mc68020:%{!m68020:-mc68010}} %{msmall-code:-l} "
  19090. + + 
  19091. + + #endif
  19092. + + 
  19093. + + /* amiga/amigados are the new "standard" defines for the Amiga, MCH_AMIGA
  19094. + +  * was used before and is included for compatibility reasons */
  19095. + + 
  19096. + + #define CPP_PREDEFINES "-Dmc68000 -Damiga -Damigados -DMCH_AMIGA -DAMIGA"
  19097. + + 
  19098. + + /* Choose the right startup file, depending on whether we use base relative
  19099. + +    code, base relative code with automatic relocation (-resident), or plain
  19100. + +    crt0.o. 
  19101. + +   
  19102. + +    Profiling is currently only available for plain startup.
  19103. + +    mcrt0.o does not (yet) exist. */
  19104. + + 
  19105. + + #define STARTFILE_SPEC \
  19106. + +   "%{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}}}}"
  19107. + + 
  19108. + + 
  19109. + + /* Automatically search libamiga.a for AmigaDOS specific functions.  Note
  19110. + +    that we first search the standard C library to resolve as much as
  19111. + +    possible from there, since it has names that are duplicated in libamiga.a
  19112. + +    which we *don't* want from there.  Then search the standard C library
  19113. + +    again to resolve any references that libamiga.a might have generated.
  19114. + +    This may only be a temporary solution since it might be better to simply
  19115. + +    remove the things from libamiga.a that should be pulled in from libc.a
  19116. + +    instead, which would eliminate the first reference to libc.a. */
  19117. + + 
  19118. + + #define LIB_SPEC "%{!p:%{!pg:-lc -lamiga -lc}}%{p:-lc_p -lamiga -lc_p}%{pg:-lc_p -lamiga -lc_p}"
  19119. + + 
  19120. + + /* if debugging, tell the linker to output amiga-hunk symbols *and* a BSD
  19121. + +    compatible debug hunk (which will probably change in the future, it's not
  19122. + +    tremendously useful in its current state). */
  19123. + + 
  19124. + + #define LINK_SPEC "%{g:-amiga-debug-hunk} %{fbaserel:-databss-together} %{resident:-databss-together -datadata-reloc -flavor libb} "
  19125. + + 
  19126. + + #define CC1_SPEC "%{resident:-fbaserel} "
  19127. + + 
  19128. + + #define CC1PLUS_SPEC "%{resident:-fbaserel} "
  19129. + + 
  19130. + + /* Omit frame pointer at high optimization levels. (This doesn't hurt, since
  19131. + +    GDB doesn't work under AmigaDOS at the moment anyway..) */
  19132. + +   
  19133. + + #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
  19134. + + {                                  \
  19135. + +   if (OPTIMIZE >= 2)                         \
  19136. + +     flag_omit_frame_pointer = 1;                \
  19137. + + }
  19138. + + 
  19139. + + /* provide a dummy entry for the small-code switch. This is currently only
  19140. + +    needed by the assembler (explanations: m68k.h), but will be used by cc1
  19141. + +    to output 16bit pc-relative code later. */
  19142. + + 
  19143. + + #undef TARGET_SWITCHES
  19144. + + #define TARGET_SWITCHES  \
  19145. + +   { { "68020", 5},                \
  19146. + +     { "c68020", 5},                \
  19147. + +     { "68881", 2},                \
  19148. + +     { "bitfield", 4},                \
  19149. + +     { "68000", -5},                \
  19150. + +     { "c68000", -5},                \
  19151. + +     { "soft-float", -0102},            \
  19152. + +     { "nobitfield", -4},            \
  19153. + +     { "rtd", 8},                \
  19154. + +     { "nortd", -8},                \
  19155. + +     { "short", 040},                \
  19156. + +     { "noshort", -040},                \
  19157. + +     { "fpa", 0100},                \
  19158. + +     { "nofpa", -0100},                \
  19159. + +     { "sky", 0200},                \
  19160. + +     { "nosky", -0200},                \
  19161. + +     { "68040", 0407},                \
  19162. + +     { "68030", -01400},                \
  19163. + +     { "68030", 7},                \
  19164. + +     { "68040-only", 01000},            \
  19165. + +     { "small-code", 0 },            \
  19166. + +     { "", TARGET_DEFAULT}}
  19167. + + 
  19168. + + /* Every structure or union's size must be a multiple of 2 bytes.  */
  19169. + + 
  19170. + + #define STRUCTURE_SIZE_BOUNDARY 16
  19171. + + 
  19172. + + /* This is (almost;-)) BSD, so it wants DBX format.  */
  19173. + + 
  19174. + + #define DBX_DEBUGGING_INFO
  19175. + + 
  19176. + + /* Allow folding division by zero.  */
  19177. + + #define REAL_INFINITY
  19178. + + 
  19179. + + #if 0    /* This apparently is no longer necessary? */
  19180. + + 
  19181. + + /* This is how to output an assembler line defining a `double' constant.  */
  19182. + + 
  19183. + + #undef ASM_OUTPUT_DOUBLE
  19184. + + #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                    \
  19185. + +   {                                    \
  19186. + +     if (REAL_VALUE_ISINF (VALUE))                    \
  19187. + +       fprintf (FILE, "\t.double 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  19188. + +     else if (isnan (VALUE))                        \
  19189. + +       {                                    \
  19190. + +     union { double d; long l[2];} t;                \
  19191. + +     t.d = (VALUE);                            \
  19192. + +     fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", t.l[0], t.l[1]); \
  19193. + +       }                                    \
  19194. + +     else                                \
  19195. + +       fprintf (FILE, "\t.double 0r%.17g\n", VALUE);            \
  19196. + +   }
  19197. + + 
  19198. + + /* This is how to output an assembler line defining a `float' constant.  */
  19199. + + 
  19200. + + #undef ASM_OUTPUT_FLOAT
  19201. + + #define ASM_OUTPUT_FLOAT(FILE,VALUE)                    \
  19202. + +   {                                    \
  19203. + +     if (REAL_VALUE_ISINF (VALUE))                    \
  19204. + +       fprintf (FILE, "\t.single 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  19205. + +     else if (isnan (VALUE))                        \
  19206. + +       {                                    \
  19207. + +     union { float f; long l;} t;                    \
  19208. + +     t.f = (VALUE);                            \
  19209. + +     fprintf (FILE, "\t.long 0x%lx\n", t.l);                \
  19210. + +       }                                    \
  19211. + +     else                                \
  19212. + +       fprintf (FILE, "\t.single 0r%.9g\n", VALUE);            \
  19213. + +   }
  19214. + + 
  19215. + + /* This is how to output an assembler lines defining floating operands.
  19216. + +    There's no way to output a NaN's fraction, so we lose it.  */
  19217. + +   
  19218. + + #undef ASM_OUTPUT_FLOAT_OPERAND
  19219. + + #define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE)                \
  19220. + +  do {                                \
  19221. + +       if (CODE == 'f')                        \
  19222. + +         {                            \
  19223. + +           (REAL_VALUE_ISINF ((VALUE))                        \
  19224. + +            ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  19225. + +            : (VALUE) == -0.0                            \
  19226. + +            ? asm_fprintf (FILE, "%I0r-0.0")                    \
  19227. + +            : asm_fprintf (FILE, "%I0r%.9g", (VALUE))) \
  19228. + +         } else {                                        \
  19229. + +           long l;                        \
  19230. + +           REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);        \
  19231. + +           if (sizeof (int) == sizeof (long))            \
  19232. + +             asm_fprintf ((FILE), "%I0x%x", l);            \
  19233. + +           else                            \
  19234. + +             asm_fprintf ((FILE), "%I0x%lx", l);            \
  19235. + +         }                            \
  19236. + +      } while (0)
  19237. + + 
  19238. + + #undef ASM_OUTPUT_DOUBLE_OPERAND
  19239. + + #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                \
  19240. + +   (REAL_VALUE_ISINF ((VALUE))                        \
  19241. + +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  19242. + +    : (VALUE) == -0.0                            \
  19243. + +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  19244. + +    : asm_fprintf (FILE, "%I0r%.17g", (VALUE)))
  19245. + + 
  19246. + + #endif    /* 0 */
  19247. + + 
  19248. + + /* use A5 as framepointer instead of A6, this makes A6 available as a
  19249. + +    general purpose register, and can thus be used without problems in
  19250. + +    direct library calls. */
  19251. + + 
  19252. + + #undef FRAME_POINTER_REGNUM
  19253. + + #define FRAME_POINTER_REGNUM 13
  19254. + + #undef ARG_POINTER_REGNUM
  19255. + + #define ARG_POINTER_REGNUM 13
  19256. + + 
  19257. + + /* we use A4 for this, not A5, which is the framepointer */
  19258. + + #undef PIC_OFFSET_TABLE_REGNUM
  19259. + + #define PIC_OFFSET_TABLE_REGNUM 12
  19260. + + 
  19261. + + /* setup a default shell return value for those (gazillion..) programs that
  19262. + +    (inspite of ANSI-C) declare main() to be void (or even VOID...) and thus
  19263. + +    cause the shell to randomly caugh upon executing such programs (contrary
  19264. + +    to Unix, AmigaDOS scripts are terminated with an error if a program returns
  19265. + +    with an error code above the `error' or even `failure' level
  19266. + +    (which is configurable with the FAILAT command) */
  19267. + + 
  19268. + + #define DEFAULT_MAIN_RETURN c_expand_return (integer_zero_node)
  19269. + + 
  19270. + + /* we do have an ansi-compliant c-library ;-) */
  19271. + + #define HAVE_VPRINTF
  19272. + + #define HAVE_VFPRINTF
  19273. + + #define HAVE_PUTENV
  19274. + + #define HAVE_STRERROR
  19275. + + #define HAVE_ATEXIT
  19276. + + 
  19277. + + /* given that symbolic_operand(X), return TRUE if no special
  19278. + +    base relative relocation is necessary */
  19279. + + 
  19280. + + #define LEGITIMATE_BASEREL_OPERAND_P(X) \
  19281. + +   (flag_pic >= 3 && read_only_operand (X))
  19282. + + 
  19283. + + #undef LEGITIMATE_PIC_OPERAND_P
  19284. + + #define LEGITIMATE_PIC_OPERAND_P(X) \
  19285. + +   (! symbolic_operand (X, VOIDmode) || LEGITIMATE_BASEREL_OPERAND_P (X))
  19286. + + 
  19287. + + 
  19288. + + /* Define this macro if references to a symbol must be treated
  19289. + +    differently depending on something about the variable or
  19290. + +    function named by the symbol (such as what section it is in).
  19291. + + 
  19292. + +    The macro definition, if any, is executed immediately after the
  19293. + +    rtl for DECL or other node is created.
  19294. + +    The value of the rtl will be a `mem' whose address is a
  19295. + +    `symbol_ref'.
  19296. + + 
  19297. + +    The usual thing for this macro to do is to a flag in the
  19298. + +    `symbol_ref' (such as `SYMBOL_REF_FLAG') or to store a modified
  19299. + +    name string in the `symbol_ref' (if one bit is not enough
  19300. + +    information).
  19301. + + 
  19302. + +    On the Amiga we use this to indicate if a symbol is in text or
  19303. + +    data space.  */
  19304. + + 
  19305. + + #define ENCODE_SECTION_INFO(DECL)\
  19306. + + do                                    \
  19307. + +   {                                    \
  19308. + +     if (TREE_CODE (DECL) == FUNCTION_DECL)                \
  19309. + +       SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1;            \
  19310. + +     else                                \
  19311. + +       {                                    \
  19312. + +     rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'        \
  19313. + +            ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));        \
  19314. + +     if (RTX_UNCHANGING_P (rtl) && !MEM_VOLATILE_P (rtl))        \
  19315. + +       SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;                \
  19316. + +       }                                    \
  19317. + +   }                                    \
  19318. + + while (0)
  19319. + + 
  19320. + + #undef SELECT_RTX_SECTION
  19321. + + #define SELECT_RTX_SECTION(MODE, X) readonly_data_section ();
  19322. + + 
  19323. + + /* according to varasm.c, RELOC referrs *only* to whether constants (!)
  19324. + +    are addressed by address. This doesn't matter in baserelative code,
  19325. + +    so we allow (inspite of flag_pic) readonly_data_section() in that
  19326. + +    case */
  19327. + + 
  19328. + + #undef SELECT_SECTION
  19329. + + #define SELECT_SECTION(DECL, RELOC)                    \
  19330. + + {                                    \
  19331. + +   if (TREE_CODE (DECL) == STRING_CST)                    \
  19332. + +     {                                    \
  19333. + +       if (! flag_writable_strings)                    \
  19334. + +     readonly_data_section ();                    \
  19335. + +       else                                \
  19336. + +     data_section ();                        \
  19337. + +     }                                    \
  19338. + +   else if (TREE_CODE (DECL) == VAR_DECL)                \
  19339. + +     {                                    \
  19340. + +       if ((flag_pic && flag_pic < 3 && RELOC)                \
  19341. + +       || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL))        \
  19342. + +     data_section ();                        \
  19343. + +       else                                \
  19344. + +     readonly_data_section ();                    \
  19345. + +     }                                    \
  19346. + +   else                                    \
  19347. + +     readonly_data_section ();                        \
  19348. + + }
  19349. + + 
  19350. + + 
  19351. + + 
  19352. + + #if not_yet_working
  19353. + + 
  19354. + + /* starting support for amiga specific keywords
  19355. + +  * --------------------------------------------
  19356. + +  */
  19357. + + 
  19358. + + /* validate attributes that don't take a parameter. Currently we support
  19359. + +  * __attribute__ (saveds) and __attribute__ (interrupt)
  19360. + +  */
  19361. + + #define HANDLE_ATTRIBUTE0(attr) \
  19362. + +   (strcmp(attr, "saveds") != 0 && strcmp(attr, "interrupt") != 0)
  19363. + + 
  19364. + + /* (c-common.c)
  19365. + +  * install additional attributes
  19366. + +  */
  19367. + + #define HANDLE_EXTRA_ATTRIBUTES(a)                         \
  19368. + +   if (TREE_VALUE (a) != 0                            \
  19369. + +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  19370. + +       && TREE_VALUE (a) == get_identifier ("saveds"))                \
  19371. + +     {                                        \
  19372. + +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  19373. + +         {                                    \
  19374. + +           warning_with_decl (decl,                        \
  19375. + +               "saveds attribute specified for non-function `%s'");        \
  19376. + +       return;                                \
  19377. + +         }                                    \
  19378. + +                                               \
  19379. + +       attr_do_saveds (DECL_NAME (decl));                    \
  19380. + +     }                                        \
  19381. + +   else if (TREE_VALUE (a) != 0                            \
  19382. + +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  19383. + +       && TREE_VALUE (a) == get_identifier ("interrupt"))            \
  19384. + +     {                                        \
  19385. + +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  19386. + +         {                                    \
  19387. + +           warning_with_decl (decl,                        \
  19388. + +               "saveds attribute specified for non-function `%s'");        \
  19389. + +       return;                                \
  19390. + +         }                                    \
  19391. + +                                               \
  19392. + +       attr_do_interrupt (DECL_NAME (decl));                    \
  19393. + +     }                                        \
  19394. + + 
  19395. + + 
  19396. + + #define PROLOGUE_EXTRA_SAVE(mask)                        \
  19397. + +   { extern char *current_function_name;                        \
  19398. + +     /* saveds makes the function preserve d1/a0/a1 as well */            \
  19399. + +     if (attr_does_saveds (current_function_name))                \
  19400. + +       mask |= 0x40c0; }                                \
  19401. + + 
  19402. + + 
  19403. + + #define EPILOGUE_EXTRA_RESTORE(mask, nregs)                    \
  19404. + +   { extern char *current_function_name;                        \
  19405. + +     /* restore those extra registers */                        \
  19406. + +     if (attr_does_saveds (current_function_name))                \
  19407. + +       {                                        \
  19408. + +     mask |= 0x0302;                                \
  19409. + +     nregs += 3;                                \
  19410. + +       } }                                    \
  19411. + + 
  19412. + + 
  19413. + + #define EPILOGUE_EXTRA_BARRIER_KLUDGE(stream)                    \
  19414. + +   { extern char *current_function_name;                        \
  19415. + +     /* PLEASE Help! how is this done cleaner?? */                \
  19416. + +     if (attr_does_saveds (current_function_name))                \
  19417. + +       {                                        \
  19418. + +     fprintf (stderr,                             \
  19419. + +          "warning: couldn't cleanup `saveds'-stack in `%s'.\n");    \
  19420. + +     fprintf (stderr,                            \
  19421. + +          "         this is only ok, if the function never returns!\n");    \
  19422. + +       }    }                                    \
  19423. + +         
  19424. + + 
  19425. + + #define EPILOGUE_EXTRA_TEST(stream)                        \
  19426. + +   { extern char *current_function_name;                        \
  19427. + +     /* with the interrupt-attribute, we have to set the cc before rts */    \
  19428. + +     if (attr_does_interrupt (current_function_name))                \
  19429. + +       asm_fprintf (stream, "\ttstl %s\n", reg_names[0]); }            \
  19430. + + 
  19431. + + #endif
  19432. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/m68k.c gcc-2.5.8/config/m68k/m68k.c
  19433. + *** gcc-2.5.8-fsf/config/m68k/m68k.c    Wed Nov  3 21:17:46 1993
  19434. + --- gcc-2.5.8/config/m68k/m68k.c    Tue Feb 22 11:22:46 1994
  19435. + ***************
  19436. + *** 61,67 ****
  19437. +   void
  19438. +   finalize_pic ()
  19439. +   {
  19440. + !   if (flag_pic && current_function_uses_pic_offset_table)
  19441. +       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  19442. +   }
  19443. +   
  19444. + --- 61,67 ----
  19445. +   void
  19446. +   finalize_pic ()
  19447. +   {
  19448. + !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  19449. +       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  19450. +   }
  19451. +   
  19452. + ***************
  19453. + *** 181,186 ****
  19454. + --- 181,189 ----
  19455. +         mask &= ~ (1 << (15 - FRAME_POINTER_REGNUM));
  19456. +         num_saved_regs--;
  19457. +       }
  19458. + + #ifdef PROLOGUE_EXTRA_SAVE
  19459. + +   PROLOGUE_EXTRA_SAVE (mask);
  19460. + + #endif
  19461. +   
  19462. +   #if NEED_PROBE
  19463. +     fprintf (stream, "\ttstl sp@(%d)\n", NEED_PROBE - num_saved_regs * 4);
  19464. + ***************
  19465. + *** 214,220 ****
  19466. +         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  19467. +   #endif
  19468. +       }
  19469. + !   if (flag_pic && current_function_uses_pic_offset_table)
  19470. +       {
  19471. +   #ifdef MOTOROLA
  19472. +         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  19473. + --- 217,223 ----
  19474. +         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  19475. +   #endif
  19476. +       }
  19477. + !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  19478. +       {
  19479. +   #ifdef MOTOROLA
  19480. +         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  19481. + ***************
  19482. + *** 279,284 ****
  19483. + --- 282,290 ----
  19484. +         /* Output just a no-op so that debuggers don't get confused
  19485. +        about which function the pc is in at this address.  */
  19486. +         asm_fprintf (stream, "\tnop\n");
  19487. + + #ifdef EPILOGUE_EXTRA_BARRIER_KLUDGE
  19488. + +       EPILOGUE_EXTRA_BARRIER_KLUDGE(stream);
  19489. + + #endif
  19490. +         return;
  19491. +       }
  19492. +   
  19493. + ***************
  19494. + *** 309,314 ****
  19495. + --- 315,323 ----
  19496. +           nregs++;
  19497. +       mask |= 1 << regno;
  19498. +         }
  19499. + + #ifdef EPILOGUE_EXTRA_RESTORE
  19500. + +   EPILOGUE_EXTRA_RESTORE(mask, nregs);
  19501. + + #endif
  19502. +     offset = foffset + nregs * 4;
  19503. +     if (offset + fsize >= 0x8000
  19504. +         && frame_pointer_needed
  19505. + ***************
  19506. + *** 511,516 ****
  19507. + --- 520,528 ----
  19508. +   #endif
  19509. +       }
  19510. +       }
  19511. + + #ifdef EPILOGUE_EXTRA_TEST
  19512. + +   EPILOGUE_EXTRA_TEST(stream);
  19513. + + #endif
  19514. +     if (current_function_pops_args)
  19515. +       asm_fprintf (stream, "\trtd %0I%d\n", current_function_pops_args);
  19516. +     else
  19517. + ***************
  19518. + *** 801,815 ****
  19519. +     /* First handle a simple SYMBOL_REF or LABEL_REF */
  19520. +     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  19521. +       {
  19522. +         if (reg == 0)
  19523. +       abort ();
  19524. +   
  19525. + !       pic_ref = gen_rtx (MEM, Pmode,
  19526. + !              gen_rtx (PLUS, Pmode,
  19527. + !                   pic_offset_table_rtx, orig));
  19528. +         current_function_uses_pic_offset_table = 1;
  19529. +         RTX_UNCHANGING_P (pic_ref) = 1;
  19530. +         emit_move_insn (reg, pic_ref);
  19531. +         return reg;
  19532. +       }
  19533. +     else if (GET_CODE (orig) == CONST)
  19534. + --- 813,837 ----
  19535. +     /* First handle a simple SYMBOL_REF or LABEL_REF */
  19536. +     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  19537. +       {
  19538. + + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  19539. + +   if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  19540. + +     return orig;
  19541. + + #endif
  19542. + + 
  19543. +         if (reg == 0)
  19544. +       abort ();
  19545. +   
  19546. + !       if (flag_pic >= 3)
  19547. + !     pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  19548. + !       else
  19549. + !         pic_ref = gen_rtx (MEM, Pmode,
  19550. + !                gen_rtx (PLUS, Pmode,
  19551. + !                     pic_offset_table_rtx, orig));
  19552. + ! 
  19553. +         current_function_uses_pic_offset_table = 1;
  19554. +         RTX_UNCHANGING_P (pic_ref) = 1;
  19555. +         emit_move_insn (reg, pic_ref);
  19556. + + 
  19557. +         return reg;
  19558. +       }
  19559. +     else if (GET_CODE (orig) == CONST)
  19560. + ***************
  19561. + *** 838,843 ****
  19562. + --- 860,866 ----
  19563. +         pic_ref = gen_rtx (PLUS, Pmode, base, orig);
  19564. +         /* Likewise, should we set special REG_NOTEs here?  */
  19565. +       }
  19566. + + 
  19567. +     return pic_ref;
  19568. +   }
  19569. +   
  19570. + ***************
  19571. + *** 2166,2171 ****
  19572. + --- 2189,2198 ----
  19573. +                 fprintf (file, ":w");
  19574. +               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  19575. +                 fprintf (file, ":l");
  19576. + +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  19577. + +               fprintf (file, ":W");
  19578. + +             if ((flag_pic == 4) && (breg == pic_offset_table_rtx))
  19579. + +               fprintf (file, ":L");
  19580. +             }
  19581. +           if (addr != 0 && ireg != 0)
  19582. +             {
  19583. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/m68k.h gcc-2.5.8/config/m68k/m68k.h
  19584. + *** gcc-2.5.8-fsf/config/m68k/m68k.h    Fri Nov  5 08:09:54 1993
  19585. + --- gcc-2.5.8/config/m68k/m68k.h    Tue Feb 22 11:22:49 1994
  19586. + ***************
  19587. + *** 353,361 ****
  19588. +   #ifndef SUPPORT_SUN_FPA
  19589. +   
  19590. +   #define CONDITIONAL_REGISTER_USAGE \
  19591. + ! {                                               \
  19592. + !   if (flag_pic)                                 \
  19593. + !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  19594. +   }
  19595. +   
  19596. +   #else /* defined SUPPORT_SUN_FPA */
  19597. + --- 353,364 ----
  19598. +   #ifndef SUPPORT_SUN_FPA
  19599. +   
  19600. +   #define CONDITIONAL_REGISTER_USAGE \
  19601. + ! {                                                \
  19602. + !   if (flag_pic)                                  \
  19603. + !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;     \
  19604. + !   /* prevent saving/restoring of the base reg */ \
  19605. + !   if (flag_pic == 3)                 \
  19606. + !     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  19607. +   }
  19608. +   
  19609. +   #else /* defined SUPPORT_SUN_FPA */
  19610. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/m68k.md gcc-2.5.8/config/m68k/m68k.md
  19611. + *** gcc-2.5.8-fsf/config/m68k/m68k.md    Wed Dec  1 00:17:46 1993
  19612. + --- gcc-2.5.8/config/m68k/m68k.md    Tue Feb 22 11:22:53 1994
  19613. + ***************
  19614. + *** 716,728 ****
  19615. +   {
  19616. +     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  19617. +       {
  19618. + !       /* The source is an address which requires PIC relocation.  
  19619. + !          Call legitimize_pic_address with the source, mode, and a relocation
  19620. + !          register (a new pseudo, or the final destination if reload_in_progress
  19621. + !          is set).   Then fall through normally */
  19622. + !       extern rtx legitimize_pic_address();
  19623. + !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  19624. + !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  19625. +       }
  19626. +   }")
  19627. +   
  19628. + --- 716,733 ----
  19629. +   {
  19630. +     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  19631. +       {
  19632. + ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  19633. + !       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  19634. + ! #endif
  19635. + !       {
  19636. + !         /* The source is an address which requires PIC relocation.  
  19637. + !            Call legitimize_pic_address with the source, mode, and a relocation
  19638. + !            register (a new pseudo, or the final destination if reload_in_progress
  19639. + !            is set).   Then fall through normally */
  19640. + !         extern rtx legitimize_pic_address();
  19641. + !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  19642. + !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  19643. + !       }
  19644. +       }
  19645. +   }")
  19646. +   
  19647. + ***************
  19648. + *** 1890,1897 ****
  19649. +   
  19650. +         /* These insns can result from reloads to access
  19651. +        stack slots over 64k from the frame pointer.  */
  19652. + !       if (GET_CODE (operands[2]) == CONST_INT
  19653. + !       && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000)
  19654. +           return \"move%.l %2,%0\;add%.l %1,%0\";
  19655. +   #ifdef SGS
  19656. +         if (GET_CODE (operands[2]) == REG)
  19657. + --- 1895,1903 ----
  19658. +   
  19659. +         /* These insns can result from reloads to access
  19660. +        stack slots over 64k from the frame pointer.  */
  19661. + !       if (((GET_CODE (operands[2]) == CONST_INT
  19662. + !        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  19663. + !       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  19664. +           return \"move%.l %2,%0\;add%.l %1,%0\";
  19665. +   #ifdef SGS
  19666. +         if (GET_CODE (operands[2]) == REG)
  19667. + ***************
  19668. + *** 4858,4864 ****
  19669. +     ""
  19670. +     "
  19671. +   {
  19672. + !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  19673. +   #ifdef MOTOROLA
  19674. +       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  19675. +   #else
  19676. + --- 4864,4870 ----
  19677. +     ""
  19678. +     "
  19679. +   {
  19680. + !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  19681. +   #ifdef MOTOROLA
  19682. +       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  19683. +   #else
  19684. + ***************
  19685. + *** 4873,4879 ****
  19686. +        (match_operand:SI 1 "general_operand" "g"))]
  19687. +     ;; Operand 1 not really used on the m68000.
  19688. +   
  19689. + !   "! flag_pic"
  19690. +     "*
  19691. +   #ifdef MOTOROLA
  19692. +     return \"jsr %0\";
  19693. + --- 4879,4885 ----
  19694. +        (match_operand:SI 1 "general_operand" "g"))]
  19695. +     ;; Operand 1 not really used on the m68000.
  19696. +   
  19697. + !   "(! flag_pic || flag_pic >= 3)"
  19698. +     "*
  19699. +   #ifdef MOTOROLA
  19700. +     return \"jsr %0\";
  19701. + ***************
  19702. + *** 4888,4894 ****
  19703. +        (match_operand:SI 1 "general_operand" "g"))]
  19704. +     ;; Operand 1 not really used on the m68000.
  19705. +   
  19706. + !   "flag_pic"
  19707. +     "*
  19708. +   #ifdef HPUX_ASM
  19709. +     return \"bsr %0\";
  19710. + --- 4894,4900 ----
  19711. +        (match_operand:SI 1 "general_operand" "g"))]
  19712. +     ;; Operand 1 not really used on the m68000.
  19713. +   
  19714. + !   "(flag_pic && flag_pic < 3)"
  19715. +     "*
  19716. +   #ifdef HPUX_ASM
  19717. +     return \"bsr %0\";
  19718. + ***************
  19719. + *** 4913,4919 ****
  19720. +     ""
  19721. +     "
  19722. +   {
  19723. + !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  19724. +   #ifdef MOTOROLA
  19725. +       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  19726. +   #else
  19727. + --- 4919,4925 ----
  19728. +     ""
  19729. +     "
  19730. +   {
  19731. + !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  19732. +   #ifdef MOTOROLA
  19733. +       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  19734. +   #else
  19735. + ***************
  19736. + *** 4928,4934 ****
  19737. +       (call (match_operand:QI 1 "memory_operand" "o")
  19738. +             (match_operand:SI 2 "general_operand" "g")))]
  19739. +     ;; Operand 2 not really used on the m68000.
  19740. + !   "! flag_pic"
  19741. +     "*
  19742. +   #ifdef MOTOROLA
  19743. +     return \"jsr %1\";
  19744. + --- 4934,4940 ----
  19745. +       (call (match_operand:QI 1 "memory_operand" "o")
  19746. +             (match_operand:SI 2 "general_operand" "g")))]
  19747. +     ;; Operand 2 not really used on the m68000.
  19748. + !   "(! flag_pic || flag_pic >= 3)"
  19749. +     "*
  19750. +   #ifdef MOTOROLA
  19751. +     return \"jsr %1\";
  19752. + ***************
  19753. + *** 4943,4949 ****
  19754. +       (call (match_operand:QI 1 "memory_operand" "o")
  19755. +             (match_operand:SI 2 "general_operand" "g")))]
  19756. +     ;; Operand 2 not really used on the m68000.
  19757. + !   "flag_pic"
  19758. +     "*
  19759. +   #ifdef HPUX_ASM
  19760. +     return \"bsr %1\";
  19761. + --- 4949,4955 ----
  19762. +       (call (match_operand:QI 1 "memory_operand" "o")
  19763. +             (match_operand:SI 2 "general_operand" "g")))]
  19764. +     ;; Operand 2 not really used on the m68000.
  19765. + !   "(flag_pic && flag_pic < 3)"
  19766. +     "*
  19767. +   #ifdef HPUX_ASM
  19768. +     return \"bsr %1\";
  19769. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/t-amigados gcc-2.5.8/config/m68k/t-amigados
  19770. + *** gcc-2.5.8-fsf/config/m68k/t-amigados    Thu Jan  1 00:00:00 1970
  19771. + --- gcc-2.5.8/config/m68k/t-amigados    Tue Feb 22 11:27:03 1994
  19772. + ***************
  19773. + *** 0 ****
  19774. + --- 1,186 ----
  19775. + + # Makefile fragment for amigados target.
  19776. + + 
  19777. + + # We generate two additional things:
  19778. + + #
  19779. + + # libb/libgcc.a
  19780. + + #    A base relative version of libgcc.a which is used when compiling and
  19781. + + #    linking with the '-resident' option.
  19782. + + #
  19783. + + # xgccv
  19784. + + #    A forking gcc instead of one calling ssytem(). This makes it less
  19785. + + #    system conformant (can't ^C it when started from make), while providing
  19786. + + #    increased functionality (-pipe option).
  19787. + + 
  19788. + + # Use the vfork'ing version of gcc by default, so that the -pipe option can
  19789. + + # get tested.  To use the regular version just do "make XGCC=gcc".  Note that
  19790. + + # PIPE is defined in x-amigados, so if we are doing a native build, it will
  19791. + + # be defined.  It can be overridden with "make PIPE=".
  19792. + + 
  19793. + + XGCC = xgccv $(PIPE)
  19794. + + GCC_FOR_TARGET = ./$(XGCC) -B./
  19795. + + 
  19796. + + # Build residentable versions of the gcc executables by default.  Use
  19797. + + # "make RESIDENT=" to build non-residentable versions.
  19798. + + # Note:  This failed during bootstrapping of 2.5.5.
  19799. + + 
  19800. + + #RESIDENT = -resident
  19801. + + 
  19802. + + # The standard additional target flags for the compiler.
  19803. + + 
  19804. + + T_CFLAGS = $(RESIDENT)
  19805. + + 
  19806. + + # Allow the user to override the default target optimizations with gcc, or if
  19807. + + # the target compiler is not gcc and doesn't understand -O<N>.
  19808. + + 
  19809. + + T_OPTIMISE = -O2
  19810. + + 
  19811. + + # Each compilation environment (Manx, Dice, GCC, SAS/C, etc) provides its
  19812. + + # own equivalent of the UNIX /usr/include tree.  For gcc, the standard headers
  19813. + + # are in /gnu/include and system specific headers are in /gnu/os-include.
  19814. + + # Use these paths for fixincludes.
  19815. + + 
  19816. + + SYSTEM_HEADER_DIR = /gnu/include
  19817. + + OTHER_FIXINCLUDES_DIRS = /gnu/os-include
  19818. + + 
  19819. + + # We don't need a libgcc1, it's all in ixemul.library
  19820. + + 
  19821. + + LIBGCC1 = libgcc1.null
  19822. + + 
  19823. + + # Flags to use when compiling the normal version of libgcc.a.
  19824. + + # Don't compile with debugging, as long as there is no debugger.
  19825. + + # Explicitly leave out the -resident compilation flag and don't use T_CFLAGS.
  19826. + + 
  19827. + + LIBGCC2_CFLAGS = $(T_OPTIMIZE) $(INTERNAL_CFLAGS) $(X_CFLAGS) $(CFLAGS) \
  19828. + +           $(CROSS_GCC_CFLAGS)
  19829. + + 
  19830. + + # Flags to use when compiling the base relative version of libgcc.a.
  19831. + + # Don't compile with debugging, as long as there is no debugger.
  19832. + + # Explicitly force -resident in the compilation flags and don't use T_CFLAGS.
  19833. + + 
  19834. + + LIBBGCC2_CFLAGS = $(T_OPTIMIZE) $(INTERNAL_CFLAGS) $(X_CFLAGS) $(CFLAGS) \
  19835. + +           $(CROSS_GCC_CFLAGS) -resident
  19836. + + 
  19837. + + # Build the base relative library.
  19838. + + # It is later copied into /gnu/lib/gcc-lib/amigados/<version>/libb/libgcc.a, whereas
  19839. + + # libgcc.a is copied into /gnu/lib/gcc-lib/amigados/<version>/libgcc.a.
  19840. + + # It doesn't work very well to define one of the EXTRA_* macros to contain
  19841. + + # libb/libgcc.a, particularly for doing "make stageN" or "make install".
  19842. + + 
  19843. + + GCC_PARTS=$(GCC_PASSES) libgcc.a libb/libgcc.a $(EXTRA_PROGRAMS) $(USE_COLLECT2) $(EXTRA_PARTS)
  19844. + + 
  19845. + + # Add install_libbgcc to normal define of INSTALL_LIBGCC.  Let install-gccv
  19846. + + # hitch a ride on here as well.
  19847. + + 
  19848. + + INSTALL_LIBGCC = install-libgcc install-libbgcc install-gccv
  19849. + + 
  19850. + + # This includes the knowledge that target amigados doesn't need libgcc1.a
  19851. + + 
  19852. + + libb/libgcc.a: libgcc1.null libgcc2.c libgcc2.ready $(CONFIG_H) \
  19853. + +    $(LIB2FUNCS_EXTRA) machmode.h longlong.h gbl-ctors.h config.status
  19854. + + # Actually build it in tmplibbgcc.a, then rename at end,
  19855. + + # so that libb/libgcc.a itself remains nonexistent if compilation is aborted.
  19856. + +     -rm -f tmplibbgcc.a
  19857. + + # -e causes any failing command to make this rule fail.
  19858. + + # -e doesn't work in certain shells, so we test $$? as well.
  19859. + +     set -e; \
  19860. + +     for name in $(LIB2FUNCS); \
  19861. + +     do \
  19862. + +       echo $${name}; \
  19863. + +       $(GCC_FOR_TARGET) $(LIBBGCC2_CFLAGS) $(INCLUDES) -c -DL$${name} \
  19864. + +           $(srcdir)/libgcc2.c -o $${name}.o; \
  19865. + +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  19866. + +       $(AR) $(AR_FLAGS) tmplibbgcc.a $${name}.o; \
  19867. + +       rm -f $${name}.o; \
  19868. + +     done
  19869. + + # Some shells crash when a loop has no items.
  19870. + + # So make sure there is always at least one--`..'.
  19871. + + # Then ignore it.
  19872. + + # We don't use -e here because there are if statements
  19873. + + # that should not make the command give up when the if condition is false.
  19874. + + # Instead, we test for failure after each command where it matters.
  19875. + +     -for file in .. $(LIB2FUNCS_EXTRA); \
  19876. + +     do \
  19877. + +       if [ x$${file} != x.. ]; then \
  19878. + +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  19879. + +         echo $${name}; \
  19880. + +         if [ $${name}.asm = $${file} ]; then \
  19881. + +           cp $${file} $${name}.s || exit 1; file=$${name}.s; \
  19882. + +         else true; fi; \
  19883. + +         $(GCC_FOR_TARGET) $(LIBBGCC2_CFLAGS) $(INCLUDES) -c $${file}; \
  19884. + +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  19885. + +         $(AR) $(AR_FLAGS) tmplibbgcc.a $${name}.o; \
  19886. + +         rm -f $${name}.[so]; \
  19887. + +       else true; \
  19888. + +       fi; \
  19889. + +     done
  19890. + +     -if $(RANLIB_TEST) ; then $(RANLIB) tmplibbgcc.a; else true; fi
  19891. + +     -if [ -d libb ] ; then true ; else mkdir libb ; fi
  19892. + +     mv tmplibbgcc.a libb/libgcc.a
  19893. + + 
  19894. + + 
  19895. + + install-libbgcc: libb/libgcc.a install-dir
  19896. + +     -if [ -d $(libsubdir)/libb ] ; then true ; else mkdir $(libsubdir)/libb ; fi
  19897. + +     -if [ -f libb/libgcc.a ] ; then \
  19898. + +       rm -f $(libsubdir)/libb/libgcc.a; \
  19899. + +       $(INSTALL_DATA) libb/libgcc.a $(libsubdir)/libb/libgcc.a; \
  19900. + +       if $(RANLIB_TEST) ; then \
  19901. + +         (cd $(libsubdir)/libb; $(RANLIB) libgcc.a); else true; fi; \
  19902. + +       chmod a-x $(libsubdir)/libb/libgcc.a; \
  19903. + +     else true; fi
  19904. + +     
  19905. + + 
  19906. + + # The default gcc (xgcc) is built without -DAMIGADOS_FORK_GCC. This gcc (xgccv)
  19907. + + # is built with AMIGADOS_FORK_GCC defined, so that it can use '-pipe'.  We
  19908. + + # don't want to define EXTRA_PASSES to xgccv because that will cause xgccv
  19909. + + # to be installed in $(libsubdir), so instead we use the default GCC_PASSES
  19910. + + # and add xgccv to it.
  19911. + + 
  19912. + + GCC_PASSES = xgcc xgccv cc1 cpp $(EXTRA_PASSES)
  19913. + + 
  19914. + + xgccv: xgccv.o version.o $(LIBDEPS)
  19915. + +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o xgccv xgccv.o version.o $(LIBS)
  19916. + + 
  19917. + + xgccv.o: gcc.c $(CONFIG_H) gvarargs.h obstack.h
  19918. + +     $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  19919. + +   -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  19920. + +   -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
  19921. + +   -DDEFAULT_TARGET_MACHINE=\"$(target)\" \
  19922. + +   -DTOOLDIR=\"$(tooldir)/\" \
  19923. + +   -DAMIGADOS_FORK_GCC \
  19924. + +   -c `echo $(srcdir)/gcc.c | sed 's,^\./,,'` -o xgccv.o
  19925. + + 
  19926. + + install-gccv: xgccv
  19927. + +     rm -f $(bindir)/gccv
  19928. + +     $(INSTALL_PROGRAM) xgccv $(bindir)/gccv
  19929. + + 
  19930. + + # When making one of the stage<N> dirs, we need to make a libb subdir for
  19931. + + # it, and copy libbgcc.a there as libgcc.a.
  19932. + + 
  19933. + + EXTRA_STAGE1_TARGETS = stage1-libb
  19934. + + EXTRA_STAGE2_TARGETS = stage2-libb
  19935. + + EXTRA_STAGE3_TARGETS = stage3-libb
  19936. + + EXTRA_STAGE4_TARGETS = stage4-libb
  19937. + + 
  19938. + + stage1-libb:
  19939. + +     -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  19940. + +     -if [ -d stage1/libb ] ; then true ; else mkdir stage1/libb ; fi
  19941. + +     -cp libb/libgcc.a stage1/libb/libgcc.a
  19942. + +     -if $(RANLIB_TEST) ; then $(RANLIB) stage1/libb/libgcc.a; else true; fi
  19943. + + 
  19944. + + stage2-libb:
  19945. + +     -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  19946. + +     -if [ -d stage2/libb ] ; then true ; else mkdir stage2/libb ; fi
  19947. + +     -cp libb/libgcc.a stage2/libb/libgcc.a
  19948. + +     -if $(RANLIB_TEST) ; then $(RANLIB) stage2/libb/libgcc.a; else true; fi
  19949. + + 
  19950. + + stage3-libb:
  19951. + +     -if [ -d stage3 ] ; then true ; else mkdir stage3 ; fi
  19952. + +     -if [ -d stage3/libb ] ; then true ; else mkdir stage3/libb ; fi
  19953. + +     -cp libb/libgcc.a stage3/libb/libgcc.a
  19954. + +     -if $(RANLIB_TEST) ; then $(RANLIB) stage3/libb/libgcc.a; else true; fi
  19955. + + 
  19956. + + stage4-libb:
  19957. + +     -if [ -d stage4 ] ; then true ; else mkdir stage4 ; fi
  19958. + +     -if [ -d stage4/libb ] ; then true ; else mkdir stage4/libb ; fi
  19959. + +     -cp libb/libgcc.a stage4/libb/libgcc.a
  19960. + +     -if $(RANLIB_TEST) ; then $(RANLIB) stage4/libb/libgcc.a; else true; fi
  19961. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/x-amigados gcc-2.5.8/config/m68k/x-amigados
  19962. + *** gcc-2.5.8-fsf/config/m68k/x-amigados    Thu Jan  1 00:00:00 1970
  19963. + --- gcc-2.5.8/config/m68k/x-amigados    Tue Feb 22 11:22:55 1994
  19964. + ***************
  19965. + *** 0 ****
  19966. + --- 1,44 ----
  19967. + + # Note: It doesn't do any good to try to define prefix or local_prefix
  19968. + + # in the host overrides because configure will just change them back.
  19969. + + # You either have to give an appropriate option to configure or live with
  19970. + + # an Amiga specific patch to configure.  See the note in configure.  -fnf
  19971. + + 
  19972. + + # Building under amigados almost certainly requires an already working gcc.
  19973. + + # Use gccv, which is a gcc compiled with AMIGADOS_FORK_GCC so "-pipe" will
  19974. + + # work and get exercised.  To bootstrap with the regular gcc just do
  19975. + + # "make CC=gcc".  To bootstrap without "-pipe" do "make PIPE=".
  19976. + + 
  19977. + + CC = gccv $(PIPE)
  19978. + + 
  19979. + + # Disable -pipe for now since I had problems bootstrapping gcc 2.5.5 with
  19980. + + # it. (fnf)
  19981. + + #PIPE = -pipe
  19982. + + 
  19983. + + # Allow the user to override the default host optimization with gcc, or if the
  19984. + + # host compiler is not gcc and doesn't understand -O<N>.
  19985. + + 
  19986. + + X_OPTIMIZE = -O2
  19987. + + 
  19988. + + # The standard additional host flags for the compiler.
  19989. + + 
  19990. + + X_CFLAGS = $(X_OPTIMIZE)
  19991. + + 
  19992. + + # Man pages get a wierd suffix...
  19993. + + 
  19994. + + manext = .0
  19995. + + 
  19996. + + # We really shouldn't specify CFLAGS from here, but there's no other way
  19997. + + # to get rid of the `-g' indoctrinated by Makefile.in.  Note this becomes
  19998. + + # part of both the host compilation CFLAGS and the target compilation
  19999. + + # CFLAGS.
  20000. + + 
  20001. + + CFLAGS =
  20002. + + 
  20003. + + # Ranlib does exist, but may not be in a path where the default RANLIB_TEST
  20004. + + # expects it, so just force it to true.
  20005. + + 
  20006. + + RANLIB_TEST = true
  20007. + + 
  20008. + + # My current version of ln doesn't work, so use cp instead.  -fnf
  20009. + + 
  20010. + + HARDLINK = cp
  20011. + diff -rc --new-file gcc-2.5.8-fsf/config/m68k/xm-amigados.h gcc-2.5.8/config/m68k/xm-amigados.h
  20012. + *** gcc-2.5.8-fsf/config/m68k/xm-amigados.h    Thu Jan  1 00:00:00 1970
  20013. + --- gcc-2.5.8/config/m68k/xm-amigados.h    Tue Feb 22 11:27:04 1994
  20014. + ***************
  20015. + *** 0 ****
  20016. + --- 1,215 ----
  20017. + + /* Configuration for GNU C-compiler for Commodore Amiga, running AmigaDOS.
  20018. + +    Copyright (C) 1992 Free Software Foundation, Inc.
  20019. + +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  20020. + + 
  20021. + + This file is part of GNU CC.
  20022. + + 
  20023. + + GNU CC is free software; you can redistribute it and/or modify
  20024. + + it under the terms of the GNU General Public License as published by
  20025. + + the Free Software Foundation; either version 2, or (at your option)
  20026. + + any later version.
  20027. + + 
  20028. + + GNU CC is distributed in the hope that it will be useful,
  20029. + + but WITHOUT ANY WARRANTY; without even the implied warranty of
  20030. + + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20031. + + GNU General Public License for more details.
  20032. + + 
  20033. + + You should have received a copy of the GNU General Public License
  20034. + + along with GNU CC; see the file COPYING.  If not, write to
  20035. + + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20036. + + 
  20037. + + /* first include the generic header, then modify some parts.. */
  20038. + + 
  20039. + + #include "m68k/xm-m68k.h"
  20040. + + 
  20041. + + /* Amiga specific headers, such as from the Native Developer Update kits,
  20042. + +    go in SYSTEM_INCLUDE_DIR.  STANDARD_INCLUDE_DIR is the equivalent of
  20043. + +    Unix "/usr/include".  All other include paths are set in Makefile. */
  20044. + + 
  20045. + + #define SYSTEM_INCLUDE_DIR    "/gnu/os-include"
  20046. + + #define STANDARD_INCLUDE_DIR    "/gnu/include"
  20047. + + 
  20048. + + /* Fork one piped subcommand.  SEARCH_FLAG is the system call to use
  20049. + +    (either execv or execvp).  ARGV is the arg vector to use.
  20050. + +    NOT_LAST is nonzero if this is not the last subcommand
  20051. + +    (i.e. its output should be piped to the next one.)  */
  20052. + + 
  20053. + + #ifndef AMIGADOS_FORK_GCC
  20054. + + 
  20055. + + /* This version uses a more or less amigados-conformant way of running a
  20056. + +    program (in the context of the parent). If you want to use -pipe however,
  20057. + +    you'll have to use the vfork() version afterwards. */
  20058. + + 
  20059. + + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  20060. + + ({char *_argline;                        \
  20061. + +   int _arglinelength, _i;                    \
  20062. + +                                 \
  20063. + +   for (_i = 1, _arglinelength=0; ARGV[_i]; ++_i)        \
  20064. + +     _arglinelength += strlen(ARGV[_i]) + 1;            \
  20065. + +                                 \
  20066. + +   _arglinelength += strlen(PROGRAM) + 1;            \
  20067. + +                                 \
  20068. + +   if (!(_argline = (char *)alloca(_arglinelength)))         \
  20069. + +     pfatal_with_name ("alloca");                \
  20070. + +                                 \
  20071. + +   strcpy(_argline, PROGRAM);                    \
  20072. + +   for (_i = 1; ARGV[_i]; ++_i)                     \
  20073. + +     {                                \
  20074. + +       strcat(_argline, " ");                    \
  20075. + +       strcat(_argline, ARGV[_i]);                \
  20076. + +     }                                \
  20077. + +                                 \
  20078. + +   ssystem(_argline); })                        \
  20079. + + 
  20080. + + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  20081. + +   ({ STATUS = COMMAND.pid; })
  20082. + + 
  20083. + + #else
  20084. + + 
  20085. + + /* the vfork() version. This one has the drawback, that gcc is not 
  20086. + +    interruptible when started from make, since ixemul.library doesn't yet
  20087. + +    propagate ^C to subprocesses. */
  20088. + + 
  20089. + + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  20090. + + ({int (*_func)() = (SEARCH_FLAG ? execv : execvp);            \
  20091. + +   int _pid;                                \
  20092. + +   int _pdes[2];                                \
  20093. + +   int _input_desc = last_pipe_input;                    \
  20094. + +   int _output_desc = STDOUT_FILE_NO;                    \
  20095. + +   int _retries, _sleep_interval, _result;                \
  20096. + +                                     \
  20097. + +   /* If this isn't the last process, make a pipe for its output,    \
  20098. + +      and record it as waiting to be the input to the next process.  */    \
  20099. + +                                     \
  20100. + +   if (NOT_LAST)                                \
  20101. + +     {                                    \
  20102. + +       if (pipe (_pdes) < 0)                        \
  20103. + +     pfatal_with_name ("pipe");                    \
  20104. + +       _output_desc = _pdes[WRITE_PORT];                    \
  20105. + +       last_pipe_input = _pdes[READ_PORT];                \
  20106. + +     }                                    \
  20107. + +   else                                    \
  20108. + +     last_pipe_input = STDIN_FILE_NO;                    \
  20109. + +                                     \
  20110. + +   /* Fork a subprocess; wait and retry if it fails.  */            \
  20111. + +   _sleep_interval = 1;                            \
  20112. + +   for (_retries = 0; _retries < 4; _retries++)                \
  20113. + +     {                                    \
  20114. + +       _pid = vfork ();                            \
  20115. + +       if (_pid >= 0)                            \
  20116. + +     break;                                \
  20117. + +       sleep (_sleep_interval);                        \
  20118. + +       _sleep_interval *= 2;                        \
  20119. + +     }                                    \
  20120. + +                                     \
  20121. + +   switch (_pid)                                \
  20122. + +     {                                    \
  20123. + +     case -1:                                \
  20124. + +       pfatal_with_name ("vfork");                    \
  20125. + +       /* NOTREACHED */                            \
  20126. + +       _result = 0;                            \
  20127. + +       break;                                \
  20128. + +                                     \
  20129. + +     case 0: /* child */                            \
  20130. + +       /* Move the input and output pipes into place, if nec.  */    \
  20131. + +       if (_input_desc != STDIN_FILE_NO)                    \
  20132. + +     {                                \
  20133. + +       close (STDIN_FILE_NO);                    \
  20134. + +       dup (_input_desc);                        \
  20135. + +       close (_input_desc);                        \
  20136. + +     }                                \
  20137. + +       if (_output_desc != STDOUT_FILE_NO)                \
  20138. + +     {                                \
  20139. + +       close (STDOUT_FILE_NO);                    \
  20140. + +       dup (_output_desc);                        \
  20141. + +       close (_output_desc);                        \
  20142. + +     }                                \
  20143. + +                                     \
  20144. + +       /* Close the parent's descs that aren't wanted here.  */        \
  20145. + +       if (last_pipe_input != STDIN_FILE_NO)                \
  20146. + +     close (last_pipe_input);                    \
  20147. + +                                     \
  20148. + +       /* Exec the program.  */                        \
  20149. + +       (*_func) (PROGRAM, ARGV);                        \
  20150. + +       perror_exec (PROGRAM);                        \
  20151. + +       exit (-1);                            \
  20152. + +       /* NOTREACHED */                            \
  20153. + +       _result = 0;                            \
  20154. + +       break;                                \
  20155. + +                                     \
  20156. + +     default:                                \
  20157. + +       /* In the parent, after forking.                    \
  20158. + +      Close the descriptors that we made for this child.  */        \
  20159. + +       if (_input_desc != STDIN_FILE_NO)                    \
  20160. + +     close (_input_desc);                        \
  20161. + +       if (_output_desc != STDOUT_FILE_NO)                \
  20162. + +     close (_output_desc);                        \
  20163. + +                                     \
  20164. + +       /* Return child's process number.  */                \
  20165. + +       _result = _pid;                            \
  20166. + +       break;                                \
  20167. + +     }                                     \
  20168. + + _result; })                                \
  20169. + + 
  20170. + + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  20171. + +   ({ wait (& STATUS); })
  20172. + + 
  20173. + + #endif /* AMIGADOS_FORK_GCC */
  20174. + + 
  20175. + + /* the following macros are stolen more or less from xm-vms.h ... */
  20176. + + 
  20177. + + /* This macro is used to help compare filenames in cp-lex.c.
  20178. + + 
  20179. + +    We also need to make sure that the names are all lower case, because
  20180. + +    we must be able to compare filenames to determine if a file implements
  20181. + +    a class.  */
  20182. + + 
  20183. + + #define FILE_NAME_NONDIRECTORY(C)                \
  20184. + + ({                                \
  20185. + +    extern char *rindex();                    \
  20186. + +    char * pnt_ = (C), * pnt1_;                    \
  20187. + +    pnt1_ = pnt_ - 1;                        \
  20188. + +    while (*++pnt1_)                        \
  20189. + +      if ((*pnt1_ >= 'A' && *pnt1_ <= 'Z')) *pnt1_ |= 0x20;    \
  20190. + +    pnt1_ = rindex (pnt_, '/');                     \
  20191. + +    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, ':') : pnt1_);        \
  20192. + +    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);                \
  20193. + +  })
  20194. + + 
  20195. + + /* Macro to generate the name of the cross reference file.  The standard
  20196. + +    one does not work, since it was written assuming that the conventions
  20197. + +    of a unix style filesystem will work on the host system.
  20198. + +  
  20199. + +    Contrary to VMS, I'm using the original unix filename, there's no reason
  20200. + +    not to use this under AmigaDOS. */
  20201. + + 
  20202. + + #define XREF_FILE_NAME(BUFF, NAME)    \
  20203. + +   s = FILE_NAME_NONDIRECTORY (NAME);            \
  20204. + +   if (s == NAME) sprintf(BUFF, ".%s.gxref", NAME);    \
  20205. + +   else {                        \
  20206. + +     unsigned char ch = *s; /* could be Latin1 char.. */    \
  20207. + +     /* temporary: cut the filename from the directory */\
  20208. + +     *s = 0;                        \
  20209. + +     sprintf (BUFF, "%s.%c%s.gxref", NAME, ch, s+1);    \
  20210. + +     /* and restore the filename */            \
  20211. + +     *s = ch;                        \
  20212. + +   }                            \
  20213. + + 
  20214. + + /* Macro that is used in cp-xref.c to determine whether a file name is
  20215. + +    absolute or not.
  20216. + + 
  20217. + +    This checks for both, '/' as first character, since we're running under
  20218. + +    ixemul.library which provides for this unix'ism, and for the usual 
  20219. + +    logical-terminator, ':', somewhere in the filename. */
  20220. + + 
  20221. + + #define FILE_NAME_ABSOLUTE_P(NAME) (NAME[0] == '/' || index(NAME, ':'))
  20222. + + 
  20223. + + /* the colon conflicts with the name space of logicals */
  20224. + + 
  20225. + + #define PATH_SEPARATOR ','
  20226. + + 
  20227. + + /* AmigaDOS handles rename(2) *much* better than any link(2)/unlink(2)
  20228. + +    hacks. It's actually the inverse case as on Unix. rename(2) was always
  20229. + +    there, link(2) is new with OS 2.0 */
  20230. + + 
  20231. + + #define HAVE_rename 1
  20232. + diff -rc --new-file gcc-2.5.8-fsf/configure gcc-2.5.8/configure
  20233. + *** gcc-2.5.8-fsf/configure    Fri Nov 19 21:44:34 1993
  20234. + --- gcc-2.5.8/configure    Thu Apr 21 22:35:12 1994
  20235. + ***************
  20236. + *** 4,9 ****
  20237. + --- 4,13 ----
  20238. +   
  20239. +   #This file is part of GNU CC.
  20240. +   
  20241. + + # AmigaDOS Notes:  Where "echo" can be invoked with a first arg that
  20242. + + # starts with '-', run the external echo instead, since the pdksh builtin
  20243. + + # version botches this case.
  20244. + + 
  20245. +   #GNU CC is free software; you can redistribute it and/or modify
  20246. +   #it under the terms of the GNU General Public License as published by
  20247. +   #the Free Software Foundation; either version 2, or (at your option)
  20248. + ***************
  20249. + *** 45,52 ****
  20250. +   
  20251. +   # Default --srcdir to the directory where the script is found, 
  20252. +   # if a directory was specified.
  20253. + ! # The second sed call is to convert `.//configure' to `./configure'.
  20254. + ! srcdir=`echo $0 | sed 's|//|/|' | sed 's|/[^/]*$||'`
  20255. +   if [ x$srcdir = x$0 ]
  20256. +   then
  20257. +   srcdir=
  20258. + --- 49,58 ----
  20259. +   
  20260. +   # Default --srcdir to the directory where the script is found, 
  20261. +   # if a directory was specified.
  20262. + ! # The first sed call works around a bug in the AmigaDOS port of sksh, where
  20263. + ! # $0 has a trailing slash appended to it.  It is a NOP for other systems.
  20264. + ! # The third sed call is to convert `.//configure' to `./configure'.
  20265. + ! srcdir=`echo $0 | sed 's|/$||' | sed 's|//|/|' | sed 's|/[^/]*$||'`
  20266. +   if [ x$srcdir = x$0 ]
  20267. +   then
  20268. +   srcdir=
  20269. + ***************
  20270. + *** 54,75 ****
  20271. +   
  20272. +   host=
  20273. +   
  20274. + ! # Default prefix to /usr/local.
  20275. + ! prefix=/usr/local
  20276. +   
  20277. + ! # local_prefix specifies where to find the directory /usr/local/include
  20278. +   # We don't use $(prefix) for this
  20279. + ! # because we always want GCC to search /usr/local/include
  20280. + ! # even if GCC is installed somewhere other than /usr/local.
  20281. +   # Think THREE TIMES before specifying any other value for this!
  20282. +   # DO NOT make this use $prefix!
  20283. + ! local_prefix=/usr/local
  20284. +   # Default is to let the Makefile set exec_prefix from $(prefix)
  20285. +   exec_prefix='$(prefix)'
  20286. +   
  20287. +   remove=rm
  20288. + ! hard_link=ln
  20289. + ! symbolic_link='ln -s'
  20290. +   copy=cp
  20291. +   
  20292. +   # Record all the arguments, to write them in config.status.
  20293. + --- 60,87 ----
  20294. +   
  20295. +   host=
  20296. +   
  20297. + ! # Note:  For AmigaDOS we want this to default to /gnu unless we specify
  20298. + ! # otherwise to configure.  Changing it in Makefile.in or config/m68k/x-amigados
  20299. + ! # is ineffective since configure will always change them back in the final
  20300. + ! # generated Makefile, so we have to go to the root of the problem, which is
  20301. + ! # here.  -fnf
  20302. + ! # Default prefix to "/gnu".
  20303. + ! prefix=/gnu
  20304. +   
  20305. + ! # local_prefix specifies where to find the directory /local/include
  20306. +   # We don't use $(prefix) for this
  20307. + ! # because we always want GCC to search /local/include
  20308. + ! # even if GCC is installed somewhere other than /local.
  20309. +   # Think THREE TIMES before specifying any other value for this!
  20310. +   # DO NOT make this use $prefix!
  20311. + ! # Note:  See AmigaDOS note above for this AmigaDOS specific change.  -fnf
  20312. + ! local_prefix=/local
  20313. +   # Default is to let the Makefile set exec_prefix from $(prefix)
  20314. +   exec_prefix='$(prefix)'
  20315. +   
  20316. +   remove=rm
  20317. + ! hard_link=cp
  20318. + ! symbolic_link=cp
  20319. +   copy=cp
  20320. +   
  20321. +   # Record all the arguments, to write them in config.status.
  20322. + ***************
  20323. + *** 121,151 ****
  20324. +       next_arg=--srcdir
  20325. +       ;;
  20326. +        -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=* | --s=*)
  20327. + !     srcdir=`echo $arg | sed 's/-*s[a-z]*=//'`
  20328. +       ;;
  20329. +        -host | --host | --hos | --ho | --h)
  20330. +       next_arg=--host
  20331. +       ;;
  20332. +        -host=* | --host=* | --hos=* | --ho=* | --h=*)
  20333. + !     host=`echo $arg | sed 's/-*h[a-z]*=//'`
  20334. +       ;; 
  20335. +        -target | --target | --targe | --targ | --tar | --ta | --t)
  20336. +       next_arg=--target
  20337. +       ;;
  20338. +        -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
  20339. + !     target=`echo $arg | sed 's/-*t[a-z]*=//'`
  20340. +       ;; 
  20341. +        -build | --build | --buil | --bui | --bu | --b)
  20342. +       next_arg=--build
  20343. +       ;;
  20344. +        -build=* | --build=* | --buil=* | --bui=* | --bu=* | --b=*)
  20345. + !     build=`echo $arg | sed 's/-*b[a-z]*=//'`
  20346. +       ;; 
  20347. +        -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
  20348. +       next_arg=--prefix
  20349. +       ;;
  20350. +        -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
  20351. + !     prefix=`echo $arg | sed 's/-*p[a-z]*=//'`
  20352. +       ;;
  20353. +        -local-prefix | --local-prefix | --local-prefi | --local-pref | --local-pre \
  20354. +       | --local-pr | --local-p | --local- | --local | --loc | --lo | --l)
  20355. + --- 133,163 ----
  20356. +       next_arg=--srcdir
  20357. +       ;;
  20358. +        -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=* | --s=*)
  20359. + !     srcdir=`/bin/echo $arg | sed 's/-*s[a-z]*=//'`
  20360. +       ;;
  20361. +        -host | --host | --hos | --ho | --h)
  20362. +       next_arg=--host
  20363. +       ;;
  20364. +        -host=* | --host=* | --hos=* | --ho=* | --h=*)
  20365. + !     host=`/bin/echo $arg | sed 's/-*h[a-z]*=//'`
  20366. +       ;; 
  20367. +        -target | --target | --targe | --targ | --tar | --ta | --t)
  20368. +       next_arg=--target
  20369. +       ;;
  20370. +        -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
  20371. + !     target=`/bin/echo $arg | sed 's/-*t[a-z]*=//'`
  20372. +       ;; 
  20373. +        -build | --build | --buil | --bui | --bu | --b)
  20374. +       next_arg=--build
  20375. +       ;;
  20376. +        -build=* | --build=* | --buil=* | --bui=* | --bu=* | --b=*)
  20377. + !     build=`/bin/echo $arg | sed 's/-*b[a-z]*=//'`
  20378. +       ;; 
  20379. +        -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
  20380. +       next_arg=--prefix
  20381. +       ;;
  20382. +        -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
  20383. + !     prefix=`/bin/echo $arg | sed 's/-*p[a-z]*=//'`
  20384. +       ;;
  20385. +        -local-prefix | --local-prefix | --local-prefi | --local-pref | --local-pre \
  20386. +       | --local-pr | --local-p | --local- | --local | --loc | --lo | --l)
  20387. + ***************
  20388. + *** 154,160 ****
  20389. +        -local-prefix=* | --local-prefix=* | --local-prefi=* | --local-pref=* \
  20390. +       | --local-pre=* | --local-pr=* | --local-p=* | --local-=* | --local=* \
  20391. +       | --loc=* | --lo=* | --l=*)
  20392. + !     local_prefix=`echo $arg | sed 's/-*l[-a-z]*=//'`
  20393. +       ;;
  20394. +        -exec-prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre \
  20395. +       | --exec-pr | --exec-p | --exec- | --exec | --exe | --ex | --e)
  20396. + --- 166,172 ----
  20397. +        -local-prefix=* | --local-prefix=* | --local-prefi=* | --local-pref=* \
  20398. +       | --local-pre=* | --local-pr=* | --local-p=* | --local-=* | --local=* \
  20399. +       | --loc=* | --lo=* | --l=*)
  20400. + !     local_prefix=`/bin/echo $arg | sed 's/-*l[-a-z]*=//'`
  20401. +       ;;
  20402. +        -exec-prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre \
  20403. +       | --exec-pr | --exec-p | --exec- | --exec | --exe | --ex | --e)
  20404. + ***************
  20405. + *** 163,169 ****
  20406. +        -exec-prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* \
  20407. +       | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | --exec=* \
  20408. +       | --exe=* | --ex=* | --e=*)
  20409. + !     exec_prefix=`echo $arg | sed 's/-*e[-a-z]*=//'`
  20410. +       ;;
  20411. +        -with-gnu-ld | --with-gnu-ld | --with-gnu-l)
  20412. +       gnu_ld=yes
  20413. + --- 175,181 ----
  20414. +        -exec-prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* \
  20415. +       | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | --exec=* \
  20416. +       | --exe=* | --ex=* | --e=*)
  20417. + !     exec_prefix=`/bin/echo $arg | sed 's/-*e[-a-z]*=//'`
  20418. +       ;;
  20419. +        -with-gnu-ld | --with-gnu-ld | --with-gnu-l)
  20420. +       gnu_ld=yes
  20421. + ***************
  20422. + *** 297,303 ****
  20423. +       use_collect2=
  20424. +       # Set this to override the default target model.
  20425. +       target_cpu_default=
  20426. + !     # Set this to force use of install.sh.
  20427. +       broken_install=
  20428. +       # Set this to control which fixincludes program to use.
  20429. +       fixincludes=fixincludes
  20430. + --- 309,316 ----
  20431. +       use_collect2=
  20432. +       # Set this to override the default target model.
  20433. +       target_cpu_default=
  20434. + !     # Set this to force use of install.sh (if set to 'yes')
  20435. + !     # Set to name of installer to use a custom installer.
  20436. +       broken_install=
  20437. +       # Set this to control which fixincludes program to use.
  20438. +       fixincludes=fixincludes
  20439. + ***************
  20440. + *** 642,647 ****
  20441. + --- 655,670 ----
  20442. +           tm_file=sparc/lite.h
  20443. +           use_collect2=yes
  20444. +           ;;
  20445. + +     m68k-*-amigados)
  20446. + +         xm_file=m68k/xm-amigados.h
  20447. + +         out_file=m68k/amigados.c
  20448. + +         tm_file=m68k/amigados.h
  20449. + +         tmake_file=m68k/t-amigados
  20450. + +         xmake_file=m68k/x-amigados
  20451. + +         fixincludes=Makefile.in # Headers are already fixed.
  20452. + +         broken_install=cp
  20453. + +         install_headers_dir=install-headers-cp
  20454. + +         ;;
  20455. +       m68k-cbm-sysv4*)        # Commodore variant of V.4.
  20456. +           tm_file=m68k/amix.h
  20457. +           xm_file=m68k/xm-amix.h
  20458. + ***************
  20459. + *** 1763,1770 ****
  20460. +   then true
  20461. +   else
  20462. +       rm -f Makefile.xx
  20463. + !     abssrcdir=`cd ${srcdir}; pwd`
  20464. + !     sed "s|^INSTALL = .*|INSTALL = ${abssrcdir}/install.sh -c|" Makefile.tem > Makefile.xx
  20465. +       rm -f Makefile.tem
  20466. +       mv Makefile.xx Makefile.tem
  20467. +   fi
  20468. + --- 1786,1799 ----
  20469. +   then true
  20470. +   else
  20471. +       rm -f Makefile.xx
  20472. + !     if [ x$host_broken_install = xyes ]
  20473. + !     then
  20474. + !         abssrcdir=`cd ${srcdir}; pwd`
  20475. + !         installer=${abssrcdir}/install.sh -c
  20476. + !     else
  20477. + !         installer=$host_broken_install
  20478. + !     fi
  20479. + !     sed "s|^INSTALL = .*|INSTALL = ${installer}|" Makefile.tem > Makefile.xx
  20480. +       rm -f Makefile.tem
  20481. +       mv Makefile.xx Makefile.tem
  20482. +   fi
  20483. + diff -rc --new-file gcc-2.5.8-fsf/cp-parse.c gcc-2.5.8/cp-parse.c
  20484. + *** gcc-2.5.8-fsf/cp-parse.c    Sat Nov 27 11:35:17 1993
  20485. + --- gcc-2.5.8/cp-parse.c    Tue Feb 22 11:23:11 1994
  20486. + ***************
  20487. + *** 2657,2663 ****
  20488. +       65,    66,    67,    68,    69,    70,    71,    72,    73
  20489. +   };
  20490. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  20491. + ! #line 3 "/usr/local/lib/bison.simple"
  20492. +   
  20493. +   /* Skeleton output parser for bison,
  20494. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  20495. + --- 2657,2663 ----
  20496. +       65,    66,    67,    68,    69,    70,    71,    72,    73
  20497. +   };
  20498. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  20499. + ! #line 3 "/usr/lib/bison.simple"
  20500. +   
  20501. +   /* Skeleton output parser for bison,
  20502. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  20503. + ***************
  20504. + *** 2838,2861 ****
  20505. +   #endif
  20506. +   #endif
  20507. +   
  20508. + ! #line 184 "/usr/local/lib/bison.simple"
  20509. + ! 
  20510. + ! /* The user can define YYPARSE_PARAM as the name of an argument to be passed
  20511. + !    into yyparse.  The argument should have type void *.
  20512. + !    It should actually point to an object.
  20513. + !    Grammar actions can access the variable by casting it
  20514. + !    to the proper pointer type.  */
  20515. + ! 
  20516. + ! #ifdef YYPARSE_PARAM
  20517. + ! #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
  20518. + ! #else
  20519. + ! #define YYPARSE_PARAM
  20520. + ! #define YYPARSE_PARAM_DECL
  20521. + ! #endif
  20522. + ! 
  20523. +   int
  20524. + ! yyparse(YYPARSE_PARAM)
  20525. + !      YYPARSE_PARAM_DECL
  20526. +   {
  20527. +     register int yystate;
  20528. +     register int yyn;
  20529. + --- 2838,2846 ----
  20530. +   #endif
  20531. +   #endif
  20532. +   
  20533. + ! #line 184 "/usr/lib/bison.simple"
  20534. +   int
  20535. + ! yyparse()
  20536. +   {
  20537. +     register int yystate;
  20538. +     register int yyn;
  20539. + ***************
  20540. + *** 7264,7270 ****
  20541. +       break;}
  20542. +   }
  20543. +      /* the action file gets copied in in place of this dollarsign */
  20544. + ! #line 480 "/usr/local/lib/bison.simple"
  20545. +   
  20546. +     yyvsp -= yylen;
  20547. +     yyssp -= yylen;
  20548. + --- 7249,7255 ----
  20549. +       break;}
  20550. +   }
  20551. +      /* the action file gets copied in in place of this dollarsign */
  20552. + ! #line 465 "/usr/lib/bison.simple"
  20553. +   
  20554. +     yyvsp -= yylen;
  20555. +     yyssp -= yylen;
  20556. + diff -rc --new-file gcc-2.5.8-fsf/cpp.info gcc-2.5.8/cpp.info
  20557. + *** gcc-2.5.8-fsf/cpp.info    Thu Oct 14 08:47:18 1993
  20558. + --- gcc-2.5.8/cpp.info    Tue May  3 14:09:31 1994
  20559. + ***************
  20560. + *** 1,4 ****
  20561. + ! This is Info file cpp.info, produced by Makeinfo-1.54 from the input
  20562. +   file cpp.texi.
  20563. +   
  20564. +      This file documents the GNU C Preprocessor.
  20565. + --- 1,4 ----
  20566. + ! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
  20567. +   file cpp.texi.
  20568. +   
  20569. +      This file documents the GNU C Preprocessor.
  20570. + ***************
  20571. + *** 21,28 ****
  20572. +   
  20573. +   Indirect:
  20574. +   cpp.info-1: 778
  20575. + ! cpp.info-2: 50641
  20576. + ! cpp.info-3: 99631
  20577. +   
  20578. +   Tag Table:
  20579. +   (Indirect)
  20580. + --- 21,28 ----
  20581. +   
  20582. +   Indirect:
  20583. +   cpp.info-1: 778
  20584. + ! cpp.info-2: 50624
  20585. + ! cpp.info-3: 99614
  20586. +   
  20587. +   Tag Table:
  20588. +   (Indirect)
  20589. + ***************
  20590. + *** 35,74 ****
  20591. +   Node: Include Operation12652
  20592. +   Node: Once-Only14327
  20593. +   Node: Inheritance16636
  20594. + ! Node: Macros19196
  20595. + ! Node: Simple Macros20110
  20596. + ! Node: Argument Macros23230
  20597. + ! Node: Predefined28900
  20598. + ! Node: Standard Predefined29330
  20599. + ! Node: Nonstandard Predefined34543
  20600. + ! Node: Stringification38116
  20601. + ! Node: Concatenation41040
  20602. + ! Node: Undefining44313
  20603. + ! Node: Redefining45346
  20604. + ! Node: Macro Pitfalls46646
  20605. + ! Node: Misnesting47750
  20606. + ! Node: Macro Parentheses48764
  20607. + ! Node: Swallow Semicolon50641
  20608. + ! Node: Side Effects52541
  20609. + ! Node: Self-Reference54239
  20610. + ! Node: Argument Prescan56515
  20611. + ! Node: Cascaded Macros61517
  20612. + ! Node: Newlines in Args62572
  20613. + ! Node: Conditionals63917
  20614. + ! Node: Conditional Uses65263
  20615. + ! Node: Conditional Syntax66628
  20616. + ! Node: #if Command67206
  20617. + ! Node: #else Command69457
  20618. + ! Node: #elif Command70112
  20619. + ! Node: Deleted Code71474
  20620. + ! Node: Conditionals-Macros72010
  20621. + ! Node: Assertions75707
  20622. + ! Node: #error Command79937
  20623. + ! Node: Combining Sources81361
  20624. + ! Node: Other Commands84257
  20625. + ! Node: Output85692
  20626. + ! Node: Invocation86847
  20627. + ! Node: Concept Index97960
  20628. + ! Node: Index99631
  20629. +   
  20630. +   End Tag Table
  20631. + --- 35,74 ----
  20632. +   Node: Include Operation12652
  20633. +   Node: Once-Only14327
  20634. +   Node: Inheritance16636
  20635. + ! Node: Macros19179
  20636. + ! Node: Simple Macros20093
  20637. + ! Node: Argument Macros23213
  20638. + ! Node: Predefined28883
  20639. + ! Node: Standard Predefined29313
  20640. + ! Node: Nonstandard Predefined34526
  20641. + ! Node: Stringification38099
  20642. + ! Node: Concatenation41023
  20643. + ! Node: Undefining44296
  20644. + ! Node: Redefining45329
  20645. + ! Node: Macro Pitfalls46629
  20646. + ! Node: Misnesting47733
  20647. + ! Node: Macro Parentheses48747
  20648. + ! Node: Swallow Semicolon50624
  20649. + ! Node: Side Effects52524
  20650. + ! Node: Self-Reference54222
  20651. + ! Node: Argument Prescan56498
  20652. + ! Node: Cascaded Macros61500
  20653. + ! Node: Newlines in Args62555
  20654. + ! Node: Conditionals63900
  20655. + ! Node: Conditional Uses65246
  20656. + ! Node: Conditional Syntax66611
  20657. + ! Node: #if Command67189
  20658. + ! Node: #else Command69440
  20659. + ! Node: #elif Command70095
  20660. + ! Node: Deleted Code71457
  20661. + ! Node: Conditionals-Macros71993
  20662. + ! Node: Assertions75690
  20663. + ! Node: #error Command79920
  20664. + ! Node: Combining Sources81344
  20665. + ! Node: Other Commands84240
  20666. + ! Node: Output85675
  20667. + ! Node: Invocation86830
  20668. + ! Node: Concept Index97943
  20669. + ! Node: Index99614
  20670. +   
  20671. +   End Tag Table
  20672. + diff -rc --new-file gcc-2.5.8-fsf/cpp.info-1 gcc-2.5.8/cpp.info-1
  20673. + *** gcc-2.5.8-fsf/cpp.info-1    Thu Oct 14 08:47:17 1993
  20674. + --- gcc-2.5.8/cpp.info-1    Tue May  3 14:09:29 1994
  20675. + ***************
  20676. + *** 1,4 ****
  20677. + ! This is Info file cpp.info, produced by Makeinfo-1.54 from the input
  20678. +   file cpp.texi.
  20679. +   
  20680. +      This file documents the GNU C Preprocessor.
  20681. + --- 1,4 ----
  20682. + ! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
  20683. +   file cpp.texi.
  20684. +   
  20685. +      This file documents the GNU C Preprocessor.
  20686. + ***************
  20687. + *** 415,421 ****
  20688. +   file `sys/signal.h', but the version of `/usr/include/sys/signal.h' on
  20689. +   a particular system doesn't do what the application program expects.
  20690. +   It might be convenient to define a "local" version, perhaps under the
  20691. + ! name `/usr/local/include/sys/signal.h', to override or add to the one
  20692. +   supplied by the system.
  20693. +   
  20694. +      You can do this by using the option `-I.' for compilation, and
  20695. + --- 415,421 ----
  20696. +   file `sys/signal.h', but the version of `/usr/include/sys/signal.h' on
  20697. +   a particular system doesn't do what the application program expects.
  20698. +   It might be convenient to define a "local" version, perhaps under the
  20699. + ! name `/gnu/include/sys/signal.h', to override or add to the one
  20700. +   supplied by the system.
  20701. +   
  20702. +      You can do this by using the option `-I.' for compilation, and
  20703. + ***************
  20704. + *** 438,449 ****
  20705. +   searching the list of header file directories *after* the directory in
  20706. +   which the current file was found.
  20707. +   
  20708. + !    Suppose you specify `-I /usr/local/include', and the list of
  20709. + ! directories to search also includes `/usr/include'; and suppose that
  20710. + ! both directories contain a file named `sys/signal.h'.  Ordinary
  20711. + ! `#include <sys/signal.h>' finds the file under `/usr/local/include'.
  20712. + ! If that file contains `#include_next <sys/signal.h>', it starts
  20713. + ! searching after that directory, and finds the file in `/usr/include'.
  20714. +   
  20715. +   
  20716. +   File: cpp.info,  Node: Macros,  Next: Conditionals,  Prev: Header Files,  Up: Top
  20717. + --- 438,449 ----
  20718. +   searching the list of header file directories *after* the directory in
  20719. +   which the current file was found.
  20720. +   
  20721. + !    Suppose you specify `-I /gnu/include', and the list of directories
  20722. + ! to search also includes `/usr/include'; and suppose that both
  20723. + ! directories contain a file named `sys/signal.h'.  Ordinary `#include
  20724. + ! <sys/signal.h>' finds the file under `/gnu/include'.  If that file
  20725. + ! contains `#include_next <sys/signal.h>', it starts searching after that
  20726. + ! directory, and finds the file in `/usr/include'.
  20727. +   
  20728. +   
  20729. +   File: cpp.info,  Node: Macros,  Next: Conditionals,  Prev: Header Files,  Up: Top
  20730. + diff -rc --new-file gcc-2.5.8-fsf/cpp.info-2 gcc-2.5.8/cpp.info-2
  20731. + *** gcc-2.5.8-fsf/cpp.info-2    Thu Oct 14 08:47:17 1993
  20732. + --- gcc-2.5.8/cpp.info-2    Tue May  3 14:09:30 1994
  20733. + ***************
  20734. + *** 1,4 ****
  20735. + ! This is Info file cpp.info, produced by Makeinfo-1.54 from the input
  20736. +   file cpp.texi.
  20737. +   
  20738. +      This file documents the GNU C Preprocessor.
  20739. + --- 1,4 ----
  20740. + ! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
  20741. +   file cpp.texi.
  20742. +   
  20743. +      This file documents the GNU C Preprocessor.
  20744. + diff -rc --new-file gcc-2.5.8-fsf/cpp.info-3 gcc-2.5.8/cpp.info-3
  20745. + *** gcc-2.5.8-fsf/cpp.info-3    Thu Oct 14 08:47:18 1993
  20746. + --- gcc-2.5.8/cpp.info-3    Tue May  3 14:09:30 1994
  20747. + ***************
  20748. + *** 1,4 ****
  20749. + ! This is Info file cpp.info, produced by Makeinfo-1.54 from the input
  20750. +   file cpp.texi.
  20751. +   
  20752. +      This file documents the GNU C Preprocessor.
  20753. + --- 1,4 ----
  20754. + ! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
  20755. +   file cpp.texi.
  20756. +   
  20757. +      This file documents the GNU C Preprocessor.
  20758. + diff -rc --new-file gcc-2.5.8-fsf/cpp.texi gcc-2.5.8/cpp.texi
  20759. + *** gcc-2.5.8-fsf/cpp.texi    Tue Oct 12 06:59:12 1993
  20760. + --- gcc-2.5.8/cpp.texi    Tue Feb 22 11:27:15 1994
  20761. + ***************
  20762. + *** 477,483 ****
  20763. +   @file{sys/signal.h}, but the version of @file{/usr/include/sys/signal.h}
  20764. +   on a particular system doesn't do what the application program expects.
  20765. +   It might be convenient to define a ``local'' version, perhaps under the
  20766. + ! name @file{/usr/local/include/sys/signal.h}, to override or add to the
  20767. +   one supplied by the system.
  20768. +   
  20769. +   You can do this by using the option @samp{-I.} for compilation, and
  20770. + --- 477,483 ----
  20771. +   @file{sys/signal.h}, but the version of @file{/usr/include/sys/signal.h}
  20772. +   on a particular system doesn't do what the application program expects.
  20773. +   It might be convenient to define a ``local'' version, perhaps under the
  20774. + ! name @file{/gnu/include/sys/signal.h}, to override or add to the
  20775. +   one supplied by the system.
  20776. +   
  20777. +   You can do this by using the option @samp{-I.} for compilation, and
  20778. + ***************
  20779. + *** 503,513 ****
  20780. +   file directories @emph{after} the directory in which the current file
  20781. +   was found.
  20782. +   
  20783. + ! Suppose you specify @samp{-I /usr/local/include}, and the list of
  20784. +   directories to search also includes @file{/usr/include}; and suppose that
  20785. +   both directories contain a file named @file{sys/signal.h}.  Ordinary
  20786. +   @samp{#include <sys/signal.h>} finds the file under
  20787. + ! @file{/usr/local/include}.  If that file contains @samp{#include_next
  20788. +   <sys/signal.h>}, it starts searching after that directory, and finds the
  20789. +   file in @file{/usr/include}.
  20790. +   
  20791. + --- 503,513 ----
  20792. +   file directories @emph{after} the directory in which the current file
  20793. +   was found.
  20794. +   
  20795. + ! Suppose you specify @samp{-I /gnu/include}, and the list of
  20796. +   directories to search also includes @file{/usr/include}; and suppose that
  20797. +   both directories contain a file named @file{sys/signal.h}.  Ordinary
  20798. +   @samp{#include <sys/signal.h>} finds the file under
  20799. + ! @file{/gnu/include}.  If that file contains @samp{#include_next
  20800. +   <sys/signal.h>}, it starts searching after that directory, and finds the
  20801. +   file in @file{/usr/include}.
  20802. +   
  20803. + diff -rc --new-file gcc-2.5.8-fsf/cross-make gcc-2.5.8/cross-make
  20804. + *** gcc-2.5.8-fsf/cross-make    Thu Sep  9 18:17:56 1993
  20805. + --- gcc-2.5.8/cross-make    Tue Feb 22 11:27:19 1994
  20806. + ***************
  20807. + *** 11,17 ****
  20808. +   RANLIB = $(RANLIB_FOR_TARGET)
  20809. +   RANLIB_TEST = $(RANLIB_TEST_FOR_TARGET)
  20810. +   
  20811. + ! # Dir to search for system headers.  Normally /usr/include.
  20812. +   SYSTEM_HEADER_DIR = $(tooldir)/include
  20813. +   
  20814. +   # Don't try to compile the things we can't compile.
  20815. + --- 11,17 ----
  20816. +   RANLIB = $(RANLIB_FOR_TARGET)
  20817. +   RANLIB_TEST = $(RANLIB_TEST_FOR_TARGET)
  20818. +   
  20819. + ! # Dir to search for system headers.  Normally /gnu/include.
  20820. +   SYSTEM_HEADER_DIR = $(tooldir)/include
  20821. +   
  20822. +   # Don't try to compile the things we can't compile.
  20823. + ***************
  20824. + *** 20,26 ****
  20825. +   # Use cross-compiler version of float.h.
  20826. +   FLOAT_H = $(CROSS_FLOAT_H)
  20827. +   
  20828. + ! # Don't install assert.h in /usr/local/include.
  20829. +   assertdir = $(tooldir)/include
  20830. +   
  20831. +   # Don't run fixproto
  20832. + --- 20,26 ----
  20833. +   # Use cross-compiler version of float.h.
  20834. +   FLOAT_H = $(CROSS_FLOAT_H)
  20835. +   
  20836. + ! # Don't install assert.h in /local/include.
  20837. +   assertdir = $(tooldir)/include
  20838. +   
  20839. +   # Don't run fixproto
  20840. + diff -rc --new-file gcc-2.5.8-fsf/g++.1 gcc-2.5.8/g++.1
  20841. + *** gcc-2.5.8-fsf/g++.1    Wed Oct 13 23:15:18 1993
  20842. + --- gcc-2.5.8/g++.1    Tue Feb 22 11:27:23 1994
  20843. + ***************
  20844. + *** 598,604 ****
  20845. +   .sp
  20846. +   .I LIBDIR
  20847. +   is usually
  20848. + ! .B /usr/local/lib/\c
  20849. +   .IR machine / version .
  20850. +   .br
  20851. +   .I TMPDIR
  20852. + --- 598,604 ----
  20853. +   .sp
  20854. +   .I LIBDIR
  20855. +   is usually
  20856. + ! .B /gnu/lib/\c
  20857. +   .IR machine / version .
  20858. +   .br
  20859. +   .I TMPDIR
  20860. + diff -rc --new-file gcc-2.5.8-fsf/gcc.1 gcc-2.5.8/gcc.1
  20861. + *** gcc-2.5.8-fsf/gcc.1    Wed Oct 13 23:19:36 1993
  20862. + --- gcc-2.5.8/gcc.1    Tue Feb 22 11:27:28 1994
  20863. + ***************
  20864. + *** 1542,1548 ****
  20865. +   `\|\c
  20866. +   .B /usr/lib/gcc/\c
  20867. +   \&\|' and `\|\c
  20868. + ! .B /usr/local/lib/gcc-lib/\c
  20869. +   \&\|'.  If neither of
  20870. +   those results in a file name that is found, the compiler driver
  20871. +   searches for the unmodified program
  20872. + --- 1542,1548 ----
  20873. +   `\|\c
  20874. +   .B /usr/lib/gcc/\c
  20875. +   \&\|' and `\|\c
  20876. + ! .B /gnu/lib/gcc-lib/\c
  20877. +   \&\|'.  If neither of
  20878. +   those results in a file name that is found, the compiler driver
  20879. +   searches for the unmodified program
  20880. + ***************
  20881. + *** 3997,4003 ****
  20882. +   .fi
  20883. +   .I LIBDIR
  20884. +   is usually
  20885. + ! .B /usr/local/lib/\c
  20886. +   .IR machine / version .
  20887. +   .br
  20888. +   .I TMPDIR
  20889. + --- 3997,4003 ----
  20890. +   .fi
  20891. +   .I LIBDIR
  20892. +   is usually
  20893. + ! .B /gnu/lib/\c
  20894. +   .IR machine / version .
  20895. +   .br
  20896. +   .I TMPDIR
  20897. + diff -rc --new-file gcc-2.5.8-fsf/gcc.c gcc-2.5.8/gcc.c
  20898. + *** gcc-2.5.8-fsf/gcc.c    Thu Dec 23 22:50:01 1993
  20899. + --- gcc-2.5.8/gcc.c    Fri Jul  1 13:45:19 1994
  20900. + ***************
  20901. + *** 578,584 ****
  20902. +     {".adb", "@ada"},
  20903. +     {".ada", "@ada"},
  20904. +     {"@ada",
  20905. + !    "gnat1 %{gnat*} %{k8:-gnatk8} %{w:-gnatws}\
  20906. +          -dumpbase %b.ada\
  20907. +          %{g*} %{O*} %{p} %{pg:-p} %{f*} %{d*}\
  20908. +          %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  20909. + --- 578,584 ----
  20910. +     {".adb", "@ada"},
  20911. +     {".ada", "@ada"},
  20912. +     {"@ada",
  20913. + !    "gnat1 %{gnat*} %{k8:-gnatk8} %{!v:-quiet} %{w:-gnatws}\
  20914. +          -dumpbase %b.ada\
  20915. +          %{g*} %{O*} %{p} %{pg:-p} %{f*} %{d*}\
  20916. +          %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  20917. + ***************
  20918. + *** 1162,1178 ****
  20919. +   #endif
  20920. +   
  20921. +   #ifndef STANDARD_EXEC_PREFIX
  20922. + ! #define STANDARD_EXEC_PREFIX "/usr/local/lib/gcc-lib/"
  20923. +   #endif /* !defined STANDARD_EXEC_PREFIX */
  20924. +   
  20925. +   static char *standard_exec_prefix = STANDARD_EXEC_PREFIX;
  20926. + ! static char *standard_exec_prefix_1 = "/usr/lib/gcc/";
  20927. +   #ifdef MD_EXEC_PREFIX
  20928. +   static char *md_exec_prefix = MD_EXEC_PREFIX;
  20929. +   #endif
  20930. +   
  20931. +   #ifndef STANDARD_STARTFILE_PREFIX
  20932. + ! #define STANDARD_STARTFILE_PREFIX "/usr/local/lib/"
  20933. +   #endif /* !defined STANDARD_STARTFILE_PREFIX */
  20934. +   
  20935. +   #ifdef MD_STARTFILE_PREFIX
  20936. + --- 1162,1178 ----
  20937. +   #endif
  20938. +   
  20939. +   #ifndef STANDARD_EXEC_PREFIX
  20940. + ! #define STANDARD_EXEC_PREFIX "/gnu/lib/gcc-lib/"
  20941. +   #endif /* !defined STANDARD_EXEC_PREFIX */
  20942. +   
  20943. +   static char *standard_exec_prefix = STANDARD_EXEC_PREFIX;
  20944. + ! static char *standard_exec_prefix_1 = "/local/lib/gcc-lib/";
  20945. +   #ifdef MD_EXEC_PREFIX
  20946. +   static char *md_exec_prefix = MD_EXEC_PREFIX;
  20947. +   #endif
  20948. +   
  20949. +   #ifndef STANDARD_STARTFILE_PREFIX
  20950. + ! #define STANDARD_STARTFILE_PREFIX "/gnu/lib/"
  20951. +   #endif /* !defined STANDARD_STARTFILE_PREFIX */
  20952. +   
  20953. +   #ifdef MD_STARTFILE_PREFIX
  20954. + ***************
  20955. + *** 1182,1192 ****
  20956. +   static char *md_startfile_prefix_1 = MD_STARTFILE_PREFIX_1;
  20957. +   #endif
  20958. +   static char *standard_startfile_prefix = STANDARD_STARTFILE_PREFIX;
  20959. + ! static char *standard_startfile_prefix_1 = "/lib/";
  20960. + ! static char *standard_startfile_prefix_2 = "/usr/lib/";
  20961. +   
  20962. +   #ifndef TOOLDIR_BASE_PREFIX
  20963. + ! #define TOOLDIR_BASE_PREFIX "/usr/local/"
  20964. +   #endif
  20965. +   static char *tooldir_base_prefix = TOOLDIR_BASE_PREFIX;
  20966. +   static char *tooldir_prefix;
  20967. + --- 1182,1192 ----
  20968. +   static char *md_startfile_prefix_1 = MD_STARTFILE_PREFIX_1;
  20969. +   #endif
  20970. +   static char *standard_startfile_prefix = STANDARD_STARTFILE_PREFIX;
  20971. + ! static char *standard_startfile_prefix_1 = "/local/lib/";
  20972. + ! static char *standard_startfile_prefix_2 = "/local/lib/";
  20973. +   
  20974. +   #ifndef TOOLDIR_BASE_PREFIX
  20975. + ! #define TOOLDIR_BASE_PREFIX "/local/"
  20976. +   #endif
  20977. +   static char *tooldir_base_prefix = TOOLDIR_BASE_PREFIX;
  20978. +   static char *tooldir_prefix;
  20979. + ***************
  20980. + *** 1398,1405 ****
  20981. + --- 1398,1409 ----
  20982. +     base = choose_temp_base_try (P_tmpdir, base);
  20983. +   #endif
  20984. +   
  20985. + + #ifdef amigados
  20986. + +   base = "ram:";
  20987. + + #else
  20988. +     base = choose_temp_base_try ("/usr/tmp", base);
  20989. +     base = choose_temp_base_try ("/tmp", base);
  20990. + + #endif
  20991. +   
  20992. +     /* If all else fails, use the current directory! */  
  20993. +     if (base == (char *)0)
  20994. + ***************
  20995. + *** 1408,1414 ****
  20996. +     len = strlen (base);
  20997. +     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  20998. +     strcpy (temp_filename, base);
  20999. + !   if (len > 0 && temp_filename[len-1] != '/')
  21000. +       temp_filename[len++] = '/';
  21001. +     strcpy (temp_filename + len, "ccXXXXXX");
  21002. +   
  21003. + --- 1412,1422 ----
  21004. +     len = strlen (base);
  21005. +     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  21006. +     strcpy (temp_filename, base);
  21007. + !   if (len > 0 && temp_filename[len-1] != '/'
  21008. + ! #ifdef amigados
  21009. + !                         && temp_filename[len-1] != ':'
  21010. + ! #endif
  21011. + !                                     )
  21012. +       temp_filename[len++] = '/';
  21013. +     strcpy (temp_filename + len, "ccXXXXXX");
  21014. +   
  21015. + ***************
  21016. + *** 1552,1558 ****
  21017. +   
  21018. +     /* Determine the filename to execute (special case for absolute paths).  */
  21019. +   
  21020. + !   if (*name == '/')
  21021. +       {
  21022. +         if (access (name, mode))
  21023. +       {
  21024. + --- 1560,1570 ----
  21025. +   
  21026. +     /* Determine the filename to execute (special case for absolute paths).  */
  21027. +   
  21028. + !   if (*name == '/'
  21029. + ! #ifdef amigados
  21030. + !           || index (name, ':')
  21031. + ! #endif
  21032. + !                     )
  21033. +       {
  21034. +         if (access (name, mode))
  21035. +       {
  21036. + ***************
  21037. + *** 1758,1763 ****
  21038. + --- 1770,1776 ----
  21039. +      NOT_LAST is nonzero if this is not the last subcommand
  21040. +      (i.e. its output should be piped to the next one.)  */
  21041. +   
  21042. + + #ifndef PEXECUTE
  21043. +   #ifndef OS2
  21044. +   #ifdef __MSDOS__
  21045. +   
  21046. + ***************
  21047. + *** 1913,1918 ****
  21048. + --- 1926,1932 ----
  21049. +     return (search_flag ? spawnv : spawnvp) (1, program, argv);
  21050. +   }
  21051. +   #endif /* not OS2 */
  21052. + + #endif /* !defined (PEXECUTE) */
  21053. +   
  21054. +   /* Execute the command specified by the arguments on the current line of spec.
  21055. +      When using pipes, this includes several piped-together commands
  21056. + ***************
  21057. + *** 2007,2015 ****
  21058. + --- 2021,2035 ----
  21059. +       {
  21060. +         char *string = commands[i].argv[0];
  21061. +   
  21062. + + #ifdef PEXECUTE
  21063. + +       commands[i].pid = PEXECUTE (string != commands[i].prog,
  21064. + +                   string, commands[i].argv,
  21065. + +                   i + 1 < n_commands);
  21066. + + #else
  21067. +         commands[i].pid = pexecute (string != commands[i].prog,
  21068. +                     string, commands[i].argv,
  21069. +                     i + 1 < n_commands);
  21070. + + #endif
  21071. +   
  21072. +         if (string != commands[i].prog)
  21073. +       free (string);
  21074. + ***************
  21075. + *** 2030,2040 ****
  21076. + --- 2050,2064 ----
  21077. +       int pid;
  21078. +       char *prog;
  21079. +   
  21080. + + #ifdef PEXECUTE_RESULT
  21081. + +     pid = PEXECUTE_RESULT (status, commands[i]);
  21082. + + #else /* PEXECUTE_RESULT */
  21083. +   #ifdef __MSDOS__
  21084. +           status = pid = commands[i].pid;
  21085. +   #else
  21086. +       pid = wait (&status);
  21087. +   #endif
  21088. + + #endif /* PEXECUTE_RESULT */
  21089. +       if (pid < 0)
  21090. +         abort ();
  21091. +   
  21092. + ***************
  21093. + *** 2141,2146 ****
  21094. + --- 2165,2171 ----
  21095. +         if (*endp == PATH_SEPARATOR || *endp == 0)
  21096. +           {
  21097. +             strncpy (nstore, startp, endp-startp);
  21098. + + #ifndef amigados
  21099. +             if (endp == startp)
  21100. +           {
  21101. +             strcpy (nstore, "./");
  21102. + ***************
  21103. + *** 2152,2157 ****
  21104. + --- 2177,2191 ----
  21105. +           }
  21106. +             else
  21107. +           nstore[endp-startp] = 0;
  21108. + + #else
  21109. + +           if (endp[-1] != '/' && endp[-1] != ':')
  21110. + +         {
  21111. + +           nstore[endp-startp] = '/';
  21112. + +           nstore[endp-startp+1] = 0;
  21113. + +         }
  21114. + +           else
  21115. + +         nstore[endp-startp] = 0;
  21116. + + #endif
  21117. +             add_prefix (&exec_prefix, nstore, 0, 0, NULL_PTR);
  21118. +             if (*endp == 0)
  21119. +           break;
  21120. + ***************
  21121. + *** 2174,2179 ****
  21122. + --- 2208,2214 ----
  21123. +         if (*endp == PATH_SEPARATOR || *endp == 0)
  21124. +           {
  21125. +             strncpy (nstore, startp, endp-startp);
  21126. + + #ifndef amigados
  21127. +             if (endp == startp)
  21128. +           {
  21129. +             strcpy (nstore, "./");
  21130. + ***************
  21131. + *** 2185,2190 ****
  21132. + --- 2220,2234 ----
  21133. +           }
  21134. +             else
  21135. +           nstore[endp-startp] = 0;
  21136. + + #else
  21137. + +           if (endp[-1] != '/' && endp[-1] != ':')
  21138. + +         {
  21139. + +           nstore[endp-startp] = '/';
  21140. + +           nstore[endp-startp+1] = 0;
  21141. + +         }
  21142. + +           else
  21143. + +         nstore[endp-startp] = 0;
  21144. + + #endif
  21145. +             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  21146. +             if (*endp == 0)
  21147. +           break;
  21148. + ***************
  21149. + *** 2208,2213 ****
  21150. + --- 2252,2258 ----
  21151. +         if (*endp == PATH_SEPARATOR || *endp == 0)
  21152. +           {
  21153. +             strncpy (nstore, startp, endp-startp);
  21154. + + #ifndef amigados
  21155. +             if (endp == startp)
  21156. +           {
  21157. +             strcpy (nstore, "./");
  21158. + ***************
  21159. + *** 2219,2224 ****
  21160. + --- 2264,2278 ----
  21161. +           }
  21162. +             else
  21163. +           nstore[endp-startp] = 0;
  21164. + + #else
  21165. + +           if (endp[-1] != '/' && endp[-1] != ':')
  21166. + +         {
  21167. + +           nstore[endp-startp] = '/';
  21168. + +           nstore[endp-startp+1] = 0;
  21169. + +         }
  21170. + +           else
  21171. + +         nstore[endp-startp] = 0;
  21172. + + #endif
  21173. +             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  21174. +             if (*endp == 0)
  21175. +           break;
  21176. + ***************
  21177. + *** 3862,3871 ****
  21178. + --- 3916,3929 ----
  21179. +         register char *p;
  21180. +         int len;
  21181. +   
  21182. + + #ifdef FILE_NAME_NONDIRECTORY
  21183. + +       input_basename = FILE_NAME_NONDIRECTORY (input_filename);
  21184. + + #else
  21185. +         input_basename = input_filename;
  21186. +         for (p = input_filename; *p; p++)
  21187. +           if (*p == '/')
  21188. +             input_basename = p + 1;
  21189. + + #endif
  21190. +   
  21191. +         /* Find a suffix starting with the last period,
  21192. +            and set basename_length to exclude that suffix.  */
  21193. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info gcc-2.5.8/gcc.info
  21194. + *** gcc-2.5.8-fsf/gcc.info    Sat Nov 27 19:39:23 1993
  21195. + --- gcc-2.5.8/gcc.info    Tue May  3 14:10:31 1994
  21196. + ***************
  21197. + *** 1,4 ****
  21198. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21199. +   file gcc.texi.
  21200. +   
  21201. +      This file documents the use and the internals of the GNU compiler.
  21202. + --- 1,4 ----
  21203. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21204. +   file gcc.texi.
  21205. +   
  21206. +      This file documents the use and the internals of the GNU compiler.
  21207. + ***************
  21208. + *** 32,57 ****
  21209. +   gcc.info-1: 1305
  21210. +   gcc.info-2: 49956
  21211. +   gcc.info-3: 91430
  21212. + ! gcc.info-4: 136088
  21213. + ! gcc.info-5: 176230
  21214. + ! gcc.info-6: 225032
  21215. + ! gcc.info-7: 274452
  21216. + ! gcc.info-8: 323146
  21217. + ! gcc.info-9: 372521
  21218. + ! gcc.info-10: 411789
  21219. + ! gcc.info-11: 448922
  21220. + ! gcc.info-12: 498287
  21221. + ! gcc.info-13: 541773
  21222. + ! gcc.info-14: 591219
  21223. + ! gcc.info-15: 622815
  21224. + ! gcc.info-16: 670482
  21225. + ! gcc.info-17: 716044
  21226. + ! gcc.info-18: 765468
  21227. + ! gcc.info-19: 812673
  21228. + ! gcc.info-20: 861775
  21229. + ! gcc.info-21: 909034
  21230. + ! gcc.info-22: 944667
  21231. + ! gcc.info-23: 966158
  21232. +   
  21233. +   Tag Table:
  21234. +   (Indirect)
  21235. + --- 32,57 ----
  21236. +   gcc.info-1: 1305
  21237. +   gcc.info-2: 49956
  21238. +   gcc.info-3: 91430
  21239. + ! gcc.info-4: 136070
  21240. + ! gcc.info-5: 176194
  21241. + ! gcc.info-6: 224902
  21242. + ! gcc.info-7: 274304
  21243. + ! gcc.info-8: 322998
  21244. + ! gcc.info-9: 372325
  21245. + ! gcc.info-10: 411593
  21246. + ! gcc.info-11: 448726
  21247. + ! gcc.info-12: 498091
  21248. + ! gcc.info-13: 541577
  21249. + ! gcc.info-14: 591023
  21250. + ! gcc.info-15: 622619
  21251. + ! gcc.info-16: 670286
  21252. + ! gcc.info-17: 715848
  21253. + ! gcc.info-18: 765243
  21254. + ! gcc.info-19: 812448
  21255. + ! gcc.info-20: 861550
  21256. + ! gcc.info-21: 908809
  21257. + ! gcc.info-22: 944442
  21258. + ! gcc.info-23: 965933
  21259. +   
  21260. +   Tag Table:
  21261. +   (Indirect)
  21262. + ***************
  21263. + *** 73,286 ****
  21264. +   Node: Assembler Options107289
  21265. +   Node: Link Options107613
  21266. +   Node: Directory Options111621
  21267. + ! Node: Target Options114521
  21268. + ! Node: Submodel Options118248
  21269. + ! Node: M680x0 Options119594
  21270. + ! Node: VAX Options122978
  21271. + ! Node: SPARC Options123513
  21272. + ! Node: Convex Options125569
  21273. + ! Node: AMD29K Options127750
  21274. + ! Node: M88K Options129898
  21275. + ! Node: RS/6000 and PowerPC Options136088
  21276. + ! Node: RT Options142032
  21277. + ! Node: MIPS Options143736
  21278. + ! Node: i386 Options149801
  21279. + ! Node: HPPA Options151147
  21280. + ! Node: Intel 960 Options152342
  21281. + ! Node: DEC Alpha Options154952
  21282. + ! Node: Clipper Options156624
  21283. + ! Node: System V Options157024
  21284. + ! Node: Code Gen Options157711
  21285. + ! Node: Environment Variables165976
  21286. + ! Node: Running Protoize170001
  21287. + ! Node: Installation176230
  21288. + ! Node: Other Dir211589
  21289. + ! Node: Cross-Compiler213273
  21290. + ! Node: Steps of Cross215085
  21291. + ! Node: Configure Cross216203
  21292. + ! Node: Tools and Libraries216852
  21293. + ! Node: Cross Runtime219295
  21294. + ! Node: Cross Headers223047
  21295. + ! Node: Build Cross225032
  21296. + ! Node: PA Install226937
  21297. + ! Node: Sun Install229239
  21298. + ! Node: 3b1 Install230978
  21299. + ! Node: Unos Install232011
  21300. + ! Node: VMS Install233551
  21301. + ! Node: WE32K Install243486
  21302. + ! Node: MIPS Install244865
  21303. + ! Node: Collect2247727
  21304. + ! Node: Header Dirs250570
  21305. + ! Node: C Extensions251984
  21306. + ! Node: Statement Exprs255159
  21307. + ! Node: Local Labels257053
  21308. + ! Node: Labels as Values259115
  21309. + ! Node: Nested Functions260980
  21310. + ! Node: Constructing Calls264836
  21311. + ! Node: Naming Types266893
  21312. + ! Node: Typeof267987
  21313. + ! Node: Lvalues269852
  21314. + ! Node: Conditionals272117
  21315. + ! Node: Long Long273008
  21316. + ! Node: Complex274452
  21317. + ! Node: Zero Length276314
  21318. + ! Node: Variable Length276988
  21319. + ! Node: Macro Varargs279513
  21320. + ! Node: Subscripting281616
  21321. + ! Node: Pointer Arith282099
  21322. + ! Node: Initializers282664
  21323. + ! Node: Constructors283110
  21324. + ! Node: Labeled Elements284804
  21325. + ! Node: Case Ranges287126
  21326. + ! Node: Cast to Union288085
  21327. + ! Node: Function Attributes289163
  21328. + ! Node: Function Prototypes294844
  21329. + ! Node: Dollar Signs296549
  21330. + ! Node: Character Escapes297336
  21331. + ! Node: Alignment297617
  21332. + ! Node: Variable Attributes299093
  21333. + ! Node: Inline301992
  21334. + ! Node: Extended Asm305727
  21335. + ! Node: Asm Labels316014
  21336. + ! Node: Explicit Reg Vars317333
  21337. + ! Node: Global Reg Vars318581
  21338. + ! Node: Local Reg Vars323146
  21339. + ! Node: Alternate Keywords324738
  21340. + ! Node: Incomplete Enums326140
  21341. + ! Node: Function Names326848
  21342. + ! Node: C++ Extensions327853
  21343. + ! Node: Naming Results328833
  21344. + ! Node: Min and Max332147
  21345. + ! Node: Destructors and Goto333597
  21346. + ! Node: C++ Interface334147
  21347. + ! Node: Trouble339014
  21348. + ! Node: Actual Bugs340582
  21349. + ! Node: Installation Problems341688
  21350. + ! Node: Cross-Compiler Problems355013
  21351. + ! Node: Interoperation356484
  21352. + ! Node: External Bugs370514
  21353. + ! Node: Incompatibilities372521
  21354. + ! Node: Fixed Headers381069
  21355. + ! Node: Disappointments383408
  21356. + ! Node: C++ Misunderstandings387628
  21357. + ! Node: Static Definitions388275
  21358. + ! Node: Temporaries389329
  21359. + ! Node: Protoize Caveats391533
  21360. + ! Node: Non-bugs395488
  21361. + ! Node: Warnings and Errors404690
  21362. + ! Node: Bugs406461
  21363. + ! Node: Bug Criteria407821
  21364. + ! Node: Bug Lists410251
  21365. + ! Node: Bug Reporting411789
  21366. + ! Node: Sending Patches423733
  21367. + ! Node: Service429085
  21368. + ! Node: VMS429646
  21369. + ! Node: Include Files and VMS430001
  21370. + ! Node: Global Declarations433891
  21371. + ! Node: VMS Misc438200
  21372. + ! Node: Portability442526
  21373. + ! Node: Interface444289
  21374. + ! Node: Passes448922
  21375. + ! Node: RTL466265
  21376. + ! Node: RTL Objects468153
  21377. + ! Node: Accessors471197
  21378. + ! Node: Flags476523
  21379. + ! Node: Machine Modes485542
  21380. + ! Node: Constants493099
  21381. + ! Node: Regs and Memory498287
  21382. + ! Node: Arithmetic509997
  21383. + ! Node: Comparisons516065
  21384. + ! Node: Bit Fields520127
  21385. + ! Node: Conversions521491
  21386. + ! Node: RTL Declarations524379
  21387. + ! Node: Side Effects525188
  21388. + ! Node: Incdec537735
  21389. + ! Node: Assembler540251
  21390. + ! Node: Insns541773
  21391. + ! Node: Calls562518
  21392. + ! Node: Sharing565113
  21393. + ! Node: Reading RTL568189
  21394. + ! Node: Machine Desc569133
  21395. + ! Node: Patterns570986
  21396. + ! Node: Example573930
  21397. + ! Node: RTL Template575058
  21398. + ! Node: Output Template587258
  21399. + ! Node: Output Statement591219
  21400. + ! Node: Constraints594932
  21401. + ! Node: Simple Constraints595935
  21402. + ! Node: Multi-Alternative607368
  21403. + ! Node: Class Preferences610204
  21404. + ! Node: Modifiers611084
  21405. + ! Node: Machine Constraints614199
  21406. + ! Node: No Constraints621694
  21407. + ! Node: Standard Names622815
  21408. + ! Node: Pattern Ordering650086
  21409. + ! Node: Dependent Patterns651312
  21410. + ! Node: Jump Patterns654252
  21411. + ! Node: Insn Canonicalizations660068
  21412. + ! Node: Peephole Definitions663563
  21413. + ! Node: Expander Definitions670482
  21414. + ! Node: Insn Splitting677622
  21415. + ! Node: Insn Attributes684636
  21416. + ! Node: Defining Attributes685683
  21417. + ! Node: Expressions687695
  21418. + ! Node: Tagging Insns694017
  21419. + ! Node: Attr Example698380
  21420. + ! Node: Insn Lengths700756
  21421. + ! Node: Constant Attributes704120
  21422. + ! Node: Delay Slots705280
  21423. + ! Node: Function Units708491
  21424. + ! Node: Target Macros714161
  21425. + ! Node: Driver716044
  21426. + ! Node: Run-time Target726307
  21427. + ! Node: Storage Layout731789
  21428. + ! Node: Type Layout744378
  21429. + ! Node: Registers750707
  21430. + ! Node: Register Basics751687
  21431. + ! Node: Allocation Order755680
  21432. + ! Node: Values in Registers757060
  21433. + ! Node: Leaf Functions761814
  21434. + ! Node: Stack Registers764635
  21435. + ! Node: Obsolete Register Macros765468
  21436. + ! Node: Register Classes768163
  21437. + ! Node: Stack and Calling785880
  21438. + ! Node: Frame Layout786255
  21439. + ! Node: Frame Registers789660
  21440. + ! Node: Elimination793379
  21441. + ! Node: Stack Arguments797682
  21442. + ! Node: Register Arguments803998
  21443. + ! Node: Scalar Return812673
  21444. + ! Node: Aggregate Return816636
  21445. + ! Node: Caller Saves820351
  21446. + ! Node: Function Entry821501
  21447. + ! Node: Profiling830429
  21448. + ! Node: Varargs833333
  21449. + ! Node: Trampolines840016
  21450. + ! Node: Library Calls846451
  21451. + ! Node: Addressing Modes854223
  21452. + ! Node: Condition Code861775
  21453. + ! Node: Costs866398
  21454. + ! Node: Sections874777
  21455. + ! Node: PIC879566
  21456. + ! Node: Assembler Format882056
  21457. + ! Node: File Framework883061
  21458. + ! Node: Data Output886768
  21459. + ! Node: Uninitialized Data892207
  21460. + ! Node: Label Output894802
  21461. + ! Node: Initialization902891
  21462. + ! Node: Macros for Initialization909034
  21463. + ! Node: Instruction Output911817
  21464. + ! Node: Dispatch Tables919763
  21465. + ! Node: Alignment Output922105
  21466. + ! Node: Debugging Info923802
  21467. + ! Node: All Debuggers924354
  21468. + ! Node: DBX Options926721
  21469. + ! Node: DBX Hooks931305
  21470. + ! Node: File Names and DBX934608
  21471. + ! Node: SDB and DWARF936536
  21472. + ! Node: Cross-compilation938220
  21473. + ! Node: Misc944667
  21474. + ! Node: Config960043
  21475. + ! Node: Index966158
  21476. +   
  21477. +   End Tag Table
  21478. + --- 73,286 ----
  21479. +   Node: Assembler Options107289
  21480. +   Node: Link Options107613
  21481. +   Node: Directory Options111621
  21482. + ! Node: Target Options114515
  21483. + ! Node: Submodel Options118230
  21484. + ! Node: M680x0 Options119576
  21485. + ! Node: VAX Options122960
  21486. + ! Node: SPARC Options123495
  21487. + ! Node: Convex Options125551
  21488. + ! Node: AMD29K Options127732
  21489. + ! Node: M88K Options129880
  21490. + ! Node: RS/6000 and PowerPC Options136070
  21491. + ! Node: RT Options142014
  21492. + ! Node: MIPS Options143718
  21493. + ! Node: i386 Options149783
  21494. + ! Node: HPPA Options151129
  21495. + ! Node: Intel 960 Options152324
  21496. + ! Node: DEC Alpha Options154934
  21497. + ! Node: Clipper Options156606
  21498. + ! Node: System V Options157006
  21499. + ! Node: Code Gen Options157693
  21500. + ! Node: Environment Variables165958
  21501. + ! Node: Running Protoize169971
  21502. + ! Node: Installation176194
  21503. + ! Node: Other Dir211501
  21504. + ! Node: Cross-Compiler213185
  21505. + ! Node: Steps of Cross214997
  21506. + ! Node: Configure Cross216115
  21507. + ! Node: Tools and Libraries216764
  21508. + ! Node: Cross Runtime219177
  21509. + ! Node: Cross Headers222929
  21510. + ! Node: Build Cross224902
  21511. + ! Node: PA Install226807
  21512. + ! Node: Sun Install229103
  21513. + ! Node: 3b1 Install230842
  21514. + ! Node: Unos Install231875
  21515. + ! Node: VMS Install233415
  21516. + ! Node: WE32K Install243350
  21517. + ! Node: MIPS Install244729
  21518. + ! Node: Collect2247591
  21519. + ! Node: Header Dirs250434
  21520. + ! Node: C Extensions251836
  21521. + ! Node: Statement Exprs255011
  21522. + ! Node: Local Labels256905
  21523. + ! Node: Labels as Values258967
  21524. + ! Node: Nested Functions260832
  21525. + ! Node: Constructing Calls264688
  21526. + ! Node: Naming Types266745
  21527. + ! Node: Typeof267839
  21528. + ! Node: Lvalues269704
  21529. + ! Node: Conditionals271969
  21530. + ! Node: Long Long272860
  21531. + ! Node: Complex274304
  21532. + ! Node: Zero Length276166
  21533. + ! Node: Variable Length276840
  21534. + ! Node: Macro Varargs279365
  21535. + ! Node: Subscripting281468
  21536. + ! Node: Pointer Arith281951
  21537. + ! Node: Initializers282516
  21538. + ! Node: Constructors282962
  21539. + ! Node: Labeled Elements284656
  21540. + ! Node: Case Ranges286978
  21541. + ! Node: Cast to Union287937
  21542. + ! Node: Function Attributes289015
  21543. + ! Node: Function Prototypes294696
  21544. + ! Node: Dollar Signs296401
  21545. + ! Node: Character Escapes297188
  21546. + ! Node: Alignment297469
  21547. + ! Node: Variable Attributes298945
  21548. + ! Node: Inline301844
  21549. + ! Node: Extended Asm305579
  21550. + ! Node: Asm Labels315866
  21551. + ! Node: Explicit Reg Vars317185
  21552. + ! Node: Global Reg Vars318433
  21553. + ! Node: Local Reg Vars322998
  21554. + ! Node: Alternate Keywords324590
  21555. + ! Node: Incomplete Enums325992
  21556. + ! Node: Function Names326700
  21557. + ! Node: C++ Extensions327705
  21558. + ! Node: Naming Results328685
  21559. + ! Node: Min and Max331999
  21560. + ! Node: Destructors and Goto333449
  21561. + ! Node: C++ Interface333999
  21562. + ! Node: Trouble338866
  21563. + ! Node: Actual Bugs340434
  21564. + ! Node: Installation Problems341540
  21565. + ! Node: Cross-Compiler Problems354841
  21566. + ! Node: Interoperation356312
  21567. + ! Node: External Bugs370324
  21568. + ! Node: Incompatibilities372325
  21569. + ! Node: Fixed Headers380873
  21570. + ! Node: Disappointments383212
  21571. + ! Node: C++ Misunderstandings387432
  21572. + ! Node: Static Definitions388079
  21573. + ! Node: Temporaries389133
  21574. + ! Node: Protoize Caveats391337
  21575. + ! Node: Non-bugs395292
  21576. + ! Node: Warnings and Errors404494
  21577. + ! Node: Bugs406265
  21578. + ! Node: Bug Criteria407625
  21579. + ! Node: Bug Lists410055
  21580. + ! Node: Bug Reporting411593
  21581. + ! Node: Sending Patches423537
  21582. + ! Node: Service428889
  21583. + ! Node: VMS429450
  21584. + ! Node: Include Files and VMS429805
  21585. + ! Node: Global Declarations433695
  21586. + ! Node: VMS Misc438004
  21587. + ! Node: Portability442330
  21588. + ! Node: Interface444093
  21589. + ! Node: Passes448726
  21590. + ! Node: RTL466069
  21591. + ! Node: RTL Objects467957
  21592. + ! Node: Accessors471001
  21593. + ! Node: Flags476327
  21594. + ! Node: Machine Modes485346
  21595. + ! Node: Constants492903
  21596. + ! Node: Regs and Memory498091
  21597. + ! Node: Arithmetic509801
  21598. + ! Node: Comparisons515869
  21599. + ! Node: Bit Fields519931
  21600. + ! Node: Conversions521295
  21601. + ! Node: RTL Declarations524183
  21602. + ! Node: Side Effects524992
  21603. + ! Node: Incdec537539
  21604. + ! Node: Assembler540055
  21605. + ! Node: Insns541577
  21606. + ! Node: Calls562322
  21607. + ! Node: Sharing564917
  21608. + ! Node: Reading RTL567993
  21609. + ! Node: Machine Desc568937
  21610. + ! Node: Patterns570790
  21611. + ! Node: Example573734
  21612. + ! Node: RTL Template574862
  21613. + ! Node: Output Template587062
  21614. + ! Node: Output Statement591023
  21615. + ! Node: Constraints594736
  21616. + ! Node: Simple Constraints595739
  21617. + ! Node: Multi-Alternative607172
  21618. + ! Node: Class Preferences610008
  21619. + ! Node: Modifiers610888
  21620. + ! Node: Machine Constraints614003
  21621. + ! Node: No Constraints621498
  21622. + ! Node: Standard Names622619
  21623. + ! Node: Pattern Ordering649890
  21624. + ! Node: Dependent Patterns651116
  21625. + ! Node: Jump Patterns654056
  21626. + ! Node: Insn Canonicalizations659872
  21627. + ! Node: Peephole Definitions663367
  21628. + ! Node: Expander Definitions670286
  21629. + ! Node: Insn Splitting677426
  21630. + ! Node: Insn Attributes684440
  21631. + ! Node: Defining Attributes685487
  21632. + ! Node: Expressions687499
  21633. + ! Node: Tagging Insns693821
  21634. + ! Node: Attr Example698184
  21635. + ! Node: Insn Lengths700560
  21636. + ! Node: Constant Attributes703924
  21637. + ! Node: Delay Slots705084
  21638. + ! Node: Function Units708295
  21639. + ! Node: Target Macros713965
  21640. + ! Node: Driver715848
  21641. + ! Node: Run-time Target726082
  21642. + ! Node: Storage Layout731564
  21643. + ! Node: Type Layout744153
  21644. + ! Node: Registers750482
  21645. + ! Node: Register Basics751462
  21646. + ! Node: Allocation Order755455
  21647. + ! Node: Values in Registers756835
  21648. + ! Node: Leaf Functions761589
  21649. + ! Node: Stack Registers764410
  21650. + ! Node: Obsolete Register Macros765243
  21651. + ! Node: Register Classes767938
  21652. + ! Node: Stack and Calling785655
  21653. + ! Node: Frame Layout786030
  21654. + ! Node: Frame Registers789435
  21655. + ! Node: Elimination793154
  21656. + ! Node: Stack Arguments797457
  21657. + ! Node: Register Arguments803773
  21658. + ! Node: Scalar Return812448
  21659. + ! Node: Aggregate Return816411
  21660. + ! Node: Caller Saves820126
  21661. + ! Node: Function Entry821276
  21662. + ! Node: Profiling830204
  21663. + ! Node: Varargs833108
  21664. + ! Node: Trampolines839791
  21665. + ! Node: Library Calls846226
  21666. + ! Node: Addressing Modes853998
  21667. + ! Node: Condition Code861550
  21668. + ! Node: Costs866173
  21669. + ! Node: Sections874552
  21670. + ! Node: PIC879341
  21671. + ! Node: Assembler Format881831
  21672. + ! Node: File Framework882836
  21673. + ! Node: Data Output886543
  21674. + ! Node: Uninitialized Data891982
  21675. + ! Node: Label Output894577
  21676. + ! Node: Initialization902666
  21677. + ! Node: Macros for Initialization908809
  21678. + ! Node: Instruction Output911592
  21679. + ! Node: Dispatch Tables919538
  21680. + ! Node: Alignment Output921880
  21681. + ! Node: Debugging Info923577
  21682. + ! Node: All Debuggers924129
  21683. + ! Node: DBX Options926496
  21684. + ! Node: DBX Hooks931080
  21685. + ! Node: File Names and DBX934383
  21686. + ! Node: SDB and DWARF936311
  21687. + ! Node: Cross-compilation937995
  21688. + ! Node: Misc944442
  21689. + ! Node: Config959818
  21690. + ! Node: Index965933
  21691. +   
  21692. +   End Tag Table
  21693. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-1 gcc-2.5.8/gcc.info-1
  21694. + *** gcc-2.5.8-fsf/gcc.info-1    Sat Nov 27 19:38:42 1993
  21695. + --- gcc-2.5.8/gcc.info-1    Tue May  3 14:10:10 1994
  21696. + ***************
  21697. + *** 1,4 ****
  21698. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21699. +   file gcc.texi.
  21700. +   
  21701. +      This file documents the use and the internals of the GNU compiler.
  21702. + --- 1,4 ----
  21703. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21704. +   file gcc.texi.
  21705. +   
  21706. +      This file documents the use and the internals of the GNU compiler.
  21707. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-10 gcc-2.5.8/gcc.info-10
  21708. + *** gcc-2.5.8-fsf/gcc.info-10    Sat Nov 27 19:38:59 1993
  21709. + --- gcc-2.5.8/gcc.info-10    Tue May  3 14:10:18 1994
  21710. + ***************
  21711. + *** 1,4 ****
  21712. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21713. +   file gcc.texi.
  21714. +   
  21715. +      This file documents the use and the internals of the GNU compiler.
  21716. + --- 1,4 ----
  21717. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21718. +   file gcc.texi.
  21719. +   
  21720. +      This file documents the use and the internals of the GNU compiler.
  21721. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-11 gcc-2.5.8/gcc.info-11
  21722. + *** gcc-2.5.8-fsf/gcc.info-11    Sat Nov 27 19:38:59 1993
  21723. + --- gcc-2.5.8/gcc.info-11    Tue May  3 14:10:19 1994
  21724. + ***************
  21725. + *** 1,4 ****
  21726. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21727. +   file gcc.texi.
  21728. +   
  21729. +      This file documents the use and the internals of the GNU compiler.
  21730. + --- 1,4 ----
  21731. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21732. +   file gcc.texi.
  21733. +   
  21734. +      This file documents the use and the internals of the GNU compiler.
  21735. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-12 gcc-2.5.8/gcc.info-12
  21736. + *** gcc-2.5.8-fsf/gcc.info-12    Sat Nov 27 19:39:04 1993
  21737. + --- gcc-2.5.8/gcc.info-12    Tue May  3 14:10:20 1994
  21738. + ***************
  21739. + *** 1,4 ****
  21740. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21741. +   file gcc.texi.
  21742. +   
  21743. +      This file documents the use and the internals of the GNU compiler.
  21744. + --- 1,4 ----
  21745. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21746. +   file gcc.texi.
  21747. +   
  21748. +      This file documents the use and the internals of the GNU compiler.
  21749. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-13 gcc-2.5.8/gcc.info-13
  21750. + *** gcc-2.5.8-fsf/gcc.info-13    Sat Nov 27 19:39:09 1993
  21751. + --- gcc-2.5.8/gcc.info-13    Tue May  3 14:10:21 1994
  21752. + ***************
  21753. + *** 1,4 ****
  21754. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21755. +   file gcc.texi.
  21756. +   
  21757. +      This file documents the use and the internals of the GNU compiler.
  21758. + --- 1,4 ----
  21759. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21760. +   file gcc.texi.
  21761. +   
  21762. +      This file documents the use and the internals of the GNU compiler.
  21763. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-14 gcc-2.5.8/gcc.info-14
  21764. + *** gcc-2.5.8-fsf/gcc.info-14    Sat Nov 27 19:39:13 1993
  21765. + --- gcc-2.5.8/gcc.info-14    Tue May  3 14:10:22 1994
  21766. + ***************
  21767. + *** 1,4 ****
  21768. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21769. +   file gcc.texi.
  21770. +   
  21771. +      This file documents the use and the internals of the GNU compiler.
  21772. + --- 1,4 ----
  21773. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21774. +   file gcc.texi.
  21775. +   
  21776. +      This file documents the use and the internals of the GNU compiler.
  21777. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-15 gcc-2.5.8/gcc.info-15
  21778. + *** gcc-2.5.8-fsf/gcc.info-15    Sat Nov 27 19:39:14 1993
  21779. + --- gcc-2.5.8/gcc.info-15    Tue May  3 14:10:23 1994
  21780. + ***************
  21781. + *** 1,4 ****
  21782. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21783. +   file gcc.texi.
  21784. +   
  21785. +      This file documents the use and the internals of the GNU compiler.
  21786. + --- 1,4 ----
  21787. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21788. +   file gcc.texi.
  21789. +   
  21790. +      This file documents the use and the internals of the GNU compiler.
  21791. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-16 gcc-2.5.8/gcc.info-16
  21792. + *** gcc-2.5.8-fsf/gcc.info-16    Sat Nov 27 19:39:14 1993
  21793. + --- gcc-2.5.8/gcc.info-16    Tue May  3 14:10:23 1994
  21794. + ***************
  21795. + *** 1,4 ****
  21796. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21797. +   file gcc.texi.
  21798. +   
  21799. +      This file documents the use and the internals of the GNU compiler.
  21800. + --- 1,4 ----
  21801. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21802. +   file gcc.texi.
  21803. +   
  21804. +      This file documents the use and the internals of the GNU compiler.
  21805. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-17 gcc-2.5.8/gcc.info-17
  21806. + *** gcc-2.5.8-fsf/gcc.info-17    Sat Nov 27 19:39:15 1993
  21807. + --- gcc-2.5.8/gcc.info-17    Tue May  3 14:10:25 1994
  21808. + ***************
  21809. + *** 1,4 ****
  21810. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21811. +   file gcc.texi.
  21812. +   
  21813. +      This file documents the use and the internals of the GNU compiler.
  21814. + --- 1,4 ----
  21815. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21816. +   file gcc.texi.
  21817. +   
  21818. +      This file documents the use and the internals of the GNU compiler.
  21819. + ***************
  21820. + *** 174,182 ****
  21821. +   
  21822. +   `STANDARD_EXEC_PREFIX'
  21823. +        Define this macro as a C string constant if you wish to override
  21824. + !      the standard choice of `/usr/local/lib/gcc-lib/' as the default
  21825. + !      prefix to try when searching for the executable files of the
  21826. + !      compiler.
  21827. +   
  21828. +   `MD_EXEC_PREFIX'
  21829. +        If defined, this macro is an additional prefix to try after
  21830. + --- 174,181 ----
  21831. +   
  21832. +   `STANDARD_EXEC_PREFIX'
  21833. +        Define this macro as a C string constant if you wish to override
  21834. + !      the standard choice of `/gnu/lib/gcc-lib/' as the default prefix to
  21835. + !      try when searching for the executable files of the compiler.
  21836. +   
  21837. +   `MD_EXEC_PREFIX'
  21838. +        If defined, this macro is an additional prefix to try after
  21839. + ***************
  21840. + *** 185,192 ****
  21841. +   
  21842. +   `STANDARD_STARTFILE_PREFIX'
  21843. +        Define this macro as a C string constant if you wish to override
  21844. + !      the standard choice of `/usr/local/lib/' as the default prefix to
  21845. + !      try when searching for startup files such as `crt0.o'.
  21846. +   
  21847. +   `MD_STARTFILE_PREFIX'
  21848. +        If defined, this macro supplies an additional prefix to try after
  21849. + --- 184,191 ----
  21850. +   
  21851. +   `STANDARD_STARTFILE_PREFIX'
  21852. +        Define this macro as a C string constant if you wish to override
  21853. + !      the standard choice of `/gnu/lib/' as the default prefix to try
  21854. + !      when searching for startup files such as `crt0.o'.
  21855. +   
  21856. +   `MD_STARTFILE_PREFIX'
  21857. +        If defined, this macro supplies an additional prefix to try after
  21858. + ***************
  21859. + *** 201,212 ****
  21860. +   
  21861. +   `LOCAL_INCLUDE_DIR'
  21862. +        Define this macro as a C string constant if you wish to override
  21863. + !      the standard choice of `/usr/local/include' as the default prefix
  21864. + !      to try when searching for local header files.  `LOCAL_INCLUDE_DIR'
  21865. + !      comes before `SYSTEM_INCLUDE_DIR' in the search order.
  21866. +   
  21867. +        Cross compilers do not use this macro and do not search either
  21868. + !      `/usr/local/include' or its replacement.
  21869. +   
  21870. +   `SYSTEM_INCLUDE_DIR'
  21871. +        Define this macro as a C string constant if you wish to specify a
  21872. + --- 200,211 ----
  21873. +   
  21874. +   `LOCAL_INCLUDE_DIR'
  21875. +        Define this macro as a C string constant if you wish to override
  21876. + !      the standard choice of `/gnu/include' as the default prefix to try
  21877. + !      when searching for local header files.  `LOCAL_INCLUDE_DIR' comes
  21878. + !      before `SYSTEM_INCLUDE_DIR' in the search order.
  21879. +   
  21880. +        Cross compilers do not use this macro and do not search either
  21881. + !      `/gnu/include' or its replacement.
  21882. +   
  21883. +   `SYSTEM_INCLUDE_DIR'
  21884. +        Define this macro as a C string constant if you wish to specify a
  21885. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-18 gcc-2.5.8/gcc.info-18
  21886. + *** gcc-2.5.8-fsf/gcc.info-18    Sat Nov 27 19:39:15 1993
  21887. + --- gcc-2.5.8/gcc.info-18    Tue May  3 14:10:25 1994
  21888. + ***************
  21889. + *** 1,4 ****
  21890. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21891. +   file gcc.texi.
  21892. +   
  21893. +      This file documents the use and the internals of the GNU compiler.
  21894. + --- 1,4 ----
  21895. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21896. +   file gcc.texi.
  21897. +   
  21898. +      This file documents the use and the internals of the GNU compiler.
  21899. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-19 gcc-2.5.8/gcc.info-19
  21900. + *** gcc-2.5.8-fsf/gcc.info-19    Sat Nov 27 19:39:16 1993
  21901. + --- gcc-2.5.8/gcc.info-19    Tue May  3 14:10:26 1994
  21902. + ***************
  21903. + *** 1,4 ****
  21904. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21905. +   file gcc.texi.
  21906. +   
  21907. +      This file documents the use and the internals of the GNU compiler.
  21908. + --- 1,4 ----
  21909. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21910. +   file gcc.texi.
  21911. +   
  21912. +      This file documents the use and the internals of the GNU compiler.
  21913. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-2 gcc-2.5.8/gcc.info-2
  21914. + *** gcc-2.5.8-fsf/gcc.info-2    Sat Nov 27 19:38:47 1993
  21915. + --- gcc-2.5.8/gcc.info-2    Tue May  3 14:10:11 1994
  21916. + ***************
  21917. + *** 1,4 ****
  21918. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21919. +   file gcc.texi.
  21920. +   
  21921. +      This file documents the use and the internals of the GNU compiler.
  21922. + --- 1,4 ----
  21923. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21924. +   file gcc.texi.
  21925. +   
  21926. +      This file documents the use and the internals of the GNU compiler.
  21927. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-20 gcc-2.5.8/gcc.info-20
  21928. + *** gcc-2.5.8-fsf/gcc.info-20    Sat Nov 27 19:39:21 1993
  21929. + --- gcc-2.5.8/gcc.info-20    Tue May  3 14:10:27 1994
  21930. + ***************
  21931. + *** 1,4 ****
  21932. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21933. +   file gcc.texi.
  21934. +   
  21935. +      This file documents the use and the internals of the GNU compiler.
  21936. + --- 1,4 ----
  21937. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21938. +   file gcc.texi.
  21939. +   
  21940. +      This file documents the use and the internals of the GNU compiler.
  21941. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-21 gcc-2.5.8/gcc.info-21
  21942. + *** gcc-2.5.8-fsf/gcc.info-21    Sat Nov 27 19:39:21 1993
  21943. + --- gcc-2.5.8/gcc.info-21    Tue May  3 14:10:28 1994
  21944. + ***************
  21945. + *** 1,4 ****
  21946. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21947. +   file gcc.texi.
  21948. +   
  21949. +      This file documents the use and the internals of the GNU compiler.
  21950. + --- 1,4 ----
  21951. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21952. +   file gcc.texi.
  21953. +   
  21954. +      This file documents the use and the internals of the GNU compiler.
  21955. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-22 gcc-2.5.8/gcc.info-22
  21956. + *** gcc-2.5.8-fsf/gcc.info-22    Sat Nov 27 19:39:22 1993
  21957. + --- gcc-2.5.8/gcc.info-22    Tue May  3 14:10:29 1994
  21958. + ***************
  21959. + *** 1,4 ****
  21960. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21961. +   file gcc.texi.
  21962. +   
  21963. +      This file documents the use and the internals of the GNU compiler.
  21964. + --- 1,4 ----
  21965. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21966. +   file gcc.texi.
  21967. +   
  21968. +      This file documents the use and the internals of the GNU compiler.
  21969. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-23 gcc-2.5.8/gcc.info-23
  21970. + *** gcc-2.5.8-fsf/gcc.info-23    Sat Nov 27 19:39:23 1993
  21971. + --- gcc-2.5.8/gcc.info-23    Tue May  3 14:10:31 1994
  21972. + ***************
  21973. + *** 1,4 ****
  21974. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21975. +   file gcc.texi.
  21976. +   
  21977. +      This file documents the use and the internals of the GNU compiler.
  21978. + --- 1,4 ----
  21979. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21980. +   file gcc.texi.
  21981. +   
  21982. +      This file documents the use and the internals of the GNU compiler.
  21983. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-3 gcc-2.5.8/gcc.info-3
  21984. + *** gcc-2.5.8-fsf/gcc.info-3    Sat Nov 27 19:38:47 1993
  21985. + --- gcc-2.5.8/gcc.info-3    Tue May  3 14:10:12 1994
  21986. + ***************
  21987. + *** 1,4 ****
  21988. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  21989. +   file gcc.texi.
  21990. +   
  21991. +      This file documents the use and the internals of the GNU compiler.
  21992. + --- 1,4 ----
  21993. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  21994. +   file gcc.texi.
  21995. +   
  21996. +      This file documents the use and the internals of the GNU compiler.
  21997. + ***************
  21998. + *** 568,577 ****
  21999. +        For each subprogram to be run, the compiler driver first tries the
  22000. +        `-B' prefix, if any.  If that name is not found, or if `-B' was
  22001. +        not specified, the driver tries two standard prefixes, which are
  22002. + !      `/usr/lib/gcc/' and `/usr/local/lib/gcc-lib/'.  If neither of
  22003. + !      those results in a file name that is found, the unmodified program
  22004. + !      name is searched for using the directories specified in your
  22005. + !      `PATH' environment variable.
  22006. +   
  22007. +        `-B' prefixes that effectively specify directory names also apply
  22008. +        to libraries in the linker, because the compiler translates these
  22009. + --- 568,577 ----
  22010. +        For each subprogram to be run, the compiler driver first tries the
  22011. +        `-B' prefix, if any.  If that name is not found, or if `-B' was
  22012. +        not specified, the driver tries two standard prefixes, which are
  22013. + !      `/usr/lib/gcc/' and `/gnu/lib/gcc-lib/'.  If neither of those
  22014. + !      results in a file name that is found, the unmodified program name
  22015. + !      is searched for using the directories specified in your `PATH'
  22016. + !      environment variable.
  22017. +   
  22018. +        `-B' prefixes that effectively specify directory names also apply
  22019. +        to libraries in the linker, because the compiler translates these
  22020. + ***************
  22021. + *** 628,640 ****
  22022. +      The `-b' and `-V' options actually work by controlling part of the
  22023. +   file name used for the executable files and libraries used for
  22024. +   compilation.  A given version of GNU CC, for a given target machine, is
  22025. + ! normally kept in the directory `/usr/local/lib/gcc-lib/MACHINE/VERSION'.
  22026. +   
  22027. +      Thus, sites can customize the effect of `-b' or `-V' either by
  22028. +   changing the names of these directories or adding alternate names (or
  22029. + ! symbolic links).  If in directory `/usr/local/lib/gcc-lib/' the file
  22030. + ! `80386' is a link to the file `i386v', then `-b 80386' becomes an alias
  22031. + ! for `-b i386v'.
  22032. +   
  22033. +      In one respect, the `-b' or `-V' do not completely change to a
  22034. +   different compiler: the top-level driver program `gcc' that you
  22035. + --- 628,640 ----
  22036. +      The `-b' and `-V' options actually work by controlling part of the
  22037. +   file name used for the executable files and libraries used for
  22038. +   compilation.  A given version of GNU CC, for a given target machine, is
  22039. + ! normally kept in the directory `/gnu/lib/gcc-lib/MACHINE/VERSION'.
  22040. +   
  22041. +      Thus, sites can customize the effect of `-b' or `-V' either by
  22042. +   changing the names of these directories or adding alternate names (or
  22043. + ! symbolic links).  If in directory `/gnu/lib/gcc-lib/' the file `80386'
  22044. + ! is a link to the file `i386v', then `-b 80386' becomes an alias for `-b
  22045. + ! i386v'.
  22046. +   
  22047. +      In one respect, the `-b' or `-V' do not completely change to a
  22048. +   different compiler: the top-level driver program `gcc' that you
  22049. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-4 gcc-2.5.8/gcc.info-4
  22050. + *** gcc-2.5.8-fsf/gcc.info-4    Sat Nov 27 19:38:47 1993
  22051. + --- gcc-2.5.8/gcc.info-4    Tue May  3 14:10:12 1994
  22052. + ***************
  22053. + *** 1,4 ****
  22054. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22055. +   file gcc.texi.
  22056. +   
  22057. +      This file documents the use and the internals of the GNU compiler.
  22058. + --- 1,4 ----
  22059. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22060. +   file gcc.texi.
  22061. +   
  22062. +      This file documents the use and the internals of the GNU compiler.
  22063. + ***************
  22064. + *** 789,801 ****
  22065. +   
  22066. +        In addition, the prefix is used in an unusual way in finding the
  22067. +        directories to search for header files.  For each of the standard
  22068. + !      directories whose name normally begins with
  22069. + !      `/usr/local/lib/gcc-lib' (more precisely, with the value of
  22070. + !      `GCC_INCLUDE_DIR'), GNU CC tries replacing that beginning with the
  22071. + !      specified prefix to produce an alternate directory name.  Thus,
  22072. + !      with `-Bfoo/', GNU CC will search `foo/bar' where it would
  22073. + !      normally search `/usr/local/lib/bar'.  These alternate directories
  22074. + !      are searched first; the standard directories come next.
  22075. +   
  22076. +   `COMPILER_PATH'
  22077. +        The value of `COMPILER_PATH' is a colon-separated list of
  22078. + --- 789,801 ----
  22079. +   
  22080. +        In addition, the prefix is used in an unusual way in finding the
  22081. +        directories to search for header files.  For each of the standard
  22082. + !      directories whose name normally begins with `/gnu/lib/gcc-lib'
  22083. + !      (more precisely, with the value of `GCC_INCLUDE_DIR'), GNU CC tries
  22084. + !      replacing that beginning with the specified prefix to produce an
  22085. + !      alternate directory name.  Thus, with `-Bfoo/', GNU CC will search
  22086. + !      `foo/bar' where it would normally search `/gnu/lib/bar'.  These
  22087. + !      alternate directories are searched first; the standard directories
  22088. + !      come next.
  22089. +   
  22090. +   `COMPILER_PATH'
  22091. +        The value of `COMPILER_PATH' is a colon-separated list of
  22092. + ***************
  22093. + *** 896,902 ****
  22094. +   
  22095. +   `-B DIRECTORY'
  22096. +        Look for the file `SYSCALLS.c.X' in DIRECTORY, instead of the
  22097. + !      usual directory (normally `/usr/local/lib').  This file contains
  22098. +        prototype information about standard system functions.  This option
  22099. +        applies only to `protoize'.
  22100. +   
  22101. + --- 896,902 ----
  22102. +   
  22103. +   `-B DIRECTORY'
  22104. +        Look for the file `SYSCALLS.c.X' in DIRECTORY, instead of the
  22105. + !      usual directory (normally `/gnu/lib').  This file contains
  22106. +        prototype information about standard system functions.  This option
  22107. +        applies only to `protoize'.
  22108. +   
  22109. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-5 gcc-2.5.8/gcc.info-5
  22110. + *** gcc-2.5.8-fsf/gcc.info-5    Sat Nov 27 19:38:48 1993
  22111. + --- gcc-2.5.8/gcc.info-5    Tue May  3 14:10:13 1994
  22112. + ***************
  22113. + *** 1,4 ****
  22114. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22115. +   file gcc.texi.
  22116. +   
  22117. +      This file documents the use and the internals of the GNU compiler.
  22118. + --- 1,4 ----
  22119. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22120. +   file gcc.texi.
  22121. +   
  22122. +      This file documents the use and the internals of the GNU compiler.
  22123. + ***************
  22124. + *** 557,576 ****
  22125. +             files do not exist, it means nothing needs to be added for a
  22126. +             given target or host.
  22127. +   
  22128. + !   4. The standard directory for installing GNU CC is `/usr/local/lib'.
  22129. + !      If you want to install its files somewhere else, specify
  22130. +        `--prefix=DIR' when you run `configure'.  Here DIR is a directory
  22131. + !      name to use instead of `/usr/local' for all purposes with one
  22132. + !      exception: the directory `/usr/local/include' is searched for
  22133. + !      header files no matter where you install the compiler.
  22134. +   
  22135. +     5. Specify `--local-prefix=DIR' if you want the compiler to search
  22136. +        directory `DIR/include' for header files *instead* of
  22137. + !      `/usr/local/include'.  (This is for systems that have different
  22138. +        conventions for where to put site-specific things.)
  22139. +   
  22140. + !      Unless you have a convention other than `/usr/local' for
  22141. + !      site-specific files, it is a bad idea to specify `--local-prefix'.
  22142. +   
  22143. +     6. Make sure the Bison parser generator is installed.  (This is
  22144. +        unnecessary if the Bison output files `c-parse.c' and `cexp.c' are
  22145. + --- 557,576 ----
  22146. +             files do not exist, it means nothing needs to be added for a
  22147. +             given target or host.
  22148. +   
  22149. + !   4. The standard directory for installing GNU CC is `/gnu/lib'.  If
  22150. + !      you want to install its files somewhere else, specify
  22151. +        `--prefix=DIR' when you run `configure'.  Here DIR is a directory
  22152. + !      name to use instead of `/gnu' for all purposes with one exception:
  22153. + !      the directory `/gnu/include' is searched for header files no
  22154. + !      matter where you install the compiler.
  22155. +   
  22156. +     5. Specify `--local-prefix=DIR' if you want the compiler to search
  22157. +        directory `DIR/include' for header files *instead* of
  22158. + !      `/gnu/include'.  (This is for systems that have different
  22159. +        conventions for where to put site-specific things.)
  22160. +   
  22161. + !      Unless you have a convention other than `/gnu' for site-specific
  22162. + !      files, it is a bad idea to specify `--local-prefix'.
  22163. +   
  22164. +     6. Make sure the Bison parser generator is installed.  (This is
  22165. +        unnecessary if the Bison output files `c-parse.c' and `cexp.c' are
  22166. + ***************
  22167. + *** 621,629 ****
  22168. +        If you are building with a previous GNU C compiler, do not use
  22169. +        `CC=gcc' on the make command or by editing the Makefile.  Instead,
  22170. +        use a full pathname to specify the compiler, such as
  22171. + !      `CC=/usr/local/bin/gcc'.  This is because make might execute the
  22172. + !      `gcc' in the current directory before all of the compiler
  22173. + !      components have been built.
  22174. +   
  22175. +     9. If you are building a cross-compiler, stop here.  *Note
  22176. +        Cross-Compiler::.
  22177. + --- 621,629 ----
  22178. +        If you are building with a previous GNU C compiler, do not use
  22179. +        `CC=gcc' on the make command or by editing the Makefile.  Instead,
  22180. +        use a full pathname to specify the compiler, such as
  22181. + !      `CC=/gnu/bin/gcc'.  This is because make might execute the `gcc'
  22182. + !      in the current directory before all of the compiler components
  22183. + !      have been built.
  22184. +   
  22185. +     9. If you are building a cross-compiler, stop here.  *Note
  22186. +        Cross-Compiler::.
  22187. + ***************
  22188. + *** 746,760 ****
  22189. +   
  22190. +        This copies the files `cc1', `cpp' and `libgcc.a' to files `cc1',
  22191. +        `cpp' and `libgcc.a' in the directory
  22192. + !      `/usr/local/lib/gcc-lib/TARGET/VERSION', which is where the
  22193. + !      compiler driver program looks for them.  Here TARGET is the target
  22194. + !      machine type specified when you ran `configure', and VERSION is
  22195. + !      the version number of GNU CC.  This naming scheme permits various
  22196. +        versions and/or cross-compilers to coexist.
  22197. +   
  22198. + !      This also copies the driver program `xgcc' into
  22199. + !      `/usr/local/bin/gcc', so that it appears in typical execution
  22200. + !      search paths.
  22201. +   
  22202. +        On some systems, this command causes recompilation of some files.
  22203. +        This is usually due to bugs in `make'.  You should either ignore
  22204. + --- 746,759 ----
  22205. +   
  22206. +        This copies the files `cc1', `cpp' and `libgcc.a' to files `cc1',
  22207. +        `cpp' and `libgcc.a' in the directory
  22208. + !      `/gnu/lib/gcc-lib/TARGET/VERSION', which is where the compiler
  22209. + !      driver program looks for them.  Here TARGET is the target machine
  22210. + !      type specified when you ran `configure', and VERSION is the
  22211. + !      version number of GNU CC.  This naming scheme permits various
  22212. +        versions and/or cross-compilers to coexist.
  22213. +   
  22214. + !      This also copies the driver program `xgcc' into `/gnu/bin/gcc', so
  22215. + !      that it appears in typical execution search paths.
  22216. +   
  22217. +        On some systems, this command causes recompilation of some files.
  22218. +        This is usually due to bugs in `make'.  You should either ignore
  22219. + ***************
  22220. + *** 919,926 ****
  22221. +   ----------------------------------------
  22222. +   
  22223. +      If you have a cross-assembler and cross-linker available, you should
  22224. + ! install them now.  Put them in the directory `/usr/local/TARGET/bin'.
  22225. + ! Here is a table of the tools you should put in this directory:
  22226. +   
  22227. +   `as'
  22228. +        This should be the cross-assembler.
  22229. + --- 918,925 ----
  22230. +   ----------------------------------------
  22231. +   
  22232. +      If you have a cross-assembler and cross-linker available, you should
  22233. + ! install them now.  Put them in the directory `/gnu/TARGET/bin'.  Here
  22234. + ! is a table of the tools you should put in this directory:
  22235. +   
  22236. +   `as'
  22237. +        This should be the cross-assembler.
  22238. + ***************
  22239. + *** 949,961 ****
  22240. +   
  22241. +      If you want to install libraries to use with the cross-compiler,
  22242. +   such as a standard C library, put them in the directory
  22243. + ! `/usr/local/TARGET/lib'; installation of GNU CC copies all all the
  22244. + ! files in that subdirectory into the proper place for GNU CC to find
  22245. + ! them and link with them.  Here's an example of copying some libraries
  22246. + ! from a target machine:
  22247. +   
  22248. +        ftp TARGET-MACHINE
  22249. + !      lcd /usr/local/TARGET/lib
  22250. +        cd /lib
  22251. +        get libc.a
  22252. +        cd /usr/lib
  22253. + --- 948,960 ----
  22254. +   
  22255. +      If you want to install libraries to use with the cross-compiler,
  22256. +   such as a standard C library, put them in the directory
  22257. + ! `/gnu/TARGET/lib'; installation of GNU CC copies all all the files in
  22258. + ! that subdirectory into the proper place for GNU CC to find them and
  22259. + ! link with them.  Here's an example of copying some libraries from a
  22260. + ! target machine:
  22261. +   
  22262. +        ftp TARGET-MACHINE
  22263. + !      lcd /gnu/TARGET/lib
  22264. +        cd /lib
  22265. +        get libc.a
  22266. +        cd /usr/lib
  22267. + ***************
  22268. + *** 968,981 ****
  22269. +   
  22270. +      Many targets require "start files" such as `crt0.o' and `crtn.o'
  22271. +   which are linked into each executable; these too should be placed in
  22272. + ! `/usr/local/TARGET/lib'.  There may be several alternatives for
  22273. + ! `crt0.o', for use with profiling or other compilation options.  Check
  22274. + ! your target's definition of `STARTFILE_SPEC' to find out what start
  22275. + ! files it uses.  Here's an example of copying these files from a target
  22276. + ! machine:
  22277. +   
  22278. +        ftp TARGET-MACHINE
  22279. + !      lcd /usr/local/TARGET/lib
  22280. +        prompt
  22281. +        cd /lib
  22282. +        mget *crt*.o
  22283. + --- 967,979 ----
  22284. +   
  22285. +      Many targets require "start files" such as `crt0.o' and `crtn.o'
  22286. +   which are linked into each executable; these too should be placed in
  22287. + ! `/gnu/TARGET/lib'.  There may be several alternatives for `crt0.o', for
  22288. + ! use with profiling or other compilation options.  Check your target's
  22289. + ! definition of `STARTFILE_SPEC' to find out what start files it uses.
  22290. + ! Here's an example of copying these files from a target machine:
  22291. +   
  22292. +        ftp TARGET-MACHINE
  22293. + !      lcd /gnu/TARGET/lib
  22294. +        prompt
  22295. +        cd /lib
  22296. +        mget *crt*.o
  22297. + ***************
  22298. + *** 1094,1100 ****
  22299. +   cross-compiling.
  22300. +   
  22301. +      When you have found suitable header files, put them in
  22302. + ! `/usr/local/TARGET/include', before building the cross compiler.  Then
  22303. +   installation will run fixincludes properly and install the corrected
  22304. +   versions of the header files where the compiler will use them.
  22305. +   
  22306. + --- 1092,1098 ----
  22307. +   cross-compiling.
  22308. +   
  22309. +      When you have found suitable header files, put them in
  22310. + ! `/gnu/TARGET/include', before building the cross compiler.  Then
  22311. +   installation will run fixincludes properly and install the corrected
  22312. +   versions of the header files where the compiler will use them.
  22313. +   
  22314. + ***************
  22315. + *** 1111,1117 ****
  22316. +      Then, on the host machine, do this:
  22317. +   
  22318. +        ftp TARGET-MACHINE
  22319. + !      lcd /usr/local/TARGET/include
  22320. +        get tarfile
  22321. +        quit
  22322. +        tar xf tarfile
  22323. + --- 1109,1115 ----
  22324. +      Then, on the host machine, do this:
  22325. +   
  22326. +        ftp TARGET-MACHINE
  22327. + !      lcd /gnu/TARGET/include
  22328. +        get tarfile
  22329. +        quit
  22330. +        tar xf tarfile
  22331. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-6 gcc-2.5.8/gcc.info-6
  22332. + *** gcc-2.5.8-fsf/gcc.info-6    Sat Nov 27 19:38:48 1993
  22333. + --- gcc-2.5.8/gcc.info-6    Tue May  3 14:10:15 1994
  22334. + ***************
  22335. + *** 1,4 ****
  22336. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22337. +   file gcc.texi.
  22338. +   
  22339. +      This file documents the use and the internals of the GNU compiler.
  22340. + --- 1,4 ----
  22341. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22342. +   file gcc.texi.
  22343. +   
  22344. +      This file documents the use and the internals of the GNU compiler.
  22345. + ***************
  22346. + *** 86,92 ****
  22347. +   `jaguar.cs.utah.edu' `dist' subdirectory.  You would need to install
  22348. +   GAS in the file
  22349. +   
  22350. + !      /usr/local/lib/gcc-lib/CONFIGURATION/GCCVERSION/as
  22351. +   
  22352. +   where CONFIGURATION is the configuration name (perhaps `hpNNN-hpux')
  22353. +   and GCCVERSION is the GNU CC version number.  Do this *before* starting
  22354. + --- 86,92 ----
  22355. +   `jaguar.cs.utah.edu' `dist' subdirectory.  You would need to install
  22356. +   GAS in the file
  22357. +   
  22358. + !      /gnu/lib/gcc-lib/CONFIGURATION/GCCVERSION/as
  22359. +   
  22360. +   where CONFIGURATION is the configuration name (perhaps `hpNNN-hpux')
  22361. +   and GCCVERSION is the GNU CC version number.  Do this *before* starting
  22362. + ***************
  22363. + *** 631,638 ****
  22364. +   target independent header files in that directory.
  22365. +   
  22366. +      `LOCAL_INCLUDE_DIR' is used only for a native compiler.  It is
  22367. + ! normally `/usr/local/include'.  GNU CC searches this directory so that
  22368. + ! users can install header files in `/usr/local/include'.
  22369. +   
  22370. +      `CROSS_INCLUDE_DIR' is used only for a cross compiler.  GNU CC
  22371. +   doesn't install anything there.
  22372. + --- 631,638 ----
  22373. +   target independent header files in that directory.
  22374. +   
  22375. +      `LOCAL_INCLUDE_DIR' is used only for a native compiler.  It is
  22376. + ! normally `/gnu/include'.  GNU CC searches this directory so that users
  22377. + ! can install header files in `/gnu/include'.
  22378. +   
  22379. +      `CROSS_INCLUDE_DIR' is used only for a cross compiler.  GNU CC
  22380. +   doesn't install anything there.
  22381. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-7 gcc-2.5.8/gcc.info-7
  22382. + *** gcc-2.5.8-fsf/gcc.info-7    Sat Nov 27 19:38:49 1993
  22383. + --- gcc-2.5.8/gcc.info-7    Tue May  3 14:10:15 1994
  22384. + ***************
  22385. + *** 1,4 ****
  22386. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22387. +   file gcc.texi.
  22388. +   
  22389. +      This file documents the use and the internals of the GNU compiler.
  22390. + --- 1,4 ----
  22391. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22392. +   file gcc.texi.
  22393. +   
  22394. +      This file documents the use and the internals of the GNU compiler.
  22395. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-8 gcc-2.5.8/gcc.info-8
  22396. + *** gcc-2.5.8-fsf/gcc.info-8    Sat Nov 27 19:38:54 1993
  22397. + --- gcc-2.5.8/gcc.info-8    Tue May  3 14:10:16 1994
  22398. + ***************
  22399. + *** 1,4 ****
  22400. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22401. +   file gcc.texi.
  22402. +   
  22403. +      This file documents the use and the internals of the GNU compiler.
  22404. + --- 1,4 ----
  22405. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22406. +   file gcc.texi.
  22407. +   
  22408. +      This file documents the use and the internals of the GNU compiler.
  22409. + ***************
  22410. + *** 509,516 ****
  22411. +   
  22412. +      * In previous versions of GNU CC, the `gcc' driver program looked for
  22413. +        `as' and `ld' in various places; for example, in files beginning
  22414. + !      with `/usr/local/lib/gcc-'.  GNU CC version 2 looks for them in
  22415. + !      the directory `/usr/local/lib/gcc-lib/TARGET/VERSION'.
  22416. +   
  22417. +        Thus, to use a version of `as' or `ld' that is not the system
  22418. +        default, for example `gas' or GNU `ld', you must put them in that
  22419. + --- 509,516 ----
  22420. +   
  22421. +      * In previous versions of GNU CC, the `gcc' driver program looked for
  22422. +        `as' and `ld' in various places; for example, in files beginning
  22423. + !      with `/gnu/lib/gcc-'.  GNU CC version 2 looks for them in the
  22424. + !      directory `/gnu/lib/gcc-lib/TARGET/VERSION'.
  22425. +   
  22426. +        Thus, to use a version of `as' or `ld' that is not the system
  22427. +        default, for example `gas' or GNU `ld', you must put them in that
  22428. + ***************
  22429. + *** 680,687 ****
  22430. +   
  22431. +      * On System V, if you get an error like this,
  22432. +   
  22433. + !           /usr/local/lib/bison.simple: In function `yyparse':
  22434. + !           /usr/local/lib/bison.simple:625: virtual memory exhausted
  22435. +   
  22436. +        that too indicates a problem with disk space, ULIMIT, or `MAXUMEM'.
  22437. +   
  22438. + --- 680,687 ----
  22439. +   
  22440. +      * On System V, if you get an error like this,
  22441. +   
  22442. + !           /gnu/lib/bison.simple: In function `yyparse':
  22443. + !           /gnu/lib/bison.simple:625: virtual memory exhausted
  22444. +   
  22445. +        that too indicates a problem with disk space, ULIMIT, or `MAXUMEM'.
  22446. +   
  22447. + ***************
  22448. + *** 871,877 ****
  22449. +   
  22450. +        Instead, you should use these options (when compiling C programs):
  22451. +   
  22452. + !           -I/usr/local/lib/gcc-lib/TARGET/VERSION/include -I/usr/include
  22453. +   
  22454. +        For C++ programs, GNU CC also uses a special directory that
  22455. +        defines C++ interfaces to standard C subroutines.  This directory
  22456. + --- 871,877 ----
  22457. +   
  22458. +        Instead, you should use these options (when compiling C programs):
  22459. +   
  22460. + !           -I/gnu/lib/gcc-lib/TARGET/VERSION/include -I/usr/include
  22461. +   
  22462. +        For C++ programs, GNU CC also uses a special directory that
  22463. +        defines C++ interfaces to standard C subroutines.  This directory
  22464. + ***************
  22465. + *** 880,886 ****
  22466. +        C++ programs and specifying include directories explicitly, use
  22467. +        this option first, then the two options above:
  22468. +   
  22469. + !           -I/usr/local/lib/g++-include
  22470. +   
  22471. +      * On some SGI systems, when you use `-lgl_s' as an option, it gets
  22472. +        translated magically to `-lgl_s -lX11_s -lc_s'.  Naturally, this
  22473. + --- 880,886 ----
  22474. +        C++ programs and specifying include directories explicitly, use
  22475. +        this option first, then the two options above:
  22476. +   
  22477. + !           -I/gnu/lib/g++-include
  22478. +   
  22479. +      * On some SGI systems, when you use `-lgl_s' as an option, it gets
  22480. +        translated magically to `-lgl_s -lX11_s -lc_s'.  Naturally, this
  22481. + ***************
  22482. + *** 1098,1104 ****
  22483. +        with the ordinary C compiler.  If you do so, you must specify the
  22484. +        following options:
  22485. +   
  22486. + !           -L/usr/local/lib/gcc-lib/we32k-att-sysv/2.5 -lgcc -lc_s
  22487. +   
  22488. +        The first specifies where to find the library `libgcc.a' specified
  22489. +        with the `-lgcc' option.
  22490. + --- 1098,1104 ----
  22491. +        with the ordinary C compiler.  If you do so, you must specify the
  22492. +        following options:
  22493. +   
  22494. + !           -L/gnu/lib/gcc-lib/we32k-att-sysv/2.5 -lgcc -lc_s
  22495. +   
  22496. +        The first specifies where to find the library `libgcc.a' specified
  22497. +        with the `-lgcc' option.
  22498. + ***************
  22499. + *** 1167,1173 ****
  22500. +        If you have installed GNU malloc as a separate library package,
  22501. +        use this option when you relink GNU CC:
  22502. +   
  22503. + !           MALLOC=/usr/local/lib/libgmalloc.a
  22504. +   
  22505. +        Alternatively, if you have compiled `gmalloc.c' from Emacs 19, copy
  22506. +        the object file to `gmalloc.o' and use this option when you relink
  22507. + --- 1167,1173 ----
  22508. +        If you have installed GNU malloc as a separate library package,
  22509. +        use this option when you relink GNU CC:
  22510. +   
  22511. + !           MALLOC=/gnu/lib/libgmalloc.a
  22512. +   
  22513. +        Alternatively, if you have compiled `gmalloc.c' from Emacs 19, copy
  22514. +        the object file to `gmalloc.o' and use this option when you relink
  22515. + diff -rc --new-file gcc-2.5.8-fsf/gcc.info-9 gcc-2.5.8/gcc.info-9
  22516. + *** gcc-2.5.8-fsf/gcc.info-9    Sat Nov 27 19:38:54 1993
  22517. + --- gcc-2.5.8/gcc.info-9    Tue May  3 14:10:17 1994
  22518. + ***************
  22519. + *** 1,4 ****
  22520. + ! This is Info file gcc.info, produced by Makeinfo-1.54 from the input
  22521. +   file gcc.texi.
  22522. +   
  22523. +      This file documents the use and the internals of the GNU compiler.
  22524. + --- 1,4 ----
  22525. + ! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
  22526. +   file gcc.texi.
  22527. +   
  22528. +      This file documents the use and the internals of the GNU compiler.
  22529. + diff -rc --new-file gcc-2.5.8-fsf/gcc.texi gcc-2.5.8/gcc.texi
  22530. + *** gcc-2.5.8-fsf/gcc.texi    Sat Nov 27 19:13:22 1993
  22531. + --- gcc-2.5.8/gcc.texi    Tue Feb 22 11:27:42 1994
  22532. + ***************
  22533. + *** 1075,1083 ****
  22534. +   @item
  22535. +   In previous versions of GNU CC, the @code{gcc} driver program looked for
  22536. +   @code{as} and @code{ld} in various places; for example, in files
  22537. + ! beginning with @file{/usr/local/lib/gcc-}.  GNU CC version 2 looks for
  22538. +   them in the directory
  22539. + ! @file{/usr/local/lib/gcc-lib/@var{target}/@var{version}}.
  22540. +   
  22541. +   Thus, to use a version of @code{as} or @code{ld} that is not the system
  22542. +   default, for example @code{gas} or GNU @code{ld}, you must put them in
  22543. + --- 1075,1083 ----
  22544. +   @item
  22545. +   In previous versions of GNU CC, the @code{gcc} driver program looked for
  22546. +   @code{as} and @code{ld} in various places; for example, in files
  22547. + ! beginning with @file{/gnu/lib/gcc-}.  GNU CC version 2 looks for
  22548. +   them in the directory
  22549. + ! @file{/gnu/lib/gcc-lib/@var{target}/@var{version}}.
  22550. +   
  22551. +   Thus, to use a version of @code{as} or @code{ld} that is not the system
  22552. +   default, for example @code{gas} or GNU @code{ld}, you must put them in
  22553. + ***************
  22554. + *** 1276,1283 ****
  22555. +   On System V, if you get an error like this,
  22556. +   
  22557. +   @example
  22558. + ! /usr/local/lib/bison.simple: In function `yyparse':
  22559. + ! /usr/local/lib/bison.simple:625: virtual memory exhausted
  22560. +   @end example
  22561. +   
  22562. +   @noindent
  22563. + --- 1276,1283 ----
  22564. +   On System V, if you get an error like this,
  22565. +   
  22566. +   @example
  22567. + ! /gnu/lib/bison.simple: In function `yyparse':
  22568. + ! /gnu/lib/bison.simple:625: virtual memory exhausted
  22569. +   @end example
  22570. +   
  22571. +   @noindent
  22572. + ***************
  22573. + *** 1507,1513 ****
  22574. +   Instead, you should use these options (when compiling C programs):
  22575. +   
  22576. +   @smallexample
  22577. + ! -I/usr/local/lib/gcc-lib/@var{target}/@var{version}/include -I/usr/include
  22578. +   @end smallexample
  22579. +   
  22580. +   For C++ programs, GNU CC also uses a special directory that defines C++
  22581. + --- 1507,1513 ----
  22582. +   Instead, you should use these options (when compiling C programs):
  22583. +   
  22584. +   @smallexample
  22585. + ! -I/gnu/lib/gcc-lib/@var{target}/@var{version}/include -I/usr/include
  22586. +   @end smallexample
  22587. +   
  22588. +   For C++ programs, GNU CC also uses a special directory that defines C++
  22589. + ***************
  22590. + *** 1518,1524 ****
  22591. +   options above:
  22592. +   
  22593. +   @example
  22594. + ! -I/usr/local/lib/g++-include
  22595. +   @end example
  22596. +   
  22597. +   @ignore
  22598. + --- 1518,1524 ----
  22599. +   options above:
  22600. +   
  22601. +   @example
  22602. + ! -I/gnu/lib/g++-include
  22603. +   @end example
  22604. +   
  22605. +   @ignore
  22606. + ***************
  22607. + *** 1789,1795 ****
  22608. +   options:
  22609. +   
  22610. +   @smallexample
  22611. + ! -L/usr/local/lib/gcc-lib/we32k-att-sysv/2.5 -lgcc -lc_s
  22612. +   @end smallexample
  22613. +   
  22614. +   The first specifies where to find the library @file{libgcc.a}
  22615. + --- 1789,1795 ----
  22616. +   options:
  22617. +   
  22618. +   @smallexample
  22619. + ! -L/gnu/lib/gcc-lib/we32k-att-sysv/2.5 -lgcc -lc_s
  22620. +   @end smallexample
  22621. +   
  22622. +   The first specifies where to find the library @file{libgcc.a}
  22623. + ***************
  22624. + *** 1869,1875 ****
  22625. +   option when you relink GNU CC:
  22626. +   
  22627. +   @example
  22628. + ! MALLOC=/usr/local/lib/libgmalloc.a 
  22629. +   @end example
  22630. +   
  22631. +   Alternatively, if you have compiled @file{gmalloc.c} from Emacs 19, copy
  22632. + --- 1869,1875 ----
  22633. +   option when you relink GNU CC:
  22634. +   
  22635. +   @example
  22636. + ! MALLOC=/gnu/lib/libgmalloc.a 
  22637. +   @end example
  22638. +   
  22639. +   Alternatively, if you have compiled @file{gmalloc.c} from Emacs 19, copy
  22640. + diff -rc --new-file gcc-2.5.8-fsf/genconfig.c gcc-2.5.8/genconfig.c
  22641. + *** gcc-2.5.8-fsf/genconfig.c    Tue Oct 13 04:11:48 1992
  22642. + --- gcc-2.5.8/genconfig.c    Tue Feb 22 11:23:23 1994
  22643. + ***************
  22644. + *** 303,310 ****
  22645. + --- 303,318 ----
  22646. +     printf ("/* Generated automatically by the program `genconfig'\n\
  22647. +   from the machine description file `md'.  */\n\n");
  22648. +   
  22649. + + #ifdef amigados
  22650. + +   /* this constant probably better be 14 in general, or a cross compiling
  22651. + +      host might choke on some amigados header files... */
  22652. + + 
  22653. + +   /* Allow at least 14 operands for the sake of asm constructs.  */
  22654. + +   max_recog_operands = 14;
  22655. + + #else
  22656. +     /* Allow at least 10 operands for the sake of asm constructs.  */
  22657. +     max_recog_operands = 9;  /* We will add 1 later.  */
  22658. + + #endif
  22659. +     max_dup_operands = 1;
  22660. +   
  22661. +     /* Read the machine description.  */
  22662. + diff -rc --new-file gcc-2.5.8-fsf/gstdarg.h gcc-2.5.8/gstdarg.h
  22663. + *** gcc-2.5.8-fsf/gstdarg.h    Sat Nov 13 01:54:16 1993
  22664. + --- gcc-2.5.8/gstdarg.h    Tue Feb 22 11:23:26 1994
  22665. + ***************
  22666. + *** 157,160 ****
  22667. + --- 157,166 ----
  22668. +   
  22669. +   #endif /* __GNUC__ */
  22670. +   #endif /* not _ANSI_STDARG_H_ */
  22671. + + #ifdef amigados
  22672. + + # ifndef _VA_LIST
  22673. + + #  define _VA_LIST
  22674. + +    typedef __gnuc_va_list va_list;
  22675. + + # endif
  22676. + + #endif /* amigados */
  22677. +   #endif /* not _STDARG_H */
  22678. + diff -rc --new-file gcc-2.5.8-fsf/gstddef.h gcc-2.5.8/gstddef.h
  22679. + *** gcc-2.5.8-fsf/gstddef.h    Fri Dec  3 11:47:17 1993
  22680. + --- gcc-2.5.8/gstddef.h    Tue Feb 22 11:23:31 1994
  22681. + ***************
  22682. + *** 3,8 ****
  22683. + --- 3,48 ----
  22684. +   #ifndef _ANSI_STDDEF_H
  22685. +   #ifndef __STDDEF_H__
  22686. +   
  22687. + + #ifdef amigados
  22688. + + 
  22689. + + /* GNU libc has special support in this file, 4.3bsd-net2 libc deserves that
  22690. + +    just as well. The system headers are ANSI compliant, the used compiler IS
  22691. + +    gcc, so it's really ok to use the system header, no reason to hassle
  22692. + +    with a jungle of ifdefs. Besides, amigados is only defined if compiling
  22693. + +    with host=amigados, it doesn't apply if compiling with target=amigados
  22694. + +    on a different host with possibly different system headers. Same thing
  22695. + +    would apply to gstdarg.h and gvarargs.h, but those headers are more
  22696. + +    easily fixable than this one and I'm sick of writing the same comment
  22697. + +    there as well. MW
  22698. + + 
  22699. + +    Include the contents of <stddef.h> inline rather than with a #include,
  22700. + +    to avoid infinite include recursion when this file is installed in
  22701. + +    gcc's include directory as stddef.h.  (fnf)  */
  22702. + + 
  22703. + + #define _STDDEF_H_
  22704. + + 
  22705. + + #include <machine/ansi.h>
  22706. + + 
  22707. + + typedef    _PTRDIFF_T_    ptrdiff_t;
  22708. + + 
  22709. + + #ifdef    _SIZE_T_
  22710. + + typedef    _SIZE_T_    size_t;
  22711. + + #undef    _SIZE_T_
  22712. + + #endif
  22713. + + 
  22714. + + #ifdef    _WCHAR_T_
  22715. + + typedef    _WCHAR_T_    wchar_t;
  22716. + + #undef    _WCHAR_T_
  22717. + + #endif
  22718. + + 
  22719. + + #ifndef    NULL
  22720. + + #define    NULL    0
  22721. + + #endif
  22722. + + 
  22723. + + #define    offsetof(type, member)    ((size_t)(&((type *)0)->member))
  22724. + + 
  22725. + + #else /* not amigados */
  22726. + + 
  22727. +   /* Any one of these symbols __need_* means that GNU libc
  22728. +      wants us just to define one data type.  So don't define
  22729. +      the symbols that indicate this file's entire job has been done.  */
  22730. + ***************
  22731. + *** 172,177 ****
  22732. + --- 212,219 ----
  22733. +   #ifndef __WCHAR_TYPE__
  22734. +   #define __WCHAR_TYPE__ int
  22735. +   #endif
  22736. + + 
  22737. + + #endif /* not amigados */
  22738. +   #ifdef __GNUG__
  22739. +   /* In C++, wchar_t is a distinct basic type,
  22740. +      and we can expect __wchar_t to be defined by cc1plus.  */
  22741. + diff -rc --new-file gcc-2.5.8-fsf/gvarargs.h gcc-2.5.8/gvarargs.h
  22742. + *** gcc-2.5.8-fsf/gvarargs.h    Sat Nov 13 08:33:41 1993
  22743. + --- gcc-2.5.8/gvarargs.h    Tue Feb 22 11:23:35 1994
  22744. + ***************
  22745. + *** 156,162 ****
  22746. +   /* The macro _VA_LIST_T_H is used in the Bull dpx2  */
  22747. +   #ifndef _VA_LIST_T_H
  22748. +   #define _VA_LIST_T_H
  22749. + ! #if !(defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__))
  22750. +   #define _VA_LIST_
  22751. +   #endif
  22752. +   #define _VA_LIST
  22753. + --- 156,162 ----
  22754. +   /* The macro _VA_LIST_T_H is used in the Bull dpx2  */
  22755. +   #ifndef _VA_LIST_T_H
  22756. +   #define _VA_LIST_T_H
  22757. + ! #if !(defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__amigados__))
  22758. +   #define _VA_LIST_
  22759. +   #endif
  22760. +   #define _VA_LIST
  22761. + ***************
  22762. + *** 172,176 ****
  22763. + --- 172,183 ----
  22764. +   #ifdef _BSD_VA_LIST
  22765. +   #undef _BSD_VA_LIST
  22766. +   #endif
  22767. + + 
  22768. + + #ifdef amigados
  22769. + + # ifndef _VA_LIST
  22770. + + #  define _VA_LIST
  22771. + +    typedef __gnuc_va_list va_list;
  22772. + + # endif
  22773. + + #endif /* amigados */
  22774. +   
  22775. +   #endif /* __GNUC__ */
  22776. + diff -rc --new-file gcc-2.5.8-fsf/install.texi gcc-2.5.8/install.texi
  22777. + *** gcc-2.5.8-fsf/install.texi    Wed Nov 24 20:09:49 1993
  22778. + --- gcc-2.5.8/install.texi    Tue Feb 22 11:27:48 1994
  22779. + ***************
  22780. + *** 599,618 ****
  22781. +   @end itemize
  22782. +   
  22783. +   @item
  22784. + ! The standard directory for installing GNU CC is @file{/usr/local/lib}.
  22785. +   If you want to install its files somewhere else, specify
  22786. +   @samp{--prefix=@var{dir}} when you run @file{configure}.  Here @var{dir}
  22787. + ! is a directory name to use instead of @file{/usr/local} for all purposes
  22788. + ! with one exception: the directory @file{/usr/local/include} is searched
  22789. +   for header files no matter where you install the compiler.
  22790. +   
  22791. +   @item
  22792. +   Specify @samp{--local-prefix=@var{dir}} if you want the compiler to
  22793. +   search directory @file{@var{dir}/include} for header files
  22794. + ! @emph{instead} of @file{/usr/local/include}.  (This is for systems that
  22795. +   have different conventions for where to put site-specific things.)
  22796. +   
  22797. + ! Unless you have a convention other than @file{/usr/local} for
  22798. +   site-specific files, it is a bad idea to specify @samp{--local-prefix}.
  22799. +   
  22800. +   @cindex Bison parser generator
  22801. + --- 599,618 ----
  22802. +   @end itemize
  22803. +   
  22804. +   @item
  22805. + ! The standard directory for installing GNU CC is @file{/gnu/lib}.
  22806. +   If you want to install its files somewhere else, specify
  22807. +   @samp{--prefix=@var{dir}} when you run @file{configure}.  Here @var{dir}
  22808. + ! is a directory name to use instead of @file{/gnu} for all purposes
  22809. + ! with one exception: the directory @file{/gnu/include} is searched
  22810. +   for header files no matter where you install the compiler.
  22811. +   
  22812. +   @item
  22813. +   Specify @samp{--local-prefix=@var{dir}} if you want the compiler to
  22814. +   search directory @file{@var{dir}/include} for header files
  22815. + ! @emph{instead} of @file{/gnu/include}.  (This is for systems that
  22816. +   have different conventions for where to put site-specific things.)
  22817. +   
  22818. + ! Unless you have a convention other than @file{/gnu} for
  22819. +   site-specific files, it is a bad idea to specify @samp{--local-prefix}.
  22820. +   
  22821. +   @cindex Bison parser generator
  22822. + ***************
  22823. + *** 673,679 ****
  22824. +   If you are building with a previous GNU C compiler, do not
  22825. +   use @samp{CC=gcc} on the make command or by editing the Makefile.
  22826. +   Instead, use a full pathname to specify the compiler, such as
  22827. + ! @samp{CC=/usr/local/bin/gcc}.  This is because make might execute
  22828. +   the @file{gcc} in the current directory before all of the
  22829. +   compiler components have been built.
  22830. +   
  22831. + --- 673,679 ----
  22832. +   If you are building with a previous GNU C compiler, do not
  22833. +   use @samp{CC=gcc} on the make command or by editing the Makefile.
  22834. +   Instead, use a full pathname to specify the compiler, such as
  22835. + ! @samp{CC=/gnu/bin/gcc}.  This is because make might execute
  22836. +   the @file{gcc} in the current directory before all of the
  22837. +   compiler components have been built.
  22838. +   
  22839. + ***************
  22840. + *** 827,840 ****
  22841. +   @noindent
  22842. +   This copies the files @file{cc1}, @file{cpp} and @file{libgcc.a} to
  22843. +   files @file{cc1}, @file{cpp} and @file{libgcc.a} in the directory
  22844. + ! @file{/usr/local/lib/gcc-lib/@var{target}/@var{version}}, which is where
  22845. +   the compiler driver program looks for them.  Here @var{target} is the
  22846. +   target machine type specified when you ran @file{configure}, and
  22847. +   @var{version} is the version number of GNU CC.  This naming scheme
  22848. +   permits various versions and/or cross-compilers to coexist.
  22849. +   
  22850. +   This also copies the driver program @file{xgcc} into
  22851. + ! @file{/usr/local/bin/gcc}, so that it appears in typical execution
  22852. +   search paths.
  22853. +   
  22854. +   On some systems, this command causes recompilation of some files.  This
  22855. + --- 827,840 ----
  22856. +   @noindent
  22857. +   This copies the files @file{cc1}, @file{cpp} and @file{libgcc.a} to
  22858. +   files @file{cc1}, @file{cpp} and @file{libgcc.a} in the directory
  22859. + ! @file{/gnu/lib/gcc-lib/@var{target}/@var{version}}, which is where
  22860. +   the compiler driver program looks for them.  Here @var{target} is the
  22861. +   target machine type specified when you ran @file{configure}, and
  22862. +   @var{version} is the version number of GNU CC.  This naming scheme
  22863. +   permits various versions and/or cross-compilers to coexist.
  22864. +   
  22865. +   This also copies the driver program @file{xgcc} into
  22866. + ! @file{/gnu/bin/gcc}, so that it appears in typical execution
  22867. +   search paths.
  22868. +   
  22869. +   On some systems, this command causes recompilation of some files.  This
  22870. + ***************
  22871. + *** 1021,1027 ****
  22872. +   
  22873. +   If you have a cross-assembler and cross-linker available, you should
  22874. +   install them now.  Put them in the directory
  22875. + ! @file{/usr/local/@var{target}/bin}.  Here is a table of the tools
  22876. +   you should put in this directory:
  22877. +   
  22878. +   @table @file
  22879. + --- 1021,1027 ----
  22880. +   
  22881. +   If you have a cross-assembler and cross-linker available, you should
  22882. +   install them now.  Put them in the directory
  22883. + ! @file{/gnu/@var{target}/bin}.  Here is a table of the tools
  22884. +   you should put in this directory:
  22885. +   
  22886. +   @table @file
  22887. + ***************
  22888. + *** 1052,1065 ****
  22889. +   
  22890. +   If you want to install libraries to use with the cross-compiler, such as
  22891. +   a standard C library, put them in the directory
  22892. + ! @file{/usr/local/@var{target}/lib}; installation of GNU CC copies all
  22893. +   all the files in that subdirectory into the proper place for GNU CC to
  22894. +   find them and link with them.  Here's an example of copying some
  22895. +   libraries from a target machine:
  22896. +   
  22897. +   @example
  22898. +   ftp @var{target-machine}
  22899. + ! lcd /usr/local/@var{target}/lib
  22900. +   cd /lib
  22901. +   get libc.a
  22902. +   cd /usr/lib
  22903. + --- 1052,1065 ----
  22904. +   
  22905. +   If you want to install libraries to use with the cross-compiler, such as
  22906. +   a standard C library, put them in the directory
  22907. + ! @file{/gnu/@var{target}/lib}; installation of GNU CC copies all
  22908. +   all the files in that subdirectory into the proper place for GNU CC to
  22909. +   find them and link with them.  Here's an example of copying some
  22910. +   libraries from a target machine:
  22911. +   
  22912. +   @example
  22913. +   ftp @var{target-machine}
  22914. + ! lcd /gnu/@var{target}/lib
  22915. +   cd /lib
  22916. +   get libc.a
  22917. +   cd /usr/lib
  22918. + ***************
  22919. + *** 1075,1081 ****
  22920. +   @cindex start files
  22921. +   Many targets require ``start files'' such as @file{crt0.o} and
  22922. +   @file{crtn.o} which are linked into each executable; these too should be
  22923. + ! placed in @file{/usr/local/@var{target}/lib}.  There may be several
  22924. +   alternatives for @file{crt0.o}, for use with profiling or other
  22925. +   compilation options.  Check your target's definition of
  22926. +   @code{STARTFILE_SPEC} to find out what start files it uses.
  22927. + --- 1075,1081 ----
  22928. +   @cindex start files
  22929. +   Many targets require ``start files'' such as @file{crt0.o} and
  22930. +   @file{crtn.o} which are linked into each executable; these too should be
  22931. + ! placed in @file{/gnu/@var{target}/lib}.  There may be several
  22932. +   alternatives for @file{crt0.o}, for use with profiling or other
  22933. +   compilation options.  Check your target's definition of
  22934. +   @code{STARTFILE_SPEC} to find out what start files it uses.
  22935. + ***************
  22936. + *** 1083,1089 ****
  22937. +   
  22938. +   @example
  22939. +   ftp @var{target-machine}
  22940. + ! lcd /usr/local/@var{target}/lib
  22941. +   prompt
  22942. +   cd /lib
  22943. +   mget *crt*.o
  22944. + --- 1083,1089 ----
  22945. +   
  22946. +   @example
  22947. +   ftp @var{target-machine}
  22948. + ! lcd /gnu/@var{target}/lib
  22949. +   prompt
  22950. +   cd /lib
  22951. +   mget *crt*.o
  22952. + ***************
  22953. + *** 1201,1207 ****
  22954. +   cross-compiling.
  22955. +   
  22956. +   When you have found suitable header files, put them in
  22957. + ! @file{/usr/local/@var{target}/include}, before building the cross
  22958. +   compiler.  Then installation will run fixincludes properly and install
  22959. +   the corrected versions of the header files where the compiler will use
  22960. +   them.
  22961. + --- 1201,1207 ----
  22962. +   cross-compiling.
  22963. +   
  22964. +   When you have found suitable header files, put them in
  22965. + ! @file{/gnu/@var{target}/include}, before building the cross
  22966. +   compiler.  Then installation will run fixincludes properly and install
  22967. +   the corrected versions of the header files where the compiler will use
  22968. +   them.
  22969. + ***************
  22970. + *** 1222,1228 ****
  22971. +   
  22972. +   @example
  22973. +   ftp @var{target-machine}
  22974. + ! lcd /usr/local/@var{target}/include
  22975. +   get tarfile
  22976. +   quit
  22977. +   tar xf tarfile
  22978. + --- 1222,1228 ----
  22979. +   
  22980. +   @example
  22981. +   ftp @var{target-machine}
  22982. + ! lcd /gnu/@var{target}/include
  22983. +   get tarfile
  22984. +   quit
  22985. +   tar xf tarfile
  22986. + ***************
  22987. + *** 1283,1289 ****
  22988. +   @samp{dist} subdirectory.  You would need to install GAS in the file
  22989. +   
  22990. +   @example
  22991. + ! /usr/local/lib/gcc-lib/@var{configuration}/@var{gccversion}/as
  22992. +   @end example
  22993. +   
  22994. +   @noindent
  22995. + --- 1283,1289 ----
  22996. +   @samp{dist} subdirectory.  You would need to install GAS in the file
  22997. +   
  22998. +   @example
  22999. + ! /gnu/lib/gcc-lib/@var{configuration}/@var{gccversion}/as
  23000. +   @end example
  23001. +   
  23002. +   @noindent
  23003. + ***************
  23004. + *** 1915,1922 ****
  23005. +   installs only target independent header files in that directory.
  23006. +   
  23007. +   @code{LOCAL_INCLUDE_DIR} is used only for a native compiler.  It is
  23008. + ! normally @file{/usr/local/include}.  GNU CC searches this directory so
  23009. + ! that users can install header files in @file{/usr/local/include}.
  23010. +   
  23011. +   @code{CROSS_INCLUDE_DIR} is used only for a cross compiler.  GNU CC
  23012. +   doesn't install anything there.
  23013. + --- 1915,1922 ----
  23014. +   installs only target independent header files in that directory.
  23015. +   
  23016. +   @code{LOCAL_INCLUDE_DIR} is used only for a native compiler.  It is
  23017. + ! normally @file{/gnu/include}.  GNU CC searches this directory so
  23018. + ! that users can install header files in @file{/gnu/include}.
  23019. +   
  23020. +   @code{CROSS_INCLUDE_DIR} is used only for a cross compiler.  GNU CC
  23021. +   doesn't install anything there.
  23022. + diff -rc --new-file gcc-2.5.8-fsf/invoke.texi gcc-2.5.8/invoke.texi
  23023. + *** gcc-2.5.8-fsf/invoke.texi    Thu Nov 11 13:32:01 1993
  23024. + --- gcc-2.5.8/invoke.texi    Tue Feb 22 11:27:55 1994
  23025. + ***************
  23026. + *** 2079,2085 ****
  23027. +   For each subprogram to be run, the compiler driver first tries the
  23028. +   @samp{-B} prefix, if any.  If that name is not found, or if @samp{-B}
  23029. +   was not specified, the driver tries two standard prefixes, which are
  23030. + ! @file{/usr/lib/gcc/} and @file{/usr/local/lib/gcc-lib/}.  If neither of
  23031. +   those results in a file name that is found, the unmodified program
  23032. +   name is searched for using the directories specified in your
  23033. +   @samp{PATH} environment variable.
  23034. + --- 2079,2085 ----
  23035. +   For each subprogram to be run, the compiler driver first tries the
  23036. +   @samp{-B} prefix, if any.  If that name is not found, or if @samp{-B}
  23037. +   was not specified, the driver tries two standard prefixes, which are
  23038. + ! @file{/usr/lib/gcc/} and @file{/gnu/lib/gcc-lib/}.  If neither of
  23039. +   those results in a file name that is found, the unmodified program
  23040. +   name is searched for using the directories specified in your
  23041. +   @samp{PATH} environment variable.
  23042. + ***************
  23043. + *** 2145,2155 ****
  23044. +   The @samp{-b} and @samp{-V} options actually work by controlling part of
  23045. +   the file name used for the executable files and libraries used for
  23046. +   compilation.  A given version of GNU CC, for a given target machine, is
  23047. + ! normally kept in the directory @file{/usr/local/lib/gcc-lib/@var{machine}/@var{version}}.@refill
  23048. +   
  23049. +   Thus, sites can customize the effect of @samp{-b} or @samp{-V} either by
  23050. +   changing the names of these directories or adding alternate names (or
  23051. + ! symbolic links).  If in directory @file{/usr/local/lib/gcc-lib/} the
  23052. +   file @file{80386} is a link to the file @file{i386v}, then @samp{-b
  23053. +   80386} becomes an alias for @samp{-b i386v}.
  23054. +   
  23055. + --- 2145,2155 ----
  23056. +   The @samp{-b} and @samp{-V} options actually work by controlling part of
  23057. +   the file name used for the executable files and libraries used for
  23058. +   compilation.  A given version of GNU CC, for a given target machine, is
  23059. + ! normally kept in the directory @file{/gnu/lib/gcc-lib/@var{machine}/@var{version}}.@refill
  23060. +   
  23061. +   Thus, sites can customize the effect of @samp{-b} or @samp{-V} either by
  23062. +   changing the names of these directories or adding alternate names (or
  23063. + ! symbolic links).  If in directory @file{/gnu/lib/gcc-lib/} the
  23064. +   file @file{80386} is a link to the file @file{i386v}, then @samp{-b
  23065. +   80386} becomes an alias for @samp{-b i386v}.
  23066. +   
  23067. + ***************
  23068. + *** 3526,3536 ****
  23069. +   
  23070. +   In addition, the prefix is used in an unusual way in finding the
  23071. +   directories to search for header files.  For each of the standard
  23072. + ! directories whose name normally begins with @samp{/usr/local/lib/gcc-lib}
  23073. +   (more precisely, with the value of @code{GCC_INCLUDE_DIR}), GNU CC tries
  23074. +   replacing that beginning with the specified prefix to produce an
  23075. +   alternate directory name.  Thus, with @samp{-Bfoo/}, GNU CC will search
  23076. + ! @file{foo/bar} where it would normally search @file{/usr/local/lib/bar}.
  23077. +   These alternate directories are searched first; the standard directories
  23078. +   come next.
  23079. +   
  23080. + --- 3526,3536 ----
  23081. +   
  23082. +   In addition, the prefix is used in an unusual way in finding the
  23083. +   directories to search for header files.  For each of the standard
  23084. + ! directories whose name normally begins with @samp{/gnu/lib/gcc-lib}
  23085. +   (more precisely, with the value of @code{GCC_INCLUDE_DIR}), GNU CC tries
  23086. +   replacing that beginning with the specified prefix to produce an
  23087. +   alternate directory name.  Thus, with @samp{-Bfoo/}, GNU CC will search
  23088. + ! @file{foo/bar} where it would normally search @file{/gnu/lib/bar}.
  23089. +   These alternate directories are searched first; the standard directories
  23090. +   come next.
  23091. +   
  23092. + ***************
  23093. + *** 3641,3647 ****
  23094. +   @table @code
  23095. +   @item -B @var{directory}
  23096. +   Look for the file @file{SYSCALLS.c.X} in @var{directory}, instead of the
  23097. + ! usual directory (normally @file{/usr/local/lib}).  This file contains
  23098. +   prototype information about standard system functions.  This option
  23099. +   applies only to @code{protoize}.
  23100. +   
  23101. + --- 3641,3647 ----
  23102. +   @table @code
  23103. +   @item -B @var{directory}
  23104. +   Look for the file @file{SYSCALLS.c.X} in @var{directory}, instead of the
  23105. + ! usual directory (normally @file{/gnu/lib}).  This file contains
  23106. +   prototype information about standard system functions.  This option
  23107. +   applies only to @code{protoize}.
  23108. +   
  23109. + diff -rc --new-file gcc-2.5.8-fsf/machmode.h gcc-2.5.8/machmode.h
  23110. + *** gcc-2.5.8-fsf/machmode.h    Mon Jun 28 01:18:48 1993
  23111. + --- gcc-2.5.8/machmode.h    Tue Feb 22 11:23:39 1994
  23112. + ***************
  23113. + *** 92,98 ****
  23114. +   
  23115. +   /* Get the name of mode MODE as a string.  */
  23116. +   
  23117. + ! extern char *mode_name[];
  23118. +   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  23119. +   
  23120. +   enum mode_class { MODE_RANDOM, MODE_INT, MODE_FLOAT, MODE_PARTIAL_INT, MODE_CC,
  23121. + --- 92,98 ----
  23122. +   
  23123. +   /* Get the name of mode MODE as a string.  */
  23124. +   
  23125. + ! extern char * const mode_name[];
  23126. +   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  23127. +   
  23128. +   enum mode_class { MODE_RANDOM, MODE_INT, MODE_FLOAT, MODE_PARTIAL_INT, MODE_CC,
  23129. + ***************
  23130. + *** 101,107 ****
  23131. +   /* Get the general kind of object that mode MODE represents
  23132. +      (integer, floating, complex, etc.)  */
  23133. +   
  23134. + ! extern enum mode_class mode_class[];
  23135. +   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  23136. +   
  23137. +   /* Nonzero if MODE is an integral mode.  */
  23138. + --- 101,107 ----
  23139. +   /* Get the general kind of object that mode MODE represents
  23140. +      (integer, floating, complex, etc.)  */
  23141. +   
  23142. + ! extern const enum mode_class mode_class[];
  23143. +   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  23144. +   
  23145. +   /* Nonzero if MODE is an integral mode.  */
  23146. + ***************
  23147. + *** 117,128 ****
  23148. +   
  23149. +   /* Get the size in bytes of an object of mode MODE.  */
  23150. +   
  23151. + ! extern int mode_size[];
  23152. +   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  23153. +   
  23154. +   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  23155. +   
  23156. + ! extern int mode_unit_size[];
  23157. +   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  23158. +   
  23159. +   /* Get the number of units in the object.  */
  23160. + --- 117,128 ----
  23161. +   
  23162. +   /* Get the size in bytes of an object of mode MODE.  */
  23163. +   
  23164. + ! extern const int mode_size[];
  23165. +   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  23166. +   
  23167. +   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  23168. +   
  23169. + ! extern const int mode_unit_size[];
  23170. +   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  23171. +   
  23172. +   /* Get the number of units in the object.  */
  23173. + ***************
  23174. + *** 144,150 ****
  23175. +   
  23176. +   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  23177. +   
  23178. + ! extern enum machine_mode mode_wider_mode[];
  23179. +   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  23180. +   
  23181. +   /* Return the mode for data of a given size SIZE and mode class CLASS.
  23182. + --- 144,150 ----
  23183. +   
  23184. +   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  23185. +   
  23186. + ! extern const enum machine_mode mode_wider_mode[];
  23187. +   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  23188. +   
  23189. +   /* Return the mode for data of a given size SIZE and mode class CLASS.
  23190. + diff -rc --new-file gcc-2.5.8-fsf/objc-parse.c gcc-2.5.8/objc-parse.c
  23191. + *** gcc-2.5.8-fsf/objc-parse.c    Sat Nov 27 11:34:19 1993
  23192. + --- gcc-2.5.8/objc-parse.c    Tue Feb 22 11:23:46 1994
  23193. + ***************
  23194. + *** 1529,1535 ****
  23195. +       53
  23196. +   };
  23197. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  23198. + ! #line 3 "/usr/local/lib/bison.simple"
  23199. +   
  23200. +   /* Skeleton output parser for bison,
  23201. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  23202. + --- 1529,1535 ----
  23203. +       53
  23204. +   };
  23205. +   /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  23206. + ! #line 3 "/usr/lib/bison.simple"
  23207. +   
  23208. +   /* Skeleton output parser for bison,
  23209. +      Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  23210. + ***************
  23211. + *** 1710,1733 ****
  23212. +   #endif
  23213. +   #endif
  23214. +   
  23215. + ! #line 184 "/usr/local/lib/bison.simple"
  23216. + ! 
  23217. + ! /* The user can define YYPARSE_PARAM as the name of an argument to be passed
  23218. + !    into yyparse.  The argument should have type void *.
  23219. + !    It should actually point to an object.
  23220. + !    Grammar actions can access the variable by casting it
  23221. + !    to the proper pointer type.  */
  23222. + ! 
  23223. + ! #ifdef YYPARSE_PARAM
  23224. + ! #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
  23225. + ! #else
  23226. + ! #define YYPARSE_PARAM
  23227. + ! #define YYPARSE_PARAM_DECL
  23228. + ! #endif
  23229. + ! 
  23230. +   int
  23231. + ! yyparse(YYPARSE_PARAM)
  23232. + !      YYPARSE_PARAM_DECL
  23233. +   {
  23234. +     register int yystate;
  23235. +     register int yyn;
  23236. + --- 1710,1718 ----
  23237. +   #endif
  23238. +   #endif
  23239. +   
  23240. + ! #line 184 "/usr/lib/bison.simple"
  23241. +   int
  23242. + ! yyparse()
  23243. +   {
  23244. +     register int yystate;
  23245. +     register int yyn;
  23246. + ***************
  23247. + *** 4516,4522 ****
  23248. +       break;}
  23249. +   }
  23250. +      /* the action file gets copied in in place of this dollarsign */
  23251. + ! #line 480 "/usr/local/lib/bison.simple"
  23252. +   
  23253. +     yyvsp -= yylen;
  23254. +     yyssp -= yylen;
  23255. + --- 4501,4507 ----
  23256. +       break;}
  23257. +   }
  23258. +      /* the action file gets copied in in place of this dollarsign */
  23259. + ! #line 465 "/usr/lib/bison.simple"
  23260. +   
  23261. +     yyvsp -= yylen;
  23262. +     yyssp -= yylen;
  23263. + diff -rc --new-file gcc-2.5.8-fsf/print-tree.c gcc-2.5.8/print-tree.c
  23264. + *** gcc-2.5.8-fsf/print-tree.c    Wed Oct 27 05:55:26 1993
  23265. + --- gcc-2.5.8/print-tree.c    Tue Feb 22 11:23:51 1994
  23266. + ***************
  23267. + *** 24,30 ****
  23268. +   
  23269. +   extern char **tree_code_name;
  23270. +   
  23271. + ! extern char *mode_name[];
  23272. +   
  23273. +   void print_node ();
  23274. +   void indent_to ();
  23275. + --- 24,30 ----
  23276. +   
  23277. +   extern char **tree_code_name;
  23278. +   
  23279. + ! extern char *const mode_name[];
  23280. +   
  23281. +   void print_node ();
  23282. +   void indent_to ();
  23283. + diff -rc --new-file gcc-2.5.8-fsf/protoize.c gcc-2.5.8/protoize.c
  23284. + *** gcc-2.5.8-fsf/protoize.c    Wed Nov 24 19:31:26 1993
  23285. + --- gcc-2.5.8/protoize.c    Tue Feb 22 11:28:02 1994
  23286. + ***************
  23287. + *** 202,208 ****
  23288. +   /* Define a default place to find the SYSCALLS.X file.  */
  23289. +   
  23290. +   #ifndef STD_PROTO_DIR
  23291. + ! #define STD_PROTO_DIR "/usr/local/lib"
  23292. +   #endif /* !defined (STD_PROTO_DIR) */
  23293. +   
  23294. +   /* Suffix of aux_info files.  */
  23295. + --- 202,208 ----
  23296. +   /* Define a default place to find the SYSCALLS.X file.  */
  23297. +   
  23298. +   #ifndef STD_PROTO_DIR
  23299. + ! #define STD_PROTO_DIR "/gnu/lib"
  23300. +   #endif /* !defined (STD_PROTO_DIR) */
  23301. +   
  23302. +   /* Suffix of aux_info files.  */
  23303. + ***************
  23304. + *** 266,276 ****
  23305. +      just as it is done in cccp.c.  */
  23306. +   
  23307. +   #ifndef STANDARD_INCLUDE_DIR
  23308. + ! #define STANDARD_INCLUDE_DIR "/usr/include"
  23309. +   #endif
  23310. +   
  23311. +   #ifndef LOCAL_INCLUDE_DIR
  23312. + ! #define LOCAL_INCLUDE_DIR "/usr/local/include"
  23313. +   #endif
  23314. +   
  23315. +   struct default_include { const char *fname; int cplusplus; } include_defaults[]
  23316. + --- 266,276 ----
  23317. +      just as it is done in cccp.c.  */
  23318. +   
  23319. +   #ifndef STANDARD_INCLUDE_DIR
  23320. + ! #define STANDARD_INCLUDE_DIR "/gnu/include"
  23321. +   #endif
  23322. +   
  23323. +   #ifndef LOCAL_INCLUDE_DIR
  23324. + ! #define LOCAL_INCLUDE_DIR "/local/include"
  23325. +   #endif
  23326. +   
  23327. +   struct default_include { const char *fname; int cplusplus; } include_defaults[]
  23328. + ***************
  23329. + *** 839,846 ****
  23330. + --- 839,851 ----
  23331. +   {
  23332. +     struct default_include *p;
  23333. +   
  23334. + + #ifdef FILE_NAME_ABSOLUTE_P
  23335. + +   if (! FILE_NAME_ABSOLUTE_P (path))
  23336. + +     abort ();
  23337. + + #else
  23338. +     if (path[0] != '/')
  23339. +       abort ();        /* Must be an absolutized filename.  */
  23340. + + #endif
  23341. +   
  23342. +     for (p = include_defaults; p->fname; p++)
  23343. +       if (!strncmp (path, p->fname, strlen (p->fname))
  23344. + ***************
  23345. + *** 1267,1273 ****
  23346. + --- 1272,1282 ----
  23347. +     {
  23348. +       const char *src_p;
  23349. +   
  23350. + + #ifdef FILE_NAME_ABSOLUTE_P
  23351. + +     if (! FILE_NAME_ABSOLUTE_P (rel_filename))
  23352. + + #else
  23353. +       if (rel_filename[0] != '/')
  23354. + + #endif
  23355. +         {
  23356. +           src_p = cwd2;
  23357. +           while (*endp++ = *src_p++)
  23358. + ***************
  23359. + *** 1530,1535 ****
  23360. + --- 1539,1563 ----
  23361. +     return ++q;
  23362. +   }
  23363. +   
  23364. + + /* Use this macro to advance a char * over the filename part in a line
  23365. + +    read from an aux-info file. */
  23366. + + 
  23367. + + #ifndef amigados
  23368. + + /* Version for file systems where the colon has no special meaning */
  23369. + + #define ADVANCE_PAST_FILENAME(CP) \
  23370. + +   while (* (CP) != ':') (CP)++
  23371. + + #else
  23372. + + /* Have to heuristically decide whether the colon is part of the filename
  23373. + +    or whether it serves to delimit the filename from the line number. If
  23374. + +    it's the latter case, then the character following the colon *must*
  23375. + +    be a digit. Note that this heuristic fails if the filename starts
  23376. + +    with a digit. */
  23377. + + #define ADVANCE_PAST_FILENAME(CP) \
  23378. + +     while ((CP)[0] != ':' || !isdigit ((CP)[1])) \
  23379. + +       (CP)++;
  23380. + + #endif
  23381. + + 
  23382. + + 
  23383. +   /* Given a line from  an aux info file, and a time at which the aux info
  23384. +      file it came from was created, check to see if the item described in
  23385. +      the line comes from a file which has been modified since the aux info
  23386. + ***************
  23387. + *** 1551,1558 ****
  23388. +     {
  23389. +       const char *filename_start = p = l + 3;
  23390. +   
  23391. + !     while (*p != ':')
  23392. + !       p++;
  23393. +       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  23394. +       strncpy (filename, filename_start, (size_t) (p - filename_start));
  23395. +       filename[p-filename_start] = '\0';
  23396. + --- 1579,1585 ----
  23397. +     {
  23398. +       const char *filename_start = p = l + 3;
  23399. +   
  23400. + !     ADVANCE_PAST_FILENAME (p);
  23401. +       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  23402. +       strncpy (filename, filename_start, (size_t) (p - filename_start));
  23403. +       filename[p-filename_start] = '\0';
  23404. + ***************
  23405. + *** 1609,1616 ****
  23406. +       const char *filename_start = p = l + 3;
  23407. +       char *filename;
  23408. +   
  23409. + !     while (*p != ':')
  23410. + !       p++;
  23411. +       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  23412. +       strncpy (filename, filename_start, (size_t) (p - filename_start));
  23413. +       filename[p-filename_start] = '\0';
  23414. + --- 1636,1642 ----
  23415. +       const char *filename_start = p = l + 3;
  23416. +       char *filename;
  23417. +   
  23418. + !     ADVANCE_PAST_FILENAME (p);
  23419. +       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  23420. +       strncpy (filename, filename_start, (size_t) (p - filename_start));
  23421. +       filename[p-filename_start] = '\0';
  23422. + ***************
  23423. + *** 2330,2336 ****
  23424. +     {
  23425. +       char *p = aux_info_base;
  23426. +   
  23427. + !     while (*p != ':')
  23428. +         p++;
  23429. +       p++;
  23430. +       while (*p == ' ')
  23431. + --- 2356,2364 ----
  23432. +     {
  23433. +       char *p = aux_info_base;
  23434. +   
  23435. + !     /* have to make sure at least one space is following the colon to make
  23436. + !        sure the colon is not part of the filename */
  23437. + !     while (*p != ':' && p[1] != ' ')
  23438. +         p++;
  23439. +       p++;
  23440. +       while (*p == ' ')
  23441. + ***************
  23442. + *** 2344,2350 ****
  23443. +         continue;
  23444. +       aux_info_second_line = p;
  23445. +       aux_info_relocated_name = 0;
  23446. + !     if (invocation_filename[0] != '/')
  23447. +         {
  23448. +       /* INVOCATION_FILENAME is relative;
  23449. +          append it to BASE_SOURCE_FILENAME's dir.  */
  23450. + --- 2372,2382 ----
  23451. +         continue;
  23452. +       aux_info_second_line = p;
  23453. +       aux_info_relocated_name = 0;
  23454. + ! #ifdef FILE_NAME_ABSOLUTE_P
  23455. + !     if (! FILE_NAME_ABSOLUTE_P (invocation_filename))
  23456. + ! #else
  23457. + !       if (invocation_filename[0] != '/')
  23458. + ! #endif
  23459. +         {
  23460. +       /* INVOCATION_FILENAME is relative;
  23461. +          append it to BASE_SOURCE_FILENAME's dir.  */
  23462. + ***************
  23463. + *** 2432,2438 ****
  23464. +   #ifndef UNPROTOIZE
  23465. +   
  23466. +   /* Check an individual filename for a .c suffix.  If the filename has this
  23467. + !    suffix, rename the file such that its suffix is changed to .C.  This
  23468. +      function implements the -C option.  */
  23469. +   
  23470. +   static void
  23471. + --- 2464,2470 ----
  23472. +   #ifndef UNPROTOIZE
  23473. +   
  23474. +   /* Check an individual filename for a .c suffix.  If the filename has this
  23475. + !    suffix, rename the file such that its suffix is changed to .cc.  This
  23476. +      function implements the -C option.  */
  23477. +   
  23478. +   static void
  23479. + ***************
  23480. + *** 2441,2447 ****
  23481. +   {
  23482. +     const char *filename = hp->symbol;
  23483. +     int last_char_index = strlen (filename) - 1;
  23484. + !   char *const new_filename = (char *) alloca (strlen (filename) + 1);
  23485. +   
  23486. +     /* Note that we don't care here if the given file was converted or not.  It
  23487. +        is possible that the given file was *not* converted, simply because there
  23488. + --- 2473,2479 ----
  23489. +   {
  23490. +     const char *filename = hp->symbol;
  23491. +     int last_char_index = strlen (filename) - 1;
  23492. + !   char *const new_filename = (char *) alloca (strlen (filename) + 2);
  23493. +   
  23494. +     /* Note that we don't care here if the given file was converted or not.  It
  23495. +        is possible that the given file was *not* converted, simply because there
  23496. + ***************
  23497. + *** 2453,2460 ****
  23498. +       return;
  23499. +   
  23500. +     strcpy (new_filename, filename);
  23501. + !   new_filename[last_char_index] = 'C';
  23502. +   
  23503. +     if (my_link (filename, new_filename) == -1)
  23504. +       {
  23505. +         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  23506. + --- 2485,2509 ----
  23507. +       return;
  23508. +   
  23509. +     strcpy (new_filename, filename);
  23510. + !   strcat (new_filename + last_char_index, "cc");
  23511. + !   
  23512. + !   /* use rename(2) if available !! Update config files to include HAVE_rename
  23513. + !      if the used OS provides it. Advantages are: it's atomic, it's one
  23514. + !      system call compared to two. */
  23515. +   
  23516. + + #ifdef HAVE_rename
  23517. + +   /* if the mentioned systems (POSIX 1003.1-1988) have rename(2), this has
  23518. + +      to be changed to `my_rename' as well. */
  23519. + + 
  23520. + +   if (rename (filename, new_filename) == -1)
  23521. + +     {
  23522. + +       fprintf (stderr, "%s: warning: can't rename file `%s' to `%s': %s\n",
  23523. + +            pname, shortpath (NULL, filename),
  23524. + +            shortpath (NULL, new_filename), sys_errlist[errno]);
  23525. + +       errors++;
  23526. + +       return;
  23527. + +     }
  23528. + + #else
  23529. +     if (my_link (filename, new_filename) == -1)
  23530. +       {
  23531. +         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  23532. + ***************
  23533. + *** 2471,2476 ****
  23534. + --- 2520,2526 ----
  23535. +         errors++;
  23536. +         return;
  23537. +       }
  23538. + + #endif
  23539. +   }
  23540. +   
  23541. +   #endif /* !defined (UNPROTOIZE) */
  23542. + diff -rc --new-file gcc-2.5.8-fsf/real.c gcc-2.5.8/real.c
  23543. + *** gcc-2.5.8-fsf/real.c    Wed Oct 13 19:46:38 1993
  23544. + --- gcc-2.5.8/real.c    Tue Feb 22 11:24:04 1994
  23545. + ***************
  23546. + *** 4333,4341 ****
  23547. +     if (y[NE - 1] == 0x7fff)
  23548. +       {
  23549. +         if (sign)
  23550. + !     sprintf (wstring, " -Infinity ");
  23551. +         else
  23552. + !     sprintf (wstring, " Infinity ");
  23553. +         goto bxit;
  23554. +       }
  23555. +   
  23556. + --- 4333,4341 ----
  23557. +     if (y[NE - 1] == 0x7fff)
  23558. +       {
  23559. +         if (sign)
  23560. + !     sprintf (wstring, " -NaN ");
  23561. +         else
  23562. + !     sprintf (wstring, " NaN ");
  23563. +         goto bxit;
  23564. +       }
  23565. +   
  23566. + diff -rc --new-file gcc-2.5.8-fsf/rtl.c gcc-2.5.8/rtl.c
  23567. + *** gcc-2.5.8-fsf/rtl.c    Thu Oct  7 21:05:00 1993
  23568. + --- gcc-2.5.8/rtl.c    Tue Feb 22 11:24:10 1994
  23569. + ***************
  23570. + *** 50,56 ****
  23571. +   
  23572. +   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  23573. +   
  23574. + ! char *rtx_name[] = {
  23575. +   #include "rtl.def"        /* rtl expressions are documented here */
  23576. +   };
  23577. +   
  23578. + --- 50,56 ----
  23579. +   
  23580. +   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  23581. +   
  23582. + ! char * const rtx_name[] = {
  23583. +   #include "rtl.def"        /* rtl expressions are documented here */
  23584. +   };
  23585. +   
  23586. + ***************
  23587. + *** 61,67 ****
  23588. +   
  23589. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  23590. +   
  23591. + ! char *mode_name[(int) MAX_MACHINE_MODE] = {
  23592. +   #include "machmode.def"
  23593. +   
  23594. +   #ifdef EXTRA_CC_MODES
  23595. + --- 61,67 ----
  23596. +   
  23597. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  23598. +   
  23599. + ! char * const mode_name[(int) MAX_MACHINE_MODE] = {
  23600. +   #include "machmode.def"
  23601. +   
  23602. +   #ifdef EXTRA_CC_MODES
  23603. + ***************
  23604. + *** 77,83 ****
  23605. +   
  23606. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  23607. +   
  23608. + ! enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  23609. +   #include "machmode.def"
  23610. +   };
  23611. +   
  23612. + --- 77,83 ----
  23613. +   
  23614. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  23615. +   
  23616. + ! const enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  23617. +   #include "machmode.def"
  23618. +   };
  23619. +   
  23620. + ***************
  23621. + *** 88,94 ****
  23622. +   
  23623. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  23624. +   
  23625. + ! int mode_size[(int) MAX_MACHINE_MODE] = {
  23626. +   #include "machmode.def"
  23627. +   };
  23628. +   
  23629. + --- 88,94 ----
  23630. +   
  23631. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  23632. +   
  23633. + ! const int mode_size[(int) MAX_MACHINE_MODE] = {
  23634. +   #include "machmode.def"
  23635. +   };
  23636. +   
  23637. + ***************
  23638. + *** 99,105 ****
  23639. +   
  23640. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  23641. +   
  23642. + ! int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  23643. +   #include "machmode.def"        /* machine modes are documented here */
  23644. +   };
  23645. +   
  23646. + --- 99,105 ----
  23647. +   
  23648. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  23649. +   
  23650. + ! const int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  23651. +   #include "machmode.def"        /* machine modes are documented here */
  23652. +   };
  23653. +   
  23654. + ***************
  23655. + *** 112,118 ****
  23656. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  \
  23657. +     (enum machine_mode) WIDER,
  23658. +   
  23659. + ! enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  23660. +   #include "machmode.def"        /* machine modes are documented here */
  23661. +   };
  23662. +   
  23663. + --- 112,118 ----
  23664. +   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  \
  23665. +     (enum machine_mode) WIDER,
  23666. +   
  23667. + ! const enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  23668. +   #include "machmode.def"        /* machine modes are documented here */
  23669. +   };
  23670. +   
  23671. + ***************
  23672. + *** 126,132 ****
  23673. +      rtx's of that code.  The sequence is a C string in which
  23674. +      each character describes one operand.  */
  23675. +   
  23676. + ! char *rtx_format[] = {
  23677. +     /* "*" undefined.
  23678. +            can cause a warning message
  23679. +        "0" field is unused (or used in a phase-dependent manner)
  23680. + --- 126,132 ----
  23681. +      rtx's of that code.  The sequence is a C string in which
  23682. +      each character describes one operand.  */
  23683. +   
  23684. + ! char *const rtx_format[] = {
  23685. +     /* "*" undefined.
  23686. +            can cause a warning message
  23687. +        "0" field is unused (or used in a phase-dependent manner)
  23688. + ***************
  23689. + *** 157,163 ****
  23690. +   /* Indexed by rtx code, gives a character representing the "class" of
  23691. +      that rtx code.  See rtl.def for documentation on the defined classes.  */
  23692. +   
  23693. + ! char rtx_class[] = {
  23694. +   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  23695. +   #include "rtl.def"        /* rtl expressions are defined here */
  23696. +   #undef DEF_RTL_EXPR
  23697. + --- 157,163 ----
  23698. +   /* Indexed by rtx code, gives a character representing the "class" of
  23699. +      that rtx code.  See rtl.def for documentation on the defined classes.  */
  23700. +   
  23701. + ! const char rtx_class[] = {
  23702. +   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  23703. +   #include "rtl.def"        /* rtl expressions are defined here */
  23704. +   #undef DEF_RTL_EXPR
  23705. + ***************
  23706. + *** 165,171 ****
  23707. +   
  23708. +   /* Names for kinds of NOTEs and REG_NOTEs.  */
  23709. +   
  23710. + ! char *note_insn_name[] = { 0                    , "NOTE_INSN_DELETED",
  23711. +                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  23712. +                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  23713. +                  "NOTE_INSN_FUNCTION_END", "NOTE_INSN_SETJMP",
  23714. + --- 165,171 ----
  23715. +   
  23716. +   /* Names for kinds of NOTEs and REG_NOTEs.  */
  23717. +   
  23718. + ! char * const note_insn_name[] = { 0                    , "NOTE_INSN_DELETED",
  23719. +                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  23720. +                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  23721. +                  "NOTE_INSN_FUNCTION_END", "NOTE_INSN_SETJMP",
  23722. + ***************
  23723. + *** 173,179 ****
  23724. +                  "NOTE_INSN_PROLOGUE_END", "NOTE_INSN_EPILOGUE_BEG",
  23725. +                  "NOTE_INSN_DELETED_LABEL", "NOTE_INSN_FUNCTION_BEG"};
  23726. +   
  23727. + ! char *reg_note_name[] = { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  23728. +                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  23729. +                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  23730. +                 "REG_CC_SETTER", "REG_CC_USER", "REG_LABEL",
  23731. + --- 173,180 ----
  23732. +                  "NOTE_INSN_PROLOGUE_END", "NOTE_INSN_EPILOGUE_BEG",
  23733. +                  "NOTE_INSN_DELETED_LABEL", "NOTE_INSN_FUNCTION_BEG"};
  23734. +   
  23735. + ! char * const reg_note_name[] =
  23736. + !              { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  23737. +                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  23738. +                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  23739. +                 "REG_CC_SETTER", "REG_CC_USER", "REG_LABEL",
  23740. + diff -rc --new-file gcc-2.5.8-fsf/rtl.h gcc-2.5.8/rtl.h
  23741. + *** gcc-2.5.8-fsf/rtl.h    Wed Sep 29 22:34:24 1993
  23742. + --- gcc-2.5.8/rtl.h    Tue Feb 22 11:24:14 1994
  23743. + ***************
  23744. + *** 44,56 ****
  23745. +   extern int rtx_length[];
  23746. +   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  23747. +   
  23748. + ! extern char *rtx_name[];
  23749. +   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  23750. +   
  23751. + ! extern char *rtx_format[];
  23752. +   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  23753. +   
  23754. + ! extern char rtx_class[];
  23755. +   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  23756. +   
  23757. +   /* Common union for an element of an rtx.  */
  23758. + --- 44,56 ----
  23759. +   extern int rtx_length[];
  23760. +   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  23761. +   
  23762. + ! extern char * const rtx_name[];
  23763. +   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  23764. +   
  23765. + ! extern char * const rtx_format[];
  23766. +   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  23767. +   
  23768. + ! extern const char rtx_class[];
  23769. +   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  23770. +   
  23771. +   /* Common union for an element of an rtx.  */
  23772. + ***************
  23773. + *** 331,337 ****
  23774. +   
  23775. +   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  23776. +   
  23777. + ! extern char *reg_note_name[];
  23778. +   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  23779. +   
  23780. +   /* The label-number of a code-label.  The assembler label
  23781. + --- 331,337 ----
  23782. +   
  23783. +   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  23784. +   
  23785. + ! extern char *const reg_note_name[];
  23786. +   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  23787. +   
  23788. +   /* The label-number of a code-label.  The assembler label
  23789. + ***************
  23790. + *** 408,414 ****
  23791. +   
  23792. +   /* Names for NOTE insn's other than line numbers.  */
  23793. +   
  23794. + ! extern char *note_insn_name[];
  23795. +   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  23796. +   
  23797. +   /* The name of a label, in case it corresponds to an explicit label
  23798. + --- 408,414 ----
  23799. +   
  23800. +   /* Names for NOTE insn's other than line numbers.  */
  23801. +   
  23802. + ! extern char *const note_insn_name[];
  23803. +   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  23804. +   
  23805. +   /* The name of a label, in case it corresponds to an explicit label
  23806. + diff -rc --new-file gcc-2.5.8-fsf/scan-types.sh gcc-2.5.8/scan-types.sh
  23807. + *** gcc-2.5.8-fsf/scan-types.sh    Tue Oct 26 23:01:02 1993
  23808. + --- gcc-2.5.8/scan-types.sh    Tue Feb 22 11:24:18 1994
  23809. + ***************
  23810. + *** 1,4 ****
  23811. + ! #! /bin/sh
  23812. +   # Deduce values of standard ANSI and POSIX types (e.g. size_t, pid_t).
  23813. +   # Emits macros definitions for these, and some other types.
  23814. +   # Intended to be used to massage the sys-protos.h file.
  23815. + --- 1,4 ----
  23816. + ! #!/bin/sh
  23817. +   # Deduce values of standard ANSI and POSIX types (e.g. size_t, pid_t).
  23818. +   # Emits macros definitions for these, and some other types.
  23819. +   # Intended to be used to massage the sys-protos.h file.
  23820. + diff -rc --new-file gcc-2.5.8-fsf/tm.texi gcc-2.5.8/tm.texi
  23821. + *** gcc-2.5.8-fsf/tm.texi    Thu Nov 11 13:45:26 1993
  23822. + --- gcc-2.5.8/tm.texi    Tue Feb 22 11:28:11 1994
  23823. + ***************
  23824. + *** 205,211 ****
  23825. +   @findex STANDARD_EXEC_PREFIX
  23826. +   @item STANDARD_EXEC_PREFIX
  23827. +   Define this macro as a C string constant if you wish to override the
  23828. + ! standard choice of @file{/usr/local/lib/gcc-lib/} as the default prefix to
  23829. +   try when searching for the executable files of the compiler.
  23830. +   
  23831. +   @findex MD_EXEC_PREFIX
  23832. + --- 205,211 ----
  23833. +   @findex STANDARD_EXEC_PREFIX
  23834. +   @item STANDARD_EXEC_PREFIX
  23835. +   Define this macro as a C string constant if you wish to override the
  23836. + ! standard choice of @file{/gnu/lib/gcc-lib/} as the default prefix to
  23837. +   try when searching for the executable files of the compiler.
  23838. +   
  23839. +   @findex MD_EXEC_PREFIX
  23840. + ***************
  23841. + *** 218,224 ****
  23842. +   @findex STANDARD_STARTFILE_PREFIX
  23843. +   @item STANDARD_STARTFILE_PREFIX
  23844. +   Define this macro as a C string constant if you wish to override the
  23845. + ! standard choice of @file{/usr/local/lib/} as the default prefix to
  23846. +   try when searching for startup files such as @file{crt0.o}.
  23847. +   
  23848. +   @findex MD_STARTFILE_PREFIX
  23849. + --- 218,224 ----
  23850. +   @findex STANDARD_STARTFILE_PREFIX
  23851. +   @item STANDARD_STARTFILE_PREFIX
  23852. +   Define this macro as a C string constant if you wish to override the
  23853. + ! standard choice of @file{/gnu/lib/} as the default prefix to
  23854. +   try when searching for startup files such as @file{crt0.o}.
  23855. +   
  23856. +   @findex MD_STARTFILE_PREFIX
  23857. + ***************
  23858. + *** 237,248 ****
  23859. +   @findex LOCAL_INCLUDE_DIR
  23860. +   @item LOCAL_INCLUDE_DIR
  23861. +   Define this macro as a C string constant if you wish to override the
  23862. + ! standard choice of @file{/usr/local/include} as the default prefix to
  23863. +   try when searching for local header files.  @code{LOCAL_INCLUDE_DIR}
  23864. +   comes before @code{SYSTEM_INCLUDE_DIR} in the search order.
  23865. +   
  23866. +   Cross compilers do not use this macro and do not search either
  23867. + ! @file{/usr/local/include} or its replacement.
  23868. +   
  23869. +   @findex SYSTEM_INCLUDE_DIR
  23870. +   @item SYSTEM_INCLUDE_DIR
  23871. + --- 237,248 ----
  23872. +   @findex LOCAL_INCLUDE_DIR
  23873. +   @item LOCAL_INCLUDE_DIR
  23874. +   Define this macro as a C string constant if you wish to override the
  23875. + ! standard choice of @file{/gnu/include} as the default prefix to
  23876. +   try when searching for local header files.  @code{LOCAL_INCLUDE_DIR}
  23877. +   comes before @code{SYSTEM_INCLUDE_DIR} in the search order.
  23878. +   
  23879. +   Cross compilers do not use this macro and do not search either
  23880. + ! @file{/gnu/include} or its replacement.
  23881. +   
  23882. +   @findex SYSTEM_INCLUDE_DIR
  23883. +   @item SYSTEM_INCLUDE_DIR
  23884. + diff -rc --new-file gcc-2.5.8-fsf/toplev.c gcc-2.5.8/toplev.c
  23885. + *** gcc-2.5.8-fsf/toplev.c    Sat Dec 11 00:59:54 1993
  23886. + --- gcc-2.5.8/toplev.c    Tue Feb 22 11:24:24 1994
  23887. + ***************
  23888. + *** 504,509 ****
  23889. + --- 504,510 ----
  23890. +     {"unroll-all-loops", &flag_unroll_all_loops, 1},
  23891. +     {"writable-strings", &flag_writable_strings, 1},
  23892. +     {"peephole", &flag_no_peephole, 0},
  23893. + +   {"large-baserel", &flag_pic, 4},
  23894. +     {"force-mem", &flag_force_mem, 1},
  23895. +     {"force-addr", &flag_force_addr, 1},
  23896. +     {"function-cse", &flag_no_function_cse, 0},
  23897. + ***************
  23898. + *** 522,527 ****
  23899. + --- 523,529 ----
  23900. +     {"schedule-insns2", &flag_schedule_insns_after_reload, 1},
  23901. +     {"pic", &flag_pic, 1},
  23902. +     {"PIC", &flag_pic, 2},
  23903. + +   {"baserel", &flag_pic, 3},
  23904. +     {"fast-math", &flag_fast_math, 1},
  23905. +     {"common", &flag_no_common, 0},
  23906. +     {"inhibit-size-directive", &flag_inhibit_size_directive, 1},
  23907. + ***************
  23908. + *** 1530,1535 ****
  23909. + --- 1532,1540 ----
  23910. +        FILE *asm_file;
  23911. +        char *input_name;
  23912. +   {
  23913. + + #ifdef FILE_NAME_NONDIRECTORY
  23914. + +   char *na = FILE_NAME_NONDIRECTORY (input_name);
  23915. + + #else
  23916. +     int len = strlen (input_name);
  23917. +     char *na = input_name + len;
  23918. +   
  23919. + ***************
  23920. + *** 1540,1545 ****
  23921. + --- 1545,1551 ----
  23922. +       break;
  23923. +         na--;
  23924. +       }
  23925. + + #endif
  23926. +   
  23927. +   #ifdef ASM_OUTPUT_MAIN_SOURCE_FILENAME
  23928. +     ASM_OUTPUT_MAIN_SOURCE_FILENAME (asm_file, na);
  23929. + ***************
  23930. + *** 3507,3512 ****
  23931. + --- 3513,3519 ----
  23932. +   
  23933. +   #ifndef OS2
  23934. +   #ifndef VMS
  23935. + + #ifndef amigados
  23936. +     if (flag_print_mem)
  23937. +       {
  23938. +         char *lim = (char *) sbrk (0);
  23939. + ***************
  23940. + *** 3521,3526 ****
  23941. + --- 3528,3534 ----
  23942. +         system ("ps v");
  23943. +   #endif /* not USG */
  23944. +       }
  23945. + + #endif /* not amigados */
  23946. +   #endif /* not VMS */
  23947. +   #endif /* not OS2 */
  23948. +   
  23949. + diff -rc --new-file gcc-2.5.8-fsf/tree.c gcc-2.5.8/tree.c
  23950. + *** gcc-2.5.8-fsf/tree.c    Tue Jan  4 12:36:01 1994
  23951. + --- gcc-2.5.8/tree.c    Tue Feb 22 11:24:31 1994
  23952. + ***************
  23953. + *** 248,254 ****
  23954. +   /* Unique id for next type created.  */
  23955. +   static int next_type_uid = 1;
  23956. +   
  23957. + ! extern char *mode_name[];
  23958. +   
  23959. +   void gcc_obstack_init ();
  23960. +   static tree stabilize_reference_1 ();
  23961. + --- 248,254 ----
  23962. +   /* Unique id for next type created.  */
  23963. +   static int next_type_uid = 1;
  23964. +   
  23965. + ! extern char *const mode_name[];
  23966. +   
  23967. +   void gcc_obstack_init ();
  23968. +   static tree stabilize_reference_1 ();
  23969. diff -rc --new-file /src/baseline/gnat-1.80/amiga/gcc-gnat.diffs gnat-1.80/amiga/gcc-gnat.diffs
  23970. *** /src/baseline/gnat-1.80/amiga/gcc-gnat.diffs    Thu Jan  1 00:00:00 1970
  23971. --- gnat-1.80/amiga/gcc-gnat.diffs    Wed Jul  6 14:44:54 1994
  23972. ***************
  23973. *** 0 ****
  23974. --- 1,2092 ----
  23975. + diff -rc gcc-2.5.8/Makefile.in gcc-2.5.8-ada/Makefile.in
  23976. + *** gcc-2.5.8/Makefile.in    Tue Feb 22 11:26:49 1994
  23977. + --- gcc-2.5.8-ada/Makefile.in    Wed Jul  6 08:41:43 1994
  23978. + ***************
  23979. + *** 29,41 ****
  23980. +   # See below for how to change them for certain systems.
  23981. +   
  23982. +   # Selection of languages to be made.
  23983. + ! LANGUAGES = c c++ objective-c proto
  23984. +   
  23985. +   ALLOCA =
  23986. +   ALLOCA_FLAGS =
  23987. +   ALLOCA_FINISH = true
  23988. +   
  23989. + ! # Various ways of specifying flags for compilations:  
  23990. +   # CFLAGS is for the user to override to, e.g., do a bootstrap with -O2.
  23991. +   # BOOT_CFLAGS is the value of CFLAGS to pass
  23992. +   # to the stage2 and stage3 compilations
  23993. + --- 29,41 ----
  23994. +   # See below for how to change them for certain systems.
  23995. +   
  23996. +   # Selection of languages to be made.
  23997. + ! LANGUAGES = c c++ objective-c ada proto
  23998. +   
  23999. +   ALLOCA =
  24000. +   ALLOCA_FLAGS =
  24001. +   ALLOCA_FINISH = true
  24002. +   
  24003. + ! # Various ways of specifying flags for compilations:
  24004. +   # CFLAGS is for the user to override to, e.g., do a bootstrap with -O2.
  24005. +   # BOOT_CFLAGS is the value of CFLAGS to pass
  24006. +   # to the stage2 and stage3 compilations
  24007. + ***************
  24008. + *** 70,76 ****
  24009. +   TEXI2DVI = texi2dvi
  24010. +   
  24011. +   # Define this as & to perform parallel make on a Sequent.
  24012. + ! # Note that this has some bugs, and it seems currently necessary 
  24013. +   # to compile all the gen* files first by hand to avoid erroneous results.
  24014. +   P =
  24015. +   
  24016. + --- 70,76 ----
  24017. +   TEXI2DVI = texi2dvi
  24018. +   
  24019. +   # Define this as & to perform parallel make on a Sequent.
  24020. + ! # Note that this has some bugs, and it seems currently necessary
  24021. +   # to compile all the gen* files first by hand to avoid erroneous results.
  24022. +   P =
  24023. +   
  24024. + ***************
  24025. + *** 133,139 ****
  24026. +   # PREMADE_ATTRTAB is the file name of the file to use.
  24027. +   # PREMADE_ATTRTAB_MD is the md file it corresponds to.
  24028. +   PREMADE_ATTRTAB_MD = Makefile  # Guaranteed not to cmp equal to md.
  24029. + ! PREMADE_ATTRTAB = 
  24030. +   
  24031. +   target= ... `configure' substitutes actual target name here.
  24032. +   xmake_file= ... `configure' substitutes actual x- file name here.
  24033. + --- 133,139 ----
  24034. +   # PREMADE_ATTRTAB is the file name of the file to use.
  24035. +   # PREMADE_ATTRTAB_MD is the md file it corresponds to.
  24036. +   PREMADE_ATTRTAB_MD = Makefile  # Guaranteed not to cmp equal to md.
  24037. + ! PREMADE_ATTRTAB =
  24038. +   
  24039. +   target= ... `configure' substitutes actual target name here.
  24040. +   xmake_file= ... `configure' substitutes actual x- file name here.
  24041. + ***************
  24042. + *** 230,243 ****
  24043. +   EXTRA_PASSES =
  24044. +   
  24045. +   # Like EXTRA_PASSES, but these are used when linking.
  24046. + ! EXTRA_PROGRAMS = 
  24047. +   
  24048. +   # List of extra object files that should be compiled for this target machine.
  24049. +   # The rules for compiling them should be in the t-* file for the machine.
  24050. +   EXTRA_PARTS =
  24051. +   
  24052. +   # List of extra object files that should be compiled and linked with
  24053. + ! # compiler proper (cc1, cc1obj, cc1plus).
  24054. +   EXTRA_OBJS =
  24055. +   
  24056. +   # List of additional header files to install.
  24057. + --- 230,243 ----
  24058. +   EXTRA_PASSES =
  24059. +   
  24060. +   # Like EXTRA_PASSES, but these are used when linking.
  24061. + ! EXTRA_PROGRAMS =
  24062. +   
  24063. +   # List of extra object files that should be compiled for this target machine.
  24064. +   # The rules for compiling them should be in the t-* file for the machine.
  24065. +   EXTRA_PARTS =
  24066. +   
  24067. +   # List of extra object files that should be compiled and linked with
  24068. + ! # compiler proper (cc1, cc1obj, cc1plus, gnat1).
  24069. +   EXTRA_OBJS =
  24070. +   
  24071. +   # List of additional header files to install.
  24072. + ***************
  24073. + *** 251,267 ****
  24074. +   
  24075. +   # List of extra C and assembler files to add to libgcc1.a.
  24076. +   # Assembler files should have names ending in `.asm'.
  24077. + ! LIB1FUNCS_EXTRA = 
  24078. +   
  24079. +   # List of extra C and assembler files to add to libgcc2.a.
  24080. +   # Assembler files should have names ending in `.asm'.
  24081. + ! LIB2FUNCS_EXTRA = 
  24082. +   
  24083. +   # Default float.h source to use for cross-compiler.
  24084. +   CROSS_FLOAT_H=float.h-cross
  24085. +   
  24086. +   # Program to convert libraries.
  24087. + ! LIBCONVERT = 
  24088. +   
  24089. +   # Control whether header files are installed.
  24090. +   INSTALL_HEADERS=install-headers
  24091. + --- 251,267 ----
  24092. +   
  24093. +   # List of extra C and assembler files to add to libgcc1.a.
  24094. +   # Assembler files should have names ending in `.asm'.
  24095. + ! LIB1FUNCS_EXTRA =
  24096. +   
  24097. +   # List of extra C and assembler files to add to libgcc2.a.
  24098. +   # Assembler files should have names ending in `.asm'.
  24099. + ! LIB2FUNCS_EXTRA =
  24100. +   
  24101. +   # Default float.h source to use for cross-compiler.
  24102. +   CROSS_FLOAT_H=float.h-cross
  24103. +   
  24104. +   # Program to convert libraries.
  24105. + ! LIBCONVERT =
  24106. +   
  24107. +   # Control whether header files are installed.
  24108. +   INSTALL_HEADERS=install-headers
  24109. + ***************
  24110. + *** 276,282 ****
  24111. +   # Additional directories of header files to run fixincludes on.
  24112. +   # These should be directories searched automatically by default
  24113. +   # just as /usr/include is.
  24114. + ! # *Do not* use this for directories that happen to contain 
  24115. +   # header files, but are not searched automatically by default.
  24116. +   # On most systems, this is empty.
  24117. +   OTHER_FIXINCLUDES_DIRS=
  24118. + --- 276,282 ----
  24119. +   # Additional directories of header files to run fixincludes on.
  24120. +   # These should be directories searched automatically by default
  24121. +   # just as /usr/include is.
  24122. + ! # *Do not* use this for directories that happen to contain
  24123. +   # header files, but are not searched automatically by default.
  24124. +   # On most systems, this is empty.
  24125. +   OTHER_FIXINCLUDES_DIRS=
  24126. + ***************
  24127. + *** 301,307 ****
  24128. +   HOST_PREFIX=
  24129. +   # Prefix to apply to names of object files when compiling them
  24130. +   # to run on the machine we are compiling on.
  24131. + ! # The default for this variable is chosen to keep these rules 
  24132. +   # out of the way of the other rules for compiling the same source files.
  24133. +   HOST_PREFIX_1=loser-
  24134. +   HOST_CC=$(CC)
  24135. + --- 301,307 ----
  24136. +   HOST_PREFIX=
  24137. +   # Prefix to apply to names of object files when compiling them
  24138. +   # to run on the machine we are compiling on.
  24139. + ! # The default for this variable is chosen to keep these rules
  24140. +   # out of the way of the other rules for compiling the same source files.
  24141. +   HOST_PREFIX_1=loser-
  24142. +   HOST_CC=$(CC)
  24143. + ***************
  24144. + *** 399,405 ****
  24145. +   # Lists of files for various purposes.
  24146. +   
  24147. +   # A list of all the language-specific executables.
  24148. + ! COMPILERS = cc1 cc1plus cc1obj
  24149. +   
  24150. +   # Language-specific object files for C.
  24151. +   C_OBJS = c-parse.o c-lang.o c-lex.o c-pragma.o \
  24152. + --- 399,405 ----
  24153. +   # Lists of files for various purposes.
  24154. +   
  24155. +   # A list of all the language-specific executables.
  24156. + ! COMPILERS = cc1 cc1plus cc1obj gnat1
  24157. +   
  24158. +   # Language-specific object files for C.
  24159. +   C_OBJS = c-parse.o c-lang.o c-lex.o c-pragma.o \
  24160. + ***************
  24161. + *** 417,422 ****
  24162. + --- 417,714 ----
  24163. +      cp-expr.o cp-pt.o cp-edsel.o cp-xref.o \
  24164. +      $(CPLUS_INPUT) cp-spew.o c-common.o cp-error.o cp-errfn.o
  24165. +   
  24166. + + # Languages-specific object files for Ada.
  24167. + + # Object files for gnat1 from C sources.
  24168. + + GNAT1_C_OBJS = b_gnat1.o a-adaint.o a-gettty.o a-gtran3.o a-misc.o a-trans3.o \
  24169. + +  a-trans4.o a-trans.o a-uintp.o a-urealp.o
  24170. + + 
  24171. + + # Object files from Ada sources that are used by gnat1 and gnatf
  24172. + + GNAT_ADA_OBJS = alloc.o atree.o casing.o comperr.o csets.o debug.o \
  24173. + +  debug_a.o einfo.o elists.o errout.o excep.o expand.o \
  24174. + +  exp_attr.o exp_ch2.o exp_ch3.o \
  24175. + +  exp_ch4.o exp_ch5.o exp_ch6.o exp_ch7.o exp_ch8.o exp_ch9.o exp_ch10.o \
  24176. + +  exp_ch11.o exp_ch12.o exp_ch13.o exp_intr.o exp_prag.o exp_util.o \
  24177. + +  fix_util.o fname.o frontend.o \
  24178. + +  get_targ.o gnatvsn.o itypes.o krunch.o lib.o limits.o namet.o nlists.o \
  24179. + +  nmake.o  opt.o osint.o output.o par.o rtsfind.o scans.o scn.o \
  24180. + +  sdefault.o sem.o sem_aggr.o sem_attr.o sem_ch3.o sem_ch4.o \
  24181. + +  sem_ch5.o sem_ch6.o sem_ch7.o sem_ch8.o sem_ch9.o sem_ch10.o sem_ch11.o \
  24182. + +  sem_ch12.o sem_ch13.o sem_disp.o sem_eval.o sem_intr.o sem_prag.o \
  24183. + +  sem_res.o sem_type.o \
  24184. + +  sem_util.o sinfo.o sinfo-cn.o sinput.o snames.o sprint.o stand.o \
  24185. + +  stringt.o style.o switch.o system.o s-assert.o  s-secsta.o \
  24186. + +  s-stalib.o s-stoele.o s-strcon.o s-strequ.o s-strops.o s-tasoli.o s-taspda.o \
  24187. + +  s-enviro.o tbuild.o treepr.o treeprs.o ttypes.o ttypef.o types.o \
  24188. + +  uintp.o urealp.o uname.o unixlib.o usage.o widechar.o
  24189. + + 
  24190. + + # Object files for gnat executables
  24191. + + GNATF_OBJS =  $(GNAT_ADA_OBJS) gnatfdrv.o xref.o xref_tab.o a-adaint.o \
  24192. + +  a-gettty.o a-deftarg.o
  24193. + + GNAT1_ADA_OBJS = $(GNAT_ADA_OBJS) back_end.o gnat1drv.o
  24194. + + GNAT1_OBJS = $(GNAT1_C_OBJS) $(GNAT1_ADA_OBJS)
  24195. + + GNATBIND_OBJS = gnatbind.o ali.o alloc.o bcheck.o binde.o binderr.o bindgen.o \
  24196. + +   bindusg.o butil.o debug.o excep.o gnatvsn.o limits.o namet.o \
  24197. + +   opt.o osint.o output.o sdefault.o switch.o system.o \
  24198. + +   s-assert.o s-strequ.o s-strops.o s-tasoli.o s-taspda.o s-secsta.o \
  24199. + +   s-stalib.o s-stoele.o s-enviro.o types.o unixlib.o widechar.o a-adaint.o
  24200. + + 
  24201. + + # ??? should this include all the s-*.o files explicitly?
  24202. + + GNATK8_OBJS = ada.o a-ioexce.o a-teioau.o a-textio.o gnatk8.o krunch.o \
  24203. + +   system.o s-enviro.o s-stoele.o s-secsta.o s-taspda.o s-tasoli.o \
  24204. + +   s-stalib.o $(LIBGNAT_OBJS)
  24205. + + 
  24206. + + # The runtime library for gnat comprises two directories.  One contains the
  24207. + + # Ada source files that the compiler (gnat1) needs -- these files are listed
  24208. + + # by ADA_INCLUDE_SRCS -- and the other contains the object files and their
  24209. + + # corresponding .ali files for the parts written in Ada, libgnat.a for
  24210. + + # the parts of the runtime written in C, and libpthreads.a for the pthreads
  24211. + + # emulation library.  LIBGNAT_OBJS lists the objects that go into libgnat.a,
  24212. + + # while GNAT_RTL_OBJS lists the object files compiled from Ada sources that
  24213. + + # go into the directory.  The pthreads emulation is built in the threads
  24214. + + # subdirectory and copied.
  24215. + + LIBGNAT_SRCS = io-aux.c a-cio.c get_errno.c
  24216. + + 
  24217. + + LIBGNAT_OBJS = io-aux.o a-cio.o get_errno.o
  24218. + + 
  24219. + + # NOTE ??? - when the -I option for compiling Ada code is made to work,
  24220. + + #  the library installation will change and there will be a
  24221. + + #  GNAT_RTL_SRCS.  Right now we count on being able to build GNAT_RTL_OBJS
  24222. + + #  from ADA_INCLUDE_SRCS.
  24223. + + GNAT_RTL_OBJS = ada.o \
  24224. + + a-calend.o \
  24225. + + a-calcon.o \
  24226. + + a-chlat1.o a-cwila1.o a-finali.o \
  24227. + + a-charac.o \
  24228. + + a-ioexce.o \
  24229. + + a-numeri.o \
  24230. + + a-numaux.o \
  24231. + + a-nlelfu.o \
  24232. + + a-nllefu.o \
  24233. + + a-nselfu.o \
  24234. + + a-nuelfu.o a-nuranu.o \
  24235. + + a-reatim.o \
  24236. + + a-retico.o \
  24237. + + a-retide.o \
  24238. + + a-string.o a-strmap.o a-strbou.o a-strcon.o\
  24239. + + a-strfix.o a-strsea.o a-tags.o \
  24240. + + a-taside.o \
  24241. + + a-textio.o \
  24242. + + a-teioau.o calendar.o interfac.o ioexcept.o \
  24243. + + i-c.o \
  24244. + + i-cstrin.o \
  24245. + + system.o \
  24246. + + s-addima.o \
  24247. + + s-pooglo.o \
  24248. + + s-poosiz.o \
  24249. + + s-pooemp.o \
  24250. + + s-pooloc.o \
  24251. + + s-stopoo.o \
  24252. + + s-assert.o \
  24253. + + s-enviro.o \
  24254. + + s-errrep.o \
  24255. + + s-cconst.o \
  24256. + + s-comexc.o \
  24257. + + s-comopt.o \
  24258. + + s-finimp.o \
  24259. + + s-norstr.o \
  24260. + + s-poscon.o \
  24261. + + s-poserr.o \
  24262. + + s-posrte.o \
  24263. + + s-postim.o \
  24264. + + s-pthrea.o \
  24265. + + s-img_b.o \
  24266. + + s-img_c.o s-img_i.o s-imglli.o \
  24267. + + s-img_f.o s-img_lf.o s-imgllf.o s-img_sf.o \
  24268. + + s-img_wc.o \
  24269. + + s-secsta.o \
  24270. + + s-stalib.o \
  24271. + + s-std.o s-stoele.o \
  24272. + + s-strcon.o s-strequ.o \
  24273. + + s-strops.o \
  24274. + + s-taprob.o \
  24275. + + s-tasabo.o \
  24276. + + s-tasoli.o \
  24277. + + s-tasclo.o \
  24278. + + s-taskin.o \
  24279. + + s-tasmem.o \
  24280. + + s-taspda.o \
  24281. + + s-taspri.o \
  24282. + + s-tasque.o \
  24283. + + s-tasren.o \
  24284. + + s-tassta.o \
  24285. + + s-tastal.o \
  24286. + + s-tasuti.o \
  24287. + + s-tatise.o \
  24288. + + s-tcmasp.o \
  24289. + + s-timtyp.o \
  24290. + + s-unstyp.o \
  24291. + + s-xn.o \
  24292. + + s-xn_f.o \
  24293. + + s-xn_i.o \
  24294. + + s-xn_lf.o \
  24295. + + s-xn_li.o \
  24296. + + s-xn_llf.o \
  24297. + + s-xn_lli.o \
  24298. + + s-xn_sf.o \
  24299. + + s-xn_si.o \
  24300. + + s-xn_ssi.o \
  24301. + + s-xp.o \
  24302. + + s-xp_bml.o \
  24303. + + s-xp_bmi.o \
  24304. + + s-xp_f.o s-xp_i.o \
  24305. + + s-xp_lf.o s-xp_li.o s-xp_llf.o s-xp_lli.o \
  24306. + + s-xp_nbm.o \
  24307. + + s-xp_sf.o s-xp_si.o s-xp_ssi.o \
  24308. + + s-valenu.o \
  24309. + + s-valueb.o \
  24310. + + s-valuec.o \
  24311. + + text_io.o \
  24312. + + io.o a-cio.o get_errno.o \
  24313. + + s-retico.o \
  24314. + + s-retide.o
  24315. + + 
  24316. + + ADA_INCLUDE_SRCS = ada.ads \
  24317. + +   a-astaco.ads \
  24318. + +   a-calend.ads a-calend.adb \
  24319. + +   a-calcon.ads a-calcon.adb \
  24320. + +   a-caldel.adb \
  24321. + +   a-charac.ads a-charac.adb \
  24322. + +   a-chlat1.ads a-cwila1.ads \
  24323. + +   a-decima.ads \
  24324. + +   a-direio.ads a-direio.adb \
  24325. + +   a-dynpri.ads \
  24326. + +   a-except.ads a-finali.ads a-finali.adb \
  24327. + +   a-interr.ads \
  24328. + +   a-intnam.ads \
  24329. + +   a-ioexce.ads \
  24330. + +   a-numeri.ads \
  24331. + +   a-numaux.ads \
  24332. + +   a-nuelfu.ads \
  24333. + +   a-ngelfu.ads \
  24334. + +   a-ngelfu.adb \
  24335. + +   a-ngcoty.ads \
  24336. + +   a-ngcoty.adb \
  24337. + +   a-ngcefu.ads \
  24338. + +   a-ngcefu.adb \
  24339. + +   a-nlelfu.ads \
  24340. + +   a-nllefu.ads \
  24341. + +   a-nuranu.ads \
  24342. + +   a-nuranu.adb \
  24343. + +   a-nselfu.ads \
  24344. + +   a-reatim.ads a-reatim.adb \
  24345. + +   a-retico.ads a-retico.adb \
  24346. + +   a-retide.ads a-retide.adb \
  24347. + +   a-sequio.ads a-sequio.adb\
  24348. + +   a-string.ads \
  24349. + +   a-strcon.ads \
  24350. + +   a-strbou.ads a-strbou.adb \
  24351. + +   a-strfix.ads a-strfix.adb \
  24352. + +   a-strsea.ads a-strsea.adb \
  24353. + +   a-strmap.ads a-strmap.adb \
  24354. + +   a-stwibo.ads a-stwibo.adb \
  24355. + +   a-stwico.ads \
  24356. + +   a-stwifi.ads a-stwifi.adb \
  24357. + +   a-stwima.ads a-stwima.adb \
  24358. + +   a-stwise.ads a-stwise.adb \
  24359. + +   a-stwiun.ads a-stwiun.adb \
  24360. + +   a-strunb.ads a-strunb.adb \
  24361. + +   a-storio.ads a-storio.adb \
  24362. + +   a-stream.ads a-ststio.ads \
  24363. + +   a-tags.adb a-tags.ads \
  24364. + +   a-sytaco.ads \
  24365. + +   a-tasatt.ads a-tasatt.adb \
  24366. + +   a-taside.ads a-taside.adb \
  24367. + +   a-textio.ads a-textio.adb \
  24368. + +   a-teioau.ads a-teioau.adb \
  24369. + +   a-ticoio.ads a-ticoio.adb \
  24370. + +   a-teiopi.ads \
  24371. + +   a-unccon.ads a-unccon.adb \
  24372. + +   a-uncdea.ads a-uncdea.adb \
  24373. + +   a-witeio.ads \
  24374. + +   a-wticio.ads a-wticio.adb \
  24375. + +   a-wtiopi.ads \
  24376. + +   calendar.ads \
  24377. + +   directio.ads \
  24378. + +   interfac.ads \
  24379. + +   i-c.ads i-c.adb \
  24380. + +   i-cpoint.ads \
  24381. + +   i-cstrin.ads i-cstrin.adb\
  24382. + +   i-cobol.ads i-fortra.ads \
  24383. + +   ioexcept.ads \
  24384. + +   sequenio.ads \
  24385. + +   s-assert.ads \
  24386. + +   s-addima.ads s-addima.adb \
  24387. + +   s-errrep.ads s-errrep.adb \
  24388. + +   s-cconst.ads \
  24389. + +   s-comexc.ads s-comexc.adb \
  24390. + +   s-comopt.ads \
  24391. + +   s-enviro.ads s-enviro.adb \
  24392. + +   s-finimp.ads s-finimp.adb \
  24393. + +   s-img_b.adb s-img_b.ads \
  24394. + +   s-img_c.adb s-img_c.ads s-img_f.ads s-img_f.adb \
  24395. + +   s-img_i.ads s-img_i.adb s-img_lf.adb s-img_lf.ads \
  24396. + +   s-imgllf.adb s-imgllf.ads s-imglli.adb s-imglli.ads \
  24397. + +   s-img_sf.adb s-img_sf.ads s-img_wc.ads s-img_wc.adb \
  24398. + +   s-norstr.ads s-norstr.adb \
  24399. + +   s-pooglo.ads s-pooglo.adb \
  24400. + +   s-poosiz.ads s-poosiz.adb \
  24401. + +   s-pooemp.ads s-pooemp.adb \
  24402. + +   s-pooloc.ads s-pooloc.adb \
  24403. + +   s-stopoo.ads\
  24404. + +   s-poscon.ads \
  24405. + +   s-poserr.ads \
  24406. + +   s-posrte.ads s-posrte.adb \
  24407. + +   s-postim.ads s-postim.adb \
  24408. + +   s-pthrea.ads s-pthrea.adb \
  24409. + +   s-secsta.ads s-secsta.adb \
  24410. + +   s-stalib.ads \
  24411. + +   s-std.ads s-std.adb \
  24412. + +   s-stoele.ads s-stoele.adb \
  24413. + +   s-strcon.adb s-strcon.ads \
  24414. + +   s-strequ.adb s-strequ.ads \
  24415. + +   s-strops.adb s-strops.ads \
  24416. + +   s-taprob.adb s-taprob.ads \
  24417. + +   s-tasabo.adb s-tasabo.ads \
  24418. + +   s-tasoli.adb s-tasoli.ads \
  24419. + +   s-taspda.adb s-taspda.ads \
  24420. + +   s-tasclo.adb s-tasclo.ads \
  24421. + +   s-taskin.adb s-taskin.ads \
  24422. + +   s-tasmem.adb s-tasmem.ads \
  24423. + +   s-taspri.adb s-taspri.ads \
  24424. + +   s-tasque.adb s-tasque.ads \
  24425. + +   s-tasren.adb s-tasren.ads \
  24426. + +   s-tassta.adb s-tassta.ads \
  24427. + +   s-tastal.adb s-tastal.ads \
  24428. + +   s-tasuti.ads s-tasuti.adb \
  24429. + +   s-tatise.adb s-tatise.ads \
  24430. + +   s-tcmasp.adb s-tcmasp.ads \
  24431. + +   s-timtyp.ads \
  24432. + +   system.ads \
  24433. + +   s-xn.ads s-xn.adb \
  24434. + +   s-xn_i.ads s-xn_llf.ads s-xn_si.ads \
  24435. + +   s-xn_lf.ads s-xn_lli.ads s-xn_ssi.ads \
  24436. + +   s-xn_f.ads s-xn_li.ads  s-xn_sf.ads \
  24437. + +   s-xp.adb s-xp.ads \
  24438. + +   s-xp_bml.ads s-xp_bml.adb \
  24439. + +   s-xp_bmi.ads s-xp_bmi.adb \
  24440. + +   s-xp_f.ads s-xp_i.ads s-xp_lf.ads s-xp_li.ads \
  24441. + +   s-xp_llf.ads s-xp_lli.ads \
  24442. + +   s-xp_nbm.adb s-xp_nbm.ads \
  24443. + +   s-xp_sf.ads s-xp_si.ads \
  24444. + +   s-xp_ssi.ads \
  24445. + +   s-unstyp.ads \
  24446. + +   s-valenu.ads s-valenu.adb \
  24447. + +   s-valueb.ads s-valueb.adb \
  24448. + +   s-valuec.ads s-valuec.adb \
  24449. + +   text_io.ads \
  24450. + +   unchconv.adb unchconv.ads \
  24451. + +   unchdeal.adb unchdeal.ads \
  24452. + +   io.ads io.adb \
  24453. + +   s-reatim.ads s-reatim.adb \
  24454. + +   s-retico.ads s-retico.adb \
  24455. + +   s-retide.ads s-retide.adb \
  24456. + +   s-taruty.ads s-taruty.adb
  24457. + + 
  24458. +   # Files specific to the C interpreter bytecode compiler(s).
  24459. +   BC_OBJS = bc-emit.o bc-optab.o
  24460. +   
  24461. + ***************
  24462. + *** 449,455 ****
  24463. +    stamp-bcarity stamp-bcopcode stamp-bcopname \
  24464. +    bi-arity bi-opcode bi-opname \
  24465. +    $(GCC_PASSES) $(EXTRA_PARTS) $(EXTRA_PROGRAMS) gcc-cross cccp g++ g++-cross \
  24466. + !  cc1plus cc1obj enquire protoize unprotoize specs collect2 $(USE_COLLECT2)
  24467. +   
  24468. +   # Members of libgcc1.a.
  24469. +   LIB1FUNCS = _mulsi3 _udivsi3 _divsi3 _umodsi3 _modsi3 \
  24470. + --- 741,748 ----
  24471. +    stamp-bcarity stamp-bcopcode stamp-bcopname \
  24472. +    bi-arity bi-opcode bi-opname \
  24473. +    $(GCC_PASSES) $(EXTRA_PARTS) $(EXTRA_PROGRAMS) gcc-cross cccp g++ g++-cross \
  24474. + !  cc1plus cc1obj enquire protoize unprotoize specs collect2 $(USE_COLLECT2) \
  24475. + !  gnat1 gnatbind gnatbl gnatf gnatk8 gnatchop *.ali
  24476. +   
  24477. +   # Members of libgcc1.a.
  24478. +   LIB1FUNCS = _mulsi3 _udivsi3 _divsi3 _umodsi3 _modsi3 \
  24479. + ***************
  24480. + *** 491,503 ****
  24481. +   # Avoid a lot of time thinking about remaking Makefile.in and *.def.
  24482. +   .SUFFIXES: .in .def
  24483. +   
  24484. +   Makefile: $(srcdir)/Makefile.in $(srcdir)/configure $(srcdir)/version.c \
  24485. +      $(srcdir)/config/$(xmake_file) $(srcdir)/config/$(tmake_file)
  24486. +       sh config.status
  24487. +   
  24488. +   all.internal: start.encap rest.encap
  24489. +   # This is what to compile if making a cross-compiler.
  24490. + ! # Note that we can compile enquire using the cross-compiler just build,
  24491. +   # although we can't run it on this machine.
  24492. +   all.cross: native gcc-cross g++-cross specs $(LIBGCC) stmp-headers $(STMP_FIXPROTO) $(CROSS_TEST) $(ENQUIRE) $(EXTRA_PARTS)
  24493. +   # This is what to compile if making gcc with a cross-compiler.
  24494. + --- 784,812 ----
  24495. +   # Avoid a lot of time thinking about remaking Makefile.in and *.def.
  24496. +   .SUFFIXES: .in .def
  24497. +   
  24498. + + # Say how to compile Ada programs.
  24499. + + .SUFFIXES: .ada .adb .ads
  24500. + + 
  24501. + + ADA_CC=$(CC)
  24502. + + ADAFLAGS= -gnatg -gnata
  24503. + + BOOT_ADAFLAGS= $(ADAFLAGS)
  24504. + + ALL_ADAFLAGS= $(CFLAGS) $(ADAFLAGS)
  24505. + + GNATBIND= gnatbind
  24506. + + 
  24507. + + .ada.o:
  24508. + +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  24509. + + .adb.o:
  24510. + +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  24511. + + .ads.o:
  24512. + +     $(ADA_CC) -c $(ALL_ADAFLAGS) $<
  24513. + + 
  24514. +   Makefile: $(srcdir)/Makefile.in $(srcdir)/configure $(srcdir)/version.c \
  24515. +      $(srcdir)/config/$(xmake_file) $(srcdir)/config/$(tmake_file)
  24516. +       sh config.status
  24517. +   
  24518. +   all.internal: start.encap rest.encap
  24519. +   # This is what to compile if making a cross-compiler.
  24520. + ! # Note that we can compile enquire using the cross-compiler just built,
  24521. +   # although we can't run it on this machine.
  24522. +   all.cross: native gcc-cross g++-cross specs $(LIBGCC) stmp-headers $(STMP_FIXPROTO) $(CROSS_TEST) $(ENQUIRE) $(EXTRA_PARTS)
  24523. +   # This is what to compile if making gcc with a cross-compiler.
  24524. + ***************
  24525. + *** 521,526 ****
  24526. + --- 830,837 ----
  24527. +   # The next two ought to depend on objc-runtime, but that doesn't work yet.
  24528. +   OBJC objc: cc1obj
  24529. +   OBJECTIVE-C objective-c: cc1obj
  24530. + + Ada ada: gnat1 gnatbind gnatbl gnatf gnatk8 gnatchop
  24531. + +     true
  24532. +   PROTO: proto
  24533. +   
  24534. +   # Really, really stupid make features, such as SUN's KEEP_STATE, may force
  24535. + ***************
  24536. + *** 583,588 ****
  24537. + --- 894,927 ----
  24538. +   cc1obj: $(P) $(OBJC_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  24539. +       $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o cc1obj $(OBJC_OBJS) $(OBJS) $(BC_OBJS) $(LIBS)
  24540. +   
  24541. + + # Needs to be built with CC=gcc
  24542. + + gnat1: $(P) $(GNAT1_OBJS) $(OBJS) $(BC_OBJS) $(LIBDEPS)
  24543. + +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnat1 $(GNAT1_OBJS) $(OBJS) $(BC_OBJS) $(LIBS)
  24544. + + 
  24545. + + gnatf: $(P) $(GNATF_OBJS) b_gnatf.o
  24546. + +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatf $(GNATF_OBJS) b_gnatf.o
  24547. + + 
  24548. + + gnatbind: $(P) $(GNATBIND_OBJS) b_gnatb.o
  24549. + +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatbind $(GNATBIND_OBJS)\
  24550. + +                b_gnatb.o
  24551. + + 
  24552. + + gnatk8: $(P) $(GNATK8_OBJS) b_gnatk8.o
  24553. + +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatk8 $(GNATK8_OBJS) b_gnatk8.o
  24554. + + 
  24555. + + gnatchp: $(P) gnatchop.o
  24556. + +     $(ADA_CC) $(ALL_CFLAGS) $(LDFLAGS) -o gnatchp gnatchop.o
  24557. + + 
  24558. + + gnatbl.o: gnatbl.c config.status
  24559. + +     $(ADA_CC) -c $(ALL_CFLAGS) $(INCLUDES) \
  24560. + +            -DADA_RTL_OBJ_DIR="\"$(ADA_RTL_OBJ_DIR)\"" gnatbl.c
  24561. + + 
  24562. + + gnatbl: gnatbl.o
  24563. + +     $(ADA_CC) -o gnatbl $(ALL_CFLAGS) $(LDFLAGS) gnatbl.o
  24564. + + 
  24565. + + # .s files for cross-building
  24566. + + gnat-cross: force
  24567. + +     make $(GNAT1_ADA_OBJS) CC="gcc -Bstage1/" CFLAGS="-S -gnatp"
  24568. + + 
  24569. +   # Copy float.h from its source.
  24570. +   gfloat.h: $(FLOAT_H)
  24571. +       cp $(FLOAT_H) gfloat.h
  24572. + ***************
  24573. + *** 634,640 ****
  24574. +       rm -f dummy.o dummy.c
  24575. +   
  24576. +   # This is $(LIBGCC1) for a cross-compiler.
  24577. + ! # We have no automatic way of building libgcc1.a, 
  24578. +   # so it's up to the installer to find a way to do that.
  24579. +   # This rule deliberately does not depend on libgcc1.a
  24580. +   # so that it will fail if the installer hasn't provided it.
  24581. + --- 973,979 ----
  24582. +       rm -f dummy.o dummy.c
  24583. +   
  24584. +   # This is $(LIBGCC1) for a cross-compiler.
  24585. + ! # We have no automatic way of building libgcc1.a,
  24586. +   # so it's up to the installer to find a way to do that.
  24587. +   # This rule deliberately does not depend on libgcc1.a
  24588. +   # so that it will fail if the installer hasn't provided it.
  24589. + ***************
  24590. + *** 794,799 ****
  24591. + --- 1133,1153 ----
  24592. +         GCC_FOR_TARGET="$$thisdir1/$(XGCC) -B$$thisdir1/" \
  24593. +         GCC_CFLAGS="$(GCC_CFLAGS)"
  24594. +   
  24595. + + ada-runtime : $(GNAT_RTL_OBJS) libgnat.a
  24596. + + 
  24597. + + libgnat.a : $(LIBGNAT_OBJS)
  24598. + +     -rm -f libgnat.a
  24599. + +     $(AR) rc libgnat.a $(LIBGNAT_OBJS)
  24600. + + 
  24601. + + # The pthreads emulation is presumed to only work for sunos4.1
  24602. + + # Create a dummy (links will fail) in other cases
  24603. + + stamp-pthreads :
  24604. + +     (cd threads/src; \
  24605. + +          $(MAKE) clean; \
  24606. + +          $(MAKE) CC="../../xgcc -B../../" INC2="-I../../include" `case $(target) in sparc-sun-sunos4.1*) true;; \
  24607. + +          *) echo OBJS=fake.o ;; esac`)
  24608. + +     touch stamp-pthreads
  24609. + + 
  24610. +   # Compile two additional files that are linked with every program
  24611. +   # linked using GCC on system V, for the sake of C++ constructors.
  24612. +   crtbegin.o:    crtstuff.c $(GCC_PASSES) $(CONFIG_H) gbl-ctors.h
  24613. + ***************
  24614. + *** 877,882 ****
  24615. + --- 1231,1921 ----
  24616. +   
  24617. +   g++.o : g++.c $(CONFIG_H) gvarargs.h
  24618. +   
  24619. + + # Ada language specific files.
  24620. + + 
  24621. + + ada_extra_files : treeprs.ads a-einfo.h a-sinfo.h nmake.adb \
  24622. + +     nmake.ads
  24623. + + 
  24624. + + b_gnat1.c : $(GNAT1_ADA_OBJS)
  24625. + +     $(GNATBIND) -o b_gnat1.c -n -t gnat1drv.ali
  24626. + + b_gnat1.o : b_gnat1.c
  24627. + + 
  24628. + + b_gnatf.c : $(GNATF_OBJS)
  24629. + +     $(GNATBIND) -o b_gnatf.c -t gnatfdrv.ali
  24630. + + 
  24631. + + b_gnatf.o : b_gnatf.c
  24632. + + 
  24633. + + 
  24634. + + b_gnatb.c : $(GNATBIND_OBJS)
  24635. + +     $(GNATBIND) -o b_gnatb.c -t gnatbind.ali
  24636. + + b_gnatb.o : b_gnatb.c
  24637. + + 
  24638. + + b_gnatk8.c : $(GNATK8_OBJS)
  24639. + +     $(GNATBIND) -o b_gnatk8.c -t gnatk8.ali
  24640. + + 
  24641. + + b_gnatk8.o : b_gnatk8.c
  24642. + + 
  24643. + + treeprs.ads : treeprs.adt sinfo.ads xtreeprs.spt
  24644. + +     spitbol xtreeprs.spt
  24645. + + 
  24646. + + a-einfo.h : einfo.ads einfo.adb xeinfo.spt
  24647. + +     spitbol xeinfo.spt
  24648. + + 
  24649. + + a-sinfo.h : sinfo.ads xsinfo.spt
  24650. + +     spitbol xsinfo.spt
  24651. + + 
  24652. + + nmake.adb : nmake.adt sinfo.ads xnmake.spt
  24653. + +     spitbol xnmake.spt -b
  24654. + + 
  24655. + + nmake.ads :  nmake.adt sinfo.ads xnmake.spt
  24656. + +     spitbol xnmake.spt -s
  24657. + + 
  24658. + + mkttypef.o : mkttypef.c hconfig.h machmode.h real.h
  24659. + +     $(HOST_CC) -c $(HOST_CFLAGS) $(HOST_CPPFLAGS) $(INCLUDES) $(srcdir)/mkttypef.c
  24660. + + 
  24661. + + mkttypef : mkttypef.o $(HOST_LIBDEPS)
  24662. + +     $(HOST_CC) $(HOST_CFLAGS) $(HOST_LDFLAGS) -o mkttypef \
  24663. + +      mkttypef.o $(HOST_LIBS)
  24664. + + 
  24665. + + ttypef.ads: stamp-ttypef; @true
  24666. + + stamp-ttypef : ttypef.adt mkttypef $(srcdir)/move-if-change
  24667. + +     ./mkttypef ttypef.adt > tmp-ttypef.ads
  24668. + +     $(srcdir)/move-if-change tmp-ttypef.ads ttypef.ads
  24669. + +     touch stamp-ttypef
  24670. + + 
  24671. + + ADA_INCLUDE_DIR = $(libsubdir)/adainclude
  24672. + + ADA_RTL_OBJ_DIR = $(libsubdir)/adalib
  24673. + + # Note: the strings below do not make sense for Ada strings in the OS/2
  24674. + + #  case.  This is ignored for now since the OS/2 version doesn't use
  24675. + + #  these -- there are no default locations.
  24676. + + sdefault.adb: stamp-sdefault ; @true
  24677. + + stamp-sdefault : $(srcdir)/version.c $(srcdir)/move-if-change Makefile.in
  24678. + +     echo "package body Sdefault is" >tmp-sdefault.adb
  24679. + +     echo "   function Include_Dir_Default_Name return String is" >>tmp-sdefault.adb
  24680. + +     echo "   begin" >>tmp-sdefault.adb
  24681. + +     echo "      return \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.adb
  24682. + +     echo "   end Include_Dir_Default_Name;" >>tmp-sdefault.adb
  24683. + +     echo "   function Object_Dir_Default_Name return String is" >>tmp-sdefault.adb
  24684. + +     echo "   begin" >>tmp-sdefault.adb
  24685. + +     echo "      return \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.adb
  24686. + +     echo "   end Object_Dir_Default_Name;" >>tmp-sdefault.adb
  24687. + +     echo "end Sdefault;" >> tmp-sdefault.adb
  24688. + +     $(srcdir)/move-if-change tmp-sdefault.adb sdefault.adb
  24689. + +     touch stamp-sdefault
  24690. + + 
  24691. + + A_MISC_H = a-misc.h a-tree.def
  24692. + + 
  24693. + + # special compiles for sdefault without -gnatg, to avoid long line error
  24694. + + osint.o : alloc.ads debug.ads limits.ads namet.ads opt.ads osint.ads \
  24695. + +    osint.adb output.ads sdefault.ads switch.ads system.ads \
  24696. + +    s-assert.ads s-strequ.ads s-enviro.ads \
  24697. + +    table.ads table.adb types.ads unchdeal.ads \
  24698. + +    unchdeal.adb unixlib.ads
  24699. + +     $(ADA_CC) -c $(CFLAGS) -gnata osint.adb
  24700. + + 
  24701. + + sdefault.o : sdefault.ads sdefault.adb
  24702. + +     $(ADA_CC) -c $(CFLAGS) -gnata sdefault.adb
  24703. + + 
  24704. + + a-adaint.o : $(CONFIG_H)
  24705. + + 
  24706. + + a-gtran3.o : $(CONFIG_H) $(TREE_H) obstack.h flags.h convert.h a-ada.h \
  24707. + +    a-types.h a-atree.h a-sinfo.h a-snames.h a-einfo.h a-namet.h a-string.h \
  24708. + +    a-uintp.h a-trans.h a-trans3.h a-trans4.h a-gtran3.h $(A_MISC_H) a-rtree.h
  24709. + + 
  24710. + + a-ptypes.o : $(CONFIG_H)
  24711. + + 
  24712. + + a-misc.o : $(CONFIG_H) $(TREE_H) a-ada.h a-types.h a-atree.h a-sinfo.h \
  24713. + +    a-einfo.h a-namet.h a-string.h a-uintp.h a-trans.h a-trans3.h $(A_MISC_H) \
  24714. + +    a-rtree.h flags.h $(RTL_H) expr.h insn-codes.h
  24715. + + 
  24716. + + a-trans3.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  24717. + +    a-sinfo.h a-einfo.h a-namet.h a-string.h a-uintp.h a-trans.h a-gtran3.h \
  24718. + +    a-trans3.h a-trans4.h $(A_MISC_H) a-rtree.h convert.h
  24719. + + 
  24720. + + a-trans4.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  24721. + +    a-sinfo.h a-einfo.h a-namet.h a-snames.h a-string.h a-uintp.h a-trans.h \
  24722. + +    a-trans3.h a-trans4.h $(A_MISC_H)
  24723. + + 
  24724. + + a-trans.o : $(CONFIG_H) $(TREE_H) flags.h a-ada.h a-types.h a-atree.h \
  24725. + +    a-sinfo.h a-snames.h a-einfo.h a-namet.h a-string.h a-uintp.h a-urealp.h \
  24726. + +    a-trans.h \
  24727. + +    a-trans3.h a-gtran3.h a-trans4.h $(A_MISC_H) a-rtree.h
  24728. + + 
  24729. + + a-uintp.o : $(CONFIG_H) $(TREE_H) a-ada.h a-types.h a-atree.h a-sinfo.h \
  24730. + +    a-einfo.h a-namet.h a-string.h a-uintp.h
  24731. + + 
  24732. + + a-urealp.o : $(CONFIG_H) $(TREE_H) a-ada.h a-types.h a-atree.h \
  24733. + +    a-einfo.h a-namet.h a-string.h a-uintp.h a-urealp.h
  24734. + + 
  24735. + + a-ioexce.o : ada.ads a-ioexce.ads
  24736. + + 
  24737. + + a-teioau.o : ada.ads a-ioexce.ads a-textio.ads a-teioau.ads a-teioau.adb \
  24738. + +    system.ads
  24739. + + 
  24740. + + a-textio.o : ada.ads a-ioexce.ads a-textio.ads a-textio.adb a-teioau.ads
  24741. + + 
  24742. + + ada.o : ada.ads
  24743. + + 
  24744. + + ali.o : ali.ads ali.adb binderr.ads butil.ads debug.ads limits.ads \
  24745. + +    namet.ads opt.ads osint.ads output.ads system.ads table.ads table.adb \
  24746. + +    types.ads unchdeal.ads unchdeal.adb
  24747. + + 
  24748. + + alloc.o : alloc.ads
  24749. + + 
  24750. + + atree.o : alloc.ads atree.ads atree.adb casing.ads comperr.ads debug.ads \
  24751. + +    einfo.ads elists.ads nlists.ads output.ads sinfo.ads sinput.ads \
  24752. + +    system.ads s-assert.ads table.ads table.adb types.ads unchconv.ads \
  24753. + +    unchconv.adb unchdeal.ads unchdeal.adb
  24754. + + 
  24755. + + back_end.o : alloc.ads atree.ads back_end.ads back_end.adb casing.ads \
  24756. + +    debug.ads einfo.ads elists.ads get_targ.ads lib.ads limits.ads \
  24757. + +    namet.ads nlists.ads output.ads sinfo.ads sinput.ads stringt.ads \
  24758. + +    system.ads table.ads table.adb ttypes.ads types.ads uintp.ads \
  24759. + +    unchdeal.ads unchdeal.adb urealp.ads
  24760. + + 
  24761. + + bcheck.o : ali.ads bcheck.ads bcheck.adb binderr.ads debug.ads limits.ads \
  24762. + +    namet.ads opt.ads osint.ads output.ads system.ads table.ads table.adb \
  24763. + +    types.ads unchdeal.ads unchdeal.adb
  24764. + + 
  24765. + + binde.o : ali.ads binde.ads binde.adb binderr.ads butil.ads debug.ads \
  24766. + +    limits.ads namet.ads opt.ads osint.ads output.ads system.ads \
  24767. + +    s-assert.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24768. + + 
  24769. + + binderr.o : binderr.ads binderr.adb butil.ads debug.ads excep.ads \
  24770. + +    limits.ads namet.ads opt.ads osint.ads output.ads system.ads table.ads \
  24771. + +    table.adb types.ads unchdeal.ads unchdeal.adb
  24772. + + 
  24773. + + bindgen.o : ali.ads binde.ads bindgen.ads bindgen.adb debug.ads limits.ads \
  24774. + +    namet.ads opt.ads osint.ads output.ads system.ads table.ads table.adb \
  24775. + +    types.ads unchdeal.ads unchdeal.adb
  24776. + + 
  24777. + + bindusg.o : bindusg.ads bindusg.adb osint.ads output.ads system.ads \
  24778. + +    s-assert.ads types.ads unchdeal.ads unchdeal.adb
  24779. + + 
  24780. + + butil.o : butil.ads butil.adb debug.ads limits.ads namet.ads output.ads \
  24781. + +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24782. + + 
  24783. + + casing.o : casing.ads casing.adb csets.ads debug.ads limits.ads namet.ads \
  24784. + +    output.ads scans.ads sinput.ads system.ads table.ads table.adb \
  24785. + +    types.ads unchdeal.ads unchdeal.adb widechar.ads
  24786. + + 
  24787. + + comperr.o : alloc.ads atree.ads casing.ads comperr.ads comperr.adb \
  24788. + +    debug.ads einfo.ads errout.ads excep.ads osint.ads output.ads sinfo.ads \
  24789. + +    sinput.ads sprint.ads system.ads table.ads table.adb treepr.ads \
  24790. + +    types.ads unchdeal.ads unchdeal.adb
  24791. + + 
  24792. + + csets.o : csets.ads csets.adb opt.ads osint.ads system.ads types.ads \
  24793. + +    unchdeal.ads unchdeal.adb
  24794. + + 
  24795. + + debug.o : debug.ads debug.adb
  24796. + + 
  24797. + + debug_a.o : alloc.ads atree.ads casing.ads comperr.ads debug.ads \
  24798. + +    debug_a.ads debug_a.adb einfo.ads output.ads sinfo.ads sinput.ads \
  24799. + +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24800. + + 
  24801. + + einfo.o : alloc.ads atree.ads debug.ads einfo.ads einfo.adb limits.ads \
  24802. + +    namet.ads nlists.ads output.ads sinfo.ads snames.ads stand.ads \
  24803. + +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  24804. + +    unchdeal.adb
  24805. + + 
  24806. + + elists.o : alloc.ads debug.ads elists.ads elists.adb output.ads system.ads \
  24807. + +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24808. + + 
  24809. + + errout.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  24810. + +    errout.ads errout.adb excep.ads exp_util.ads get_targ.ads lib.ads \
  24811. + +    limits.ads namet.ads opt.ads osint.ads output.ads rtsfind.ads scans.ads \
  24812. + +    sinfo.ads sinput.ads stand.ads system.ads s-assert.ads table.ads \
  24813. + +    table.adb ttypes.ads types.ads uintp.ads uname.ads unchdeal.ads \
  24814. + +    unchdeal.adb
  24815. + + 
  24816. + + excep.o : excep.ads
  24817. + + 
  24818. + + exp_attr.o : alloc.ads atree.ads debug.ads einfo.ads exp_attr.ads \
  24819. + +    exp_attr.adb exp_ch9.ads exp_util.ads get_targ.ads itypes.ads \
  24820. + +    limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads \
  24821. + +    rtsfind.ads sem.ads sem_eval.ads sem_res.ads sem_util.ads sinfo.ads \
  24822. + +    snames.ads stand.ads system.ads s-assert.ads table.ads table.adb \
  24823. + +    tbuild.ads ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb
  24824. + + 
  24825. + + exp_ch10.o : exp_ch10.ads
  24826. + + 
  24827. + + exp_ch11.o : exp_ch11.ads
  24828. + + 
  24829. + + exp_ch12.o : exp_ch12.ads
  24830. + + 
  24831. + + exp_ch13.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch13.ads \
  24832. + +    exp_ch13.adb exp_ch3.ads nlists.ads nmake.ads opt.ads osint.ads \
  24833. + +    output.ads rtsfind.ads sem.ads sem_util.ads sinfo.ads snames.ads \
  24834. + +    system.ads table.ads table.adb tbuild.ads types.ads unchdeal.ads \
  24835. + +    unchdeal.adb
  24836. + + 
  24837. + + exp_ch2.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch2.ads \
  24838. + +    exp_ch2.adb nlists.ads nmake.ads opt.ads osint.ads output.ads sem.ads \
  24839. + +    sinfo.ads snames.ads system.ads table.ads table.adb tbuild.ads \
  24840. + +    types.ads unchdeal.ads unchdeal.adb
  24841. + + 
  24842. + + exp_ch3.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch3.ads \
  24843. + +    exp_ch3.adb exp_ch4.ads exp_ch7.ads exp_ch9.ads exp_util.ads \
  24844. + +    get_targ.ads itypes.ads limits.ads namet.ads nlists.ads nmake.ads \
  24845. + +    opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_eval.ads \
  24846. + +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  24847. + +    s-assert.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  24848. + +    uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  24849. + + 
  24850. + + exp_ch4.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch3.ads \
  24851. + +    exp_ch4.ads exp_ch4.adb exp_ch7.ads exp_ch9.ads exp_util.ads \
  24852. + +    fix_util.ads get_targ.ads itypes.ads limits.ads namet.ads nlists.ads \
  24853. + +    nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_ch5.ads \
  24854. + +    sem_res.ads sem_util.ads sinfo.ads sinfo-cn.ads snames.ads stand.ads \
  24855. + +    system.ads s-assert.ads table.ads table.adb tbuild.ads ttypes.ads \
  24856. + +    types.ads uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  24857. + + 
  24858. + + exp_ch5.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch5.ads \
  24859. + +    exp_ch5.adb exp_ch7.ads exp_ch9.ads exp_util.ads get_targ.ads \
  24860. + +    limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads \
  24861. + +    rtsfind.ads sem.ads sem_res.ads sem_util.ads sinfo.ads snames.ads \
  24862. + +    stand.ads system.ads table.ads table.adb tbuild.ads ttypes.ads \
  24863. + +    types.ads uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  24864. + + 
  24865. + + exp_ch6.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  24866. + +    exp_ch6.ads exp_ch6.adb exp_ch7.ads exp_ch9.ads exp_intr.ads \
  24867. + +    exp_util.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads \
  24868. + +    osint.ads output.ads rtsfind.ads sem.ads sem_ch3.ads sem_disp.ads \
  24869. + +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads s-assert.ads \
  24870. + +    table.ads table.adb tbuild.ads types.ads unchdeal.ads unchdeal.adb
  24871. + + 
  24872. + + exp_ch7.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads exp_ch7.ads \
  24873. + +    exp_ch7.adb exp_ch9.ads exp_util.ads expand.ads limits.ads namet.ads \
  24874. + +    nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  24875. + +    sem_ch7.ads sem_ch8.ads sem_res.ads sem_util.ads sinfo.ads snames.ads \
  24876. + +    stand.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  24877. + +    types.ads unchdeal.ads unchdeal.adb
  24878. + + 
  24879. + + exp_ch8.o : exp_ch8.ads
  24880. + + 
  24881. + + exp_ch9.o : alloc.ads atree.ads debug.ads einfo.ads exp_ch3.ads \
  24882. + +    exp_ch6.ads exp_ch9.ads exp_ch9.adb exp_util.ads get_targ.ads \
  24883. + +    limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads \
  24884. + +    rtsfind.ads sem.ads sem_ch11.ads sem_res.ads sem_util.ads sinfo.ads \
  24885. + +    snames.ads stand.ads system.ads s-assert.ads table.ads table.adb \
  24886. + +    tbuild.ads ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb
  24887. + + 
  24888. + + exp_intr.o : alloc.ads atree.ads debug.ads einfo.ads exp_intr.ads \
  24889. + +    exp_intr.adb exp_util.ads limits.ads namet.ads nlists.ads nmake.ads \
  24890. + +    opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_util.ads sinfo.ads \
  24891. + +    snames.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  24892. + +    types.ads unchdeal.ads unchdeal.adb
  24893. + + 
  24894. + + exp_prag.o : alloc.ads atree.ads debug.ads einfo.ads exp_prag.ads \
  24895. + +    exp_prag.adb exp_util.ads nlists.ads nmake.ads opt.ads osint.ads \
  24896. + +    output.ads rtsfind.ads sem.ads sinfo.ads snames.ads system.ads \
  24897. + +    s-assert.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24898. + + 
  24899. + + exp_util.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  24900. + +    errout.ads exp_util.ads exp_util.adb get_targ.ads itypes.ads lib.ads \
  24901. + +    limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads \
  24902. + +    rtsfind.ads sem.ads sem_ch13.ads sem_res.ads sem_util.ads sinfo.ads \
  24903. + +    sinput.ads snames.ads stand.ads system.ads table.ads table.adb \
  24904. + +    tbuild.ads ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb
  24905. + + 
  24906. + + expand.o : alloc.ads atree.ads debug.ads debug_a.ads einfo.ads \
  24907. + +    exp_attr.ads exp_ch13.ads exp_ch2.ads exp_ch3.ads exp_ch4.ads \
  24908. + +    exp_ch5.ads exp_ch6.ads exp_ch7.ads exp_ch9.ads exp_prag.ads \
  24909. + +    exp_util.ads expand.ads expand.adb output.ads rtsfind.ads sinfo.ads \
  24910. + +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  24911. + + 
  24912. + + fix_util.o : debug.ads fix_util.ads fix_util.adb get_targ.ads output.ads \
  24913. + +    system.ads table.ads table.adb ttypes.ads types.ads uintp.ads \
  24914. + +    unchdeal.ads unchdeal.adb urealp.ads
  24915. + + 
  24916. + + fname.o : debug.ads fname.ads fname.adb krunch.ads limits.ads namet.ads \
  24917. + +    opt.ads osint.ads output.ads system.ads s-assert.ads table.ads \
  24918. + +    table.adb types.ads unchdeal.ads unchdeal.adb widechar.ads
  24919. + + 
  24920. + + frontend.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  24921. + +    errout.ads frontend.ads frontend.adb lib.ads limits.ads namet.ads \
  24922. + +    nlists.ads opt.ads osint.ads output.ads par.ads rtsfind.ads scn.ads \
  24923. + +    sem.ads sinfo.ads sinput.ads snames.ads sprint.ads stand.ads system.ads \
  24924. + +    table.ads table.adb tbuild.ads treepr.ads types.ads unchdeal.ads \
  24925. + +    unchdeal.adb usage.ads
  24926. + + 
  24927. + + get_targ.o : get_targ.ads get_targ.adb system.ads s-assert.ads types.ads \
  24928. + +    unchdeal.ads unchdeal.adb
  24929. + + 
  24930. + + gnatk8.o : ada.ads a-ioexce.ads a-textio.ads a-textio.adb a-teioau.ads \
  24931. + +    gnatk8.adb krunch.ads system.ads s-enviro.ads
  24932. + + 
  24933. + + gnat1drv.o : alloc.ads atree.ads back_end.ads casing.ads comperr.ads \
  24934. + +    csets.ads debug.ads einfo.ads errout.ads excep.ads frontend.ads \
  24935. + +    get_targ.ads gnat1drv.ads gnat1drv.adb gnatvsn.ads lib.ads limits.ads \
  24936. + +    namet.ads opt.ads osint.ads output.ads par.ads sinfo.ads snames.ads \
  24937. + +    sprint.ads stringt.ads system.ads s-assert.ads s-secsta.ads \
  24938. + +    s-stalib.ads s-stoele.ads s-taspda.ads s-tasoli.ads table.ads table.adb \
  24939. + +    treepr.ads ttypes.ads types.ads uintp.ads unchconv.ads unchconv.adb \
  24940. + +    unchdeal.ads unchdeal.adb urealp.ads usage.ads
  24941. + + 
  24942. + + gnatbind.o : ali.ads bcheck.ads binde.ads binderr.ads bindgen.ads \
  24943. + +    bindusg.ads butil.ads debug.ads excep.ads gnatbind.adb gnatvsn.ads \
  24944. + +    limits.ads namet.ads opt.ads osint.ads output.ads system.ads \
  24945. + +    s-secsta.ads s-stalib.ads s-stoele.ads s-taspda.ads s-tasoli.ads \
  24946. + +    table.ads table.adb types.ads unchconv.ads unchconv.adb unchdeal.ads \
  24947. + +    unchdeal.adb
  24948. + + 
  24949. + + gnatfdrv.o : casing.ads comperr.ads csets.ads debug.ads einfo.ads \
  24950. + +    errout.ads excep.ads frontend.ads get_targ.ads gnatfdrv.ads \
  24951. + +    gnatfdrv.adb gnatvsn.ads lib.ads limits.ads namet.ads opt.ads osint.ads \
  24952. + +    output.ads par.ads snames.ads sprint.ads stringt.ads system.ads \
  24953. + +    s-assert.ads table.ads table.adb treepr.ads ttypes.ads types.ads \
  24954. + +    uintp.ads unchdeal.ads unchdeal.adb urealp.ads usage.ads xref.ads \
  24955. + +    xref_tab.ads
  24956. + + 
  24957. + + gnatvsn.o : gnatvsn.ads
  24958. + + 
  24959. + + itypes.o : alloc.ads atree.ads debug.ads einfo.ads itypes.ads itypes.adb \
  24960. + +    limits.ads namet.ads nlists.ads output.ads sem_util.ads sinfo.ads \
  24961. + +    stand.ads system.ads s-assert.ads table.ads table.adb types.ads \
  24962. + +    unchdeal.ads unchdeal.adb
  24963. + + 
  24964. + + krunch.o : krunch.ads krunch.adb
  24965. + + 
  24966. + + lib.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  24967. + +    excep.ads fname.ads gnatvsn.ads lib.ads lib.adb lib-list.adb \
  24968. + +    lib-load.adb lib-sort.adb lib-writ.adb limits.ads namet.ads nlists.ads \
  24969. + +    osint.ads output.ads par.ads scn.ads sinfo.ads sinput.ads system.ads \
  24970. + +    table.ads table.adb types.ads uname.ads unchdeal.ads unchdeal.adb
  24971. + + 
  24972. + + limits.o : limits.ads
  24973. + + 
  24974. + + namet.o : alloc.ads debug.ads limits.ads namet.ads namet.adb \
  24975. + +    namet-hash.adb output.ads system.ads s-assert.ads table.ads table.adb \
  24976. + +    types.ads unchdeal.ads unchdeal.adb widechar.ads
  24977. + + 
  24978. + + nlists.o : alloc.ads atree.ads debug.ads einfo.ads nlists.ads nlists.adb \
  24979. + +    output.ads sinfo.ads system.ads s-assert.ads table.ads table.adb \
  24980. + +    types.ads unchdeal.ads unchdeal.adb
  24981. + + 
  24982. + + nmake.o : alloc.ads atree.ads debug.ads einfo.ads nlists.ads nmake.ads \
  24983. + +    nmake.adb output.ads sinfo.ads snames.ads system.ads table.ads \
  24984. + +    table.adb types.ads unchdeal.ads unchdeal.adb
  24985. + + 
  24986. + + opt.o : opt.ads osint.ads system.ads types.ads unchdeal.ads unchdeal.adb
  24987. + + 
  24988. + + osint.o : debug.ads limits.ads namet.ads opt.ads osint.ads osint.adb \
  24989. + +    output.ads sdefault.ads switch.ads system.ads s-assert.ads s-enviro.ads \
  24990. + +    s-secsta.ads s-tasoli.ads table.ads table.adb types.ads unchdeal.ads \
  24991. + +    unchdeal.adb unixlib.ads
  24992. + + 
  24993. + + output.o : output.ads output.adb system.ads types.ads unchdeal.ads \
  24994. + +    unchdeal.adb unixlib.ads
  24995. + + 
  24996. + + par.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  24997. + +    elists.ads errout.ads excep.ads fname.ads get_targ.ads lib.ads \
  24998. + +    limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads \
  24999. + +    par.ads par.adb par-ch10.adb par-ch11.adb par-ch12.adb par-ch13.adb \
  25000. + +    par-ch2.adb par-ch3.adb par-ch4.adb par-ch5.adb par-ch6.adb par-ch7.adb \
  25001. + +    par-ch8.adb par-ch9.adb par-endh.adb par-labl.adb par-load.adb \
  25002. + +    par-prag.adb par-sync.adb par-tchk.adb par-util.adb scans.ads scn.ads \
  25003. + +    sinfo.ads sinfo-cn.ads sinput.ads snames.ads style.ads system.ads \
  25004. + +    s-assert.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  25005. + +    uintp.ads uname.ads unchdeal.ads unchdeal.adb
  25006. + + 
  25007. + + rtsfind.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  25008. + +    excep.ads fname.ads lib.ads limits.ads namet.ads nlists.ads nmake.ads \
  25009. + +    opt.ads osint.ads output.ads rtsfind.ads rtsfind.adb sem.ads \
  25010. + +    sem_util.ads sinfo.ads snames.ads system.ads s-assert.ads table.ads \
  25011. + +    table.adb tbuild.ads types.ads unchdeal.ads unchdeal.adb
  25012. + + 
  25013. + + s-assert.o : system.ads s-assert.ads
  25014. + + 
  25015. + + s-enviro.o : system.ads s-enviro.ads s-enviro.adb
  25016. + + 
  25017. + + s-secsta.o : system.ads s-secsta.ads s-secsta.adb s-stoele.ads \
  25018. + +    s-taspda.ads unchconv.ads unchconv.adb unchdeal.ads unchdeal.adb
  25019. + + 
  25020. + + s-stalib.o : system.ads s-secsta.ads s-stalib.ads s-stoele.ads \
  25021. + +    s-taspda.ads s-tasoli.ads unchconv.ads unchconv.adb unchdeal.ads \
  25022. + +    unchdeal.adb
  25023. + + 
  25024. + + s-stoele.o : system.ads s-stoele.ads s-stoele.adb unchconv.ads \
  25025. + +    unchconv.adb
  25026. + + 
  25027. + + s-strcon.o : system.ads s-strcon.ads s-strcon.adb
  25028. + + 
  25029. + + s-strequ.o : system.ads s-strequ.ads s-strequ.adb
  25030. + + 
  25031. + + s-strops.o : system.ads s-strops.ads s-strops.adb
  25032. + + 
  25033. + + s-tasoli.o : system.ads s-taspda.ads s-tasoli.ads s-tasoli.adb
  25034. + + 
  25035. + + s-taspda.o : system.ads s-secsta.ads s-taspda.ads s-taspda.adb \
  25036. + +    s-tasoli.ads unchconv.ads unchconv.adb unchdeal.ads unchdeal.adb
  25037. + + 
  25038. + + scans.o : scans.ads scans.adb system.ads types.ads unchdeal.ads \
  25039. + +    unchdeal.adb
  25040. + + 
  25041. + + scn.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  25042. + +    errout.ads get_targ.ads lib.ads limits.ads namet.ads opt.ads osint.ads \
  25043. + +    output.ads scans.ads scn.ads scn.adb scn-nlit.adb scn-slit.adb \
  25044. + +    sinfo.ads sinput.ads snames.ads stringt.ads style.ads system.ads \
  25045. + +    s-assert.ads table.ads table.adb ttypes.ads types.ads uintp.ads \
  25046. + +    unchdeal.ads unchdeal.adb urealp.ads widechar.ads
  25047. + + 
  25048. + + sdefault.o : sdefault.ads sdefault.adb
  25049. + + 
  25050. + + sem.o : alloc.ads atree.ads casing.ads comperr.ads debug.ads debug_a.ads \
  25051. + +    einfo.ads errout.ads exp_util.ads expand.ads lib.ads limits.ads \
  25052. + +    namet.ads nlists.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25053. + +    sem.adb sem_attr.ads sem_ch10.ads sem_ch11.ads sem_ch12.ads \
  25054. + +    sem_ch13.ads sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch6.ads \
  25055. + +    sem_ch7.ads sem_ch8.ads sem_ch9.ads sem_prag.ads sem_util.ads sinfo.ads \
  25056. + +    snames.ads stand.ads system.ads s-assert.ads table.ads table.adb \
  25057. + +    types.ads unchdeal.ads unchdeal.adb
  25058. + + 
  25059. + + sem_aggr.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  25060. + +    exp_util.ads get_targ.ads itypes.ads limits.ads namet.ads nlists.ads \
  25061. + +    nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_aggr.ads \
  25062. + +    sem_aggr.adb sem_ch3.ads sem_ch5.ads sem_eval.ads sem_res.ads \
  25063. + +    sem_type.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  25064. + +    table.ads table.adb tbuild.ads ttypes.ads types.ads uintp.ads \
  25065. + +    unchdeal.ads unchdeal.adb
  25066. + + 
  25067. + + sem_attr.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25068. + +    excep.ads get_targ.ads limits.ads namet.ads nlists.ads nmake.ads \
  25069. + +    opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_attr.ads \
  25070. + +    sem_attr.adb sem_ch4.ads sem_ch6.ads sem_ch8.ads sem_eval.ads \
  25071. + +    sem_res.ads sem_type.ads sem_util.ads sinfo.ads sinput.ads snames.ads \
  25072. + +    stand.ads stringt.ads system.ads s-assert.ads table.ads table.adb \
  25073. + +    tbuild.ads ttypef.ads ttypes.ads types.ads uintp.ads unchdeal.ads \
  25074. + +    unchdeal.adb urealp.ads
  25075. + + 
  25076. + + sem_ch10.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25077. + +    lib.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads \
  25078. + +    output.ads sem.ads sem_ch10.ads sem_ch10.adb sem_ch6.ads sem_ch7.ads \
  25079. + +    sem_ch8.ads sem_util.ads sinfo.ads sinfo-cn.ads sinput.ads snames.ads \
  25080. + +    stand.ads stringt.ads system.ads table.ads table.adb tbuild.ads \
  25081. + +    types.ads uname.ads unchdeal.ads unchdeal.adb
  25082. + + 
  25083. + + sem_ch11.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25084. + +    lib.ads limits.ads namet.ads nlists.ads opt.ads osint.ads output.ads \
  25085. + +    sem.ads sem_ch11.ads sem_ch11.adb sem_ch5.ads sem_ch8.ads sem_util.ads \
  25086. + +    sinfo.ads snames.ads stand.ads system.ads table.ads table.adb types.ads \
  25087. + +    unchdeal.ads unchdeal.adb
  25088. + + 
  25089. + + sem_ch12.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  25090. + +    errout.ads excep.ads exp_util.ads lib.ads limits.ads namet.ads \
  25091. + +    nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25092. + +    sem_ch10.ads sem_ch12.ads sem_ch12.adb sem_ch13.ads sem_ch3.ads \
  25093. + +    sem_ch6.ads sem_ch7.ads sem_ch8.ads sem_res.ads sem_util.ads sinfo.ads \
  25094. + +    sinfo-cn.ads snames.ads stand.ads system.ads s-assert.ads table.ads \
  25095. + +    table.adb tbuild.ads types.ads uname.ads unchdeal.ads unchdeal.adb
  25096. + + 
  25097. + + sem_ch13.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  25098. + +    excep.ads exp_util.ads get_targ.ads itypes.ads limits.ads namet.ads \
  25099. + +    nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25100. + +    sem_ch13.ads sem_ch13.adb sem_ch3.ads sem_ch8.ads sem_eval.ads \
  25101. + +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  25102. + +    table.ads table.adb ttypes.ads types.ads uintp.ads unchdeal.ads \
  25103. + +    unchdeal.adb
  25104. + + 
  25105. + + sem_ch3.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  25106. + +    exp_ch3.ads exp_util.ads get_targ.ads itypes.ads limits.ads namet.ads \
  25107. + +    nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25108. + +    sem_ch12.ads sem_ch13.ads sem_ch3.ads sem_ch3.adb sem_ch5.ads \
  25109. + +    sem_ch6.ads sem_ch7.ads sem_ch8.ads sem_eval.ads sem_res.ads \
  25110. + +    sem_type.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  25111. + +    s-assert.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  25112. + +    uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  25113. + + 
  25114. + + sem_ch4.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch4.ads \
  25115. + +    itypes.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads \
  25116. + +    output.ads sem.ads sem_ch3.ads sem_ch4.ads sem_ch4.adb sem_ch8.ads \
  25117. + +    sem_type.ads sem_util.ads sinfo.ads snames.ads stand.ads system.ads \
  25118. + +    table.ads table.adb tbuild.ads types.ads unchdeal.ads unchdeal.adb
  25119. + + 
  25120. + + sem_ch5.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch7.ads \
  25121. + +    get_targ.ads itypes.ads limits.ads namet.ads nlists.ads opt.ads \
  25122. + +    osint.ads output.ads sem.ads sem_ch3.ads sem_ch5.ads sem_ch5.adb \
  25123. + +    sem_ch8.ads sem_disp.ads sem_eval.ads sem_res.ads sem_type.ads \
  25124. + +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads s-assert.ads \
  25125. + +    table.ads table.adb ttypes.ads types.ads uintp.ads unchdeal.ads \
  25126. + +    unchdeal.adb
  25127. + + 
  25128. + + sem_ch6.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25129. + +    exp_ch7.ads exp_util.ads lib.ads limits.ads namet.ads nlists.ads \
  25130. + +    nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads sem_ch12.ads \
  25131. + +    sem_ch3.ads sem_ch4.ads sem_ch6.ads sem_ch6.adb sem_ch8.ads \
  25132. + +    sem_disp.ads sem_res.ads sem_util.ads sinfo.ads sinfo-cn.ads sinput.ads \
  25133. + +    snames.ads stand.ads stringt.ads system.ads table.ads table.adb \
  25134. + +    tbuild.ads treepr.ads types.ads unchdeal.ads unchdeal.adb
  25135. + + 
  25136. + + sem_ch7.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  25137. + +    errout.ads excep.ads exp_util.ads itypes.ads lib.ads limits.ads \
  25138. + +    namet.ads nlists.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25139. + +    sem_ch12.ads sem_ch13.ads sem_ch3.ads sem_ch7.ads sem_ch7.adb \
  25140. + +    sem_ch8.ads sem_util.ads sinfo.ads sinput.ads snames.ads stand.ads \
  25141. + +    system.ads table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  25142. + + 
  25143. + + sem_ch8.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  25144. + +    namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads sem.ads \
  25145. + +    sem_attr.ads sem_ch3.ads sem_ch4.ads sem_ch5.ads sem_ch6.ads \
  25146. + +    sem_ch8.ads sem_ch8.adb sem_res.ads sem_type.ads sem_util.ads sinfo.ads \
  25147. + +    sinfo-cn.ads snames.ads stand.ads system.ads s-assert.ads table.ads \
  25148. + +    table.adb tbuild.ads types.ads unchdeal.ads unchdeal.adb
  25149. + + 
  25150. + + sem_ch9.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads exp_ch7.ads \
  25151. + +    exp_ch9.ads get_targ.ads limits.ads namet.ads nlists.ads nmake.ads \
  25152. + +    opt.ads osint.ads output.ads sem.ads sem_ch3.ads sem_ch4.ads \
  25153. + +    sem_ch5.ads sem_ch6.ads sem_ch8.ads sem_ch9.ads sem_ch9.adb sem_res.ads \
  25154. + +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads table.ads \
  25155. + +    table.adb tbuild.ads ttypes.ads types.ads uintp.ads unchdeal.ads \
  25156. + +    unchdeal.adb
  25157. + + 
  25158. + + sem_disp.o : alloc.ads atree.ads debug.ads einfo.ads elists.ads errout.ads \
  25159. + +    exp_ch6.ads nlists.ads output.ads sem_disp.ads sem_disp.adb \
  25160. + +    sem_util.ads sinfo.ads system.ads table.ads table.adb types.ads \
  25161. + +    unchdeal.ads unchdeal.adb
  25162. + + 
  25163. + + sem_eval.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads \
  25164. + +    get_targ.ads itypes.ads limits.ads namet.ads nlists.ads nmake.ads \
  25165. + +    opt.ads osint.ads output.ads sem.ads sem_eval.ads sem_eval.adb \
  25166. + +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads stringt.ads \
  25167. + +    system.ads s-assert.ads table.ads table.adb tbuild.ads ttypes.ads \
  25168. + +    types.ads uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  25169. + + 
  25170. + + sem_intr.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads \
  25171. + +    get_targ.ads limits.ads namet.ads output.ads sem_ch13.ads sem_intr.ads \
  25172. + +    sem_intr.adb sinfo.ads snames.ads stand.ads system.ads table.ads \
  25173. + +    table.adb ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb
  25174. + + 
  25175. + + sem_prag.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25176. + +    excep.ads exp_util.ads get_targ.ads lib.ads limits.ads namet.ads \
  25177. + +    nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads sem.ads \
  25178. + +    sem_ch8.ads sem_eval.ads sem_intr.ads sem_prag.ads sem_prag.adb \
  25179. + +    sem_res.ads sem_util.ads sinfo.ads snames.ads stand.ads stringt.ads \
  25180. + +    system.ads table.ads table.adb tbuild.ads ttypes.ads types.ads \
  25181. + +    uintp.ads unchdeal.ads unchdeal.adb
  25182. + + 
  25183. + + sem_res.o : alloc.ads atree.ads debug.ads debug_a.ads einfo.ads elists.ads \
  25184. + +    errout.ads exp_util.ads expand.ads get_targ.ads itypes.ads limits.ads \
  25185. + +    namet.ads nlists.ads nmake.ads opt.ads osint.ads output.ads rtsfind.ads \
  25186. + +    sem.ads sem_aggr.ads sem_attr.ads sem_ch13.ads sem_ch3.ads sem_ch4.ads \
  25187. + +    sem_ch5.ads sem_ch8.ads sem_disp.ads sem_eval.ads sem_res.ads \
  25188. + +    sem_res.adb sem_type.ads sem_util.ads sinfo.ads snames.ads stand.ads \
  25189. + +    stringt.ads system.ads s-assert.ads table.ads table.adb tbuild.ads \
  25190. + +    treepr.ads ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb
  25191. + + 
  25192. + + sem_type.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  25193. + +    namet.ads output.ads sem_ch6.ads sem_ch8.ads sem_type.ads sem_type.adb \
  25194. + +    sem_util.ads sinfo.ads snames.ads stand.ads system.ads s-assert.ads \
  25195. + +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb
  25196. + + 
  25197. + + sem_util.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25198. + +    get_targ.ads itypes.ads limits.ads namet.ads nlists.ads nmake.ads \
  25199. + +    opt.ads osint.ads output.ads scans.ads scn.ads sem.ads sem_eval.ads \
  25200. + +    sem_res.ads sem_type.ads sem_util.ads sem_util.adb sinfo.ads sinput.ads \
  25201. + +    snames.ads stand.ads style.ads system.ads s-assert.ads s-secsta.ads \
  25202. + +    s-strcon.ads s-tasoli.ads table.ads table.adb tbuild.ads ttypes.ads \
  25203. + +    types.ads uintp.ads unchdeal.ads unchdeal.adb urealp.ads
  25204. + + 
  25205. + + sinfo-cn.o : alloc.ads atree.ads debug.ads einfo.ads output.ads sinfo.ads \
  25206. + +    sinfo-cn.ads sinfo-cn.adb system.ads table.ads table.adb types.ads \
  25207. + +    unchdeal.ads unchdeal.adb
  25208. + + 
  25209. + + sinfo.o : alloc.ads atree.ads debug.ads einfo.ads output.ads sinfo.ads \
  25210. + +    sinfo.adb system.ads s-assert.ads table.ads table.adb types.ads \
  25211. + +    unchdeal.ads unchdeal.adb
  25212. + + 
  25213. + + sinput.o : alloc.ads casing.ads debug.ads limits.ads namet.ads osint.ads \
  25214. + +    output.ads sinput.ads sinput.adb system.ads s-assert.ads table.ads \
  25215. + +    table.adb types.ads unchdeal.ads unchdeal.adb
  25216. + + 
  25217. + + snames.o : debug.ads limits.ads namet.ads output.ads snames.ads snames.adb \
  25218. + +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  25219. + +    unchdeal.adb
  25220. + + 
  25221. + + sprint.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads get_targ.ads \
  25222. + +    itypes.ads lib.ads limits.ads namet.ads nlists.ads output.ads \
  25223. + +    sem_util.ads sinfo.ads sprint.ads sprint.adb stand.ads stringt.ads \
  25224. + +    system.ads table.ads table.adb ttypes.ads types.ads uintp.ads uname.ads \
  25225. + +    unchdeal.ads unchdeal.adb urealp.ads
  25226. + + 
  25227. + + stand.o : alloc.ads atree.ads csets.ads debug.ads einfo.ads get_targ.ads \
  25228. + +    gnatvsn.ads limits.ads namet.ads nlists.ads nmake.ads opt.ads osint.ads \
  25229. + +    output.ads sem_util.ads sinfo.ads snames.ads stand.ads stand.adb \
  25230. + +    system.ads s-assert.ads table.ads table.adb ttypef.ads ttypes.ads \
  25231. + +    types.ads uintp.ads unchdeal.ads unchdeal.adb
  25232. + + 
  25233. + + stringt.o : alloc.ads debug.ads output.ads stringt.ads stringt.adb \
  25234. + +    system.ads s-assert.ads table.ads table.adb types.ads unchdeal.ads \
  25235. + +    unchdeal.adb
  25236. + + 
  25237. + + style.o : alloc.ads atree.ads casing.ads csets.ads debug.ads einfo.ads \
  25238. + +    errout.ads limits.ads namet.ads output.ads scans.ads sinfo.ads \
  25239. + +    sinput.ads style.ads style.adb system.ads table.ads table.adb types.ads \
  25240. + +    unchdeal.ads unchdeal.adb
  25241. + + 
  25242. + + switch.o : debug.ads opt.ads osint.ads output.ads switch.ads switch.adb \
  25243. + +    system.ads types.ads unchdeal.ads unchdeal.adb
  25244. + + 
  25245. + + system.o : system.ads
  25246. + + 
  25247. + + tbuild.o : alloc.ads atree.ads debug.ads einfo.ads errout.ads limits.ads \
  25248. + +    namet.ads nlists.ads nmake.ads output.ads sinfo.ads stand.ads \
  25249. + +    system.ads s-assert.ads table.ads table.adb tbuild.ads tbuild.adb \
  25250. + +    types.ads unchdeal.ads unchdeal.adb
  25251. + + 
  25252. + + treepr.o : alloc.ads atree.ads casing.ads comperr.ads csets.ads debug.ads \
  25253. + +    einfo.ads elists.ads get_targ.ads itypes.ads lib.ads limits.ads \
  25254. + +    namet.ads nlists.ads output.ads sem_util.ads sinfo.ads sinput.ads \
  25255. + +    stand.ads stringt.ads system.ads table.ads table.adb treepr.ads \
  25256. + +    treepr.adb treeprs.ads ttypes.ads types.ads uintp.ads uname.ads \
  25257. + +    unchdeal.ads unchdeal.adb urealp.ads
  25258. + + 
  25259. + + treeprs.o : sinfo.ads system.ads treeprs.ads types.ads unchdeal.ads \
  25260. + +    unchdeal.adb
  25261. + + 
  25262. + + ttypef.o : ttypef.ads
  25263. + + 
  25264. + + ttypes.o : get_targ.ads system.ads ttypes.ads types.ads unchdeal.ads \
  25265. + +    unchdeal.adb
  25266. + + 
  25267. + + types.o : system.ads types.ads types.adb unchdeal.ads unchdeal.adb
  25268. + + 
  25269. + + uintp.o : alloc.ads debug.ads get_targ.ads limits.ads namet.ads output.ads \
  25270. + +    system.ads s-assert.ads table.ads table.adb ttypes.ads types.ads \
  25271. + +    uintp.ads uintp.adb unchdeal.ads unchdeal.adb
  25272. + + 
  25273. + + uname.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads lib.ads \
  25274. + +    limits.ads namet.ads nlists.ads output.ads sinfo.ads sinput.ads \
  25275. + +    system.ads s-assert.ads table.ads table.adb types.ads uname.ads \
  25276. + +    uname.adb unchdeal.ads unchdeal.adb
  25277. + + 
  25278. + + unixlib.o : system.ads types.ads unchdeal.ads unchdeal.adb unixlib.ads \
  25279. + +    unixlib.adb
  25280. + + 
  25281. + + urealp.o : alloc.ads debug.ads get_targ.ads nlists.ads nmake.ads \
  25282. + +    output.ads sinfo.ads system.ads s-assert.ads table.ads table.adb \
  25283. + +    ttypes.ads types.ads uintp.ads unchdeal.ads unchdeal.adb urealp.ads \
  25284. + +    urealp.adb
  25285. + + 
  25286. + + usage.o : osint.ads output.ads system.ads s-assert.ads types.ads \
  25287. + +    unchdeal.ads unchdeal.adb usage.ads usage.adb
  25288. + + 
  25289. + + widechar.o : system.ads s-assert.ads types.ads unchdeal.ads unchdeal.adb \
  25290. + +    widechar.ads widechar.adb
  25291. + + 
  25292. + + xref.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads elists.ads \
  25293. + +    lib.ads limits.ads namet.ads nlists.ads opt.ads osint.ads output.ads \
  25294. + +    sinfo.ads sinput.ads sprint.ads stand.ads system.ads s-assert.ads \
  25295. + +    table.ads table.adb types.ads unchdeal.ads unchdeal.adb xref.ads \
  25296. + +    xref.adb xref_tab.ads
  25297. + + 
  25298. + + xref_tab.o : alloc.ads atree.ads casing.ads debug.ads einfo.ads errout.ads \
  25299. + +    lib.ads limits.ads namet.ads osint.ads output.ads sinfo.ads sinput.ads \
  25300. + +    stand.ads system.ads s-secsta.ads s-strcon.ads s-tasoli.ads table.ads \
  25301. + +    table.adb types.ads unchdeal.ads unchdeal.adb xref_tab.ads xref_tab.adb
  25302. + + 
  25303. + + 
  25304. +   # To make a configuration always use collect2, set USE_COLLECT2 to ld.
  25305. +   ld: collect2
  25306. +       rm -f ld
  25307. + ***************
  25308. + *** 933,939 ****
  25309. +   tree.o : tree.c $(CONFIG_H) $(TREE_H) gvarargs.h flags.h function.h
  25310. +   print-tree.o : print-tree.c $(CONFIG_H) $(TREE_H)
  25311. +   stor-layout.o : stor-layout.c $(CONFIG_H) $(TREE_H) function.h
  25312. + ! fold-const.o : fold-const.c $(CONFIG_H) $(TREE_H) flags.h 
  25313. +   toplev.o : toplev.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h input.h \
  25314. +      insn-attr.h xcoffout.h defaults.h
  25315. +       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  25316. + --- 1972,1978 ----
  25317. +   tree.o : tree.c $(CONFIG_H) $(TREE_H) gvarargs.h flags.h function.h
  25318. +   print-tree.o : print-tree.c $(CONFIG_H) $(TREE_H)
  25319. +   stor-layout.o : stor-layout.c $(CONFIG_H) $(TREE_H) function.h
  25320. + ! fold-const.o : fold-const.c $(CONFIG_H) $(TREE_H) flags.h
  25321. +   toplev.o : toplev.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h input.h \
  25322. +      insn-attr.h xcoffout.h defaults.h
  25323. +       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  25324. + ***************
  25325. + *** 960,966 ****
  25326. +      typeclass.h bytecode.h bc-opcode.h bc-typecd.h bc-typecd.def bc-optab.h \
  25327. +      bc-emit.h modemap.def
  25328. +   calls.o : calls.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h expr.h insn-codes.h \
  25329. + !    insn-flags.h gvarargs.h 
  25330. +   expmed.o : expmed.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h  \
  25331. +      insn-flags.h insn-config.h insn-codes.h expr.h recog.h real.h
  25332. +   explow.o : explow.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h hard-reg-set.h \
  25333. + --- 1999,2005 ----
  25334. +      typeclass.h bytecode.h bc-opcode.h bc-typecd.h bc-typecd.def bc-optab.h \
  25335. +      bc-emit.h modemap.def
  25336. +   calls.o : calls.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h expr.h insn-codes.h \
  25337. + !    insn-flags.h gvarargs.h
  25338. +   expmed.o : expmed.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h  \
  25339. +      insn-flags.h insn-config.h insn-codes.h expr.h recog.h real.h
  25340. +   explow.o : explow.c $(CONFIG_H) $(RTL_H) $(TREE_H) flags.h hard-reg-set.h \
  25341. + ***************
  25342. + *** 1050,1056 ****
  25343. +         -c `echo $(srcdir)/alloca.c | sed 's,^\./,,'`
  25344. +       $(ALLOCA_FINISH)
  25345. +   
  25346. + ! # Generate header and source files from the machine description, 
  25347. +   # and compile them.
  25348. +   
  25349. +   .PRECIOUS: insn-config.h insn-flags.h insn-codes.h \
  25350. + --- 2089,2095 ----
  25351. +         -c `echo $(srcdir)/alloca.c | sed 's,^\./,,'`
  25352. +       $(ALLOCA_FINISH)
  25353. +   
  25354. + ! # Generate header and source files from the machine description,
  25355. +   # and compile them.
  25356. +   
  25357. +   .PRECIOUS: insn-config.h insn-flags.h insn-codes.h \
  25358. + ***************
  25359. + *** 1181,1187 ****
  25360. +   # even if GCC is being compiled to run on some other machine.
  25361. +   
  25362. +   # $(CONFIG_H) is omitted from the deps of the gen*.o
  25363. + ! # because these programs don't really depend on anything 
  25364. +   # about the target machine.  They do depend on config.h itself,
  25365. +   # since that describes the host machine.
  25366. +   
  25367. + --- 2220,2226 ----
  25368. +   # even if GCC is being compiled to run on some other machine.
  25369. +   
  25370. +   # $(CONFIG_H) is omitted from the deps of the gen*.o
  25371. + ! # because these programs don't really depend on anything
  25372. +   # about the target machine.  They do depend on config.h itself,
  25373. +   # since that describes the host machine.
  25374. +   
  25375. + ***************
  25376. + *** 1305,1311 ****
  25377. +   
  25378. +   # This satisfies the dependency that we get if you cross-compile a compiler
  25379. +   # that does not need to compile alloca, malloc or whatever.
  25380. + ! $(HOST_PREFIX_1): 
  25381. +       touch $(HOST_PREFIX_1)
  25382. +   
  25383. +   # Remake bytecode files.
  25384. + --- 2344,2350 ----
  25385. +   
  25386. +   # This satisfies the dependency that we get if you cross-compile a compiler
  25387. +   # that does not need to compile alloca, malloc or whatever.
  25388. + ! $(HOST_PREFIX_1):
  25389. +       touch $(HOST_PREFIX_1)
  25390. +   
  25391. +   # Remake bytecode files.
  25392. + ***************
  25393. + *** 1647,1660 ****
  25394. +   #    $(MAKEINFO) `echo $(srcdir)/gplus.texi | sed 's,^\./,,'`
  25395. +   
  25396. +   $(srcdir)/gcc.info: gcc.texi extend.texi install.texi invoke.texi \
  25397. + !         md.texi rtl.texi tm.texi 
  25398. +       cd $(srcdir); $(MAKEINFO) gcc.texi
  25399. +   
  25400. +   dvi: $(srcdir)/gcc.dvi $(srcdir)/cpp.dvi
  25401. +   
  25402. +   # This works with GNU Make's default rule.
  25403. +   $(srcdir)/gcc.dvi: gcc.texi extend.texi install.texi invoke.texi \
  25404. + !         md.texi rtl.texi tm.texi 
  25405. +       $(TEXI2DVI) $<
  25406. +   
  25407. +   # This works with GNU Make's default rule.
  25408. + --- 2686,2699 ----
  25409. +   #    $(MAKEINFO) `echo $(srcdir)/gplus.texi | sed 's,^\./,,'`
  25410. +   
  25411. +   $(srcdir)/gcc.info: gcc.texi extend.texi install.texi invoke.texi \
  25412. + !         md.texi rtl.texi tm.texi
  25413. +       cd $(srcdir); $(MAKEINFO) gcc.texi
  25414. +   
  25415. +   dvi: $(srcdir)/gcc.dvi $(srcdir)/cpp.dvi
  25416. +   
  25417. +   # This works with GNU Make's default rule.
  25418. +   $(srcdir)/gcc.dvi: gcc.texi extend.texi install.texi invoke.texi \
  25419. + !         md.texi rtl.texi tm.texi
  25420. +       $(TEXI2DVI) $<
  25421. +   
  25422. +   # This works with GNU Make's default rule.
  25423. + ***************
  25424. + *** 1687,1693 ****
  25425. +   # Delete the temporary source copies for cross compilation.
  25426. +       -rm -f $(HOST_PREFIX_1)rtl.c $(HOST_PREFIX_1)rtlanal.c
  25427. +       -rm -f $(HOST_PREFIX_1)alloca.c $(HOST_PREFIX_1)malloc.c
  25428. + !     -rm -f $(HOST_PREFIX_1)obstack.c 
  25429. +   # Delete the temp files made in the course of building libgcc.a.
  25430. +       -rm -f tmplibgcc* tmpcopy xlimits.h
  25431. +       for name in $(LIB1FUNCS); do rm -f $${name}.c; done
  25432. + --- 2726,2732 ----
  25433. +   # Delete the temporary source copies for cross compilation.
  25434. +       -rm -f $(HOST_PREFIX_1)rtl.c $(HOST_PREFIX_1)rtlanal.c
  25435. +       -rm -f $(HOST_PREFIX_1)alloca.c $(HOST_PREFIX_1)malloc.c
  25436. + !     -rm -f $(HOST_PREFIX_1)obstack.c
  25437. +   # Delete the temp files made in the course of building libgcc.a.
  25438. +       -rm -f tmplibgcc* tmpcopy xlimits.h
  25439. +       for name in $(LIB1FUNCS); do rm -f $${name}.c; done
  25440. + ***************
  25441. + *** 1717,1723 ****
  25442. +   clean: mostlyclean bytecode.clean
  25443. +   # It may not be quite desirable to delete unprotoize.c here,
  25444. +   # but the spec for `make clean' requires it.
  25445. + ! # Using unprotoize.c is not quite right in the first place, 
  25446. +   # but what better way is there?
  25447. +       -rm -f libgcc.a libgcc1.a libgcc2.a libgcc2.ready libgcc1.null
  25448. +       -rm -f *.dvi
  25449. + --- 2756,2762 ----
  25450. +   clean: mostlyclean bytecode.clean
  25451. +   # It may not be quite desirable to delete unprotoize.c here,
  25452. +   # but the spec for `make clean' requires it.
  25453. + ! # Using unprotoize.c is not quite right in the first place,
  25454. +   # but what better way is there?
  25455. +       -rm -f libgcc.a libgcc1.a libgcc2.a libgcc2.ready libgcc1.null
  25456. +       -rm -f *.dvi
  25457. + ***************
  25458. + *** 1760,1766 ****
  25459. +       -rm -f cp-parse.c cp-parse.h cp-parse.output
  25460. +       -rm -f objc-parse.c objc-parse.output
  25461. +       -rm -f c-parse.c c-parse.h c-parse.output
  25462. + !     -rm -f cexp.c cexp.output TAGS 
  25463. +       -rm -f cpp.info* cpp.??s cpp.*aux
  25464. +       -rm -f gcc.info* gcc.??s gcc.*aux
  25465. +       -rm -f gplus.info* gplus.??s gplus.*aux
  25466. + --- 2799,2805 ----
  25467. +       -rm -f cp-parse.c cp-parse.h cp-parse.output
  25468. +       -rm -f objc-parse.c objc-parse.output
  25469. +       -rm -f c-parse.c c-parse.h c-parse.output
  25470. + !     -rm -f cexp.c cexp.output TAGS
  25471. +       -rm -f cpp.info* cpp.??s cpp.*aux
  25472. +       -rm -f gcc.info* gcc.??s gcc.*aux
  25473. +       -rm -f gplus.info* gplus.??s gplus.*aux
  25474. + ***************
  25475. + *** 1861,1866 ****
  25476. + --- 2900,2926 ----
  25477. +         rm -f $(bindir)/$(target)-gcc-1; \
  25478. +         $(HARDLINK) $(bindir)/gcc $(bindir)/$(target)-gcc-1; \
  25479. +         mv $(bindir)/$(target)-gcc-1 $(bindir)/$(target)-gcc; \
  25480. + +       if [ -f gnat1 ] ; then \
  25481. + +         rm -f $(bindir)/gnatbind; \
  25482. + +         $(INSTALL_PROGRAM) gnatbind $(bindir)/gnatbind; \
  25483. + +         chmod a+x $(bindir)/gnatbind; \
  25484. + +         rm -f $(bindir)/gnatchop; \
  25485. + +         $(INSTALL_PROGRAM) gnatchop $(bindir)/gnatchop; \
  25486. + +         chmod a+x $(bindir)/gnatchop; \
  25487. + +         rm -f $(bindir)/gnatchp; \
  25488. + +         $(INSTALL_PROGRAM) gnatchp $(bindir)/gnatchp; \
  25489. + +         chmod a+x $(bindir)/gnatchp; \
  25490. + +         rm -f $(bindir)/gnatbl; \
  25491. + +         $(INSTALL_PROGRAM) gnatbl $(bindir)/gnatbl; \
  25492. + +         chmod a+x $(bindir)/gnatbl; \
  25493. + +         rm -f $(bindir)/gnatf; \
  25494. + +         $(INSTALL_PROGRAM) gnatf $(bindir)/gnatf; \
  25495. + +         chmod a+x $(bindir)/gnatf; \
  25496. + +             rm -f $(bindir)/gnatk8; \
  25497. + +             $(INSTALL_PROGRAM) gnatk8 $(bindir)/gnatk8; \
  25498. + +             chmod a+x $(bindir)/gnatk8; \
  25499. + +             $(MAKE) install-gnatlib; \
  25500. + +       fi; \
  25501. +         if [ -f cc1plus ] ; then \
  25502. +           rm -f $(bindir)/g++; \
  25503. +           $(INSTALL_PROGRAM) g++ $(bindir)/g++; \
  25504. + ***************
  25505. + *** 1883,1888 ****
  25506. + --- 2943,2981 ----
  25507. +       -rm -f $(libsubdir)/cpp
  25508. +       $(INSTALL_PROGRAM) cpp $(libsubdir)/cpp
  25509. +   
  25510. + + # Note that in the below rules, when we install the Ada runtime files, we
  25511. + + # use "cp -p" to preserve the dates.
  25512. + + 
  25513. + + install-gnatlib:
  25514. + + #    rm -rf tmp-adainclude stamp-pthreads
  25515. + + #    $(MAKE) tmp-adainclude
  25516. + + #    $(MAKE) stamp-pthreads
  25517. + +     rm -rf $(ADA_RTL_OBJ_DIR)
  25518. + +     mkdir $(ADA_RTL_OBJ_DIR)
  25519. + +     cp -p tmp-adainclude/*.o tmp-adainclude/*.ali tmp-adainclude/*.a \
  25520. + +           threads/lib/libpthreads.a $(ADA_RTL_OBJ_DIR)
  25521. + +     (cd $(ADA_RTL_OBJ_DIR) ; rm -f $(LIBGNAT_OBJS))
  25522. + +     rm -rf $(ADA_INCLUDE_DIR)
  25523. + +     mkdir $(ADA_INCLUDE_DIR)
  25524. + +     cp -p tmp-adainclude/*.ad[bs] $(ADA_INCLUDE_DIR)
  25525. + +     if $(RANLIB_TEST) ; then $(RANLIB) $(ADA_RTL_OBJ_DIR)/*.a; \
  25526. + +           else true; fi
  25527. + + 
  25528. + + # Note that in the below rules, when we make the copy of the Ada runtime
  25529. + + # source files in the tmp directory, we use "cp -p" to preserve the dates
  25530. + + # so as to not make previously compiled objects become needlessly out-of-date.
  25531. + + 
  25532. + + tmp-adainclude:
  25533. + +     rm -rf tmp-tmp-adainclude
  25534. + +     mkdir tmp-tmp-adainclude
  25535. + +     for file in $(ADA_INCLUDE_SRCS) $(LIBGNAT_SRCS); do \
  25536. + +       cp -p $$file tmp-tmp-adainclude/$$file; \
  25537. + +     done
  25538. + +     (cd tmp-tmp-adainclude; $(MAKE) CC="../xgcc -B../" CFLAGS="" \
  25539. + +           -f ../Makefile ada-runtime)
  25540. + +     rm -rf tmp-adainclude
  25541. + +     mv tmp-tmp-adainclude tmp-adainclude
  25542. + + 
  25543. +   # Install the info files.
  25544. +   install-info: doc install-dir
  25545. +       -rm -f $(infodir)/cpp.info* $(infodir)/gcc.info*
  25546. + ***************
  25547. + *** 2039,2045 ****
  25548. +            $$1 " " $$2 " " $$3 != "This directory contains"' \
  25549. +         version=$(version) README > tmp.README
  25550. +       mv tmp.README README
  25551. + !     -rm -rf gcc-$(version) tmp    
  25552. +   # Put all the files in a temporary subdirectory
  25553. +   # which has the name that we want to have in the tar file.
  25554. +       mkdir tmp
  25555. + --- 3132,3138 ----
  25556. +            $$1 " " $$2 " " $$3 != "This directory contains"' \
  25557. +         version=$(version) README > tmp.README
  25558. +       mv tmp.README README
  25559. + !     -rm -rf gcc-$(version) tmp
  25560. +   # Put all the files in a temporary subdirectory
  25561. +   # which has the name that we want to have in the tar file.
  25562. +       mkdir tmp
  25563. + ***************
  25564. + *** 2072,2078 ****
  25565. +   # Get rid of everything we don't want in the distribution.
  25566. +       cd gcc-$(version); make -f Makefile.in extraclean
  25567. +   
  25568. + ! # make diff oldversion=M.N 
  25569. +   # creates a diff file between an older distribution and this one.
  25570. +   # The -P option assumes this is GNU diff.
  25571. +   diff:
  25572. + --- 3165,3171 ----
  25573. +   # Get rid of everything we don't want in the distribution.
  25574. +       cd gcc-$(version); make -f Makefile.in extraclean
  25575. +   
  25576. + ! # make diff oldversion=M.N
  25577. +   # creates a diff file between an older distribution and this one.
  25578. +   # The -P option assumes this is GNU diff.
  25579. +   diff:
  25580. + ***************
  25581. + *** 2084,2090 ****
  25582. +   
  25583. +   # do make -f ../gcc/Makefile maketest DIR=../gcc
  25584. +   # in the intended test directory to make it a suitable test directory.
  25585. + ! # THIS IS OBSOLETE; use the -srcdir operand in configure instead. 
  25586. +   maketest:
  25587. +       cp $(DIR)/*.[chy] .
  25588. +       cp $(DIR)/configure .
  25589. + --- 3177,3183 ----
  25590. +   
  25591. +   # do make -f ../gcc/Makefile maketest DIR=../gcc
  25592. +   # in the intended test directory to make it a suitable test directory.
  25593. + ! # THIS IS OBSOLETE; use the -srcdir operand in configure instead.
  25594. +   maketest:
  25595. +       cp $(DIR)/*.[chy] .
  25596. +       cp $(DIR)/configure .
  25597. + ***************
  25598. + *** 2173,2178 ****
  25599. + --- 3266,3319 ----
  25600. +       -rm -f stage4/libgcc.a
  25601. +       -cp libgcc.a stage4
  25602. +       -if $(RANLIB_TEST) ; then $(RANLIB) stage4/libgcc.a; else true; fi
  25603. + + 
  25604. + + # gnat bootstrapping targets - use the same stage directories
  25605. + + gnatboot: force
  25606. + +     $(MAKE) gnat1 CC="$(CC)" CFLAGS="$(CFLAGS)" ADA_CC="$(ADA_CC)" ADAFLAGS="$(ADAFLAGS)"
  25607. + +     $(MAKE) gnatbind CC="$(CC)" CFLAGS="$(CFLAGS)" ADA_CC="$(ADA_CC)" ADAFLAGS="$(ADAFLAGS)"
  25608. + +     $(MAKE) gnatstage1
  25609. + +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnat1
  25610. + +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnatbind
  25611. + +     $(MAKE) gnatstage2
  25612. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  25613. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  25614. + + 
  25615. + + gnatboot2: force
  25616. + +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnat1
  25617. + +     $(MAKE) CC="gcc -Bstage1/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage1/gnatbind gnatbind
  25618. + +     $(MAKE) gnatstage2
  25619. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  25620. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  25621. + + 
  25622. + + gnatboot3: force
  25623. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnat1
  25624. + +     $(MAKE) CC="gcc -Bstage2/" CFLAGS="$(BOOT_CFLAGS)" ADAFLAGS="$(BOOT_ADAFLAGS)" LDFLAGS="$(BOOT_LDFLAGS)" GNATBIND=stage2/gnatbind gnatbind
  25625. + + 
  25626. + + gnatcompare: force
  25627. + +     for file in $(GNAT1_ADA_OBJS); do \
  25628. + +       tail +16c $$file > tmp-foo1; \
  25629. + +       tail +16c stage2/$$file > tmp-foo2 2>/dev/null \
  25630. + +         && (cmp tmp-foo1 tmp-foo2 || echo $$file differs); \
  25631. + +     done
  25632. + +     -rm -f tmp-foo*
  25633. + + 
  25634. + + gnatstage1: force
  25635. + +     -if [ -d stage1 ] ; then true ; else mkdir stage1 ; fi
  25636. + +     -for file in *.ali; do \
  25637. + +       mv -f $$file `echo $$file | sed -e 's+.ali$$+.o+'` stage1 ; \
  25638. + +     done
  25639. + +     -mv -f gnat1 gnatbind stage1
  25640. + + 
  25641. + + gnatstage2: force
  25642. + +     -if [ -d stage2 ] ; then true ; else mkdir stage2 ; fi
  25643. + +     -for file in *.ali; do \
  25644. + +       mv -f $$file `echo $$file | sed -e 's+.ali$$+.o+'` stage2 ; \
  25645. + +     done
  25646. + +     -mv -f gnat1 gnatbind stage2
  25647. + + 
  25648. + + gnatclean: force
  25649. + +     rm -f $(GNAT1_OBJS) $(GNATF_OBJS) $(GNATBIND_OBJS) $(GNATK8_OBJS) \
  25650. + +           $(GNAT_RTL_OBJS) *.ali gnat1 gnatbind
  25651. +   
  25652. +   # Copy just the executable files from a particular stage into a subdirectory,
  25653. +   # and delete the object files.  Use this if you're just verifying a version
  25654. + diff -rc gcc-2.5.8/config/i386/xm-dos.h gcc-2.5.8-ada/config/i386/xm-dos.h
  25655. + *** gcc-2.5.8/config/i386/xm-dos.h    Fri Apr  9 21:40:56 1993
  25656. + --- gcc-2.5.8-ada/config/i386/xm-dos.h    Fri Jul  1 15:21:36 1994
  25657. + ***************
  25658. + *** 6,11 ****
  25659. + --- 6,14 ----
  25660. +   /* Use semicolons to separate elements of a path.  */
  25661. +   #define PATH_SEPARATOR ';'
  25662. +   
  25663. + + /* Use backslashs to separate levels of directory.  */
  25664. + + #define DIR_SEPARATOR '\\'
  25665. + + 
  25666. +   /* Suffix for executable file names.  */
  25667. +   #define EXECUTABLE_SUFFIX ".exe"
  25668. +   
  25669. + diff -rc gcc-2.5.8/config/m68k/m68k.md gcc-2.5.8-ada/config/m68k/m68k.md
  25670. + *** gcc-2.5.8/config/m68k/m68k.md    Tue Feb 22 11:22:53 1994
  25671. + --- gcc-2.5.8-ada/config/m68k/m68k.md    Fri Jul  1 15:15:28 1994
  25672. + ***************
  25673. + *** 933,939 ****
  25674. +        of several bytes a byte at a time.  */
  25675. +     if (GET_CODE (operands[0]) == MEM
  25676. +         && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC
  25677. + !       && XEXP (XEXP (operands[0], 0), 0) == stack_pointer_rtx)
  25678. +       {
  25679. +         xoperands[1] = operands[1];
  25680. +         xoperands[2]
  25681. + --- 933,940 ----
  25682. +        of several bytes a byte at a time.  */
  25683. +     if (GET_CODE (operands[0]) == MEM
  25684. +         && GET_CODE (XEXP (operands[0], 0)) == PRE_DEC
  25685. + !       && XEXP (XEXP (operands[0], 0), 0) == stack_pointer_rtx
  25686. + !       && ! ADDRESS_REG_P (operands[1]))
  25687. +       {
  25688. +         xoperands[1] = operands[1];
  25689. +         xoperands[2]
  25690. + diff -rc gcc-2.5.8/config/m68k/next.h gcc-2.5.8-ada/config/m68k/next.h
  25691. + *** gcc-2.5.8/config/m68k/next.h    Sat Oct  2 08:20:32 1993
  25692. + --- gcc-2.5.8-ada/config/m68k/next.h    Fri Jul  1 15:16:37 1994
  25693. + ***************
  25694. + *** 175,181 ****
  25695. +   
  25696. +   #undef    GO_IF_INDEXABLE_BASE(X, ADDR)
  25697. +   #define GO_IF_INDEXABLE_BASE(X, ADDR)    \
  25698. + ! { if (GET_CODE (X) == REG && REG_OK_FOR_BASE_P (X)) goto ADDR; }
  25699. +   
  25700. +   /* This accounts for the return pc and saved fp on the m68k. */
  25701. +   
  25702. + --- 175,181 ----
  25703. +   
  25704. +   #undef    GO_IF_INDEXABLE_BASE(X, ADDR)
  25705. +   #define GO_IF_INDEXABLE_BASE(X, ADDR)    \
  25706. + ! { if (LEGITIMATE_BASE_REG_P (X)) goto ADDR; }
  25707. +   
  25708. +   /* This accounts for the return pc and saved fp on the m68k. */
  25709. +   
  25710. + diff -rc gcc-2.5.8/config/rs6000/rs6000.md gcc-2.5.8-ada/config/rs6000/rs6000.md
  25711. + *** gcc-2.5.8/config/rs6000/rs6000.md    Tue Dec 21 00:25:10 1993
  25712. + --- gcc-2.5.8-ada/config/rs6000/rs6000.md    Fri Jul  1 15:17:07 1994
  25713. + ***************
  25714. + *** 3191,3197 ****
  25715. +   ;; are preferred.  Otherwise, we'd try to reload the output instead of
  25716. +   ;; giving the SCRATCH mq.
  25717. +   (define_insn ""
  25718. + !   [(set (match_operand:TI 0 "reg_or_mem_operand" "=Q,m,r,r,r")
  25719. +       (match_operand:TI 1 "reg_or_mem_operand" "r,r,r,Q,m"))
  25720. +      (clobber (match_scratch:SI 2 "=q,q#X,X,X,X"))]
  25721. +     "TARGET_POWER && (gpc_reg_operand (operands[0], TImode)
  25722. + --- 3191,3197 ----
  25723. +   ;; are preferred.  Otherwise, we'd try to reload the output instead of
  25724. +   ;; giving the SCRATCH mq.
  25725. +   (define_insn ""
  25726. + !   [(set (match_operand:TI 0 "reg_or_mem_operand" "=Q,m,????r,????r,????r")
  25727. +       (match_operand:TI 1 "reg_or_mem_operand" "r,r,r,Q,m"))
  25728. +      (clobber (match_scratch:SI 2 "=q,q#X,X,X,X"))]
  25729. +     "TARGET_POWER && (gpc_reg_operand (operands[0], TImode)
  25730. + diff -rc gcc-2.5.8/config/sparc/sparc.c gcc-2.5.8-ada/config/sparc/sparc.c
  25731. + *** gcc-2.5.8/config/sparc/sparc.c    Fri Dec  3 11:34:04 1993
  25732. + --- gcc-2.5.8-ada/config/sparc/sparc.c    Fri Jul  1 15:13:39 1994
  25733. + ***************
  25734. + *** 2876,2881 ****
  25735. + --- 2876,2885 ----
  25736. +       abort ();
  25737. +   }
  25738. +   
  25739. + + /* Return the value of a code used in the .proc pseudo-op that says
  25740. + +    what kind of result this function returns.  For non-C types, we pick
  25741. + +    the closest C type.  */
  25742. + + 
  25743. +   #ifndef CHAR_TYPE_SIZE
  25744. +   #define CHAR_TYPE_SIZE BITS_PER_UNIT
  25745. +   #endif
  25746. + ***************
  25747. + *** 2947,2952 ****
  25748. + --- 2951,2957 ----
  25749. +         return (qualifiers | 8);
  25750. +   
  25751. +       case UNION_TYPE:
  25752. + +     case QUAL_UNION_TYPE:
  25753. +         return (qualifiers | 9);
  25754. +   
  25755. +       case ENUMERAL_TYPE:
  25756. + ***************
  25757. + *** 2965,3042 ****
  25758. +           }
  25759. +   
  25760. +         /* Carefully distinguish all the standard types of C,
  25761. + !          without messing up if the language is not C.
  25762. + !          Note that we check only for the names that contain spaces;
  25763. + !          other names might occur by coincidence in other languages.  */
  25764. + !       if (TYPE_NAME (type) != 0
  25765. + !           && TREE_CODE (TYPE_NAME (type)) == TYPE_DECL
  25766. + !           && DECL_NAME (TYPE_NAME (type)) != 0
  25767. + !           && TREE_CODE (DECL_NAME (TYPE_NAME (type))) == IDENTIFIER_NODE)
  25768. + !         {
  25769. + !           char *name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
  25770. + !   
  25771. + !           if (!strcmp (name, "unsigned char"))
  25772. + !         return (qualifiers | 12);
  25773. + !           if (!strcmp (name, "signed char"))
  25774. + !         return (qualifiers | 2);
  25775. + !           if (!strcmp (name, "unsigned int"))
  25776. + !         return (qualifiers | 14);
  25777. + !           if (!strcmp (name, "short int"))
  25778. + !         return (qualifiers | 3);
  25779. + !           if (!strcmp (name, "short unsigned int"))
  25780. + !         return (qualifiers | 13);
  25781. + !           if (!strcmp (name, "long int"))
  25782. + !         return (qualifiers | 5);
  25783. + !           if (!strcmp (name, "long unsigned int"))
  25784. + !         return (qualifiers | 15);
  25785. + !           if (!strcmp (name, "long long int"))
  25786. + !         return (qualifiers | 5);    /* Who knows? */
  25787. + !           if (!strcmp (name, "long long unsigned int"))
  25788. + !         return (qualifiers | 15);    /* Who knows? */
  25789. + !         }
  25790. +     
  25791. + !       /* Most integer types will be sorted out above, however, for the
  25792. + !          sake of special `array index' integer types, the following code
  25793. + !          is also provided.  */
  25794. +     
  25795. + !       if (TYPE_PRECISION (type) == INT_TYPE_SIZE)
  25796. +           return (qualifiers | (TREE_UNSIGNED (type) ? 14 : 4));
  25797. +     
  25798. + !       if (TYPE_PRECISION (type) == LONG_TYPE_SIZE)
  25799. + !         return (qualifiers | (TREE_UNSIGNED (type) ? 15 : 5));
  25800. + !   
  25801. + !       if (TYPE_PRECISION (type) == LONG_LONG_TYPE_SIZE)
  25802. +           return (qualifiers | (TREE_UNSIGNED (type) ? 15 : 5));
  25803. +     
  25804. + -       if (TYPE_PRECISION (type) == SHORT_TYPE_SIZE)
  25805. + -         return (qualifiers | (TREE_UNSIGNED (type) ? 13 : 3));
  25806. + -   
  25807. + -       if (TYPE_PRECISION (type) == CHAR_TYPE_SIZE)
  25808. + -         return (qualifiers | (TREE_UNSIGNED (type) ? 12 : 2));
  25809. + -   
  25810. + -       abort ();
  25811. + -   
  25812. +       case REAL_TYPE:
  25813. +         /* Carefully distinguish all the standard types of C,
  25814. +            without messing up if the language is not C.  */
  25815. + !       if (TYPE_NAME (type) != 0
  25816. + !           && TREE_CODE (TYPE_NAME (type)) == TYPE_DECL
  25817. + !           && DECL_NAME (TYPE_NAME (type)) != 0
  25818. + !           && TREE_CODE (DECL_NAME (TYPE_NAME (type))) == IDENTIFIER_NODE)
  25819. + !         {
  25820. + !           char *name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
  25821. + !   
  25822. + !           if (!strcmp (name, "long double"))
  25823. + !         return (qualifiers | 7);    /* Who knows? */
  25824. + !         }
  25825. + !   
  25826. + !       if (TYPE_PRECISION (type) == DOUBLE_TYPE_SIZE)
  25827. + !         return (qualifiers | 7);
  25828. +         if (TYPE_PRECISION (type) == FLOAT_TYPE_SIZE)
  25829. +           return (qualifiers | 6);
  25830. + !       if (TYPE_PRECISION (type) == LONG_DOUBLE_TYPE_SIZE)
  25831. + !         return (qualifiers | 7);    /* Who knows? */
  25832. + !       abort ();
  25833. +     
  25834. +       case COMPLEX_TYPE:    /* GNU Fortran COMPLEX type.  */
  25835. +         /* ??? We need to distinguish between double and float complex types,
  25836. + --- 2970,3006 ----
  25837. +           }
  25838. +   
  25839. +         /* Carefully distinguish all the standard types of C,
  25840. + !          without messing up if the language is not C.  We do this by
  25841. + !          testing TYPE_PRECISION and TREE_UNSIGNED.  The old code used to
  25842. + !          look at both the names and the above fields, but that's redundant.
  25843. + !          Any type whose size is between two C types will be considered
  25844. + !          to be the wider of the two types.  Also, we do not have a
  25845. + !          special code to use for "long long", so anything wider than
  25846. + !          long is treated the same.  Note that we can't distinguish
  25847. + !          between "int" and "long" in this code if they are the same
  25848. + !          size, but that's fine, since neither can the assembler.  */
  25849. + ! 
  25850. + !       if (TYPE_PRECISION (type) <= CHAR_TYPE_SIZE)
  25851. + !         return (qualifiers | (TREE_UNSIGNED (type) ? 12 : 2));
  25852. +     
  25853. + !       else if (TYPE_PRECISION (type) <= SHORT_TYPE_SIZE)
  25854. + !         return (qualifiers | (TREE_UNSIGNED (type) ? 13 : 3));
  25855. +     
  25856. + !       else if (TYPE_PRECISION (type) <= INT_TYPE_SIZE)
  25857. +           return (qualifiers | (TREE_UNSIGNED (type) ? 14 : 4));
  25858. +     
  25859. + !       else
  25860. +           return (qualifiers | (TREE_UNSIGNED (type) ? 15 : 5));
  25861. +     
  25862. +       case REAL_TYPE:
  25863. +         /* Carefully distinguish all the standard types of C,
  25864. +            without messing up if the language is not C.  */
  25865. + ! 
  25866. +         if (TYPE_PRECISION (type) == FLOAT_TYPE_SIZE)
  25867. +           return (qualifiers | 6);
  25868. + ! 
  25869. + !       else 
  25870. + !         return (qualifiers | 7);
  25871. +     
  25872. +       case COMPLEX_TYPE:    /* GNU Fortran COMPLEX type.  */
  25873. +         /* ??? We need to distinguish between double and float complex types,
  25874. + diff -rc gcc-2.5.8/configure.bat gcc-2.5.8-ada/configure.bat
  25875. + *** gcc-2.5.8/configure.bat    Sun Dec 12 11:11:55 1993
  25876. + --- gcc-2.5.8-ada/configure.bat    Fri Jul  1 15:14:26 1994
  25877. + ***************
  25878. + *** 49,54 ****
  25879. + --- 49,60 ----
  25880. +   echo "s/tmp-/t-/g                    ">> config.sed
  25881. +   
  25882. +   sed -e "s/^\"//" -e "s/\"$//" -e "s/[     ]*$//" config.sed > config2.sed
  25883. + + 
  25884. + + echo s/echo "\(.*\)"/echo \1/ >>config2.sed
  25885. + + echo s/"\\"$(ADA_RTL_OBJ_DIR)\\""/\\"$(ADA_RTL_OBJ_DIR)\\"/ >>config2.sed
  25886. + + echo s/return \\"$(ADA_INCLUDE_DIR)\/\\"/return "$(ADA_INCLUDE_DIR)\/"/ >>config2.sed
  25887. + + echo s/return \\"$(ADA_RTL_OBJ_DIR)\/\\"/return "$(ADA_RTL_OBJ_DIR)\/"/ >>config2.sed
  25888. + + 
  25889. +   sed -f config2.sed Makefile.in >> Makefile
  25890. +   del config.sed
  25891. +   del config2.sed
  25892. + diff -rc gcc-2.5.8/expr.c gcc-2.5.8-ada/expr.c
  25893. + *** gcc-2.5.8/expr.c    Tue Jan 11 00:26:14 1994
  25894. + --- gcc-2.5.8-ada/expr.c    Tue Jul  5 08:50:38 1994
  25895. + ***************
  25896. + *** 8223,8228 ****
  25897. + --- 8223,8229 ----
  25898. +     rtx comparison = 0;
  25899. +     int i;
  25900. +     tree type;
  25901. + +   enum machine_mode mode;
  25902. +   
  25903. +     emit_queue ();
  25904. +   
  25905. + ***************
  25906. + *** 8299,8305 ****
  25907. +         && TREE_CODE (TREE_OPERAND (exp, 1)) == INTEGER_CST
  25908. +         && TYPE_PRECISION (TREE_TYPE (exp)) <= HOST_BITS_PER_WIDE_INT
  25909. +         && (i = floor_log2 (TREE_INT_CST_LOW (TREE_OPERAND (exp, 1)))) >= 0
  25910. + !       && (type = type_for_size (i + 1, 1)) != 0
  25911. +         && TYPE_PRECISION (type) < TYPE_PRECISION (TREE_TYPE (exp))
  25912. +         && (cmp_optab->handlers[(int) TYPE_MODE (type)].insn_code
  25913. +             != CODE_FOR_nothing))
  25914. + --- 8300,8307 ----
  25915. +         && TREE_CODE (TREE_OPERAND (exp, 1)) == INTEGER_CST
  25916. +         && TYPE_PRECISION (TREE_TYPE (exp)) <= HOST_BITS_PER_WIDE_INT
  25917. +         && (i = floor_log2 (TREE_INT_CST_LOW (TREE_OPERAND (exp, 1)))) >= 0
  25918. + !       && (mode = mode_for_size (i + 1, MODE_INT, 0)) != BLKmode
  25919. + !       && (type = type_for_mode (mode, 1)) != 0
  25920. +         && TYPE_PRECISION (type) < TYPE_PRECISION (TREE_TYPE (exp))
  25921. +         && (cmp_optab->handlers[(int) TYPE_MODE (type)].insn_code
  25922. +             != CODE_FOR_nothing))
  25923. + diff -rc gcc-2.5.8/stmt.c gcc-2.5.8-ada/stmt.c
  25924. + *** gcc-2.5.8/stmt.c    Thu Nov 25 23:07:56 1993
  25925. + --- gcc-2.5.8-ada/stmt.c    Fri Jul  1 15:17:59 1994
  25926. + ***************
  25927. + *** 497,502 ****
  25928. + --- 497,503 ----
  25929. +   {
  25930. +     /* We are not currently within any block, conditional, loop or case.  */
  25931. +     block_stack = 0;
  25932. + +   stack_block_stack = 0;
  25933. +     loop_stack = 0;
  25934. +     case_stack = 0;
  25935. +     cond_stack = 0;
  25936. + diff -rc gcc-2.5.8/stor-layout.c gcc-2.5.8-ada/stor-layout.c
  25937. + *** gcc-2.5.8/stor-layout.c    Wed Sep 22 18:27:58 1993
  25938. + --- gcc-2.5.8-ada/stor-layout.c    Fri Jul  1 15:18:32 1994
  25939. + ***************
  25940. + *** 82,96 ****
  25941. +   variable_size (size)
  25942. +        tree size;
  25943. +   {
  25944. + -   size = save_expr (size);
  25945. + - 
  25946. +     /* If the language-processor is to take responsibility for variable-sized
  25947. +        items (e.g., languages which have elaboration procedures like Ada),
  25948. +        just return SIZE unchanged.  */
  25949. +     if (global_bindings_p () < 0)
  25950. +       return size;
  25951. +   
  25952. + !   else if (global_bindings_p ())
  25953. +       {
  25954. +         if (TREE_CONSTANT (size))
  25955. +       error ("type size can't be explicitly evaluated");
  25956. + --- 82,96 ----
  25957. +   variable_size (size)
  25958. +        tree size;
  25959. +   {
  25960. +     /* If the language-processor is to take responsibility for variable-sized
  25961. +        items (e.g., languages which have elaboration procedures like Ada),
  25962. +        just return SIZE unchanged.  */
  25963. +     if (global_bindings_p () < 0)
  25964. +       return size;
  25965. +   
  25966. + !   size = save_expr (size);
  25967. + ! 
  25968. + !   if (global_bindings_p ())
  25969. +       {
  25970. +         if (TREE_CONSTANT (size))
  25971. +       error ("type size can't be explicitly evaluated");
  25972. + diff -rc gcc-2.5.8/tree.c gcc-2.5.8-ada/tree.c
  25973. + *** gcc-2.5.8/tree.c    Tue Feb 22 11:24:31 1994
  25974. + --- gcc-2.5.8-ada/tree.c    Fri Jul  1 15:19:11 1994
  25975. + ***************
  25976. + *** 1826,1833 ****
  25977. +   {
  25978. +     switch (TREE_CODE (arg))
  25979. +       {
  25980. + -     case VAR_DECL:
  25981. +       case FUNCTION_DECL:
  25982. +         return TREE_STATIC (arg) || DECL_EXTERNAL (arg);
  25983. +   
  25984. +       case CONSTRUCTOR:
  25985. + --- 1826,1838 ----
  25986. +   {
  25987. +     switch (TREE_CODE (arg))
  25988. +       {
  25989. +       case FUNCTION_DECL:
  25990. + +       /* Nested functions aren't static.  Since taking their address
  25991. + +      involves a trampoline.  */
  25992. + +       if (decl_function_context (arg) != 0)
  25993. + +     return 0;
  25994. + +       /* ... fall through ... */
  25995. + +     case VAR_DECL:
  25996. +         return TREE_STATIC (arg) || DECL_EXTERNAL (arg);
  25997. +   
  25998. +       case CONSTRUCTOR:
  25999. + ***************
  26000. + *** 3606,3618 ****
  26001. +        tree c, type;
  26002. +   {
  26003. +     if (TREE_UNSIGNED (type))
  26004. + !     return (!INT_CST_LT_UNSIGNED (TYPE_MAX_VALUE (type), c)
  26005. + !         && !INT_CST_LT_UNSIGNED (c, TYPE_MIN_VALUE (type))
  26006. + !         && (TREE_INT_CST_HIGH (c) >= 0 || TREE_UNSIGNED (TREE_TYPE (c))));
  26007. +     else
  26008. + !     return (!INT_CST_LT (TYPE_MAX_VALUE (type), c)
  26009. + !         && !INT_CST_LT (c, TYPE_MIN_VALUE (type))
  26010. + !         && (TREE_INT_CST_HIGH (c) >= 0 || !TREE_UNSIGNED (TREE_TYPE (c))));
  26011. +   }
  26012. +   
  26013. +   /* Return the innermost context enclosing DECL that is
  26014. + --- 3611,3625 ----
  26015. +        tree c, type;
  26016. +   {
  26017. +     if (TREE_UNSIGNED (type))
  26018. + !     return (! (TREE_CODE (TYPE_MAX_VALUE (type)) == INTEGER_CST
  26019. + !            && INT_CST_LT_UNSIGNED (TYPE_MAX_VALUE (type), c))
  26020. + !         && ! (TREE_CODE (TYPE_MIN_VALUE (type)) == INTEGER_CST
  26021. + !           && INT_CST_LT_UNSIGNED (c, TYPE_MIN_VALUE (type))));
  26022. +     else
  26023. + !     return (! (TREE_CODE (TYPE_MAX_VALUE (type)) == INTEGER_CST
  26024. + !            && INT_CST_LT (TYPE_MAX_VALUE (type), c))
  26025. + !         && ! (TREE_CODE (TYPE_MIN_VALUE (type)) == INTEGER_CST
  26026. + !           && INT_CST_LT (c, TYPE_MIN_VALUE (type))));
  26027. +   }
  26028. +   
  26029. +   /* Return the innermost context enclosing DECL that is
  26030. + diff -rc gcc-2.5.8/varasm.c gcc-2.5.8-ada/varasm.c
  26031. + *** gcc-2.5.8/varasm.c    Tue Jan 11 00:17:55 1994
  26032. + --- gcc-2.5.8-ada/varasm.c    Fri Jul  1 15:19:35 1994
  26033. + ***************
  26034. + *** 3269,3274 ****
  26035. + --- 3269,3284 ----
  26036. +     if (size == 0)
  26037. +       return;
  26038. +   
  26039. + +   /* Eliminate the NON_LVALUE_EXPR_EXPR that makes a cast not be an lvalue.
  26040. + +      That way we get the constant (we hope) inside it.  Also, strip
  26041. + +      off any NOP_EXPR that converts between two record or union types.  */
  26042. + +   while ((TREE_CODE (exp) == NOP_EXPR
  26043. + +         && (TREE_TYPE (exp) == TREE_TYPE (TREE_OPERAND (exp, 0))
  26044. + +             || TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE
  26045. + +             || TREE_CODE (TREE_TYPE (exp)) == UNION_TYPE
  26046. + +             || TREE_CODE (TREE_TYPE (exp)) == QUAL_UNION_TYPE))
  26047. + +        || TREE_CODE (exp) == NON_LVALUE_EXPR)
  26048. + +     exp = TREE_OPERAND (exp, 0);
  26049. +     /* Allow a constructor with no elements for any data type.
  26050. +        This means to fill the space with zeros.  */
  26051. +     if (TREE_CODE (exp) == CONSTRUCTOR && CONSTRUCTOR_ELTS (exp) == 0)
  26052. + ***************
  26053. + *** 3279,3290 ****
  26054. +       assemble_zeros (size);
  26055. +         return;
  26056. +       }
  26057. + - 
  26058. + -   /* Eliminate the NOP_EXPR that makes a cast not be an lvalue.
  26059. + -      That way we get the constant (we hope) inside it.  */
  26060. + -   if (TREE_CODE (exp) == NOP_EXPR
  26061. + -       && TREE_TYPE (exp) == TREE_TYPE (TREE_OPERAND (exp, 0)))
  26062. + -     exp = TREE_OPERAND (exp, 0);
  26063. +   
  26064. +     switch (code)
  26065. +       {
  26066. + --- 3289,3294 ----
  26067. diff -rc --new-file /src/baseline/gnat-1.80/examples/Makefile gnat-1.80/examples/Makefile
  26068. *** /src/baseline/gnat-1.80/examples/Makefile    Fri Jun 10 15:40:51 1994
  26069. --- gnat-1.80/examples/Makefile    Thu Jul  7 10:46:57 1994
  26070. ***************
  26071. *** 52,61 ****
  26072.   
  26073.   % : %.o
  26074.       gnatbl $@.ali -o $@ $($@_DEP)
  26075. !     ./$@
  26076.   
  26077.   
  26078.   clean : force
  26079. !     @/bin/rm -f *.$o *.ali b_*.c *.s $(LIST_EXEC)
  26080.   
  26081.   force :
  26082. --- 52,61 ----
  26083.   
  26084.   % : %.o
  26085.       gnatbl $@.ali -o $@ $($@_DEP)
  26086. ! #    ./$@
  26087.   
  26088.   
  26089.   clean : force
  26090. !     rm -f *.$o *.ali b_*.c *.s $(LIST_EXEC)
  26091.   
  26092.   force :
  26093. diff -rc --new-file /src/baseline/gnat-1.80/src/Makefile.os2 gnat-1.80/src/Makefile.os2
  26094. *** /src/baseline/gnat-1.80/src/Makefile.os2    Fri Jun 10 15:44:44 1994
  26095. --- gnat-1.80/src/Makefile.os2    Thu Jun 23 14:52:13 1994
  26096. ***************
  26097. *** 561,566 ****
  26098. --- 561,567 ----
  26099.   a-textio.obj \
  26100.   a-teioau.obj calendar.obj interfac.obj ioexcept.obj \
  26101.   i-c.obj \
  26102. + i-cstrin.obj \
  26103.   system.obj \
  26104.   s-addima.obj \
  26105.   s-pooglo.obj \
  26106. ***************
  26107. *** 723,731 ****
  26108.     s-posrte.ads s-posrte.adb \
  26109.     s-postim.ads s-postim.adb \
  26110.     s-pthrea.ads s-pthrea.adb \
  26111. -   s-reatim.ads s-reatim.adb \
  26112. -   s-retico.ads s-retico.adb \
  26113. -   s-retide.ads s-retide.adb \
  26114.     s-secsta.ads s-secsta.adb \
  26115.     s-stalib.ads \
  26116.     s-std.ads s-std.adb \
  26117. --- 724,729 ----
  26118. ***************
  26119. *** 935,941 ****
  26120.   # File containing patches to be applied.
  26121.   PATCH_FILE = patches-gcc258.os2
  26122.   FILES_TO_BE_PATCHED = gcc.c cccp.c toplev.c tree.c stor-layout.c varasm.c \
  26123. !   $(srcdir)\config\i386\os2.h $(srcdir)\config\i386\xm-os2.h
  26124.   !IFDEF PATCH_FILE
  26125.   $(FILES_TO_BE_PATCHED): $(PATCH_FILE)
  26126.       $(PATCH) < $(PATCH_FILE)
  26127. --- 933,940 ----
  26128.   # File containing patches to be applied.
  26129.   PATCH_FILE = patches-gcc258.os2
  26130.   FILES_TO_BE_PATCHED = gcc.c cccp.c toplev.c tree.c stor-layout.c varasm.c \
  26131. !   $(srcdir)\config\i386\os2.h $(srcdir)\config\i386\xm-os2.h \
  26132. !   $(srcdir)\config\i386\i386.h
  26133.   !IFDEF PATCH_FILE
  26134.   $(FILES_TO_BE_PATCHED): $(PATCH_FILE)
  26135.       $(PATCH) < $(PATCH_FILE)
  26136. diff -rc --new-file /src/baseline/gnat-1.80/src/README.OS2 gnat-1.80/src/README.OS2
  26137. *** /src/baseline/gnat-1.80/src/README.OS2    Fri Jun 10 15:44:53 1994
  26138. --- gnat-1.80/src/README.OS2    Thu Jun 23 14:56:10 1994
  26139. ***************
  26140. *** 13,26 ****
  26141.   2) Make the root directory of the drive on which you installed the executables
  26142.      of GNAT for OS/2 the current directory.
  26143.   
  26144. ! 3) Unzip the file containing the latest version of the sources for GNAT
  26145. !    (available at the ftp site mentioned above) with the command
  26146. !       UNZIP drive:path\zipfilename
  26147. !    where "drive" and "path" is the drive and path in which the file
  26148. !    zipfilename resides.  This will create a directory called
  26149. !    gnat-version_number, where version_number is the version number of the GNAT
  26150. !    sources.  This directory will contain all the source code for GNAT.
  26151. !    (If you are reading this file, you have presumably already done this step.)
  26152.   
  26153.   4) Copy the sources for GNAT to the directory in which the sources for gcc
  26154.      reside with the command
  26155. --- 13,22 ----
  26156.   2) Make the root directory of the drive on which you installed the executables
  26157.      of GNAT for OS/2 the current directory.
  26158.   
  26159. ! 3) To unpack the file containing the latest version of the sources for GNAT
  26160. !    (available at the ftp site mentioned above), follow the instructions in the
  26161. !    README file available at the same ftp site.  (If you are reading this file,
  26162. !    you have presumably already done this step.)
  26163.   
  26164.   4) Copy the sources for GNAT to the directory in which the sources for gcc
  26165.      reside with the command
  26166. diff -rc --new-file /src/baseline/gnat-1.80/src/alloc.ads gnat-1.80/src/alloc.ads
  26167. *** /src/baseline/gnat-1.80/src/alloc.ads    Fri Jun 10 15:42:40 1994
  26168. --- gnat-1.80/src/alloc.ads    Wed Jul  6 16:56:49 1994
  26169. ***************
  26170. *** 75,81 ****
  26171.      Alloc_Nodes_Initial : constant := 8_000;
  26172.      --  Initial allocation in nodes for tree (Atree)
  26173.   
  26174. !    Alloc_Nodes_Increment : constant := 200;
  26175.      --  Incremental allocation for nodes table (Atree)
  26176.   
  26177.      Alloc_String_Chars_Initial : constant := 64_000;
  26178. --- 75,81 ----
  26179.      Alloc_Nodes_Initial : constant := 8_000;
  26180.      --  Initial allocation in nodes for tree (Atree)
  26181.   
  26182. !    Alloc_Nodes_Increment : constant := 150;
  26183.      --  Incremental allocation for nodes table (Atree)
  26184.   
  26185.      Alloc_String_Chars_Initial : constant := 64_000;
  26186. diff -rc --new-file /src/baseline/gnat-1.80/src/atree.adb gnat-1.80/src/atree.adb
  26187. *** /src/baseline/gnat-1.80/src/atree.adb    Fri Jun 10 15:42:42 1994
  26188. --- gnat-1.80/src/atree.adb    Wed Jul  6 16:56:58 1994
  26189. ***************
  26190. *** 1147,2813 ****
  26191.   
  26192.      package body Unchecked_Access is
  26193.   
  26194. !       function Field1 (N : Node_Id) return Union_Id is
  26195.         begin
  26196.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26197. !          return Nodes.Table (N).Field1;
  26198. !       end Field1;
  26199.   
  26200. !       function Field2 (N : Node_Id) return Union_Id is
  26201.         begin
  26202.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26203. !          return Nodes.Table (N).Field2;
  26204. !       end Field2;
  26205.   
  26206. !       function Field3 (N : Node_Id) return Union_Id is
  26207.         begin
  26208.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26209. !          return Nodes.Table (N).Field3;
  26210. !       end Field3;
  26211.   
  26212. !       function Field4 (N : Node_Id) return Union_Id is
  26213.         begin
  26214.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26215. !          return Nodes.Table (N).Field4;
  26216. !       end Field4;
  26217.   
  26218. !       function Field5 (N : Node_Id) return Union_Id is
  26219.         begin
  26220.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26221. !          return Nodes.Table (N).Field5;
  26222. !       end Field5;
  26223.   
  26224. !       function Field6 (N : Node_Id) return Union_Id is
  26225.         begin
  26226.            pragma Assert (Nkind (N) in N_Entity);
  26227. !          return Nodes.Table (N + 1).Field6;
  26228. !       end Field6;
  26229.   
  26230. !       function Field7 (N : Node_Id) return Union_Id is
  26231.         begin
  26232.            pragma Assert (Nkind (N) in N_Entity);
  26233. !          return Nodes.Table (N + 1).Field7;
  26234. !       end Field7;
  26235.   
  26236. !       function Field8 (N : Node_Id) return Union_Id is
  26237.         begin
  26238.            pragma Assert (Nkind (N) in N_Entity);
  26239. !          return Nodes.Table (N + 1).Field8;
  26240. !       end Field8;
  26241.   
  26242. !       function Field9 (N : Node_Id) return Union_Id is
  26243.         begin
  26244.            pragma Assert (Nkind (N) in N_Entity);
  26245. !          return Nodes.Table (N + 1).Field9;
  26246. !       end Field9;
  26247.   
  26248. !       function Field10 (N : Node_Id) return Union_Id is
  26249.         begin
  26250.            pragma Assert (Nkind (N) in N_Entity);
  26251. !          return Nodes.Table (N + 1).Field10;
  26252. !       end Field10;
  26253.   
  26254. !       function Field11 (N : Node_Id) return Union_Id is
  26255.         begin
  26256.            pragma Assert (Nkind (N) in N_Entity);
  26257. !          return Nodes.Table (N + 1).Field11;
  26258. !       end Field11;
  26259.   
  26260. !       function Field12 (N : Node_Id) return Union_Id is
  26261.         begin
  26262.            pragma Assert (Nkind (N) in N_Entity);
  26263. !          return Nodes.Table (N + 1).Field12;
  26264. !       end Field12;
  26265.   
  26266. !       function Field13 (N : Node_Id) return Union_Id is
  26267.         begin
  26268.            pragma Assert (Nkind (N) in N_Entity);
  26269. !          return Nodes.Table (N + 2).Field6;
  26270. !       end Field13;
  26271.   
  26272. !       function Field14 (N : Node_Id) return Union_Id is
  26273.         begin
  26274.            pragma Assert (Nkind (N) in N_Entity);
  26275. !          return Nodes.Table (N + 2).Field7;
  26276. !       end Field14;
  26277.   
  26278. !       function Field15 (N : Node_Id) return Union_Id is
  26279.         begin
  26280.            pragma Assert (Nkind (N) in N_Entity);
  26281. !          return Nodes.Table (N + 2).Field8;
  26282. !       end Field15;
  26283.   
  26284. !       function Field16 (N : Node_Id) return Union_Id is
  26285.         begin
  26286.            pragma Assert (Nkind (N) in N_Entity);
  26287. !          return Nodes.Table (N + 2).Field9;
  26288. !       end Field16;
  26289.   
  26290. !       function Field17 (N : Node_Id) return Union_Id is
  26291.         begin
  26292.            pragma Assert (Nkind (N) in N_Entity);
  26293. !          return Nodes.Table (N + 2).Field10;
  26294. !       end Field17;
  26295.   
  26296. !       function Field18 (N : Node_Id) return Union_Id is
  26297.         begin
  26298.            pragma Assert (Nkind (N) in N_Entity);
  26299. !          return Nodes.Table (N + 2).Field11;
  26300. !       end Field18;
  26301.   
  26302. !       function Field19 (N : Node_Id) return Union_Id is
  26303.         begin
  26304.            pragma Assert (Nkind (N) in N_Entity);
  26305. !          return Nodes.Table (N + 2).Field12;
  26306. !       end Field19;
  26307.   
  26308. !       function Node1 (N : Node_Id) return Node_Id is
  26309.         begin
  26310.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26311. !          return Node_Id (Nodes.Table (N).Field1);
  26312. !       end Node1;
  26313.   
  26314. !       function Node2 (N : Node_Id) return Node_Id is
  26315.         begin
  26316.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26317. !          return Node_Id (Nodes.Table (N).Field2);
  26318. !       end Node2;
  26319.   
  26320. !       function Node3 (N : Node_Id) return Node_Id is
  26321.         begin
  26322.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26323. !          return Node_Id (Nodes.Table (N).Field3);
  26324. !       end Node3;
  26325.   
  26326. !       function Node4 (N : Node_Id) return Node_Id is
  26327.         begin
  26328.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26329. !          return Node_Id (Nodes.Table (N).Field4);
  26330. !       end Node4;
  26331.   
  26332. !       function Node5 (N : Node_Id) return Node_Id is
  26333.         begin
  26334.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26335. !          return Node_Id (Nodes.Table (N).Field5);
  26336. !       end Node5;
  26337.   
  26338. !       function Node6 (N : Node_Id) return Node_Id is
  26339.         begin
  26340.            pragma Assert (Nkind (N) in N_Entity);
  26341. !          return Node_Id (Nodes.Table (N + 1).Field6);
  26342. !       end Node6;
  26343.   
  26344. !       function Node7 (N : Node_Id) return Node_Id is
  26345.         begin
  26346.            pragma Assert (Nkind (N) in N_Entity);
  26347. !          return Node_Id (Nodes.Table (N + 1).Field7);
  26348. !       end Node7;
  26349.   
  26350. !       function Node8 (N : Node_Id) return Node_Id is
  26351.         begin
  26352.            pragma Assert (Nkind (N) in N_Entity);
  26353. !          return Node_Id (Nodes.Table (N + 1).Field8);
  26354. !       end Node8;
  26355.   
  26356. !       function Node9 (N : Node_Id) return Node_Id is
  26357.         begin
  26358.            pragma Assert (Nkind (N) in N_Entity);
  26359. !          return Node_Id (Nodes.Table (N + 1).Field9);
  26360. !       end Node9;
  26361.   
  26362. !       function Node10 (N : Node_Id) return Node_Id is
  26363.         begin
  26364.            pragma Assert (Nkind (N) in N_Entity);
  26365. !          return Node_Id (Nodes.Table (N + 1).Field10);
  26366. !       end Node10;
  26367.   
  26368. !       function Node11 (N : Node_Id) return Node_Id is
  26369.         begin
  26370.            pragma Assert (Nkind (N) in N_Entity);
  26371. !          return Node_Id (Nodes.Table (N + 1).Field11);
  26372. !       end Node11;
  26373.   
  26374. !       function Node12 (N : Node_Id) return Node_Id is
  26375.         begin
  26376.            pragma Assert (Nkind (N) in N_Entity);
  26377. !          return Node_Id (Nodes.Table (N + 1).Field12);
  26378. !       end Node12;
  26379.   
  26380. !       function Node13 (N : Node_Id) return Node_Id is
  26381.         begin
  26382.            pragma Assert (Nkind (N) in N_Entity);
  26383. !          return Node_Id (Nodes.Table (N + 2).Field6);
  26384. !       end Node13;
  26385.   
  26386. !       function Node14 (N : Node_Id) return Node_Id is
  26387.         begin
  26388.            pragma Assert (Nkind (N) in N_Entity);
  26389. !          return Node_Id (Nodes.Table (N + 2).Field7);
  26390. !       end Node14;
  26391.   
  26392. !       function Node15 (N : Node_Id) return Node_Id is
  26393.         begin
  26394.            pragma Assert (Nkind (N) in N_Entity);
  26395. !          return Node_Id (Nodes.Table (N + 2).Field8);
  26396. !       end Node15;
  26397.   
  26398. !       function Node16 (N : Node_Id) return Node_Id is
  26399.         begin
  26400.            pragma Assert (Nkind (N) in N_Entity);
  26401. !          return Node_Id (Nodes.Table (N + 2).Field9);
  26402. !       end Node16;
  26403.   
  26404. !       function Node17 (N : Node_Id) return Node_Id is
  26405.         begin
  26406.            pragma Assert (Nkind (N) in N_Entity);
  26407. !          return Node_Id (Nodes.Table (N + 2).Field10);
  26408. !       end Node17;
  26409.   
  26410. !       function Node18 (N : Node_Id) return Node_Id is
  26411.         begin
  26412.            pragma Assert (Nkind (N) in N_Entity);
  26413. !          return Node_Id (Nodes.Table (N + 2).Field11);
  26414. !       end Node18;
  26415.   
  26416. !       function Node19 (N : Node_Id) return Node_Id is
  26417.         begin
  26418.            pragma Assert (Nkind (N) in N_Entity);
  26419. !          return Node_Id (Nodes.Table (N + 2).Field12);
  26420. !       end Node19;
  26421.   
  26422. !       function List1 (N : Node_Id) return List_Id is
  26423.         begin
  26424.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26425. !          return List_Id (Nodes.Table (N).Field1);
  26426. !       end List1;
  26427.   
  26428. !       function List2 (N : Node_Id) return List_Id is
  26429.         begin
  26430.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26431. !          return List_Id (Nodes.Table (N).Field2);
  26432. !       end List2;
  26433.   
  26434. !       function List3 (N : Node_Id) return List_Id is
  26435.         begin
  26436.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26437. !          return List_Id (Nodes.Table (N).Field3);
  26438. !       end List3;
  26439.   
  26440. !       function List4 (N : Node_Id) return List_Id is
  26441.         begin
  26442.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26443. !          return List_Id (Nodes.Table (N).Field4);
  26444. !       end List4;
  26445.   
  26446. !       function List5 (N : Node_Id) return List_Id is
  26447.         begin
  26448.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26449. !          return List_Id (Nodes.Table (N).Field5);
  26450. !       end List5;
  26451.   
  26452. !       function Elist6 (N : Node_Id) return Elist_Id is
  26453.         begin
  26454.            pragma Assert (Nkind (N) in N_Entity);
  26455. !          return Elist_Id (Nodes.Table (N + 1).Field6);
  26456. !       end Elist6;
  26457.   
  26458. !       function Elist13 (N : Node_Id) return Elist_Id is
  26459.         begin
  26460.            pragma Assert (Nkind (N) in N_Entity);
  26461. !          return Elist_Id (Nodes.Table (N + 2).Field6);
  26462. !       end Elist13;
  26463. ! 
  26464. !       function Name1 (N : Node_Id) return Name_Id is
  26465. !       begin
  26466. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  26467. !          return Name_Id (Nodes.Table (N).Field1);
  26468. !       end Name1;
  26469.   
  26470. !       function Name2 (N : Node_Id) return Name_Id is
  26471.         begin
  26472.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26473. !          return Name_Id (Nodes.Table (N).Field2);
  26474. !       end Name2;
  26475.   
  26476. !       function Str3 (N : Node_Id) return String_Id is
  26477.         begin
  26478.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26479. !          return String_Id (Nodes.Table (N).Field3);
  26480. !       end Str3;
  26481.   
  26482. !       function Char_Code2 (N : Node_Id) return Char_Code is
  26483.         begin
  26484.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26485. !          return Char_Code (Nodes.Table (N).Field2 - Char_Code_Bias);
  26486. !       end Char_Code2;
  26487.   
  26488. !       function Uint3 (N : Node_Id) return Uint is
  26489.         begin
  26490.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26491. !          return Uint (Nodes.Table (N).Field3);
  26492. !       end Uint3;
  26493.   
  26494. !       function Uint4 (N : Node_Id) return Uint is
  26495.         begin
  26496.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26497. !          return Uint (Nodes.Table (N).Field4);
  26498. !       end Uint4;
  26499.   
  26500. !       function Uint9 (N : Node_Id) return Uint is
  26501.         begin
  26502.            pragma Assert (Nkind (N) in N_Entity);
  26503. !          return Uint (Nodes.Table (N + 1).Field9);
  26504. !       end Uint9;
  26505.   
  26506. !       function Uint11 (N : Node_Id) return Uint is
  26507.         begin
  26508.            pragma Assert (Nkind (N) in N_Entity);
  26509. !          return Uint (Nodes.Table (N + 1).Field11);
  26510. !       end Uint11;
  26511.   
  26512. !       function Uint12 (N : Node_Id) return Uint is
  26513.         begin
  26514.            pragma Assert (Nkind (N) in N_Entity);
  26515. !          return Uint (Nodes.Table (N + 1).Field12);
  26516. !       end Uint12;
  26517.   
  26518. !       function Uint15 (N : Node_Id) return Uint is
  26519.         begin
  26520.            pragma Assert (Nkind (N) in N_Entity);
  26521. !          return Uint (Nodes.Table (N + 2).Field8);
  26522. !       end Uint15;
  26523.   
  26524. !       function Ureal3 (N : Node_Id) return Ureal is
  26525.         begin
  26526.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26527. !          return Ureal (Nodes.Table (N).Field3);
  26528. !       end Ureal3;
  26529.   
  26530. !       function Ureal6 (N : Node_Id) return Ureal is
  26531.         begin
  26532.            pragma Assert (Nkind (N) in N_Entity);
  26533. !          return Ureal (Nodes.Table (N + 1).Field6);
  26534. !       end Ureal6;
  26535.   
  26536. !       function Ureal7 (N : Node_Id) return Ureal is
  26537.         begin
  26538.            pragma Assert (Nkind (N) in N_Entity);
  26539. !          return Ureal (Nodes.Table (N + 1).Field7);
  26540. !       end Ureal7;
  26541.   
  26542. !       function Flag1 (N : Node_Id) return Boolean is
  26543.         begin
  26544.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26545. !          return Nodes.Table (N).Flag1;
  26546. !       end Flag1;
  26547.   
  26548. !       function Flag2 (N : Node_Id) return Boolean is
  26549.         begin
  26550.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26551. !          return Nodes.Table (N).Flag2;
  26552. !       end Flag2;
  26553.   
  26554. !       function Flag3 (N : Node_Id) return Boolean is
  26555.         begin
  26556.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26557. !          return Nodes.Table (N).Flag3;
  26558. !       end Flag3;
  26559.   
  26560. !       function Flag4 (N : Node_Id) return Boolean is
  26561.         begin
  26562.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26563. !          return Nodes.Table (N).Flag4;
  26564. !       end Flag4;
  26565.   
  26566. !       function Flag5 (N : Node_Id) return Boolean is
  26567.         begin
  26568.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26569. !          return Nodes.Table (N).Flag5;
  26570. !       end Flag5;
  26571.   
  26572. !       function Flag6 (N : Node_Id) return Boolean is
  26573.         begin
  26574.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26575. !          return Nodes.Table (N).Flag6;
  26576. !       end Flag6;
  26577.   
  26578. !       function Flag7 (N : Node_Id) return Boolean is
  26579.         begin
  26580.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26581. !          return Nodes.Table (N).Flag7;
  26582. !       end Flag7;
  26583.   
  26584. !       function Flag8 (N : Node_Id) return Boolean is
  26585.         begin
  26586.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26587. !          return Nodes.Table (N).Flag8;
  26588. !       end Flag8;
  26589.   
  26590. !       function Flag9 (N : Node_Id) return Boolean is
  26591.         begin
  26592.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26593. !          return Nodes.Table (N).Flag9;
  26594. !       end Flag9;
  26595.   
  26596. !       function Flag10 (N : Node_Id) return Boolean is
  26597.         begin
  26598.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26599. !          return Nodes.Table (N).Flag10;
  26600. !       end Flag10;
  26601.   
  26602. !       function Flag11 (N : Node_Id) return Boolean is
  26603.         begin
  26604.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26605. !          return Nodes.Table (N).Flag11;
  26606. !       end Flag11;
  26607.   
  26608. !       function Flag12 (N : Node_Id) return Boolean is
  26609.         begin
  26610.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26611. !          return Nodes.Table (N).Flag12;
  26612. !       end Flag12;
  26613.   
  26614. !       function Flag13 (N : Node_Id) return Boolean is
  26615.         begin
  26616.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26617. !          return Nodes.Table (N).Flag13;
  26618. !       end Flag13;
  26619.   
  26620. !       function Flag14 (N : Node_Id) return Boolean is
  26621.         begin
  26622.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26623. !          return Nodes.Table (N).Flag14;
  26624. !       end Flag14;
  26625.   
  26626. !       function Flag15 (N : Node_Id) return Boolean is
  26627.         begin
  26628.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26629. !          return Nodes.Table (N).Flag15;
  26630. !       end Flag15;
  26631.   
  26632. !       function Flag16 (N : Node_Id) return Boolean is
  26633.         begin
  26634.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26635. !          return Nodes.Table (N).Flag16;
  26636. !       end Flag16;
  26637.   
  26638. !       function Flag17 (N : Node_Id) return Boolean is
  26639.         begin
  26640.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26641. !          return Nodes.Table (N).Flag17;
  26642. !       end Flag17;
  26643.   
  26644. !       function Flag18 (N : Node_Id) return Boolean is
  26645.         begin
  26646.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26647. !          return Nodes.Table (N).Flag18;
  26648. !       end Flag18;
  26649.   
  26650. !       function Flag19 (N : Node_Id) return Boolean is
  26651.         begin
  26652. !          pragma Assert (Nkind (N) in N_Entity);
  26653. !          return Nodes.Table (N + 1).In_List;
  26654. !       end Flag19;
  26655.   
  26656. !       function Flag20 (N : Node_Id) return Boolean is
  26657.         begin
  26658.            pragma Assert (Nkind (N) in N_Entity);
  26659. !          return Nodes.Table (N + 1).Rewrite_Sub;
  26660. !       end Flag20;
  26661.   
  26662. !       function Flag21 (N : Node_Id) return Boolean is
  26663.         begin
  26664.            pragma Assert (Nkind (N) in N_Entity);
  26665. !          return Nodes.Table (N + 1).Rewrite_Ins;
  26666. !       end Flag21;
  26667.   
  26668. !       function Flag22 (N : Node_Id) return Boolean is
  26669.         begin
  26670.            pragma Assert (Nkind (N) in N_Entity);
  26671. !          return Nodes.Table (N + 1).Flag1;
  26672. !       end Flag22;
  26673.   
  26674. !       function Flag23 (N : Node_Id) return Boolean is
  26675.         begin
  26676.            pragma Assert (Nkind (N) in N_Entity);
  26677. !          return Nodes.Table (N + 1).Flag2;
  26678. !       end Flag23;
  26679.   
  26680. !       function Flag24 (N : Node_Id) return Boolean is
  26681.         begin
  26682.            pragma Assert (Nkind (N) in N_Entity);
  26683. !          return Nodes.Table (N + 1).Flag3;
  26684. !       end Flag24;
  26685.   
  26686. !       function Flag25 (N : Node_Id) return Boolean is
  26687.         begin
  26688.            pragma Assert (Nkind (N) in N_Entity);
  26689. !          return Nodes.Table (N + 1).Flag4;
  26690. !       end Flag25;
  26691.   
  26692. !       function Flag26 (N : Node_Id) return Boolean is
  26693.         begin
  26694.            pragma Assert (Nkind (N) in N_Entity);
  26695. !          return Nodes.Table (N + 1).Flag5;
  26696. !       end Flag26;
  26697. ! 
  26698. !       function Flag27 (N : Node_Id) return Boolean is
  26699. !       begin
  26700. !          pragma Assert (Nkind (N) in N_Entity);
  26701. !          return Nodes.Table (N + 1).Flag6;
  26702. !       end Flag27;
  26703.   
  26704. !       function Flag28 (N : Node_Id) return Boolean is
  26705.         begin
  26706.            pragma Assert (Nkind (N) in N_Entity);
  26707. !          return Nodes.Table (N + 1).Flag7;
  26708. !       end Flag28;
  26709.   
  26710. !       function Flag29 (N : Node_Id) return Boolean is
  26711.         begin
  26712.            pragma Assert (Nkind (N) in N_Entity);
  26713. !          return Nodes.Table (N + 1).Flag8;
  26714. !       end Flag29;
  26715.   
  26716. !       function Flag30 (N : Node_Id) return Boolean is
  26717.         begin
  26718.            pragma Assert (Nkind (N) in N_Entity);
  26719. !          return Nodes.Table (N + 1).Flag9;
  26720. !       end Flag30;
  26721.   
  26722. !       function Flag31 (N : Node_Id) return Boolean is
  26723.         begin
  26724.            pragma Assert (Nkind (N) in N_Entity);
  26725. !          return Nodes.Table (N + 1).Flag10;
  26726. !       end Flag31;
  26727.   
  26728. !       function Flag32 (N : Node_Id) return Boolean is
  26729.         begin
  26730.            pragma Assert (Nkind (N) in N_Entity);
  26731. !          return Nodes.Table (N + 1).Flag11;
  26732. !       end Flag32;
  26733.   
  26734. !       function Flag33 (N : Node_Id) return Boolean is
  26735.         begin
  26736.            pragma Assert (Nkind (N) in N_Entity);
  26737. !          return Nodes.Table (N + 1).Flag12;
  26738. !       end Flag33;
  26739.   
  26740. !       function Flag34 (N : Node_Id) return Boolean is
  26741.         begin
  26742.            pragma Assert (Nkind (N) in N_Entity);
  26743. !          return Nodes.Table (N + 1).Flag13;
  26744. !       end Flag34;
  26745.   
  26746. !       function Flag35 (N : Node_Id) return Boolean is
  26747.         begin
  26748.            pragma Assert (Nkind (N) in N_Entity);
  26749. !          return Nodes.Table (N + 1).Flag14;
  26750. !       end Flag35;
  26751.   
  26752. !       function Flag36 (N : Node_Id) return Boolean is
  26753.         begin
  26754.            pragma Assert (Nkind (N) in N_Entity);
  26755. !          return Nodes.Table (N + 1).Flag15;
  26756. !       end Flag36;
  26757.   
  26758. !       function Flag37 (N : Node_Id) return Boolean is
  26759.         begin
  26760.            pragma Assert (Nkind (N) in N_Entity);
  26761. !          return Nodes.Table (N + 1).Flag16;
  26762. !       end Flag37;
  26763.   
  26764. !       function Flag38 (N : Node_Id) return Boolean is
  26765.         begin
  26766.            pragma Assert (Nkind (N) in N_Entity);
  26767. !          return Nodes.Table (N + 1).Flag17;
  26768. !       end Flag38;
  26769.   
  26770. !       function Flag39 (N : Node_Id) return Boolean is
  26771.         begin
  26772.            pragma Assert (Nkind (N) in N_Entity);
  26773. !          return Nodes.Table (N + 1).Flag18;
  26774. !       end Flag39;
  26775.   
  26776. !       function Flag40 (N : Node_Id) return Boolean is
  26777.         begin
  26778.            pragma Assert (Nkind (N) in N_Entity);
  26779. !          return Nodes.Table (N + 2).In_List;
  26780. !       end Flag40;
  26781.   
  26782. !       function Flag41 (N : Node_Id) return Boolean is
  26783.         begin
  26784.            pragma Assert (Nkind (N) in N_Entity);
  26785. !          return Nodes.Table (N + 2).Rewrite_Sub;
  26786. !       end Flag41;
  26787.   
  26788. !       function Flag42 (N : Node_Id) return Boolean is
  26789.         begin
  26790.            pragma Assert (Nkind (N) in N_Entity);
  26791. !          return Nodes.Table (N + 2).Rewrite_Ins;
  26792. !       end Flag42;
  26793.   
  26794. !       function Flag43 (N : Node_Id) return Boolean is
  26795.         begin
  26796.            pragma Assert (Nkind (N) in N_Entity);
  26797. !          return Nodes.Table (N + 2).Flag1;
  26798. !       end Flag43;
  26799.   
  26800. !       function Flag44 (N : Node_Id) return Boolean is
  26801.         begin
  26802.            pragma Assert (Nkind (N) in N_Entity);
  26803. !          return Nodes.Table (N + 2).Flag2;
  26804. !       end Flag44;
  26805.   
  26806. !       function Flag45 (N : Node_Id) return Boolean is
  26807.         begin
  26808.            pragma Assert (Nkind (N) in N_Entity);
  26809. !          return Nodes.Table (N + 2).Flag3;
  26810. !       end Flag45;
  26811.   
  26812. !       function Flag46 (N : Node_Id) return Boolean is
  26813.         begin
  26814.            pragma Assert (Nkind (N) in N_Entity);
  26815. !          return Nodes.Table (N + 2).Flag4;
  26816. !       end Flag46;
  26817.   
  26818. !       function Flag47 (N : Node_Id) return Boolean is
  26819.         begin
  26820.            pragma Assert (Nkind (N) in N_Entity);
  26821. !          return Nodes.Table (N + 2).Flag5;
  26822. !       end Flag47;
  26823.   
  26824. !       function Flag48 (N : Node_Id) return Boolean is
  26825.         begin
  26826.            pragma Assert (Nkind (N) in N_Entity);
  26827. !          return Nodes.Table (N + 2).Flag6;
  26828. !       end Flag48;
  26829.   
  26830. !       function Flag49 (N : Node_Id) return Boolean is
  26831.         begin
  26832.            pragma Assert (Nkind (N) in N_Entity);
  26833. !          return Nodes.Table (N + 2).Flag7;
  26834. !       end Flag49;
  26835.   
  26836. !       function Flag50 (N : Node_Id) return Boolean is
  26837.         begin
  26838.            pragma Assert (Nkind (N) in N_Entity);
  26839. !          return Nodes.Table (N + 2).Flag8;
  26840. !       end Flag50;
  26841.   
  26842. !       function Flag51 (N : Node_Id) return Boolean is
  26843.         begin
  26844.            pragma Assert (Nkind (N) in N_Entity);
  26845. !          return Nodes.Table (N + 2).Flag9;
  26846. !       end Flag51;
  26847.   
  26848. !       function Flag52 (N : Node_Id) return Boolean is
  26849.         begin
  26850.            pragma Assert (Nkind (N) in N_Entity);
  26851. !          return Nodes.Table (N + 2).Flag10;
  26852. !       end Flag52;
  26853.   
  26854. !       function Flag53 (N : Node_Id) return Boolean is
  26855.         begin
  26856.            pragma Assert (Nkind (N) in N_Entity);
  26857. !          return Nodes.Table (N + 2).Flag11;
  26858. !       end Flag53;
  26859.   
  26860. !       function Flag54 (N : Node_Id) return Boolean is
  26861.         begin
  26862.            pragma Assert (Nkind (N) in N_Entity);
  26863. !          return Nodes.Table (N + 2).Flag12;
  26864. !       end Flag54;
  26865.   
  26866. !       function Flag55 (N : Node_Id) return Boolean is
  26867.         begin
  26868.            pragma Assert (Nkind (N) in N_Entity);
  26869. !          return Nodes.Table (N + 2).Flag13;
  26870. !       end Flag55;
  26871.   
  26872. !       function Flag56 (N : Node_Id) return Boolean is
  26873.         begin
  26874.            pragma Assert (Nkind (N) in N_Entity);
  26875. !          return Nodes.Table (N + 2).Flag14;
  26876. !       end Flag56;
  26877.   
  26878. !       function Flag57 (N : Node_Id) return Boolean is
  26879.         begin
  26880.            pragma Assert (Nkind (N) in N_Entity);
  26881. !          return Nodes.Table (N + 2).Flag15;
  26882. !       end Flag57;
  26883.   
  26884. !       function Flag58 (N : Node_Id) return Boolean is
  26885.         begin
  26886.            pragma Assert (Nkind (N) in N_Entity);
  26887. !          return Nodes.Table (N + 2).Flag16;
  26888. !       end Flag58;
  26889.   
  26890. !       function Flag59 (N : Node_Id) return Boolean is
  26891.         begin
  26892.            pragma Assert (Nkind (N) in N_Entity);
  26893. !          return Nodes.Table (N + 2).Flag17;
  26894. !       end Flag59;
  26895.   
  26896. !       function Flag60 (N : Node_Id) return Boolean is
  26897.         begin
  26898.            pragma Assert (Nkind (N) in N_Entity);
  26899. !          return Nodes.Table (N + 2).Flag18;
  26900. !       end Flag60;
  26901.   
  26902. !       function Flag61 (N : Node_Id) return Boolean is
  26903.         begin
  26904.            pragma Assert (Nkind (N) in N_Entity);
  26905. !          return Nodes.Table (N + 1).Pflag1;
  26906. !       end Flag61;
  26907.   
  26908. !       function Flag62 (N : Node_Id) return Boolean is
  26909.         begin
  26910.            pragma Assert (Nkind (N) in N_Entity);
  26911. !          return Nodes.Table (N + 1).Pflag2;
  26912. !       end Flag62;
  26913.   
  26914. !       function Flag63 (N : Node_Id) return Boolean is
  26915.         begin
  26916.            pragma Assert (Nkind (N) in N_Entity);
  26917. !          return Nodes.Table (N + 2).Pflag1;
  26918. !       end Flag63;
  26919.   
  26920. !       function Flag64 (N : Node_Id) return Boolean is
  26921.         begin
  26922.            pragma Assert (Nkind (N) in N_Entity);
  26923. !          return Nodes.Table (N + 2).Pflag2;
  26924. !       end Flag64;
  26925.   
  26926. !       function Flag65 (N : Node_Id) return Boolean is
  26927.         begin
  26928.            pragma Assert (Nkind (N) in N_Entity);
  26929. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag65;
  26930. !       end Flag65;
  26931.   
  26932. !       function Flag66 (N : Node_Id) return Boolean is
  26933.         begin
  26934.            pragma Assert (Nkind (N) in N_Entity);
  26935. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag66;
  26936. !       end Flag66;
  26937.   
  26938. !       function Flag67 (N : Node_Id) return Boolean is
  26939.         begin
  26940.            pragma Assert (Nkind (N) in N_Entity);
  26941. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag67;
  26942. !       end Flag67;
  26943.   
  26944. !       function Flag68 (N : Node_Id) return Boolean is
  26945.         begin
  26946.            pragma Assert (Nkind (N) in N_Entity);
  26947. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag68;
  26948. !       end Flag68;
  26949.   
  26950. !       function Flag69 (N : Node_Id) return Boolean is
  26951.         begin
  26952.            pragma Assert (Nkind (N) in N_Entity);
  26953. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag69;
  26954. !       end Flag69;
  26955.   
  26956. !       function Flag70 (N : Node_Id) return Boolean is
  26957.         begin
  26958.            pragma Assert (Nkind (N) in N_Entity);
  26959. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag70;
  26960. !       end Flag70;
  26961.   
  26962. !       function Flag71 (N : Node_Id) return Boolean is
  26963.         begin
  26964.            pragma Assert (Nkind (N) in N_Entity);
  26965. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag71;
  26966. !       end Flag71;
  26967.   
  26968. !       function Flag72 (N : Node_Id) return Boolean is
  26969.         begin
  26970.            pragma Assert (Nkind (N) in N_Entity);
  26971. !          return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag72;
  26972. !       end Flag72;
  26973.   
  26974. !       procedure Set_Nkind (N : Node_Id; Val : Node_Kind) is
  26975.         begin
  26976.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26977. !          Nodes.Table (N).Nkind := Val;
  26978. !       end Set_Nkind;
  26979.   
  26980. !       procedure Set_Field1 (N : Node_Id; Val : Union_Id) is
  26981.         begin
  26982.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26983. !          Nodes.Table (N).Field1 := Val;
  26984. !       end Set_Field1;
  26985.   
  26986. !       procedure Set_Field2 (N : Node_Id; Val : Union_Id) is
  26987.         begin
  26988.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26989. !          Nodes.Table (N).Field2 := Val;
  26990. !       end Set_Field2;
  26991.   
  26992. !       procedure Set_Field3 (N : Node_Id; Val : Union_Id) is
  26993.         begin
  26994.            pragma Assert (N in Nodes.First .. Nodes.Last);
  26995. !          Nodes.Table (N).Field3 := Val;
  26996. !       end Set_Field3;
  26997.   
  26998. !       procedure Set_Field4 (N : Node_Id; Val : Union_Id) is
  26999.         begin
  27000.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27001. !          Nodes.Table (N).Field4 := Val;
  27002. !       end Set_Field4;
  27003.   
  27004. !       procedure Set_Field5 (N : Node_Id; Val : Union_Id) is
  27005.         begin
  27006.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27007. !          Nodes.Table (N).Field5 := Val;
  27008. !       end Set_Field5;
  27009.   
  27010. !       procedure Set_Field6 (N : Node_Id; Val : Union_Id) is
  27011.         begin
  27012.            pragma Assert (Nkind (N) in N_Entity);
  27013. !          Nodes.Table (N + 1).Field6 := Val;
  27014. !       end Set_Field6;
  27015.   
  27016. !       procedure Set_Field7 (N : Node_Id; Val : Union_Id) is
  27017.         begin
  27018.            pragma Assert (Nkind (N) in N_Entity);
  27019. !          Nodes.Table (N + 1).Field7 := Val;
  27020. !       end Set_Field7;
  27021.   
  27022. !       procedure Set_Field8 (N : Node_Id; Val : Union_Id) is
  27023.         begin
  27024.            pragma Assert (Nkind (N) in N_Entity);
  27025. !          Nodes.Table (N + 1).Field8 := Val;
  27026. !       end Set_Field8;
  27027.   
  27028. !       procedure Set_Field9 (N : Node_Id; Val : Union_Id) is
  27029.         begin
  27030.            pragma Assert (Nkind (N) in N_Entity);
  27031. !          Nodes.Table (N + 1).Field9 := Val;
  27032. !       end Set_Field9;
  27033.   
  27034. !       procedure Set_Field10 (N : Node_Id; Val : Union_Id) is
  27035.         begin
  27036.            pragma Assert (Nkind (N) in N_Entity);
  27037. !          Nodes.Table (N + 1).Field10 := Val;
  27038. !       end Set_Field10;
  27039.   
  27040. !       procedure Set_Field11 (N : Node_Id; Val : Union_Id) is
  27041.         begin
  27042.            pragma Assert (Nkind (N) in N_Entity);
  27043. !          Nodes.Table (N + 1).Field11 := Val;
  27044. !       end Set_Field11;
  27045.   
  27046. !       procedure Set_Field12 (N : Node_Id; Val : Union_Id) is
  27047.         begin
  27048.            pragma Assert (Nkind (N) in N_Entity);
  27049. !          Nodes.Table (N + 1).Field12 := Val;
  27050. !       end Set_Field12;
  27051.   
  27052. !       procedure Set_Field13 (N : Node_Id; Val : Union_Id) is
  27053.         begin
  27054.            pragma Assert (Nkind (N) in N_Entity);
  27055. !          Nodes.Table (N + 2).Field6 := Val;
  27056. !       end Set_Field13;
  27057.   
  27058. !       procedure Set_Field14 (N : Node_Id; Val : Union_Id) is
  27059.         begin
  27060.            pragma Assert (Nkind (N) in N_Entity);
  27061. !          Nodes.Table (N + 2).Field7 := Val;
  27062. !       end Set_Field14;
  27063.   
  27064. !       procedure Set_Field15 (N : Node_Id; Val : Union_Id) is
  27065.         begin
  27066.            pragma Assert (Nkind (N) in N_Entity);
  27067. !          Nodes.Table (N + 2).Field8 := Val;
  27068. !       end Set_Field15;
  27069.   
  27070. !       procedure Set_Field16 (N : Node_Id; Val : Union_Id) is
  27071.         begin
  27072.            pragma Assert (Nkind (N) in N_Entity);
  27073. !          Nodes.Table (N + 2).Field9 := Val;
  27074. !       end Set_Field16;
  27075.   
  27076. !       procedure Set_Field17 (N : Node_Id; Val : Union_Id) is
  27077.         begin
  27078.            pragma Assert (Nkind (N) in N_Entity);
  27079. !          Nodes.Table (N + 2).Field10 := Val;
  27080. !       end Set_Field17;
  27081.   
  27082. !       procedure Set_Field18 (N : Node_Id; Val : Union_Id) is
  27083.         begin
  27084.            pragma Assert (Nkind (N) in N_Entity);
  27085. !          Nodes.Table (N + 2).Field11 := Val;
  27086. !       end Set_Field18;
  27087.   
  27088. !       procedure Set_Field19 (N : Node_Id; Val : Union_Id) is
  27089.         begin
  27090.            pragma Assert (Nkind (N) in N_Entity);
  27091. !          Nodes.Table (N + 2).Field12 := Val;
  27092. !       end Set_Field19;
  27093.   
  27094. !       procedure Set_Node1 (N : Node_Id; Val : Node_Id) is
  27095.         begin
  27096.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27097. !          Nodes.Table (N).Field1 := Union_Id (Val);
  27098. !       end Set_Node1;
  27099.   
  27100. !       procedure Set_Node2 (N : Node_Id; Val : Node_Id) is
  27101.         begin
  27102.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27103. !          Nodes.Table (N).Field2 := Union_Id (Val);
  27104. !       end Set_Node2;
  27105.   
  27106. !       procedure Set_Node3 (N : Node_Id; Val : Node_Id) is
  27107.         begin
  27108.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27109. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27110. !       end Set_Node3;
  27111.   
  27112. !       procedure Set_Node4 (N : Node_Id; Val : Node_Id) is
  27113.         begin
  27114.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27115. !          Nodes.Table (N).Field4 := Union_Id (Val);
  27116. !       end Set_Node4;
  27117.   
  27118. !       procedure Set_Node5 (N : Node_Id; Val : Node_Id) is
  27119.         begin
  27120.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27121. !          Nodes.Table (N).Field5 := Union_Id (Val);
  27122. !       end Set_Node5;
  27123.   
  27124. !       procedure Set_Node6 (N : Node_Id; Val : Node_Id) is
  27125.         begin
  27126.            pragma Assert (Nkind (N) in N_Entity);
  27127. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  27128. !       end Set_Node6;
  27129.   
  27130. !       procedure Set_Node7 (N : Node_Id; Val : Node_Id) is
  27131.         begin
  27132.            pragma Assert (Nkind (N) in N_Entity);
  27133. !          Nodes.Table (N + 1).Field7 := Union_Id (Val);
  27134. !       end Set_Node7;
  27135.   
  27136. !       procedure Set_Node8 (N : Node_Id; Val : Node_Id) is
  27137.         begin
  27138.            pragma Assert (Nkind (N) in N_Entity);
  27139. !          Nodes.Table (N + 1).Field8 := Union_Id (Val);
  27140. !       end Set_Node8;
  27141.   
  27142. !       procedure Set_Node9 (N : Node_Id; Val : Node_Id) is
  27143.         begin
  27144.            pragma Assert (Nkind (N) in N_Entity);
  27145. !          Nodes.Table (N + 1).Field9 := Union_Id (Val);
  27146. !       end Set_Node9;
  27147.   
  27148. !       procedure Set_Node10 (N : Node_Id; Val : Node_Id) is
  27149.         begin
  27150.            pragma Assert (Nkind (N) in N_Entity);
  27151. !          Nodes.Table (N + 1).Field10 := Union_Id (Val);
  27152. !       end Set_Node10;
  27153.   
  27154. !       procedure Set_Node11 (N : Node_Id; Val : Node_Id) is
  27155.         begin
  27156.            pragma Assert (Nkind (N) in N_Entity);
  27157. !          Nodes.Table (N + 1).Field11 := Union_Id (Val);
  27158. !       end Set_Node11;
  27159.   
  27160. !       procedure Set_Node12 (N : Node_Id; Val : Node_Id) is
  27161.         begin
  27162.            pragma Assert (Nkind (N) in N_Entity);
  27163. !          Nodes.Table (N + 1).Field12 := Union_Id (Val);
  27164. !       end Set_Node12;
  27165.   
  27166. !       procedure Set_Node13 (N : Node_Id; Val : Node_Id) is
  27167.         begin
  27168.            pragma Assert (Nkind (N) in N_Entity);
  27169. !          Nodes.Table (N + 2).Field6 := Union_Id (Val);
  27170. !       end Set_Node13;
  27171.   
  27172. !       procedure Set_Node14 (N : Node_Id; Val : Node_Id) is
  27173.         begin
  27174.            pragma Assert (Nkind (N) in N_Entity);
  27175. !          Nodes.Table (N + 2).Field7 := Union_Id (Val);
  27176. !       end Set_Node14;
  27177.   
  27178. !       procedure Set_Node15 (N : Node_Id; Val : Node_Id) is
  27179.         begin
  27180.            pragma Assert (Nkind (N) in N_Entity);
  27181. !          Nodes.Table (N + 2).Field8 := Union_Id (Val);
  27182. !       end Set_Node15;
  27183.   
  27184. !       procedure Set_Node16 (N : Node_Id; Val : Node_Id) is
  27185.         begin
  27186.            pragma Assert (Nkind (N) in N_Entity);
  27187. !          Nodes.Table (N + 2).Field9 := Union_Id (Val);
  27188. !       end Set_Node16;
  27189.   
  27190. !       procedure Set_Node17 (N : Node_Id; Val : Node_Id) is
  27191.         begin
  27192.            pragma Assert (Nkind (N) in N_Entity);
  27193. !          Nodes.Table (N + 2).Field10 := Union_Id (Val);
  27194. !       end Set_Node17;
  27195.   
  27196. !       procedure Set_Node18 (N : Node_Id; Val : Node_Id) is
  27197.         begin
  27198.            pragma Assert (Nkind (N) in N_Entity);
  27199. !          Nodes.Table (N + 2).Field11 := Union_Id (Val);
  27200. !       end Set_Node18;
  27201.   
  27202. !       procedure Set_Node19 (N : Node_Id; Val : Node_Id) is
  27203.         begin
  27204.            pragma Assert (Nkind (N) in N_Entity);
  27205. !          Nodes.Table (N + 2).Field12 := Union_Id (Val);
  27206. !       end Set_Node19;
  27207.   
  27208. !       procedure Set_List1 (N : Node_Id; Val : List_Id) is
  27209.         begin
  27210.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27211. !          Nodes.Table (N).Field1 := Union_Id (Val);
  27212. !       end Set_List1;
  27213.   
  27214. !       procedure Set_List2 (N : Node_Id; Val : List_Id) is
  27215.         begin
  27216.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27217. !          Nodes.Table (N).Field2 := Union_Id (Val);
  27218. !       end Set_List2;
  27219.   
  27220. !       procedure Set_List3 (N : Node_Id; Val : List_Id) is
  27221.         begin
  27222.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27223. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27224. !       end Set_List3;
  27225.   
  27226. !       procedure Set_List4 (N : Node_Id; Val : List_Id) is
  27227.         begin
  27228.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27229. !          Nodes.Table (N).Field4 := Union_Id (Val);
  27230. !       end Set_List4;
  27231.   
  27232. !       procedure Set_List5 (N : Node_Id; Val : List_Id) is
  27233.         begin
  27234.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27235. !          Nodes.Table (N).Field5 := Union_Id (Val);
  27236. !       end Set_List5;
  27237.   
  27238. !       procedure Set_Elist6 (N : Node_Id; Val : Elist_Id) is
  27239.         begin
  27240.            pragma Assert (Nkind (N) in N_Entity);
  27241. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  27242. !       end Set_Elist6;
  27243.   
  27244. !       procedure Set_Elist13 (N : Node_Id; Val : Elist_Id) is
  27245.         begin
  27246.            pragma Assert (Nkind (N) in N_Entity);
  27247. !          Nodes.Table (N + 2).Field6 := Union_Id (Val);
  27248. !       end Set_Elist13;
  27249.   
  27250. !       procedure Set_Name1 (N : Node_Id; Val : Name_Id) is
  27251.         begin
  27252.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27253. !          Nodes.Table (N).Field1 := Union_Id (Val);
  27254. !       end Set_Name1;
  27255.   
  27256. !       procedure Set_Name2 (N : Node_Id; Val : Name_Id) is
  27257.         begin
  27258.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27259. !          Nodes.Table (N).Field2 := Union_Id (Val);
  27260. !       end Set_Name2;
  27261.   
  27262. !       procedure Set_Str3 (N : Node_Id; Val : String_Id) is
  27263.         begin
  27264.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27265. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27266. !       end Set_Str3;
  27267.   
  27268. !       procedure Set_Uint3 (N : Node_Id; Val : Uint) is
  27269.         begin
  27270.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27271. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27272. !       end Set_Uint3;
  27273.   
  27274. !       procedure Set_Uint4 (N : Node_Id; Val : Uint) is
  27275.         begin
  27276.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27277. !          Nodes.Table (N).Field4 := Union_Id (Val);
  27278. !       end Set_Uint4;
  27279.   
  27280. !       procedure Set_Uint9 (N : Node_Id; Val : Uint) is
  27281.         begin
  27282.            pragma Assert (Nkind (N) in N_Entity);
  27283. !          Nodes.Table (N + 1).Field9 := Union_Id (Val);
  27284. !       end Set_Uint9;
  27285.   
  27286. !       procedure Set_Uint11 (N : Node_Id; Val : Uint) is
  27287.         begin
  27288.            pragma Assert (Nkind (N) in N_Entity);
  27289. !          Nodes.Table (N + 1).Field11 := Union_Id (Val);
  27290. !       end Set_Uint11;
  27291.   
  27292. !       procedure Set_Uint12 (N : Node_Id; Val : Uint) is
  27293.         begin
  27294.            pragma Assert (Nkind (N) in N_Entity);
  27295. !          Nodes.Table (N + 1).Field12 := Union_Id (Val);
  27296. !       end Set_Uint12;
  27297.   
  27298. !       procedure Set_Uint15 (N : Node_Id; Val : Uint) is
  27299.         begin
  27300.            pragma Assert (Nkind (N) in N_Entity);
  27301. !          Nodes.Table (N + 2).Field8 := Union_Id (Val);
  27302. !       end Set_Uint15;
  27303.   
  27304. !       procedure Set_Ureal3 (N : Node_Id; Val : Ureal) is
  27305.         begin
  27306.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27307. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27308. !       end Set_Ureal3;
  27309.   
  27310. !       procedure Set_Ureal6 (N : Node_Id; Val : Ureal) is
  27311.         begin
  27312.            pragma Assert (Nkind (N) in N_Entity);
  27313. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  27314. !       end Set_Ureal6;
  27315.   
  27316. !       procedure Set_Ureal7 (N : Node_Id; Val : Ureal) is
  27317.         begin
  27318.            pragma Assert (Nkind (N) in N_Entity);
  27319. !          Nodes.Table (N + 1).Field7 := Union_Id (Val);
  27320. !       end Set_Ureal7;
  27321. ! 
  27322. !       procedure Set_Char_Code2 (N : Node_Id; Val : Char_Code) is
  27323. !       begin
  27324. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27325. !          Nodes.Table (N).Field2 := Union_Id (Val) + Char_Code_Bias;
  27326. !       end Set_Char_Code2;
  27327. ! 
  27328. !       procedure Set_Flag1 (N : Node_Id; Val : Boolean) is
  27329. !       begin
  27330. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27331. !          Nodes.Table (N).Flag1 := Val;
  27332. !       end Set_Flag1;
  27333.   
  27334. !       procedure Set_Flag2 (N : Node_Id; Val : Boolean) is
  27335.         begin
  27336.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27337. !          Nodes.Table (N).Flag2 := Val;
  27338. !       end Set_Flag2;
  27339.   
  27340. !       procedure Set_Flag3 (N : Node_Id; Val : Boolean) is
  27341.         begin
  27342.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27343. !          Nodes.Table (N).Flag3 := Val;
  27344. !       end Set_Flag3;
  27345.   
  27346. !       procedure Set_Flag4 (N : Node_Id; Val : Boolean) is
  27347.         begin
  27348.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27349. !          Nodes.Table (N).Flag4 := Val;
  27350. !       end Set_Flag4;
  27351.   
  27352. !       procedure Set_Flag5 (N : Node_Id; Val : Boolean) is
  27353.         begin
  27354.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27355. !          Nodes.Table (N).Flag5 := Val;
  27356. !       end Set_Flag5;
  27357.   
  27358. !       procedure Set_Flag6 (N : Node_Id; Val : Boolean) is
  27359.         begin
  27360.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27361. !          Nodes.Table (N).Flag6 := Val;
  27362. !       end Set_Flag6;
  27363.   
  27364. !       procedure Set_Flag7 (N : Node_Id; Val : Boolean) is
  27365.         begin
  27366.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27367. !          Nodes.Table (N).Flag7 := Val;
  27368. !       end Set_Flag7;
  27369.   
  27370. !       procedure Set_Flag8 (N : Node_Id; Val : Boolean) is
  27371.         begin
  27372.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27373. !          Nodes.Table (N).Flag8 := Val;
  27374. !       end Set_Flag8;
  27375.   
  27376. !       procedure Set_Flag9 (N : Node_Id; Val : Boolean) is
  27377.         begin
  27378.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27379. !          Nodes.Table (N).Flag9 := Val;
  27380. !       end Set_Flag9;
  27381.   
  27382. !       procedure Set_Flag10 (N : Node_Id; Val : Boolean) is
  27383.         begin
  27384.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27385. !          Nodes.Table (N).Flag10 := Val;
  27386. !       end Set_Flag10;
  27387.   
  27388. !       procedure Set_Flag11 (N : Node_Id; Val : Boolean) is
  27389.         begin
  27390.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27391. !          Nodes.Table (N).Flag11 := Val;
  27392. !       end Set_Flag11;
  27393.   
  27394. !       procedure Set_Flag12 (N : Node_Id; Val : Boolean) is
  27395.         begin
  27396.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27397. !          Nodes.Table (N).Flag12 := Val;
  27398. !       end Set_Flag12;
  27399.   
  27400. !       procedure Set_Flag13 (N : Node_Id; Val : Boolean) is
  27401.         begin
  27402.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27403. !          Nodes.Table (N).Flag13 := Val;
  27404. !       end Set_Flag13;
  27405.   
  27406. !       procedure Set_Flag14 (N : Node_Id; Val : Boolean) is
  27407.         begin
  27408.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27409. !          Nodes.Table (N).Flag14 := Val;
  27410. !       end Set_Flag14;
  27411.   
  27412. !       procedure Set_Flag15 (N : Node_Id; Val : Boolean) is
  27413.         begin
  27414.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27415. !          Nodes.Table (N).Flag15 := Val;
  27416. !       end Set_Flag15;
  27417.   
  27418. !       procedure Set_Flag16 (N : Node_Id; Val : Boolean) is
  27419.         begin
  27420.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27421. !          Nodes.Table (N).Flag16 := Val;
  27422. !       end Set_Flag16;
  27423.   
  27424. !       procedure Set_Flag17 (N : Node_Id; Val : Boolean) is
  27425.         begin
  27426.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27427. !          Nodes.Table (N).Flag17 := Val;
  27428. !       end Set_Flag17;
  27429.   
  27430. !       procedure Set_Flag18 (N : Node_Id; Val : Boolean) is
  27431.         begin
  27432.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27433. !          Nodes.Table (N).Flag18 := Val;
  27434. !       end Set_Flag18;
  27435.   
  27436. !       procedure Set_Flag19 (N : Node_Id; Val : Boolean) is
  27437.         begin
  27438. !          pragma Assert (Nkind (N) in N_Entity);
  27439. !          Nodes.Table (N + 1).In_List := Val;
  27440. !       end Set_Flag19;
  27441.   
  27442. !       procedure Set_Flag20 (N : Node_Id; Val : Boolean) is
  27443.         begin
  27444.            pragma Assert (Nkind (N) in N_Entity);
  27445. !          Nodes.Table (N + 1).Rewrite_Sub := Val;
  27446. !       end Set_Flag20;
  27447.   
  27448. !       procedure Set_Flag21 (N : Node_Id; Val : Boolean) is
  27449.         begin
  27450.            pragma Assert (Nkind (N) in N_Entity);
  27451. !          Nodes.Table (N + 1).Rewrite_Ins := Val;
  27452. !       end Set_Flag21;
  27453.   
  27454. !       procedure Set_Flag22 (N : Node_Id; Val : Boolean) is
  27455.         begin
  27456.            pragma Assert (Nkind (N) in N_Entity);
  27457. !          Nodes.Table (N + 1).Flag1 := Val;
  27458. !       end Set_Flag22;
  27459.   
  27460. !       procedure Set_Flag23 (N : Node_Id; Val : Boolean) is
  27461.         begin
  27462.            pragma Assert (Nkind (N) in N_Entity);
  27463. !          Nodes.Table (N + 1).Flag2 := Val;
  27464. !       end Set_Flag23;
  27465.   
  27466. !       procedure Set_Flag24 (N : Node_Id; Val : Boolean) is
  27467.         begin
  27468.            pragma Assert (Nkind (N) in N_Entity);
  27469. !          Nodes.Table (N + 1).Flag3 := Val;
  27470. !       end Set_Flag24;
  27471.   
  27472. !       procedure Set_Flag25 (N : Node_Id; Val : Boolean) is
  27473.         begin
  27474.            pragma Assert (Nkind (N) in N_Entity);
  27475. !          Nodes.Table (N + 1).Flag4 := Val;
  27476. !       end Set_Flag25;
  27477.   
  27478. !       procedure Set_Flag26 (N : Node_Id; Val : Boolean) is
  27479.         begin
  27480.            pragma Assert (Nkind (N) in N_Entity);
  27481. !          Nodes.Table (N + 1).Flag5 := Val;
  27482. !       end Set_Flag26;
  27483.   
  27484. !       procedure Set_Flag27 (N : Node_Id; Val : Boolean) is
  27485.         begin
  27486.            pragma Assert (Nkind (N) in N_Entity);
  27487. !          Nodes.Table (N + 1).Flag6 := Val;
  27488. !       end Set_Flag27;
  27489.   
  27490. !       procedure Set_Flag28 (N : Node_Id; Val : Boolean) is
  27491.         begin
  27492.            pragma Assert (Nkind (N) in N_Entity);
  27493. !          Nodes.Table (N + 1).Flag7 := Val;
  27494. !       end Set_Flag28;
  27495.   
  27496. !       procedure Set_Flag29 (N : Node_Id; Val : Boolean) is
  27497.         begin
  27498.            pragma Assert (Nkind (N) in N_Entity);
  27499. !          Nodes.Table (N + 1).Flag8 := Val;
  27500. !       end Set_Flag29;
  27501.   
  27502. !       procedure Set_Flag30 (N : Node_Id; Val : Boolean) is
  27503.         begin
  27504.            pragma Assert (Nkind (N) in N_Entity);
  27505. !          Nodes.Table (N + 1).Flag9 := Val;
  27506. !       end Set_Flag30;
  27507.   
  27508. !       procedure Set_Flag31 (N : Node_Id; Val : Boolean) is
  27509.         begin
  27510.            pragma Assert (Nkind (N) in N_Entity);
  27511. !          Nodes.Table (N + 1).Flag10 := Val;
  27512. !       end Set_Flag31;
  27513.   
  27514. !       procedure Set_Flag32 (N : Node_Id; Val : Boolean) is
  27515.         begin
  27516.            pragma Assert (Nkind (N) in N_Entity);
  27517. !          Nodes.Table (N + 1).Flag11 := Val;
  27518. !       end Set_Flag32;
  27519.   
  27520. !       procedure Set_Flag33 (N : Node_Id; Val : Boolean) is
  27521.         begin
  27522.            pragma Assert (Nkind (N) in N_Entity);
  27523. !          Nodes.Table (N + 1).Flag12 := Val;
  27524. !       end Set_Flag33;
  27525.   
  27526. !       procedure Set_Flag34 (N : Node_Id; Val : Boolean) is
  27527.         begin
  27528.            pragma Assert (Nkind (N) in N_Entity);
  27529. !          Nodes.Table (N + 1).Flag13 := Val;
  27530. !       end Set_Flag34;
  27531.   
  27532. !       procedure Set_Flag35 (N : Node_Id; Val : Boolean) is
  27533.         begin
  27534.            pragma Assert (Nkind (N) in N_Entity);
  27535. !          Nodes.Table (N + 1).Flag14 := Val;
  27536. !       end Set_Flag35;
  27537.   
  27538. !       procedure Set_Flag36 (N : Node_Id; Val : Boolean) is
  27539.         begin
  27540.            pragma Assert (Nkind (N) in N_Entity);
  27541. !          Nodes.Table (N + 1).Flag15 := Val;
  27542. !       end Set_Flag36;
  27543.   
  27544. !       procedure Set_Flag37 (N : Node_Id; Val : Boolean) is
  27545.         begin
  27546.            pragma Assert (Nkind (N) in N_Entity);
  27547. !          Nodes.Table (N + 1).Flag16 := Val;
  27548. !       end Set_Flag37;
  27549.   
  27550. !       procedure Set_Flag38 (N : Node_Id; Val : Boolean) is
  27551.         begin
  27552.            pragma Assert (Nkind (N) in N_Entity);
  27553. !          Nodes.Table (N + 1).Flag17 := Val;
  27554. !       end Set_Flag38;
  27555.   
  27556. !       procedure Set_Flag39 (N : Node_Id; Val : Boolean) is
  27557.         begin
  27558.            pragma Assert (Nkind (N) in N_Entity);
  27559. !          Nodes.Table (N + 1).Flag18 := Val;
  27560. !       end Set_Flag39;
  27561.   
  27562. !       procedure Set_Flag40 (N : Node_Id; Val : Boolean) is
  27563.         begin
  27564.            pragma Assert (Nkind (N) in N_Entity);
  27565. !          Nodes.Table (N + 2).In_List := Val;
  27566. !       end Set_Flag40;
  27567.   
  27568. !       procedure Set_Flag41 (N : Node_Id; Val : Boolean) is
  27569.         begin
  27570.            pragma Assert (Nkind (N) in N_Entity);
  27571. !          Nodes.Table (N + 2).Rewrite_Sub := Val;
  27572. !       end Set_Flag41;
  27573.   
  27574. !       procedure Set_Flag42 (N : Node_Id; Val : Boolean) is
  27575.         begin
  27576.            pragma Assert (Nkind (N) in N_Entity);
  27577. !          Nodes.Table (N + 2).Rewrite_Ins := Val;
  27578. !       end Set_Flag42;
  27579.   
  27580. !       procedure Set_Flag43 (N : Node_Id; Val : Boolean) is
  27581.         begin
  27582.            pragma Assert (Nkind (N) in N_Entity);
  27583. !          Nodes.Table (N + 2).Flag1 := Val;
  27584. !       end Set_Flag43;
  27585.   
  27586. !       procedure Set_Flag44 (N : Node_Id; Val : Boolean) is
  27587.         begin
  27588.            pragma Assert (Nkind (N) in N_Entity);
  27589. !          Nodes.Table (N + 2).Flag2 := Val;
  27590. !       end Set_Flag44;
  27591.   
  27592. !       procedure Set_Flag45 (N : Node_Id; Val : Boolean) is
  27593.         begin
  27594.            pragma Assert (Nkind (N) in N_Entity);
  27595. !          Nodes.Table (N + 2).Flag3 := Val;
  27596. !       end Set_Flag45;
  27597.   
  27598. !       procedure Set_Flag46 (N : Node_Id; Val : Boolean) is
  27599.         begin
  27600.            pragma Assert (Nkind (N) in N_Entity);
  27601. !          Nodes.Table (N + 2).Flag4 := Val;
  27602. !       end Set_Flag46;
  27603.   
  27604. !       procedure Set_Flag47 (N : Node_Id; Val : Boolean) is
  27605.         begin
  27606.            pragma Assert (Nkind (N) in N_Entity);
  27607. !          Nodes.Table (N + 2).Flag5 := Val;
  27608. !       end Set_Flag47;
  27609.   
  27610. !       procedure Set_Flag48 (N : Node_Id; Val : Boolean) is
  27611.         begin
  27612.            pragma Assert (Nkind (N) in N_Entity);
  27613. !          Nodes.Table (N + 2).Flag6 := Val;
  27614. !       end Set_Flag48;
  27615.   
  27616. !       procedure Set_Flag49 (N : Node_Id; Val : Boolean) is
  27617.         begin
  27618.            pragma Assert (Nkind (N) in N_Entity);
  27619. !          Nodes.Table (N + 2).Flag7 := Val;
  27620. !       end Set_Flag49;
  27621.   
  27622. !       procedure Set_Flag50 (N : Node_Id; Val : Boolean) is
  27623.         begin
  27624.            pragma Assert (Nkind (N) in N_Entity);
  27625. !          Nodes.Table (N + 2).Flag8 := Val;
  27626. !       end Set_Flag50;
  27627.   
  27628. !       procedure Set_Flag51 (N : Node_Id; Val : Boolean) is
  27629.         begin
  27630.            pragma Assert (Nkind (N) in N_Entity);
  27631. !          Nodes.Table (N + 2).Flag9 := Val;
  27632. !       end Set_Flag51;
  27633.   
  27634. !       procedure Set_Flag52 (N : Node_Id; Val : Boolean) is
  27635.         begin
  27636.            pragma Assert (Nkind (N) in N_Entity);
  27637. !          Nodes.Table (N + 2).Flag10 := Val;
  27638. !       end Set_Flag52;
  27639.   
  27640. !       procedure Set_Flag53 (N : Node_Id; Val : Boolean) is
  27641.         begin
  27642.            pragma Assert (Nkind (N) in N_Entity);
  27643. !          Nodes.Table (N + 2).Flag11 := Val;
  27644. !       end Set_Flag53;
  27645.   
  27646. !       procedure Set_Flag54 (N : Node_Id; Val : Boolean) is
  27647.         begin
  27648.            pragma Assert (Nkind (N) in N_Entity);
  27649. !          Nodes.Table (N + 2).Flag12 := Val;
  27650. !       end Set_Flag54;
  27651.   
  27652. !       procedure Set_Flag55 (N : Node_Id; Val : Boolean) is
  27653.         begin
  27654.            pragma Assert (Nkind (N) in N_Entity);
  27655. !          Nodes.Table (N + 2).Flag13 := Val;
  27656. !       end Set_Flag55;
  27657.   
  27658. !       procedure Set_Flag56 (N : Node_Id; Val : Boolean) is
  27659.         begin
  27660.            pragma Assert (Nkind (N) in N_Entity);
  27661. !          Nodes.Table (N + 2).Flag14 := Val;
  27662. !       end Set_Flag56;
  27663.   
  27664. !       procedure Set_Flag57 (N : Node_Id; Val : Boolean) is
  27665.         begin
  27666.            pragma Assert (Nkind (N) in N_Entity);
  27667. !          Nodes.Table (N + 2).Flag15 := Val;
  27668. !       end Set_Flag57;
  27669.   
  27670. !       procedure Set_Flag58 (N : Node_Id; Val : Boolean) is
  27671.         begin
  27672.            pragma Assert (Nkind (N) in N_Entity);
  27673. !          Nodes.Table (N + 2).Flag16 := Val;
  27674. !       end Set_Flag58;
  27675.   
  27676. !       procedure Set_Flag59 (N : Node_Id; Val : Boolean) is
  27677.         begin
  27678.            pragma Assert (Nkind (N) in N_Entity);
  27679. !          Nodes.Table (N + 2).Flag17 := Val;
  27680. !       end Set_Flag59;
  27681.   
  27682. !       procedure Set_Flag60 (N : Node_Id; Val : Boolean) is
  27683.         begin
  27684.            pragma Assert (Nkind (N) in N_Entity);
  27685. !          Nodes.Table (N + 2).Flag18 := Val;
  27686. !       end Set_Flag60;
  27687.   
  27688. !       procedure Set_Flag61 (N : Node_Id; Val : Boolean) is
  27689.         begin
  27690.            pragma Assert (Nkind (N) in N_Entity);
  27691. !          Nodes.Table (N + 1).Pflag1 := Val;
  27692. !       end Set_Flag61;
  27693.   
  27694. !       procedure Set_Flag62 (N : Node_Id; Val : Boolean) is
  27695.         begin
  27696.            pragma Assert (Nkind (N) in N_Entity);
  27697. !          Nodes.Table (N + 1).Pflag2 := Val;
  27698. !       end Set_Flag62;
  27699.   
  27700. !       procedure Set_Flag63 (N : Node_Id; Val : Boolean) is
  27701.         begin
  27702.            pragma Assert (Nkind (N) in N_Entity);
  27703. !          Nodes.Table (N + 2).Pflag1 := Val;
  27704. !       end Set_Flag63;
  27705.   
  27706. !       procedure Set_Flag64 (N : Node_Id; Val : Boolean) is
  27707.         begin
  27708.            pragma Assert (Nkind (N) in N_Entity);
  27709. !          Nodes.Table (N + 2).Pflag2 := Val;
  27710. !       end Set_Flag64;
  27711.   
  27712. !       procedure Set_Flag65 (N : Node_Id; Val : Boolean) is
  27713.         begin
  27714.            pragma Assert (Nkind (N) in N_Entity);
  27715. !          To_Flag_Byte_Ptr
  27716. !            (Node_Kind_Ptr'
  27717. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65 := Val;
  27718. !       end Set_Flag65;
  27719.   
  27720. !       procedure Set_Flag66 (N : Node_Id; Val : Boolean) is
  27721.         begin
  27722.            pragma Assert (Nkind (N) in N_Entity);
  27723. !          To_Flag_Byte_Ptr
  27724.              (Node_Kind_Ptr'
  27725. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag66 := Val;
  27726. !       end Set_Flag66;
  27727.   
  27728. !       procedure Set_Flag67 (N : Node_Id; Val : Boolean) is
  27729.         begin
  27730.            pragma Assert (Nkind (N) in N_Entity);
  27731. !          To_Flag_Byte_Ptr
  27732.              (Node_Kind_Ptr'
  27733. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag67 := Val;
  27734. !       end Set_Flag67;
  27735.   
  27736. !       procedure Set_Flag68 (N : Node_Id; Val : Boolean) is
  27737.         begin
  27738.            pragma Assert (Nkind (N) in N_Entity);
  27739. !          To_Flag_Byte_Ptr
  27740.              (Node_Kind_Ptr'
  27741. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag68 := Val;
  27742. !       end Set_Flag68;
  27743.   
  27744. !       procedure Set_Flag69 (N : Node_Id; Val : Boolean) is
  27745.         begin
  27746.            pragma Assert (Nkind (N) in N_Entity);
  27747. !          To_Flag_Byte_Ptr
  27748.              (Node_Kind_Ptr'
  27749. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag69 := Val;
  27750. !       end Set_Flag69;
  27751.   
  27752. !       procedure Set_Flag70 (N : Node_Id; Val : Boolean) is
  27753.         begin
  27754.            pragma Assert (Nkind (N) in N_Entity);
  27755. !          To_Flag_Byte_Ptr
  27756.              (Node_Kind_Ptr'
  27757. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag70 := Val;
  27758. !       end Set_Flag70;
  27759.   
  27760. !       procedure Set_Flag71 (N : Node_Id; Val : Boolean) is
  27761.         begin
  27762.            pragma Assert (Nkind (N) in N_Entity);
  27763. !          To_Flag_Byte_Ptr
  27764.              (Node_Kind_Ptr'
  27765. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag71 := Val;
  27766. !       end Set_Flag71;
  27767.   
  27768. !       procedure Set_Flag72 (N : Node_Id; Val : Boolean) is
  27769.         begin
  27770.            pragma Assert (Nkind (N) in N_Entity);
  27771. !          To_Flag_Byte_Ptr
  27772.              (Node_Kind_Ptr'
  27773. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag72 := Val;
  27774. !       end Set_Flag72;
  27775. ! 
  27776. !       procedure Set_Node1_With_Parent (N : Node_Id; Val : Node_Id) is
  27777. !       begin
  27778. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27779. !          if Val > Error then Set_Parent (Val, N); end if;
  27780. !          Set_Node1 (N, Val);
  27781. !       end Set_Node1_With_Parent;
  27782. ! 
  27783. !       procedure Set_Node2_With_Parent (N : Node_Id; Val : Node_Id) is
  27784. !       begin
  27785. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27786. !          if Val > Error then Set_Parent (Val, N); end if;
  27787. !          Set_Node2 (N, Val);
  27788. !       end Set_Node2_With_Parent;
  27789. ! 
  27790. !       procedure Set_Node3_With_Parent (N : Node_Id; Val : Node_Id) is
  27791. !       begin
  27792. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27793. !          if Val > Error then Set_Parent (Val, N); end if;
  27794. !          Set_Node3 (N, Val);
  27795. !       end Set_Node3_With_Parent;
  27796. ! 
  27797. !       procedure Set_Node4_With_Parent (N : Node_Id; Val : Node_Id) is
  27798. !       begin
  27799. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27800. !          if Val > Error then Set_Parent (Val, N); end if;
  27801. !          Set_Node4 (N, Val);
  27802. !       end Set_Node4_With_Parent;
  27803. ! 
  27804. !       procedure Set_Node5_With_Parent (N : Node_Id; Val : Node_Id) is
  27805. !       begin
  27806. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27807. !          if Val > Error then Set_Parent (Val, N); end if;
  27808. !          Set_Node5 (N, Val);
  27809. !       end Set_Node5_With_Parent;
  27810. ! 
  27811. !       procedure Set_List1_With_Parent (N : Node_Id; Val : List_Id) is
  27812. !       begin
  27813. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27814. !          if Val /= No_List and then Val /= Error_List then
  27815. !             Set_Parent (Val, N);
  27816. !          end if;
  27817. !          Set_List1 (N, Val);
  27818. !       end Set_List1_With_Parent;
  27819. ! 
  27820. !       procedure Set_List2_With_Parent (N : Node_Id; Val : List_Id) is
  27821. !       begin
  27822. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27823. !          if Val /= No_List and then Val /= Error_List then
  27824. !             Set_Parent (Val, N);
  27825. !          end if;
  27826. !          Set_List2 (N, Val);
  27827. !       end Set_List2_With_Parent;
  27828. ! 
  27829. !       procedure Set_List3_With_Parent (N : Node_Id; Val : List_Id) is
  27830. !       begin
  27831. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27832. !          if Val /= No_List and then Val /= Error_List then
  27833. !             Set_Parent (Val, N);
  27834. !          end if;
  27835. !          Set_List3 (N, Val);
  27836. !       end Set_List3_With_Parent;
  27837. ! 
  27838. !       procedure Set_List4_With_Parent (N : Node_Id; Val : List_Id) is
  27839. !       begin
  27840. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27841. !          if Val /= No_List and then Val /= Error_List then
  27842. !             Set_Parent (Val, N);
  27843. !          end if;
  27844. !          Set_List4 (N, Val);
  27845. !       end Set_List4_With_Parent;
  27846.   
  27847. !       procedure Set_List5_With_Parent (N : Node_Id; Val : List_Id) is
  27848.         begin
  27849. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27850. !          if Val /= No_List and then Val /= Error_List then
  27851. !             Set_Parent (Val, N);
  27852. !          end if;
  27853. !          Set_List5 (N, Val);
  27854. !       end Set_List5_With_Parent;
  27855.   
  27856.      end Unchecked_Access;
  27857.   
  27858. --- 1147,2848 ----
  27859.   
  27860.      package body Unchecked_Access is
  27861.   
  27862. ! 
  27863. !       procedure Set_Nkind (N : Node_Id; Val : Node_Kind) is
  27864.         begin
  27865.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27866. !          Nodes.Table (N).Nkind := Val;
  27867. !       end Set_Nkind;
  27868.   
  27869. !       procedure Set_Field1 (N : Node_Id; Val : Union_Id) is
  27870.         begin
  27871.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27872. !          Nodes.Table (N).Field1 := Val;
  27873. !       end Set_Field1;
  27874.   
  27875. !       procedure Set_Field2 (N : Node_Id; Val : Union_Id) is
  27876.         begin
  27877.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27878. !          Nodes.Table (N).Field2 := Val;
  27879. !       end Set_Field2;
  27880.   
  27881. !       procedure Set_Field3 (N : Node_Id; Val : Union_Id) is
  27882.         begin
  27883.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27884. !          Nodes.Table (N).Field3 := Val;
  27885. !       end Set_Field3;
  27886.   
  27887. !       procedure Set_Field4 (N : Node_Id; Val : Union_Id) is
  27888.         begin
  27889.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27890. !          Nodes.Table (N).Field4 := Val;
  27891. !       end Set_Field4;
  27892.   
  27893. !       procedure Set_Field5 (N : Node_Id; Val : Union_Id) is
  27894. !       begin
  27895. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  27896. !          Nodes.Table (N).Field5 := Val;
  27897. !       end Set_Field5;
  27898. ! 
  27899. !       procedure Set_Field6 (N : Node_Id; Val : Union_Id) is
  27900.         begin
  27901.            pragma Assert (Nkind (N) in N_Entity);
  27902. !          Nodes.Table (N + 1).Field6 := Val;
  27903. !       end Set_Field6;
  27904.   
  27905. !       procedure Set_Field7 (N : Node_Id; Val : Union_Id) is
  27906.         begin
  27907.            pragma Assert (Nkind (N) in N_Entity);
  27908. !          Nodes.Table (N + 1).Field7 := Val;
  27909. !       end Set_Field7;
  27910.   
  27911. !       procedure Set_Field8 (N : Node_Id; Val : Union_Id) is
  27912.         begin
  27913.            pragma Assert (Nkind (N) in N_Entity);
  27914. !          Nodes.Table (N + 1).Field8 := Val;
  27915. !       end Set_Field8;
  27916.   
  27917. !       procedure Set_Field9 (N : Node_Id; Val : Union_Id) is
  27918.         begin
  27919.            pragma Assert (Nkind (N) in N_Entity);
  27920. !          Nodes.Table (N + 1).Field9 := Val;
  27921. !       end Set_Field9;
  27922.   
  27923. !       procedure Set_Field10 (N : Node_Id; Val : Union_Id) is
  27924.         begin
  27925.            pragma Assert (Nkind (N) in N_Entity);
  27926. !          Nodes.Table (N + 1).Field10 := Val;
  27927. !       end Set_Field10;
  27928.   
  27929. !       procedure Set_Field11 (N : Node_Id; Val : Union_Id) is
  27930.         begin
  27931.            pragma Assert (Nkind (N) in N_Entity);
  27932. !          Nodes.Table (N + 1).Field11 := Val;
  27933. !       end Set_Field11;
  27934.   
  27935. !       procedure Set_Field12 (N : Node_Id; Val : Union_Id) is
  27936.         begin
  27937.            pragma Assert (Nkind (N) in N_Entity);
  27938. !          Nodes.Table (N + 1).Field12 := Val;
  27939. !       end Set_Field12;
  27940.   
  27941. !       procedure Set_Field13 (N : Node_Id; Val : Union_Id) is
  27942.         begin
  27943.            pragma Assert (Nkind (N) in N_Entity);
  27944. !          Nodes.Table (N + 2).Field6 := Val;
  27945. !       end Set_Field13;
  27946.   
  27947. !       procedure Set_Field14 (N : Node_Id; Val : Union_Id) is
  27948.         begin
  27949.            pragma Assert (Nkind (N) in N_Entity);
  27950. !          Nodes.Table (N + 2).Field7 := Val;
  27951. !       end Set_Field14;
  27952.   
  27953. !       procedure Set_Field15 (N : Node_Id; Val : Union_Id) is
  27954.         begin
  27955.            pragma Assert (Nkind (N) in N_Entity);
  27956. !          Nodes.Table (N + 2).Field8 := Val;
  27957. !       end Set_Field15;
  27958.   
  27959. !       procedure Set_Field16 (N : Node_Id; Val : Union_Id) is
  27960.         begin
  27961.            pragma Assert (Nkind (N) in N_Entity);
  27962. !          Nodes.Table (N + 2).Field9 := Val;
  27963. !       end Set_Field16;
  27964.   
  27965. !       procedure Set_Field17 (N : Node_Id; Val : Union_Id) is
  27966.         begin
  27967.            pragma Assert (Nkind (N) in N_Entity);
  27968. !          Nodes.Table (N + 2).Field10 := Val;
  27969. !       end Set_Field17;
  27970.   
  27971. !       procedure Set_Field18 (N : Node_Id; Val : Union_Id) is
  27972.         begin
  27973.            pragma Assert (Nkind (N) in N_Entity);
  27974. !          Nodes.Table (N + 2).Field11 := Val;
  27975. !       end Set_Field18;
  27976.   
  27977. !       procedure Set_Field19 (N : Node_Id; Val : Union_Id) is
  27978.         begin
  27979.            pragma Assert (Nkind (N) in N_Entity);
  27980. !          Nodes.Table (N + 2).Field12 := Val;
  27981. !       end Set_Field19;
  27982.   
  27983. !       procedure Set_Node1 (N : Node_Id; Val : Node_Id) is
  27984.         begin
  27985.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27986. !          Nodes.Table (N).Field1 := Union_Id (Val);
  27987. !       end Set_Node1;
  27988.   
  27989. !       procedure Set_Node2 (N : Node_Id; Val : Node_Id) is
  27990.         begin
  27991.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27992. !          Nodes.Table (N).Field2 := Union_Id (Val);
  27993. !       end Set_Node2;
  27994.   
  27995. !       procedure Set_Node3 (N : Node_Id; Val : Node_Id) is
  27996.         begin
  27997.            pragma Assert (N in Nodes.First .. Nodes.Last);
  27998. !          Nodes.Table (N).Field3 := Union_Id (Val);
  27999. !       end Set_Node3;
  28000.   
  28001. !       procedure Set_Node4 (N : Node_Id; Val : Node_Id) is
  28002.         begin
  28003.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28004. !          Nodes.Table (N).Field4 := Union_Id (Val);
  28005. !       end Set_Node4;
  28006.   
  28007. !       procedure Set_Node5 (N : Node_Id; Val : Node_Id) is
  28008.         begin
  28009.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28010. !          Nodes.Table (N).Field5 := Union_Id (Val);
  28011. !       end Set_Node5;
  28012.   
  28013. !       procedure Set_Node6 (N : Node_Id; Val : Node_Id) is
  28014.         begin
  28015.            pragma Assert (Nkind (N) in N_Entity);
  28016. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  28017. !       end Set_Node6;
  28018.   
  28019. !       procedure Set_Node7 (N : Node_Id; Val : Node_Id) is
  28020.         begin
  28021.            pragma Assert (Nkind (N) in N_Entity);
  28022. !          Nodes.Table (N + 1).Field7 := Union_Id (Val);
  28023. !       end Set_Node7;
  28024.   
  28025. !       procedure Set_Node8 (N : Node_Id; Val : Node_Id) is
  28026.         begin
  28027.            pragma Assert (Nkind (N) in N_Entity);
  28028. !          Nodes.Table (N + 1).Field8 := Union_Id (Val);
  28029. !       end Set_Node8;
  28030.   
  28031. !       procedure Set_Node9 (N : Node_Id; Val : Node_Id) is
  28032.         begin
  28033.            pragma Assert (Nkind (N) in N_Entity);
  28034. !          Nodes.Table (N + 1).Field9 := Union_Id (Val);
  28035. !       end Set_Node9;
  28036.   
  28037. !       procedure Set_Node10 (N : Node_Id; Val : Node_Id) is
  28038.         begin
  28039.            pragma Assert (Nkind (N) in N_Entity);
  28040. !          Nodes.Table (N + 1).Field10 := Union_Id (Val);
  28041. !       end Set_Node10;
  28042.   
  28043. !       procedure Set_Node11 (N : Node_Id; Val : Node_Id) is
  28044.         begin
  28045.            pragma Assert (Nkind (N) in N_Entity);
  28046. !          Nodes.Table (N + 1).Field11 := Union_Id (Val);
  28047. !       end Set_Node11;
  28048.   
  28049. !       procedure Set_Node12 (N : Node_Id; Val : Node_Id) is
  28050.         begin
  28051.            pragma Assert (Nkind (N) in N_Entity);
  28052. !          Nodes.Table (N + 1).Field12 := Union_Id (Val);
  28053. !       end Set_Node12;
  28054.   
  28055. !       procedure Set_Node13 (N : Node_Id; Val : Node_Id) is
  28056.         begin
  28057.            pragma Assert (Nkind (N) in N_Entity);
  28058. !          Nodes.Table (N + 2).Field6 := Union_Id (Val);
  28059. !       end Set_Node13;
  28060.   
  28061. !       procedure Set_Node14 (N : Node_Id; Val : Node_Id) is
  28062.         begin
  28063.            pragma Assert (Nkind (N) in N_Entity);
  28064. !          Nodes.Table (N + 2).Field7 := Union_Id (Val);
  28065. !       end Set_Node14;
  28066.   
  28067. !       procedure Set_Node15 (N : Node_Id; Val : Node_Id) is
  28068.         begin
  28069.            pragma Assert (Nkind (N) in N_Entity);
  28070. !          Nodes.Table (N + 2).Field8 := Union_Id (Val);
  28071. !       end Set_Node15;
  28072.   
  28073. !       procedure Set_Node16 (N : Node_Id; Val : Node_Id) is
  28074.         begin
  28075.            pragma Assert (Nkind (N) in N_Entity);
  28076. !          Nodes.Table (N + 2).Field9 := Union_Id (Val);
  28077. !       end Set_Node16;
  28078.   
  28079. !       procedure Set_Node17 (N : Node_Id; Val : Node_Id) is
  28080.         begin
  28081.            pragma Assert (Nkind (N) in N_Entity);
  28082. !          Nodes.Table (N + 2).Field10 := Union_Id (Val);
  28083. !       end Set_Node17;
  28084.   
  28085. !       procedure Set_Node18 (N : Node_Id; Val : Node_Id) is
  28086.         begin
  28087.            pragma Assert (Nkind (N) in N_Entity);
  28088. !          Nodes.Table (N + 2).Field11 := Union_Id (Val);
  28089. !       end Set_Node18;
  28090.   
  28091. !       procedure Set_Node19 (N : Node_Id; Val : Node_Id) is
  28092.         begin
  28093.            pragma Assert (Nkind (N) in N_Entity);
  28094. !          Nodes.Table (N + 2).Field12 := Union_Id (Val);
  28095. !       end Set_Node19;
  28096.   
  28097. !       procedure Set_List1 (N : Node_Id; Val : List_Id) is
  28098.         begin
  28099.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28100. !          Nodes.Table (N).Field1 := Union_Id (Val);
  28101. !       end Set_List1;
  28102.   
  28103. !       procedure Set_List2 (N : Node_Id; Val : List_Id) is
  28104.         begin
  28105.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28106. !          Nodes.Table (N).Field2 := Union_Id (Val);
  28107. !       end Set_List2;
  28108.   
  28109. !       procedure Set_List3 (N : Node_Id; Val : List_Id) is
  28110.         begin
  28111.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28112. !          Nodes.Table (N).Field3 := Union_Id (Val);
  28113. !       end Set_List3;
  28114.   
  28115. !       procedure Set_List4 (N : Node_Id; Val : List_Id) is
  28116.         begin
  28117.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28118. !          Nodes.Table (N).Field4 := Union_Id (Val);
  28119. !       end Set_List4;
  28120.   
  28121. !       procedure Set_List5 (N : Node_Id; Val : List_Id) is
  28122.         begin
  28123.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28124. !          Nodes.Table (N).Field5 := Union_Id (Val);
  28125. !       end Set_List5;
  28126.   
  28127. !       procedure Set_Elist6 (N : Node_Id; Val : Elist_Id) is
  28128.         begin
  28129.            pragma Assert (Nkind (N) in N_Entity);
  28130. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  28131. !       end Set_Elist6;
  28132.   
  28133. !       procedure Set_Elist13 (N : Node_Id; Val : Elist_Id) is
  28134.         begin
  28135.            pragma Assert (Nkind (N) in N_Entity);
  28136. !          Nodes.Table (N + 2).Field6 := Union_Id (Val);
  28137. !       end Set_Elist13;
  28138.   
  28139. !       procedure Set_Name1 (N : Node_Id; Val : Name_Id) is
  28140.         begin
  28141.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28142. !          Nodes.Table (N).Field1 := Union_Id (Val);
  28143. !       end Set_Name1;
  28144.   
  28145. !       procedure Set_Name2 (N : Node_Id; Val : Name_Id) is
  28146.         begin
  28147.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28148. !          Nodes.Table (N).Field2 := Union_Id (Val);
  28149. !       end Set_Name2;
  28150.   
  28151. !       procedure Set_Str3 (N : Node_Id; Val : String_Id) is
  28152.         begin
  28153.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28154. !          Nodes.Table (N).Field3 := Union_Id (Val);
  28155. !       end Set_Str3;
  28156.   
  28157. !       procedure Set_Uint3 (N : Node_Id; Val : Uint) is
  28158.         begin
  28159.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28160. !          Nodes.Table (N).Field3 := Union_Id (Val);
  28161. !       end Set_Uint3;
  28162.   
  28163. !       procedure Set_Uint4 (N : Node_Id; Val : Uint) is
  28164.         begin
  28165.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28166. !          Nodes.Table (N).Field4 := Union_Id (Val);
  28167. !       end Set_Uint4;
  28168.   
  28169. !       procedure Set_Uint9 (N : Node_Id; Val : Uint) is
  28170.         begin
  28171.            pragma Assert (Nkind (N) in N_Entity);
  28172. !          Nodes.Table (N + 1).Field9 := Union_Id (Val);
  28173. !       end Set_Uint9;
  28174.   
  28175. !       procedure Set_Uint11 (N : Node_Id; Val : Uint) is
  28176.         begin
  28177.            pragma Assert (Nkind (N) in N_Entity);
  28178. !          Nodes.Table (N + 1).Field11 := Union_Id (Val);
  28179. !       end Set_Uint11;
  28180.   
  28181. !       procedure Set_Uint12 (N : Node_Id; Val : Uint) is
  28182.         begin
  28183.            pragma Assert (Nkind (N) in N_Entity);
  28184. !          Nodes.Table (N + 1).Field12 := Union_Id (Val);
  28185. !       end Set_Uint12;
  28186.   
  28187. !       procedure Set_Uint15 (N : Node_Id; Val : Uint) is
  28188.         begin
  28189.            pragma Assert (Nkind (N) in N_Entity);
  28190. !          Nodes.Table (N + 2).Field8 := Union_Id (Val);
  28191. !       end Set_Uint15;
  28192.   
  28193. !       procedure Set_Ureal3 (N : Node_Id; Val : Ureal) is
  28194.         begin
  28195.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28196. !          Nodes.Table (N).Field3 := Union_Id (Val);
  28197. !       end Set_Ureal3;
  28198.   
  28199. !       procedure Set_Ureal6 (N : Node_Id; Val : Ureal) is
  28200.         begin
  28201.            pragma Assert (Nkind (N) in N_Entity);
  28202. !          Nodes.Table (N + 1).Field6 := Union_Id (Val);
  28203. !       end Set_Ureal6;
  28204.   
  28205. !       procedure Set_Ureal7 (N : Node_Id; Val : Ureal) is
  28206.         begin
  28207.            pragma Assert (Nkind (N) in N_Entity);
  28208. !          Nodes.Table (N + 1).Field7 := Union_Id (Val);
  28209. !       end Set_Ureal7;
  28210.   
  28211. !       procedure Set_Char_Code2 (N : Node_Id; Val : Char_Code) is
  28212.         begin
  28213.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28214. !          Nodes.Table (N).Field2 := Union_Id (Val) + Char_Code_Bias;
  28215. !       end Set_Char_Code2;
  28216.   
  28217. !       procedure Set_Flag1 (N : Node_Id; Val : Boolean) is
  28218.         begin
  28219.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28220. !          Nodes.Table (N).Flag1 := Val;
  28221. !       end Set_Flag1;
  28222.   
  28223. !       procedure Set_Flag2 (N : Node_Id; Val : Boolean) is
  28224.         begin
  28225.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28226. !          Nodes.Table (N).Flag2 := Val;
  28227. !       end Set_Flag2;
  28228.   
  28229. !       procedure Set_Flag3 (N : Node_Id; Val : Boolean) is
  28230.         begin
  28231.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28232. !          Nodes.Table (N).Flag3 := Val;
  28233. !       end Set_Flag3;
  28234.   
  28235. !       procedure Set_Flag4 (N : Node_Id; Val : Boolean) is
  28236.         begin
  28237.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28238. !          Nodes.Table (N).Flag4 := Val;
  28239. !       end Set_Flag4;
  28240.   
  28241. !       procedure Set_Flag5 (N : Node_Id; Val : Boolean) is
  28242.         begin
  28243.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28244. !          Nodes.Table (N).Flag5 := Val;
  28245. !       end Set_Flag5;
  28246.   
  28247. !       procedure Set_Flag6 (N : Node_Id; Val : Boolean) is
  28248.         begin
  28249.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28250. !          Nodes.Table (N).Flag6 := Val;
  28251. !       end Set_Flag6;
  28252.   
  28253. !       procedure Set_Flag7 (N : Node_Id; Val : Boolean) is
  28254.         begin
  28255.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28256. !          Nodes.Table (N).Flag7 := Val;
  28257. !       end Set_Flag7;
  28258.   
  28259. !       procedure Set_Flag8 (N : Node_Id; Val : Boolean) is
  28260.         begin
  28261.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28262. !          Nodes.Table (N).Flag8 := Val;
  28263. !       end Set_Flag8;
  28264.   
  28265. !       procedure Set_Flag9 (N : Node_Id; Val : Boolean) is
  28266.         begin
  28267.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28268. !          Nodes.Table (N).Flag9 := Val;
  28269. !       end Set_Flag9;
  28270.   
  28271. !       procedure Set_Flag10 (N : Node_Id; Val : Boolean) is
  28272.         begin
  28273.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28274. !          Nodes.Table (N).Flag10 := Val;
  28275. !       end Set_Flag10;
  28276.   
  28277. !       procedure Set_Flag11 (N : Node_Id; Val : Boolean) is
  28278.         begin
  28279.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28280. !          Nodes.Table (N).Flag11 := Val;
  28281. !       end Set_Flag11;
  28282.   
  28283. !       procedure Set_Flag12 (N : Node_Id; Val : Boolean) is
  28284.         begin
  28285.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28286. !          Nodes.Table (N).Flag12 := Val;
  28287. !       end Set_Flag12;
  28288.   
  28289. !       procedure Set_Flag13 (N : Node_Id; Val : Boolean) is
  28290.         begin
  28291.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28292. !          Nodes.Table (N).Flag13 := Val;
  28293. !       end Set_Flag13;
  28294.   
  28295. !       procedure Set_Flag14 (N : Node_Id; Val : Boolean) is
  28296.         begin
  28297.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28298. !          Nodes.Table (N).Flag14 := Val;
  28299. !       end Set_Flag14;
  28300.   
  28301. !       procedure Set_Flag15 (N : Node_Id; Val : Boolean) is
  28302.         begin
  28303.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28304. !          Nodes.Table (N).Flag15 := Val;
  28305. !       end Set_Flag15;
  28306.   
  28307. !       procedure Set_Flag16 (N : Node_Id; Val : Boolean) is
  28308.         begin
  28309.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28310. !          Nodes.Table (N).Flag16 := Val;
  28311. !       end Set_Flag16;
  28312.   
  28313. !       procedure Set_Flag17 (N : Node_Id; Val : Boolean) is
  28314.         begin
  28315.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28316. !          Nodes.Table (N).Flag17 := Val;
  28317. !       end Set_Flag17;
  28318.   
  28319. !       procedure Set_Flag18 (N : Node_Id; Val : Boolean) is
  28320.         begin
  28321. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28322. !          Nodes.Table (N).Flag18 := Val;
  28323. !       end Set_Flag18;
  28324.   
  28325. !       procedure Set_Flag19 (N : Node_Id; Val : Boolean) is
  28326.         begin
  28327.            pragma Assert (Nkind (N) in N_Entity);
  28328. !          Nodes.Table (N + 1).In_List := Val;
  28329. !       end Set_Flag19;
  28330.   
  28331. !       procedure Set_Flag20 (N : Node_Id; Val : Boolean) is
  28332.         begin
  28333.            pragma Assert (Nkind (N) in N_Entity);
  28334. !          Nodes.Table (N + 1).Rewrite_Sub := Val;
  28335. !       end Set_Flag20;
  28336.   
  28337. !       procedure Set_Flag21 (N : Node_Id; Val : Boolean) is
  28338.         begin
  28339.            pragma Assert (Nkind (N) in N_Entity);
  28340. !          Nodes.Table (N + 1).Rewrite_Ins := Val;
  28341. !       end Set_Flag21;
  28342.   
  28343. !       procedure Set_Flag22 (N : Node_Id; Val : Boolean) is
  28344.         begin
  28345.            pragma Assert (Nkind (N) in N_Entity);
  28346. !          Nodes.Table (N + 1).Flag1 := Val;
  28347. !       end Set_Flag22;
  28348.   
  28349. !       procedure Set_Flag23 (N : Node_Id; Val : Boolean) is
  28350.         begin
  28351.            pragma Assert (Nkind (N) in N_Entity);
  28352. !          Nodes.Table (N + 1).Flag2 := Val;
  28353. !       end Set_Flag23;
  28354.   
  28355. !       procedure Set_Flag24 (N : Node_Id; Val : Boolean) is
  28356.         begin
  28357.            pragma Assert (Nkind (N) in N_Entity);
  28358. !          Nodes.Table (N + 1).Flag3 := Val;
  28359. !       end Set_Flag24;
  28360.   
  28361. !       procedure Set_Flag25 (N : Node_Id; Val : Boolean) is
  28362.         begin
  28363.            pragma Assert (Nkind (N) in N_Entity);
  28364. !          Nodes.Table (N + 1).Flag4 := Val;
  28365. !       end Set_Flag25;
  28366.   
  28367. !       procedure Set_Flag26 (N : Node_Id; Val : Boolean) is
  28368.         begin
  28369.            pragma Assert (Nkind (N) in N_Entity);
  28370. !          Nodes.Table (N + 1).Flag5 := Val;
  28371. !       end Set_Flag26;
  28372.   
  28373. !       procedure Set_Flag27 (N : Node_Id; Val : Boolean) is
  28374.         begin
  28375.            pragma Assert (Nkind (N) in N_Entity);
  28376. !          Nodes.Table (N + 1).Flag6 := Val;
  28377. !       end Set_Flag27;
  28378.   
  28379. !       procedure Set_Flag28 (N : Node_Id; Val : Boolean) is
  28380.         begin
  28381.            pragma Assert (Nkind (N) in N_Entity);
  28382. !          Nodes.Table (N + 1).Flag7 := Val;
  28383. !       end Set_Flag28;
  28384.   
  28385. !       procedure Set_Flag29 (N : Node_Id; Val : Boolean) is
  28386.         begin
  28387.            pragma Assert (Nkind (N) in N_Entity);
  28388. !          Nodes.Table (N + 1).Flag8 := Val;
  28389. !       end Set_Flag29;
  28390.   
  28391. !       procedure Set_Flag30 (N : Node_Id; Val : Boolean) is
  28392.         begin
  28393.            pragma Assert (Nkind (N) in N_Entity);
  28394. !          Nodes.Table (N + 1).Flag9 := Val;
  28395. !       end Set_Flag30;
  28396.   
  28397. !       procedure Set_Flag31 (N : Node_Id; Val : Boolean) is
  28398.         begin
  28399.            pragma Assert (Nkind (N) in N_Entity);
  28400. !          Nodes.Table (N + 1).Flag10 := Val;
  28401. !       end Set_Flag31;
  28402.   
  28403. !       procedure Set_Flag32 (N : Node_Id; Val : Boolean) is
  28404.         begin
  28405.            pragma Assert (Nkind (N) in N_Entity);
  28406. !          Nodes.Table (N + 1).Flag11 := Val;
  28407. !       end Set_Flag32;
  28408.   
  28409. !       procedure Set_Flag33 (N : Node_Id; Val : Boolean) is
  28410.         begin
  28411.            pragma Assert (Nkind (N) in N_Entity);
  28412. !          Nodes.Table (N + 1).Flag12 := Val;
  28413. !       end Set_Flag33;
  28414.   
  28415. !       procedure Set_Flag34 (N : Node_Id; Val : Boolean) is
  28416.         begin
  28417.            pragma Assert (Nkind (N) in N_Entity);
  28418. !          Nodes.Table (N + 1).Flag13 := Val;
  28419. !       end Set_Flag34;
  28420.   
  28421. !       procedure Set_Flag35 (N : Node_Id; Val : Boolean) is
  28422.         begin
  28423.            pragma Assert (Nkind (N) in N_Entity);
  28424. !          Nodes.Table (N + 1).Flag14 := Val;
  28425. !       end Set_Flag35;
  28426.   
  28427. !       procedure Set_Flag36 (N : Node_Id; Val : Boolean) is
  28428.         begin
  28429.            pragma Assert (Nkind (N) in N_Entity);
  28430. !          Nodes.Table (N + 1).Flag15 := Val;
  28431. !       end Set_Flag36;
  28432.   
  28433. !       procedure Set_Flag37 (N : Node_Id; Val : Boolean) is
  28434.         begin
  28435.            pragma Assert (Nkind (N) in N_Entity);
  28436. !          Nodes.Table (N + 1).Flag16 := Val;
  28437. !       end Set_Flag37;
  28438.   
  28439. !       procedure Set_Flag38 (N : Node_Id; Val : Boolean) is
  28440.         begin
  28441.            pragma Assert (Nkind (N) in N_Entity);
  28442. !          Nodes.Table (N + 1).Flag17 := Val;
  28443. !       end Set_Flag38;
  28444.   
  28445. !       procedure Set_Flag39 (N : Node_Id; Val : Boolean) is
  28446.         begin
  28447.            pragma Assert (Nkind (N) in N_Entity);
  28448. !          Nodes.Table (N + 1).Flag18 := Val;
  28449. !       end Set_Flag39;
  28450.   
  28451. !       procedure Set_Flag40 (N : Node_Id; Val : Boolean) is
  28452.         begin
  28453.            pragma Assert (Nkind (N) in N_Entity);
  28454. !          Nodes.Table (N + 2).In_List := Val;
  28455. !       end Set_Flag40;
  28456.   
  28457. !       procedure Set_Flag41 (N : Node_Id; Val : Boolean) is
  28458.         begin
  28459.            pragma Assert (Nkind (N) in N_Entity);
  28460. !          Nodes.Table (N + 2).Rewrite_Sub := Val;
  28461. !       end Set_Flag41;
  28462.   
  28463. !       procedure Set_Flag42 (N : Node_Id; Val : Boolean) is
  28464.         begin
  28465.            pragma Assert (Nkind (N) in N_Entity);
  28466. !          Nodes.Table (N + 2).Rewrite_Ins := Val;
  28467. !       end Set_Flag42;
  28468.   
  28469. !       procedure Set_Flag43 (N : Node_Id; Val : Boolean) is
  28470.         begin
  28471.            pragma Assert (Nkind (N) in N_Entity);
  28472. !          Nodes.Table (N + 2).Flag1 := Val;
  28473. !       end Set_Flag43;
  28474.   
  28475. !       procedure Set_Flag44 (N : Node_Id; Val : Boolean) is
  28476.         begin
  28477.            pragma Assert (Nkind (N) in N_Entity);
  28478. !          Nodes.Table (N + 2).Flag2 := Val;
  28479. !       end Set_Flag44;
  28480.   
  28481. !       procedure Set_Flag45 (N : Node_Id; Val : Boolean) is
  28482.         begin
  28483.            pragma Assert (Nkind (N) in N_Entity);
  28484. !          Nodes.Table (N + 2).Flag3 := Val;
  28485. !       end Set_Flag45;
  28486.   
  28487. !       procedure Set_Flag46 (N : Node_Id; Val : Boolean) is
  28488.         begin
  28489.            pragma Assert (Nkind (N) in N_Entity);
  28490. !          Nodes.Table (N + 2).Flag4 := Val;
  28491. !       end Set_Flag46;
  28492.   
  28493. !       procedure Set_Flag47 (N : Node_Id; Val : Boolean) is
  28494.         begin
  28495.            pragma Assert (Nkind (N) in N_Entity);
  28496. !          Nodes.Table (N + 2).Flag5 := Val;
  28497. !       end Set_Flag47;
  28498.   
  28499. !       procedure Set_Flag48 (N : Node_Id; Val : Boolean) is
  28500.         begin
  28501.            pragma Assert (Nkind (N) in N_Entity);
  28502. !          Nodes.Table (N + 2).Flag6 := Val;
  28503. !       end Set_Flag48;
  28504.   
  28505. !       procedure Set_Flag49 (N : Node_Id; Val : Boolean) is
  28506.         begin
  28507.            pragma Assert (Nkind (N) in N_Entity);
  28508. !          Nodes.Table (N + 2).Flag7 := Val;
  28509. !       end Set_Flag49;
  28510.   
  28511. !       procedure Set_Flag50 (N : Node_Id; Val : Boolean) is
  28512.         begin
  28513.            pragma Assert (Nkind (N) in N_Entity);
  28514. !          Nodes.Table (N + 2).Flag8 := Val;
  28515. !       end Set_Flag50;
  28516.   
  28517. !       procedure Set_Flag51 (N : Node_Id; Val : Boolean) is
  28518.         begin
  28519.            pragma Assert (Nkind (N) in N_Entity);
  28520. !          Nodes.Table (N + 2).Flag9 := Val;
  28521. !       end Set_Flag51;
  28522.   
  28523. !       procedure Set_Flag52 (N : Node_Id; Val : Boolean) is
  28524.         begin
  28525.            pragma Assert (Nkind (N) in N_Entity);
  28526. !          Nodes.Table (N + 2).Flag10 := Val;
  28527. !       end Set_Flag52;
  28528.   
  28529. !       procedure Set_Flag53 (N : Node_Id; Val : Boolean) is
  28530.         begin
  28531.            pragma Assert (Nkind (N) in N_Entity);
  28532. !          Nodes.Table (N + 2).Flag11 := Val;
  28533. !       end Set_Flag53;
  28534.   
  28535. !       procedure Set_Flag54 (N : Node_Id; Val : Boolean) is
  28536.         begin
  28537.            pragma Assert (Nkind (N) in N_Entity);
  28538. !          Nodes.Table (N + 2).Flag12 := Val;
  28539. !       end Set_Flag54;
  28540.   
  28541. !       procedure Set_Flag55 (N : Node_Id; Val : Boolean) is
  28542.         begin
  28543.            pragma Assert (Nkind (N) in N_Entity);
  28544. !          Nodes.Table (N + 2).Flag13 := Val;
  28545. !       end Set_Flag55;
  28546.   
  28547. !       procedure Set_Flag56 (N : Node_Id; Val : Boolean) is
  28548.         begin
  28549.            pragma Assert (Nkind (N) in N_Entity);
  28550. !          Nodes.Table (N + 2).Flag14 := Val;
  28551. !       end Set_Flag56;
  28552.   
  28553. !       procedure Set_Flag57 (N : Node_Id; Val : Boolean) is
  28554.         begin
  28555.            pragma Assert (Nkind (N) in N_Entity);
  28556. !          Nodes.Table (N + 2).Flag15 := Val;
  28557. !       end Set_Flag57;
  28558.   
  28559. !       procedure Set_Flag58 (N : Node_Id; Val : Boolean) is
  28560.         begin
  28561.            pragma Assert (Nkind (N) in N_Entity);
  28562. !          Nodes.Table (N + 2).Flag16 := Val;
  28563. !       end Set_Flag58;
  28564.   
  28565. !       procedure Set_Flag59 (N : Node_Id; Val : Boolean) is
  28566.         begin
  28567.            pragma Assert (Nkind (N) in N_Entity);
  28568. !          Nodes.Table (N + 2).Flag17 := Val;
  28569. !       end Set_Flag59;
  28570.   
  28571. !       procedure Set_Flag60 (N : Node_Id; Val : Boolean) is
  28572.         begin
  28573.            pragma Assert (Nkind (N) in N_Entity);
  28574. !          Nodes.Table (N + 2).Flag18 := Val;
  28575. !       end Set_Flag60;
  28576.   
  28577. !       procedure Set_Flag61 (N : Node_Id; Val : Boolean) is
  28578.         begin
  28579.            pragma Assert (Nkind (N) in N_Entity);
  28580. !          Nodes.Table (N + 1).Pflag1 := Val;
  28581. !       end Set_Flag61;
  28582.   
  28583. !       procedure Set_Flag62 (N : Node_Id; Val : Boolean) is
  28584.         begin
  28585.            pragma Assert (Nkind (N) in N_Entity);
  28586. !          Nodes.Table (N + 1).Pflag2 := Val;
  28587. !       end Set_Flag62;
  28588.   
  28589. !       procedure Set_Flag63 (N : Node_Id; Val : Boolean) is
  28590.         begin
  28591.            pragma Assert (Nkind (N) in N_Entity);
  28592. !          Nodes.Table (N + 2).Pflag1 := Val;
  28593. !       end Set_Flag63;
  28594.   
  28595. ! 
  28596. !       procedure Set_Flag64 (N : Node_Id; Val : Boolean) is
  28597.         begin
  28598.            pragma Assert (Nkind (N) in N_Entity);
  28599. !          Nodes.Table (N + 2).Pflag2 := Val;
  28600. !       end Set_Flag64;
  28601.   
  28602. !       procedure Set_Flag65 (N : Node_Id; Val : Boolean) is
  28603.         begin
  28604.            pragma Assert (Nkind (N) in N_Entity);
  28605. !          To_Flag_Byte_Ptr
  28606. !            (Node_Kind_Ptr'
  28607. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65 := Val;
  28608. !       end Set_Flag65;
  28609.   
  28610. !       procedure Set_Flag66 (N : Node_Id; Val : Boolean) is
  28611.         begin
  28612.            pragma Assert (Nkind (N) in N_Entity);
  28613. !          To_Flag_Byte_Ptr
  28614. !            (Node_Kind_Ptr'
  28615. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag66 := Val;
  28616. !       end Set_Flag66;
  28617.   
  28618. !       procedure Set_Flag67 (N : Node_Id; Val : Boolean) is
  28619.         begin
  28620.            pragma Assert (Nkind (N) in N_Entity);
  28621. !          To_Flag_Byte_Ptr
  28622. !            (Node_Kind_Ptr'
  28623. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag67 := Val;
  28624. !       end Set_Flag67;
  28625.   
  28626. !       procedure Set_Flag68 (N : Node_Id; Val : Boolean) is
  28627.         begin
  28628.            pragma Assert (Nkind (N) in N_Entity);
  28629. !          To_Flag_Byte_Ptr
  28630. !            (Node_Kind_Ptr'
  28631. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag68 := Val;
  28632. !       end Set_Flag68;
  28633.   
  28634. !       procedure Set_Flag69 (N : Node_Id; Val : Boolean) is
  28635.         begin
  28636.            pragma Assert (Nkind (N) in N_Entity);
  28637. !          To_Flag_Byte_Ptr
  28638. !            (Node_Kind_Ptr'
  28639. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag69 := Val;
  28640. !       end Set_Flag69;
  28641.   
  28642. !       procedure Set_Flag70 (N : Node_Id; Val : Boolean) is
  28643.         begin
  28644.            pragma Assert (Nkind (N) in N_Entity);
  28645. !          To_Flag_Byte_Ptr
  28646. !            (Node_Kind_Ptr'
  28647. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag70 := Val;
  28648. !       end Set_Flag70;
  28649.   
  28650. !       procedure Set_Flag71 (N : Node_Id; Val : Boolean) is
  28651. !       begin
  28652. !          pragma Assert (Nkind (N) in N_Entity);
  28653. !          To_Flag_Byte_Ptr
  28654. !            (Node_Kind_Ptr'
  28655. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag71 := Val;
  28656. !       end Set_Flag71;
  28657. ! 
  28658. !       procedure Set_Flag72 (N : Node_Id; Val : Boolean) is
  28659. !       begin
  28660. !          pragma Assert (Nkind (N) in N_Entity);
  28661. !          To_Flag_Byte_Ptr
  28662. !            (Node_Kind_Ptr'
  28663. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag72 := Val;
  28664. !       end Set_Flag72;
  28665. ! 
  28666. !       procedure Set_Node1_With_Parent (N : Node_Id; Val : Node_Id) is
  28667.         begin
  28668.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28669. !          if Val > Error then Set_Parent (Val, N); end if;
  28670. !          Set_Node1 (N, Val);
  28671. !       end Set_Node1_With_Parent;
  28672.   
  28673. !       procedure Set_Node2_With_Parent (N : Node_Id; Val : Node_Id) is
  28674.         begin
  28675.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28676. !          if Val > Error then Set_Parent (Val, N); end if;
  28677. !          Set_Node2 (N, Val);
  28678. !       end Set_Node2_With_Parent;
  28679.   
  28680. !       procedure Set_Node3_With_Parent (N : Node_Id; Val : Node_Id) is
  28681.         begin
  28682.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28683. !          if Val > Error then Set_Parent (Val, N); end if;
  28684. !          Set_Node3 (N, Val);
  28685. !       end Set_Node3_With_Parent;
  28686.   
  28687. !       procedure Set_Node4_With_Parent (N : Node_Id; Val : Node_Id) is
  28688.         begin
  28689.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28690. !          if Val > Error then Set_Parent (Val, N); end if;
  28691. !          Set_Node4 (N, Val);
  28692. !       end Set_Node4_With_Parent;
  28693.   
  28694. !       procedure Set_Node5_With_Parent (N : Node_Id; Val : Node_Id) is
  28695.         begin
  28696.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28697. !          if Val > Error then Set_Parent (Val, N); end if;
  28698. !          Set_Node5 (N, Val);
  28699. !       end Set_Node5_With_Parent;
  28700.   
  28701. !       procedure Set_List1_With_Parent (N : Node_Id; Val : List_Id) is
  28702.         begin
  28703.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28704. !          if Val /= No_List and then Val /= Error_List then
  28705. !             Set_Parent (Val, N);
  28706. !          end if;
  28707. !          Set_List1 (N, Val);
  28708. !       end Set_List1_With_Parent;
  28709.   
  28710. !       procedure Set_List2_With_Parent (N : Node_Id; Val : List_Id) is
  28711. !       begin
  28712. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28713. !          if Val /= No_List and then Val /= Error_List then
  28714. !             Set_Parent (Val, N);
  28715. !          end if;
  28716. !          Set_List2 (N, Val);
  28717. !       end Set_List2_With_Parent;
  28718. ! 
  28719. !       procedure Set_List3_With_Parent (N : Node_Id; Val : List_Id) is
  28720. !       begin
  28721. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28722. !          if Val /= No_List and then Val /= Error_List then
  28723. !             Set_Parent (Val, N);
  28724. !          end if;
  28725. !          Set_List3 (N, Val);
  28726. !       end Set_List3_With_Parent;
  28727. ! 
  28728. !       procedure Set_List4_With_Parent (N : Node_Id; Val : List_Id) is
  28729. !       begin
  28730. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28731. !          if Val /= No_List and then Val /= Error_List then
  28732. !             Set_Parent (Val, N);
  28733. !          end if;
  28734. !          Set_List4 (N, Val);
  28735. !       end Set_List4_With_Parent;
  28736. ! 
  28737. !       procedure Set_List5_With_Parent (N : Node_Id; Val : List_Id) is
  28738. !       begin
  28739. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28740. !          if Val /= No_List and then Val /= Error_List then
  28741. !             Set_Parent (Val, N);
  28742. !          end if;
  28743. !          Set_List5 (N, Val);
  28744. !       end Set_List5_With_Parent;
  28745. ! 
  28746. ! 
  28747. !       function Field1 (N : Node_Id) return Union_Id is
  28748. !       begin
  28749. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28750. !          return Nodes.Table (N).Field1;
  28751. !       end Field1;
  28752. ! 
  28753. !       function Field2 (N : Node_Id) return Union_Id is
  28754. !       begin
  28755. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28756. !          return Nodes.Table (N).Field2;
  28757. !       end Field2;
  28758. ! 
  28759. !       function Field3 (N : Node_Id) return Union_Id is
  28760. !       begin
  28761. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28762. !          return Nodes.Table (N).Field3;
  28763. !       end Field3;
  28764. ! 
  28765. !       function Field4 (N : Node_Id) return Union_Id is
  28766. !       begin
  28767. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28768. !          return Nodes.Table (N).Field4;
  28769. !       end Field4;
  28770. ! 
  28771. !       function Field5 (N : Node_Id) return Union_Id is
  28772. !       begin
  28773. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  28774. !          return Nodes.Table (N).Field5;
  28775. !       end Field5;
  28776. ! 
  28777. !       function Field6 (N : Node_Id) return Union_Id is
  28778.         begin
  28779.            pragma Assert (Nkind (N) in N_Entity);
  28780. !          return Nodes.Table (N + 1).Field6;
  28781. !       end Field6;
  28782.   
  28783. !       function Field7 (N : Node_Id) return Union_Id is
  28784.         begin
  28785.            pragma Assert (Nkind (N) in N_Entity);
  28786. !          return Nodes.Table (N + 1).Field7;
  28787. !       end Field7;
  28788.   
  28789. !       function Field8 (N : Node_Id) return Union_Id is
  28790.         begin
  28791.            pragma Assert (Nkind (N) in N_Entity);
  28792. !          return Nodes.Table (N + 1).Field8;
  28793. !       end Field8;
  28794.   
  28795. !       function Field9 (N : Node_Id) return Union_Id is
  28796.         begin
  28797.            pragma Assert (Nkind (N) in N_Entity);
  28798. !          return Nodes.Table (N + 1).Field9;
  28799. !       end Field9;
  28800.   
  28801. !       function Field10 (N : Node_Id) return Union_Id is
  28802.         begin
  28803.            pragma Assert (Nkind (N) in N_Entity);
  28804. !          return Nodes.Table (N + 1).Field10;
  28805. !       end Field10;
  28806.   
  28807. !       function Field11 (N : Node_Id) return Union_Id is
  28808.         begin
  28809.            pragma Assert (Nkind (N) in N_Entity);
  28810. !          return Nodes.Table (N + 1).Field11;
  28811. !       end Field11;
  28812.   
  28813. !       function Field12 (N : Node_Id) return Union_Id is
  28814.         begin
  28815.            pragma Assert (Nkind (N) in N_Entity);
  28816. !          return Nodes.Table (N + 1).Field12;
  28817. !       end Field12;
  28818.   
  28819. !       function Field13 (N : Node_Id) return Union_Id is
  28820.         begin
  28821.            pragma Assert (Nkind (N) in N_Entity);
  28822. !          return Nodes.Table (N + 2).Field6;
  28823. !       end Field13;
  28824.   
  28825. !       function Field14 (N : Node_Id) return Union_Id is
  28826.         begin
  28827.            pragma Assert (Nkind (N) in N_Entity);
  28828. !          return Nodes.Table (N + 2).Field7;
  28829. !       end Field14;
  28830.   
  28831. !       function Field15 (N : Node_Id) return Union_Id is
  28832.         begin
  28833.            pragma Assert (Nkind (N) in N_Entity);
  28834. !          return Nodes.Table (N + 2).Field8;
  28835. !       end Field15;
  28836.   
  28837. !       function Field16 (N : Node_Id) return Union_Id is
  28838.         begin
  28839.            pragma Assert (Nkind (N) in N_Entity);
  28840. !          return Nodes.Table (N + 2).Field9;
  28841. !       end Field16;
  28842.   
  28843. !       function Field17 (N : Node_Id) return Union_Id is
  28844.         begin
  28845.            pragma Assert (Nkind (N) in N_Entity);
  28846. !          return Nodes.Table (N + 2).Field10;
  28847. !       end Field17;
  28848.   
  28849. !       function Field18 (N : Node_Id) return Union_Id is
  28850.         begin
  28851.            pragma Assert (Nkind (N) in N_Entity);
  28852. !          return Nodes.Table (N + 2).Field11;
  28853. !       end Field18;
  28854.   
  28855. !       function Field19 (N : Node_Id) return Union_Id is
  28856.         begin
  28857.            pragma Assert (Nkind (N) in N_Entity);
  28858. !          return Nodes.Table (N + 2).Field12;
  28859. !       end Field19;
  28860.   
  28861. !       function Node1 (N : Node_Id) return Node_Id is
  28862.         begin
  28863.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28864. !          return Node_Id (Nodes.Table (N).Field1);
  28865. !       end Node1;
  28866.   
  28867. !       function Node2 (N : Node_Id) return Node_Id is
  28868.         begin
  28869.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28870. !          return Node_Id (Nodes.Table (N).Field2);
  28871. !       end Node2;
  28872.   
  28873. !       function Node3 (N : Node_Id) return Node_Id is
  28874.         begin
  28875.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28876. !          return Node_Id (Nodes.Table (N).Field3);
  28877. !       end Node3;
  28878.   
  28879. !       function Node4 (N : Node_Id) return Node_Id is
  28880.         begin
  28881.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28882. !          return Node_Id (Nodes.Table (N).Field4);
  28883. !       end Node4;
  28884.   
  28885. !       function Node5 (N : Node_Id) return Node_Id is
  28886.         begin
  28887.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28888. !          return Node_Id (Nodes.Table (N).Field5);
  28889. !       end Node5;
  28890.   
  28891. !       function Node6 (N : Node_Id) return Node_Id is
  28892.         begin
  28893.            pragma Assert (Nkind (N) in N_Entity);
  28894. !          return Node_Id (Nodes.Table (N + 1).Field6);
  28895. !       end Node6;
  28896.   
  28897. !       function Node7 (N : Node_Id) return Node_Id is
  28898.         begin
  28899.            pragma Assert (Nkind (N) in N_Entity);
  28900. !          return Node_Id (Nodes.Table (N + 1).Field7);
  28901. !       end Node7;
  28902.   
  28903. !       function Node8 (N : Node_Id) return Node_Id is
  28904.         begin
  28905.            pragma Assert (Nkind (N) in N_Entity);
  28906. !          return Node_Id (Nodes.Table (N + 1).Field8);
  28907. !       end Node8;
  28908.   
  28909. !       function Node9 (N : Node_Id) return Node_Id is
  28910.         begin
  28911.            pragma Assert (Nkind (N) in N_Entity);
  28912. !          return Node_Id (Nodes.Table (N + 1).Field9);
  28913. !       end Node9;
  28914.   
  28915. !       function Node10 (N : Node_Id) return Node_Id is
  28916.         begin
  28917.            pragma Assert (Nkind (N) in N_Entity);
  28918. !          return Node_Id (Nodes.Table (N + 1).Field10);
  28919. !       end Node10;
  28920.   
  28921. !       function Node11 (N : Node_Id) return Node_Id is
  28922.         begin
  28923.            pragma Assert (Nkind (N) in N_Entity);
  28924. !          return Node_Id (Nodes.Table (N + 1).Field11);
  28925. !       end Node11;
  28926.   
  28927. !       function Node12 (N : Node_Id) return Node_Id is
  28928.         begin
  28929.            pragma Assert (Nkind (N) in N_Entity);
  28930. !          return Node_Id (Nodes.Table (N + 1).Field12);
  28931. !       end Node12;
  28932.   
  28933. !       function Node13 (N : Node_Id) return Node_Id is
  28934.         begin
  28935.            pragma Assert (Nkind (N) in N_Entity);
  28936. !          return Node_Id (Nodes.Table (N + 2).Field6);
  28937. !       end Node13;
  28938.   
  28939. !       function Node14 (N : Node_Id) return Node_Id is
  28940.         begin
  28941.            pragma Assert (Nkind (N) in N_Entity);
  28942. !          return Node_Id (Nodes.Table (N + 2).Field7);
  28943. !       end Node14;
  28944.   
  28945. !       function Node15 (N : Node_Id) return Node_Id is
  28946.         begin
  28947.            pragma Assert (Nkind (N) in N_Entity);
  28948. !          return Node_Id (Nodes.Table (N + 2).Field8);
  28949. !       end Node15;
  28950.   
  28951. !       function Node16 (N : Node_Id) return Node_Id is
  28952.         begin
  28953.            pragma Assert (Nkind (N) in N_Entity);
  28954. !          return Node_Id (Nodes.Table (N + 2).Field9);
  28955. !       end Node16;
  28956.   
  28957. !       function Node17 (N : Node_Id) return Node_Id is
  28958.         begin
  28959.            pragma Assert (Nkind (N) in N_Entity);
  28960. !          return Node_Id (Nodes.Table (N + 2).Field10);
  28961. !       end Node17;
  28962.   
  28963. !       function Node18 (N : Node_Id) return Node_Id is
  28964.         begin
  28965.            pragma Assert (Nkind (N) in N_Entity);
  28966. !          return Node_Id (Nodes.Table (N + 2).Field11);
  28967. !       end Node18;
  28968.   
  28969. !       function Node19 (N : Node_Id) return Node_Id is
  28970.         begin
  28971.            pragma Assert (Nkind (N) in N_Entity);
  28972. !          return Node_Id (Nodes.Table (N + 2).Field12);
  28973. !       end Node19;
  28974.   
  28975. !       function List1 (N : Node_Id) return List_Id is
  28976.         begin
  28977.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28978. !          return List_Id (Nodes.Table (N).Field1);
  28979. !       end List1;
  28980.   
  28981. !       function List2 (N : Node_Id) return List_Id is
  28982.         begin
  28983.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28984. !          return List_Id (Nodes.Table (N).Field2);
  28985. !       end List2;
  28986.   
  28987. !       function List3 (N : Node_Id) return List_Id is
  28988.         begin
  28989.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28990. !          return List_Id (Nodes.Table (N).Field3);
  28991. !       end List3;
  28992.   
  28993. !       function List4 (N : Node_Id) return List_Id is
  28994.         begin
  28995.            pragma Assert (N in Nodes.First .. Nodes.Last);
  28996. !          return List_Id (Nodes.Table (N).Field4);
  28997. !       end List4;
  28998.   
  28999. !       function List5 (N : Node_Id) return List_Id is
  29000.         begin
  29001.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29002. !          return List_Id (Nodes.Table (N).Field5);
  29003. !       end List5;
  29004.   
  29005. !       function Elist6 (N : Node_Id) return Elist_Id is
  29006.         begin
  29007.            pragma Assert (Nkind (N) in N_Entity);
  29008. !          return Elist_Id (Nodes.Table (N + 1).Field6);
  29009. !       end Elist6;
  29010.   
  29011. !       function Elist13 (N : Node_Id) return Elist_Id is
  29012.         begin
  29013.            pragma Assert (Nkind (N) in N_Entity);
  29014. !          return Elist_Id (Nodes.Table (N + 2).Field6);
  29015. !       end Elist13;
  29016.   
  29017. !       function Name1 (N : Node_Id) return Name_Id is
  29018.         begin
  29019.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29020. !          return Name_Id (Nodes.Table (N).Field1);
  29021. !       end Name1;
  29022.   
  29023. !       function Name2 (N : Node_Id) return Name_Id is
  29024.         begin
  29025.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29026. !          return Name_Id (Nodes.Table (N).Field2);
  29027. !       end Name2;
  29028.   
  29029. !       function Str3 (N : Node_Id) return String_Id is
  29030.         begin
  29031.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29032. !          return String_Id (Nodes.Table (N).Field3);
  29033. !       end Str3;
  29034.   
  29035. !       function Char_Code2 (N : Node_Id) return Char_Code is
  29036.         begin
  29037.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29038. !          return Char_Code (Nodes.Table (N).Field2 - Char_Code_Bias);
  29039. !       end Char_Code2;
  29040.   
  29041. !       function Uint3 (N : Node_Id) return Uint is
  29042.         begin
  29043.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29044. !          return Uint (Nodes.Table (N).Field3);
  29045. !       end Uint3;
  29046.   
  29047. !       function Uint4 (N : Node_Id) return Uint is
  29048. !       begin
  29049. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  29050. !          return Uint (Nodes.Table (N).Field4);
  29051. !       end Uint4;
  29052. ! 
  29053. !       function Uint9 (N : Node_Id) return Uint is
  29054.         begin
  29055.            pragma Assert (Nkind (N) in N_Entity);
  29056. !          return Uint (Nodes.Table (N + 1).Field9);
  29057. !       end Uint9;
  29058.   
  29059. !       function Uint11 (N : Node_Id) return Uint is
  29060.         begin
  29061.            pragma Assert (Nkind (N) in N_Entity);
  29062. !          return Uint (Nodes.Table (N + 1).Field11);
  29063. !       end Uint11;
  29064.   
  29065. !       function Uint12 (N : Node_Id) return Uint is
  29066.         begin
  29067.            pragma Assert (Nkind (N) in N_Entity);
  29068. !          return Uint (Nodes.Table (N + 1).Field12);
  29069. !       end Uint12;
  29070.   
  29071. !       function Uint15 (N : Node_Id) return Uint is
  29072.         begin
  29073.            pragma Assert (Nkind (N) in N_Entity);
  29074. !          return Uint (Nodes.Table (N + 2).Field8);
  29075. !       end Uint15;
  29076.   
  29077. !       function Ureal3 (N : Node_Id) return Ureal is
  29078.         begin
  29079.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29080. !          return Ureal (Nodes.Table (N).Field3);
  29081. !       end Ureal3;
  29082.   
  29083. !       function Ureal6 (N : Node_Id) return Ureal is
  29084.         begin
  29085.            pragma Assert (Nkind (N) in N_Entity);
  29086. !          return Ureal (Nodes.Table (N + 1).Field6);
  29087. !       end Ureal6;
  29088.   
  29089. !       function Ureal7 (N : Node_Id) return Ureal is
  29090.         begin
  29091.            pragma Assert (Nkind (N) in N_Entity);
  29092. !          return Ureal (Nodes.Table (N + 1).Field7);
  29093. !       end Ureal7;
  29094.   
  29095. !       function Flag1 (N : Node_Id) return Boolean is
  29096.         begin
  29097.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29098. !          return Nodes.Table (N).Flag1;
  29099. !       end Flag1;
  29100.   
  29101. !       function Flag2 (N : Node_Id) return Boolean is
  29102.         begin
  29103.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29104. !          return Nodes.Table (N).Flag2;
  29105. !       end Flag2;
  29106.   
  29107. !       function Flag3 (N : Node_Id) return Boolean is
  29108.         begin
  29109.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29110. !          return Nodes.Table (N).Flag3;
  29111. !       end Flag3;
  29112.   
  29113. !       function Flag4 (N : Node_Id) return Boolean is
  29114.         begin
  29115.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29116. !          return Nodes.Table (N).Flag4;
  29117. !       end Flag4;
  29118.   
  29119. !       function Flag5 (N : Node_Id) return Boolean is
  29120.         begin
  29121.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29122. !          return Nodes.Table (N).Flag5;
  29123. !       end Flag5;
  29124.   
  29125. !       function Flag6 (N : Node_Id) return Boolean is
  29126.         begin
  29127.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29128. !          return Nodes.Table (N).Flag6;
  29129. !       end Flag6;
  29130.   
  29131. !       function Flag7 (N : Node_Id) return Boolean is
  29132.         begin
  29133.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29134. !          return Nodes.Table (N).Flag7;
  29135. !       end Flag7;
  29136.   
  29137. !       function Flag8 (N : Node_Id) return Boolean is
  29138.         begin
  29139.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29140. !          return Nodes.Table (N).Flag8;
  29141. !       end Flag8;
  29142.   
  29143. !       function Flag9 (N : Node_Id) return Boolean is
  29144.         begin
  29145.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29146. !          return Nodes.Table (N).Flag9;
  29147. !       end Flag9;
  29148.   
  29149. !       function Flag10 (N : Node_Id) return Boolean is
  29150.         begin
  29151.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29152. !          return Nodes.Table (N).Flag10;
  29153. !       end Flag10;
  29154.   
  29155. !       function Flag11 (N : Node_Id) return Boolean is
  29156.         begin
  29157.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29158. !          return Nodes.Table (N).Flag11;
  29159. !       end Flag11;
  29160.   
  29161. !       function Flag12 (N : Node_Id) return Boolean is
  29162.         begin
  29163.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29164. !          return Nodes.Table (N).Flag12;
  29165. !       end Flag12;
  29166.   
  29167. !       function Flag13 (N : Node_Id) return Boolean is
  29168.         begin
  29169.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29170. !          return Nodes.Table (N).Flag13;
  29171. !       end Flag13;
  29172.   
  29173. !       function Flag14 (N : Node_Id) return Boolean is
  29174.         begin
  29175.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29176. !          return Nodes.Table (N).Flag14;
  29177. !       end Flag14;
  29178.   
  29179. !       function Flag15 (N : Node_Id) return Boolean is
  29180.         begin
  29181.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29182. !          return Nodes.Table (N).Flag15;
  29183. !       end Flag15;
  29184.   
  29185. !       function Flag16 (N : Node_Id) return Boolean is
  29186.         begin
  29187.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29188. !          return Nodes.Table (N).Flag16;
  29189. !       end Flag16;
  29190.   
  29191. !       function Flag17 (N : Node_Id) return Boolean is
  29192.         begin
  29193.            pragma Assert (N in Nodes.First .. Nodes.Last);
  29194. !          return Nodes.Table (N).Flag17;
  29195. !       end Flag17;
  29196.   
  29197. !       function Flag18 (N : Node_Id) return Boolean is
  29198.         begin
  29199. !          pragma Assert (N in Nodes.First .. Nodes.Last);
  29200. !          return Nodes.Table (N).Flag18;
  29201. !       end Flag18;
  29202.   
  29203. !       function Flag19 (N : Node_Id) return Boolean is
  29204.         begin
  29205.            pragma Assert (Nkind (N) in N_Entity);
  29206. !          return Nodes.Table (N + 1).In_List;
  29207. !       end Flag19;
  29208.   
  29209. !       function Flag20 (N : Node_Id) return Boolean is
  29210.         begin
  29211.            pragma Assert (Nkind (N) in N_Entity);
  29212. !          return Nodes.Table (N + 1).Rewrite_Sub;
  29213. !       end Flag20;
  29214.   
  29215. !       function Flag21 (N : Node_Id) return Boolean is
  29216.         begin
  29217.            pragma Assert (Nkind (N) in N_Entity);
  29218. !          return Nodes.Table (N + 1).Rewrite_Ins;
  29219. !       end Flag21;
  29220.   
  29221. !       function Flag22 (N : Node_Id) return Boolean is
  29222.         begin
  29223.            pragma Assert (Nkind (N) in N_Entity);
  29224. !          return Nodes.Table (N + 1).Flag1;
  29225. !       end Flag22;
  29226.   
  29227. !       function Flag23 (N : Node_Id) return Boolean is
  29228.         begin
  29229.            pragma Assert (Nkind (N) in N_Entity);
  29230. !          return Nodes.Table (N + 1).Flag2;
  29231. !       end Flag23;
  29232.   
  29233. !       function Flag24 (N : Node_Id) return Boolean is
  29234.         begin
  29235.            pragma Assert (Nkind (N) in N_Entity);
  29236. !          return Nodes.Table (N + 1).Flag3;
  29237. !       end Flag24;
  29238.   
  29239. !       function Flag25 (N : Node_Id) return Boolean is
  29240.         begin
  29241.            pragma Assert (Nkind (N) in N_Entity);
  29242. !          return Nodes.Table (N + 1).Flag4;
  29243. !       end Flag25;
  29244.   
  29245. !       function Flag26 (N : Node_Id) return Boolean is
  29246.         begin
  29247.            pragma Assert (Nkind (N) in N_Entity);
  29248. !          return Nodes.Table (N + 1).Flag5;
  29249. !       end Flag26;
  29250.   
  29251. !       function Flag27 (N : Node_Id) return Boolean is
  29252.         begin
  29253.            pragma Assert (Nkind (N) in N_Entity);
  29254. !          return Nodes.Table (N + 1).Flag6;
  29255. !       end Flag27;
  29256.   
  29257. !       function Flag28 (N : Node_Id) return Boolean is
  29258.         begin
  29259.            pragma Assert (Nkind (N) in N_Entity);
  29260. !          return Nodes.Table (N + 1).Flag7;
  29261. !       end Flag28;
  29262.   
  29263. !       function Flag29 (N : Node_Id) return Boolean is
  29264.         begin
  29265.            pragma Assert (Nkind (N) in N_Entity);
  29266. !          return Nodes.Table (N + 1).Flag8;
  29267. !       end Flag29;
  29268.   
  29269. !       function Flag30 (N : Node_Id) return Boolean is
  29270.         begin
  29271.            pragma Assert (Nkind (N) in N_Entity);
  29272. !          return Nodes.Table (N + 1).Flag9;
  29273. !       end Flag30;
  29274.   
  29275. !       function Flag31 (N : Node_Id) return Boolean is
  29276.         begin
  29277.            pragma Assert (Nkind (N) in N_Entity);
  29278. !          return Nodes.Table (N + 1).Flag10;
  29279. !       end Flag31;
  29280.   
  29281. !       function Flag32 (N : Node_Id) return Boolean is
  29282.         begin
  29283.            pragma Assert (Nkind (N) in N_Entity);
  29284. !          return Nodes.Table (N + 1).Flag11;
  29285. !       end Flag32;
  29286.   
  29287. !       function Flag33 (N : Node_Id) return Boolean is
  29288.         begin
  29289.            pragma Assert (Nkind (N) in N_Entity);
  29290. !          return Nodes.Table (N + 1).Flag12;
  29291. !       end Flag33;
  29292.   
  29293. !       function Flag34 (N : Node_Id) return Boolean is
  29294.         begin
  29295.            pragma Assert (Nkind (N) in N_Entity);
  29296. !          return Nodes.Table (N + 1).Flag13;
  29297. !       end Flag34;
  29298.   
  29299. !       function Flag35 (N : Node_Id) return Boolean is
  29300.         begin
  29301.            pragma Assert (Nkind (N) in N_Entity);
  29302. !          return Nodes.Table (N + 1).Flag14;
  29303. !       end Flag35;
  29304.   
  29305. !       function Flag36 (N : Node_Id) return Boolean is
  29306.         begin
  29307.            pragma Assert (Nkind (N) in N_Entity);
  29308. !          return Nodes.Table (N + 1).Flag15;
  29309. !       end Flag36;
  29310.   
  29311. !       function Flag37 (N : Node_Id) return Boolean is
  29312.         begin
  29313.            pragma Assert (Nkind (N) in N_Entity);
  29314. !          return Nodes.Table (N + 1).Flag16;
  29315. !       end Flag37;
  29316.   
  29317. !       function Flag38 (N : Node_Id) return Boolean is
  29318.         begin
  29319.            pragma Assert (Nkind (N) in N_Entity);
  29320. !          return Nodes.Table (N + 1).Flag17;
  29321. !       end Flag38;
  29322.   
  29323. !       function Flag39 (N : Node_Id) return Boolean is
  29324.         begin
  29325.            pragma Assert (Nkind (N) in N_Entity);
  29326. !          return Nodes.Table (N + 1).Flag18;
  29327. !       end Flag39;
  29328.   
  29329. !       function Flag40 (N : Node_Id) return Boolean is
  29330.         begin
  29331.            pragma Assert (Nkind (N) in N_Entity);
  29332. !          return Nodes.Table (N + 2).In_List;
  29333. !       end Flag40;
  29334.   
  29335. !       function Flag41 (N : Node_Id) return Boolean is
  29336.         begin
  29337.            pragma Assert (Nkind (N) in N_Entity);
  29338. !          return Nodes.Table (N + 2).Rewrite_Sub;
  29339. !       end Flag41;
  29340.   
  29341. !       function Flag42 (N : Node_Id) return Boolean is
  29342.         begin
  29343.            pragma Assert (Nkind (N) in N_Entity);
  29344. !          return Nodes.Table (N + 2).Rewrite_Ins;
  29345. !       end Flag42;
  29346.   
  29347. !       function Flag43 (N : Node_Id) return Boolean is
  29348.         begin
  29349.            pragma Assert (Nkind (N) in N_Entity);
  29350. !          return Nodes.Table (N + 2).Flag1;
  29351. !       end Flag43;
  29352.   
  29353. !       function Flag44 (N : Node_Id) return Boolean is
  29354.         begin
  29355.            pragma Assert (Nkind (N) in N_Entity);
  29356. !          return Nodes.Table (N + 2).Flag2;
  29357. !       end Flag44;
  29358.   
  29359. !       function Flag45 (N : Node_Id) return Boolean is
  29360.         begin
  29361.            pragma Assert (Nkind (N) in N_Entity);
  29362. !          return Nodes.Table (N + 2).Flag3;
  29363. !       end Flag45;
  29364.   
  29365. !       function Flag46 (N : Node_Id) return Boolean is
  29366.         begin
  29367.            pragma Assert (Nkind (N) in N_Entity);
  29368. !          return Nodes.Table (N + 2).Flag4;
  29369. !       end Flag46;
  29370.   
  29371. !       function Flag47 (N : Node_Id) return Boolean is
  29372.         begin
  29373.            pragma Assert (Nkind (N) in N_Entity);
  29374. !          return Nodes.Table (N + 2).Flag5;
  29375. !       end Flag47;
  29376.   
  29377. !       function Flag48 (N : Node_Id) return Boolean is
  29378.         begin
  29379.            pragma Assert (Nkind (N) in N_Entity);
  29380. !          return Nodes.Table (N + 2).Flag6;
  29381. !       end Flag48;
  29382.   
  29383. !       function Flag49 (N : Node_Id) return Boolean is
  29384.         begin
  29385.            pragma Assert (Nkind (N) in N_Entity);
  29386. !          return Nodes.Table (N + 2).Flag7;
  29387. !       end Flag49;
  29388.   
  29389. !       function Flag50 (N : Node_Id) return Boolean is
  29390.         begin
  29391.            pragma Assert (Nkind (N) in N_Entity);
  29392. !          return Nodes.Table (N + 2).Flag8;
  29393. !       end Flag50;
  29394.   
  29395. !       function Flag51 (N : Node_Id) return Boolean is
  29396.         begin
  29397.            pragma Assert (Nkind (N) in N_Entity);
  29398. !          return Nodes.Table (N + 2).Flag9;
  29399. !       end Flag51;
  29400.   
  29401. !       function Flag52 (N : Node_Id) return Boolean is
  29402.         begin
  29403.            pragma Assert (Nkind (N) in N_Entity);
  29404. !          return Nodes.Table (N + 2).Flag10;
  29405. !       end Flag52;
  29406.   
  29407. !       function Flag53 (N : Node_Id) return Boolean is
  29408.         begin
  29409.            pragma Assert (Nkind (N) in N_Entity);
  29410. !          return Nodes.Table (N + 2).Flag11;
  29411. !       end Flag53;
  29412.   
  29413. !       function Flag54 (N : Node_Id) return Boolean is
  29414.         begin
  29415.            pragma Assert (Nkind (N) in N_Entity);
  29416. !          return Nodes.Table (N + 2).Flag12;
  29417. !       end Flag54;
  29418.   
  29419. !       function Flag55 (N : Node_Id) return Boolean is
  29420.         begin
  29421.            pragma Assert (Nkind (N) in N_Entity);
  29422. !          return Nodes.Table (N + 2).Flag13;
  29423. !       end Flag55;
  29424.   
  29425. !       function Flag56 (N : Node_Id) return Boolean is
  29426.         begin
  29427.            pragma Assert (Nkind (N) in N_Entity);
  29428. !          return Nodes.Table (N + 2).Flag14;
  29429. !       end Flag56;
  29430.   
  29431. !       function Flag57 (N : Node_Id) return Boolean is
  29432.         begin
  29433.            pragma Assert (Nkind (N) in N_Entity);
  29434. !          return Nodes.Table (N + 2).Flag15;
  29435. !       end Flag57;
  29436.   
  29437. !       function Flag58 (N : Node_Id) return Boolean is
  29438.         begin
  29439.            pragma Assert (Nkind (N) in N_Entity);
  29440. !          return Nodes.Table (N + 2).Flag16;
  29441. !       end Flag58;
  29442.   
  29443. !       function Flag59 (N : Node_Id) return Boolean is
  29444.         begin
  29445.            pragma Assert (Nkind (N) in N_Entity);
  29446. !          return Nodes.Table (N + 2).Flag17;
  29447. !       end Flag59;
  29448.   
  29449. !       function Flag60 (N : Node_Id) return Boolean is
  29450.         begin
  29451.            pragma Assert (Nkind (N) in N_Entity);
  29452. !          return Nodes.Table (N + 2).Flag18;
  29453. !       end Flag60;
  29454.   
  29455. !       function Flag61 (N : Node_Id) return Boolean is
  29456.         begin
  29457.            pragma Assert (Nkind (N) in N_Entity);
  29458. !          return Nodes.Table (N + 1).Pflag1;
  29459. !       end Flag61;
  29460.   
  29461. !       function Flag62 (N : Node_Id) return Boolean is
  29462.         begin
  29463.            pragma Assert (Nkind (N) in N_Entity);
  29464. !          return Nodes.Table (N + 1).Pflag2;
  29465. !       end Flag62;
  29466.   
  29467. !       function Flag63 (N : Node_Id) return Boolean is
  29468.         begin
  29469.            pragma Assert (Nkind (N) in N_Entity);
  29470. !          return Nodes.Table (N + 2).Pflag1;
  29471. !       end Flag63;
  29472.   
  29473. !       function Flag64 (N : Node_Id) return Boolean is
  29474.         begin
  29475.            pragma Assert (Nkind (N) in N_Entity);
  29476. !          return Nodes.Table (N + 2).Pflag2;
  29477. !       end Flag64;
  29478.   
  29479. !       function Flag65 (N : Node_Id) return Boolean is
  29480.         begin
  29481. + --         pragma Assert (Nkind (N) in N_Entity);
  29482. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag65;
  29483.            pragma Assert (Nkind (N) in N_Entity);
  29484. !          return  To_Flag_Byte_Ptr
  29485.              (Node_Kind_Ptr'
  29486. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65;
  29487. !       end Flag65;
  29488.   
  29489. !       function Flag66 (N : Node_Id) return Boolean is
  29490.         begin
  29491. + --         pragma Assert (Nkind (N) in N_Entity);
  29492. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag66;
  29493.            pragma Assert (Nkind (N) in N_Entity);
  29494. !          return To_Flag_Byte_Ptr
  29495.              (Node_Kind_Ptr'
  29496. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag66;
  29497. !       end Flag66;
  29498.   
  29499. !       function Flag67 (N : Node_Id) return Boolean is
  29500.         begin
  29501. + --         pragma Assert (Nkind (N) in N_Entity);
  29502. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag67;
  29503.            pragma Assert (Nkind (N) in N_Entity);
  29504. !          return To_Flag_Byte_Ptr
  29505.              (Node_Kind_Ptr'
  29506. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag67;
  29507. !       end Flag67;
  29508.   
  29509. !       function Flag68 (N : Node_Id) return Boolean is
  29510.         begin
  29511. + --         pragma Assert (Nkind (N) in N_Entity);
  29512. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag68;
  29513.            pragma Assert (Nkind (N) in N_Entity);
  29514. !          return To_Flag_Byte_Ptr
  29515.              (Node_Kind_Ptr'
  29516. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag68;
  29517. !       end Flag68;
  29518.   
  29519. !       function Flag69 (N : Node_Id) return Boolean is
  29520.         begin
  29521. + --         pragma Assert (Nkind (N) in N_Entity);
  29522. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag69;
  29523.            pragma Assert (Nkind (N) in N_Entity);
  29524. !          return To_Flag_Byte_Ptr
  29525.              (Node_Kind_Ptr'
  29526. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag69;
  29527. !       end Flag69;
  29528.   
  29529. !       function Flag70 (N : Node_Id) return Boolean is
  29530.         begin
  29531. + --         pragma Assert (Nkind (N) in N_Entity);
  29532. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag70;
  29533.            pragma Assert (Nkind (N) in N_Entity);
  29534. !          return To_Flag_Byte_Ptr
  29535.              (Node_Kind_Ptr'
  29536. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag70;
  29537. !       end Flag70;
  29538.   
  29539. !       function Flag71 (N : Node_Id) return Boolean is
  29540.         begin
  29541. + --         pragma Assert (Nkind (N) in N_Entity);
  29542. + --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag71;
  29543.            pragma Assert (Nkind (N) in N_Entity);
  29544. !          return To_Flag_Byte_Ptr
  29545.              (Node_Kind_Ptr'
  29546. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag71;
  29547. !       end Flag71;
  29548.   
  29549. !       function Flag72 (N : Node_Id) return Boolean is
  29550.         begin
  29551. ! --         pragma Assert (Nkind (N) in N_Entity);
  29552. ! --         return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag72;
  29553. !          pragma Assert (Nkind (N) in N_Entity);
  29554. !          return To_Flag_Byte_Ptr
  29555. !            (Node_Kind_Ptr'
  29556. !              (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag72;
  29557. !       end Flag72;
  29558.   
  29559.      end Unchecked_Access;
  29560.   
  29561. diff -rc --new-file /src/baseline/gnat-1.80/src/bindgen.adb gnat-1.80/src/bindgen.adb
  29562. *** /src/baseline/gnat-1.80/src/bindgen.adb    Fri Jun 10 15:42:28 1994
  29563. --- gnat-1.80/src/bindgen.adb    Wed Jul  6 16:57:06 1994
  29564. ***************
  29565. *** 252,260 ****
  29566.         end;
  29567.   
  29568.         --  Generate main
  29569.   
  29570.         if ALIs.Table (ALIs.First).Main_Program = Proc then
  29571. !          Write_Binder_Info ("void main (argc, argv)");
  29572.         else
  29573.            Write_Binder_Info ("int main (argc, argv)");
  29574.         end if;
  29575. --- 252,262 ----
  29576.         end;
  29577.   
  29578.         --  Generate main
  29579. +       --  Note:  main() should always be return type int, so I've hacked
  29580. +       --  this code to meet that ANSI requirement.  -fnf
  29581.   
  29582.         if ALIs.Table (ALIs.First).Main_Program = Proc then
  29583. !          Write_Binder_Info ("int main (argc, argv)");
  29584.         else
  29585.            Write_Binder_Info ("int main (argc, argv)");
  29586.         end if;
  29587. diff -rc --new-file /src/baseline/gnat-1.80/src/gnatbl.c gnat-1.80/src/gnatbl.c
  29588. *** /src/baseline/gnat-1.80/src/gnatbl.c    Fri Jun 10 15:42:23 1994
  29589. --- gnat-1.80/src/gnatbl.c    Wed Jul  6 16:57:25 1994
  29590. ***************
  29591. *** 51,56 ****
  29592. --- 51,60 ----
  29593.   #define DIR_SEPARATOR '/'
  29594.   #endif
  29595.   
  29596. + #if __amigados__
  29597. + #define fork vfork    /* AmigaDOS doesn't have a true fork() */
  29598. + #endif
  29599. + 
  29600.   static void proc_bind_file (char *aliname);
  29601.   static int is_regular_file (char *name);
  29602.   static void port_spawn (char *args[]);
  29603. ***************
  29604. *** 207,212 ****
  29605. --- 211,223 ----
  29606.     strcpy (tmppathval, ".;");
  29607.     pathval = strcat (tmppathval, pathval);
  29608.   #endif
  29609. + #if defined(__amigados__)
  29610. +   /* Provide a default PATH if not was found.  Perhaps this should be
  29611. +      done for all machines using a value derived from $(bindir) in the
  29612. +      Makefile? */
  29613. +   if (!pathval)
  29614. +     pathval = "/gnu/bin";
  29615. + #endif
  29616.   
  29617.     process_args (&argc , argv);
  29618.   
  29619. ***************
  29620. *** 400,412 ****
  29621.   #else
  29622.     pid = fork ();
  29623.     if (pid == -1) {
  29624. !     fprintf (stderr, "Error starting %s\n", args [0]);
  29625.       exit (1);
  29626.     }
  29627.     if (pid == 0) {
  29628.       /* The child */
  29629.       execv (args [0], args);
  29630. !     fprintf (stderr, "Failed to exec %s\n", args [0]);
  29631.       exit (1);
  29632.     }
  29633.   
  29634. --- 411,423 ----
  29635.   #else
  29636.     pid = fork ();
  29637.     if (pid == -1) {
  29638. !     fprintf (stderr, "Error starting %s, fork() failed\n", args [0]);
  29639.       exit (1);
  29640.     }
  29641.     if (pid == 0) {
  29642.       /* The child */
  29643.       execv (args [0], args);
  29644. !     fprintf (stderr, "Failed to exec %s, execv() failed\n", args [0]);
  29645.       exit (1);
  29646.     }
  29647.   
  29648. diff -rc --new-file /src/baseline/gnat-1.80/src/patches-gcc258.os2 gnat-1.80/src/patches-gcc258.os2
  29649. *** /src/baseline/gnat-1.80/src/patches-gcc258.os2    Fri Jun 10 15:44:45 1994
  29650. --- gnat-1.80/src/patches-gcc258.os2    Thu Jun 23 14:54:05 1994
  29651. ***************
  29652. *** 1,5 ****
  29653.   *** gcc.c.old    Thu Dec 23 17:50:02 1993
  29654. ! --- gcc.c    Mon Jan 24 19:16:34 1994
  29655.   ***************
  29656.   *** 34,40 ****
  29657.   --- 34,42 ----
  29658. --- 1,5 ----
  29659.   *** gcc.c.old    Thu Dec 23 17:50:02 1993
  29660. ! --- gcc.c    Sat Jun 11 03:05:52 1994
  29661.   ***************
  29662.   *** 34,40 ****
  29663.   --- 34,42 ----
  29664. ***************
  29665. *** 387,392 ****
  29666. --- 387,438 ----
  29667.           if (access (name, mode))
  29668.         {
  29669.   ***************
  29670. + *** 2131,2134 ****
  29671. + --- 2258,2289 ----
  29672. +   
  29673. +     temp = getenv ("COMPILER_PATH");
  29674. + + #ifdef OS2
  29675. + +   {
  29676. + +     /* Append current directory and value of PATH environment variable to
  29677. + +        COMPILER_PATH.  */
  29678. + +     char *newtemp, *path;
  29679. + +     /* Make sure string pointed to by temp is not overwritten by call to getenv
  29680. + +        below.  */
  29681. + +     if (temp) newtemp = strdup (temp);
  29682. + +     if (newtemp) {
  29683. + +       temp = newtemp;
  29684. + +       path = getenv ("PATH");
  29685. + +       newtemp = malloc ((temp?strlen(temp):0) + (path?strlen(path):0) + 4);
  29686. + +       if (newtemp) {
  29687. + +         int lastchar;
  29688. + +         if (temp) strcpy (newtemp, temp);
  29689. + +         else *newtemp = '\0';
  29690. + +         temp = newtemp;
  29691. + +         lastchar = strlen (temp);
  29692. + +         if (lastchar > 0 && temp[lastchar-1] != PATH_SEPARATOR)
  29693. + +           temp[lastchar++] = PATH_SEPARATOR;
  29694. + +         temp[lastchar++] = '.';
  29695. + +         temp[lastchar++] = PATH_SEPARATOR;
  29696. + +         temp[lastchar++] = '\0';
  29697. + +         if (path) strcat (temp, path);
  29698. + +       }
  29699. + +     }
  29700. + +   }
  29701. + + #endif
  29702. +     if (temp)
  29703. +       {
  29704. + ***************
  29705. + *** 2422,2427 ****
  29706. + --- 2577,2584 ----
  29707. +     /* Use 2 as fourth arg meaning try just the machine as a suffix,
  29708. +        as well as trying the machine and the version.  */
  29709. + + #ifndef OS2
  29710. +     add_prefix (&exec_prefix, standard_exec_prefix, 0, 2, NULL_PTR);
  29711. +     add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 2, NULL_PTR);
  29712. + + #endif
  29713. +   
  29714. +     add_prefix (&startfile_prefix, standard_exec_prefix, 0, 1, NULL_PTR);
  29715. + ***************
  29716.   *** 3689,3695 ****
  29717.   --- 3816,3826 ----
  29718.       char *p;
  29719. ***************
  29720. *** 481,487 ****
  29721.     
  29722.     /* More 'friendly' abort that prints the line and file.
  29723.   *** cccp.c.old    Fri Nov  5 17:28:28 1993
  29724. ! --- cccp.c    Wed Dec  1 18:16:51 1993
  29725.   ***************
  29726.   *** 1091,1097 ****
  29727.   --- 1091,1101 ----
  29728. --- 527,556 ----
  29729.     
  29730.     /* More 'friendly' abort that prints the line and file.
  29731.   *** cccp.c.old    Fri Nov  5 17:28:28 1993
  29732. ! --- cccp.c    Sat Jun 11 03:38:50 1994
  29733. ! ***************
  29734. ! *** 570,573 ****
  29735. ! --- 570,574 ----
  29736. !       { TOOL_INCLUDE_DIR, 0},
  29737. !   #else /* not CROSS_COMPILE */
  29738. ! + #ifndef OS2
  29739. !       /* This should be /use/local/include and should come before
  29740. !          the fixincludes-fixed header files.  */
  29741. ! ***************
  29742. ! *** 579,587 ****
  29743. ! --- 580,591 ----
  29744. !          the files that we fix.  */
  29745. !       { GCC_INCLUDE_DIR, 0},
  29746. ! + #endif
  29747. !       /* Some systems have an extra dir of include files.  */
  29748. !   #ifdef SYSTEM_INCLUDE_DIR
  29749. !       { SYSTEM_INCLUDE_DIR, 0},
  29750. !   #endif
  29751. ! + #ifndef OS2
  29752. !       { STANDARD_INCLUDE_DIR, 0},
  29753. ! + #endif
  29754. !   #endif /* not CROSS_COMPILE */
  29755. !       { 0, 0}
  29756.   ***************
  29757.   *** 1091,1097 ****
  29758.   --- 1091,1101 ----
  29759. ***************
  29760. *** 513,519 ****
  29761.     
  29762.     #ifdef RLIMIT_STACK
  29763.   *** tree.c.old    Fri Feb  4 07:32:25 1994
  29764. ! --- tree.c    Mon Feb  7 17:09:52 1994
  29765.   *************** int_fits_type_p (c, type)
  29766.   *** 3607,3617 ****
  29767.     {
  29768. --- 582,608 ----
  29769.     
  29770.     #ifdef RLIMIT_STACK
  29771.   *** tree.c.old    Fri Feb  4 07:32:25 1994
  29772. ! --- tree.c    Tue Jun  7 06:43:25 1994
  29773. ! *************** staticp (arg)
  29774. ! *** 1827,1832 ****
  29775. !     switch (TREE_CODE (arg))
  29776. !       {
  29777. ! -     case VAR_DECL:
  29778. !       case FUNCTION_DECL:
  29779. !         return TREE_STATIC (arg) || DECL_EXTERNAL (arg);
  29780. !   
  29781. ! --- 1827,1837 ----
  29782. !     switch (TREE_CODE (arg))
  29783. !       {
  29784. !       case FUNCTION_DECL:
  29785. ! +       /* Nested functions aren't static.  Since taking their address
  29786. ! +      involves a trampoline.  */
  29787. ! +       if (decl_function_context (arg) != 0)
  29788. ! +     return 0;
  29789. ! +       /* ... fall through ... */
  29790. ! +     case VAR_DECL:
  29791. !         return TREE_STATIC (arg) || DECL_EXTERNAL (arg);
  29792. !   
  29793.   *************** int_fits_type_p (c, type)
  29794.   *** 3607,3617 ****
  29795.     {
  29796. ***************
  29797. *** 527,533 ****
  29798.   !         && (TREE_INT_CST_HIGH (c) >= 0 || !TREE_UNSIGNED (TREE_TYPE (c))));
  29799.     }
  29800.     
  29801. ! --- 3607,3619 ----
  29802.     {
  29803.       if (TREE_UNSIGNED (type))
  29804.   !     return (! (TREE_CODE (TYPE_MAX_VALUE (type)) == INTEGER_CST
  29805. --- 616,622 ----
  29806.   !         && (TREE_INT_CST_HIGH (c) >= 0 || !TREE_UNSIGNED (TREE_TYPE (c))));
  29807.     }
  29808.     
  29809. ! --- 3612,3624 ----
  29810.     {
  29811.       if (TREE_UNSIGNED (type))
  29812.   !     return (! (TREE_CODE (TYPE_MAX_VALUE (type)) == INTEGER_CST
  29813. ***************
  29814. *** 570,576 ****
  29815.   *** varasm.c.old        Sun Feb 27 08:51:17 1994
  29816.   --- varasm.c    Tue Mar  1 18:22:54 1994
  29817.   *************** output_constant (exp, size)
  29818. ! *** 3324,3327 ****
  29819.   --- 3324,3338 ----
  29820.         return;
  29821.     
  29822. --- 659,665 ----
  29823.   *** varasm.c.old        Sun Feb 27 08:51:17 1994
  29824.   --- varasm.c    Tue Mar  1 18:22:54 1994
  29825.   *************** output_constant (exp, size)
  29826. ! *** 3270,3273 ****
  29827.   --- 3324,3338 ----
  29828.         return;
  29829.     
  29830. ***************
  29831. *** 588,594 ****
  29832.       /* Allow a constructor with no elements for any data type.
  29833.          This means to fill the space with zeros.  */
  29834.   *************** output_constant (exp, size)
  29835. ! *** 3334,3343 ****
  29836.           return;
  29837.         }
  29838.   - 
  29839. --- 677,683 ----
  29840.       /* Allow a constructor with no elements for any data type.
  29841.          This means to fill the space with zeros.  */
  29842.   *************** output_constant (exp, size)
  29843. ! *** 3280,3289 ****
  29844.           return;
  29845.         }
  29846.   - 
  29847. ***************
  29848. *** 601,631 ****
  29849.       switch (code)
  29850.   --- 3345,3348 ----
  29851.   *** config/i386/os2.h.old    Mon Jan 24 19:59:36 1994
  29852. ! --- config/i386/os2.h    Thu Feb 17 21:25:54 1994
  29853.   *************** the Free Software Foundation, 675 Mass A
  29854. ! *** 23,26 ****
  29855. ! --- 23,32 ----
  29856.     #define DEFAULT_TARGET_MACHINE "i386-os2"
  29857.     #endif
  29858. ! + #ifndef LINK_SPEC
  29859. ! + #define LINK_SPEC "/st:1048576/pm:vio/noi/a:16/e/bas:65536/nol"
  29860. ! + #endif
  29861. ! + #ifndef LIB_SPEC
  29862. ! + #define LIB_SPEC "libc"
  29863. ! + #endif
  29864. !   #ifndef STARTFILE_SPEC
  29865. !   #define STARTFILE_SPEC ""
  29866. ! *************** the Free Software Foundation, 675 Mass A
  29867. ! *** 34,41 ****
  29868. !   #ifndef LOCAL_INCLUDE_DIR
  29869. !   #define LOCAL_INCLUDE_DIR "\\gcc\\include"
  29870. ! - #endif
  29871. ! - 
  29872. ! - #ifndef PATH_SEPARATOR
  29873. ! - #define PATH_SEPARATOR ';'
  29874.     #endif
  29875.     
  29876. - --- 40,43 ----
  29877.   *** config/i386/xm-os2.h.old    Thu Nov 04 14:59:30 1993
  29878.   --- config/i386/xm-os2.h    Fri Feb 18 03:28:50 1994
  29879.   ***************
  29880. --- 690,730 ----
  29881.       switch (code)
  29882.   --- 3345,3348 ----
  29883.   *** config/i386/os2.h.old    Mon Jan 24 19:59:36 1994
  29884. ! --- config/i386/os2.h    Sat Jun 11 04:09:00 1994
  29885.   *************** the Free Software Foundation, 675 Mass A
  29886. ! *** 23,41 ****
  29887.     #define DEFAULT_TARGET_MACHINE "i386-os2"
  29888.     #endif
  29889. ! ! #ifndef STARTFILE_SPEC
  29890. ! ! #define STARTFILE_SPEC ""
  29891. ! ! #endif
  29892. ! ! #ifndef MD_EXEC_PREFIX
  29893. ! ! #define MD_EXEC_PREFIX "\\gcc\\bin\\"
  29894. !   #endif
  29895. ! ! #ifndef STANDARD_STARTFILE_PREFIX
  29896. ! ! #define STANDARD_STARTFILE_PREFIX "\\gcc\\lib\\"
  29897. !   #endif
  29898. ! ! #ifndef LOCAL_INCLUDE_DIR
  29899. ! ! #define LOCAL_INCLUDE_DIR "\\gcc\\include"
  29900. ! ! #endif
  29901. ! ! 
  29902. ! ! #ifndef PATH_SEPARATOR
  29903. ! ! #define PATH_SEPARATOR ';'
  29904. !   #endif
  29905. !   
  29906. ! --- 23,34 ----
  29907. !   #define DEFAULT_TARGET_MACHINE "i386-os2"
  29908. !   #endif
  29909. ! ! #ifndef LINK_SPEC
  29910. ! ! #define LINK_SPEC "/st:1048576/pm:vio/noi/a:16/e/bas:65536/nol"
  29911. !   #endif
  29912. ! ! #ifndef LIB_SPEC
  29913. ! ! #define LIB_SPEC "libgcc libc"
  29914. !   #endif
  29915. ! ! #ifndef STARTFILE_SPEC
  29916. ! ! #define STARTFILE_SPEC ""
  29917.     #endif
  29918.     
  29919.   *** config/i386/xm-os2.h.old    Thu Nov 04 14:59:30 1993
  29920.   --- config/i386/xm-os2.h    Fri Feb 18 03:28:50 1994
  29921.   ***************
  29922. ***************
  29923. *** 652,654 ****
  29924. --- 751,772 ----
  29925.   + #endif
  29926.     
  29927.     #define EXECUTABLE_SUFFIX ".exe"
  29928. + *** config/i386/i386.h.old  Mon Apr 25 14:43:48 1994
  29929. + --- config/i386/i386.h      Tue May  3 19:16:46 1994
  29930. + ***************
  29931. + *** 254,257 ****
  29932. + --- 254,267 ----
  29933. +   {  1, 1, 1, 0, 0, 0, 0, 1, 1,  1,  1,  1,  1,  1,  1,  1,  1 }
  29934. +   
  29935. + + /* Order in which to allocate registers.  First allocate registers
  29936. + +    for which no insn operand demands that register, next those that are
  29937. + +    demanded by the least number of insns.  List frame pointer late and fixed 
  29938. + +    egisters last.  Note that, in general, we want to put nonsaved registers
  29939. + +    late, but we put bx relatively early since it is not demanded by
  29940. + +    any insn operand.  */
  29941. + + #define REG_ALLOC_ORDER \
  29942. + + /*si,di,bx,cx,dx,ax,bp,sp,st,st1,st2,st3,st4,st5,st6,st7,arg*/ \
  29943. + + {  4, 5, 3, 2, 1, 0, 6, 7, 8,  9, 10, 11, 12, 13, 14, 15, 16}
  29944. + + 
  29945. +   /* Macro to conditionally modify fixed_regs/call_used_regs.  */
  29946. +   #define CONDITIONAL_REGISTER_USAGE            \
  29947. diff -rc --new-file /src/baseline/gnat-1.80/src/s-reatim.adb gnat-1.80/src/s-reatim.adb
  29948. *** /src/baseline/gnat-1.80/src/s-reatim.adb    Thu Jan  1 00:00:00 1970
  29949. --- gnat-1.80/src/s-reatim.adb    Mon Jul  4 16:30:25 1994
  29950. ***************
  29951. *** 0 ****
  29952. --- 1,382 ----
  29953. + ------------------------------------------------------------------------------
  29954. + --                                                                          --
  29955. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  29956. + --                                                                          --
  29957. + --                      S Y S T E M . R E A L _ T I M E                     --
  29958. + --                                                                          --
  29959. + --                                  B o d y                                 --
  29960. + --                                                                          --
  29961. + --                             $Revision: 1.7 $                             --
  29962. + --                                                                          --
  29963. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  29964. + --                                                                          --
  29965. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  29966. + --  terms  of  the  GNU  Library General Public License as published by the --
  29967. + --  Free Software Foundation; either version 2,  or  (at  your  option) any --
  29968. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  29969. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  29970. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  29971. + --  eral Library Public License for more details.  You should have received --
  29972. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  29973. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  29974. + --  Ave, Cambridge, MA 02139, USA.                                          --
  29975. + --                                                                          --
  29976. + ------------------------------------------------------------------------------
  29977. + 
  29978. + pragma Checks_On;
  29979. + --  We require checks on for this body, because we rely on the constraint
  29980. + --  error to keep System.Real_Time.Time values within representable range.
  29981. + 
  29982. + with System.Compiler_Exceptions;
  29983. + --  Uses, function Current_Exceptions
  29984. + 
  29985. + with System.Task_Timer_Service;
  29986. + --  Uses, object Objects
  29987. + --        procedure Service_Entries
  29988. + 
  29989. + with System.Tasking;
  29990. + 
  29991. + with Unchecked_Conversion;
  29992. + 
  29993. + package body System.Real_Time is
  29994. + 
  29995. +    use Task_Clock;
  29996. +    --  Using it for arithmetic operations
  29997. + 
  29998. +    use Tasking.Protected_Objects;
  29999. +    use Tasking;
  30000. + 
  30001. +    package Timer renames System.Task_Timer_Service.Timer;
  30002. + 
  30003. +    function To_Access is new
  30004. +      Unchecked_Conversion (System.Address, Protection_Access);
  30005. + 
  30006. +    -----------
  30007. +    -- Clock --
  30008. +    -----------
  30009. + 
  30010. +    function Clock return Time is
  30011. +    begin
  30012. +       return Time (Task_Clock.Machine_Specifics.Clock);
  30013. +    end Clock;
  30014. + 
  30015. +    ---------
  30016. +    -- "<" --
  30017. +    ---------
  30018. + 
  30019. +    function "<" (Left, Right : Time) return Boolean is
  30020. +    begin
  30021. +       return Task_Clock.Stimespec (Left) < Task_Clock.Stimespec (Right);
  30022. +    end "<";
  30023. + 
  30024. +    function "<" (Left, Right : Time_Span) return Boolean is
  30025. +    begin
  30026. +       return Task_Clock.Stimespec (Left) < Task_Clock.Stimespec (Right);
  30027. +    end "<";
  30028. + 
  30029. +    ---------
  30030. +    -- ">" --
  30031. +    ---------
  30032. + 
  30033. +    function ">" (Left, Right : Time) return Boolean is
  30034. +    begin
  30035. +       return Right < Left;
  30036. +    end ">";
  30037. + 
  30038. +    function ">" (Left, Right : Time_Span) return Boolean is
  30039. +    begin
  30040. +       return Right < Left;
  30041. +    end ">";
  30042. + 
  30043. +    ----------
  30044. +    -- "<=" --
  30045. +    ----------
  30046. + 
  30047. +    function "<=" (Left, Right : Time) return Boolean is
  30048. +    begin
  30049. +       return not (Left > Right);
  30050. +    end "<=";
  30051. + 
  30052. +    function "<=" (Left, Right : Time_Span) return Boolean is
  30053. +    begin
  30054. +       return not (Left > Right);
  30055. +    end "<=";
  30056. + 
  30057. +    ----------
  30058. +    -- ">=" --
  30059. +    ----------
  30060. + 
  30061. +    function ">=" (Left, Right : Time) return Boolean is
  30062. +    begin
  30063. +       return not (Left < Right);
  30064. +    end ">=";
  30065. + 
  30066. +    function ">=" (Left, Right : Time_Span) return Boolean is
  30067. +    begin
  30068. +       return not (Left < Right);
  30069. +    end ">=";
  30070. + 
  30071. +    ---------
  30072. +    -- "+" --
  30073. +    ---------
  30074. + 
  30075. +    --  Note that Constraint_Error may be propagated
  30076. + 
  30077. +    function "+" (Left : Time; Right : Time_Span) return Time is
  30078. +    begin
  30079. +       return Time (Task_Clock.Stimespec (Left) + Task_Clock.Stimespec (Right));
  30080. +    end "+";
  30081. + 
  30082. +    function "+"  (Left : Time_Span; Right : Time) return Time is
  30083. +    begin
  30084. +       return Right + Left;
  30085. +    end "+";
  30086. + 
  30087. +    function "+"  (Left, Right : Time_Span) return Time_Span is
  30088. +    begin
  30089. +       return Time_Span (Time (Right) + Left);
  30090. +    end "+";
  30091. + 
  30092. +    ---------
  30093. +    -- "-" --
  30094. +    ---------
  30095. + 
  30096. +    --  Note that Constraint_Error may be propagated
  30097. + 
  30098. +    function "-"  (Left : Time; Right : Time_Span) return Time is
  30099. +    begin
  30100. +       return Time (Task_Clock.Stimespec (Left) - Task_Clock.Stimespec (Right));
  30101. +    end "-";
  30102. + 
  30103. +    function "-"  (Left, Right : Time) return Time_Span is
  30104. +    begin
  30105. +       return Time_Span (Left - Time_Span (Right));
  30106. +    end "-";
  30107. + 
  30108. +    function "-"  (Left, Right : Time_Span) return Time_Span is
  30109. +    begin
  30110. +       return Time_Span (Time (Left) - Right);
  30111. +    end "-";
  30112. + 
  30113. +    function "-"  (Right : Time_Span) return Time_Span is
  30114. +    begin
  30115. +       return Time_Span (-(Task_Clock.Stimespec (Right)));
  30116. +    end "-";
  30117. + 
  30118. +    ---------
  30119. +    -- "/" --
  30120. +    ---------
  30121. + 
  30122. +    --  Note that Constraint_Error may be propagated
  30123. + 
  30124. +    function "/"  (Left, Right : Time_Span) return integer is
  30125. +       Temp_TV : Task_Clock.Stimespec;
  30126. + 
  30127. +    begin
  30128. +       Temp_TV := Task_Clock.Stimespec (Left) / Task_Clock.Stimespec (Right);
  30129. + 
  30130. +       if not (Temp_TV < Task_Clock.Stimespec_Zero)  then
  30131. +          return Task_Clock.Stimespec_Seconds (Temp_TV);
  30132. +       end if;
  30133. + 
  30134. +       Temp_TV := -Temp_TV;
  30135. +       return -Task_Clock.Stimespec_Seconds (Temp_TV);
  30136. +    end "/";
  30137. + 
  30138. +    function "/"  (Left : Time_Span; Right : Integer) return Time_Span is
  30139. +    begin
  30140. +       return Time_Span (Task_Clock.Stimespec (Left) / Right);
  30141. +    end "/";
  30142. + 
  30143. +    ---------
  30144. +    -- "*" --
  30145. +    ---------
  30146. + 
  30147. +    --  Note that Constraint_Error may be propagated
  30148. + 
  30149. +    function "*"  (Left : Time_Span; Right : Integer) return Time_Span is
  30150. +    begin
  30151. +       return Time_Span (Task_Clock.Stimespec (Left) * Right);
  30152. +    end "*";
  30153. + 
  30154. +    function "*"  (Left : Integer; Right : Time_Span) return Time_Span is
  30155. +    begin
  30156. +       return Right * Left;
  30157. +    end "*";
  30158. + 
  30159. +    -----------
  30160. +    -- "abs" --
  30161. +    -----------
  30162. + 
  30163. +    --  Note that Constraint_Error may be propagated
  30164. + 
  30165. +    function "abs" (Right : Time_Span) return Time_Span is
  30166. +    begin
  30167. +       if Right < Time_Span_Zero then
  30168. +          return -Right;
  30169. +       end if;
  30170. + 
  30171. +       return Right;
  30172. +    end "abs";
  30173. + 
  30174. +    -----------------
  30175. +    -- To_Duration --
  30176. +    -----------------
  30177. + 
  30178. +    function To_Duration (FD : Time_Span) return Duration is
  30179. +    begin
  30180. +       return Task_Clock.Stimespec_To_Duration (Task_Clock.Stimespec (FD));
  30181. +    end To_Duration;
  30182. + 
  30183. +    ------------------
  30184. +    -- To_Time_Span --
  30185. +    ------------------
  30186. + 
  30187. +    function To_Time_Span (D : Duration) return Time_Span is
  30188. +    begin
  30189. +       return Time_Span (Task_Clock.Duration_To_Stimespec (D));
  30190. +    end To_Time_Span;
  30191. + 
  30192. +    -----------------
  30193. +    -- Nanoseconds --
  30194. +    -----------------
  30195. + 
  30196. +    function Nanoseconds (NS : integer) return Time_Span is
  30197. +    begin
  30198. +       return Time_Span_Unit * NS;
  30199. +    end Nanoseconds;
  30200. + 
  30201. +    ------------------
  30202. +    -- Microseconds --
  30203. +    ------------------
  30204. + 
  30205. +    function Microseconds  (US : integer) return Time_Span is
  30206. +    begin
  30207. +       return Nanoseconds (US) * 1000;
  30208. +    end Microseconds;
  30209. + 
  30210. +    -------------------
  30211. +    --  Milliseconds --
  30212. +    -------------------
  30213. + 
  30214. +    function Milliseconds (MS : integer) return Time_Span is
  30215. +    begin
  30216. +       return Microseconds (MS) * 1000;
  30217. +    end Milliseconds;
  30218. + 
  30219. +    ------------------
  30220. +    -- Delay_Object --
  30221. +    ------------------
  30222. + 
  30223. +    --  Hand translated code will be provided here
  30224. +    --  until the GNAT compiler can accomodate the protected objects. ???
  30225. + 
  30226. +    package body Delay_Object is
  30227. + 
  30228. +       procedure Service_Entries (Pending_Serviced : out Boolean) is
  30229. +          P : System.Address;
  30230. + 
  30231. +          subtype PO_Entry_Index is Protected_Entry_Index
  30232. +            range Null_Protected_Entry .. 1;
  30233. + 
  30234. +          Barriers : Barrier_Vector (1 .. 1)  :=  (others => true);
  30235. +          --  No barriers. always true barrier
  30236. + 
  30237. +          E : PO_Entry_Index;
  30238. + 
  30239. +          PS : Boolean;
  30240. + 
  30241. +          Cumulative_PS : Boolean := False;
  30242. + 
  30243. +       begin
  30244. +          loop
  30245. +             --  Get the next queued entry or the pending call
  30246. +             --  (if no barriers are true)
  30247. + 
  30248. +             Next_Entry_Call (To_Access (Object'Address), Barriers, P, E);
  30249. + 
  30250. +             begin
  30251. +                case E is
  30252. +                   when Null_Protected_Entry =>  --  no call to serve
  30253. +                      exit;
  30254. + 
  30255. +                   when 1 =>
  30256. + 
  30257. +                      --  Lock the object before requeueing
  30258. + 
  30259. +                      Lock (To_Access (Timer.Object'Address));
  30260. + 
  30261. +                   --  9X code ???
  30262. +                   --  requeue Timer.Enqueue (clock.Clock+Time (FD)) with abort;
  30263. + 
  30264. +                      begin
  30265. +                         Requeue_Protected_Entry (
  30266. +                           Object => To_Access (Object'Address),
  30267. +                           New_Object => To_Access (Timer.Object'Address),
  30268. +                           E => 1,
  30269. +                           With_Abort => true);
  30270. + 
  30271. +                         --  Requeue on the timer for the service. Parameter is
  30272. +                         --  passed along as Object.Call_In_Progress.Param
  30273. + 
  30274. +                         Timer.Service_Entries (PS);
  30275. + 
  30276. +                      --  Neither Requeue nor Service_Entries should raise
  30277. +                      --  an exception; the exception should be saved. ???
  30278. + 
  30279. + --                   exception
  30280. + --                      when others =>
  30281. + --                         Timer.Service_Entries(PS);
  30282. + --                         raise;
  30283. +                      end;
  30284. +                end case;
  30285. + 
  30286. +             exception
  30287. +                when others =>
  30288. +                   Tasking.Protected_Objects.Exceptional_Complete_Entry_Body (
  30289. +                     Object => To_Access (Object'Address),
  30290. +                     Ex => Compiler_Exceptions.Current_Exception,
  30291. +                     Pending_Serviced => PS);
  30292. +             end;
  30293. + 
  30294. +             Cumulative_PS := Cumulative_PS or PS;
  30295. + 
  30296. +          end loop;
  30297. + 
  30298. +          Pending_Serviced := Cumulative_PS;
  30299. +       end Service_Entries;
  30300. + 
  30301. +    begin
  30302. +       Initialize_Protection (
  30303. +         To_Access (Object'Address),
  30304. +         Tasking.Unspecified_Priority);
  30305. +    end Delay_Object;
  30306. + 
  30307. +    -----------
  30308. +    -- Split --
  30309. +    -----------
  30310. + 
  30311. +    --  D is nonnegative Time_Span
  30312. + 
  30313. +    procedure Split (T : Time; S : out Seconds; D : out Time_Span) is
  30314. +       Temp_S : Seconds;
  30315. + 
  30316. +    begin
  30317. +       Temp_S :=
  30318. +         Seconds (Task_Clock.Stimespec_Seconds (Task_Clock.Stimespec (T)));
  30319. +       S := Temp_S;
  30320. +       D := Time_Span (T) -
  30321. +            (integer (Temp_S) * Time_Span (Task_Clock.Stimespec_Sec_Unit));
  30322. +    end Split;
  30323. + 
  30324. +    -------------
  30325. +    -- Time_Of --
  30326. +    -------------
  30327. + 
  30328. +    function Time_Of (S : Seconds; D : Time_Span) return Time is
  30329. +    begin
  30330. +       return Time (integer (S) *
  30331. +             Time_Span (Task_Clock.Stimespec_Sec_Unit) + D);
  30332. +    end Time_Of;
  30333. + 
  30334. + end System.Real_Time;
  30335. diff -rc --new-file /src/baseline/gnat-1.80/src/s-reatim.ads gnat-1.80/src/s-reatim.ads
  30336. *** /src/baseline/gnat-1.80/src/s-reatim.ads    Thu Jan  1 00:00:00 1970
  30337. --- gnat-1.80/src/s-reatim.ads    Mon Jul  4 16:30:26 1994
  30338. ***************
  30339. *** 0 ****
  30340. --- 1,158 ----
  30341. + ------------------------------------------------------------------------------
  30342. + --                                                                          --
  30343. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30344. + --                                                                          --
  30345. + --                      S Y S T E M . R E A L _ T I M E                     --
  30346. + --                                                                          --
  30347. + --                                  S p e c                                 --
  30348. + --                                                                          --
  30349. + --                             $Revision: 1.8 $                             --
  30350. + --                                                                          --
  30351. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30352. + --                                                                          --
  30353. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30354. + --  terms  of  the  GNU  Library General Public License as published by the --
  30355. + --  Free Software Foundation; either version 2,  or  (at  your  option) any --
  30356. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30357. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30358. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30359. + --  eral Library Public License for more details.  You should have received --
  30360. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30361. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30362. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30363. + --                                                                          --
  30364. + ------------------------------------------------------------------------------
  30365. + 
  30366. + 
  30367. + with System.Task_Clock;
  30368. + 
  30369. + with System.Task_Clock.Machine_Specifics;
  30370. + 
  30371. + with System.Tasking.Protected_Objects;
  30372. + 
  30373. + package System.Real_Time is
  30374. + 
  30375. + --  The following part should be private. For now, they are public
  30376. + --  (compiler error) ???
  30377. + 
  30378. + --  private
  30379. + 
  30380. +    type Time is new Task_Clock.Stimespec;
  30381. + 
  30382. +    Time_First : constant Time := Time (Task_Clock.Stimespec_First);
  30383. + 
  30384. +    Time_Last :  constant Time := Time (Task_Clock.Stimespec_Last);
  30385. + 
  30386. +    type Time_Span is new Task_Clock.Stimespec;
  30387. + 
  30388. +    Time_Span_First : constant Time_Span :=
  30389. +      Time_Span (Task_Clock.Stimespec_First);
  30390. + 
  30391. +    Time_Span_Last :  constant Time_Span :=
  30392. +      Time_Span (Task_Clock.Stimespec_Last);
  30393. + 
  30394. +    Time_Span_Zero :  constant Time_Span :=
  30395. +      Time_Span (Task_Clock.Stimespec_Zero);
  30396. + 
  30397. +    Time_Span_Unit :  constant Time_Span :=
  30398. +      Time_Span (Task_Clock.Stimespec_Unit);
  30399. + 
  30400. +    Tick :           constant Time_Span :=
  30401. +      Time_Span (Task_Clock.Machine_Specifics.Stimespec_Ticks);
  30402. + 
  30403. + --   Following has to be re-activated once the private part is used. ???
  30404. + 
  30405. + --   type Time is private;
  30406. + --   Time_First : constant Time;
  30407. + --   Time_Last :  constant Time;
  30408. + 
  30409. + --   type Time_Span is private;
  30410. + --   Time_Span_First : constant Time_Span;
  30411. + --   Time_Span_Last :  constant Time_Span;
  30412. + --   Time_Span_Zero :  constant Time_Span;
  30413. + --   Time_Span_Unit :  constant Time_Span;
  30414. + --   Ticks :           constant Time_Span;
  30415. + 
  30416. +    Time_Unit : constant := 10#1.0#E-9;
  30417. + 
  30418. +    function Clock return Time;
  30419. + 
  30420. +    function "+"  (Left : Time;      Right : Time_Span) return Time;
  30421. +    function "+"  (Left : Time_Span; Right : Time)      return Time;
  30422. +    function "-"  (Left : Time;      Right : Time_Span) return Time;
  30423. +    function "-"  (Left,             Right : Time)      return Time_Span;
  30424. + 
  30425. +    function "<"  (Left, Right : Time) return Boolean;
  30426. +    function "<=" (Left, Right : Time) return Boolean;
  30427. +    function ">"  (Left, Right : Time) return Boolean;
  30428. +    function ">=" (Left, Right : Time) return Boolean;
  30429. + 
  30430. +    function "+"  (Left, Right : Time_Span) return Time_Span;
  30431. +    function "-"  (Left, Right : Time_Span) return Time_Span;
  30432. +    function "-"  (Right : Time_Span) return Time_Span;
  30433. + 
  30434. +    function "/"  (Left, Right : Time_Span) return Integer;
  30435. + 
  30436. +    function "/"  (Left : Time_Span; Right : Integer) return Time_Span;
  30437. +    function "*"  (Left : Time_Span; Right : Integer) return Time_Span;
  30438. +    function "*"  (Left : Integer; Right : Time_Span) return Time_Span;
  30439. + 
  30440. +    function "<"  (Left, Right : Time_Span) return Boolean;
  30441. +    function "<=" (Left, Right : Time_Span) return Boolean;
  30442. +    function ">"  (Left, Right : Time_Span) return Boolean;
  30443. +    function ">=" (Left, Right : Time_Span) return Boolean;
  30444. + 
  30445. +    function "abs" (Right : Time_Span) return Time_Span;
  30446. + 
  30447. +    function To_Duration (FD : Time_Span) return Duration;
  30448. +    function To_Time_Span (D : Duration) return Time_Span;
  30449. + 
  30450. +    function Nanoseconds  (NS : integer) return Time_Span;
  30451. +    function Microseconds (US : integer) return Time_Span;
  30452. +    function Milliseconds (MS : integer) return Time_Span;
  30453. + 
  30454. + --  Hand translation code will be provided here for now.
  30455. + --  Until the GNAT compiler can accomodate the protected objects. ???
  30456. + 
  30457. +    package Delay_Object is
  30458. +       Object : aliased Tasking.Protection (Num_Entries => 1);
  30459. + 
  30460. +       type Params is record
  30461. +          Param : Time_Span;
  30462. +       end record;
  30463. + 
  30464. +       procedure Service_Entries (Pending_Serviced : out Boolean);
  30465. +    end Delay_Object;
  30466. + 
  30467. +    type Seconds is new integer range -integer'Last .. integer'Last;
  30468. +    --  Seconds is signed entity
  30469. + 
  30470. +    procedure Split (T : Time; S : out Seconds; D : out Time_Span);
  30471. +    function Time_Of (S : Seconds; D : Time_Span) return Time;
  30472. + 
  30473. + --  private
  30474. + 
  30475. + --   type Time is new Task_Clock.Stimespec;
  30476. + 
  30477. + --   Time_First : constant Time := Time (Task_Clock.Stimespec_First);
  30478. + 
  30479. + --   Time_Last :  constant Time := Time (Task_Clock.Stimespec_Last);
  30480. + 
  30481. + --   type Time_Span is new Task_Clock.Stimespec;
  30482. + 
  30483. + --   Time_Span_First : constant Time_Span :=
  30484. + --     Time_Span (Task_Clock.Stimespec_First);
  30485. + 
  30486. + --   Time_Span_Last :  constant Time_Span :=
  30487. + --     Time_Span (Task_Clock.Stimespec_Last);
  30488. + 
  30489. + --   Time_Span_Zero :  constant Time_Span :=
  30490. + --     Time_Span (Task_Clock.Stimespec_Zero);
  30491. + 
  30492. + --   Time_Span_Unit :  constant Time_Span :=
  30493. + --     Time_Span (Task_Clock.Stimespec_Unit);
  30494. + 
  30495. + --   Ticks :           constant Time_Span :=
  30496. + --     Time_Span (Task_Clock.Stimespec_Ticks);
  30497. + 
  30498. + end System.Real_Time;
  30499. diff -rc --new-file /src/baseline/gnat-1.80/src/s-retico.adb gnat-1.80/src/s-retico.adb
  30500. *** /src/baseline/gnat-1.80/src/s-retico.adb    Thu Jan  1 00:00:00 1970
  30501. --- gnat-1.80/src/s-retico.adb    Mon Jul  4 16:30:56 1994
  30502. ***************
  30503. *** 0 ****
  30504. --- 1,76 ----
  30505. + ------------------------------------------------------------------------------
  30506. + --                                                                          --
  30507. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30508. + --                                                                          --
  30509. + --                 S Y S T E M . R E A L _ T I M E . C O N V                --
  30510. + --                                                                          --
  30511. + --                                  B o d y                                 --
  30512. + --                                                                          --
  30513. + --                             $Revision: 1.4 $                             --
  30514. + --                                                                          --
  30515. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30516. + --                                                                          --
  30517. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30518. + --  terms  of  the  GNU  Library General Public License as published by the --
  30519. + --  Free Software Foundation; either version 2,  or  (at  your  option) any --
  30520. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30521. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30522. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30523. + --  eral Library Public License for more details.  You should have received --
  30524. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30525. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30526. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30527. + --                                                                          --
  30528. + ------------------------------------------------------------------------------
  30529. + 
  30530. + package body System.Real_Time.Conv is
  30531. + 
  30532. +    -----------------------
  30533. +    -- Time_To_Stimespec --
  30534. +    -----------------------
  30535. + 
  30536. +    function Time_To_Stimespec
  30537. +      (T    : Real_Time.time)
  30538. +       return Task_Clock.Stimespec
  30539. +    is
  30540. +    begin
  30541. +       return Task_Clock.Stimespec (T);
  30542. +    end  Time_To_Stimespec;
  30543. + 
  30544. +    -----------------------
  30545. +    -- Stimespec_To_Time --
  30546. +    -----------------------
  30547. + 
  30548. +    function Stimespec_To_Time
  30549. +      (T    : Task_Clock.Stimespec)
  30550. +       return Real_Time.Time
  30551. +    is
  30552. +    begin
  30553. +       return Real_Time.Time (T);
  30554. +    end Stimespec_To_Time;
  30555. + 
  30556. +    ----------------------------
  30557. +    -- Time_Span_To_Stimespec --
  30558. +    ----------------------------
  30559. + 
  30560. +    function Time_Span_To_Stimespec
  30561. +      (T    : Real_Time.Time_Span)
  30562. +       return Task_Clock.Stimespec
  30563. +    is
  30564. +    begin
  30565. +       return Task_Clock.Stimespec (T);
  30566. +    end  Time_Span_To_Stimespec;
  30567. + 
  30568. +    ----------------------------
  30569. +    -- Stimespec_To_Time_Span --
  30570. +    ----------------------------
  30571. + 
  30572. +    function Stimespec_To_Time_Span
  30573. +      (T    : Task_Clock.Stimespec)
  30574. +       return Real_Time.Time_Span
  30575. +    is
  30576. +    begin
  30577. +       return Real_Time.Time_Span (T);
  30578. +    end Stimespec_To_Time_Span;
  30579. + 
  30580. + end System.Real_Time.Conv;
  30581. diff -rc --new-file /src/baseline/gnat-1.80/src/s-retico.ads gnat-1.80/src/s-retico.ads
  30582. *** /src/baseline/gnat-1.80/src/s-retico.ads    Thu Jan  1 00:00:00 1970
  30583. --- gnat-1.80/src/s-retico.ads    Mon Jul  4 16:30:57 1994
  30584. ***************
  30585. *** 0 ****
  30586. --- 1,50 ----
  30587. + ------------------------------------------------------------------------------
  30588. + --                                                                          --
  30589. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30590. + --                                                                          --
  30591. + --                 S Y S T E M . R E A L _ T I M E . C O N V                --
  30592. + --                                                                          --
  30593. + --                                  S p e c                                 --
  30594. + --                                                                          --
  30595. + --                             $Revision: 1.4 $                             --
  30596. + --                                                                          --
  30597. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30598. + --                                                                          --
  30599. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30600. + --  terms  of  the  GNU  Library General Public License as published by the --
  30601. + --  Free Software Foundation; either version 2, or  (at  your  option)  any --
  30602. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30603. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30604. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30605. + --  eral Library Public License for more details.  You should have received --
  30606. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30607. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30608. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30609. + --                                                                          --
  30610. + ------------------------------------------------------------------------------
  30611. + 
  30612. + --  Provides conversion between Task_Clock.time and Real_Time.Time
  30613. + --  and Real_Time.Time_Span
  30614. + 
  30615. + with System.Task_Clock;
  30616. + --  Uses, Type : Stimespec
  30617. + 
  30618. + package System.Real_Time.Conv is
  30619. + 
  30620. +    function Time_To_Stimespec
  30621. +      (T    : Real_Time.time)
  30622. +       return Task_Clock.Stimespec;
  30623. + 
  30624. +    function Stimespec_To_Time
  30625. +      (T    : Task_Clock.Stimespec)
  30626. +       return Real_Time.Time;
  30627. + 
  30628. +    function Time_Span_To_Stimespec
  30629. +      (T    : Real_Time.Time_Span)
  30630. +       return Task_Clock.Stimespec;
  30631. + 
  30632. +    function Stimespec_To_Time_Span
  30633. +      (T   : Task_Clock.Stimespec)
  30634. +       return Real_Time.Time_Span;
  30635. + 
  30636. + end System.Real_Time.Conv;
  30637. diff -rc --new-file /src/baseline/gnat-1.80/src/s-retide.adb gnat-1.80/src/s-retide.adb
  30638. *** /src/baseline/gnat-1.80/src/s-retide.adb    Thu Jan  1 00:00:00 1970
  30639. --- gnat-1.80/src/s-retide.adb    Mon Jul  4 16:31:28 1994
  30640. ***************
  30641. *** 0 ****
  30642. --- 1,134 ----
  30643. + ------------------------------------------------------------------------------
  30644. + --                                                                          --
  30645. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30646. + --                                                                          --
  30647. + --               S Y S T E M . R E A L _ T I M E . D E L A Y S              --
  30648. + --                                                                          --
  30649. + --                                  B o d y                                 --
  30650. + --                                                                          --
  30651. + --                             $Revision: 1.4 $                             --
  30652. + --                                                                          --
  30653. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30654. + --                                                                          --
  30655. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30656. + --  terms  of  the  GNU  Library General Public License as published by the --
  30657. + --  Free Software Foundation; either version 2, or  (at  your  option)  any --
  30658. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30659. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30660. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30661. + --  eral Library Public License for more details.  You should have received --
  30662. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30663. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30664. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30665. + --                                                                          --
  30666. + ------------------------------------------------------------------------------
  30667. + 
  30668. + with System.Compiler_Exceptions;
  30669. + --  Uses, function Current_Exceptions
  30670. + 
  30671. + with System.Task_Timer_Service;
  30672. + --  Uses, object Objects
  30673. + --        procedure Service_Entries
  30674. + 
  30675. + with System.Tasking;
  30676. + 
  30677. + with Unchecked_Conversion;
  30678. + 
  30679. + package body System.Real_Time.Delays is
  30680. + 
  30681. +    use Tasking.Protected_Objects;
  30682. +    use Tasking;
  30683. + 
  30684. +    package Timer renames System.Task_Timer_Service.Timer;
  30685. + 
  30686. +    function To_Access is new
  30687. +      Unchecked_Conversion (System.Address, Protection_Access);
  30688. + 
  30689. +    package body Delay_Until_Object is
  30690. + 
  30691. +       procedure Service_Entries (Pending_Serviced : out Boolean) is
  30692. + 
  30693. +          P : System.Address;
  30694. + 
  30695. +          subtype PO_Entry_Index is Protected_Entry_Index
  30696. +            range Null_Protected_Entry .. 1;
  30697. + 
  30698. +          Barriers : Tasking.Barrier_Vector (1 .. 1)  := (others => true);
  30699. +          --  No barriers. always true barrier
  30700. + 
  30701. +          E : PO_Entry_Index;
  30702. + 
  30703. +          PS : Boolean;
  30704. + 
  30705. +          Cumulative_PS : Boolean := False;
  30706. + 
  30707. +       begin
  30708. +          loop
  30709. +             --  Get the next queued entry or the pending call
  30710. +             --  (if no barriers are true)
  30711. + 
  30712. +             Tasking.Protected_Objects.Next_Entry_Call
  30713. +               (To_Access (Object'Address), Barriers, P, E);
  30714. + 
  30715. +             begin
  30716. +                case E is
  30717. + 
  30718. +                   --  No pending call to serve
  30719. + 
  30720. +                   when Null_Protected_Entry =>
  30721. +                      exit;
  30722. + 
  30723. +                   --  Call to be served
  30724. + 
  30725. +                   when 1 =>
  30726. + 
  30727. +                      --  Lock the object before requeueing
  30728. +                      Tasking.Protected_Objects.Lock
  30729. +                        (To_Access (Timer.Object'Address));
  30730. + 
  30731. +                      begin
  30732. +                         --  Requeue on the timer for the service. Parameter is
  30733. +                         --  passed along as Object.Call_In_Progress.Param
  30734. + 
  30735. +                         Requeue_Protected_Entry (
  30736. +                           Object => To_Access (Object'Address),
  30737. +                           New_Object => To_Access (Timer.Object'Address),
  30738. +                           E => 3,
  30739. +                           With_Abort => True);
  30740. +                         Timer.Service_Entries (PS);
  30741. +                         Tasking.Protected_Objects.Unlock
  30742. +                           (To_Access (Timer.Object'Address));
  30743. + 
  30744. +                      --  Neither Requeue nor Service_Entries should raise
  30745. +                      --  an exception; the exception should be saved. ???
  30746. + 
  30747. + --                   exception
  30748. + --                      when others =>
  30749. + --                         Timer.Service_Entries;
  30750. + --                         raise;
  30751. +                      end;
  30752. +                end case;
  30753. + 
  30754. +             exception
  30755. +                when others =>
  30756. +                   Tasking.Protected_Objects.Exceptional_Complete_Entry_Body (
  30757. +                     Object => To_Access (Object'Address),
  30758. +                     Ex => Compiler_Exceptions.Current_Exception,
  30759. +                     Pending_Serviced => PS);
  30760. +             end;
  30761. + 
  30762. +             Cumulative_PS := Cumulative_PS or PS;
  30763. +          end loop;
  30764. + 
  30765. +          Pending_Serviced := Cumulative_PS;
  30766. +       end Service_Entries;
  30767. + 
  30768. +    --  Initialization for package body of Delay_Until_Object
  30769. + 
  30770. +    begin
  30771. +       Initialize_Protection
  30772. +         (To_Access (Object'Address), Tasking.Unspecified_Priority);
  30773. + 
  30774. +    end Delay_Until_Object;
  30775. + 
  30776. + end System.Real_Time.Delays;
  30777. diff -rc --new-file /src/baseline/gnat-1.80/src/s-retide.ads gnat-1.80/src/s-retide.ads
  30778. *** /src/baseline/gnat-1.80/src/s-retide.ads    Thu Jan  1 00:00:00 1970
  30779. --- gnat-1.80/src/s-retide.ads    Mon Jul  4 16:31:28 1994
  30780. ***************
  30781. *** 0 ****
  30782. --- 1,45 ----
  30783. + ------------------------------------------------------------------------------
  30784. + --                                                                          --
  30785. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30786. + --                                                                          --
  30787. + --               S Y S T E M . R E A L _ T I M E . D E L A Y S              --
  30788. + --                                                                          --
  30789. + --                                  S p e c                                 --
  30790. + --                                                                          --
  30791. + --                             $Revision: 1.5 $                             --
  30792. + --                                                                          --
  30793. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30794. + --                                                                          --
  30795. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30796. + --  terms  of  the  GNU  Library General Public License as published by the --
  30797. + --  Free Software Foundation; either version 2, or  (at  your  option)  any --
  30798. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30799. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30800. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30801. + --  eral Library Public License for more details.  You should have received --
  30802. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30803. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30804. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30805. + --                                                                          --
  30806. + ------------------------------------------------------------------------------
  30807. + 
  30808. + --  Implements real_time.time delays using a protected object
  30809. + 
  30810. + with System.Tasking.Protected_Objects;
  30811. + --  Uses, type:  Protection
  30812. + 
  30813. + package System.Real_Time.Delays is
  30814. + 
  30815. +    package Delay_Until_Object is
  30816. + 
  30817. +       Object : aliased Tasking.Protection (Num_Entries => 1);
  30818. + 
  30819. +       type Params is record
  30820. +          Param : Real_Time.Time;
  30821. +       end record;
  30822. + 
  30823. +       procedure Service_Entries (Pending_Serviced : out Boolean);
  30824. + 
  30825. +    end Delay_Until_Object;
  30826. + 
  30827. + end System.Real_Time.Delays;
  30828. diff -rc --new-file /src/baseline/gnat-1.80/src/s-taruty.adb gnat-1.80/src/s-taruty.adb
  30829. *** /src/baseline/gnat-1.80/src/s-taruty.adb    Thu Jan  1 00:00:00 1970
  30830. --- gnat-1.80/src/s-taruty.adb    Mon Jul  4 16:32:01 1994
  30831. ***************
  30832. *** 0 ****
  30833. --- 1,69 ----
  30834. + ------------------------------------------------------------------------------
  30835. + --                                                                          --
  30836. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30837. + --                                                                          --
  30838. + --          S Y S T E M . T A S K I N G . R U N T Y P E _ T Y P E S         --
  30839. + --                                                                          --
  30840. + --                                  S p e c                                 --
  30841. + --                                                                          --
  30842. + --                             $Revision: 1.4 $                            --
  30843. + --                                                                          --
  30844. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30845. + --                                                                          --
  30846. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30847. + --  terms  of  the  GNU  Library General Public License as published by the --
  30848. + --  Free Software Foundation; either version 2,  or (at  your  option)  any --
  30849. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30850. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30851. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30852. + --  eral Library Public License for more details.  You should have received --
  30853. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30854. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30855. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30856. + --                                                                          --
  30857. + ------------------------------------------------------------------------------
  30858. + 
  30859. + with System.Task_Primitives;  use System.Task_Primitives;
  30860. + 
  30861. + package body System.Tasking.Runtime_Types is
  30862. + 
  30863. +    ------------------------------------
  30864. +    -- Vulnerable_Complete_Activation --
  30865. +    ------------------------------------
  30866. + 
  30867. +    --  WARNING : Only call this procedure with priority already boosted.
  30868. +    --  That's why the name has "Vulnerable" in it.
  30869. + 
  30870. +    procedure Vulnerable_Complete_Activation
  30871. +      (T : ATCB_Ptr)
  30872. +    is
  30873. +       This_Task : ATCB_Ptr := ID_To_ATCB (Self);
  30874. +       Activator : ATCB_Ptr;
  30875. + 
  30876. +    begin
  30877. +       Activator := T.Activator;
  30878. + 
  30879. +       --  Decrement the count of tasks to be activated by the activator and
  30880. +       --  wake it up so it can check to see if all tasks have been activated.
  30881. +       --  Note that the locks of the activator and created task are locked
  30882. +       --  here.  This is necessary because C.Stage and
  30883. +       --  T.Activation_Count have to be synchronized.  This is also
  30884. +       --  done in Activate_Tasks and Init_Abortion.  So long as the
  30885. +       --  activator lock is always locked first, this cannot lead to deadlock.
  30886. + 
  30887. +       Write_Lock (Activator.L);
  30888. +       Write_Lock (T.L);
  30889. + 
  30890. +       if T.Stage = Can_Activate then
  30891. +          T.Stage := Active;
  30892. +          Activator.Activation_Count := Activator.Activation_Count - 1;
  30893. +       end if;
  30894. + 
  30895. +       Unlock (T.L);
  30896. + 
  30897. +       Cond_Signal (Activator.Cond);
  30898. +       Unlock (Activator.L);
  30899. + 
  30900. +    end Vulnerable_Complete_Activation;
  30901. + 
  30902. + end System.Tasking.Runtime_Types;
  30903. diff -rc --new-file /src/baseline/gnat-1.80/src/s-taruty.ads gnat-1.80/src/s-taruty.ads
  30904. *** /src/baseline/gnat-1.80/src/s-taruty.ads    Thu Jan  1 00:00:00 1970
  30905. --- gnat-1.80/src/s-taruty.ads    Mon Jul  4 16:32:01 1994
  30906. ***************
  30907. *** 0 ****
  30908. --- 1,406 ----
  30909. + ------------------------------------------------------------------------------
  30910. + --                                                                          --
  30911. + --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  30912. + --                                                                          --
  30913. + --          S Y S T E M . T A S K I N G . R U N T Y P E _ T Y P E S         --
  30914. + --                                                                          --
  30915. + --                                  S p e c                                 --
  30916. + --                                                                          --
  30917. + --                             $Revision: 1.6 $                             --
  30918. + --                                                                          --
  30919. + --           Copyright (c) 1991,1992,1993, FSU, All Rights Reserved         --
  30920. + --                                                                          --
  30921. + --  GNARL is free software; you can redistribute it and/or modify it  under --
  30922. + --  terms  of  the  GNU  Library General Public License as published by the --
  30923. + --  Free Software Foundation; either version 2,  or (at  your  option)  any --
  30924. + --  later  version.   GNARL is distributed in the hope that it will be use- --
  30925. + --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  30926. + --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  30927. + --  eral Library Public License for more details.  You should have received --
  30928. + --  a  copy of the GNU Library General Public License along with GNARL; see --
  30929. + --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  30930. + --  Ave, Cambridge, MA 02139, USA.                                          --
  30931. + --                                                                          --
  30932. + ------------------------------------------------------------------------------
  30933. + 
  30934. + with Unchecked_Conversion;
  30935. + 
  30936. + package System.Tasking.Runtime_Types is
  30937. + 
  30938. +    --  Entry queue related types
  30939. + 
  30940. +    type Server_Kind is (Task_Server, PO_Server);
  30941. + 
  30942. +    type Server_Record (Kind : Server_Kind := Task_Server) is record
  30943. +       case Kind is
  30944. +          when Task_Server =>
  30945. +             Called_Task : Task_ID;
  30946. +             Acceptor_Prev_Call : Entry_Call_Link;
  30947. + 
  30948. +             Acceptor_Prev_Priority : Rendezvous_Priority;
  30949. +             --  For a task servicing a task entry call,
  30950. +             --  information about the most recent prior call being serviced.
  30951. +             --   Not used for protected entry calls;
  30952. +             --  this function should be performed by GNULLI ceiling locking.
  30953. + 
  30954. +          when PO_Server =>
  30955. +             Called_PO : Protection_Access;
  30956. + 
  30957. +       end case;
  30958. +    end record;
  30959. + 
  30960. +    --  Protected Objects related definitions
  30961. + 
  30962. +    Null_PO : constant Protection_Access := null;
  30963. + 
  30964. +    --  ATCB type defintions
  30965. + 
  30966. +    type Ada_Task_Control_Block (Entry_Num : Task_Entry_Index);
  30967. + 
  30968. +    type ATCB_Ptr is access Ada_Task_Control_Block;
  30969. + 
  30970. +    All_Tasks_List : ATCB_Ptr;
  30971. +    All_Tasks_L : Task_Primitives.Lock;
  30972. + 
  30973. +    function ID_To_ATCB is new
  30974. +      Unchecked_Conversion (Task_ID, ATCB_Ptr);
  30975. + 
  30976. +    function ATCB_To_ID is new
  30977. +      Unchecked_Conversion (ATCB_Ptr, Task_ID);
  30978. + 
  30979. +    function ATCB_To_Address is new
  30980. +      Unchecked_Conversion (ATCB_Ptr, System.Address);
  30981. + 
  30982. +    type Task_Stage is (
  30983. +       Created,
  30984. +       --  Task has been created but has not begun activation.
  30985. + 
  30986. +       Can_Activate,
  30987. +       --  Task has begin activation.
  30988. + 
  30989. +       Active,
  30990. +       --  Task has completed activation and is executing the task body.
  30991. + 
  30992. +       Await_Dependents,
  30993. +       --  Task is waiting for all of its dependents to become passive (be
  30994. +       --  complete, terminated, or be waiting on a terminate alternative).
  30995. + 
  30996. +       Passive,
  30997. +       --  The task is passive.
  30998. + 
  30999. +       Completing,
  31000. +       --  The task is committed to becoming complete, but has not yet
  31001. +       --  satisfied all of the conditions for completion.  This
  31002. +       --  acts as a claim to completion; once Stage is set to this value,
  31003. +       --  no other task can continue with completion.
  31004. + 
  31005. +       Complete,
  31006. +       --  The task is complete.  The task and all of its dependents are
  31007. +       --  passive; some dependents may still be waiting on terminate
  31008. +       --  alternatives.
  31009. + 
  31010. +       Terminated);
  31011. +       --  The task is terminated.  All dependents waiting on terminate
  31012. +       --  alternatives have been awakened and have terminated themselves.
  31013. + 
  31014. +    type Accepting_State is (
  31015. +       Not_Accepting,   --  task is not ready to accept any entry call
  31016. +       Trivial_Accept,   --  "accept E;"
  31017. +       Simple_Accept,    --  "accept E do ... end E;"
  31018. +       Select_Wait);     --  most general case
  31019. + 
  31020. +    type Entry_Call_Array is array (ATC_Level_Index) of
  31021. +      aliased Entry_Call_Record;
  31022. + 
  31023. +    type Entry_Queue_Array is array (Task_Entry_Index range <>) of Entry_Queue;
  31024. + 
  31025. +    --  Notes on protection (synchronization) of TRTS data structures.
  31026. + 
  31027. +    --  Any field of the TCB can be written by the activator of a task when the
  31028. +    --  task is created, since no other task can access the new task's
  31029. +    --  state until creation is complete.
  31030. + 
  31031. +    --  The protection for each field is described in a comment starting with
  31032. +    --  "Protection:".
  31033. + 
  31034. +    --  When a lock is used to protect an ATCB field, this lock is simply named.
  31035. + 
  31036. +    --  Some protection is described in terms of tasks related to the
  31037. +    --  ATCB being protected.  These are:
  31038. + 
  31039. +    --    Self: The task which is controlled by this ATCB.
  31040. +    --    Acceptor: A task accepting a call from Self.
  31041. +    --    Caller: A task calling an entry of Self.
  31042. +    --    Parent: The task executing the master on which Self depends.
  31043. +    --    Dependent: A task dependent on Self.
  31044. +    --    Activator: The task that created Self and initiated its activation.
  31045. +    --    Created: A task created and activated by Self.
  31046. + 
  31047. +    type Ada_Task_Control_Block (Entry_Num : Task_Entry_Index) is record
  31048. + 
  31049. +       LL_TCB : aliased Task_Primitives.Task_Control_Block;
  31050. +       --  Control block used by the underlying low-level tasking service
  31051. +       --  (GNULLI).
  31052. +       --  Protection: This is used only by the GNULLI implementation, which
  31053. +       --  takes care of all of its synchronization.
  31054. + 
  31055. +       Task_Entry_Point : Init_State;
  31056. +       --  Information needed to call the procedure containing the code for
  31057. +       --  the body of this task.
  31058. +       --  Protection: Part of the synchronization between Self and
  31059. +       --  Activator.  Activator writes it, once, before Self starts
  31060. +       --  executing.  Self reads it, once, as part of its execution.
  31061. + 
  31062. +       Task_Arg : System.Address;
  31063. +       --  The argument to to task procedure.  Currently unused; this will
  31064. +       --  provide a handle for discriminant information.
  31065. +       --  Protection: Part of the synchronization between Self and
  31066. +       --  Activator.  Activator writes it, once, before Self starts
  31067. +       --  executing.  Thereafter, Self only reads it.
  31068. + 
  31069. +       Stack_Size : Size_Type;
  31070. +       --  Requested stack size.
  31071. +       --  Protection: Only used by Self.
  31072. + 
  31073. +       Current_Priority : System.Priority;
  31074. +       --  Active priority, except that the effects of protected object
  31075. +       --  priority ceilings are not reflected.  This only reflects explicit
  31076. +       --  priority changes and priority inherited through task activation
  31077. +       --  and rendezvous.
  31078. +       --  Ada 9X notes: In Ada 9X, this field will be transferred to the
  31079. +       --  Priority field of an Entry_Calls componant when an entry call
  31080. +       --  is initiated.  The Priority of the Entry_Calls componant will not
  31081. +       --  change for the duration of the call.  The accepting task can
  31082. +       --  use it to boost its own priority without fear of its changing in
  31083. +       --  the meantime.
  31084. +       --  This can safely be used in the priority ordering
  31085. +       --  of entry queues.  Once a call is queued, its priority does not
  31086. +       --  change.
  31087. +       --  Since an entry call cannot be made while executing
  31088. +       --  a protected action, the priority of a task will never reflect a
  31089. +       --  priority ceiling change at the point of an entry call.
  31090. +       --  Protection: Only written by Self, and only accessed when Acceptor
  31091. +       --  accepts an entry or when Created activates, at which points Self is
  31092. +       --  suspended.
  31093. + 
  31094. +       L : Task_Primitives.Lock;
  31095. +       --  General purpose lock; protects most fields in the ATCB.
  31096. + 
  31097. +       Compiler_Data : System.Address;
  31098. +       --  Untyped task-specific data needed by the compiler to store
  31099. +       --  per-task structures.
  31100. +       --  Protection: Only accessed by Self.
  31101. + 
  31102. +       --  the following declarations are for Rendezvous
  31103. + 
  31104. +       Cond : Task_Primitives.Condition_Variable;
  31105. +       Rend_Cond : Task_Primitives.Condition_Variable;
  31106. +       --  Rend_Cond is used by the task owning this ATCB for waits involved in
  31107. +       --  rendezvous, and Cond is used for all other waits.  There is currently
  31108. +       --  no overlap in the use of these condition variables; see comment to
  31109. +       --  Abort_Tasks in Task_Stages.
  31110. +       --  Protection: Condition variables are always associated with a lock.
  31111. +       --  The runtime places no restrictions on which lock is used, except
  31112. +       --  that it must protection the condition opon which the task is waiting.
  31113. +       --  Currently, Cond is always associated with Self.L, and Rend_Cond
  31114. +       --  is always associated with Acceptor.L.
  31115. + 
  31116. +       All_Tasks_Link : ATCB_Ptr;
  31117. +       --  Used to link this task to the list of all tasks in the system.
  31118. +       --  Protection: All_Tasks.L.
  31119. + 
  31120. +       Activation_Link : ATCB_Ptr;
  31121. +       --  Used to link this task to a list of tasks to be activated.
  31122. +       --  Protection: Only used by Activator.
  31123. + 
  31124. +       Open_Accepts : Accept_List_Access;
  31125. +       --  This points to the Open_Accepts array of accept alternatives passed
  31126. +       --  to the RTS by the compiler-generated code to Selective_Wait.
  31127. +       --  Protection: Self.L.
  31128. + 
  31129. +       Exception_To_Raise : Exception_ID;
  31130. +       Exception_Address : System.Address;
  31131. +       --  An exception which should be raised by this task when it regains
  31132. +       --  control, and the address at which it should be raised.
  31133. +       --  Protection: Read only by Self, under circumstances where it will
  31134. +       --  be notified by the writer when it is safe to read it:
  31135. +       --  1. Written by Acceptor, when Self is suspended.
  31136. +       --  2. Written by Notify_Exception, executed by Self through a
  31137. +       --     synchronous signal handler, which redirects control to a
  31138. +       --     routine to read it and raise the exception.
  31139. + 
  31140. +       Chosen_Index : Select_Index;
  31141. +       --  The index in Open_Accepts of the entry call accepted by a selective
  31142. +       --  wait executed by this task.
  31143. +       --  Protection: Written by both Self and Caller.  Usually protected
  31144. +       --  by Self.L.  However, once the selection is known to have been
  31145. +       --  written it can be accessed without protection.  This happens
  31146. +       --  after Self has updated it itself using information from a suspended
  31147. +       --  Caller, or after Caller has updated it and awakened Self.
  31148. + 
  31149. +       Call : Entry_Call_Link;
  31150. +       --  The entry call that has been accepted by this task.
  31151. +       --  Protection: Self.L.  Self will modify this field
  31152. +       --  when Self.Accepting is False, and will not need the mutex to do so.
  31153. +       --  Once a task sets Stage=Completing, no other task can access this
  31154. +       --  field.
  31155. + 
  31156. +       --  The following fields are used to manage the task's life cycle.
  31157. + 
  31158. +       Activator : ATCB_Ptr;
  31159. +       --  The task that created this task, either by declaring it as a task
  31160. +       --  object or by executing a task allocator.
  31161. +       --  Protection: Set by Activator before Self is activated, and
  31162. +       --  read after Self is activated.
  31163. + 
  31164. +       Parent : ATCB_Ptr;
  31165. +       Master_of_Task : Master_ID;
  31166. +       --  The task executing the master of this task, and the ID of this task's
  31167. +       --  master (unique only among masters currently active within Parent).
  31168. +       --  Protection: Set by Activator before Self is activated, and
  31169. +       --  read after Self is activated.
  31170. + 
  31171. +       Master_Within : Master_ID;
  31172. +       --  The ID of the master currently executing within this task; that is,
  31173. +       --  the most deeply nested currently active master.
  31174. +       --  Protection: Only written by Self, and only read by Self or by
  31175. +       --  dependents when Self is attempting to exit a master.  Since Self
  31176. +       --  will not write this field until the master is complete, the
  31177. +       --  synchronization should be adequate to prevent races.
  31178. + 
  31179. +       Activation_Count : Integer;
  31180. +       --  This is the number of tasks that this task is activating, i.e. the
  31181. +       --  children that have started activation but have not completed it.
  31182. +       --  Protection: Self.L and Created.L.  Both mutexes must be locked,
  31183. +       --  since Self.Activation_Count and Created.Stage must be synchronized.
  31184. + 
  31185. +       Awake_Count : Integer;
  31186. +       --  Number of tasks dependent on this task (including this task) that are
  31187. +       --  still "awake": not terminated and not waiting on a terminate
  31188. +       --  alternative.
  31189. +       --  Protection: Self.L.  Parent.L must also be locked when this is
  31190. +       --  updated, so that it can be synchronized with
  31191. +       --  Parent.Awaited_Dependent_Count, except under special circumstances
  31192. +       --  where we know that the two can be out of sync without allowing the
  31193. +       --  parent to terminate before its dependents.
  31194. + 
  31195. +       Awaited_Dependent_Count : Integer;
  31196. +       --  This is the awake count of a master being completed by this task.
  31197. +       --  Protection: Self.L.  Dependent.L must also be locked so that
  31198. +       --  this field and Dependent.Awake_Count can be synchronized, except
  31199. +       --  under special circumstances where we know that the two can be out
  31200. +       --  of sync without allowing the parent to terminate before its
  31201. +       --  dependents.
  31202. + 
  31203. +       Terminating_Dependent_Count : Integer;
  31204. +       --  This is the count of tasks dependent on a master being completed by
  31205. +       --  this task which are waiting on a terminate alternative.  Only valid
  31206. +       --  when there none of the dependents are awake.
  31207. +       --  Protection: Self.L.
  31208. + 
  31209. +       Pending_ATC_Level : ATC_Level_Base;
  31210. +       --  The ATC level to which this task is currently being aborted.
  31211. +       --  Protection: Self.L.
  31212. + 
  31213. +       ATC_Nesting_Level : ATC_Level;
  31214. +       --  The dynamic level of ATC nesting (currently executing nested
  31215. +       --  asynchronous select statements) in this task.
  31216. +       --  Protection: This is only used by Self.  However, decrementing it
  31217. +       --  in effect deallocates an Entry_Calls componant, and care must be
  31218. +       --  taken that all references to that componant are eliminated before
  31219. +       --  doing the decrement.  This in turn will probably required locking
  31220. +       --  a protected object (for a protected entry call) or the Acceptor's
  31221. +       --  lock (for a task entry call).  However, ATC_Nesting_Level itself can
  31222. +       --  be accessed without a lock.
  31223. + 
  31224. +       Deferral_Level : Natural;
  31225. +       --  This is the number of times that Defer_Abortion has been called by
  31226. +       --  this task without a matching Undefer_Abortion call.  Abortion is
  31227. +       --  only allowed when this zero.
  31228. +       --  Protection: Only updated by Self; access assumed to be atomic.
  31229. + 
  31230. +       Elaborated : Access_Boolean;
  31231. +       --  Pointer to a flag indicating that this task's body has been
  31232. +       --  elaborted.  The flag is created and managed by the
  31233. +       --  compiler-generated code.
  31234. +       --  Protection: The field itself is only accessed by Activator.  The flag
  31235. +       --  that it points to is updated by Master and read by Activator; access
  31236. +       --  is assumed to be atomic.
  31237. + 
  31238. +       Stage : Task_Stage;
  31239. +       --  The general stage of the task in it's life cycle.
  31240. +       --  Protection: Self.L.
  31241. + 
  31242. +       --  beginning of flags
  31243. + 
  31244. +       Cancel_Was_Successful : Boolean;
  31245. +       --  This indicates that the last attempt to cancel an entry call was
  31246. +       --  successful.  It needs to be accurate between a call to
  31247. +       --  *Cancel_*_Entry_Call and the following call to Complete_*_Entry_Call.
  31248. +       --  These calls cannot be nested; that is, there can be no intervening
  31249. +       --  *Cancel_*_Entry_Call, so this single field is adequate.
  31250. +       --  Protection: Accessed only by Self.
  31251. + 
  31252. +       Accepting : Accepting_State;
  31253. +       --  The ability of this task to accept an entry call.
  31254. +       --  Protection: Self.L.
  31255. + 
  31256. +       Aborting : Boolean;
  31257. +       --  Self is in the process of aborting. While set, prevents multiple
  31258. +       --  abortion signals from being sent by different aborter while abortion
  31259. +       --  is acted upon. This is essential since an aborter which calls
  31260. +       --  Abort_To_Level could set the Pending_ATC_Level to yet a lower level
  31261. +       --  (than the current level), may be preempted and would send the
  31262. +       --  abortion signal when resuming execution. At this point, the abortee
  31263. +       --  may have completed abortion to the proper level such that the
  31264. +       --  signal (and resulting abortion exception) are not handled anymore.
  31265. +       --  In other words, the flag prevents a race between multiple aborters
  31266. +       --  and the abortee.
  31267. +       --  Protection: Self.L.
  31268. + 
  31269. +       Suspended_Abortably : Boolean;
  31270. +       --  Task is suspended with (low-level) abortion deferred, but is
  31271. +       --  abortable.  This means that the task must be awakened to perform
  31272. +       --  its own abortion.
  31273. +       --  Protection: Self.L.
  31274. + 
  31275. +       --  end of flags
  31276. + 
  31277. +       Entry_Calls : Entry_Call_Array;
  31278. +       --  An array of Ada 9X entry calls.
  31279. +       --  Protection: The elements of this array are on entry call queues
  31280. +       --  associated with protected objects or task entries, and are protected
  31281. +       --  by the protected object lock or Acceptor.L, respecively.
  31282. + 
  31283. +       Entry_Queues : Entry_Queue_Array (1 .. Entry_Num);
  31284. +       --  An array of task entry queues.
  31285. +       --  Protection: Self.L.  Once a task has set Self.Stage to Completing, it
  31286. +       --  has exclusive access to this field.
  31287. + 
  31288. +       Aborter_Link : ATCB_Ptr;
  31289. +       --  Link to the list of tasks which tries to abort this task but
  31290. +       --  blocked by another aborter who has already been aborting the task.
  31291. + 
  31292. +    end record;
  31293. + 
  31294. +    --  The following record holds the information used to initialize a task
  31295. + 
  31296. + 
  31297. +    type ATCB_Init is record
  31298. +       Task_Entry_Point : Init_State;
  31299. +       Task_Arg         : System.Address;
  31300. +       Stack_Size       : Size_Type;
  31301. +       Activator        : ATCB_Ptr;
  31302. +       Parent           : ATCB_Ptr;
  31303. +       Master_of_Task   : Master_ID;
  31304. +       Elaborated       : Access_Boolean;
  31305. +       Entry_Num        : Task_Entry_Index;
  31306. +    end record;
  31307. + 
  31308. +    procedure Vulnerable_Complete_Activation
  31309. +      (T : ATCB_Ptr);
  31310. +    --  Completes the activation by signalling its children.
  31311. +    --  Does not defer abortion (unlike Complete_Activation) and assumes
  31312. +    --  that priority is already boosted.
  31313. + 
  31314. + end System.Tasking.Runtime_Types;
  31315. diff -rc --new-file /src/baseline/gnat-1.80/src/threads/src/Makefile gnat-1.80/src/threads/src/Makefile
  31316. *** /src/baseline/gnat-1.80/src/threads/src/Makefile    Fri Apr 29 15:46:52 1994
  31317. --- gnat-1.80/src/threads/src/Makefile    Wed Jul  6 16:58:33 1994
  31318. ***************
  31319. *** 136,142 ****
  31320.   COMP_C2  = $(CC) $(INC1) $(INC2) $(CCFLAGS2) -c $*.c
  31321.   
  31322.   AR     = ar
  31323. ! RANLIB = /usr/bin/ranlib
  31324.   
  31325.   LINTFLAGS = -u $(CFLAGS)
  31326.   
  31327. --- 136,142 ----
  31328.   COMP_C2  = $(CC) $(INC1) $(INC2) $(CCFLAGS2) -c $*.c
  31329.   
  31330.   AR     = ar
  31331. ! RANLIB = /bin/ranlib
  31332.   
  31333.   LINTFLAGS = -u $(CFLAGS)
  31334.   
  31335. diff -rc --new-file /src/baseline/gnat-1.80/src/uintp.adb gnat-1.80/src/uintp.adb
  31336. *** /src/baseline/gnat-1.80/src/uintp.adb    Fri Jun 10 15:43:45 1994
  31337. --- gnat-1.80/src/uintp.adb    Wed Jul  6 16:57:40 1994
  31338. ***************
  31339. *** 231,236 ****
  31340. --- 231,238 ----
  31341.   
  31342.      procedure Init_Operand (UI : Uint; Vec : out UI_Vector) is
  31343.         Loc : Int;
  31344. + --    AmigaDOS hack
  31345. +       tempa : Int;
  31346.   
  31347.      begin
  31348.         if UI <= Uint_Direct_Last then
  31349. ***************
  31350. *** 239,245 ****
  31351.            Loc := Uints.Table (UI).Loc;
  31352.   
  31353.            for J in 1 .. Uints.Table (UI).Length loop
  31354. !             Vec (J) := Udigits.Table (Loc + J - 1);
  31355.            end loop;
  31356.         end if;
  31357.      end Init_Operand;
  31358. --- 241,249 ----
  31359.            Loc := Uints.Table (UI).Loc;
  31360.   
  31361.            for J in 1 .. Uints.Table (UI).Length loop
  31362. ! --          AmigaDOS hack
  31363. !             tempa := Loc + J - 1;
  31364. !             Vec (J) := Udigits.Table (tempa);
  31365.            end loop;
  31366.         end if;
  31367.      end Init_Operand;
  31368. ***************
  31369. *** 693,698 ****
  31370. --- 697,704 ----
  31371.            declare
  31372.               Length : Int := Uints.Table (Right).Length;
  31373.               Loc    : Int := Uints.Table (Right).Loc;
  31374. + --          AmigaDOS hack
  31375. +             tempa, tempb : Int;
  31376.   
  31377.            begin
  31378.               Uints.Increment_Last;
  31379. ***************
  31380. *** 704,710 ****
  31381.   
  31382.               for Idx in 2 .. Length loop
  31383.                  Udigits.Increment_Last;
  31384. !                Udigits.Table (Udigits.Last) := Udigits.Table (Loc + Idx - 1);
  31385.               end loop;
  31386.   
  31387.               return Uints.Last;
  31388. --- 710,719 ----
  31389.   
  31390.               for Idx in 2 .. Length loop
  31391.                  Udigits.Increment_Last;
  31392. ! --             AmigaDOS hack
  31393. !                tempa := Udigits.Last;
  31394. !                tempb := Loc + Idx - 1;
  31395. !                Udigits.Table (tempa) := Udigits.Table (tempb);
  31396.               end loop;
  31397.   
  31398.               return Uints.Last;
  31399.