aboutsummaryrefslogtreecommitdiff
path: root/gcc/c/gimple-parser.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/c/gimple-parser.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/c/gimple-parser.c')
-rw-r--r--gcc/c/gimple-parser.c2453
1 files changed, 0 insertions, 2453 deletions
diff --git a/gcc/c/gimple-parser.c b/gcc/c/gimple-parser.c
deleted file mode 100644
index 51ddd86..0000000
--- a/gcc/c/gimple-parser.c
+++ /dev/null
@@ -1,2453 +0,0 @@
-/* Parser for GIMPLE.
- Copyright (C) 2016-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 "target.h"
-#include "function.h"
-#include "c-tree.h"
-#include "timevar.h"
-#include "stringpool.h"
-#include "cgraph.h"
-#include "attribs.h"
-#include "stor-layout.h"
-#include "varasm.h"
-#include "trans-mem.h"
-#include "c-family/c-pragma.h"
-#include "c-lang.h"
-#include "c-family/c-objc.h"
-#include "plugin.h"
-#include "builtins.h"
-#include "gomp-constants.h"
-#include "c-family/c-indentation.h"
-#include "gimple-expr.h"
-#include "context.h"
-#include "gcc-rich-location.h"
-#include "c-parser.h"
-#include "tree-vrp.h"
-#include "tree-pass.h"
-#include "tree-pretty-print.h"
-#include "tree.h"
-#include "basic-block.h"
-#include "gimple.h"
-#include "gimple-pretty-print.h"
-#include "tree-ssa.h"
-#include "pass_manager.h"
-#include "tree-ssanames.h"
-#include "gimple-ssa.h"
-#include "tree-dfa.h"
-#include "internal-fn.h"
-#include "cfg.h"
-#include "cfghooks.h"
-#include "bitmap.h"
-#include "cfganal.h"
-#include "tree-cfg.h"
-#include "gimple-iterator.h"
-#include "cfgloop.h"
-#include "tree-phinodes.h"
-#include "tree-into-ssa.h"
-
-
-/* GIMPLE parser state. */
-
-class gimple_parser
-{
-public:
- gimple_parser (c_parser *p) : parser (p), edges(), current_bb(NULL) {}
- /* c_parser is not visible here, use composition and fake inheritance
- via a conversion operator. */
- operator c_parser *() { return parser; }
- c_parser *parser;
-
- /* CFG build state. */
- class gimple_parser_edge
- {
- public:
- int src;
- int dest;
- int flags;
- profile_probability probability;
- };
- auto_vec<gimple_parser_edge> edges;
- basic_block current_bb;
-
- void push_edge (int, int, int, profile_probability);
-};
-
-void
-gimple_parser::push_edge (int src, int dest, int flags,
- profile_probability prob)
-{
- gimple_parser_edge e;
- e.src = src;
- e.dest = dest;
- e.flags = flags;
- e.probability = prob;
- edges.safe_push (e);
-}
-
-
-/* Gimple parsing functions. */
-static bool c_parser_gimple_compound_statement (gimple_parser &, gimple_seq *);
-static void c_parser_gimple_label (gimple_parser &, gimple_seq *);
-static void c_parser_gimple_statement (gimple_parser &, gimple_seq *);
-static struct c_expr c_parser_gimple_binary_expression (gimple_parser &);
-static struct c_expr c_parser_gimple_unary_expression (gimple_parser &);
-static struct c_expr c_parser_gimple_postfix_expression (gimple_parser &);
-static struct c_expr c_parser_gimple_postfix_expression_after_primary
- (gimple_parser &, location_t, struct c_expr);
-static void c_parser_gimple_declaration (gimple_parser &);
-static void c_parser_gimple_goto_stmt (gimple_parser &, location_t,
- tree, gimple_seq *);
-static void c_parser_gimple_try_stmt (gimple_parser &, gimple_seq *);
-static void c_parser_gimple_if_stmt (gimple_parser &, gimple_seq *);
-static void c_parser_gimple_switch_stmt (gimple_parser &, gimple_seq *);
-static void c_parser_gimple_return_stmt (gimple_parser &, gimple_seq *);
-static void c_finish_gimple_return (location_t, tree);
-static tree c_parser_gimple_paren_condition (gimple_parser &);
-static void c_parser_gimple_expr_list (gimple_parser &, vec<tree> *);
-
-
-/* See if VAL is an identifier matching __BB<num> and return <num>
- in *INDEX. */
-
-static bool
-c_parser_gimple_parse_bb_spec (tree val, int *index)
-{
- if (!startswith (IDENTIFIER_POINTER (val), "__BB"))
- return false;
- for (const char *p = IDENTIFIER_POINTER (val) + 4; *p; ++p)
- if (!ISDIGIT (*p))
- return false;
- *index = atoi (IDENTIFIER_POINTER (val) + 4);
- return *index > 0;
-}
-
-/* See if VAL is an identifier matching __BB<num> and return <num>
- in *INDEX. Return true if so and parse also FREQUENCY of
- the edge. */
-
-
-static bool
-c_parser_gimple_parse_bb_spec_edge_probability (tree val,
- gimple_parser &parser,
- int *index,
- profile_probability
- *probability)
-{
- bool return_p = c_parser_gimple_parse_bb_spec (val, index);
- if (return_p)
- {
- *probability = profile_probability::uninitialized ();
- /* Parse frequency if provided. */
- if (c_parser_next_token_is (parser, CPP_OPEN_PAREN))
- {
- tree f;
- c_parser_consume_token (parser);
- if (!c_parser_next_token_is (parser, CPP_NAME))
- {
- c_parser_error (parser, "expected frequency quality");
- return false;
- }
-
- profile_quality quality;
- const char *v
- = IDENTIFIER_POINTER (c_parser_peek_token (parser)->value);
- if (!parse_profile_quality (v, &quality))
- {
- c_parser_error (parser, "unknown profile quality");
- return false;
- }
-
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return false;
-
- if (!c_parser_next_token_is (parser, CPP_NUMBER)
- || (TREE_CODE (f = c_parser_peek_token (parser)->value)
- != INTEGER_CST))
- {
- c_parser_error (parser, "expected frequency value");
- return false;
- }
-
- unsigned int value = TREE_INT_CST_LOW (f);
- *probability = profile_probability (value, quality);
-
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return false;
-
- if (!c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return false;
- }
-
- return true;
- }
-
- return false;
-
-}
-
-/* Parse the body of a function declaration marked with "__GIMPLE". */
-
-void
-c_parser_parse_gimple_body (c_parser *cparser, char *gimple_pass,
- enum c_declspec_il cdil,
- profile_count entry_bb_count)
-{
- gimple_parser parser (cparser);
- gimple_seq seq = NULL;
- gimple_seq body = NULL;
- tree stmt = push_stmt_list ();
- push_scope ();
- location_t loc1 = c_parser_peek_token (parser)->location;
-
- cfun->pass_startwith = gimple_pass;
- init_tree_ssa (cfun);
-
- if (cdil == cdil_gimple)
- /* While we have SSA names in the IL we do not have a CFG built yet
- and PHIs are represented using a PHI internal function. We do
- have lowered control flow and exception handling (well, we do not
- have parser support for EH yet). But as we still have BINDs
- we have to go through lowering again. */
- cfun->curr_properties = PROP_gimple_any;
- else
- {
- /* We have at least cdil_gimple_cfg. */
- gimple_register_cfg_hooks ();
- init_empty_tree_cfg ();
- parser.current_bb = ENTRY_BLOCK_PTR_FOR_FN (cfun);
- /* Initialize the bare loop structure - we are going to only
- mark headers and leave the rest to fixup. */
- set_loops_for_fn (cfun, ggc_cleared_alloc<struct loops> ());
- init_loops_structure (cfun, loops_for_fn (cfun), 1);
- loops_state_set (cfun, LOOPS_NEED_FIXUP|LOOPS_MAY_HAVE_MULTIPLE_LATCHES);
- cfun->curr_properties
- |= PROP_gimple_lcf | PROP_gimple_leh | PROP_cfg | PROP_loops;
- if (cdil == cdil_gimple_ssa)
- {
- init_ssa_operands (cfun);
- cfun->curr_properties |= PROP_ssa;
- }
- }
-
- if (! c_parser_gimple_compound_statement (parser, &seq)
- && cdil == cdil_gimple)
- {
- gimple *ret = gimple_build_return (NULL);
- gimple_seq_add_stmt_without_update (&seq, ret);
- }
-
- tree block = pop_scope ();
- stmt = pop_stmt_list (stmt);
- stmt = c_build_bind_expr (loc1, block, stmt);
-
- block = DECL_INITIAL (current_function_decl);
- BLOCK_SUBBLOCKS (block) = NULL_TREE;
- BLOCK_CHAIN (block) = NULL_TREE;
- TREE_ASM_WRITTEN (block) = 1;
-
- if (cdil == cdil_gimple)
- {
- gbind *bind_stmt = gimple_build_bind (BIND_EXPR_VARS (stmt), NULL,
- BIND_EXPR_BLOCK (stmt));
- gimple_bind_set_body (bind_stmt, seq);
- gimple_seq_add_stmt_without_update (&body, bind_stmt);
- gimple_set_body (current_function_decl, body);
- }
- else
- {
- /* Control-flow and binds are lowered, record local decls. */
- for (tree var = BIND_EXPR_VARS (stmt); var; var = DECL_CHAIN (var))
- if (VAR_P (var)
- && !DECL_EXTERNAL (var))
- add_local_decl (cfun, var);
- /* We have a CFG. Build the edges. */
- for (unsigned i = 0; i < parser.edges.length (); ++i)
- {
- edge e = make_edge (BASIC_BLOCK_FOR_FN (cfun, parser.edges[i].src),
- BASIC_BLOCK_FOR_FN (cfun, parser.edges[i].dest),
- parser.edges[i].flags);
- e->probability = parser.edges[i].probability;
- }
- /* Add edges for case labels. */
- basic_block bb;
- FOR_EACH_BB_FN (bb, cfun)
- if (EDGE_COUNT (bb->succs) == 0)
- {
- gimple *last = last_stmt (bb);
- if (gswitch *sw = safe_dyn_cast <gswitch *> (last))
- for (unsigned i = 0; i < gimple_switch_num_labels (sw); ++i)
- {
- basic_block label_bb = gimple_switch_label_bb (cfun, sw, i);
- make_edge (bb, label_bb, 0);
- }
- }
- /* Need those for loop fixup. */
- calculate_dominance_info (CDI_DOMINATORS);
- /* With SSA lower PHIs parsed as internal function calls and
- update stmts. */
- if (cdil == cdil_gimple_ssa)
- {
- /* Create PHI nodes, they are parsed into __PHI internal calls. */
- FOR_EACH_BB_FN (bb, cfun)
- for (gimple_stmt_iterator gsi = gsi_start_bb (bb);
- !gsi_end_p (gsi);)
- {
- gimple *stmt = gsi_stmt (gsi);
- if (!gimple_call_internal_p (stmt, IFN_PHI))
- break;
-
- gphi *phi = create_phi_node (gimple_call_lhs (stmt), bb);
- for (unsigned i = 0; i < gimple_call_num_args (stmt); i += 2)
- {
- int srcidx = TREE_INT_CST_LOW (gimple_call_arg (stmt, i));
- edge e = find_edge (BASIC_BLOCK_FOR_FN (cfun, srcidx), bb);
- if (!e)
- c_parser_error (parser, "edge not found");
- else
- add_phi_arg (phi, gimple_call_arg (stmt, i + 1), e,
- UNKNOWN_LOCATION);
- }
- gsi_remove (&gsi, true);
- }
- /* Fill SSA name gaps, putting them on the freelist. */
- for (unsigned i = 1; i < num_ssa_names; ++i)
- if (!ssa_name (i))
- {
- tree name = make_ssa_name_fn (cfun, integer_type_node, NULL, i);
- release_ssa_name_fn (cfun, name);
- }
- /* No explicit virtual operands (yet). */
- bitmap_obstack_initialize (NULL);
- update_ssa (TODO_update_ssa_only_virtuals);
- bitmap_obstack_release (NULL);
- /* ??? By flushing the freelist after virtual operand SSA rewrite
- we keep the gaps available for re-use like needed for the
- PR89595 testcase but then usually virtual operands would have
- taken most of them. The fix is obviously to make virtual
- operands explicit in the SSA IL. */
- flush_ssaname_freelist ();
- }
- fix_loop_structure (NULL);
- }
-
- if (cfun->curr_properties & PROP_cfg)
- {
- ENTRY_BLOCK_PTR_FOR_FN (cfun)->count = entry_bb_count;
- gcov_type t = param_gimple_fe_computed_hot_bb_threshold;
- set_hot_bb_threshold (t);
- update_max_bb_count ();
- cgraph_node::get_create (cfun->decl);
- cgraph_edge::rebuild_edges ();
- }
- dump_function (TDI_gimple, current_function_decl);
-}
-
-/* Parse a compound statement in gimple function body.
-
- gimple-statement:
- gimple-statement
- gimple-declaration-statement
- gimple-if-statement
- gimple-switch-statement
- gimple-labeled-statement
- gimple-expression-statement
- gimple-goto-statement
- gimple-phi-statement
- gimple-return-statement
-*/
-
-static bool
-c_parser_gimple_compound_statement (gimple_parser &parser, gimple_seq *seq)
-{
- bool return_p = false;
-
- if (! c_parser_require (parser, CPP_OPEN_BRACE, "expected %<{%>"))
- return false;
-
- /* A compund statement starts with optional declarations. */
- while (c_parser_next_tokens_start_declaration (parser))
- {
- c_parser_gimple_declaration (parser);
- if (! c_parser_require (parser, CPP_SEMICOLON, "expected %<;%>"))
- return false;
- }
-
- while (c_parser_next_token_is_not (parser, CPP_CLOSE_BRACE))
- {
- if (c_parser_error (parser))
- {
- c_parser_skip_until_found (parser, CPP_CLOSE_BRACE, NULL);
- return return_p;
- }
- else if (c_parser_next_token_is (parser, CPP_EOF))
- {
- c_parser_error (parser, "expected declaration or statement");
- return return_p;
- }
-
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_KEYWORD:
- switch (c_parser_peek_token (parser)->keyword)
- {
- case RID_AT_TRY:
- c_parser_gimple_try_stmt (parser, seq);
- break;
- case RID_IF:
- c_parser_gimple_if_stmt (parser, seq);
- break;
- case RID_SWITCH:
- c_parser_gimple_switch_stmt (parser, seq);
- break;
- case RID_GOTO:
- {
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_NAME))
- {
- tree label = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- c_parser_gimple_goto_stmt (parser, loc, label, seq);
- if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<;%>"))
- return return_p;
- }
- }
- break;
- case RID_RETURN:
- return_p = true;
- c_parser_gimple_return_stmt (parser, seq);
- if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<;%>"))
- return return_p;
- if (cfun->curr_properties & PROP_cfg)
- parser.push_edge (parser.current_bb->index, EXIT_BLOCK, 0,
- profile_probability::uninitialized ());
- break;
- default:
- goto expr_stmt;
- }
- break;
- case CPP_NAME:
- if (c_parser_peek_2nd_token (parser)->type == CPP_COLON)
- {
- c_parser_gimple_label (parser, seq);
- break;
- }
- if (c_parser_next_token_is (parser, CPP_NAME)
- && c_parser_peek_token (parser)->id_kind == C_ID_ID
- && strcmp (IDENTIFIER_POINTER (c_parser_peek_token (parser)->value),
- "try") == 0)
- {
- c_parser_gimple_try_stmt (parser, seq);
- break;
- }
- /* Basic block specification.
- __BB (index, ...) */
- if ((cfun->curr_properties & PROP_cfg)
- && !strcmp (IDENTIFIER_POINTER
- (c_parser_peek_token (parser)->value), "__BB"))
- {
- c_parser_consume_token (parser);
- if (! c_parser_require (parser, CPP_OPEN_PAREN,
- "expected %<(%>"))
- return return_p;
- if (c_parser_next_token_is_not (parser, CPP_NUMBER))
- {
- c_parser_error (parser, "expected block index");
- return return_p;
- }
- tree tnum = c_parser_peek_token (parser)->value;
- if (TREE_CODE (tnum) != INTEGER_CST)
- {
- c_parser_error (parser, "expected block index");
- return return_p;
- }
- int index = TREE_INT_CST_LOW (tnum);
- if (index < NUM_FIXED_BLOCKS
- || (index < last_basic_block_for_fn (cfun)
- && BASIC_BLOCK_FOR_FN (cfun, index) != NULL))
- {
- c_parser_error (parser, "invalid block index");
- return return_p;
- }
- int is_loop_header_of = -1;
- profile_count bb_count = profile_count::uninitialized ();
- c_parser_consume_token (parser);
- while (c_parser_next_token_is (parser, CPP_COMMA))
- {
- c_parser_consume_token (parser);
- if (! c_parser_next_token_is (parser, CPP_NAME))
- {
- c_parser_error (parser, "expected block specifier");
- return return_p;
- }
- /* loop_header (NUM) */
- if (!strcmp (IDENTIFIER_POINTER
- (c_parser_peek_token (parser)->value),
- "loop_header"))
- {
- c_parser_consume_token (parser);
- if (! c_parser_require (parser, CPP_OPEN_PAREN,
- "expected %<(%>"))
- return return_p;
- tree loop_num;
- if (! c_parser_next_token_is (parser, CPP_NUMBER)
- || TREE_CODE (loop_num
- = c_parser_peek_token (parser)->value)
- != INTEGER_CST)
- {
- c_parser_error (parser, "expected loop number");
- return return_p;
- }
- c_parser_consume_token (parser);
- is_loop_header_of = TREE_INT_CST_LOW (loop_num);
- if (! c_parser_require (parser, CPP_CLOSE_PAREN,
- "expected %<)%>"))
- return return_p;
- }
- /* Parse profile: quality(value) */
- else
- {
- tree q;
- profile_quality quality;
- tree v = c_parser_peek_token (parser)->value;
- if (!parse_profile_quality (IDENTIFIER_POINTER (v),
- &quality))
- {
- c_parser_error (parser, "unknown block specifier");
- return false;
- }
-
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_OPEN_PAREN,
- "expected %<(%>"))
- return false;
-
- if (!c_parser_next_token_is (parser, CPP_NUMBER)
- || (TREE_CODE (q = c_parser_peek_token (parser)->value)
- != INTEGER_CST))
- {
- c_parser_error (parser, "expected count value");
- return false;
- }
-
- bb_count
- = profile_count::from_gcov_type (TREE_INT_CST_LOW (q),
- quality);
- c_parser_consume_token (parser);
- if (! c_parser_require (parser, CPP_CLOSE_PAREN,
- "expected %<)%>"))
- return return_p;
- }
- }
- if (! c_parser_require (parser, CPP_CLOSE_PAREN,
- "expected %<)%>")
- || ! c_parser_require (parser, CPP_COLON,
- "expected %<:%>"))
- return return_p;
-
- /* Put stmts parsed in the current block. */
- if (!gimple_seq_empty_p (*seq))
- {
- if (!parser.current_bb)
- c_parser_error (parser, "stmts without block");
- else
- {
- gimple_stmt_iterator gsi
- = gsi_start_bb (parser.current_bb);
- gsi_insert_seq_after (&gsi, *seq, GSI_CONTINUE_LINKING);
- }
- *seq = NULL;
- }
-
- /* Build an empty block with specified index, linking them
- in source order. */
- basic_block bb = alloc_block ();
- bb->index = index;
- link_block (bb, (parser.current_bb ? parser.current_bb
- : ENTRY_BLOCK_PTR_FOR_FN (cfun)));
- if (basic_block_info_for_fn (cfun)->length () <= (size_t)index)
- vec_safe_grow_cleared (basic_block_info_for_fn (cfun),
- index + 1, true);
- SET_BASIC_BLOCK_FOR_FN (cfun, index, bb);
- if (last_basic_block_for_fn (cfun) <= index)
- last_basic_block_for_fn (cfun) = index + 1;
- n_basic_blocks_for_fn (cfun)++;
- if (parser.current_bb->index == ENTRY_BLOCK)
- parser.push_edge (ENTRY_BLOCK, bb->index, EDGE_FALLTHRU,
- profile_probability::always ());
-
- /* We leave the proper setting to fixup. */
- class loop *loop_father = loops_for_fn (cfun)->tree_root;
- /* If the new block is a loop header, allocate a loop
- struct. Fixup will take care of proper placement within
- the loop tree. */
- if (is_loop_header_of != -1)
- {
- if (number_of_loops (cfun) > (unsigned)is_loop_header_of
- && get_loop (cfun, is_loop_header_of) != NULL)
- {
- c_parser_error (parser, "duplicate loop header");
- }
- else
- {
- class loop *loop = alloc_loop ();
- loop->num = is_loop_header_of;
- loop->header = bb;
- if (number_of_loops (cfun) <= (unsigned)is_loop_header_of)
- vec_safe_grow_cleared (loops_for_fn (cfun)->larray,
- is_loop_header_of + 1, true);
- (*loops_for_fn (cfun)->larray)[is_loop_header_of] = loop;
- flow_loop_tree_node_add (loops_for_fn (cfun)->tree_root,
- loop);
- }
- loop_father = get_loop (cfun, is_loop_header_of);
- }
- bb->loop_father = loop_father;
- bb->count = bb_count;
-
- /* Stmts now go to the new block. */
- parser.current_bb = bb;
- break;
- }
- goto expr_stmt;
-
- case CPP_SEMICOLON:
- {
- /* Empty stmt. */
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- gimple *nop = gimple_build_nop ();
- gimple_set_location (nop, loc);
- gimple_seq_add_stmt_without_update (seq, nop);
- break;
- }
-
- default:
-expr_stmt:
- c_parser_gimple_statement (parser, seq);
- if (! c_parser_require (parser, CPP_SEMICOLON, "expected %<;%>"))
- c_parser_skip_until_found (parser, CPP_SEMICOLON, NULL);
- }
- }
- c_parser_consume_token (parser);
-
- /* Put stmts parsed in the current block. */
- if ((cfun->curr_properties & PROP_cfg)
- && !gimple_seq_empty_p (*seq))
- {
- if (!parser.current_bb)
- c_parser_error (parser, "stmts without block");
- else
- {
- gimple_stmt_iterator gsi = gsi_start_bb (parser.current_bb);
- gsi_insert_seq_after (&gsi, *seq, GSI_CONTINUE_LINKING);
- }
- *seq = NULL;
- }
-
- return return_p;
-}
-
-/* Parse a gimple statement.
-
- gimple-statement:
- gimple-call-expression
- gimple-assign-statement
- gimple-phi-statement
-
- gimple-assign-statement:
- gimple-unary-expression = gimple-assign-rhs
-
- gimple-assign-rhs:
- gimple-cast-expression
- gimple-unary-expression
- gimple-binary-expression
- gimple-call-expression
-
- gimple-phi-statement:
- identifier = __PHI ( label : gimple_primary-expression, ... )
-
- gimple-call-expr:
- gimple-primary-expression ( argument-list )
-
- gimple-cast-expression:
- ( type-name ) gimple-primary-expression
-
-*/
-
-static void
-c_parser_gimple_statement (gimple_parser &parser, gimple_seq *seq)
-{
- struct c_expr lhs, rhs;
- gimple *assign = NULL;
- location_t loc;
- tree arg = NULL_TREE;
- auto_vec<tree> vargs;
-
- lhs = c_parser_gimple_unary_expression (parser);
- loc = EXPR_LOCATION (lhs.value);
- rhs.set_error ();
-
- /* GIMPLE call statement without LHS. */
- if (c_parser_next_token_is (parser, CPP_SEMICOLON)
- && TREE_CODE (lhs.value) == CALL_EXPR)
- {
- gimple *call;
- call = gimple_build_call_from_tree (lhs.value, NULL);
- gimple_seq_add_stmt_without_update (seq, call);
- gimple_set_location (call, loc);
- return;
- }
-
- /* All following cases are statements with LHS. */
- if (! c_parser_require (parser, CPP_EQ, "expected %<=%>"))
- return;
-
- /* Cast expression. */
- if (c_parser_next_token_is (parser, CPP_OPEN_PAREN)
- && c_token_starts_typename (c_parser_peek_2nd_token (parser)))
- {
- c_parser_consume_token (parser);
- struct c_type_name *type_name = c_parser_type_name (parser);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN, "expected %<)%>");
- if (type_name == NULL)
- return;
- /* ??? The actual type used in the cast expression is ignored as
- in GIMPLE it is encoded by the type of the LHS. */
- rhs = c_parser_gimple_postfix_expression (parser);
- if (lhs.value != error_mark_node
- && rhs.value != error_mark_node)
- {
- enum tree_code code = NOP_EXPR;
- if (FLOAT_TYPE_P (TREE_TYPE (lhs.value))
- && ! FLOAT_TYPE_P (TREE_TYPE (rhs.value)))
- code = FLOAT_EXPR;
- else if (! FLOAT_TYPE_P (TREE_TYPE (lhs.value))
- && FLOAT_TYPE_P (TREE_TYPE (rhs.value)))
- code = FIX_TRUNC_EXPR;
- assign = gimple_build_assign (lhs.value, code, rhs.value);
- gimple_seq_add_stmt_without_update (seq, assign);
- gimple_set_location (assign, loc);
- return;
- }
- }
-
- /* Unary expression. */
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_NAME:
- {
- tree id = c_parser_peek_token (parser)->value;
- if (strcmp (IDENTIFIER_POINTER (id), "__ABS") == 0
- || strcmp (IDENTIFIER_POINTER (id), "__ABSU") == 0
- || strcmp (IDENTIFIER_POINTER (id), "__MIN") == 0
- || strcmp (IDENTIFIER_POINTER (id), "__MAX") == 0
- || strcmp (IDENTIFIER_POINTER (id), "__BIT_INSERT") == 0
- || strcmp (IDENTIFIER_POINTER (id), "__VEC_PERM") == 0)
- goto build_unary_expr;
- break;
- }
- case CPP_KEYWORD:
- if (c_parser_peek_token (parser)->keyword != RID_REALPART
- && c_parser_peek_token (parser)->keyword != RID_IMAGPART)
- break;
- /* Fallthru. */
- case CPP_AND:
- case CPP_PLUS:
- case CPP_MINUS:
- case CPP_COMPL:
- case CPP_NOT:
- case CPP_MULT: /* pointer deref */
- build_unary_expr:
- rhs = c_parser_gimple_unary_expression (parser);
- if (rhs.value != error_mark_node)
- {
- assign = gimple_build_assign (lhs.value, rhs.value);
- gimple_set_location (assign, loc);
- gimple_seq_add_stmt_without_update (seq, assign);
- }
- return;
-
- default:;
- }
-
- /* GIMPLE PHI statement. */
- if (c_parser_next_token_is_keyword (parser, RID_PHI))
- {
- c_parser_consume_token (parser);
-
- if (! c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return;
-
- if (c_parser_next_token_is (parser, CPP_OPEN_PAREN))
- c_parser_consume_token (parser);
-
- while (c_parser_next_token_is_not (parser, CPP_CLOSE_PAREN))
- {
- if (c_parser_next_token_is (parser, CPP_NAME)
- && c_parser_peek_2nd_token (parser)->type == CPP_COLON)
- {
- arg = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_COLON))
- c_parser_consume_token (parser);
- int src_index = -1;
- if (!c_parser_gimple_parse_bb_spec (arg, &src_index))
- c_parser_error (parser, "invalid source block specification");
- vargs.safe_push (size_int (src_index));
- }
- else if (c_parser_next_token_is (parser, CPP_COMMA))
- c_parser_consume_token (parser);
- else
- {
- arg = c_parser_gimple_unary_expression (parser).value;
- vargs.safe_push (arg);
- }
- }
-
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
-
- /* Build internal function for PHI. */
- gcall *call_stmt = gimple_build_call_internal_vec (IFN_PHI, vargs);
- gimple_call_set_lhs (call_stmt, lhs.value);
- gimple_set_location (call_stmt, UNKNOWN_LOCATION);
- gimple_seq_add_stmt_without_update (seq, call_stmt);
- return;
- }
-
- /* GIMPLE call with lhs. */
- if (c_parser_next_token_is (parser, CPP_DOT)
- || (c_parser_next_token_is (parser, CPP_NAME)
- && c_parser_peek_2nd_token (parser)->type == CPP_OPEN_PAREN
- && lookup_name (c_parser_peek_token (parser)->value)))
- {
- rhs = c_parser_gimple_unary_expression (parser);
- if (rhs.value != error_mark_node)
- {
- gimple *call = gimple_build_call_from_tree (rhs.value, NULL);
- gimple_call_set_lhs (call, lhs.value);
- gimple_seq_add_stmt_without_update (seq, call);
- gimple_set_location (call, loc);
- }
- return;
- }
-
- rhs = c_parser_gimple_binary_expression (parser);
- if (lhs.value != error_mark_node
- && rhs.value != error_mark_node)
- {
- /* If we parsed a comparison and the next token is a '?' then
- parse a conditional expression. */
- if (COMPARISON_CLASS_P (rhs.value)
- && c_parser_next_token_is (parser, CPP_QUERY))
- {
- struct c_expr trueval, falseval;
- c_parser_consume_token (parser);
- trueval = c_parser_gimple_postfix_expression (parser);
- falseval.set_error ();
- if (c_parser_require (parser, CPP_COLON, "expected %<:%>"))
- falseval = c_parser_gimple_postfix_expression (parser);
- if (trueval.value == error_mark_node
- || falseval.value == error_mark_node)
- return;
- rhs.value = build3_loc (loc, COND_EXPR, TREE_TYPE (trueval.value),
- rhs.value, trueval.value, falseval.value);
- }
- if (get_gimple_rhs_class (TREE_CODE (rhs.value)) == GIMPLE_INVALID_RHS)
- {
- c_parser_error (parser, "unexpected RHS for assignment");
- return;
- }
- assign = gimple_build_assign (lhs.value, rhs.value);
- gimple_seq_add_stmt_without_update (seq, assign);
- gimple_set_location (assign, loc);
- }
- return;
-}
-
-/* Parse gimple binary expr.
-
- gimple-binary-expression:
- gimple-unary-expression * gimple-unary-expression
- gimple-unary-expression __MULT_HIGHPART gimple-unary-expression
- gimple-unary-expression / gimple-unary-expression
- gimple-unary-expression % gimple-unary-expression
- gimple-unary-expression + gimple-unary-expression
- gimple-unary-expression - gimple-unary-expression
- gimple-unary-expression << gimple-unary-expression
- gimple-unary-expression >> gimple-unary-expression
- gimple-unary-expression < gimple-unary-expression
- gimple-unary-expression > gimple-unary-expression
- gimple-unary-expression <= gimple-unary-expression
- gimple-unary-expression >= gimple-unary-expression
- gimple-unary-expression == gimple-unary-expression
- gimple-unary-expression != gimple-unary-expression
- gimple-unary-expression & gimple-unary-expression
- gimple-unary-expression ^ gimple-unary-expression
- gimple-unary-expression | gimple-unary-expression
-
-*/
-
-static c_expr
-c_parser_gimple_binary_expression (gimple_parser &parser)
-{
- /* Location of the binary operator. */
- struct c_expr ret, lhs, rhs;
- enum tree_code code = ERROR_MARK;
- ret.set_error ();
- lhs = c_parser_gimple_postfix_expression (parser);
- if (c_parser_error (parser))
- return ret;
- tree ret_type = TREE_TYPE (lhs.value);
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_MULT:
- code = MULT_EXPR;
- break;
- case CPP_DIV:
- code = TRUNC_DIV_EXPR;
- break;
- case CPP_MOD:
- code = TRUNC_MOD_EXPR;
- break;
- case CPP_PLUS:
- if (POINTER_TYPE_P (TREE_TYPE (lhs.value)))
- code = POINTER_PLUS_EXPR;
- else
- code = PLUS_EXPR;
- break;
- case CPP_MINUS:
- code = MINUS_EXPR;
- break;
- case CPP_LSHIFT:
- code = LSHIFT_EXPR;
- break;
- case CPP_RSHIFT:
- code = RSHIFT_EXPR;
- break;
- case CPP_LESS:
- code = LT_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_GREATER:
- code = GT_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_LESS_EQ:
- code = LE_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_GREATER_EQ:
- code = GE_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_EQ_EQ:
- code = EQ_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_NOT_EQ:
- code = NE_EXPR;
- ret_type = boolean_type_node;
- break;
- case CPP_AND:
- code = BIT_AND_EXPR;
- break;
- case CPP_XOR:
- code = BIT_XOR_EXPR;
- break;
- case CPP_OR:
- code = BIT_IOR_EXPR;
- break;
- case CPP_AND_AND:
- c_parser_error (parser, "%<&&%> not valid in GIMPLE");
- return ret;
- case CPP_OR_OR:
- c_parser_error (parser, "%<||%> not valid in GIMPLE");
- return ret;
- case CPP_NAME:
- {
- tree id = c_parser_peek_token (parser)->value;
- if (strcmp (IDENTIFIER_POINTER (id), "__MULT_HIGHPART") == 0)
- {
- code = MULT_HIGHPART_EXPR;
- break;
- }
- }
- /* Fallthru. */
- default:
- /* Not a binary expression. */
- return lhs;
- }
- location_t ret_loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- rhs = c_parser_gimple_postfix_expression (parser);
- if (lhs.value != error_mark_node && rhs.value != error_mark_node)
- ret.value = build2_loc (ret_loc, code, ret_type, lhs.value, rhs.value);
- return ret;
-}
-
-/* Parse a gimple parentized binary expression. */
-
-static c_expr
-c_parser_gimple_parentized_binary_expression (gimple_parser &parser,
- location_t op_loc,
- tree_code code)
-{
- struct c_expr ret;
- ret.set_error ();
-
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return ret;
- c_expr op1 = c_parser_gimple_postfix_expression (parser);
- if (!c_parser_require (parser, CPP_COMMA, "expected %<,%>"))
- return ret;
- c_expr op2 = c_parser_gimple_postfix_expression (parser);
- if (!c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return ret;
-
- if (op1.value != error_mark_node && op2.value != error_mark_node)
- ret.value = build2_loc (op_loc,
- code, TREE_TYPE (op1.value), op1.value, op2.value);
- return ret;
-}
-
-/* Parse a gimple parentized binary expression. */
-
-static c_expr
-c_parser_gimple_parentized_ternary_expression (gimple_parser &parser,
- location_t op_loc,
- tree_code code)
-{
- struct c_expr ret;
- ret.set_error ();
-
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return ret;
- c_expr op1 = c_parser_gimple_postfix_expression (parser);
- if (!c_parser_require (parser, CPP_COMMA, "expected %<,%>"))
- return ret;
- c_expr op2 = c_parser_gimple_postfix_expression (parser);
- if (!c_parser_require (parser, CPP_COMMA, "expected %<)%>"))
- return ret;
- c_expr op3 = c_parser_gimple_postfix_expression (parser);
- if (!c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return ret;
-
- if (op1.value != error_mark_node
- && op2.value != error_mark_node
- && op3.value != error_mark_node)
- ret.value = build3_loc (op_loc,
- code, TREE_TYPE (op1.value),
- op1.value, op2.value, op3.value);
- return ret;
-}
-
-/* Parse gimple unary expression.
-
- gimple-unary-expression:
- gimple-postfix-expression
- unary-operator gimple-postfix-expression
-
- unary-operator: one of
- & * + - ~ abs_expr
-*/
-
-static c_expr
-c_parser_gimple_unary_expression (gimple_parser &parser)
-{
- struct c_expr ret, op;
- location_t op_loc = c_parser_peek_token (parser)->location;
- location_t finish;
- ret.set_error ();
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_AND:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- mark_exp_read (op.value);
- return parser_build_unary_op (op_loc, ADDR_EXPR, op);
- case CPP_MULT:
- {
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- if (op.value == error_mark_node)
- return ret;
- if (! POINTER_TYPE_P (TREE_TYPE (op.value)))
- {
- error_at (op_loc, "expected pointer as argument of unary %<*%>");
- return ret;
- }
- finish = op.get_finish ();
- location_t combined_loc = make_location (op_loc, op_loc, finish);
- ret.value = build_simple_mem_ref_loc (combined_loc, op.value);
- TREE_SIDE_EFFECTS (ret.value)
- = TREE_THIS_VOLATILE (ret.value)
- = TYPE_VOLATILE (TREE_TYPE (TREE_TYPE (op.value)));
- ret.src_range.m_start = op_loc;
- ret.src_range.m_finish = finish;
- return ret;
- }
- case CPP_PLUS:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, CONVERT_EXPR, op);
- case CPP_MINUS:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, NEGATE_EXPR, op);
- case CPP_COMPL:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, BIT_NOT_EXPR, op);
- case CPP_NOT:
- c_parser_error (parser, "%<!%> not valid in GIMPLE");
- return ret;
- case CPP_KEYWORD:
- switch (c_parser_peek_token (parser)->keyword)
- {
- case RID_REALPART:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, REALPART_EXPR, op);
- case RID_IMAGPART:
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, IMAGPART_EXPR, op);
- default:
- return c_parser_gimple_postfix_expression (parser);
- }
- case CPP_NAME:
- {
- tree id = c_parser_peek_token (parser)->value;
- if (strcmp (IDENTIFIER_POINTER (id), "__ABS") == 0)
- {
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, ABS_EXPR, op);
- }
- else if (strcmp (IDENTIFIER_POINTER (id), "__ABSU") == 0)
- {
- c_parser_consume_token (parser);
- op = c_parser_gimple_postfix_expression (parser);
- return parser_build_unary_op (op_loc, ABSU_EXPR, op);
- }
- else if (strcmp (IDENTIFIER_POINTER (id), "__MIN") == 0)
- return c_parser_gimple_parentized_binary_expression (parser,
- op_loc,
- MIN_EXPR);
- else if (strcmp (IDENTIFIER_POINTER (id), "__MAX") == 0)
- return c_parser_gimple_parentized_binary_expression (parser,
- op_loc,
- MAX_EXPR);
- else if (strcmp (IDENTIFIER_POINTER (id), "__VEC_PERM") == 0)
- return c_parser_gimple_parentized_ternary_expression
- (parser, op_loc, VEC_PERM_EXPR);
- else if (strcmp (IDENTIFIER_POINTER (id), "__BIT_INSERT") == 0)
- {
- /* __BIT_INSERT '(' postfix-expression, postfix-expression,
- integer ')' */
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- c_expr op0 = c_parser_gimple_postfix_expression (parser);
- c_parser_skip_until_found (parser, CPP_COMMA,
- "expected %<,%>");
- c_expr op1 = c_parser_gimple_postfix_expression (parser);
- c_parser_skip_until_found (parser, CPP_COMMA,
- "expected %<,%>");
- c_expr op2 = c_parser_gimple_postfix_expression (parser);
- if (TREE_CODE (op2.value) != INTEGER_CST
- || !int_fits_type_p (op2.value, bitsizetype))
- c_parser_error (parser, "expected constant offset");
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- if (op0.value != error_mark_node
- && op1.value != error_mark_node
- && TREE_CODE (op2.value) == INTEGER_CST)
- ret.value = build3_loc (loc, BIT_INSERT_EXPR,
- TREE_TYPE (op0.value),
- op0.value, op1.value,
- fold_convert (bitsizetype,
- op2.value));
- }
- return ret;
- }
- else
- return c_parser_gimple_postfix_expression (parser);
- }
- default:
- return c_parser_gimple_postfix_expression (parser);
- }
-}
-
-/* Decompose ID into base name (ID until ver_offset) and VERSION. Return
- true if ID matches a SSA name. */
-
-static bool
-c_parser_parse_ssa_name_id (tree id, unsigned *version, unsigned *ver_offset)
-{
- const char *token = IDENTIFIER_POINTER (id);
- const char *var_version = strrchr (token, '_');
- if (! var_version)
- return false;
-
- *ver_offset = var_version - token;
- for (const char *p = var_version + 1; *p; ++p)
- if (! ISDIGIT (*p))
- return false;
- *version = atoi (var_version + 1);
- return *version > 0;
-}
-
-/* Get at the actual SSA name ID with VERSION starting at VER_OFFSET.
- TYPE is the type if the SSA name is being declared. */
-
-static tree
-c_parser_parse_ssa_name (gimple_parser &parser,
- tree id, tree type, unsigned version,
- unsigned ver_offset)
-{
- tree name = NULL_TREE;
- const char *token = IDENTIFIER_POINTER (id);
-
- if (ver_offset == 0)
- {
- /* Anonymous unnamed SSA name. */
- if (version < num_ssa_names)
- name = ssa_name (version);
- if (! name)
- {
- if (! type)
- {
- c_parser_error (parser, "SSA name undeclared");
- return error_mark_node;
- }
- name = make_ssa_name_fn (cfun, type, NULL, version);
- }
- }
- else
- {
- if (version < num_ssa_names)
- name = ssa_name (version);
- if (! name)
- {
- /* Separate var name from version. */
- char *var_name = XNEWVEC (char, ver_offset + 1);
- memcpy (var_name, token, ver_offset);
- var_name[ver_offset] = '\0';
- /* lookup for parent decl. */
- id = get_identifier (var_name);
- tree parent = lookup_name (id);
- XDELETEVEC (var_name);
- if (! parent || parent == error_mark_node)
- {
- c_parser_error (parser, "base variable or SSA name undeclared");
- return error_mark_node;
- }
- if (!(VAR_P (parent)
- || TREE_CODE (parent) == PARM_DECL
- || TREE_CODE (parent) == RESULT_DECL))
- {
- error ("invalid base %qE for SSA name", parent);
- return error_mark_node;
- }
- name = make_ssa_name_fn (cfun, parent,
- gimple_build_nop (), version);
- }
- }
-
- return name;
-}
-
-/* Parse a gimple call to an internal function.
-
- gimple-call-internal:
- . identifier ( gimple-argument-expression-list[opt] ) */
-
-static struct c_expr
-c_parser_gimple_call_internal (gimple_parser &parser)
-{
- struct c_expr expr;
- expr.set_error ();
-
- gcc_assert (c_parser_next_token_is (parser, CPP_DOT));
- c_parser_consume_token (parser);
- location_t loc = c_parser_peek_token (parser)->location;
- if (!c_parser_next_token_is (parser, CPP_NAME)
- || c_parser_peek_token (parser)->id_kind != C_ID_ID)
- {
- c_parser_error (parser, "expecting internal function name");
- return expr;
- }
- tree id = c_parser_peek_token (parser)->value;
- internal_fn ifn = lookup_internal_fn (IDENTIFIER_POINTER (id));
- c_parser_consume_token (parser);
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- auto_vec<tree> exprlist;
- if (!c_parser_next_token_is (parser, CPP_CLOSE_PAREN))
- c_parser_gimple_expr_list (parser, &exprlist);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN, "expected %<)%>");
- if (ifn == IFN_LAST)
- error_at (loc, "unknown internal function %qE", id);
- else
- {
- expr.value = build_call_expr_internal_loc_array
- (loc, ifn, void_type_node, exprlist.length (),
- exprlist.address ());
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- }
- }
- return expr;
-}
-
-/* Parse '<' type [',' alignment] '>' and return a type on success
- and NULL_TREE on error. */
-
-static tree
-c_parser_gimple_typespec (gimple_parser &parser)
-{
- struct c_type_name *type_name = NULL;
- tree alignment = NULL_TREE;
- if (c_parser_require (parser, CPP_LESS, "expected %<<%>"))
- {
- type_name = c_parser_type_name (parser);
- /* Optional alignment. */
- if (c_parser_next_token_is (parser, CPP_COMMA))
- {
- c_parser_consume_token (parser);
- alignment
- = c_parser_gimple_postfix_expression (parser).value;
- }
- c_parser_skip_until_found (parser,
- CPP_GREATER, "expected %<>%>");
- }
- if (!type_name)
- return NULL_TREE;
- tree tem;
- tree type = groktypename (type_name, &tem, NULL);
- if (alignment)
- type = build_aligned_type (type, tree_to_uhwi (alignment));
- return type;
-}
-
-/* Parse gimple postfix expression.
-
- gimple-postfix-expression:
- gimple-primary-expression
- gimple-primary-expression [ gimple-primary-expression ]
- gimple-primary-expression ( gimple-argument-expression-list[opt] )
- gimple-postfix-expression . identifier
- gimple-postfix-expression -> identifier
-
- gimple-argument-expression-list:
- gimple-unary-expression
- gimple-argument-expression-list , gimple-unary-expression
-
- gimple-primary-expression:
- identifier
- constant
- string-literal
- constructor
- gimple-call-internal
-
-*/
-
-static struct c_expr
-c_parser_gimple_postfix_expression (gimple_parser &parser)
-{
- location_t loc = c_parser_peek_token (parser)->location;
- source_range tok_range = c_parser_peek_token (parser)->get_range ();
- struct c_expr expr;
- expr.set_error ();
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_NUMBER:
- expr.value = c_parser_peek_token (parser)->value;
- set_c_expr_source_range (&expr, tok_range);
- loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- break;
- case CPP_CHAR:
- case CPP_CHAR16:
- case CPP_CHAR32:
- case CPP_UTF8CHAR:
- case CPP_WCHAR:
- expr.value = c_parser_peek_token (parser)->value;
- set_c_expr_source_range (&expr, tok_range);
- c_parser_consume_token (parser);
- break;
- case CPP_STRING:
- case CPP_STRING16:
- case CPP_STRING32:
- case CPP_WSTRING:
- case CPP_UTF8STRING:
- expr = c_parser_string_literal (parser, false, true);
- break;
- case CPP_DOT:
- expr = c_parser_gimple_call_internal (parser);
- break;
- case CPP_NAME:
- if (c_parser_peek_token (parser)->id_kind == C_ID_ID)
- {
- tree id = c_parser_peek_token (parser)->value;
- if (strcmp (IDENTIFIER_POINTER (id), "__MEM") == 0)
- {
- /* __MEM '<' type-name [ ',' number ] '>'
- '(' [ '(' type-name ')' ] unary-expression
- [ '+' number ] ')' */
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- tree type = c_parser_gimple_typespec (parser);
- struct c_expr ptr;
- ptr.value = error_mark_node;
- tree alias_off = NULL_TREE;
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- tree alias_type = NULL_TREE;
- /* Optional alias-type cast. */
- if (c_parser_next_token_is (parser, CPP_OPEN_PAREN))
- {
- c_parser_consume_token (parser);
- struct c_type_name *alias_type_name
- = c_parser_type_name (parser);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- if (alias_type_name)
- {
- tree tem;
- alias_type = groktypename (alias_type_name,
- &tem, NULL);
- }
- }
- ptr = c_parser_gimple_unary_expression (parser);
- if (ptr.value == error_mark_node
- || ! POINTER_TYPE_P (TREE_TYPE (ptr.value)))
- {
- if (ptr.value != error_mark_node)
- error_at (ptr.get_start (),
- "invalid type of %<__MEM%> operand");
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- return expr;
- }
- if (! alias_type)
- alias_type = TREE_TYPE (ptr.value);
- /* Optional constant offset. */
- if (c_parser_next_token_is (parser, CPP_PLUS))
- {
- c_parser_consume_token (parser);
- alias_off
- = c_parser_gimple_postfix_expression (parser).value;
- alias_off = fold_convert (alias_type, alias_off);
- }
- if (! alias_off)
- alias_off = build_int_cst (alias_type, 0);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- }
- if (! type || c_parser_error (parser))
- {
- c_parser_set_error (parser, false);
- return expr;
- }
- expr.value = build2_loc (loc, MEM_REF,
- type, ptr.value, alias_off);
- break;
- }
- else if (strcmp (IDENTIFIER_POINTER (id), "__VIEW_CONVERT") == 0)
- {
- /* __VIEW_CONVERT '<' type-name [ ',' number ] '>'
- '(' postfix-expression ')' */
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- tree type = c_parser_gimple_typespec (parser);
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- c_expr op = c_parser_gimple_postfix_expression (parser);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- if (type && op.value != error_mark_node)
- expr.value = build1_loc (loc, VIEW_CONVERT_EXPR,
- type, op.value);
- }
- break;
- }
- else if (strcmp (IDENTIFIER_POINTER (id), "__BIT_FIELD_REF") == 0)
- {
- /* __BIT_FIELD_REF '<' type-name [ ',' number ] '>'
- '(' postfix-expression, integer, integer ')' */
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- tree type = c_parser_gimple_typespec (parser);
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- c_expr op0 = c_parser_gimple_postfix_expression (parser);
- c_parser_skip_until_found (parser, CPP_COMMA,
- "expected %<,%>");
- c_expr op1 = c_parser_gimple_postfix_expression (parser);
- if (TREE_CODE (op1.value) != INTEGER_CST
- || !int_fits_type_p (op1.value, bitsizetype))
- c_parser_error (parser, "expected constant size");
- c_parser_skip_until_found (parser, CPP_COMMA,
- "expected %<,%>");
- c_expr op2 = c_parser_gimple_postfix_expression (parser);
- if (TREE_CODE (op2.value) != INTEGER_CST
- || !int_fits_type_p (op2.value, bitsizetype))
- c_parser_error (parser, "expected constant offset");
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- if (type
- && op0.value != error_mark_node
- && TREE_CODE (op1.value) == INTEGER_CST
- && TREE_CODE (op2.value) == INTEGER_CST)
- expr.value = build3_loc (loc, BIT_FIELD_REF, type,
- op0.value,
- fold_convert (bitsizetype,
- op1.value),
- fold_convert (bitsizetype,
- op2.value));
- }
- break;
- }
- else if (strcmp (IDENTIFIER_POINTER (id), "_Literal") == 0)
- {
- /* _Literal '(' type-name ')' ( [ '-' ] constant | constructor ) */
- c_parser_consume_token (parser);
- tree type = NULL_TREE;
- if (c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- {
- struct c_type_name *type_name = c_parser_type_name (parser);
- tree tem;
- if (type_name)
- type = groktypename (type_name, &tem, NULL);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- }
- if (! type)
- {
- c_parser_error (parser, "invalid _Literal");
- return expr;
- }
- if (c_parser_next_token_is (parser, CPP_OPEN_BRACE))
- {
- c_parser_consume_token (parser);
- if (!AGGREGATE_TYPE_P (type)
- && !VECTOR_TYPE_P (type))
- {
- c_parser_error (parser, "invalid type for _Literal with "
- "constructor");
- c_parser_skip_until_found (parser, CPP_CLOSE_BRACE,
- "expected %<}%>");
- return expr;
- }
- vec<constructor_elt, va_gc> *v = NULL;
- bool constant_p = true;
- if (VECTOR_TYPE_P (type)
- && !c_parser_next_token_is (parser, CPP_CLOSE_BRACE))
- {
- vec_alloc (v, TYPE_VECTOR_SUBPARTS (type).to_constant ());
- do
- {
- tree val
- = c_parser_gimple_postfix_expression (parser).value;
- if (! val
- || val == error_mark_node
- || (! CONSTANT_CLASS_P (val)
- && ! SSA_VAR_P (val)))
- {
- c_parser_error (parser, "invalid _Literal");
- return expr;
- }
- CONSTRUCTOR_APPEND_ELT (v, NULL_TREE, val);
- if (! CONSTANT_CLASS_P (val))
- constant_p = false;
- if (c_parser_next_token_is (parser, CPP_COMMA))
- c_parser_consume_token (parser);
- else
- break;
- }
- while (1);
- }
- if (c_parser_require (parser, CPP_CLOSE_BRACE,
- "expected %<}%>"))
- {
- if (v && constant_p)
- expr.value = build_vector_from_ctor (type, v);
- else
- expr.value = build_constructor (type, v);
- }
- else
- {
- c_parser_skip_until_found (parser, CPP_CLOSE_BRACE,
- "expected %<}%>");
- return expr;
- }
- }
- else
- {
- bool neg_p, addr_p;
- if ((neg_p = c_parser_next_token_is (parser, CPP_MINUS)))
- c_parser_consume_token (parser);
- if ((addr_p = c_parser_next_token_is (parser, CPP_AND)))
- c_parser_consume_token (parser);
- tree val = c_parser_gimple_postfix_expression (parser).value;
- if (! val
- || val == error_mark_node
- || (!CONSTANT_CLASS_P (val) && !addr_p))
- {
- c_parser_error (parser, "invalid _Literal");
- return expr;
- }
- if (addr_p)
- {
- val = build1 (ADDR_EXPR, type, val);
- if (!is_gimple_invariant_address (val))
- {
- c_parser_error (parser, "invalid _Literal");
- return expr;
- }
- }
- if (neg_p)
- {
- val = const_unop (NEGATE_EXPR, TREE_TYPE (val), val);
- if (! val)
- {
- c_parser_error (parser, "invalid _Literal");
- return expr;
- }
- }
- expr.value = fold_convert (type, val);
- }
- return expr;
- }
-
- /* SSA name. */
- unsigned version, ver_offset;
- if (! lookup_name (id)
- && c_parser_parse_ssa_name_id (id, &version, &ver_offset))
- {
- c_parser_consume_token (parser);
- expr.value = c_parser_parse_ssa_name (parser, id, NULL_TREE,
- version, ver_offset);
- if (expr.value == error_mark_node)
- return expr;
- set_c_expr_source_range (&expr, tok_range);
- /* For default definition SSA names. */
- if (c_parser_next_token_is (parser, CPP_OPEN_PAREN)
- && c_parser_peek_2nd_token (parser)->type == CPP_NAME
- && strcmp ("D",
- IDENTIFIER_POINTER
- (c_parser_peek_2nd_token (parser)->value)) == 0
- && c_parser_peek_nth_token (parser, 3)->type == CPP_CLOSE_PAREN)
- {
- c_parser_consume_token (parser);
- c_parser_consume_token (parser);
- c_parser_consume_token (parser);
- if (! SSA_NAME_IS_DEFAULT_DEF (expr.value))
- {
- if (!SSA_NAME_VAR (expr.value))
- {
- error_at (loc, "anonymous SSA name cannot have"
- " default definition");
- expr.value = error_mark_node;
- return expr;
- }
- set_ssa_default_def (cfun, SSA_NAME_VAR (expr.value),
- expr.value);
- SSA_NAME_DEF_STMT (expr.value) = gimple_build_nop ();
- }
- }
- }
- else
- {
- c_parser_consume_token (parser);
- expr.value
- = build_external_ref (loc, id,
- (c_parser_peek_token (parser)->type
- == CPP_OPEN_PAREN), &expr.original_type);
- set_c_expr_source_range (&expr, tok_range);
- }
- break;
- }
- /* Fallthru. */
- default:
- c_parser_error (parser, "expected expression");
- expr.set_error ();
- break;
- }
- if (expr.value == error_mark_node)
- return expr;
- return c_parser_gimple_postfix_expression_after_primary
- (parser, EXPR_LOC_OR_LOC (expr.value, loc), expr);
-}
-
-/* Parse a gimple postfix expression after the initial primary or compound
- literal. */
-
-static struct c_expr
-c_parser_gimple_postfix_expression_after_primary (gimple_parser &parser,
- location_t expr_loc,
- struct c_expr expr)
-{
- location_t start;
- location_t finish;
- tree ident;
- location_t comp_loc;
-
- while (true)
- {
- location_t op_loc = c_parser_peek_token (parser)->location;
- switch (c_parser_peek_token (parser)->type)
- {
- case CPP_OPEN_SQUARE:
- {
- c_parser_consume_token (parser);
- tree idx = c_parser_gimple_unary_expression (parser).value;
-
- if (! c_parser_require (parser, CPP_CLOSE_SQUARE, "expected %<]%>"))
- {
- c_parser_skip_until_found (parser, CPP_CLOSE_SQUARE, NULL);
- break;
- }
-
- start = expr.get_start ();
- finish = c_parser_tokens_buf (parser, 0)->location;
- expr.value = build_array_ref (op_loc, expr.value, idx);
- set_c_expr_source_range (&expr, start, finish);
-
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- break;
- }
- case CPP_OPEN_PAREN:
- {
- /* Function call. */
- c_parser_consume_token (parser);
- auto_vec<tree> exprlist;
- if (! c_parser_next_token_is (parser, CPP_CLOSE_PAREN))
- c_parser_gimple_expr_list (parser, &exprlist);
- c_parser_skip_until_found (parser, CPP_CLOSE_PAREN,
- "expected %<)%>");
- if (!FUNC_OR_METHOD_TYPE_P (TREE_TYPE (expr.value)))
- {
- c_parser_error (parser, "invalid call to non-function");
- expr.set_error ();
- break;
- }
- expr.value = build_call_array_loc
- (expr_loc, TREE_TYPE (TREE_TYPE (expr.value)),
- expr.value, exprlist.length (), exprlist.address ());
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- break;
- }
- case CPP_DOT:
- {
- /* Structure element reference. */
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_NAME))
- {
- c_token *comp_tok = c_parser_peek_token (parser);
- ident = comp_tok->value;
- comp_loc = comp_tok->location;
- }
- else
- {
- c_parser_error (parser, "expected identifier");
- expr.set_error ();
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- return expr;
- }
- start = expr.get_start ();
- finish = c_parser_peek_token (parser)->get_finish ();
- c_parser_consume_token (parser);
- expr.value = build_component_ref (op_loc, expr.value, ident,
- comp_loc);
- set_c_expr_source_range (&expr, start, finish);
- expr.original_code = ERROR_MARK;
- if (TREE_CODE (expr.value) != COMPONENT_REF)
- expr.original_type = NULL;
- else
- {
- /* Remember the original type of a bitfield. */
- tree field = TREE_OPERAND (expr.value, 1);
- if (TREE_CODE (field) != FIELD_DECL)
- expr.original_type = NULL;
- else
- expr.original_type = DECL_BIT_FIELD_TYPE (field);
- }
- break;
- }
- case CPP_DEREF:
- {
- /* Structure element reference. */
- if (!POINTER_TYPE_P (TREE_TYPE (expr.value)))
- {
- c_parser_error (parser, "dereference of non-pointer");
- expr.set_error ();
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- return expr;
- }
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_NAME))
- {
- c_token *comp_tok = c_parser_peek_token (parser);
- ident = comp_tok->value;
- comp_loc = comp_tok->location;
- }
- else
- {
- c_parser_error (parser, "expected identifier");
- expr.set_error ();
- expr.original_code = ERROR_MARK;
- expr.original_type = NULL;
- return expr;
- }
- start = expr.get_start ();
- finish = c_parser_peek_token (parser)->get_finish ();
- c_parser_consume_token (parser);
- expr.value = build_component_ref (op_loc,
- build_simple_mem_ref_loc
- (op_loc, expr.value),
- ident, comp_loc);
- set_c_expr_source_range (&expr, start, finish);
- expr.original_code = ERROR_MARK;
- if (TREE_CODE (expr.value) != COMPONENT_REF)
- expr.original_type = NULL;
- else
- {
- /* Remember the original type of a bitfield. */
- tree field = TREE_OPERAND (expr.value, 1);
- if (TREE_CODE (field) != FIELD_DECL)
- expr.original_type = NULL;
- else
- expr.original_type = DECL_BIT_FIELD_TYPE (field);
- }
- break;
- }
- default:
- return expr;
- }
- }
-}
-
-/* Parse expression list.
-
- gimple-expr-list:
- gimple-unary-expression
- gimple-expr-list , gimple-unary-expression
-
- */
-
-static void
-c_parser_gimple_expr_list (gimple_parser &parser, vec<tree> *ret)
-{
- struct c_expr expr;
-
- expr = c_parser_gimple_unary_expression (parser);
- ret->safe_push (expr.value);
- while (c_parser_next_token_is (parser, CPP_COMMA))
- {
- c_parser_consume_token (parser);
- expr = c_parser_gimple_unary_expression (parser);
- ret->safe_push (expr.value);
- }
-}
-
-/* Parse gimple label.
-
- gimple-label:
- identifier :
- case constant-expression :
- default :
-
-*/
-
-static void
-c_parser_gimple_label (gimple_parser &parser, gimple_seq *seq)
-{
- tree name = c_parser_peek_token (parser)->value;
- location_t loc1 = c_parser_peek_token (parser)->location;
- gcc_assert (c_parser_next_token_is (parser, CPP_NAME));
- c_parser_consume_token (parser);
- gcc_assert (c_parser_next_token_is (parser, CPP_COLON));
- c_parser_consume_token (parser);
- tree label = define_label (loc1, name);
- if (label)
- gimple_seq_add_stmt_without_update (seq, gimple_build_label (label));
- return;
-}
-
-/* Parse gimple/RTL pass list.
-
- gimple-or-rtl-pass-list:
- startwith("pass-name")[,{cfg,ssa}]
- */
-
-void
-c_parser_gimple_or_rtl_pass_list (c_parser *parser, c_declspecs *specs)
-{
- char *pass = NULL;
-
- /* Accept __GIMPLE/__RTL. */
- if (c_parser_next_token_is_not (parser, CPP_OPEN_PAREN))
- return;
- c_parser_consume_token (parser);
-
- specs->entry_bb_count = profile_count::uninitialized ();
- while (c_parser_next_token_is (parser, CPP_NAME))
- {
- profile_quality quality;
- const char *op = IDENTIFIER_POINTER (c_parser_peek_token (parser)->value);
- c_parser_consume_token (parser);
- if (! strcmp (op, "startwith"))
- {
- if (! c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return;
- if (c_parser_next_token_is_not (parser, CPP_STRING))
- {
- error_at (c_parser_peek_token (parser)->location,
- "expected pass name");
- return;
- }
- pass = xstrdup (TREE_STRING_POINTER
- (c_parser_string_literal (parser, false,
- false).value));
- if (! c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<(%>"))
- return;
- }
- else if (parse_profile_quality (op, &quality))
- {
- tree q;
- if (!c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return;
-
- if (!c_parser_next_token_is (parser, CPP_NUMBER)
- || (TREE_CODE (q = c_parser_peek_token (parser)->value)
- != INTEGER_CST))
- {
- c_parser_error (parser, "expected count value");
- return;
- }
-
- specs->entry_bb_count
- = profile_count::from_gcov_type (TREE_INT_CST_LOW (q), quality);
- c_parser_consume_token (parser);
- if (!c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return;
- }
- else if (specs->declspec_il != cdil_gimple)
- /* Allow only one IL specifier and none on RTL. */
- ;
- else if (! strcmp (op, "cfg"))
- specs->declspec_il = cdil_gimple_cfg;
- else if (! strcmp (op, "ssa"))
- specs->declspec_il = cdil_gimple_ssa;
- else
- {
- error_at (c_parser_peek_token (parser)->location,
- "invalid operation");
- return;
- }
- if (c_parser_next_token_is (parser, CPP_COMMA))
- c_parser_consume_token (parser);
- }
-
- if (! c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return;
-
- specs->gimple_or_rtl_pass = pass;
-}
-
-/* Parse gimple local declaration.
-
- declaration-specifiers:
- storage-class-specifier declaration-specifiers[opt]
- type-specifier declaration-specifiers[opt]
- type-qualifier declaration-specifiers[opt]
- function-specifier declaration-specifiers[opt]
- alignment-specifier declaration-specifiers[opt]
-
- storage-class-specifier:
- typedef
- extern
- static
- auto
- register
-
- type-specifier:
- void
- char
- short
- int
- long
- float
- double
- signed
- unsigned
- _Bool
- _Complex
-
- type-qualifier:
- const
- restrict
- volatile
- address-space-qualifier
- _Atomic
-
- */
-
-static void
-c_parser_gimple_declaration (gimple_parser &parser)
-{
- struct c_declarator *declarator;
- struct c_declspecs *specs = build_null_declspecs ();
- c_parser_declspecs (parser, specs, true, true, true,
- true, true, true, true, cla_nonabstract_decl);
- finish_declspecs (specs);
-
- /* Provide better error recovery. Note that a type name here is usually
- better diagnosed as a redeclaration. */
- if (c_parser_next_token_starts_declspecs (parser)
- && ! c_parser_next_token_is (parser, CPP_NAME))
- {
- c_parser_error (parser, "expected %<;%>");
- c_parser_set_error (parser, false);
- return;
- }
-
- bool dummy = false;
- declarator = c_parser_declarator (parser,
- specs->typespec_kind != ctsk_none,
- C_DTR_NORMAL, &dummy);
-
- if (c_parser_next_token_is (parser, CPP_SEMICOLON))
- {
- /* Handle SSA name decls specially, they do not go into the identifier
- table but we simply build the SSA name for later lookup. */
- unsigned version, ver_offset;
- if (declarator->kind == cdk_id
- && is_gimple_reg_type (specs->type)
- && c_parser_parse_ssa_name_id (declarator->u.id.id,
- &version, &ver_offset)
- /* The following restricts it to unnamed anonymous SSA names
- which fails parsing of named ones in dumps (we could
- decide to not dump their name for -gimple). */
- && ver_offset == 0)
- c_parser_parse_ssa_name (parser, declarator->u.id.id, specs->type,
- version, ver_offset);
- else
- {
- tree postfix_attrs = NULL_TREE;
- tree all_prefix_attrs = specs->attrs;
- specs->attrs = NULL;
- tree decl = start_decl (declarator, specs, false,
- chainon (postfix_attrs, all_prefix_attrs));
- if (decl)
- finish_decl (decl, UNKNOWN_LOCATION, NULL_TREE, NULL_TREE,
- NULL_TREE);
- }
- }
- else
- {
- c_parser_error (parser, "expected %<;%>");
- return;
- }
-}
-
-/* Parse gimple goto statement. */
-
-static void
-c_parser_gimple_goto_stmt (gimple_parser &parser,
- location_t loc, tree label, gimple_seq *seq)
-{
- if (cfun->curr_properties & PROP_cfg)
- {
- int dest_index;
- profile_probability prob;
- if (c_parser_gimple_parse_bb_spec_edge_probability (label, parser,
- &dest_index, &prob))
- {
- parser.push_edge (parser.current_bb->index, dest_index,
- EDGE_FALLTHRU, prob);
- return;
- }
- }
- tree decl = lookup_label_for_goto (loc, label);
- gimple_seq_add_stmt_without_update (seq, gimple_build_goto (decl));
-}
-
-/* Parse a parenthesized condition.
- gimple-condition:
- ( gimple-binary-expression ) */
-
-static tree
-c_parser_gimple_paren_condition (gimple_parser &parser)
-{
- if (! c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return error_mark_node;
- tree cond = c_parser_gimple_binary_expression (parser).value;
- if (cond != error_mark_node
- && ! COMPARISON_CLASS_P (cond)
- && ! CONSTANT_CLASS_P (cond)
- && ! SSA_VAR_P (cond))
- {
- c_parser_error (parser, "comparison required");
- cond = error_mark_node;
- }
- if (! c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return error_mark_node;
- return cond;
-}
-
-/* Parse gimple try statement.
-
- try-statement:
- try { ... } finally { ... }
- try { ... } finally { ... } else { ... }
-
- This could support try/catch as well, but it's not implemented yet.
- */
-
-static void
-c_parser_gimple_try_stmt (gimple_parser &parser, gimple_seq *seq)
-{
- gimple_seq tryseq = NULL;
- c_parser_consume_token (parser);
- c_parser_gimple_compound_statement (parser, &tryseq);
-
- if ((c_parser_next_token_is (parser, CPP_KEYWORD)
- && c_parser_peek_token (parser)->keyword == RID_AT_FINALLY)
- || (c_parser_next_token_is (parser, CPP_NAME)
- && c_parser_peek_token (parser)->id_kind == C_ID_ID
- && strcmp (IDENTIFIER_POINTER (c_parser_peek_token (parser)->value),
- "finally") == 0))
- {
- gimple_seq finseq = NULL;
- c_parser_consume_token (parser);
- c_parser_gimple_compound_statement (parser, &finseq);
-
- if (c_parser_next_token_is (parser, CPP_KEYWORD)
- && c_parser_peek_token (parser)->keyword == RID_ELSE)
- {
- gimple_seq elsseq = NULL;
- c_parser_consume_token (parser);
- c_parser_gimple_compound_statement (parser, &elsseq);
-
- geh_else *stmt = gimple_build_eh_else (finseq, elsseq);
- finseq = NULL;
- gimple_seq_add_stmt_without_update (&finseq, stmt);
- }
-
- gtry *stmt = gimple_build_try (tryseq, finseq, GIMPLE_TRY_FINALLY);
- gimple_seq_add_stmt_without_update (seq, stmt);
- }
- else if (c_parser_next_token_is (parser, CPP_KEYWORD)
- && c_parser_peek_token (parser)->keyword == RID_AT_CATCH)
- c_parser_error (parser, "%<catch%> is not supported");
- else
- c_parser_error (parser, "expected %<finally%> or %<catch%>");
-}
-
-/* Parse gimple if-else statement.
-
- if-statement:
- if ( gimple-binary-expression ) gimple-goto-statement
- if ( gimple-binary-expression ) gimple-goto-statement \
- else gimple-goto-statement
- */
-
-static void
-c_parser_gimple_if_stmt (gimple_parser &parser, gimple_seq *seq)
-{
- tree t_label = NULL_TREE, f_label = NULL_TREE, label;
- location_t loc;
- c_parser_consume_token (parser);
- tree cond = c_parser_gimple_paren_condition (parser);
-
- if (c_parser_next_token_is_keyword (parser, RID_GOTO))
- {
- loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- if (! c_parser_next_token_is (parser, CPP_NAME))
- {
- c_parser_error (parser, "expected label");
- return;
- }
- label = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- int dest_index;
- profile_probability prob;
- if ((cfun->curr_properties & PROP_cfg)
- && c_parser_gimple_parse_bb_spec_edge_probability (label, parser,
- &dest_index, &prob))
- parser.push_edge (parser.current_bb->index, dest_index,
- EDGE_TRUE_VALUE, prob);
- else
- t_label = lookup_label_for_goto (loc, label);
- if (! c_parser_require (parser, CPP_SEMICOLON, "expected %<;%>"))
- return;
- }
- else
- {
- c_parser_error (parser, "expected goto expression");
- return;
- }
-
- if (c_parser_next_token_is_keyword (parser, RID_ELSE))
- c_parser_consume_token (parser);
- else
- {
- c_parser_error (parser, "expected else statement");
- return;
- }
-
- if (c_parser_next_token_is_keyword (parser, RID_GOTO))
- {
- loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- if (! c_parser_next_token_is (parser, CPP_NAME))
- {
- c_parser_error (parser, "expected label");
- return;
- }
- label = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- int dest_index;
- profile_probability prob;
- if ((cfun->curr_properties & PROP_cfg)
- && c_parser_gimple_parse_bb_spec_edge_probability (label, parser,
- &dest_index, &prob))
- parser.push_edge (parser.current_bb->index, dest_index,
- EDGE_FALSE_VALUE, prob);
- else
- f_label = lookup_label_for_goto (loc, label);
- if (! c_parser_require (parser, CPP_SEMICOLON, "expected %<;%>"))
- return;
- }
- else
- {
- c_parser_error (parser, "expected goto expression");
- return;
- }
-
- if (cond != error_mark_node)
- gimple_seq_add_stmt_without_update (seq, gimple_build_cond_from_tree (cond, t_label,
- f_label));
-}
-
-/* Parse gimple switch-statement.
-
- gimple-switch-statement:
- switch (gimple-postfix-expression) gimple-case-statement
-
- gimple-case-statement:
- gimple-case-statement
- gimple-label-statement : gimple-goto-statment
-*/
-
-static void
-c_parser_gimple_switch_stmt (gimple_parser &parser, gimple_seq *seq)
-{
- c_expr cond_expr;
- tree case_label, label;
- auto_vec<tree> labels;
- tree default_label = NULL_TREE;
- c_parser_consume_token (parser);
-
- if (! c_parser_require (parser, CPP_OPEN_PAREN, "expected %<(%>"))
- return;
- cond_expr = c_parser_gimple_postfix_expression (parser);
- if (! c_parser_require (parser, CPP_CLOSE_PAREN, "expected %<)%>"))
- return;
-
- if (! c_parser_require (parser, CPP_OPEN_BRACE, "expected %<{%>"))
- return;
-
- while (c_parser_next_token_is_not (parser, CPP_CLOSE_BRACE))
- {
- if (c_parser_next_token_is (parser, CPP_EOF))
- {
- c_parser_error (parser, "expected statement");
- return;
- }
-
- switch (c_parser_peek_token (parser)->keyword)
- {
- case RID_CASE:
- {
- c_expr exp1;
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
-
- if (c_parser_next_token_is (parser, CPP_NAME)
- || c_parser_peek_token (parser)->type == CPP_NUMBER)
- exp1 = c_parser_gimple_postfix_expression (parser);
- else
- {
- c_parser_error (parser, "expected expression");
- return;
- }
-
- if (c_parser_next_token_is (parser, CPP_COLON))
- {
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_NAME))
- {
- label = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- tree decl = lookup_label_for_goto (loc, label);
- case_label = build_case_label (exp1.value, NULL_TREE,
- decl);
- labels.safe_push (case_label);
- if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<;%>"))
- return;
- }
- else if (! c_parser_require (parser, CPP_NAME,
- "expected label"))
- return;
- }
- else if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<:%>"))
- return;
- break;
- }
- case RID_DEFAULT:
- {
- location_t loc = c_parser_peek_token (parser)->location;
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_COLON))
- {
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_NAME))
- {
- label = c_parser_peek_token (parser)->value;
- c_parser_consume_token (parser);
- tree decl = lookup_label_for_goto (loc, label);
- default_label = build_case_label (NULL_TREE, NULL_TREE,
- decl);
- if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<;%>"))
- return;
- }
- else if (! c_parser_require (parser, CPP_NAME,
- "expected label"))
- return;
- }
- else if (! c_parser_require (parser, CPP_SEMICOLON,
- "expected %<:%>"))
- return;
- break;
- }
- default:
- c_parser_error (parser, "expected case label");
- return;
- }
-
- }
- if (! c_parser_require (parser, CPP_CLOSE_BRACE, "expected %<}%>"))
- return;
-
- if (cond_expr.value != error_mark_node)
- {
- gswitch *s = gimple_build_switch (cond_expr.value, default_label, labels);
- gimple_seq_add_stmt_without_update (seq, s);
- }
-}
-
-/* Parse gimple return statement. */
-
-static void
-c_parser_gimple_return_stmt (gimple_parser &parser, gimple_seq *seq)
-{
- location_t loc = c_parser_peek_token (parser)->location;
- gimple *ret = NULL;
- c_parser_consume_token (parser);
- if (c_parser_next_token_is (parser, CPP_SEMICOLON))
- {
- c_finish_gimple_return (loc, NULL_TREE);
- ret = gimple_build_return (NULL);
- gimple_seq_add_stmt_without_update (seq, ret);
- }
- else
- {
- location_t xloc = c_parser_peek_token (parser)->location;
- c_expr expr = c_parser_gimple_unary_expression (parser);
- if (expr.value != error_mark_node)
- {
- c_finish_gimple_return (xloc, expr.value);
- ret = gimple_build_return (expr.value);
- gimple_seq_add_stmt_without_update (seq, ret);
- }
- }
-}
-
-/* Support function for c_parser_gimple_return_stmt. */
-
-static void
-c_finish_gimple_return (location_t loc, tree retval)
-{
- tree valtype = TREE_TYPE (TREE_TYPE (current_function_decl));
-
- /* Use the expansion point to handle cases such as returning NULL
- in a function returning void. */
- location_t xloc = expansion_point_location_if_in_system_header (loc);
-
- if (TREE_THIS_VOLATILE (current_function_decl))
- warning_at (xloc, 0,
- "function declared %<noreturn%> has a %<return%> statement");
-
- if (! retval)
- current_function_returns_null = 1;
- else if (valtype == 0 || TREE_CODE (valtype) == VOID_TYPE)
- {
- current_function_returns_null = 1;
- if (TREE_CODE (TREE_TYPE (retval)) != VOID_TYPE)
- {
- error_at
- (xloc, "%<return%> with a value, in function returning void");
- inform (DECL_SOURCE_LOCATION (current_function_decl),
- "declared here");
- }
- }
- else if (TREE_CODE (valtype) != TREE_CODE (TREE_TYPE (retval)))
- {
- error_at
- (xloc, "invalid conversion in return statement");
- inform (DECL_SOURCE_LOCATION (current_function_decl),
- "declared here");
- }
- return;
-}
generated by cgit v1.1 at 2025-08-10 09:05:27 +0000