aboutsummaryrefslogtreecommitdiff
path: root/gcc/tree-complex.c
diff options
context:
space:
mode:
authorMartin Liska <mliska@suse.cz>2022-01-14 16:56:44 +0100
committerMartin Liska <mliska@suse.cz>2022-01-17 22:12:04 +0100
commit5c69acb32329d49e58c26fa41ae74229a52b9106 (patch)
treeddb05f9d73afb6f998457d2ac4b720e3b3b60483 /gcc/tree-complex.c
parent490e23032baaece71f2ec09fa1805064b150fbc2 (diff)
downloadgcc-5c69acb32329d49e58c26fa41ae74229a52b9106.zip
gcc-5c69acb32329d49e58c26fa41ae74229a52b9106.tar.gz
gcc-5c69acb32329d49e58c26fa41ae74229a52b9106.tar.bz2
Rename .c files to .cc files.
gcc/ada/ChangeLog: * adadecode.c: Moved to... * adadecode.cc: ...here. * affinity.c: Moved to... * affinity.cc: ...here. * argv-lynxos178-raven-cert.c: Moved to... * argv-lynxos178-raven-cert.cc: ...here. * argv.c: Moved to... * argv.cc: ...here. * aux-io.c: Moved to... * aux-io.cc: ...here. * cio.c: Moved to... * cio.cc: ...here. * cstreams.c: Moved to... * cstreams.cc: ...here. * env.c: Moved to... * env.cc: ...here. * exit.c: Moved to... * exit.cc: ...here. * expect.c: Moved to... * expect.cc: ...here. * final.c: Moved to... * final.cc: ...here. * gcc-interface/cuintp.c: Moved to... * gcc-interface/cuintp.cc: ...here. * gcc-interface/decl.c: Moved to... * gcc-interface/decl.cc: ...here. * gcc-interface/misc.c: Moved to... * gcc-interface/misc.cc: ...here. * gcc-interface/targtyps.c: Moved to... * gcc-interface/targtyps.cc: ...here. * gcc-interface/trans.c: Moved to... * gcc-interface/trans.cc: ...here. * gcc-interface/utils.c: Moved to... * gcc-interface/utils.cc: ...here. * gcc-interface/utils2.c: Moved to... * gcc-interface/utils2.cc: ...here. * init.c: Moved to... * init.cc: ...here. * initialize.c: Moved to... * initialize.cc: ...here. * libgnarl/thread.c: Moved to... * libgnarl/thread.cc: ...here. * link.c: Moved to... * link.cc: ...here. * locales.c: Moved to... * locales.cc: ...here. * mkdir.c: Moved to... * mkdir.cc: ...here. * raise.c: Moved to... * raise.cc: ...here. * rtfinal.c: Moved to... * rtfinal.cc: ...here. * rtinit.c: Moved to... * rtinit.cc: ...here. * seh_init.c: Moved to... * seh_init.cc: ...here. * sigtramp-armdroid.c: Moved to... * sigtramp-armdroid.cc: ...here. * sigtramp-ios.c: Moved to... * sigtramp-ios.cc: ...here. * sigtramp-qnx.c: Moved to... * sigtramp-qnx.cc: ...here. * sigtramp-vxworks.c: Moved to... * sigtramp-vxworks.cc: ...here. * socket.c: Moved to... * socket.cc: ...here. * tracebak.c: Moved to... * tracebak.cc: ...here. * version.c: Moved to... * version.cc: ...here. * vx_stack_info.c: Moved to... * vx_stack_info.cc: ...here. gcc/ChangeLog: * adjust-alignment.c: Moved to... * adjust-alignment.cc: ...here. * alias.c: Moved to... * alias.cc: ...here. * alloc-pool.c: Moved to... * alloc-pool.cc: ...here. * asan.c: Moved to... * asan.cc: ...here. * attribs.c: Moved to... * attribs.cc: ...here. * auto-inc-dec.c: Moved to... * auto-inc-dec.cc: ...here. * auto-profile.c: Moved to... * auto-profile.cc: ...here. * bb-reorder.c: Moved to... * bb-reorder.cc: ...here. * bitmap.c: Moved to... * bitmap.cc: ...here. * btfout.c: Moved to... * btfout.cc: ...here. * builtins.c: Moved to... * builtins.cc: ...here. * caller-save.c: Moved to... * caller-save.cc: ...here. * calls.c: Moved to... * calls.cc: ...here. * ccmp.c: Moved to... * ccmp.cc: ...here. * cfg.c: Moved to... * cfg.cc: ...here. * cfganal.c: Moved to... * cfganal.cc: ...here. * cfgbuild.c: Moved to... * cfgbuild.cc: ...here. * cfgcleanup.c: Moved to... * cfgcleanup.cc: ...here. * cfgexpand.c: Moved to... * cfgexpand.cc: ...here. * cfghooks.c: Moved to... * cfghooks.cc: ...here. * cfgloop.c: Moved to... * cfgloop.cc: ...here. * cfgloopanal.c: Moved to... * cfgloopanal.cc: ...here. * cfgloopmanip.c: Moved to... * cfgloopmanip.cc: ...here. * cfgrtl.c: Moved to... * cfgrtl.cc: ...here. * cgraph.c: Moved to... * cgraph.cc: ...here. * cgraphbuild.c: Moved to... * cgraphbuild.cc: ...here. * cgraphclones.c: Moved to... * cgraphclones.cc: ...here. * cgraphunit.c: Moved to... * cgraphunit.cc: ...here. * collect-utils.c: Moved to... * collect-utils.cc: ...here. * collect2-aix.c: Moved to... * collect2-aix.cc: ...here. * collect2.c: Moved to... * collect2.cc: ...here. * combine-stack-adj.c: Moved to... * combine-stack-adj.cc: ...here. * combine.c: Moved to... * combine.cc: ...here. * common/common-targhooks.c: Moved to... * common/common-targhooks.cc: ...here. * common/config/aarch64/aarch64-common.c: Moved to... * common/config/aarch64/aarch64-common.cc: ...here. * common/config/alpha/alpha-common.c: Moved to... * common/config/alpha/alpha-common.cc: ...here. * common/config/arc/arc-common.c: Moved to... * common/config/arc/arc-common.cc: ...here. * common/config/arm/arm-common.c: Moved to... * common/config/arm/arm-common.cc: ...here. * common/config/avr/avr-common.c: Moved to... * common/config/avr/avr-common.cc: ...here. * common/config/bfin/bfin-common.c: Moved to... * common/config/bfin/bfin-common.cc: ...here. * common/config/bpf/bpf-common.c: Moved to... * common/config/bpf/bpf-common.cc: ...here. * common/config/c6x/c6x-common.c: Moved to... * common/config/c6x/c6x-common.cc: ...here. * common/config/cr16/cr16-common.c: Moved to... * common/config/cr16/cr16-common.cc: ...here. * common/config/cris/cris-common.c: Moved to... * common/config/cris/cris-common.cc: ...here. * common/config/csky/csky-common.c: Moved to... * common/config/csky/csky-common.cc: ...here. * common/config/default-common.c: Moved to... * common/config/default-common.cc: ...here. * common/config/epiphany/epiphany-common.c: Moved to... * common/config/epiphany/epiphany-common.cc: ...here. * common/config/fr30/fr30-common.c: Moved to... * common/config/fr30/fr30-common.cc: ...here. * common/config/frv/frv-common.c: Moved to... * common/config/frv/frv-common.cc: ...here. * common/config/gcn/gcn-common.c: Moved to... * common/config/gcn/gcn-common.cc: ...here. * common/config/h8300/h8300-common.c: Moved to... * common/config/h8300/h8300-common.cc: ...here. * common/config/i386/i386-common.c: Moved to... * common/config/i386/i386-common.cc: ...here. * common/config/ia64/ia64-common.c: Moved to... * common/config/ia64/ia64-common.cc: ...here. * common/config/iq2000/iq2000-common.c: Moved to... * common/config/iq2000/iq2000-common.cc: ...here. * common/config/lm32/lm32-common.c: Moved to... * common/config/lm32/lm32-common.cc: ...here. * common/config/m32r/m32r-common.c: Moved to... * common/config/m32r/m32r-common.cc: ...here. * common/config/m68k/m68k-common.c: Moved to... * common/config/m68k/m68k-common.cc: ...here. * common/config/mcore/mcore-common.c: Moved to... * common/config/mcore/mcore-common.cc: ...here. * common/config/microblaze/microblaze-common.c: Moved to... * common/config/microblaze/microblaze-common.cc: ...here. * common/config/mips/mips-common.c: Moved to... * common/config/mips/mips-common.cc: ...here. * common/config/mmix/mmix-common.c: Moved to... * common/config/mmix/mmix-common.cc: ...here. * common/config/mn10300/mn10300-common.c: Moved to... * common/config/mn10300/mn10300-common.cc: ...here. * common/config/msp430/msp430-common.c: Moved to... * common/config/msp430/msp430-common.cc: ...here. * common/config/nds32/nds32-common.c: Moved to... * common/config/nds32/nds32-common.cc: ...here. * common/config/nios2/nios2-common.c: Moved to... * common/config/nios2/nios2-common.cc: ...here. * common/config/nvptx/nvptx-common.c: Moved to... * common/config/nvptx/nvptx-common.cc: ...here. * common/config/or1k/or1k-common.c: Moved to... * common/config/or1k/or1k-common.cc: ...here. * common/config/pa/pa-common.c: Moved to... * common/config/pa/pa-common.cc: ...here. * common/config/pdp11/pdp11-common.c: Moved to... * common/config/pdp11/pdp11-common.cc: ...here. * common/config/pru/pru-common.c: Moved to... * common/config/pru/pru-common.cc: ...here. * common/config/riscv/riscv-common.c: Moved to... * common/config/riscv/riscv-common.cc: ...here. * common/config/rs6000/rs6000-common.c: Moved to... * common/config/rs6000/rs6000-common.cc: ...here. * common/config/rx/rx-common.c: Moved to... * common/config/rx/rx-common.cc: ...here. * common/config/s390/s390-common.c: Moved to... * common/config/s390/s390-common.cc: ...here. * common/config/sh/sh-common.c: Moved to... * common/config/sh/sh-common.cc: ...here. * common/config/sparc/sparc-common.c: Moved to... * common/config/sparc/sparc-common.cc: ...here. * common/config/tilegx/tilegx-common.c: Moved to... * common/config/tilegx/tilegx-common.cc: ...here. * common/config/tilepro/tilepro-common.c: Moved to... * common/config/tilepro/tilepro-common.cc: ...here. * common/config/v850/v850-common.c: Moved to... * common/config/v850/v850-common.cc: ...here. * common/config/vax/vax-common.c: Moved to... * common/config/vax/vax-common.cc: ...here. * common/config/visium/visium-common.c: Moved to... * common/config/visium/visium-common.cc: ...here. * common/config/xstormy16/xstormy16-common.c: Moved to... * common/config/xstormy16/xstormy16-common.cc: ...here. * common/config/xtensa/xtensa-common.c: Moved to... * common/config/xtensa/xtensa-common.cc: ...here. * compare-elim.c: Moved to... * compare-elim.cc: ...here. * config/aarch64/aarch64-bti-insert.c: Moved to... * config/aarch64/aarch64-bti-insert.cc: ...here. * config/aarch64/aarch64-builtins.c: Moved to... * config/aarch64/aarch64-builtins.cc: ...here. * config/aarch64/aarch64-c.c: Moved to... * config/aarch64/aarch64-c.cc: ...here. * config/aarch64/aarch64-d.c: Moved to... * config/aarch64/aarch64-d.cc: ...here. * config/aarch64/aarch64.c: Moved to... * config/aarch64/aarch64.cc: ...here. * config/aarch64/cortex-a57-fma-steering.c: Moved to... * config/aarch64/cortex-a57-fma-steering.cc: ...here. * config/aarch64/driver-aarch64.c: Moved to... * config/aarch64/driver-aarch64.cc: ...here. * config/aarch64/falkor-tag-collision-avoidance.c: Moved to... * config/aarch64/falkor-tag-collision-avoidance.cc: ...here. * config/aarch64/host-aarch64-darwin.c: Moved to... * config/aarch64/host-aarch64-darwin.cc: ...here. * config/alpha/alpha.c: Moved to... * config/alpha/alpha.cc: ...here. * config/alpha/driver-alpha.c: Moved to... * config/alpha/driver-alpha.cc: ...here. * config/arc/arc-c.c: Moved to... * config/arc/arc-c.cc: ...here. * config/arc/arc.c: Moved to... * config/arc/arc.cc: ...here. * config/arc/driver-arc.c: Moved to... * config/arc/driver-arc.cc: ...here. * config/arm/aarch-common.c: Moved to... * config/arm/aarch-common.cc: ...here. * config/arm/arm-builtins.c: Moved to... * config/arm/arm-builtins.cc: ...here. * config/arm/arm-c.c: Moved to... * config/arm/arm-c.cc: ...here. * config/arm/arm-d.c: Moved to... * config/arm/arm-d.cc: ...here. * config/arm/arm.c: Moved to... * config/arm/arm.cc: ...here. * config/arm/driver-arm.c: Moved to... * config/arm/driver-arm.cc: ...here. * config/avr/avr-c.c: Moved to... * config/avr/avr-c.cc: ...here. * config/avr/avr-devices.c: Moved to... * config/avr/avr-devices.cc: ...here. * config/avr/avr-log.c: Moved to... * config/avr/avr-log.cc: ...here. * config/avr/avr.c: Moved to... * config/avr/avr.cc: ...here. * config/avr/driver-avr.c: Moved to... * config/avr/driver-avr.cc: ...here. * config/avr/gen-avr-mmcu-specs.c: Moved to... * config/avr/gen-avr-mmcu-specs.cc: ...here. * config/avr/gen-avr-mmcu-texi.c: Moved to... * config/avr/gen-avr-mmcu-texi.cc: ...here. * config/bfin/bfin.c: Moved to... * config/bfin/bfin.cc: ...here. * config/bpf/bpf.c: Moved to... * config/bpf/bpf.cc: ...here. * config/bpf/coreout.c: Moved to... * config/bpf/coreout.cc: ...here. * config/c6x/c6x.c: Moved to... * config/c6x/c6x.cc: ...here. * config/cr16/cr16.c: Moved to... * config/cr16/cr16.cc: ...here. * config/cris/cris.c: Moved to... * config/cris/cris.cc: ...here. * config/csky/csky.c: Moved to... * config/csky/csky.cc: ...here. * config/darwin-c.c: Moved to... * config/darwin-c.cc: ...here. * config/darwin-d.c: Moved to... * config/darwin-d.cc: ...here. * config/darwin-driver.c: Moved to... * config/darwin-driver.cc: ...here. * config/darwin-f.c: Moved to... * config/darwin-f.cc: ...here. * config/darwin.c: Moved to... * config/darwin.cc: ...here. * config/default-c.c: Moved to... * config/default-c.cc: ...here. * config/default-d.c: Moved to... * config/default-d.cc: ...here. * config/dragonfly-d.c: Moved to... * config/dragonfly-d.cc: ...here. * config/epiphany/epiphany.c: Moved to... * config/epiphany/epiphany.cc: ...here. * config/epiphany/mode-switch-use.c: Moved to... * config/epiphany/mode-switch-use.cc: ...here. * config/epiphany/resolve-sw-modes.c: Moved to... * config/epiphany/resolve-sw-modes.cc: ...here. * config/fr30/fr30.c: Moved to... * config/fr30/fr30.cc: ...here. * config/freebsd-d.c: Moved to... * config/freebsd-d.cc: ...here. * config/frv/frv.c: Moved to... * config/frv/frv.cc: ...here. * config/ft32/ft32.c: Moved to... * config/ft32/ft32.cc: ...here. * config/gcn/driver-gcn.c: Moved to... * config/gcn/driver-gcn.cc: ...here. * config/gcn/gcn-run.c: Moved to... * config/gcn/gcn-run.cc: ...here. * config/gcn/gcn-tree.c: Moved to... * config/gcn/gcn-tree.cc: ...here. * config/gcn/gcn.c: Moved to... * config/gcn/gcn.cc: ...here. * config/gcn/mkoffload.c: Moved to... * config/gcn/mkoffload.cc: ...here. * config/glibc-c.c: Moved to... * config/glibc-c.cc: ...here. * config/glibc-d.c: Moved to... * config/glibc-d.cc: ...here. * config/h8300/h8300.c: Moved to... * config/h8300/h8300.cc: ...here. * config/host-darwin.c: Moved to... * config/host-darwin.cc: ...here. * config/host-hpux.c: Moved to... * config/host-hpux.cc: ...here. * config/host-linux.c: Moved to... * config/host-linux.cc: ...here. * config/host-netbsd.c: Moved to... * config/host-netbsd.cc: ...here. * config/host-openbsd.c: Moved to... * config/host-openbsd.cc: ...here. * config/host-solaris.c: Moved to... * config/host-solaris.cc: ...here. * config/i386/djgpp.c: Moved to... * config/i386/djgpp.cc: ...here. * config/i386/driver-i386.c: Moved to... * config/i386/driver-i386.cc: ...here. * config/i386/driver-mingw32.c: Moved to... * config/i386/driver-mingw32.cc: ...here. * config/i386/gnu-property.c: Moved to... * config/i386/gnu-property.cc: ...here. * config/i386/host-cygwin.c: Moved to... * config/i386/host-cygwin.cc: ...here. * config/i386/host-i386-darwin.c: Moved to... * config/i386/host-i386-darwin.cc: ...here. * config/i386/host-mingw32.c: Moved to... * config/i386/host-mingw32.cc: ...here. * config/i386/i386-builtins.c: Moved to... * config/i386/i386-builtins.cc: ...here. * config/i386/i386-c.c: Moved to... * config/i386/i386-c.cc: ...here. * config/i386/i386-d.c: Moved to... * config/i386/i386-d.cc: ...here. * config/i386/i386-expand.c: Moved to... * config/i386/i386-expand.cc: ...here. * config/i386/i386-features.c: Moved to... * config/i386/i386-features.cc: ...here. * config/i386/i386-options.c: Moved to... * config/i386/i386-options.cc: ...here. * config/i386/i386.c: Moved to... * config/i386/i386.cc: ...here. * config/i386/intelmic-mkoffload.c: Moved to... * config/i386/intelmic-mkoffload.cc: ...here. * config/i386/msformat-c.c: Moved to... * config/i386/msformat-c.cc: ...here. * config/i386/winnt-cxx.c: Moved to... * config/i386/winnt-cxx.cc: ...here. * config/i386/winnt-d.c: Moved to... * config/i386/winnt-d.cc: ...here. * config/i386/winnt-stubs.c: Moved to... * config/i386/winnt-stubs.cc: ...here. * config/i386/winnt.c: Moved to... * config/i386/winnt.cc: ...here. * config/i386/x86-tune-sched-atom.c: Moved to... * config/i386/x86-tune-sched-atom.cc: ...here. * config/i386/x86-tune-sched-bd.c: Moved to... * config/i386/x86-tune-sched-bd.cc: ...here. * config/i386/x86-tune-sched-core.c: Moved to... * config/i386/x86-tune-sched-core.cc: ...here. * config/i386/x86-tune-sched.c: Moved to... * config/i386/x86-tune-sched.cc: ...here. * config/ia64/ia64-c.c: Moved to... * config/ia64/ia64-c.cc: ...here. * config/ia64/ia64.c: Moved to... * config/ia64/ia64.cc: ...here. * config/iq2000/iq2000.c: Moved to... * config/iq2000/iq2000.cc: ...here. * config/linux.c: Moved to... * config/linux.cc: ...here. * config/lm32/lm32.c: Moved to... * config/lm32/lm32.cc: ...here. * config/m32c/m32c-pragma.c: Moved to... * config/m32c/m32c-pragma.cc: ...here. * config/m32c/m32c.c: Moved to... * config/m32c/m32c.cc: ...here. * config/m32r/m32r.c: Moved to... * config/m32r/m32r.cc: ...here. * config/m68k/m68k.c: Moved to... * config/m68k/m68k.cc: ...here. * config/mcore/mcore.c: Moved to... * config/mcore/mcore.cc: ...here. * config/microblaze/microblaze-c.c: Moved to... * config/microblaze/microblaze-c.cc: ...here. * config/microblaze/microblaze.c: Moved to... * config/microblaze/microblaze.cc: ...here. * config/mips/driver-native.c: Moved to... * config/mips/driver-native.cc: ...here. * config/mips/frame-header-opt.c: Moved to... * config/mips/frame-header-opt.cc: ...here. * config/mips/mips-d.c: Moved to... * config/mips/mips-d.cc: ...here. * config/mips/mips.c: Moved to... * config/mips/mips.cc: ...here. * config/mmix/mmix.c: Moved to... * config/mmix/mmix.cc: ...here. * config/mn10300/mn10300.c: Moved to... * config/mn10300/mn10300.cc: ...here. * config/moxie/moxie.c: Moved to... * config/moxie/moxie.cc: ...here. * config/msp430/driver-msp430.c: Moved to... * config/msp430/driver-msp430.cc: ...here. * config/msp430/msp430-c.c: Moved to... * config/msp430/msp430-c.cc: ...here. * config/msp430/msp430-devices.c: Moved to... * config/msp430/msp430-devices.cc: ...here. * config/msp430/msp430.c: Moved to... * config/msp430/msp430.cc: ...here. * config/nds32/nds32-cost.c: Moved to... * config/nds32/nds32-cost.cc: ...here. * config/nds32/nds32-fp-as-gp.c: Moved to... * config/nds32/nds32-fp-as-gp.cc: ...here. * config/nds32/nds32-intrinsic.c: Moved to... * config/nds32/nds32-intrinsic.cc: ...here. * config/nds32/nds32-isr.c: Moved to... * config/nds32/nds32-isr.cc: ...here. * config/nds32/nds32-md-auxiliary.c: Moved to... * config/nds32/nds32-md-auxiliary.cc: ...here. * config/nds32/nds32-memory-manipulation.c: Moved to... * config/nds32/nds32-memory-manipulation.cc: ...here. * config/nds32/nds32-pipelines-auxiliary.c: Moved to... * config/nds32/nds32-pipelines-auxiliary.cc: ...here. * config/nds32/nds32-predicates.c: Moved to... * config/nds32/nds32-predicates.cc: ...here. * config/nds32/nds32-relax-opt.c: Moved to... * config/nds32/nds32-relax-opt.cc: ...here. * config/nds32/nds32-utils.c: Moved to... * config/nds32/nds32-utils.cc: ...here. * config/nds32/nds32.c: Moved to... * config/nds32/nds32.cc: ...here. * config/netbsd-d.c: Moved to... * config/netbsd-d.cc: ...here. * config/netbsd.c: Moved to... * config/netbsd.cc: ...here. * config/nios2/nios2.c: Moved to... * config/nios2/nios2.cc: ...here. * config/nvptx/mkoffload.c: Moved to... * config/nvptx/mkoffload.cc: ...here. * config/nvptx/nvptx-c.c: Moved to... * config/nvptx/nvptx-c.cc: ...here. * config/nvptx/nvptx.c: Moved to... * config/nvptx/nvptx.cc: ...here. * config/openbsd-d.c: Moved to... * config/openbsd-d.cc: ...here. * config/or1k/or1k.c: Moved to... * config/or1k/or1k.cc: ...here. * config/pa/pa-d.c: Moved to... * config/pa/pa-d.cc: ...here. * config/pa/pa.c: Moved to... * config/pa/pa.cc: ...here. * config/pdp11/pdp11.c: Moved to... * config/pdp11/pdp11.cc: ...here. * config/pru/pru-passes.c: Moved to... * config/pru/pru-passes.cc: ...here. * config/pru/pru-pragma.c: Moved to... * config/pru/pru-pragma.cc: ...here. * config/pru/pru.c: Moved to... * config/pru/pru.cc: ...here. * config/riscv/riscv-builtins.c: Moved to... * config/riscv/riscv-builtins.cc: ...here. * config/riscv/riscv-c.c: Moved to... * config/riscv/riscv-c.cc: ...here. * config/riscv/riscv-d.c: Moved to... * config/riscv/riscv-d.cc: ...here. * config/riscv/riscv-shorten-memrefs.c: Moved to... * config/riscv/riscv-shorten-memrefs.cc: ...here. * config/riscv/riscv-sr.c: Moved to... * config/riscv/riscv-sr.cc: ...here. * config/riscv/riscv.c: Moved to... * config/riscv/riscv.cc: ...here. * config/rl78/rl78-c.c: Moved to... * config/rl78/rl78-c.cc: ...here. * config/rl78/rl78.c: Moved to... * config/rl78/rl78.cc: ...here. * config/rs6000/driver-rs6000.c: Moved to... * config/rs6000/driver-rs6000.cc: ...here. * config/rs6000/host-darwin.c: Moved to... * config/rs6000/host-darwin.cc: ...here. * config/rs6000/host-ppc64-darwin.c: Moved to... * config/rs6000/host-ppc64-darwin.cc: ...here. * config/rs6000/rbtree.c: Moved to... * config/rs6000/rbtree.cc: ...here. * config/rs6000/rs6000-c.c: Moved to... * config/rs6000/rs6000-c.cc: ...here. * config/rs6000/rs6000-call.c: Moved to... * config/rs6000/rs6000-call.cc: ...here. * config/rs6000/rs6000-d.c: Moved to... * config/rs6000/rs6000-d.cc: ...here. * config/rs6000/rs6000-gen-builtins.c: Moved to... * config/rs6000/rs6000-gen-builtins.cc: ...here. * config/rs6000/rs6000-linux.c: Moved to... * config/rs6000/rs6000-linux.cc: ...here. * config/rs6000/rs6000-logue.c: Moved to... * config/rs6000/rs6000-logue.cc: ...here. * config/rs6000/rs6000-p8swap.c: Moved to... * config/rs6000/rs6000-p8swap.cc: ...here. * config/rs6000/rs6000-pcrel-opt.c: Moved to... * config/rs6000/rs6000-pcrel-opt.cc: ...here. * config/rs6000/rs6000-string.c: Moved to... * config/rs6000/rs6000-string.cc: ...here. * config/rs6000/rs6000.c: Moved to... * config/rs6000/rs6000.cc: ...here. * config/rx/rx.c: Moved to... * config/rx/rx.cc: ...here. * config/s390/driver-native.c: Moved to... * config/s390/driver-native.cc: ...here. * config/s390/s390-c.c: Moved to... * config/s390/s390-c.cc: ...here. * config/s390/s390-d.c: Moved to... * config/s390/s390-d.cc: ...here. * config/s390/s390.c: Moved to... * config/s390/s390.cc: ...here. * config/sh/divtab-sh4-300.c: Moved to... * config/sh/divtab-sh4-300.cc: ...here. * config/sh/divtab-sh4.c: Moved to... * config/sh/divtab-sh4.cc: ...here. * config/sh/divtab.c: Moved to... * config/sh/divtab.cc: ...here. * config/sh/sh-c.c: Moved to... * config/sh/sh-c.cc: ...here. * config/sh/sh.c: Moved to... * config/sh/sh.cc: ...here. * config/sol2-c.c: Moved to... * config/sol2-c.cc: ...here. * config/sol2-cxx.c: Moved to... * config/sol2-cxx.cc: ...here. * config/sol2-d.c: Moved to... * config/sol2-d.cc: ...here. * config/sol2-stubs.c: Moved to... * config/sol2-stubs.cc: ...here. * config/sol2.c: Moved to... * config/sol2.cc: ...here. * config/sparc/driver-sparc.c: Moved to... * config/sparc/driver-sparc.cc: ...here. * config/sparc/sparc-c.c: Moved to... * config/sparc/sparc-c.cc: ...here. * config/sparc/sparc-d.c: Moved to... * config/sparc/sparc-d.cc: ...here. * config/sparc/sparc.c: Moved to... * config/sparc/sparc.cc: ...here. * config/stormy16/stormy16.c: Moved to... * config/stormy16/stormy16.cc: ...here. * config/tilegx/mul-tables.c: Moved to... * config/tilegx/mul-tables.cc: ...here. * config/tilegx/tilegx-c.c: Moved to... * config/tilegx/tilegx-c.cc: ...here. * config/tilegx/tilegx.c: Moved to... * config/tilegx/tilegx.cc: ...here. * config/tilepro/mul-tables.c: Moved to... * config/tilepro/mul-tables.cc: ...here. * config/tilepro/tilepro-c.c: Moved to... * config/tilepro/tilepro-c.cc: ...here. * config/tilepro/tilepro.c: Moved to... * config/tilepro/tilepro.cc: ...here. * config/v850/v850-c.c: Moved to... * config/v850/v850-c.cc: ...here. * config/v850/v850.c: Moved to... * config/v850/v850.cc: ...here. * config/vax/vax.c: Moved to... * config/vax/vax.cc: ...here. * config/visium/visium.c: Moved to... * config/visium/visium.cc: ...here. * config/vms/vms-c.c: Moved to... * config/vms/vms-c.cc: ...here. * config/vms/vms-f.c: Moved to... * config/vms/vms-f.cc: ...here. * config/vms/vms.c: Moved to... * config/vms/vms.cc: ...here. * config/vxworks-c.c: Moved to... * config/vxworks-c.cc: ...here. * config/vxworks.c: Moved to... * config/vxworks.cc: ...here. * config/winnt-c.c: Moved to... * config/winnt-c.cc: ...here. * config/xtensa/xtensa.c: Moved to... * config/xtensa/xtensa.cc: ...here. * context.c: Moved to... * context.cc: ...here. * convert.c: Moved to... * convert.cc: ...here. * coverage.c: Moved to... * coverage.cc: ...here. * cppbuiltin.c: Moved to... * cppbuiltin.cc: ...here. * cppdefault.c: Moved to... * cppdefault.cc: ...here. * cprop.c: Moved to... * cprop.cc: ...here. * cse.c: Moved to... * cse.cc: ...here. * cselib.c: Moved to... * cselib.cc: ...here. * ctfc.c: Moved to... * ctfc.cc: ...here. * ctfout.c: Moved to... * ctfout.cc: ...here. * data-streamer-in.c: Moved to... * data-streamer-in.cc: ...here. * data-streamer-out.c: Moved to... * data-streamer-out.cc: ...here. * data-streamer.c: Moved to... * data-streamer.cc: ...here. * dbgcnt.c: Moved to... * dbgcnt.cc: ...here. * dbxout.c: Moved to... * dbxout.cc: ...here. * dce.c: Moved to... * dce.cc: ...here. * ddg.c: Moved to... * ddg.cc: ...here. * debug.c: Moved to... * debug.cc: ...here. * df-core.c: Moved to... * df-core.cc: ...here. * df-problems.c: Moved to... * df-problems.cc: ...here. * df-scan.c: Moved to... * df-scan.cc: ...here. * dfp.c: Moved to... * dfp.cc: ...here. * diagnostic-color.c: Moved to... * diagnostic-color.cc: ...here. * diagnostic-show-locus.c: Moved to... * diagnostic-show-locus.cc: ...here. * diagnostic-spec.c: Moved to... * diagnostic-spec.cc: ...here. * diagnostic.c: Moved to... * diagnostic.cc: ...here. * dojump.c: Moved to... * dojump.cc: ...here. * dominance.c: Moved to... * dominance.cc: ...here. * domwalk.c: Moved to... * domwalk.cc: ...here. * double-int.c: Moved to... * double-int.cc: ...here. * dse.c: Moved to... * dse.cc: ...here. * dumpfile.c: Moved to... * dumpfile.cc: ...here. * dwarf2asm.c: Moved to... * dwarf2asm.cc: ...here. * dwarf2cfi.c: Moved to... * dwarf2cfi.cc: ...here. * dwarf2ctf.c: Moved to... * dwarf2ctf.cc: ...here. * dwarf2out.c: Moved to... * dwarf2out.cc: ...here. * early-remat.c: Moved to... * early-remat.cc: ...here. * edit-context.c: Moved to... * edit-context.cc: ...here. * emit-rtl.c: Moved to... * emit-rtl.cc: ...here. * errors.c: Moved to... * errors.cc: ...here. * et-forest.c: Moved to... * et-forest.cc: ...here. * except.c: Moved to... * except.cc: ...here. * explow.c: Moved to... * explow.cc: ...here. * expmed.c: Moved to... * expmed.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * fibonacci_heap.c: Moved to... * fibonacci_heap.cc: ...here. * file-find.c: Moved to... * file-find.cc: ...here. * file-prefix-map.c: Moved to... * file-prefix-map.cc: ...here. * final.c: Moved to... * final.cc: ...here. * fixed-value.c: Moved to... * fixed-value.cc: ...here. * fold-const-call.c: Moved to... * fold-const-call.cc: ...here. * fold-const.c: Moved to... * fold-const.cc: ...here. * fp-test.c: Moved to... * fp-test.cc: ...here. * function-tests.c: Moved to... * function-tests.cc: ...here. * function.c: Moved to... * function.cc: ...here. * fwprop.c: Moved to... * fwprop.cc: ...here. * gcc-ar.c: Moved to... * gcc-ar.cc: ...here. * gcc-main.c: Moved to... * gcc-main.cc: ...here. * gcc-rich-location.c: Moved to... * gcc-rich-location.cc: ...here. * gcc.c: Moved to... * gcc.cc: ...here. * gcov-dump.c: Moved to... * gcov-dump.cc: ...here. * gcov-io.c: Moved to... * gcov-io.cc: ...here. * gcov-tool.c: Moved to... * gcov-tool.cc: ...here. * gcov.c: Moved to... * gcov.cc: ...here. * gcse-common.c: Moved to... * gcse-common.cc: ...here. * gcse.c: Moved to... * gcse.cc: ...here. * genattr-common.c: Moved to... * genattr-common.cc: ...here. * genattr.c: Moved to... * genattr.cc: ...here. * genattrtab.c: Moved to... * genattrtab.cc: ...here. * genautomata.c: Moved to... * genautomata.cc: ...here. * gencfn-macros.c: Moved to... * gencfn-macros.cc: ...here. * gencheck.c: Moved to... * gencheck.cc: ...here. * genchecksum.c: Moved to... * genchecksum.cc: ...here. * gencodes.c: Moved to... * gencodes.cc: ...here. * genconditions.c: Moved to... * genconditions.cc: ...here. * genconfig.c: Moved to... * genconfig.cc: ...here. * genconstants.c: Moved to... * genconstants.cc: ...here. * genemit.c: Moved to... * genemit.cc: ...here. * genenums.c: Moved to... * genenums.cc: ...here. * generic-match-head.c: Moved to... * generic-match-head.cc: ...here. * genextract.c: Moved to... * genextract.cc: ...here. * genflags.c: Moved to... * genflags.cc: ...here. * gengenrtl.c: Moved to... * gengenrtl.cc: ...here. * gengtype-parse.c: Moved to... * gengtype-parse.cc: ...here. * gengtype-state.c: Moved to... * gengtype-state.cc: ...here. * gengtype.c: Moved to... * gengtype.cc: ...here. * genhooks.c: Moved to... * genhooks.cc: ...here. * genmatch.c: Moved to... * genmatch.cc: ...here. * genmddeps.c: Moved to... * genmddeps.cc: ...here. * genmddump.c: Moved to... * genmddump.cc: ...here. * genmodes.c: Moved to... * genmodes.cc: ...here. * genopinit.c: Moved to... * genopinit.cc: ...here. * genoutput.c: Moved to... * genoutput.cc: ...here. * genpeep.c: Moved to... * genpeep.cc: ...here. * genpreds.c: Moved to... * genpreds.cc: ...here. * genrecog.c: Moved to... * genrecog.cc: ...here. * gensupport.c: Moved to... * gensupport.cc: ...here. * gentarget-def.c: Moved to... * gentarget-def.cc: ...here. * genversion.c: Moved to... * genversion.cc: ...here. * ggc-common.c: Moved to... * ggc-common.cc: ...here. * ggc-none.c: Moved to... * ggc-none.cc: ...here. * ggc-page.c: Moved to... * ggc-page.cc: ...here. * ggc-tests.c: Moved to... * ggc-tests.cc: ...here. * gimple-builder.c: Moved to... * gimple-builder.cc: ...here. * gimple-expr.c: Moved to... * gimple-expr.cc: ...here. * gimple-fold.c: Moved to... * gimple-fold.cc: ...here. * gimple-iterator.c: Moved to... * gimple-iterator.cc: ...here. * gimple-laddress.c: Moved to... * gimple-laddress.cc: ...here. * gimple-loop-jam.c: Moved to... * gimple-loop-jam.cc: ...here. * gimple-low.c: Moved to... * gimple-low.cc: ...here. * gimple-match-head.c: Moved to... * gimple-match-head.cc: ...here. * gimple-pretty-print.c: Moved to... * gimple-pretty-print.cc: ...here. * gimple-ssa-backprop.c: Moved to... * gimple-ssa-backprop.cc: ...here. * gimple-ssa-evrp-analyze.c: Moved to... * gimple-ssa-evrp-analyze.cc: ...here. * gimple-ssa-evrp.c: Moved to... * gimple-ssa-evrp.cc: ...here. * gimple-ssa-isolate-paths.c: Moved to... * gimple-ssa-isolate-paths.cc: ...here. * gimple-ssa-nonnull-compare.c: Moved to... * gimple-ssa-nonnull-compare.cc: ...here. * gimple-ssa-split-paths.c: Moved to... * gimple-ssa-split-paths.cc: ...here. * gimple-ssa-sprintf.c: Moved to... * gimple-ssa-sprintf.cc: ...here. * gimple-ssa-store-merging.c: Moved to... * gimple-ssa-store-merging.cc: ...here. * gimple-ssa-strength-reduction.c: Moved to... * gimple-ssa-strength-reduction.cc: ...here. * gimple-ssa-warn-alloca.c: Moved to... * gimple-ssa-warn-alloca.cc: ...here. * gimple-ssa-warn-restrict.c: Moved to... * gimple-ssa-warn-restrict.cc: ...here. * gimple-streamer-in.c: Moved to... * gimple-streamer-in.cc: ...here. * gimple-streamer-out.c: Moved to... * gimple-streamer-out.cc: ...here. * gimple-walk.c: Moved to... * gimple-walk.cc: ...here. * gimple-warn-recursion.c: Moved to... * gimple-warn-recursion.cc: ...here. * gimple.c: Moved to... * gimple.cc: ...here. * gimplify-me.c: Moved to... * gimplify-me.cc: ...here. * gimplify.c: Moved to... * gimplify.cc: ...here. * godump.c: Moved to... * godump.cc: ...here. * graph.c: Moved to... * graph.cc: ...here. * graphds.c: Moved to... * graphds.cc: ...here. * graphite-dependences.c: Moved to... * graphite-dependences.cc: ...here. * graphite-isl-ast-to-gimple.c: Moved to... * graphite-isl-ast-to-gimple.cc: ...here. * graphite-optimize-isl.c: Moved to... * graphite-optimize-isl.cc: ...here. * graphite-poly.c: Moved to... * graphite-poly.cc: ...here. * graphite-scop-detection.c: Moved to... * graphite-scop-detection.cc: ...here. * graphite-sese-to-poly.c: Moved to... * graphite-sese-to-poly.cc: ...here. * graphite.c: Moved to... * graphite.cc: ...here. * haifa-sched.c: Moved to... * haifa-sched.cc: ...here. * hash-map-tests.c: Moved to... * hash-map-tests.cc: ...here. * hash-set-tests.c: Moved to... * hash-set-tests.cc: ...here. * hash-table.c: Moved to... * hash-table.cc: ...here. * hooks.c: Moved to... * hooks.cc: ...here. * host-default.c: Moved to... * host-default.cc: ...here. * hw-doloop.c: Moved to... * hw-doloop.cc: ...here. * hwint.c: Moved to... * hwint.cc: ...here. * ifcvt.c: Moved to... * ifcvt.cc: ...here. * inchash.c: Moved to... * inchash.cc: ...here. * incpath.c: Moved to... * incpath.cc: ...here. * init-regs.c: Moved to... * init-regs.cc: ...here. * input.c: Moved to... * input.cc: ...here. * internal-fn.c: Moved to... * internal-fn.cc: ...here. * intl.c: Moved to... * intl.cc: ...here. * ipa-comdats.c: Moved to... * ipa-comdats.cc: ...here. * ipa-cp.c: Moved to... * ipa-cp.cc: ...here. * ipa-devirt.c: Moved to... * ipa-devirt.cc: ...here. * ipa-fnsummary.c: Moved to... * ipa-fnsummary.cc: ...here. * ipa-icf-gimple.c: Moved to... * ipa-icf-gimple.cc: ...here. * ipa-icf.c: Moved to... * ipa-icf.cc: ...here. * ipa-inline-analysis.c: Moved to... * ipa-inline-analysis.cc: ...here. * ipa-inline-transform.c: Moved to... * ipa-inline-transform.cc: ...here. * ipa-inline.c: Moved to... * ipa-inline.cc: ...here. * ipa-modref-tree.c: Moved to... * ipa-modref-tree.cc: ...here. * ipa-modref.c: Moved to... * ipa-modref.cc: ...here. * ipa-param-manipulation.c: Moved to... * ipa-param-manipulation.cc: ...here. * ipa-polymorphic-call.c: Moved to... * ipa-polymorphic-call.cc: ...here. * ipa-predicate.c: Moved to... * ipa-predicate.cc: ...here. * ipa-profile.c: Moved to... * ipa-profile.cc: ...here. * ipa-prop.c: Moved to... * ipa-prop.cc: ...here. * ipa-pure-const.c: Moved to... * ipa-pure-const.cc: ...here. * ipa-ref.c: Moved to... * ipa-ref.cc: ...here. * ipa-reference.c: Moved to... * ipa-reference.cc: ...here. * ipa-split.c: Moved to... * ipa-split.cc: ...here. * ipa-sra.c: Moved to... * ipa-sra.cc: ...here. * ipa-utils.c: Moved to... * ipa-utils.cc: ...here. * ipa-visibility.c: Moved to... * ipa-visibility.cc: ...here. * ipa.c: Moved to... * ipa.cc: ...here. * ira-build.c: Moved to... * ira-build.cc: ...here. * ira-color.c: Moved to... * ira-color.cc: ...here. * ira-conflicts.c: Moved to... * ira-conflicts.cc: ...here. * ira-costs.c: Moved to... * ira-costs.cc: ...here. * ira-emit.c: Moved to... * ira-emit.cc: ...here. * ira-lives.c: Moved to... * ira-lives.cc: ...here. * ira.c: Moved to... * ira.cc: ...here. * jump.c: Moved to... * jump.cc: ...here. * langhooks.c: Moved to... * langhooks.cc: ...here. * lcm.c: Moved to... * lcm.cc: ...here. * lists.c: Moved to... * lists.cc: ...here. * loop-doloop.c: Moved to... * loop-doloop.cc: ...here. * loop-init.c: Moved to... * loop-init.cc: ...here. * loop-invariant.c: Moved to... * loop-invariant.cc: ...here. * loop-iv.c: Moved to... * loop-iv.cc: ...here. * loop-unroll.c: Moved to... * loop-unroll.cc: ...here. * lower-subreg.c: Moved to... * lower-subreg.cc: ...here. * lra-assigns.c: Moved to... * lra-assigns.cc: ...here. * lra-coalesce.c: Moved to... * lra-coalesce.cc: ...here. * lra-constraints.c: Moved to... * lra-constraints.cc: ...here. * lra-eliminations.c: Moved to... * lra-eliminations.cc: ...here. * lra-lives.c: Moved to... * lra-lives.cc: ...here. * lra-remat.c: Moved to... * lra-remat.cc: ...here. * lra-spills.c: Moved to... * lra-spills.cc: ...here. * lra.c: Moved to... * lra.cc: ...here. * lto-cgraph.c: Moved to... * lto-cgraph.cc: ...here. * lto-compress.c: Moved to... * lto-compress.cc: ...here. * lto-opts.c: Moved to... * lto-opts.cc: ...here. * lto-section-in.c: Moved to... * lto-section-in.cc: ...here. * lto-section-out.c: Moved to... * lto-section-out.cc: ...here. * lto-streamer-in.c: Moved to... * lto-streamer-in.cc: ...here. * lto-streamer-out.c: Moved to... * lto-streamer-out.cc: ...here. * lto-streamer.c: Moved to... * lto-streamer.cc: ...here. * lto-wrapper.c: Moved to... * lto-wrapper.cc: ...here. * main.c: Moved to... * main.cc: ...here. * mcf.c: Moved to... * mcf.cc: ...here. * mode-switching.c: Moved to... * mode-switching.cc: ...here. * modulo-sched.c: Moved to... * modulo-sched.cc: ...here. * multiple_target.c: Moved to... * multiple_target.cc: ...here. * omp-expand.c: Moved to... * omp-expand.cc: ...here. * omp-general.c: Moved to... * omp-general.cc: ...here. * omp-low.c: Moved to... * omp-low.cc: ...here. * omp-offload.c: Moved to... * omp-offload.cc: ...here. * omp-simd-clone.c: Moved to... * omp-simd-clone.cc: ...here. * opt-suggestions.c: Moved to... * opt-suggestions.cc: ...here. * optabs-libfuncs.c: Moved to... * optabs-libfuncs.cc: ...here. * optabs-query.c: Moved to... * optabs-query.cc: ...here. * optabs-tree.c: Moved to... * optabs-tree.cc: ...here. * optabs.c: Moved to... * optabs.cc: ...here. * opts-common.c: Moved to... * opts-common.cc: ...here. * opts-global.c: Moved to... * opts-global.cc: ...here. * opts.c: Moved to... * opts.cc: ...here. * passes.c: Moved to... * passes.cc: ...here. * plugin.c: Moved to... * plugin.cc: ...here. * postreload-gcse.c: Moved to... * postreload-gcse.cc: ...here. * postreload.c: Moved to... * postreload.cc: ...here. * predict.c: Moved to... * predict.cc: ...here. * prefix.c: Moved to... * prefix.cc: ...here. * pretty-print.c: Moved to... * pretty-print.cc: ...here. * print-rtl-function.c: Moved to... * print-rtl-function.cc: ...here. * print-rtl.c: Moved to... * print-rtl.cc: ...here. * print-tree.c: Moved to... * print-tree.cc: ...here. * profile-count.c: Moved to... * profile-count.cc: ...here. * profile.c: Moved to... * profile.cc: ...here. * read-md.c: Moved to... * read-md.cc: ...here. * read-rtl-function.c: Moved to... * read-rtl-function.cc: ...here. * read-rtl.c: Moved to... * read-rtl.cc: ...here. * real.c: Moved to... * real.cc: ...here. * realmpfr.c: Moved to... * realmpfr.cc: ...here. * recog.c: Moved to... * recog.cc: ...here. * ree.c: Moved to... * ree.cc: ...here. * reg-stack.c: Moved to... * reg-stack.cc: ...here. * regcprop.c: Moved to... * regcprop.cc: ...here. * reginfo.c: Moved to... * reginfo.cc: ...here. * regrename.c: Moved to... * regrename.cc: ...here. * regstat.c: Moved to... * regstat.cc: ...here. * reload.c: Moved to... * reload.cc: ...here. * reload1.c: Moved to... * reload1.cc: ...here. * reorg.c: Moved to... * reorg.cc: ...here. * resource.c: Moved to... * resource.cc: ...here. * rtl-error.c: Moved to... * rtl-error.cc: ...here. * rtl-tests.c: Moved to... * rtl-tests.cc: ...here. * rtl.c: Moved to... * rtl.cc: ...here. * rtlanal.c: Moved to... * rtlanal.cc: ...here. * rtlhash.c: Moved to... * rtlhash.cc: ...here. * rtlhooks.c: Moved to... * rtlhooks.cc: ...here. * rtx-vector-builder.c: Moved to... * rtx-vector-builder.cc: ...here. * run-rtl-passes.c: Moved to... * run-rtl-passes.cc: ...here. * sancov.c: Moved to... * sancov.cc: ...here. * sanopt.c: Moved to... * sanopt.cc: ...here. * sbitmap.c: Moved to... * sbitmap.cc: ...here. * sched-deps.c: Moved to... * sched-deps.cc: ...here. * sched-ebb.c: Moved to... * sched-ebb.cc: ...here. * sched-rgn.c: Moved to... * sched-rgn.cc: ...here. * sel-sched-dump.c: Moved to... * sel-sched-dump.cc: ...here. * sel-sched-ir.c: Moved to... * sel-sched-ir.cc: ...here. * sel-sched.c: Moved to... * sel-sched.cc: ...here. * selftest-diagnostic.c: Moved to... * selftest-diagnostic.cc: ...here. * selftest-rtl.c: Moved to... * selftest-rtl.cc: ...here. * selftest-run-tests.c: Moved to... * selftest-run-tests.cc: ...here. * selftest.c: Moved to... * selftest.cc: ...here. * sese.c: Moved to... * sese.cc: ...here. * shrink-wrap.c: Moved to... * shrink-wrap.cc: ...here. * simplify-rtx.c: Moved to... * simplify-rtx.cc: ...here. * sparseset.c: Moved to... * sparseset.cc: ...here. * spellcheck-tree.c: Moved to... * spellcheck-tree.cc: ...here. * spellcheck.c: Moved to... * spellcheck.cc: ...here. * sreal.c: Moved to... * sreal.cc: ...here. * stack-ptr-mod.c: Moved to... * stack-ptr-mod.cc: ...here. * statistics.c: Moved to... * statistics.cc: ...here. * stmt.c: Moved to... * stmt.cc: ...here. * stor-layout.c: Moved to... * stor-layout.cc: ...here. * store-motion.c: Moved to... * store-motion.cc: ...here. * streamer-hooks.c: Moved to... * streamer-hooks.cc: ...here. * stringpool.c: Moved to... * stringpool.cc: ...here. * substring-locations.c: Moved to... * substring-locations.cc: ...here. * symtab.c: Moved to... * symtab.cc: ...here. * target-globals.c: Moved to... * target-globals.cc: ...here. * targhooks.c: Moved to... * targhooks.cc: ...here. * timevar.c: Moved to... * timevar.cc: ...here. * toplev.c: Moved to... * toplev.cc: ...here. * tracer.c: Moved to... * tracer.cc: ...here. * trans-mem.c: Moved to... * trans-mem.cc: ...here. * tree-affine.c: Moved to... * tree-affine.cc: ...here. * tree-call-cdce.c: Moved to... * tree-call-cdce.cc: ...here. * tree-cfg.c: Moved to... * tree-cfg.cc: ...here. * tree-cfgcleanup.c: Moved to... * tree-cfgcleanup.cc: ...here. * tree-chrec.c: Moved to... * tree-chrec.cc: ...here. * tree-complex.c: Moved to... * tree-complex.cc: ...here. * tree-data-ref.c: Moved to... * tree-data-ref.cc: ...here. * tree-dfa.c: Moved to... * tree-dfa.cc: ...here. * tree-diagnostic.c: Moved to... * tree-diagnostic.cc: ...here. * tree-dump.c: Moved to... * tree-dump.cc: ...here. * tree-eh.c: Moved to... * tree-eh.cc: ...here. * tree-emutls.c: Moved to... * tree-emutls.cc: ...here. * tree-if-conv.c: Moved to... * tree-if-conv.cc: ...here. * tree-inline.c: Moved to... * tree-inline.cc: ...here. * tree-into-ssa.c: Moved to... * tree-into-ssa.cc: ...here. * tree-iterator.c: Moved to... * tree-iterator.cc: ...here. * tree-loop-distribution.c: Moved to... * tree-loop-distribution.cc: ...here. * tree-nested.c: Moved to... * tree-nested.cc: ...here. * tree-nrv.c: Moved to... * tree-nrv.cc: ...here. * tree-object-size.c: Moved to... * tree-object-size.cc: ...here. * tree-outof-ssa.c: Moved to... * tree-outof-ssa.cc: ...here. * tree-parloops.c: Moved to... * tree-parloops.cc: ...here. * tree-phinodes.c: Moved to... * tree-phinodes.cc: ...here. * tree-predcom.c: Moved to... * tree-predcom.cc: ...here. * tree-pretty-print.c: Moved to... * tree-pretty-print.cc: ...here. * tree-profile.c: Moved to... * tree-profile.cc: ...here. * tree-scalar-evolution.c: Moved to... * tree-scalar-evolution.cc: ...here. * tree-sra.c: Moved to... * tree-sra.cc: ...here. * tree-ssa-address.c: Moved to... * tree-ssa-address.cc: ...here. * tree-ssa-alias.c: Moved to... * tree-ssa-alias.cc: ...here. * tree-ssa-ccp.c: Moved to... * tree-ssa-ccp.cc: ...here. * tree-ssa-coalesce.c: Moved to... * tree-ssa-coalesce.cc: ...here. * tree-ssa-copy.c: Moved to... * tree-ssa-copy.cc: ...here. * tree-ssa-dce.c: Moved to... * tree-ssa-dce.cc: ...here. * tree-ssa-dom.c: Moved to... * tree-ssa-dom.cc: ...here. * tree-ssa-dse.c: Moved to... * tree-ssa-dse.cc: ...here. * tree-ssa-forwprop.c: Moved to... * tree-ssa-forwprop.cc: ...here. * tree-ssa-ifcombine.c: Moved to... * tree-ssa-ifcombine.cc: ...here. * tree-ssa-live.c: Moved to... * tree-ssa-live.cc: ...here. * tree-ssa-loop-ch.c: Moved to... * tree-ssa-loop-ch.cc: ...here. * tree-ssa-loop-im.c: Moved to... * tree-ssa-loop-im.cc: ...here. * tree-ssa-loop-ivcanon.c: Moved to... * tree-ssa-loop-ivcanon.cc: ...here. * tree-ssa-loop-ivopts.c: Moved to... * tree-ssa-loop-ivopts.cc: ...here. * tree-ssa-loop-manip.c: Moved to... * tree-ssa-loop-manip.cc: ...here. * tree-ssa-loop-niter.c: Moved to... * tree-ssa-loop-niter.cc: ...here. * tree-ssa-loop-prefetch.c: Moved to... * tree-ssa-loop-prefetch.cc: ...here. * tree-ssa-loop-split.c: Moved to... * tree-ssa-loop-split.cc: ...here. * tree-ssa-loop-unswitch.c: Moved to... * tree-ssa-loop-unswitch.cc: ...here. * tree-ssa-loop.c: Moved to... * tree-ssa-loop.cc: ...here. * tree-ssa-math-opts.c: Moved to... * tree-ssa-math-opts.cc: ...here. * tree-ssa-operands.c: Moved to... * tree-ssa-operands.cc: ...here. * tree-ssa-phiopt.c: Moved to... * tree-ssa-phiopt.cc: ...here. * tree-ssa-phiprop.c: Moved to... * tree-ssa-phiprop.cc: ...here. * tree-ssa-pre.c: Moved to... * tree-ssa-pre.cc: ...here. * tree-ssa-propagate.c: Moved to... * tree-ssa-propagate.cc: ...here. * tree-ssa-reassoc.c: Moved to... * tree-ssa-reassoc.cc: ...here. * tree-ssa-sccvn.c: Moved to... * tree-ssa-sccvn.cc: ...here. * tree-ssa-scopedtables.c: Moved to... * tree-ssa-scopedtables.cc: ...here. * tree-ssa-sink.c: Moved to... * tree-ssa-sink.cc: ...here. * tree-ssa-strlen.c: Moved to... * tree-ssa-strlen.cc: ...here. * tree-ssa-structalias.c: Moved to... * tree-ssa-structalias.cc: ...here. * tree-ssa-tail-merge.c: Moved to... * tree-ssa-tail-merge.cc: ...here. * tree-ssa-ter.c: Moved to... * tree-ssa-ter.cc: ...here. * tree-ssa-threadbackward.c: Moved to... * tree-ssa-threadbackward.cc: ...here. * tree-ssa-threadedge.c: Moved to... * tree-ssa-threadedge.cc: ...here. * tree-ssa-threadupdate.c: Moved to... * tree-ssa-threadupdate.cc: ...here. * tree-ssa-uncprop.c: Moved to... * tree-ssa-uncprop.cc: ...here. * tree-ssa-uninit.c: Moved to... * tree-ssa-uninit.cc: ...here. * tree-ssa.c: Moved to... * tree-ssa.cc: ...here. * tree-ssanames.c: Moved to... * tree-ssanames.cc: ...here. * tree-stdarg.c: Moved to... * tree-stdarg.cc: ...here. * tree-streamer-in.c: Moved to... * tree-streamer-in.cc: ...here. * tree-streamer-out.c: Moved to... * tree-streamer-out.cc: ...here. * tree-streamer.c: Moved to... * tree-streamer.cc: ...here. * tree-switch-conversion.c: Moved to... * tree-switch-conversion.cc: ...here. * tree-tailcall.c: Moved to... * tree-tailcall.cc: ...here. * tree-vect-data-refs.c: Moved to... * tree-vect-data-refs.cc: ...here. * tree-vect-generic.c: Moved to... * tree-vect-generic.cc: ...here. * tree-vect-loop-manip.c: Moved to... * tree-vect-loop-manip.cc: ...here. * tree-vect-loop.c: Moved to... * tree-vect-loop.cc: ...here. * tree-vect-patterns.c: Moved to... * tree-vect-patterns.cc: ...here. * tree-vect-slp-patterns.c: Moved to... * tree-vect-slp-patterns.cc: ...here. * tree-vect-slp.c: Moved to... * tree-vect-slp.cc: ...here. * tree-vect-stmts.c: Moved to... * tree-vect-stmts.cc: ...here. * tree-vector-builder.c: Moved to... * tree-vector-builder.cc: ...here. * tree-vectorizer.c: Moved to... * tree-vectorizer.cc: ...here. * tree-vrp.c: Moved to... * tree-vrp.cc: ...here. * tree.c: Moved to... * tree.cc: ...here. * tsan.c: Moved to... * tsan.cc: ...here. * typed-splay-tree.c: Moved to... * typed-splay-tree.cc: ...here. * ubsan.c: Moved to... * ubsan.cc: ...here. * valtrack.c: Moved to... * valtrack.cc: ...here. * value-prof.c: Moved to... * value-prof.cc: ...here. * var-tracking.c: Moved to... * var-tracking.cc: ...here. * varasm.c: Moved to... * varasm.cc: ...here. * varpool.c: Moved to... * varpool.cc: ...here. * vec-perm-indices.c: Moved to... * vec-perm-indices.cc: ...here. * vec.c: Moved to... * vec.cc: ...here. * vmsdbgout.c: Moved to... * vmsdbgout.cc: ...here. * vr-values.c: Moved to... * vr-values.cc: ...here. * vtable-verify.c: Moved to... * vtable-verify.cc: ...here. * web.c: Moved to... * web.cc: ...here. * xcoffout.c: Moved to... * xcoffout.cc: ...here. gcc/c-family/ChangeLog: * c-ada-spec.c: Moved to... * c-ada-spec.cc: ...here. * c-attribs.c: Moved to... * c-attribs.cc: ...here. * c-common.c: Moved to... * c-common.cc: ...here. * c-cppbuiltin.c: Moved to... * c-cppbuiltin.cc: ...here. * c-dump.c: Moved to... * c-dump.cc: ...here. * c-format.c: Moved to... * c-format.cc: ...here. * c-gimplify.c: Moved to... * c-gimplify.cc: ...here. * c-indentation.c: Moved to... * c-indentation.cc: ...here. * c-lex.c: Moved to... * c-lex.cc: ...here. * c-omp.c: Moved to... * c-omp.cc: ...here. * c-opts.c: Moved to... * c-opts.cc: ...here. * c-pch.c: Moved to... * c-pch.cc: ...here. * c-ppoutput.c: Moved to... * c-ppoutput.cc: ...here. * c-pragma.c: Moved to... * c-pragma.cc: ...here. * c-pretty-print.c: Moved to... * c-pretty-print.cc: ...here. * c-semantics.c: Moved to... * c-semantics.cc: ...here. * c-ubsan.c: Moved to... * c-ubsan.cc: ...here. * c-warn.c: Moved to... * c-warn.cc: ...here. * cppspec.c: Moved to... * cppspec.cc: ...here. * stub-objc.c: Moved to... * stub-objc.cc: ...here. gcc/c/ChangeLog: * c-aux-info.c: Moved to... * c-aux-info.cc: ...here. * c-convert.c: Moved to... * c-convert.cc: ...here. * c-decl.c: Moved to... * c-decl.cc: ...here. * c-errors.c: Moved to... * c-errors.cc: ...here. * c-fold.c: Moved to... * c-fold.cc: ...here. * c-lang.c: Moved to... * c-lang.cc: ...here. * c-objc-common.c: Moved to... * c-objc-common.cc: ...here. * c-parser.c: Moved to... * c-parser.cc: ...here. * c-typeck.c: Moved to... * c-typeck.cc: ...here. * gccspec.c: Moved to... * gccspec.cc: ...here. * gimple-parser.c: Moved to... * gimple-parser.cc: ...here. gcc/cp/ChangeLog: * call.c: Moved to... * call.cc: ...here. * class.c: Moved to... * class.cc: ...here. * constexpr.c: Moved to... * constexpr.cc: ...here. * cp-gimplify.c: Moved to... * cp-gimplify.cc: ...here. * cp-lang.c: Moved to... * cp-lang.cc: ...here. * cp-objcp-common.c: Moved to... * cp-objcp-common.cc: ...here. * cp-ubsan.c: Moved to... * cp-ubsan.cc: ...here. * cvt.c: Moved to... * cvt.cc: ...here. * cxx-pretty-print.c: Moved to... * cxx-pretty-print.cc: ...here. * decl.c: Moved to... * decl.cc: ...here. * decl2.c: Moved to... * decl2.cc: ...here. * dump.c: Moved to... * dump.cc: ...here. * error.c: Moved to... * error.cc: ...here. * except.c: Moved to... * except.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * friend.c: Moved to... * friend.cc: ...here. * g++spec.c: Moved to... * g++spec.cc: ...here. * init.c: Moved to... * init.cc: ...here. * lambda.c: Moved to... * lambda.cc: ...here. * lex.c: Moved to... * lex.cc: ...here. * mangle.c: Moved to... * mangle.cc: ...here. * method.c: Moved to... * method.cc: ...here. * name-lookup.c: Moved to... * name-lookup.cc: ...here. * optimize.c: Moved to... * optimize.cc: ...here. * parser.c: Moved to... * parser.cc: ...here. * pt.c: Moved to... * pt.cc: ...here. * ptree.c: Moved to... * ptree.cc: ...here. * rtti.c: Moved to... * rtti.cc: ...here. * search.c: Moved to... * search.cc: ...here. * semantics.c: Moved to... * semantics.cc: ...here. * tree.c: Moved to... * tree.cc: ...here. * typeck.c: Moved to... * typeck.cc: ...here. * typeck2.c: Moved to... * typeck2.cc: ...here. * vtable-class-hierarchy.c: Moved to... * vtable-class-hierarchy.cc: ...here. gcc/fortran/ChangeLog: * arith.c: Moved to... * arith.cc: ...here. * array.c: Moved to... * array.cc: ...here. * bbt.c: Moved to... * bbt.cc: ...here. * check.c: Moved to... * check.cc: ...here. * class.c: Moved to... * class.cc: ...here. * constructor.c: Moved to... * constructor.cc: ...here. * convert.c: Moved to... * convert.cc: ...here. * cpp.c: Moved to... * cpp.cc: ...here. * data.c: Moved to... * data.cc: ...here. * decl.c: Moved to... * decl.cc: ...here. * dependency.c: Moved to... * dependency.cc: ...here. * dump-parse-tree.c: Moved to... * dump-parse-tree.cc: ...here. * error.c: Moved to... * error.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * f95-lang.c: Moved to... * f95-lang.cc: ...here. * frontend-passes.c: Moved to... * frontend-passes.cc: ...here. * gfortranspec.c: Moved to... * gfortranspec.cc: ...here. * interface.c: Moved to... * interface.cc: ...here. * intrinsic.c: Moved to... * intrinsic.cc: ...here. * io.c: Moved to... * io.cc: ...here. * iresolve.c: Moved to... * iresolve.cc: ...here. * match.c: Moved to... * match.cc: ...here. * matchexp.c: Moved to... * matchexp.cc: ...here. * misc.c: Moved to... * misc.cc: ...here. * module.c: Moved to... * module.cc: ...here. * openmp.c: Moved to... * openmp.cc: ...here. * options.c: Moved to... * options.cc: ...here. * parse.c: Moved to... * parse.cc: ...here. * primary.c: Moved to... * primary.cc: ...here. * resolve.c: Moved to... * resolve.cc: ...here. * scanner.c: Moved to... * scanner.cc: ...here. * simplify.c: Moved to... * simplify.cc: ...here. * st.c: Moved to... * st.cc: ...here. * symbol.c: Moved to... * symbol.cc: ...here. * target-memory.c: Moved to... * target-memory.cc: ...here. * trans-array.c: Moved to... * trans-array.cc: ...here. * trans-common.c: Moved to... * trans-common.cc: ...here. * trans-const.c: Moved to... * trans-const.cc: ...here. * trans-decl.c: Moved to... * trans-decl.cc: ...here. * trans-expr.c: Moved to... * trans-expr.cc: ...here. * trans-intrinsic.c: Moved to... * trans-intrinsic.cc: ...here. * trans-io.c: Moved to... * trans-io.cc: ...here. * trans-openmp.c: Moved to... * trans-openmp.cc: ...here. * trans-stmt.c: Moved to... * trans-stmt.cc: ...here. * trans-types.c: Moved to... * trans-types.cc: ...here. * trans.c: Moved to... * trans.cc: ...here. gcc/go/ChangeLog: * go-backend.c: Moved to... * go-backend.cc: ...here. * go-lang.c: Moved to... * go-lang.cc: ...here. * gospec.c: Moved to... * gospec.cc: ...here. gcc/jit/ChangeLog: * dummy-frontend.c: Moved to... * dummy-frontend.cc: ...here. * jit-builtins.c: Moved to... * jit-builtins.cc: ...here. * jit-logging.c: Moved to... * jit-logging.cc: ...here. * jit-playback.c: Moved to... * jit-playback.cc: ...here. * jit-recording.c: Moved to... * jit-recording.cc: ...here. * jit-result.c: Moved to... * jit-result.cc: ...here. * jit-spec.c: Moved to... * jit-spec.cc: ...here. * jit-tempdir.c: Moved to... * jit-tempdir.cc: ...here. * jit-w32.c: Moved to... * jit-w32.cc: ...here. * libgccjit.c: Moved to... * libgccjit.cc: ...here. gcc/lto/ChangeLog: * common.c: Moved to... * common.cc: ...here. * lto-common.c: Moved to... * lto-common.cc: ...here. * lto-dump.c: Moved to... * lto-dump.cc: ...here. * lto-lang.c: Moved to... * lto-lang.cc: ...here. * lto-object.c: Moved to... * lto-object.cc: ...here. * lto-partition.c: Moved to... * lto-partition.cc: ...here. * lto-symtab.c: Moved to... * lto-symtab.cc: ...here. * lto.c: Moved to... * lto.cc: ...here. gcc/objc/ChangeLog: * objc-act.c: Moved to... * objc-act.cc: ...here. * objc-encoding.c: Moved to... * objc-encoding.cc: ...here. * objc-gnu-runtime-abi-01.c: Moved to... * objc-gnu-runtime-abi-01.cc: ...here. * objc-lang.c: Moved to... * objc-lang.cc: ...here. * objc-map.c: Moved to... * objc-map.cc: ...here. * objc-next-runtime-abi-01.c: Moved to... * objc-next-runtime-abi-01.cc: ...here. * objc-next-runtime-abi-02.c: Moved to... * objc-next-runtime-abi-02.cc: ...here. * objc-runtime-shared-support.c: Moved to... * objc-runtime-shared-support.cc: ...here. gcc/objcp/ChangeLog: * objcp-decl.c: Moved to... * objcp-decl.cc: ...here. * objcp-lang.c: Moved to... * objcp-lang.cc: ...here. libcpp/ChangeLog: * charset.c: Moved to... * charset.cc: ...here. * directives.c: Moved to... * directives.cc: ...here. * errors.c: Moved to... * errors.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * files.c: Moved to... * files.cc: ...here. * identifiers.c: Moved to... * identifiers.cc: ...here. * init.c: Moved to... * init.cc: ...here. * lex.c: Moved to... * lex.cc: ...here. * line-map.c: Moved to... * line-map.cc: ...here. * macro.c: Moved to... * macro.cc: ...here. * makeucnid.c: Moved to... * makeucnid.cc: ...here. * mkdeps.c: Moved to... * mkdeps.cc: ...here. * pch.c: Moved to... * pch.cc: ...here. * symtab.c: Moved to... * symtab.cc: ...here. * traditional.c: Moved to... * traditional.cc: ...here.
Diffstat (limited to 'gcc/tree-complex.c')
-rw-r--r--gcc/tree-complex.c1956
1 files changed, 0 insertions, 1956 deletions
diff --git a/gcc/tree-complex.c b/gcc/tree-complex.c
deleted file mode 100644
index 9acb1ad..0000000
--- a/gcc/tree-complex.c
+++ /dev/null
@@ -1,1956 +0,0 @@
-/* Lower complex number operations to scalar operations.
- Copyright (C) 2004-2022 Free Software Foundation, Inc.
-
-This file is part of GCC.
-
-GCC is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 3, or (at your option) any
-later version.
-
-GCC is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-for more details.
-
-You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING3. If not see
-<http://www.gnu.org/licenses/>. */
-
-#include "config.h"
-#include "system.h"
-#include "coretypes.h"
-#include "backend.h"
-#include "rtl.h"
-#include "tree.h"
-#include "gimple.h"
-#include "cfghooks.h"
-#include "tree-pass.h"
-#include "ssa.h"
-#include "fold-const.h"
-#include "stor-layout.h"
-#include "tree-eh.h"
-#include "gimplify.h"
-#include "gimple-iterator.h"
-#include "gimplify-me.h"
-#include "tree-cfg.h"
-#include "tree-dfa.h"
-#include "tree-ssa.h"
-#include "tree-ssa-propagate.h"
-#include "tree-hasher.h"
-#include "cfgloop.h"
-#include "cfganal.h"
-#include "gimple-fold.h"
-
-
-/* For each complex ssa name, a lattice value. We're interested in finding
- out whether a complex number is degenerate in some way, having only real
- or only complex parts. */
-
-enum
-{
- UNINITIALIZED = 0,
- ONLY_REAL = 1,
- ONLY_IMAG = 2,
- VARYING = 3
-};
-
-/* The type complex_lattice_t holds combinations of the above
- constants. */
-typedef int complex_lattice_t;
-
-#define PAIR(a, b) ((a) << 2 | (b))
-
-class complex_propagate : public ssa_propagation_engine
-{
- enum ssa_prop_result visit_stmt (gimple *, edge *, tree *) FINAL OVERRIDE;
- enum ssa_prop_result visit_phi (gphi *) FINAL OVERRIDE;
-};
-
-static vec<complex_lattice_t> complex_lattice_values;
-
-/* For each complex variable, a pair of variables for the components exists in
- the hashtable. */
-static int_tree_htab_type *complex_variable_components;
-
-/* For each complex SSA_NAME, a pair of ssa names for the components. */
-static vec<tree> complex_ssa_name_components;
-
-/* Vector of PHI triplets (original complex PHI and corresponding real and
- imag PHIs if real and/or imag PHIs contain temporarily
- non-SSA_NAME/non-invariant args that need to be replaced by SSA_NAMEs. */
-static vec<gphi *> phis_to_revisit;
-
-/* BBs that need EH cleanup. */
-static bitmap need_eh_cleanup;
-
-/* Lookup UID in the complex_variable_components hashtable and return the
- associated tree. */
-static tree
-cvc_lookup (unsigned int uid)
-{
- struct int_tree_map in;
- in.uid = uid;
- return complex_variable_components->find_with_hash (in, uid).to;
-}
-
-/* Insert the pair UID, TO into the complex_variable_components hashtable. */
-
-static void
-cvc_insert (unsigned int uid, tree to)
-{
- int_tree_map h;
- int_tree_map *loc;
-
- h.uid = uid;
- loc = complex_variable_components->find_slot_with_hash (h, uid, INSERT);
- loc->uid = uid;
- loc->to = to;
-}
-
-/* Return true if T is not a zero constant. In the case of real values,
- we're only interested in +0.0. */
-
-static int
-some_nonzerop (tree t)
-{
- int zerop = false;
-
- /* Operations with real or imaginary part of a complex number zero
- cannot be treated the same as operations with a real or imaginary
- operand if we care about the signs of zeros in the result. */
- if (TREE_CODE (t) == REAL_CST && !flag_signed_zeros)
- zerop = real_identical (&TREE_REAL_CST (t), &dconst0);
- else if (TREE_CODE (t) == FIXED_CST)
- zerop = fixed_zerop (t);
- else if (TREE_CODE (t) == INTEGER_CST)
- zerop = integer_zerop (t);
-
- return !zerop;
-}
-
-
-/* Compute a lattice value from the components of a complex type REAL
- and IMAG. */
-
-static complex_lattice_t
-find_lattice_value_parts (tree real, tree imag)
-{
- int r, i;
- complex_lattice_t ret;
-
- r = some_nonzerop (real);
- i = some_nonzerop (imag);
- ret = r * ONLY_REAL + i * ONLY_IMAG;
-
- /* ??? On occasion we could do better than mapping 0+0i to real, but we
- certainly don't want to leave it UNINITIALIZED, which eventually gets
- mapped to VARYING. */
- if (ret == UNINITIALIZED)
- ret = ONLY_REAL;
-
- return ret;
-}
-
-
-/* Compute a lattice value from gimple_val T. */
-
-static complex_lattice_t
-find_lattice_value (tree t)
-{
- tree real, imag;
-
- switch (TREE_CODE (t))
- {
- case SSA_NAME:
- return complex_lattice_values[SSA_NAME_VERSION (t)];
-
- case COMPLEX_CST:
- real = TREE_REALPART (t);
- imag = TREE_IMAGPART (t);
- break;
-
- default:
- gcc_unreachable ();
- }
-
- return find_lattice_value_parts (real, imag);
-}
-
-/* Determine if LHS is something for which we're interested in seeing
- simulation results. */
-
-static bool
-is_complex_reg (tree lhs)
-{
- return TREE_CODE (TREE_TYPE (lhs)) == COMPLEX_TYPE && is_gimple_reg (lhs);
-}
-
-/* Mark the incoming parameters to the function as VARYING. */
-
-static void
-init_parameter_lattice_values (void)
-{
- tree parm, ssa_name;
-
- for (parm = DECL_ARGUMENTS (cfun->decl); parm ; parm = DECL_CHAIN (parm))
- if (is_complex_reg (parm)
- && (ssa_name = ssa_default_def (cfun, parm)) != NULL_TREE)
- complex_lattice_values[SSA_NAME_VERSION (ssa_name)] = VARYING;
-}
-
-/* Initialize simulation state for each statement. Return false if we
- found no statements we want to simulate, and thus there's nothing
- for the entire pass to do. */
-
-static bool
-init_dont_simulate_again (void)
-{
- basic_block bb;
- bool saw_a_complex_op = false;
-
- FOR_EACH_BB_FN (bb, cfun)
- {
- for (gphi_iterator gsi = gsi_start_phis (bb); !gsi_end_p (gsi);
- gsi_next (&gsi))
- {
- gphi *phi = gsi.phi ();
- prop_set_simulate_again (phi,
- is_complex_reg (gimple_phi_result (phi)));
- }
-
- for (gimple_stmt_iterator gsi = gsi_start_bb (bb); !gsi_end_p (gsi);
- gsi_next (&gsi))
- {
- gimple *stmt;
- tree op0, op1;
- bool sim_again_p;
-
- stmt = gsi_stmt (gsi);
- op0 = op1 = NULL_TREE;
-
- /* Most control-altering statements must be initially
- simulated, else we won't cover the entire cfg. */
- sim_again_p = stmt_ends_bb_p (stmt);
-
- switch (gimple_code (stmt))
- {
- case GIMPLE_CALL:
- if (gimple_call_lhs (stmt))
- sim_again_p = is_complex_reg (gimple_call_lhs (stmt));
- break;
-
- case GIMPLE_ASSIGN:
- sim_again_p = is_complex_reg (gimple_assign_lhs (stmt));
- if (gimple_assign_rhs_code (stmt) == REALPART_EXPR
- || gimple_assign_rhs_code (stmt) == IMAGPART_EXPR)
- op0 = TREE_OPERAND (gimple_assign_rhs1 (stmt), 0);
- else
- op0 = gimple_assign_rhs1 (stmt);
- if (gimple_num_ops (stmt) > 2)
- op1 = gimple_assign_rhs2 (stmt);
- break;
-
- case GIMPLE_COND:
- op0 = gimple_cond_lhs (stmt);
- op1 = gimple_cond_rhs (stmt);
- break;
-
- default:
- break;
- }
-
- if (op0 || op1)
- switch (gimple_expr_code (stmt))
- {
- case EQ_EXPR:
- case NE_EXPR:
- case PLUS_EXPR:
- case MINUS_EXPR:
- case MULT_EXPR:
- case TRUNC_DIV_EXPR:
- case CEIL_DIV_EXPR:
- case FLOOR_DIV_EXPR:
- case ROUND_DIV_EXPR:
- case RDIV_EXPR:
- if (TREE_CODE (TREE_TYPE (op0)) == COMPLEX_TYPE
- || TREE_CODE (TREE_TYPE (op1)) == COMPLEX_TYPE)
- saw_a_complex_op = true;
- break;
-
- case NEGATE_EXPR:
- case CONJ_EXPR:
- if (TREE_CODE (TREE_TYPE (op0)) == COMPLEX_TYPE)
- saw_a_complex_op = true;
- break;
-
- case REALPART_EXPR:
- case IMAGPART_EXPR:
- /* The total store transformation performed during
- gimplification creates such uninitialized loads
- and we need to lower the statement to be able
- to fix things up. */
- if (TREE_CODE (op0) == SSA_NAME
- && ssa_undefined_value_p (op0))
- saw_a_complex_op = true;
- break;
-
- default:
- break;
- }
-
- prop_set_simulate_again (stmt, sim_again_p);
- }
- }
-
- return saw_a_complex_op;
-}
-
-
-/* Evaluate statement STMT against the complex lattice defined above. */
-
-enum ssa_prop_result
-complex_propagate::visit_stmt (gimple *stmt, edge *taken_edge_p ATTRIBUTE_UNUSED,
- tree *result_p)
-{
- complex_lattice_t new_l, old_l, op1_l, op2_l;
- unsigned int ver;
- tree lhs;
-
- lhs = gimple_get_lhs (stmt);
- /* Skip anything but GIMPLE_ASSIGN and GIMPLE_CALL with a lhs. */
- if (!lhs || SSA_NAME_OCCURS_IN_ABNORMAL_PHI (lhs))
- return SSA_PROP_VARYING;
-
- /* These conditions should be satisfied due to the initial filter
- set up in init_dont_simulate_again. */
- gcc_assert (TREE_CODE (lhs) == SSA_NAME);
- gcc_assert (TREE_CODE (TREE_TYPE (lhs)) == COMPLEX_TYPE);
-
- *result_p = lhs;
- ver = SSA_NAME_VERSION (lhs);
- old_l = complex_lattice_values[ver];
-
- switch (gimple_expr_code (stmt))
- {
- case SSA_NAME:
- case COMPLEX_CST:
- new_l = find_lattice_value (gimple_assign_rhs1 (stmt));
- break;
-
- case COMPLEX_EXPR:
- new_l = find_lattice_value_parts (gimple_assign_rhs1 (stmt),
- gimple_assign_rhs2 (stmt));
- break;
-
- case PLUS_EXPR:
- case MINUS_EXPR:
- op1_l = find_lattice_value (gimple_assign_rhs1 (stmt));
- op2_l = find_lattice_value (gimple_assign_rhs2 (stmt));
-
- /* We've set up the lattice values such that IOR neatly
- models addition. */
- new_l = op1_l | op2_l;
- break;
-
- case MULT_EXPR:
- case RDIV_EXPR:
- case TRUNC_DIV_EXPR:
- case CEIL_DIV_EXPR:
- case FLOOR_DIV_EXPR:
- case ROUND_DIV_EXPR:
- op1_l = find_lattice_value (gimple_assign_rhs1 (stmt));
- op2_l = find_lattice_value (gimple_assign_rhs2 (stmt));
-
- /* Obviously, if either varies, so does the result. */
- if (op1_l == VARYING || op2_l == VARYING)
- new_l = VARYING;
- /* Don't prematurely promote variables if we've not yet seen
- their inputs. */
- else if (op1_l == UNINITIALIZED)
- new_l = op2_l;
- else if (op2_l == UNINITIALIZED)
- new_l = op1_l;
- else
- {
- /* At this point both numbers have only one component. If the
- numbers are of opposite kind, the result is imaginary,
- otherwise the result is real. The add/subtract translates
- the real/imag from/to 0/1; the ^ performs the comparison. */
- new_l = ((op1_l - ONLY_REAL) ^ (op2_l - ONLY_REAL)) + ONLY_REAL;
-
- /* Don't allow the lattice value to flip-flop indefinitely. */
- new_l |= old_l;
- }
- break;
-
- case NEGATE_EXPR:
- case CONJ_EXPR:
- new_l = find_lattice_value (gimple_assign_rhs1 (stmt));
- break;
-
- default:
- new_l = VARYING;
- break;
- }
-
- /* If nothing changed this round, let the propagator know. */
- if (new_l == old_l)
- return SSA_PROP_NOT_INTERESTING;
-
- complex_lattice_values[ver] = new_l;
- return new_l == VARYING ? SSA_PROP_VARYING : SSA_PROP_INTERESTING;
-}
-
-/* Evaluate a PHI node against the complex lattice defined above. */
-
-enum ssa_prop_result
-complex_propagate::visit_phi (gphi *phi)
-{
- complex_lattice_t new_l, old_l;
- unsigned int ver;
- tree lhs;
- int i;
-
- lhs = gimple_phi_result (phi);
-
- /* This condition should be satisfied due to the initial filter
- set up in init_dont_simulate_again. */
- gcc_assert (TREE_CODE (TREE_TYPE (lhs)) == COMPLEX_TYPE);
-
- if (SSA_NAME_OCCURS_IN_ABNORMAL_PHI (lhs))
- return SSA_PROP_VARYING;
-
- /* We've set up the lattice values such that IOR neatly models PHI meet. */
- new_l = UNINITIALIZED;
- for (i = gimple_phi_num_args (phi) - 1; i >= 0; --i)
- new_l |= find_lattice_value (gimple_phi_arg_def (phi, i));
-
- ver = SSA_NAME_VERSION (lhs);
- old_l = complex_lattice_values[ver];
-
- if (new_l == old_l)
- return SSA_PROP_NOT_INTERESTING;
-
- complex_lattice_values[ver] = new_l;
- return new_l == VARYING ? SSA_PROP_VARYING : SSA_PROP_INTERESTING;
-}
-
-/* Create one backing variable for a complex component of ORIG. */
-
-static tree
-create_one_component_var (tree type, tree orig, const char *prefix,
- const char *suffix, enum tree_code code)
-{
- tree r = create_tmp_var (type, prefix);
-
- DECL_SOURCE_LOCATION (r) = DECL_SOURCE_LOCATION (orig);
- DECL_ARTIFICIAL (r) = 1;
-
- if (DECL_NAME (orig) && !DECL_IGNORED_P (orig))
- {
- const char *name = IDENTIFIER_POINTER (DECL_NAME (orig));
- name = ACONCAT ((name, suffix, NULL));
- DECL_NAME (r) = get_identifier (name);
-
- SET_DECL_DEBUG_EXPR (r, build1 (code, type, orig));
- DECL_HAS_DEBUG_EXPR_P (r) = 1;
- DECL_IGNORED_P (r) = 0;
- copy_warning (r, orig);
- }
- else
- {
- DECL_IGNORED_P (r) = 1;
- suppress_warning (r);
- }
-
- return r;
-}
-
-/* Retrieve a value for a complex component of VAR. */
-
-static tree
-get_component_var (tree var, bool imag_p)
-{
- size_t decl_index = DECL_UID (var) * 2 + imag_p;
- tree ret = cvc_lookup (decl_index);
-
- if (ret == NULL)
- {
- ret = create_one_component_var (TREE_TYPE (TREE_TYPE (var)), var,
- imag_p ? "CI" : "CR",
- imag_p ? "$imag" : "$real",
- imag_p ? IMAGPART_EXPR : REALPART_EXPR);
- cvc_insert (decl_index, ret);
- }
-
- return ret;
-}
-
-/* Retrieve a value for a complex component of SSA_NAME. */
-
-static tree
-get_component_ssa_name (tree ssa_name, bool imag_p)
-{
- complex_lattice_t lattice = find_lattice_value (ssa_name);
- size_t ssa_name_index;
- tree ret;
-
- if (lattice == (imag_p ? ONLY_REAL : ONLY_IMAG))
- {
- tree inner_type = TREE_TYPE (TREE_TYPE (ssa_name));
- if (SCALAR_FLOAT_TYPE_P (inner_type))
- return build_real (inner_type, dconst0);
- else
- return build_int_cst (inner_type, 0);
- }
-
- ssa_name_index = SSA_NAME_VERSION (ssa_name) * 2 + imag_p;
- ret = complex_ssa_name_components[ssa_name_index];
- if (ret == NULL)
- {
- if (SSA_NAME_VAR (ssa_name))
- ret = get_component_var (SSA_NAME_VAR (ssa_name), imag_p);
- else
- ret = TREE_TYPE (TREE_TYPE (ssa_name));
- ret = make_ssa_name (ret);
-
- /* Copy some properties from the original. In particular, whether it
- is used in an abnormal phi, and whether it's uninitialized. */
- SSA_NAME_OCCURS_IN_ABNORMAL_PHI (ret)
- = SSA_NAME_OCCURS_IN_ABNORMAL_PHI (ssa_name);
- if (SSA_NAME_IS_DEFAULT_DEF (ssa_name)
- && TREE_CODE (SSA_NAME_VAR (ssa_name)) == VAR_DECL)
- {
- SSA_NAME_DEF_STMT (ret) = SSA_NAME_DEF_STMT (ssa_name);
- set_ssa_default_def (cfun, SSA_NAME_VAR (ret), ret);
- }
-
- complex_ssa_name_components[ssa_name_index] = ret;
- }
-
- return ret;
-}
-
-/* Set a value for a complex component of SSA_NAME, return a
- gimple_seq of stuff that needs doing. */
-
-static gimple_seq
-set_component_ssa_name (tree ssa_name, bool imag_p, tree value)
-{
- complex_lattice_t lattice = find_lattice_value (ssa_name);
- size_t ssa_name_index;
- tree comp;
- gimple *last;
- gimple_seq list;
-
- /* We know the value must be zero, else there's a bug in our lattice
- analysis. But the value may well be a variable known to contain
- zero. We should be safe ignoring it. */
- if (lattice == (imag_p ? ONLY_REAL : ONLY_IMAG))
- return NULL;
-
- /* If we've already assigned an SSA_NAME to this component, then this
- means that our walk of the basic blocks found a use before the set.
- This is fine. Now we should create an initialization for the value
- we created earlier. */
- ssa_name_index = SSA_NAME_VERSION (ssa_name) * 2 + imag_p;
- comp = complex_ssa_name_components[ssa_name_index];
- if (comp)
- ;
-
- /* If we've nothing assigned, and the value we're given is already stable,
- then install that as the value for this SSA_NAME. This preemptively
- copy-propagates the value, which avoids unnecessary memory allocation. */
- else if (is_gimple_min_invariant (value)
- && !SSA_NAME_OCCURS_IN_ABNORMAL_PHI (ssa_name))
- {
- complex_ssa_name_components[ssa_name_index] = value;
- return NULL;
- }
- else if (TREE_CODE (value) == SSA_NAME
- && !SSA_NAME_OCCURS_IN_ABNORMAL_PHI (ssa_name))
- {
- /* Replace an anonymous base value with the variable from cvc_lookup.
- This should result in better debug info. */
- if (!SSA_NAME_IS_DEFAULT_DEF (value)
- && SSA_NAME_VAR (ssa_name)
- && (!SSA_NAME_VAR (value) || DECL_IGNORED_P (SSA_NAME_VAR (value)))
- && !DECL_IGNORED_P (SSA_NAME_VAR (ssa_name)))
- {
- comp = get_component_var (SSA_NAME_VAR (ssa_name), imag_p);
- replace_ssa_name_symbol (value, comp);
- }
-
- complex_ssa_name_components[ssa_name_index] = value;
- return NULL;
- }
-
- /* Finally, we need to stabilize the result by installing the value into
- a new ssa name. */
- else
- comp = get_component_ssa_name (ssa_name, imag_p);
-
- /* Do all the work to assign VALUE to COMP. */
- list = NULL;
- value = force_gimple_operand (value, &list, false, NULL);
- last = gimple_build_assign (comp, value);
- gimple_seq_add_stmt (&list, last);
- gcc_assert (SSA_NAME_DEF_STMT (comp) == last);
-
- return list;
-}
-
-/* Extract the real or imaginary part of a complex variable or constant.
- Make sure that it's a proper gimple_val and gimplify it if not.
- Emit any new code before gsi. */
-
-static tree
-extract_component (gimple_stmt_iterator *gsi, tree t, bool imagpart_p,
- bool gimple_p, bool phiarg_p = false)
-{
- switch (TREE_CODE (t))
- {
- case COMPLEX_CST:
- return imagpart_p ? TREE_IMAGPART (t) : TREE_REALPART (t);
-
- case COMPLEX_EXPR:
- gcc_unreachable ();
-
- case BIT_FIELD_REF:
- {
- tree inner_type = TREE_TYPE (TREE_TYPE (t));
- t = unshare_expr (t);
- TREE_TYPE (t) = inner_type;
- TREE_OPERAND (t, 1) = TYPE_SIZE (inner_type);
- if (imagpart_p)
- TREE_OPERAND (t, 2) = size_binop (PLUS_EXPR, TREE_OPERAND (t, 2),
- TYPE_SIZE (inner_type));
- if (gimple_p)
- t = force_gimple_operand_gsi (gsi, t, true, NULL, true,
- GSI_SAME_STMT);
- return t;
- }
-
- case VAR_DECL:
- case RESULT_DECL:
- case PARM_DECL:
- case COMPONENT_REF:
- case ARRAY_REF:
- case VIEW_CONVERT_EXPR:
- case MEM_REF:
- {
- tree inner_type = TREE_TYPE (TREE_TYPE (t));
-
- t = build1 ((imagpart_p ? IMAGPART_EXPR : REALPART_EXPR),
- inner_type, unshare_expr (t));
-
- if (gimple_p)
- t = force_gimple_operand_gsi (gsi, t, true, NULL, true,
- GSI_SAME_STMT);
-
- return t;
- }
-
- case SSA_NAME:
- t = get_component_ssa_name (t, imagpart_p);
- if (TREE_CODE (t) == SSA_NAME && SSA_NAME_DEF_STMT (t) == NULL)
- gcc_assert (phiarg_p);
- return t;
-
- default:
- gcc_unreachable ();
- }
-}
-
-/* Update the complex components of the ssa name on the lhs of STMT. */
-
-static void
-update_complex_components (gimple_stmt_iterator *gsi, gimple *stmt, tree r,
- tree i)
-{
- tree lhs;
- gimple_seq list;
-
- lhs = gimple_get_lhs (stmt);
-
- list = set_component_ssa_name (lhs, false, r);
- if (list)
- gsi_insert_seq_after (gsi, list, GSI_CONTINUE_LINKING);
-
- list = set_component_ssa_name (lhs, true, i);
- if (list)
- gsi_insert_seq_after (gsi, list, GSI_CONTINUE_LINKING);
-}
-
-static void
-update_complex_components_on_edge (edge e, tree lhs, tree r, tree i)
-{
- gimple_seq list;
-
- list = set_component_ssa_name (lhs, false, r);
- if (list)
- gsi_insert_seq_on_edge (e, list);
-
- list = set_component_ssa_name (lhs, true, i);
- if (list)
- gsi_insert_seq_on_edge (e, list);
-}
-
-
-/* Update an assignment to a complex variable in place. */
-
-static void
-update_complex_assignment (gimple_stmt_iterator *gsi, tree r, tree i)
-{
- gimple *old_stmt = gsi_stmt (*gsi);
- gimple_assign_set_rhs_with_ops (gsi, COMPLEX_EXPR, r, i);
- gimple *stmt = gsi_stmt (*gsi);
- update_stmt (stmt);
- if (maybe_clean_or_replace_eh_stmt (old_stmt, stmt))
- bitmap_set_bit (need_eh_cleanup, gimple_bb (stmt)->index);
-
- update_complex_components (gsi, gsi_stmt (*gsi), r, i);
-}
-
-
-/* Generate code at the entry point of the function to initialize the
- component variables for a complex parameter. */
-
-static void
-update_parameter_components (void)
-{
- edge entry_edge = single_succ_edge (ENTRY_BLOCK_PTR_FOR_FN (cfun));
- tree parm;
-
- for (parm = DECL_ARGUMENTS (cfun->decl); parm ; parm = DECL_CHAIN (parm))
- {
- tree type = TREE_TYPE (parm);
- tree ssa_name, r, i;
-
- if (TREE_CODE (type) != COMPLEX_TYPE || !is_gimple_reg (parm))
- continue;
-
- type = TREE_TYPE (type);
- ssa_name = ssa_default_def (cfun, parm);
- if (!ssa_name)
- continue;
-
- r = build1 (REALPART_EXPR, type, ssa_name);
- i = build1 (IMAGPART_EXPR, type, ssa_name);
- update_complex_components_on_edge (entry_edge, ssa_name, r, i);
- }
-}
-
-/* Generate code to set the component variables of a complex variable
- to match the PHI statements in block BB. */
-
-static void
-update_phi_components (basic_block bb)
-{
- gphi_iterator gsi;
-
- for (gsi = gsi_start_phis (bb); !gsi_end_p (gsi); gsi_next (&gsi))
- {
- gphi *phi = gsi.phi ();
-
- if (is_complex_reg (gimple_phi_result (phi)))
- {
- gphi *p[2] = { NULL, NULL };
- unsigned int i, j, n;
- bool revisit_phi = false;
-
- for (j = 0; j < 2; j++)
- {
- tree l = get_component_ssa_name (gimple_phi_result (phi), j > 0);
- if (TREE_CODE (l) == SSA_NAME)
- p[j] = create_phi_node (l, bb);
- }
-
- for (i = 0, n = gimple_phi_num_args (phi); i < n; ++i)
- {
- tree comp, arg = gimple_phi_arg_def (phi, i);
- for (j = 0; j < 2; j++)
- if (p[j])
- {
- comp = extract_component (NULL, arg, j > 0, false, true);
- if (TREE_CODE (comp) == SSA_NAME
- && SSA_NAME_DEF_STMT (comp) == NULL)
- {
- /* For the benefit of any gimple simplification during
- this pass that might walk SSA_NAME def stmts,
- don't add SSA_NAMEs without definitions into the
- PHI arguments, but put a decl in there instead
- temporarily, and revisit this PHI later on. */
- if (SSA_NAME_VAR (comp))
- comp = SSA_NAME_VAR (comp);
- else
- comp = create_tmp_reg (TREE_TYPE (comp),
- get_name (comp));
- revisit_phi = true;
- }
- SET_PHI_ARG_DEF (p[j], i, comp);
- }
- }
-
- if (revisit_phi)
- {
- phis_to_revisit.safe_push (phi);
- phis_to_revisit.safe_push (p[0]);
- phis_to_revisit.safe_push (p[1]);
- }
- }
- }
-}
-
-/* Expand a complex move to scalars. */
-
-static void
-expand_complex_move (gimple_stmt_iterator *gsi, tree type)
-{
- tree inner_type = TREE_TYPE (type);
- tree r, i, lhs, rhs;
- gimple *stmt = gsi_stmt (*gsi);
-
- if (is_gimple_assign (stmt))
- {
- lhs = gimple_assign_lhs (stmt);
- if (gimple_num_ops (stmt) == 2)
- rhs = gimple_assign_rhs1 (stmt);
- else
- rhs = NULL_TREE;
- }
- else if (is_gimple_call (stmt))
- {
- lhs = gimple_call_lhs (stmt);
- rhs = NULL_TREE;
- }
- else
- gcc_unreachable ();
-
- if (TREE_CODE (lhs) == SSA_NAME)
- {
- if (is_ctrl_altering_stmt (stmt))
- {
- edge e;
-
- /* The value is not assigned on the exception edges, so we need not
- concern ourselves there. We do need to update on the fallthru
- edge. Find it. */
- e = find_fallthru_edge (gsi_bb (*gsi)->succs);
- if (!e)
- gcc_unreachable ();
-
- r = build1 (REALPART_EXPR, inner_type, lhs);
- i = build1 (IMAGPART_EXPR, inner_type, lhs);
- update_complex_components_on_edge (e, lhs, r, i);
- }
- else if (is_gimple_call (stmt)
- || gimple_has_side_effects (stmt)
- || gimple_assign_rhs_code (stmt) == PAREN_EXPR)
- {
- r = build1 (REALPART_EXPR, inner_type, lhs);
- i = build1 (IMAGPART_EXPR, inner_type, lhs);
- update_complex_components (gsi, stmt, r, i);
- }
- else
- {
- if (gimple_assign_rhs_code (stmt) != COMPLEX_EXPR)
- {
- r = extract_component (gsi, rhs, 0, true);
- i = extract_component (gsi, rhs, 1, true);
- }
- else
- {
- r = gimple_assign_rhs1 (stmt);
- i = gimple_assign_rhs2 (stmt);
- }
- update_complex_assignment (gsi, r, i);
- }
- }
- else if (rhs && TREE_CODE (rhs) == SSA_NAME && !TREE_SIDE_EFFECTS (lhs))
- {
- tree x;
- gimple *t;
- location_t loc;
-
- loc = gimple_location (stmt);
- r = extract_component (gsi, rhs, 0, false);
- i = extract_component (gsi, rhs, 1, false);
-
- x = build1 (REALPART_EXPR, inner_type, unshare_expr (lhs));
- t = gimple_build_assign (x, r);
- gimple_set_location (t, loc);
- gsi_insert_before (gsi, t, GSI_SAME_STMT);
-
- if (stmt == gsi_stmt (*gsi))
- {
- x = build1 (IMAGPART_EXPR, inner_type, unshare_expr (lhs));
- gimple_assign_set_lhs (stmt, x);
- gimple_assign_set_rhs1 (stmt, i);
- }
- else
- {
- x = build1 (IMAGPART_EXPR, inner_type, unshare_expr (lhs));
- t = gimple_build_assign (x, i);
- gimple_set_location (t, loc);
- gsi_insert_before (gsi, t, GSI_SAME_STMT);
-
- stmt = gsi_stmt (*gsi);
- gcc_assert (gimple_code (stmt) == GIMPLE_RETURN);
- gimple_return_set_retval (as_a <greturn *> (stmt), lhs);
- }
-
- update_stmt (stmt);
- }
-}
-
-/* Expand complex addition to scalars:
- a + b = (ar + br) + i(ai + bi)
- a - b = (ar - br) + i(ai + bi)
-*/
-
-static void
-expand_complex_addition (gimple_stmt_iterator *gsi, tree inner_type,
- tree ar, tree ai, tree br, tree bi,
- enum tree_code code,
- complex_lattice_t al, complex_lattice_t bl)
-{
- tree rr, ri;
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
-
- switch (PAIR (al, bl))
- {
- case PAIR (ONLY_REAL, ONLY_REAL):
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = ai;
- break;
-
- case PAIR (ONLY_REAL, ONLY_IMAG):
- rr = ar;
- if (code == MINUS_EXPR)
- ri = gimple_build (&stmts, loc, MINUS_EXPR, inner_type, ai, bi);
- else
- ri = bi;
- break;
-
- case PAIR (ONLY_IMAG, ONLY_REAL):
- if (code == MINUS_EXPR)
- rr = gimple_build (&stmts, loc, MINUS_EXPR, inner_type, ar, br);
- else
- rr = br;
- ri = ai;
- break;
-
- case PAIR (ONLY_IMAG, ONLY_IMAG):
- rr = ar;
- ri = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- break;
-
- case PAIR (VARYING, ONLY_REAL):
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = ai;
- break;
-
- case PAIR (VARYING, ONLY_IMAG):
- rr = ar;
- ri = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- break;
-
- case PAIR (ONLY_REAL, VARYING):
- if (code == MINUS_EXPR)
- goto general;
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = bi;
- break;
-
- case PAIR (ONLY_IMAG, VARYING):
- if (code == MINUS_EXPR)
- goto general;
- rr = br;
- ri = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- break;
-
- case PAIR (VARYING, VARYING):
- general:
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- break;
-
- default:
- gcc_unreachable ();
- }
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Expand a complex multiplication or division to a libcall to the c99
- compliant routines. TYPE is the complex type of the operation.
- If INPLACE_P replace the statement at GSI with
- the libcall and return NULL_TREE. Else insert the call, assign its
- result to an output variable and return that variable. If INPLACE_P
- is true then the statement being replaced should be an assignment
- statement. */
-
-static tree
-expand_complex_libcall (gimple_stmt_iterator *gsi, tree type, tree ar, tree ai,
- tree br, tree bi, enum tree_code code, bool inplace_p)
-{
- machine_mode mode;
- enum built_in_function bcode;
- tree fn, lhs;
- gcall *stmt;
-
- mode = TYPE_MODE (type);
- gcc_assert (GET_MODE_CLASS (mode) == MODE_COMPLEX_FLOAT);
-
- if (code == MULT_EXPR)
- bcode = ((enum built_in_function)
- (BUILT_IN_COMPLEX_MUL_MIN + mode - MIN_MODE_COMPLEX_FLOAT));
- else if (code == RDIV_EXPR)
- bcode = ((enum built_in_function)
- (BUILT_IN_COMPLEX_DIV_MIN + mode - MIN_MODE_COMPLEX_FLOAT));
- else
- gcc_unreachable ();
- fn = builtin_decl_explicit (bcode);
- stmt = gimple_build_call (fn, 4, ar, ai, br, bi);
-
- if (inplace_p)
- {
- gimple *old_stmt = gsi_stmt (*gsi);
- gimple_call_set_nothrow (stmt, !stmt_could_throw_p (cfun, old_stmt));
- lhs = gimple_assign_lhs (old_stmt);
- gimple_call_set_lhs (stmt, lhs);
- gsi_replace (gsi, stmt, true);
-
- type = TREE_TYPE (type);
- if (stmt_can_throw_internal (cfun, stmt))
- {
- edge_iterator ei;
- edge e;
- FOR_EACH_EDGE (e, ei, gimple_bb (stmt)->succs)
- if (!(e->flags & EDGE_EH))
- break;
- basic_block bb = split_edge (e);
- gimple_stmt_iterator gsi2 = gsi_start_bb (bb);
- update_complex_components (&gsi2, stmt,
- build1 (REALPART_EXPR, type, lhs),
- build1 (IMAGPART_EXPR, type, lhs));
- return NULL_TREE;
- }
- else
- update_complex_components (gsi, stmt,
- build1 (REALPART_EXPR, type, lhs),
- build1 (IMAGPART_EXPR, type, lhs));
- SSA_NAME_DEF_STMT (lhs) = stmt;
- return NULL_TREE;
- }
-
- gimple_call_set_nothrow (stmt, true);
- lhs = make_ssa_name (type);
- gimple_call_set_lhs (stmt, lhs);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
-
- return lhs;
-}
-
-/* Perform a complex multiplication on two complex constants A, B represented
- by AR, AI, BR, BI of type TYPE.
- The operation we want is: a * b = (ar*br - ai*bi) + i(ar*bi + br*ai).
- Insert the GIMPLE statements into GSI. Store the real and imaginary
- components of the result into RR and RI. */
-
-static void
-expand_complex_multiplication_components (gimple_seq *stmts, location_t loc,
- tree type, tree ar, tree ai,
- tree br, tree bi,
- tree *rr, tree *ri)
-{
- tree t1, t2, t3, t4;
-
- t1 = gimple_build (stmts, loc, MULT_EXPR, type, ar, br);
- t2 = gimple_build (stmts, loc, MULT_EXPR, type, ai, bi);
- t3 = gimple_build (stmts, loc, MULT_EXPR, type, ar, bi);
-
- /* Avoid expanding redundant multiplication for the common
- case of squaring a complex number. */
- if (ar == br && ai == bi)
- t4 = t3;
- else
- t4 = gimple_build (stmts, loc, MULT_EXPR, type, ai, br);
-
- *rr = gimple_build (stmts, loc, MINUS_EXPR, type, t1, t2);
- *ri = gimple_build (stmts, loc, PLUS_EXPR, type, t3, t4);
-}
-
-/* Expand complex multiplication to scalars:
- a * b = (ar*br - ai*bi) + i(ar*bi + br*ai)
-*/
-
-static void
-expand_complex_multiplication (gimple_stmt_iterator *gsi, tree type,
- tree ar, tree ai, tree br, tree bi,
- complex_lattice_t al, complex_lattice_t bl)
-{
- tree rr, ri;
- tree inner_type = TREE_TYPE (type);
- location_t loc = gimple_location (gsi_stmt (*gsi));
- gimple_seq stmts = NULL;
-
- if (al < bl)
- {
- complex_lattice_t tl;
- rr = ar, ar = br, br = rr;
- ri = ai, ai = bi, bi = ri;
- tl = al, al = bl, bl = tl;
- }
-
- switch (PAIR (al, bl))
- {
- case PAIR (ONLY_REAL, ONLY_REAL):
- rr = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, br);
- ri = ai;
- break;
-
- case PAIR (ONLY_IMAG, ONLY_REAL):
- rr = ar;
- if (TREE_CODE (ai) == REAL_CST
- && real_identical (&TREE_REAL_CST (ai), &dconst1))
- ri = br;
- else
- ri = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, br);
- break;
-
- case PAIR (ONLY_IMAG, ONLY_IMAG):
- rr = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, bi);
- rr = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, rr);
- ri = ar;
- break;
-
- case PAIR (VARYING, ONLY_REAL):
- rr = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, br);
- ri = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, br);
- break;
-
- case PAIR (VARYING, ONLY_IMAG):
- rr = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, bi);
- rr = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, rr);
- ri = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, bi);
- break;
-
- case PAIR (VARYING, VARYING):
- if (flag_complex_method == 2 && SCALAR_FLOAT_TYPE_P (inner_type))
- {
- /* If optimizing for size or not at all just do a libcall.
- Same if there are exception-handling edges or signaling NaNs. */
- if (optimize == 0 || optimize_bb_for_size_p (gsi_bb (*gsi))
- || stmt_can_throw_internal (cfun, gsi_stmt (*gsi))
- || flag_signaling_nans)
- {
- expand_complex_libcall (gsi, type, ar, ai, br, bi,
- MULT_EXPR, true);
- return;
- }
-
- if (!HONOR_NANS (inner_type))
- {
- /* If we are not worrying about NaNs expand to
- (ar*br - ai*bi) + i(ar*bi + br*ai) directly. */
- expand_complex_multiplication_components (&stmts, loc, inner_type,
- ar, ai, br, bi,
- &rr, &ri);
- break;
- }
-
- /* Else, expand x = a * b into
- x = (ar*br - ai*bi) + i(ar*bi + br*ai);
- if (isunordered (__real__ x, __imag__ x))
- x = __muldc3 (a, b); */
-
- tree tmpr, tmpi;
- expand_complex_multiplication_components (&stmts, loc,
- inner_type, ar, ai,
- br, bi, &tmpr, &tmpi);
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- stmts = NULL;
-
- gimple *check
- = gimple_build_cond (UNORDERED_EXPR, tmpr, tmpi,
- NULL_TREE, NULL_TREE);
-
- basic_block orig_bb = gsi_bb (*gsi);
- /* We want to keep track of the original complex multiplication
- statement as we're going to modify it later in
- update_complex_assignment. Make sure that insert_cond_bb leaves
- that statement in the join block. */
- gsi_prev (gsi);
- basic_block cond_bb
- = insert_cond_bb (gsi_bb (*gsi), gsi_stmt (*gsi), check,
- profile_probability::very_unlikely ());
-
- gimple_stmt_iterator cond_bb_gsi = gsi_last_bb (cond_bb);
- gsi_insert_after (&cond_bb_gsi, gimple_build_nop (), GSI_NEW_STMT);
-
- tree libcall_res
- = expand_complex_libcall (&cond_bb_gsi, type, ar, ai, br,
- bi, MULT_EXPR, false);
- gimple_seq stmts2 = NULL;
- tree cond_real = gimple_build (&stmts2, loc, REALPART_EXPR,
- inner_type, libcall_res);
- tree cond_imag = gimple_build (&stmts2, loc, IMAGPART_EXPR,
- inner_type, libcall_res);
- gsi_insert_seq_before (&cond_bb_gsi, stmts2, GSI_SAME_STMT);
-
- basic_block join_bb = single_succ_edge (cond_bb)->dest;
- *gsi = gsi_start_nondebug_after_labels_bb (join_bb);
-
- /* We have a conditional block with some assignments in cond_bb.
- Wire up the PHIs to wrap up. */
- rr = make_ssa_name (inner_type);
- ri = make_ssa_name (inner_type);
- edge cond_to_join = single_succ_edge (cond_bb);
- edge orig_to_join = find_edge (orig_bb, join_bb);
-
- gphi *real_phi = create_phi_node (rr, gsi_bb (*gsi));
- add_phi_arg (real_phi, cond_real, cond_to_join, UNKNOWN_LOCATION);
- add_phi_arg (real_phi, tmpr, orig_to_join, UNKNOWN_LOCATION);
-
- gphi *imag_phi = create_phi_node (ri, gsi_bb (*gsi));
- add_phi_arg (imag_phi, cond_imag, cond_to_join, UNKNOWN_LOCATION);
- add_phi_arg (imag_phi, tmpi, orig_to_join, UNKNOWN_LOCATION);
- }
- else
- /* If we are not worrying about NaNs expand to
- (ar*br - ai*bi) + i(ar*bi + br*ai) directly. */
- expand_complex_multiplication_components (&stmts, loc,
- inner_type, ar, ai,
- br, bi, &rr, &ri);
- break;
-
- default:
- gcc_unreachable ();
- }
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Keep this algorithm in sync with fold-const.c:const_binop().
-
- Expand complex division to scalars, straightforward algorithm.
- a / b = ((ar*br + ai*bi)/t) + i((ai*br - ar*bi)/t)
- t = br*br + bi*bi
-*/
-
-static void
-expand_complex_div_straight (gimple_stmt_iterator *gsi, tree inner_type,
- tree ar, tree ai, tree br, tree bi,
- enum tree_code code)
-{
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
- tree rr, ri, div, t1, t2, t3;
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, br, br);
- t2 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, bi, bi);
- div = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, t2);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, br);
- t2 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, bi);
- t3 = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, t2);
- rr = gimple_build (&stmts, loc, code, inner_type, t3, div);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, br);
- t2 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, bi);
- t3 = gimple_build (&stmts, loc, MINUS_EXPR, inner_type, t1, t2);
- ri = gimple_build (&stmts, loc, code, inner_type, t3, div);
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Keep this algorithm in sync with fold-const.c:const_binop().
-
- Expand complex division to scalars, modified algorithm to minimize
- overflow with wide input ranges. */
-
-static void
-expand_complex_div_wide (gimple_stmt_iterator *gsi, tree inner_type,
- tree ar, tree ai, tree br, tree bi,
- enum tree_code code)
-{
- tree rr, ri, ratio, div, t1, t2, tr, ti, compare;
- basic_block bb_cond, bb_true, bb_false, bb_join;
- gimple *stmt;
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
-
- /* Examine |br| < |bi|, and branch. */
- t1 = gimple_build (&stmts, loc, ABS_EXPR, inner_type, br);
- t2 = gimple_build (&stmts, loc, ABS_EXPR, inner_type, bi);
- compare = gimple_build (&stmts, loc,
- LT_EXPR, boolean_type_node, t1, t2);
-
- bb_cond = bb_true = bb_false = bb_join = NULL;
- rr = ri = tr = ti = NULL;
- if (TREE_CODE (compare) != INTEGER_CST)
- {
- edge e;
- gimple *stmt;
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- stmts = NULL;
- stmt = gimple_build_cond (NE_EXPR, compare, boolean_false_node,
- NULL_TREE, NULL_TREE);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
-
- /* Split the original block, and create the TRUE and FALSE blocks. */
- e = split_block (gsi_bb (*gsi), stmt);
- bb_cond = e->src;
- bb_join = e->dest;
- bb_true = create_empty_bb (bb_cond);
- bb_false = create_empty_bb (bb_true);
- bb_true->count = bb_false->count
- = bb_cond->count.apply_probability (profile_probability::even ());
-
- /* Wire the blocks together. */
- e->flags = EDGE_TRUE_VALUE;
- /* TODO: With value profile we could add an historgram to determine real
- branch outcome. */
- e->probability = profile_probability::even ();
- redirect_edge_succ (e, bb_true);
- edge e2 = make_edge (bb_cond, bb_false, EDGE_FALSE_VALUE);
- e2->probability = profile_probability::even ();
- make_single_succ_edge (bb_true, bb_join, EDGE_FALLTHRU);
- make_single_succ_edge (bb_false, bb_join, EDGE_FALLTHRU);
- add_bb_to_loop (bb_true, bb_cond->loop_father);
- add_bb_to_loop (bb_false, bb_cond->loop_father);
-
- /* Update dominance info. Note that bb_join's data was
- updated by split_block. */
- if (dom_info_available_p (CDI_DOMINATORS))
- {
- set_immediate_dominator (CDI_DOMINATORS, bb_true, bb_cond);
- set_immediate_dominator (CDI_DOMINATORS, bb_false, bb_cond);
- }
-
- rr = create_tmp_reg (inner_type);
- ri = create_tmp_reg (inner_type);
- }
- else
- {
- gimple_seq_discard (stmts);
- stmts = NULL;
- }
-
- /* In the TRUE branch, we compute
- ratio = br/bi;
- div = (br * ratio) + bi;
- tr = (ar * ratio) + ai;
- ti = (ai * ratio) - ar;
- tr = tr / div;
- ti = ti / div; */
- if (bb_true || integer_nonzerop (compare))
- {
- if (bb_true)
- {
- *gsi = gsi_last_bb (bb_true);
- gsi_insert_after (gsi, gimple_build_nop (), GSI_NEW_STMT);
- }
-
- ratio = gimple_build (&stmts, loc, code, inner_type, br, bi);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, br, ratio);
- div = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, bi);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, ratio);
- tr = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, ai);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, ratio);
- ti = gimple_build (&stmts, loc, MINUS_EXPR, inner_type, t1, ar);
-
- tr = gimple_build (&stmts, loc, code, inner_type, tr, div);
- ti = gimple_build (&stmts, loc, code, inner_type, ti, div);
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- stmts = NULL;
-
- if (bb_true)
- {
- stmt = gimple_build_assign (rr, tr);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
- stmt = gimple_build_assign (ri, ti);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
- gsi_remove (gsi, true);
- }
- }
-
- /* In the FALSE branch, we compute
- ratio = d/c;
- divisor = (d * ratio) + c;
- tr = (b * ratio) + a;
- ti = b - (a * ratio);
- tr = tr / div;
- ti = ti / div; */
- if (bb_false || integer_zerop (compare))
- {
- if (bb_false)
- {
- *gsi = gsi_last_bb (bb_false);
- gsi_insert_after (gsi, gimple_build_nop (), GSI_NEW_STMT);
- }
-
- ratio = gimple_build (&stmts, loc, code, inner_type, bi, br);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, bi, ratio);
- div = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, br);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ai, ratio);
- tr = gimple_build (&stmts, loc, PLUS_EXPR, inner_type, t1, ar);
-
- t1 = gimple_build (&stmts, loc, MULT_EXPR, inner_type, ar, ratio);
- ti = gimple_build (&stmts, loc, MINUS_EXPR, inner_type, ai, t1);
-
- tr = gimple_build (&stmts, loc, code, inner_type, tr, div);
- ti = gimple_build (&stmts, loc, code, inner_type, ti, div);
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- stmts = NULL;
-
- if (bb_false)
- {
- stmt = gimple_build_assign (rr, tr);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
- stmt = gimple_build_assign (ri, ti);
- gsi_insert_before (gsi, stmt, GSI_SAME_STMT);
- gsi_remove (gsi, true);
- }
- }
-
- if (bb_join)
- *gsi = gsi_start_bb (bb_join);
- else
- rr = tr, ri = ti;
-
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Expand complex division to scalars. */
-
-static void
-expand_complex_division (gimple_stmt_iterator *gsi, tree type,
- tree ar, tree ai, tree br, tree bi,
- enum tree_code code,
- complex_lattice_t al, complex_lattice_t bl)
-{
- tree rr, ri;
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
-
- tree inner_type = TREE_TYPE (type);
- switch (PAIR (al, bl))
- {
- case PAIR (ONLY_REAL, ONLY_REAL):
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = ai;
- break;
-
- case PAIR (ONLY_REAL, ONLY_IMAG):
- rr = ai;
- ri = gimple_build (&stmts, loc, code, inner_type, ar, bi);
- ri = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, ri);
- break;
-
- case PAIR (ONLY_IMAG, ONLY_REAL):
- rr = ar;
- ri = gimple_build (&stmts, loc, code, inner_type, ai, br);
- break;
-
- case PAIR (ONLY_IMAG, ONLY_IMAG):
- rr = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- ri = ar;
- break;
-
- case PAIR (VARYING, ONLY_REAL):
- rr = gimple_build (&stmts, loc, code, inner_type, ar, br);
- ri = gimple_build (&stmts, loc, code, inner_type, ai, br);
- break;
-
- case PAIR (VARYING, ONLY_IMAG):
- rr = gimple_build (&stmts, loc, code, inner_type, ai, bi);
- ri = gimple_build (&stmts, loc, code, inner_type, ar, bi);
- ri = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, ri);
- break;
-
- case PAIR (ONLY_REAL, VARYING):
- case PAIR (ONLY_IMAG, VARYING):
- case PAIR (VARYING, VARYING):
- switch (flag_complex_method)
- {
- case 0:
- /* straightforward implementation of complex divide acceptable. */
- expand_complex_div_straight (gsi, inner_type, ar, ai, br, bi, code);
- break;
-
- case 2:
- if (SCALAR_FLOAT_TYPE_P (inner_type))
- {
- expand_complex_libcall (gsi, type, ar, ai, br, bi, code, true);
- break;
- }
- /* FALLTHRU */
-
- case 1:
- /* wide ranges of inputs must work for complex divide. */
- expand_complex_div_wide (gsi, inner_type, ar, ai, br, bi, code);
- break;
-
- default:
- gcc_unreachable ();
- }
- return;
-
- default:
- gcc_unreachable ();
- }
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Expand complex negation to scalars:
- -a = (-ar) + i(-ai)
-*/
-
-static void
-expand_complex_negation (gimple_stmt_iterator *gsi, tree inner_type,
- tree ar, tree ai)
-{
- tree rr, ri;
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
-
- rr = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, ar);
- ri = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, ai);
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, rr, ri);
-}
-
-/* Expand complex conjugate to scalars:
- ~a = (ar) + i(-ai)
-*/
-
-static void
-expand_complex_conjugate (gimple_stmt_iterator *gsi, tree inner_type,
- tree ar, tree ai)
-{
- tree ri;
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (gsi_stmt (*gsi));
-
- ri = gimple_build (&stmts, loc, NEGATE_EXPR, inner_type, ai);
-
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
- update_complex_assignment (gsi, ar, ri);
-}
-
-/* Expand complex comparison (EQ or NE only). */
-
-static void
-expand_complex_comparison (gimple_stmt_iterator *gsi, tree ar, tree ai,
- tree br, tree bi, enum tree_code code)
-{
- tree cr, ci, cc, type;
- gimple *stmt = gsi_stmt (*gsi);
- gimple_seq stmts = NULL;
- location_t loc = gimple_location (stmt);
-
- cr = gimple_build (&stmts, loc, code, boolean_type_node, ar, br);
- ci = gimple_build (&stmts, loc, code, boolean_type_node, ai, bi);
- cc = gimple_build (&stmts, loc,
- (code == EQ_EXPR ? BIT_AND_EXPR : BIT_IOR_EXPR),
- boolean_type_node, cr, ci);
- gsi_insert_seq_before (gsi, stmts, GSI_SAME_STMT);
-
- switch (gimple_code (stmt))
- {
- case GIMPLE_RETURN:
- {
- greturn *return_stmt = as_a <greturn *> (stmt);
- type = TREE_TYPE (gimple_return_retval (return_stmt));
- gimple_return_set_retval (return_stmt, fold_convert (type, cc));
- }
- break;
-
- case GIMPLE_ASSIGN:
- type = TREE_TYPE (gimple_assign_lhs (stmt));
- gimple_assign_set_rhs_from_tree (gsi, fold_convert (type, cc));
- stmt = gsi_stmt (*gsi);
- break;
-
- case GIMPLE_COND:
- {
- gcond *cond_stmt = as_a <gcond *> (stmt);
- gimple_cond_set_code (cond_stmt, EQ_EXPR);
- gimple_cond_set_lhs (cond_stmt, cc);
- gimple_cond_set_rhs (cond_stmt, boolean_true_node);
- }
- break;
-
- default:
- gcc_unreachable ();
- }
-
- update_stmt (stmt);
- if (maybe_clean_eh_stmt (stmt))
- bitmap_set_bit (need_eh_cleanup, gimple_bb (stmt)->index);
-}
-
-/* Expand inline asm that sets some complex SSA_NAMEs. */
-
-static void
-expand_complex_asm (gimple_stmt_iterator *gsi)
-{
- gasm *stmt = as_a <gasm *> (gsi_stmt (*gsi));
- unsigned int i;
-
- for (i = 0; i < gimple_asm_noutputs (stmt); ++i)
- {
- tree link = gimple_asm_output_op (stmt, i);
- tree op = TREE_VALUE (link);
- if (TREE_CODE (op) == SSA_NAME
- && TREE_CODE (TREE_TYPE (op)) == COMPLEX_TYPE)
- {
- tree type = TREE_TYPE (op);
- tree inner_type = TREE_TYPE (type);
- tree r = build1 (REALPART_EXPR, inner_type, op);
- tree i = build1 (IMAGPART_EXPR, inner_type, op);
- gimple_seq list = set_component_ssa_name (op, false, r);
-
- if (list)
- gsi_insert_seq_after (gsi, list, GSI_CONTINUE_LINKING);
-
- list = set_component_ssa_name (op, true, i);
- if (list)
- gsi_insert_seq_after (gsi, list, GSI_CONTINUE_LINKING);
- }
- }
-}
-
-/* Process one statement. If we identify a complex operation, expand it. */
-
-static void
-expand_complex_operations_1 (gimple_stmt_iterator *gsi)
-{
- gimple *stmt = gsi_stmt (*gsi);
- tree type, inner_type, lhs;
- tree ac, ar, ai, bc, br, bi;
- complex_lattice_t al, bl;
- enum tree_code code;
-
- if (gimple_code (stmt) == GIMPLE_ASM)
- {
- expand_complex_asm (gsi);
- return;
- }
-
- lhs = gimple_get_lhs (stmt);
- if (!lhs && gimple_code (stmt) != GIMPLE_COND)
- return;
-
- type = TREE_TYPE (gimple_op (stmt, 0));
- code = gimple_expr_code (stmt);
-
- /* Initial filter for operations we handle. */
- switch (code)
- {
- case PLUS_EXPR:
- case MINUS_EXPR:
- case MULT_EXPR:
- case TRUNC_DIV_EXPR:
- case CEIL_DIV_EXPR:
- case FLOOR_DIV_EXPR:
- case ROUND_DIV_EXPR:
- case RDIV_EXPR:
- case NEGATE_EXPR:
- case CONJ_EXPR:
- if (TREE_CODE (type) != COMPLEX_TYPE)
- return;
- inner_type = TREE_TYPE (type);
- break;
-
- case EQ_EXPR:
- case NE_EXPR:
- /* Note, both GIMPLE_ASSIGN and GIMPLE_COND may have an EQ_EXPR
- subcode, so we need to access the operands using gimple_op. */
- inner_type = TREE_TYPE (gimple_op (stmt, 1));
- if (TREE_CODE (inner_type) != COMPLEX_TYPE)
- return;
- break;
-
- default:
- {
- tree rhs;
-
- /* GIMPLE_COND may also fallthru here, but we do not need to
- do anything with it. */
- if (gimple_code (stmt) == GIMPLE_COND)
- return;
-
- if (TREE_CODE (type) == COMPLEX_TYPE)
- expand_complex_move (gsi, type);
- else if (is_gimple_assign (stmt)
- && (gimple_assign_rhs_code (stmt) == REALPART_EXPR
- || gimple_assign_rhs_code (stmt) == IMAGPART_EXPR)
- && TREE_CODE (lhs) == SSA_NAME)
- {
- rhs = gimple_assign_rhs1 (stmt);
- rhs = extract_component (gsi, TREE_OPERAND (rhs, 0),
- gimple_assign_rhs_code (stmt)
- == IMAGPART_EXPR,
- false);
- gimple_assign_set_rhs_from_tree (gsi, rhs);
- stmt = gsi_stmt (*gsi);
- update_stmt (stmt);
- }
- }
- return;
- }
-
- /* Extract the components of the two complex values. Make sure and
- handle the common case of the same value used twice specially. */
- if (is_gimple_assign (stmt))
- {
- ac = gimple_assign_rhs1 (stmt);
- bc = (gimple_num_ops (stmt) > 2) ? gimple_assign_rhs2 (stmt) : NULL;
- }
- /* GIMPLE_CALL cannot get here. */
- else
- {
- ac = gimple_cond_lhs (stmt);
- bc = gimple_cond_rhs (stmt);
- }
-
- ar = extract_component (gsi, ac, false, true);
- ai = extract_component (gsi, ac, true, true);
-
- if (ac == bc)
- br = ar, bi = ai;
- else if (bc)
- {
- br = extract_component (gsi, bc, 0, true);
- bi = extract_component (gsi, bc, 1, true);
- }
- else
- br = bi = NULL_TREE;
-
- al = find_lattice_value (ac);
- if (al == UNINITIALIZED)
- al = VARYING;
-
- if (TREE_CODE_CLASS (code) == tcc_unary)
- bl = UNINITIALIZED;
- else if (ac == bc)
- bl = al;
- else
- {
- bl = find_lattice_value (bc);
- if (bl == UNINITIALIZED)
- bl = VARYING;
- }
-
- switch (code)
- {
- case PLUS_EXPR:
- case MINUS_EXPR:
- expand_complex_addition (gsi, inner_type, ar, ai, br, bi, code, al, bl);
- break;
-
- case MULT_EXPR:
- expand_complex_multiplication (gsi, type, ar, ai, br, bi, al, bl);
- break;
-
- case TRUNC_DIV_EXPR:
- case CEIL_DIV_EXPR:
- case FLOOR_DIV_EXPR:
- case ROUND_DIV_EXPR:
- case RDIV_EXPR:
- expand_complex_division (gsi, type, ar, ai, br, bi, code, al, bl);
- break;
-
- case NEGATE_EXPR:
- expand_complex_negation (gsi, inner_type, ar, ai);
- break;
-
- case CONJ_EXPR:
- expand_complex_conjugate (gsi, inner_type, ar, ai);
- break;
-
- case EQ_EXPR:
- case NE_EXPR:
- expand_complex_comparison (gsi, ar, ai, br, bi, code);
- break;
-
- default:
- gcc_unreachable ();
- }
-}
-
-
-/* Entry point for complex operation lowering during optimization. */
-
-static unsigned int
-tree_lower_complex (void)
-{
- gimple_stmt_iterator gsi;
- basic_block bb;
- int n_bbs, i;
- int *rpo;
-
- if (!init_dont_simulate_again ())
- return 0;
-
- complex_lattice_values.create (num_ssa_names);
- complex_lattice_values.safe_grow_cleared (num_ssa_names, true);
-
- init_parameter_lattice_values ();
- class complex_propagate complex_propagate;
- complex_propagate.ssa_propagate ();
-
- need_eh_cleanup = BITMAP_ALLOC (NULL);
-
- complex_variable_components = new int_tree_htab_type (10);
-
- complex_ssa_name_components.create (2 * num_ssa_names);
- complex_ssa_name_components.safe_grow_cleared (2 * num_ssa_names, true);
-
- update_parameter_components ();
-
- rpo = XNEWVEC (int, last_basic_block_for_fn (cfun));
- n_bbs = pre_and_rev_post_order_compute (NULL, rpo, false);
- for (i = 0; i < n_bbs; i++)
- {
- bb = BASIC_BLOCK_FOR_FN (cfun, rpo[i]);
- if (!bb)
- continue;
- update_phi_components (bb);
- for (gsi = gsi_start_bb (bb); !gsi_end_p (gsi); gsi_next (&gsi))
- expand_complex_operations_1 (&gsi);
- }
-
- free (rpo);
-
- if (!phis_to_revisit.is_empty ())
- {
- unsigned int n = phis_to_revisit.length ();
- for (unsigned int j = 0; j < n; j += 3)
- for (unsigned int k = 0; k < 2; k++)
- if (gphi *phi = phis_to_revisit[j + k + 1])
- {
- unsigned int m = gimple_phi_num_args (phi);
- for (unsigned int l = 0; l < m; ++l)
- {
- tree op = gimple_phi_arg_def (phi, l);
- if (TREE_CODE (op) == SSA_NAME
- || is_gimple_min_invariant (op))
- continue;
- tree arg = gimple_phi_arg_def (phis_to_revisit[j], l);
- op = extract_component (NULL, arg, k > 0, false, false);
- SET_PHI_ARG_DEF (phi, l, op);
- }
- }
- phis_to_revisit.release ();
- }
-
- gsi_commit_edge_inserts ();
-
- unsigned todo
- = gimple_purge_all_dead_eh_edges (need_eh_cleanup) ? TODO_cleanup_cfg : 0;
- BITMAP_FREE (need_eh_cleanup);
-
- delete complex_variable_components;
- complex_variable_components = NULL;
- complex_ssa_name_components.release ();
- complex_lattice_values.release ();
- return todo;
-}
-
-namespace {
-
-const pass_data pass_data_lower_complex =
-{
- GIMPLE_PASS, /* type */
- "cplxlower", /* name */
- OPTGROUP_NONE, /* optinfo_flags */
- TV_NONE, /* tv_id */
- PROP_ssa, /* properties_required */
- PROP_gimple_lcx, /* properties_provided */
- 0, /* properties_destroyed */
- 0, /* todo_flags_start */
- TODO_update_ssa, /* todo_flags_finish */
-};
-
-class pass_lower_complex : public gimple_opt_pass
-{
-public:
- pass_lower_complex (gcc::context *ctxt)
- : gimple_opt_pass (pass_data_lower_complex, ctxt)
- {}
-
- /* opt_pass methods: */
- opt_pass * clone () { return new pass_lower_complex (m_ctxt); }
- virtual unsigned int execute (function *) { return tree_lower_complex (); }
-
-}; // class pass_lower_complex
-
-} // anon namespace
-
-gimple_opt_pass *
-make_pass_lower_complex (gcc::context *ctxt)
-{
- return new pass_lower_complex (ctxt);
-}
-
-
-namespace {
-
-const pass_data pass_data_lower_complex_O0 =
-{
- GIMPLE_PASS, /* type */
- "cplxlower0", /* name */
- OPTGROUP_NONE, /* optinfo_flags */
- TV_NONE, /* tv_id */
- PROP_cfg, /* properties_required */
- PROP_gimple_lcx, /* properties_provided */
- 0, /* properties_destroyed */
- 0, /* todo_flags_start */
- TODO_update_ssa, /* todo_flags_finish */
-};
-
-class pass_lower_complex_O0 : public gimple_opt_pass
-{
-public:
- pass_lower_complex_O0 (gcc::context *ctxt)
- : gimple_opt_pass (pass_data_lower_complex_O0, ctxt)
- {}
-
- /* opt_pass methods: */
- virtual bool gate (function *fun)
- {
- /* With errors, normal optimization passes are not run. If we don't
- lower complex operations at all, rtl expansion will abort. */
- return !(fun->curr_properties & PROP_gimple_lcx);
- }
-
- virtual unsigned int execute (function *) { return tree_lower_complex (); }
-
-}; // class pass_lower_complex_O0
-
-} // anon namespace
-
-gimple_opt_pass *
-make_pass_lower_complex_O0 (gcc::context *ctxt)
-{
- return new pass_lower_complex_O0 (ctxt);
-}
generated by cgit v1.1 at 2025-05-22 00:42:20 +0000