aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans.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/fortran/trans.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/fortran/trans.c')
-rw-r--r--gcc/fortran/trans.c2452
1 files changed, 0 insertions, 2452 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c
deleted file mode 100644
index 26f0815..0000000
--- a/gcc/fortran/trans.c
+++ /dev/null
@@ -1,2452 +0,0 @@
-/* Code translation -- generate GCC trees from gfc_code.
- Copyright (C) 2002-2022 Free Software Foundation, Inc.
- Contributed by Paul Brook
-
-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 "options.h"
-#include "tree.h"
-#include "gfortran.h"
-#include "gimple-expr.h" /* For create_tmp_var_raw. */
-#include "trans.h"
-#include "stringpool.h"
-#include "fold-const.h"
-#include "tree-iterator.h"
-#include "trans-stmt.h"
-#include "trans-array.h"
-#include "trans-types.h"
-#include "trans-const.h"
-
-/* Naming convention for backend interface code:
-
- gfc_trans_* translate gfc_code into STMT trees.
-
- gfc_conv_* expression conversion
-
- gfc_get_* get a backend tree representation of a decl or type */
-
-static gfc_file *gfc_current_backend_file;
-
-const char gfc_msg_fault[] = N_("Array reference out of bounds");
-
-
-/* Return a location_t suitable for 'tree' for a gfortran locus. The way the
- parser works in gfortran, loc->lb->location contains only the line number
- and LOCATION_COLUMN is 0; hence, the column has to be added when generating
- locations for 'tree'. Cf. error.c's gfc_format_decoder. */
-
-location_t
-gfc_get_location (locus *loc)
-{
- return linemap_position_for_loc_and_offset (line_table, loc->lb->location,
- loc->nextc - loc->lb->line);
-}
-
-/* Advance along TREE_CHAIN n times. */
-
-tree
-gfc_advance_chain (tree t, int n)
-{
- for (; n > 0; n--)
- {
- gcc_assert (t != NULL_TREE);
- t = DECL_CHAIN (t);
- }
- return t;
-}
-
-static int num_var;
-
-#define MAX_PREFIX_LEN 20
-
-static tree
-create_var_debug_raw (tree type, const char *prefix)
-{
- /* Space for prefix + "_" + 10-digit-number + \0. */
- char name_buf[MAX_PREFIX_LEN + 1 + 10 + 1];
- tree t;
- int i;
-
- if (prefix == NULL)
- prefix = "gfc";
- else
- gcc_assert (strlen (prefix) <= MAX_PREFIX_LEN);
-
- for (i = 0; prefix[i] != 0; i++)
- name_buf[i] = gfc_wide_toupper (prefix[i]);
-
- snprintf (name_buf + i, sizeof (name_buf) - i, "_%d", num_var++);
-
- t = build_decl (input_location, VAR_DECL, get_identifier (name_buf), type);
-
- /* Not setting this causes some regressions. */
- DECL_ARTIFICIAL (t) = 1;
-
- /* We want debug info for it. */
- DECL_IGNORED_P (t) = 0;
- /* It should not be nameless. */
- DECL_NAMELESS (t) = 0;
-
- /* Make the variable writable. */
- TREE_READONLY (t) = 0;
-
- DECL_EXTERNAL (t) = 0;
- TREE_STATIC (t) = 0;
- TREE_USED (t) = 1;
-
- return t;
-}
-
-/* Creates a variable declaration with a given TYPE. */
-
-tree
-gfc_create_var_np (tree type, const char *prefix)
-{
- tree t;
-
- if (flag_debug_aux_vars)
- return create_var_debug_raw (type, prefix);
-
- t = create_tmp_var_raw (type, prefix);
-
- /* No warnings for anonymous variables. */
- if (prefix == NULL)
- suppress_warning (t);
-
- return t;
-}
-
-
-/* Like above, but also adds it to the current scope. */
-
-tree
-gfc_create_var (tree type, const char *prefix)
-{
- tree tmp;
-
- tmp = gfc_create_var_np (type, prefix);
-
- pushdecl (tmp);
-
- return tmp;
-}
-
-
-/* If the expression is not constant, evaluate it now. We assign the
- result of the expression to an artificially created variable VAR, and
- return a pointer to the VAR_DECL node for this variable. */
-
-tree
-gfc_evaluate_now_loc (location_t loc, tree expr, stmtblock_t * pblock)
-{
- tree var;
-
- if (CONSTANT_CLASS_P (expr))
- return expr;
-
- var = gfc_create_var (TREE_TYPE (expr), NULL);
- gfc_add_modify_loc (loc, pblock, var, expr);
-
- return var;
-}
-
-
-tree
-gfc_evaluate_now (tree expr, stmtblock_t * pblock)
-{
- return gfc_evaluate_now_loc (input_location, expr, pblock);
-}
-
-/* Like gfc_evaluate_now, but add the created variable to the
- function scope. */
-
-tree
-gfc_evaluate_now_function_scope (tree expr, stmtblock_t * pblock)
-{
- tree var;
- var = gfc_create_var_np (TREE_TYPE (expr), NULL);
- gfc_add_decl_to_function (var);
- gfc_add_modify (pblock, var, expr);
-
- return var;
-}
-
-/* Build a MODIFY_EXPR node and add it to a given statement block PBLOCK.
- A MODIFY_EXPR is an assignment:
- LHS <- RHS. */
-
-void
-gfc_add_modify_loc (location_t loc, stmtblock_t * pblock, tree lhs, tree rhs)
-{
- tree tmp;
-
- tree t1, t2;
- t1 = TREE_TYPE (rhs);
- t2 = TREE_TYPE (lhs);
- /* Make sure that the types of the rhs and the lhs are compatible
- for scalar assignments. We should probably have something
- similar for aggregates, but right now removing that check just
- breaks everything. */
- gcc_checking_assert (TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2)
- || AGGREGATE_TYPE_P (TREE_TYPE (lhs)));
-
- tmp = fold_build2_loc (loc, MODIFY_EXPR, void_type_node, lhs,
- rhs);
- gfc_add_expr_to_block (pblock, tmp);
-}
-
-
-void
-gfc_add_modify (stmtblock_t * pblock, tree lhs, tree rhs)
-{
- gfc_add_modify_loc (input_location, pblock, lhs, rhs);
-}
-
-
-/* Create a new scope/binding level and initialize a block. Care must be
- taken when translating expressions as any temporaries will be placed in
- the innermost scope. */
-
-void
-gfc_start_block (stmtblock_t * block)
-{
- /* Start a new binding level. */
- pushlevel ();
- block->has_scope = 1;
-
- /* The block is empty. */
- block->head = NULL_TREE;
-}
-
-
-/* Initialize a block without creating a new scope. */
-
-void
-gfc_init_block (stmtblock_t * block)
-{
- block->head = NULL_TREE;
- block->has_scope = 0;
-}
-
-
-/* Sometimes we create a scope but it turns out that we don't actually
- need it. This function merges the scope of BLOCK with its parent.
- Only variable decls will be merged, you still need to add the code. */
-
-void
-gfc_merge_block_scope (stmtblock_t * block)
-{
- tree decl;
- tree next;
-
- gcc_assert (block->has_scope);
- block->has_scope = 0;
-
- /* Remember the decls in this scope. */
- decl = getdecls ();
- poplevel (0, 0);
-
- /* Add them to the parent scope. */
- while (decl != NULL_TREE)
- {
- next = DECL_CHAIN (decl);
- DECL_CHAIN (decl) = NULL_TREE;
-
- pushdecl (decl);
- decl = next;
- }
-}
-
-
-/* Finish a scope containing a block of statements. */
-
-tree
-gfc_finish_block (stmtblock_t * stmtblock)
-{
- tree decl;
- tree expr;
- tree block;
-
- expr = stmtblock->head;
- if (!expr)
- expr = build_empty_stmt (input_location);
-
- stmtblock->head = NULL_TREE;
-
- if (stmtblock->has_scope)
- {
- decl = getdecls ();
-
- if (decl)
- {
- block = poplevel (1, 0);
- expr = build3_v (BIND_EXPR, decl, expr, block);
- }
- else
- poplevel (0, 0);
- }
-
- return expr;
-}
-
-
-/* Build an ADDR_EXPR and cast the result to TYPE. If TYPE is NULL, the
- natural type is used. */
-
-tree
-gfc_build_addr_expr (tree type, tree t)
-{
- tree base_type = TREE_TYPE (t);
- tree natural_type;
-
- if (type && POINTER_TYPE_P (type)
- && TREE_CODE (base_type) == ARRAY_TYPE
- && TYPE_MAIN_VARIANT (TREE_TYPE (type))
- == TYPE_MAIN_VARIANT (TREE_TYPE (base_type)))
- {
- tree min_val = size_zero_node;
- tree type_domain = TYPE_DOMAIN (base_type);
- if (type_domain && TYPE_MIN_VALUE (type_domain))
- min_val = TYPE_MIN_VALUE (type_domain);
- t = fold (build4_loc (input_location, ARRAY_REF, TREE_TYPE (type),
- t, min_val, NULL_TREE, NULL_TREE));
- natural_type = type;
- }
- else
- natural_type = build_pointer_type (base_type);
-
- if (TREE_CODE (t) == INDIRECT_REF)
- {
- if (!type)
- type = natural_type;
- t = TREE_OPERAND (t, 0);
- natural_type = TREE_TYPE (t);
- }
- else
- {
- tree base = get_base_address (t);
- if (base && DECL_P (base))
- TREE_ADDRESSABLE (base) = 1;
- t = fold_build1_loc (input_location, ADDR_EXPR, natural_type, t);
- }
-
- if (type && natural_type != type)
- t = convert (type, t);
-
- return t;
-}
-
-
-static tree
-get_array_span (tree type, tree decl)
-{
- tree span;
-
- /* Component references are guaranteed to have a reliable value for
- 'span'. Likewise indirect references since they emerge from the
- conversion of a CFI descriptor or the hidden dummy descriptor. */
- if (TREE_CODE (decl) == COMPONENT_REF
- && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (decl)))
- return gfc_conv_descriptor_span_get (decl);
- else if (TREE_CODE (decl) == INDIRECT_REF
- && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (decl)))
- return gfc_conv_descriptor_span_get (decl);
-
- /* Return the span for deferred character length array references. */
- if (type && TREE_CODE (type) == ARRAY_TYPE && TYPE_STRING_FLAG (type))
- {
- if (TREE_CODE (decl) == PARM_DECL)
- decl = build_fold_indirect_ref_loc (input_location, decl);
- if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (decl)))
- span = gfc_conv_descriptor_span_get (decl);
- else
- span = gfc_get_character_len_in_bytes (type);
- span = (span && !integer_zerop (span))
- ? (fold_convert (gfc_array_index_type, span)) : (NULL_TREE);
- }
- /* Likewise for class array or pointer array references. */
- else if (TREE_CODE (decl) == FIELD_DECL
- || VAR_OR_FUNCTION_DECL_P (decl)
- || TREE_CODE (decl) == PARM_DECL)
- {
- if (GFC_DECL_CLASS (decl))
- {
- /* When a temporary is in place for the class array, then the
- original class' declaration is stored in the saved
- descriptor. */
- if (DECL_LANG_SPECIFIC (decl) && GFC_DECL_SAVED_DESCRIPTOR (decl))
- decl = GFC_DECL_SAVED_DESCRIPTOR (decl);
- else
- {
- /* Allow for dummy arguments and other good things. */
- if (POINTER_TYPE_P (TREE_TYPE (decl)))
- decl = build_fold_indirect_ref_loc (input_location, decl);
-
- /* Check if '_data' is an array descriptor. If it is not,
- the array must be one of the components of the class
- object, so return a null span. */
- if (!GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (
- gfc_class_data_get (decl))))
- return NULL_TREE;
- }
- span = gfc_class_vtab_size_get (decl);
- /* For unlimited polymorphic entities then _len component needs
- to be multiplied with the size. */
- span = gfc_resize_class_size_with_len (NULL, decl, span);
- }
- else if (GFC_DECL_PTR_ARRAY_P (decl))
- {
- if (TREE_CODE (decl) == PARM_DECL)
- decl = build_fold_indirect_ref_loc (input_location, decl);
- span = gfc_conv_descriptor_span_get (decl);
- }
- else
- span = NULL_TREE;
- }
- else
- span = NULL_TREE;
-
- return span;
-}
-
-
-tree
-gfc_build_spanned_array_ref (tree base, tree offset, tree span)
-{
- tree type;
- tree tmp;
- type = TREE_TYPE (TREE_TYPE (base));
- offset = fold_build2_loc (input_location, MULT_EXPR,
- gfc_array_index_type,
- offset, span);
- tmp = gfc_build_addr_expr (pvoid_type_node, base);
- tmp = fold_build_pointer_plus_loc (input_location, tmp, offset);
- tmp = fold_convert (build_pointer_type (type), tmp);
- if ((TREE_CODE (type) != INTEGER_TYPE && TREE_CODE (type) != ARRAY_TYPE)
- || !TYPE_STRING_FLAG (type))
- tmp = build_fold_indirect_ref_loc (input_location, tmp);
- return tmp;
-}
-
-
-/* Build an ARRAY_REF with its natural type. */
-
-tree
-gfc_build_array_ref (tree base, tree offset, tree decl, tree vptr)
-{
- tree type = TREE_TYPE (base);
- tree span = NULL_TREE;
-
- if (GFC_ARRAY_TYPE_P (type) && GFC_TYPE_ARRAY_RANK (type) == 0)
- {
- gcc_assert (GFC_TYPE_ARRAY_CORANK (type) > 0);
-
- return fold_convert (TYPE_MAIN_VARIANT (type), base);
- }
-
- /* Scalar coarray, there is nothing to do. */
- if (TREE_CODE (type) != ARRAY_TYPE)
- {
- gcc_assert (decl == NULL_TREE);
- gcc_assert (integer_zerop (offset));
- return base;
- }
-
- type = TREE_TYPE (type);
-
- if (DECL_P (base))
- TREE_ADDRESSABLE (base) = 1;
-
- /* Strip NON_LVALUE_EXPR nodes. */
- STRIP_TYPE_NOPS (offset);
-
- /* If decl or vptr are non-null, pointer arithmetic for the array reference
- is likely. Generate the 'span' for the array reference. */
- if (vptr)
- {
- span = gfc_vptr_size_get (vptr);
-
- /* Check if this is an unlimited polymorphic object carrying a character
- payload. In this case, the 'len' field is non-zero. */
- if (decl && GFC_CLASS_TYPE_P (TREE_TYPE (decl)))
- span = gfc_resize_class_size_with_len (NULL, decl, span);
- }
- else if (decl)
- span = get_array_span (type, decl);
-
- /* If a non-null span has been generated reference the element with
- pointer arithmetic. */
- if (span != NULL_TREE)
- return gfc_build_spanned_array_ref (base, offset, span);
- /* Otherwise use a straightforward array reference. */
- else
- return build4_loc (input_location, ARRAY_REF, type, base, offset,
- NULL_TREE, NULL_TREE);
-}
-
-
-/* Generate a call to print a runtime error possibly including multiple
- arguments and a locus. */
-
-static tree
-trans_runtime_error_vararg (tree errorfunc, locus* where, const char* msgid,
- va_list ap)
-{
- stmtblock_t block;
- tree tmp;
- tree arg, arg2;
- tree *argarray;
- tree fntype;
- char *message;
- const char *p;
- int line, nargs, i;
- location_t loc;
-
- /* Compute the number of extra arguments from the format string. */
- for (p = msgid, nargs = 0; *p; p++)
- if (*p == '%')
- {
- p++;
- if (*p != '%')
- nargs++;
- }
-
- /* The code to generate the error. */
- gfc_start_block (&block);
-
- if (where)
- {
- line = LOCATION_LINE (where->lb->location);
- message = xasprintf ("At line %d of file %s", line,
- where->lb->file->filename);
- }
- else
- message = xasprintf ("In file '%s', around line %d",
- gfc_source_file, LOCATION_LINE (input_location) + 1);
-
- arg = gfc_build_addr_expr (pchar_type_node,
- gfc_build_localized_cstring_const (message));
- free (message);
-
- message = xasprintf ("%s", _(msgid));
- arg2 = gfc_build_addr_expr (pchar_type_node,
- gfc_build_localized_cstring_const (message));
- free (message);
-
- /* Build the argument array. */
- argarray = XALLOCAVEC (tree, nargs + 2);
- argarray[0] = arg;
- argarray[1] = arg2;
- for (i = 0; i < nargs; i++)
- argarray[2 + i] = va_arg (ap, tree);
-
- /* Build the function call to runtime_(warning,error)_at; because of the
- variable number of arguments, we can't use build_call_expr_loc dinput_location,
- irectly. */
- fntype = TREE_TYPE (errorfunc);
-
- loc = where ? gfc_get_location (where) : input_location;
- tmp = fold_build_call_array_loc (loc, TREE_TYPE (fntype),
- fold_build1_loc (loc, ADDR_EXPR,
- build_pointer_type (fntype),
- errorfunc),
- nargs + 2, argarray);
- gfc_add_expr_to_block (&block, tmp);
-
- return gfc_finish_block (&block);
-}
-
-
-tree
-gfc_trans_runtime_error (bool error, locus* where, const char* msgid, ...)
-{
- va_list ap;
- tree result;
-
- va_start (ap, msgid);
- result = trans_runtime_error_vararg (error
- ? gfor_fndecl_runtime_error_at
- : gfor_fndecl_runtime_warning_at,
- where, msgid, ap);
- va_end (ap);
- return result;
-}
-
-
-/* Generate a runtime error if COND is true. */
-
-void
-gfc_trans_runtime_check (bool error, bool once, tree cond, stmtblock_t * pblock,
- locus * where, const char * msgid, ...)
-{
- va_list ap;
- stmtblock_t block;
- tree body;
- tree tmp;
- tree tmpvar = NULL;
-
- if (integer_zerop (cond))
- return;
-
- if (once)
- {
- tmpvar = gfc_create_var (boolean_type_node, "print_warning");
- TREE_STATIC (tmpvar) = 1;
- DECL_INITIAL (tmpvar) = boolean_true_node;
- gfc_add_expr_to_block (pblock, tmpvar);
- }
-
- gfc_start_block (&block);
-
- /* For error, runtime_error_at already implies PRED_NORETURN. */
- if (!error && once)
- gfc_add_expr_to_block (&block, build_predict_expr (PRED_FORTRAN_WARN_ONCE,
- NOT_TAKEN));
-
- /* The code to generate the error. */
- va_start (ap, msgid);
- gfc_add_expr_to_block (&block,
- trans_runtime_error_vararg
- (error ? gfor_fndecl_runtime_error_at
- : gfor_fndecl_runtime_warning_at,
- where, msgid, ap));
- va_end (ap);
-
- if (once)
- gfc_add_modify (&block, tmpvar, boolean_false_node);
-
- body = gfc_finish_block (&block);
-
- if (integer_onep (cond))
- {
- gfc_add_expr_to_block (pblock, body);
- }
- else
- {
- if (once)
- cond = fold_build2_loc (gfc_get_location (where), TRUTH_AND_EXPR,
- boolean_type_node, tmpvar,
- fold_convert (boolean_type_node, cond));
-
- tmp = fold_build3_loc (gfc_get_location (where), COND_EXPR, void_type_node,
- cond, body,
- build_empty_stmt (gfc_get_location (where)));
- gfc_add_expr_to_block (pblock, tmp);
- }
-}
-
-
-static tree
-trans_os_error_at (locus* where, const char* msgid, ...)
-{
- va_list ap;
- tree result;
-
- va_start (ap, msgid);
- result = trans_runtime_error_vararg (gfor_fndecl_os_error_at,
- where, msgid, ap);
- va_end (ap);
- return result;
-}
-
-
-
-/* Call malloc to allocate size bytes of memory, with special conditions:
- + if size == 0, return a malloced area of size 1,
- + if malloc returns NULL, issue a runtime error. */
-tree
-gfc_call_malloc (stmtblock_t * block, tree type, tree size)
-{
- tree tmp, malloc_result, null_result, res, malloc_tree;
- stmtblock_t block2;
-
- /* Create a variable to hold the result. */
- res = gfc_create_var (prvoid_type_node, NULL);
-
- /* Call malloc. */
- gfc_start_block (&block2);
-
- if (size == NULL_TREE)
- size = build_int_cst (size_type_node, 1);
-
- size = fold_convert (size_type_node, size);
- size = fold_build2_loc (input_location, MAX_EXPR, size_type_node, size,
- build_int_cst (size_type_node, 1));
-
- malloc_tree = builtin_decl_explicit (BUILT_IN_MALLOC);
- gfc_add_modify (&block2, res,
- fold_convert (prvoid_type_node,
- build_call_expr_loc (input_location,
- malloc_tree, 1, size)));
-
- /* Optionally check whether malloc was successful. */
- if (gfc_option.rtcheck & GFC_RTCHECK_MEM)
- {
- null_result = fold_build2_loc (input_location, EQ_EXPR,
- logical_type_node, res,
- build_int_cst (pvoid_type_node, 0));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- null_result,
- trans_os_error_at (NULL,
- "Error allocating %lu bytes",
- fold_convert
- (long_unsigned_type_node,
- size)),
- build_empty_stmt (input_location));
- gfc_add_expr_to_block (&block2, tmp);
- }
-
- malloc_result = gfc_finish_block (&block2);
- gfc_add_expr_to_block (block, malloc_result);
-
- if (type != NULL)
- res = fold_convert (type, res);
- return res;
-}
-
-
-/* Allocate memory, using an optional status argument.
-
- This function follows the following pseudo-code:
-
- void *
- allocate (size_t size, integer_type stat)
- {
- void *newmem;
-
- if (stat requested)
- stat = 0;
-
- newmem = malloc (MAX (size, 1));
- if (newmem == NULL)
- {
- if (stat)
- *stat = LIBERROR_ALLOCATION;
- else
- runtime_error ("Allocation would exceed memory limit");
- }
- return newmem;
- } */
-void
-gfc_allocate_using_malloc (stmtblock_t * block, tree pointer,
- tree size, tree status)
-{
- tree tmp, error_cond;
- stmtblock_t on_error;
- tree status_type = status ? TREE_TYPE (status) : NULL_TREE;
-
- /* If successful and stat= is given, set status to 0. */
- if (status != NULL_TREE)
- gfc_add_expr_to_block (block,
- fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- status, build_int_cst (status_type, 0)));
-
- /* The allocation itself. */
- size = fold_convert (size_type_node, size);
- gfc_add_modify (block, pointer,
- fold_convert (TREE_TYPE (pointer),
- build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_MALLOC), 1,
- fold_build2_loc (input_location,
- MAX_EXPR, size_type_node, size,
- build_int_cst (size_type_node, 1)))));
-
- /* What to do in case of error. */
- gfc_start_block (&on_error);
- if (status != NULL_TREE)
- {
- tmp = fold_build2_loc (input_location, MODIFY_EXPR, status_type, status,
- build_int_cst (status_type, LIBERROR_ALLOCATION));
- gfc_add_expr_to_block (&on_error, tmp);
- }
- else
- {
- /* Here, os_error_at already implies PRED_NORETURN. */
- tree lusize = fold_convert (long_unsigned_type_node, size);
- tmp = trans_os_error_at (NULL, "Error allocating %lu bytes", lusize);
- gfc_add_expr_to_block (&on_error, tmp);
- }
-
- error_cond = fold_build2_loc (input_location, EQ_EXPR,
- logical_type_node, pointer,
- build_int_cst (prvoid_type_node, 0));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- gfc_unlikely (error_cond, PRED_FORTRAN_FAIL_ALLOC),
- gfc_finish_block (&on_error),
- build_empty_stmt (input_location));
-
- gfc_add_expr_to_block (block, tmp);
-}
-
-
-/* Allocate memory, using an optional status argument.
-
- This function follows the following pseudo-code:
-
- void *
- allocate (size_t size, void** token, int *stat, char* errmsg, int errlen)
- {
- void *newmem;
-
- newmem = _caf_register (size, regtype, token, &stat, errmsg, errlen);
- return newmem;
- } */
-void
-gfc_allocate_using_caf_lib (stmtblock_t * block, tree pointer, tree size,
- tree token, tree status, tree errmsg, tree errlen,
- gfc_coarray_regtype alloc_type)
-{
- tree tmp, pstat;
-
- gcc_assert (token != NULL_TREE);
-
- /* The allocation itself. */
- if (status == NULL_TREE)
- pstat = null_pointer_node;
- else
- pstat = gfc_build_addr_expr (NULL_TREE, status);
-
- if (errmsg == NULL_TREE)
- {
- gcc_assert(errlen == NULL_TREE);
- errmsg = null_pointer_node;
- errlen = build_int_cst (integer_type_node, 0);
- }
-
- size = fold_convert (size_type_node, size);
- tmp = build_call_expr_loc (input_location,
- gfor_fndecl_caf_register, 7,
- fold_build2_loc (input_location,
- MAX_EXPR, size_type_node, size, size_one_node),
- build_int_cst (integer_type_node, alloc_type),
- token, gfc_build_addr_expr (pvoid_type_node, pointer),
- pstat, errmsg, errlen);
-
- gfc_add_expr_to_block (block, tmp);
-
- /* It guarantees memory consistency within the same segment */
- tmp = gfc_build_string_const (strlen ("memory")+1, "memory"),
- tmp = build5_loc (input_location, ASM_EXPR, void_type_node,
- gfc_build_string_const (1, ""), NULL_TREE, NULL_TREE,
- tree_cons (NULL_TREE, tmp, NULL_TREE), NULL_TREE);
- ASM_VOLATILE_P (tmp) = 1;
- gfc_add_expr_to_block (block, tmp);
-}
-
-
-/* Generate code for an ALLOCATE statement when the argument is an
- allocatable variable. If the variable is currently allocated, it is an
- error to allocate it again.
-
- This function follows the following pseudo-code:
-
- void *
- allocate_allocatable (void *mem, size_t size, integer_type stat)
- {
- if (mem == NULL)
- return allocate (size, stat);
- else
- {
- if (stat)
- stat = LIBERROR_ALLOCATION;
- else
- runtime_error ("Attempting to allocate already allocated variable");
- }
- }
-
- expr must be set to the original expression being allocated for its locus
- and variable name in case a runtime error has to be printed. */
-void
-gfc_allocate_allocatable (stmtblock_t * block, tree mem, tree size,
- tree token, tree status, tree errmsg, tree errlen,
- tree label_finish, gfc_expr* expr, int corank)
-{
- stmtblock_t alloc_block;
- tree tmp, null_mem, alloc, error;
- tree type = TREE_TYPE (mem);
- symbol_attribute caf_attr;
- bool need_assign = false, refs_comp = false;
- gfc_coarray_regtype caf_alloc_type = GFC_CAF_COARRAY_ALLOC;
-
- size = fold_convert (size_type_node, size);
- null_mem = gfc_unlikely (fold_build2_loc (input_location, NE_EXPR,
- logical_type_node, mem,
- build_int_cst (type, 0)),
- PRED_FORTRAN_REALLOC);
-
- /* If mem is NULL, we call gfc_allocate_using_malloc or
- gfc_allocate_using_lib. */
- gfc_start_block (&alloc_block);
-
- if (flag_coarray == GFC_FCOARRAY_LIB)
- caf_attr = gfc_caf_attr (expr, true, &refs_comp);
-
- if (flag_coarray == GFC_FCOARRAY_LIB
- && (corank > 0 || caf_attr.codimension))
- {
- tree cond, sub_caf_tree;
- gfc_se se;
- bool compute_special_caf_types_size = false;
-
- if (expr->ts.type == BT_DERIVED
- && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV
- && expr->ts.u.derived->intmod_sym_id == ISOFORTRAN_LOCK_TYPE)
- {
- compute_special_caf_types_size = true;
- caf_alloc_type = GFC_CAF_LOCK_ALLOC;
- }
- else if (expr->ts.type == BT_DERIVED
- && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV
- && expr->ts.u.derived->intmod_sym_id == ISOFORTRAN_EVENT_TYPE)
- {
- compute_special_caf_types_size = true;
- caf_alloc_type = GFC_CAF_EVENT_ALLOC;
- }
- else if (!caf_attr.coarray_comp && refs_comp)
- /* Only allocatable components in a derived type coarray can be
- allocate only. */
- caf_alloc_type = GFC_CAF_COARRAY_ALLOC_ALLOCATE_ONLY;
-
- gfc_init_se (&se, NULL);
- sub_caf_tree = gfc_get_ultimate_alloc_ptr_comps_caf_token (&se, expr);
- if (sub_caf_tree == NULL_TREE)
- sub_caf_tree = token;
-
- /* When mem is an array ref, then strip the .data-ref. */
- if (TREE_CODE (mem) == COMPONENT_REF
- && !(GFC_ARRAY_TYPE_P (TREE_TYPE (mem))))
- tmp = TREE_OPERAND (mem, 0);
- else
- tmp = mem;
-
- if (!(GFC_ARRAY_TYPE_P (TREE_TYPE (tmp))
- && TYPE_LANG_SPECIFIC (TREE_TYPE (tmp))->corank == 0)
- && !GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (tmp)))
- {
- symbol_attribute attr;
-
- gfc_clear_attr (&attr);
- tmp = gfc_conv_scalar_to_descriptor (&se, mem, attr);
- need_assign = true;
- }
- gfc_add_block_to_block (&alloc_block, &se.pre);
-
- /* In the front end, we represent the lock variable as pointer. However,
- the FE only passes the pointer around and leaves the actual
- representation to the library. Hence, we have to convert back to the
- number of elements. */
- if (compute_special_caf_types_size)
- size = fold_build2_loc (input_location, TRUNC_DIV_EXPR, size_type_node,
- size, TYPE_SIZE_UNIT (ptr_type_node));
-
- gfc_allocate_using_caf_lib (&alloc_block, tmp, size, sub_caf_tree,
- status, errmsg, errlen, caf_alloc_type);
- if (need_assign)
- gfc_add_modify (&alloc_block, mem, fold_convert (TREE_TYPE (mem),
- gfc_conv_descriptor_data_get (tmp)));
- if (status != NULL_TREE)
- {
- TREE_USED (label_finish) = 1;
- tmp = build1_v (GOTO_EXPR, label_finish);
- cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- status, build_zero_cst (TREE_TYPE (status)));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- gfc_unlikely (cond, PRED_FORTRAN_FAIL_ALLOC),
- tmp, build_empty_stmt (input_location));
- gfc_add_expr_to_block (&alloc_block, tmp);
- }
- }
- else
- gfc_allocate_using_malloc (&alloc_block, mem, size, status);
-
- alloc = gfc_finish_block (&alloc_block);
-
- /* If mem is not NULL, we issue a runtime error or set the
- status variable. */
- if (expr)
- {
- tree varname;
-
- gcc_assert (expr->expr_type == EXPR_VARIABLE && expr->symtree);
- varname = gfc_build_cstring_const (expr->symtree->name);
- varname = gfc_build_addr_expr (pchar_type_node, varname);
-
- error = gfc_trans_runtime_error (true, &expr->where,
- "Attempting to allocate already"
- " allocated variable '%s'",
- varname);
- }
- else
- error = gfc_trans_runtime_error (true, NULL,
- "Attempting to allocate already allocated"
- " variable");
-
- if (status != NULL_TREE)
- {
- tree status_type = TREE_TYPE (status);
-
- error = fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- status, build_int_cst (status_type, LIBERROR_ALLOCATION));
- }
-
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node, null_mem,
- error, alloc);
- gfc_add_expr_to_block (block, tmp);
-}
-
-
-/* Free a given variable. */
-
-tree
-gfc_call_free (tree var)
-{
- return build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_FREE),
- 1, fold_convert (pvoid_type_node, var));
-}
-
-
-/* Build a call to a FINAL procedure, which finalizes "var". */
-
-static tree
-gfc_build_final_call (gfc_typespec ts, gfc_expr *final_wrapper, gfc_expr *var,
- bool fini_coarray, gfc_expr *class_size)
-{
- stmtblock_t block;
- gfc_se se;
- tree final_fndecl, array, size, tmp;
- symbol_attribute attr;
-
- gcc_assert (final_wrapper->expr_type == EXPR_VARIABLE);
- gcc_assert (var);
-
- gfc_start_block (&block);
- gfc_init_se (&se, NULL);
- gfc_conv_expr (&se, final_wrapper);
- final_fndecl = se.expr;
- if (POINTER_TYPE_P (TREE_TYPE (final_fndecl)))
- final_fndecl = build_fold_indirect_ref_loc (input_location, final_fndecl);
-
- if (ts.type == BT_DERIVED)
- {
- tree elem_size;
-
- gcc_assert (!class_size);
- elem_size = gfc_typenode_for_spec (&ts);
- elem_size = TYPE_SIZE_UNIT (elem_size);
- size = fold_convert (gfc_array_index_type, elem_size);
-
- gfc_init_se (&se, NULL);
- se.want_pointer = 1;
- if (var->rank)
- {
- se.descriptor_only = 1;
- gfc_conv_expr_descriptor (&se, var);
- array = se.expr;
- }
- else
- {
- gfc_conv_expr (&se, var);
- gcc_assert (se.pre.head == NULL_TREE && se.post.head == NULL_TREE);
- array = se.expr;
-
- /* No copy back needed, hence set attr's allocatable/pointer
- to zero. */
- gfc_clear_attr (&attr);
- gfc_init_se (&se, NULL);
- array = gfc_conv_scalar_to_descriptor (&se, array, attr);
- gcc_assert (se.post.head == NULL_TREE);
- }
- }
- else
- {
- gfc_expr *array_expr;
- gcc_assert (class_size);
- gfc_init_se (&se, NULL);
- gfc_conv_expr (&se, class_size);
- gfc_add_block_to_block (&block, &se.pre);
- gcc_assert (se.post.head == NULL_TREE);
- size = se.expr;
-
- array_expr = gfc_copy_expr (var);
- gfc_init_se (&se, NULL);
- se.want_pointer = 1;
- if (array_expr->rank)
- {
- gfc_add_class_array_ref (array_expr);
- se.descriptor_only = 1;
- gfc_conv_expr_descriptor (&se, array_expr);
- array = se.expr;
- }
- else
- {
- gfc_add_data_component (array_expr);
- gfc_conv_expr (&se, array_expr);
- gfc_add_block_to_block (&block, &se.pre);
- gcc_assert (se.post.head == NULL_TREE);
- array = se.expr;
-
- if (!gfc_is_coarray (array_expr))
- {
- /* No copy back needed, hence set attr's allocatable/pointer
- to zero. */
- gfc_clear_attr (&attr);
- gfc_init_se (&se, NULL);
- array = gfc_conv_scalar_to_descriptor (&se, array, attr);
- }
- gcc_assert (se.post.head == NULL_TREE);
- }
- gfc_free_expr (array_expr);
- }
-
- if (!POINTER_TYPE_P (TREE_TYPE (array)))
- array = gfc_build_addr_expr (NULL, array);
-
- gfc_add_block_to_block (&block, &se.pre);
- tmp = build_call_expr_loc (input_location,
- final_fndecl, 3, array,
- size, fini_coarray ? boolean_true_node
- : boolean_false_node);
- gfc_add_block_to_block (&block, &se.post);
- gfc_add_expr_to_block (&block, tmp);
- return gfc_finish_block (&block);
-}
-
-
-bool
-gfc_add_comp_finalizer_call (stmtblock_t *block, tree decl, gfc_component *comp,
- bool fini_coarray)
-{
- gfc_se se;
- stmtblock_t block2;
- tree final_fndecl, size, array, tmp, cond;
- symbol_attribute attr;
- gfc_expr *final_expr = NULL;
-
- if (comp->ts.type != BT_DERIVED && comp->ts.type != BT_CLASS)
- return false;
-
- gfc_init_block (&block2);
-
- if (comp->ts.type == BT_DERIVED)
- {
- if (comp->attr.pointer)
- return false;
-
- gfc_is_finalizable (comp->ts.u.derived, &final_expr);
- if (!final_expr)
- return false;
-
- gfc_init_se (&se, NULL);
- gfc_conv_expr (&se, final_expr);
- final_fndecl = se.expr;
- size = gfc_typenode_for_spec (&comp->ts);
- size = TYPE_SIZE_UNIT (size);
- size = fold_convert (gfc_array_index_type, size);
-
- array = decl;
- }
- else /* comp->ts.type == BT_CLASS. */
- {
- if (CLASS_DATA (comp)->attr.class_pointer)
- return false;
-
- gfc_is_finalizable (CLASS_DATA (comp)->ts.u.derived, &final_expr);
- final_fndecl = gfc_class_vtab_final_get (decl);
- size = gfc_class_vtab_size_get (decl);
- array = gfc_class_data_get (decl);
- }
-
- if (comp->attr.allocatable
- || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable))
- {
- tmp = GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (array))
- ? gfc_conv_descriptor_data_get (array) : array;
- cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- tmp, fold_convert (TREE_TYPE (tmp),
- null_pointer_node));
- }
- else
- cond = logical_true_node;
-
- if (!GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (array)))
- {
- gfc_clear_attr (&attr);
- gfc_init_se (&se, NULL);
- array = gfc_conv_scalar_to_descriptor (&se, array, attr);
- gfc_add_block_to_block (&block2, &se.pre);
- gcc_assert (se.post.head == NULL_TREE);
- }
-
- if (!POINTER_TYPE_P (TREE_TYPE (array)))
- array = gfc_build_addr_expr (NULL, array);
-
- if (!final_expr)
- {
- tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- final_fndecl,
- fold_convert (TREE_TYPE (final_fndecl),
- null_pointer_node));
- cond = fold_build2_loc (input_location, TRUTH_ANDIF_EXPR,
- logical_type_node, cond, tmp);
- }
-
- if (POINTER_TYPE_P (TREE_TYPE (final_fndecl)))
- final_fndecl = build_fold_indirect_ref_loc (input_location, final_fndecl);
-
- tmp = build_call_expr_loc (input_location,
- final_fndecl, 3, array,
- size, fini_coarray ? boolean_true_node
- : boolean_false_node);
- gfc_add_expr_to_block (&block2, tmp);
- tmp = gfc_finish_block (&block2);
-
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node, cond, tmp,
- build_empty_stmt (input_location));
- gfc_add_expr_to_block (block, tmp);
-
- return true;
-}
-
-
-/* Add a call to the finalizer, using the passed *expr. Returns
- true when a finalizer call has been inserted. */
-
-bool
-gfc_add_finalizer_call (stmtblock_t *block, gfc_expr *expr2)
-{
- tree tmp;
- gfc_ref *ref;
- gfc_expr *expr;
- gfc_expr *final_expr = NULL;
- gfc_expr *elem_size = NULL;
- bool has_finalizer = false;
-
- if (!expr2 || (expr2->ts.type != BT_DERIVED && expr2->ts.type != BT_CLASS))
- return false;
-
- if (expr2->ts.type == BT_DERIVED)
- {
- gfc_is_finalizable (expr2->ts.u.derived, &final_expr);
- if (!final_expr)
- return false;
- }
-
- /* If we have a class array, we need go back to the class
- container. */
- expr = gfc_copy_expr (expr2);
-
- if (expr->ref && expr->ref->next && !expr->ref->next->next
- && expr->ref->next->type == REF_ARRAY
- && expr->ref->type == REF_COMPONENT
- && strcmp (expr->ref->u.c.component->name, "_data") == 0)
- {
- gfc_free_ref_list (expr->ref);
- expr->ref = NULL;
- }
- else
- for (ref = expr->ref; ref; ref = ref->next)
- if (ref->next && ref->next->next && !ref->next->next->next
- && ref->next->next->type == REF_ARRAY
- && ref->next->type == REF_COMPONENT
- && strcmp (ref->next->u.c.component->name, "_data") == 0)
- {
- gfc_free_ref_list (ref->next);
- ref->next = NULL;
- }
-
- if (expr->ts.type == BT_CLASS)
- {
- has_finalizer = gfc_is_finalizable (expr->ts.u.derived, NULL);
-
- if (!expr2->rank && !expr2->ref && CLASS_DATA (expr2->symtree->n.sym)->as)
- expr->rank = CLASS_DATA (expr2->symtree->n.sym)->as->rank;
-
- final_expr = gfc_copy_expr (expr);
- gfc_add_vptr_component (final_expr);
- gfc_add_final_component (final_expr);
-
- elem_size = gfc_copy_expr (expr);
- gfc_add_vptr_component (elem_size);
- gfc_add_size_component (elem_size);
- }
-
- gcc_assert (final_expr->expr_type == EXPR_VARIABLE);
-
- tmp = gfc_build_final_call (expr->ts, final_expr, expr,
- false, elem_size);
-
- if (expr->ts.type == BT_CLASS && !has_finalizer)
- {
- tree cond;
- gfc_se se;
-
- gfc_init_se (&se, NULL);
- se.want_pointer = 1;
- gfc_conv_expr (&se, final_expr);
- cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- se.expr, build_int_cst (TREE_TYPE (se.expr), 0));
-
- /* For CLASS(*) not only sym->_vtab->_final can be NULL
- but already sym->_vtab itself. */
- if (UNLIMITED_POLY (expr))
- {
- tree cond2;
- gfc_expr *vptr_expr;
-
- vptr_expr = gfc_copy_expr (expr);
- gfc_add_vptr_component (vptr_expr);
-
- gfc_init_se (&se, NULL);
- se.want_pointer = 1;
- gfc_conv_expr (&se, vptr_expr);
- gfc_free_expr (vptr_expr);
-
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- se.expr,
- build_int_cst (TREE_TYPE (se.expr), 0));
- cond = fold_build2_loc (input_location, TRUTH_ANDIF_EXPR,
- logical_type_node, cond2, cond);
- }
-
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- cond, tmp, build_empty_stmt (input_location));
- }
-
- gfc_add_expr_to_block (block, tmp);
-
- return true;
-}
-
-
-/* User-deallocate; we emit the code directly from the front-end, and the
- logic is the same as the previous library function:
-
- void
- deallocate (void *pointer, GFC_INTEGER_4 * stat)
- {
- if (!pointer)
- {
- if (stat)
- *stat = 1;
- else
- runtime_error ("Attempt to DEALLOCATE unallocated memory.");
- }
- else
- {
- free (pointer);
- if (stat)
- *stat = 0;
- }
- }
-
- In this front-end version, status doesn't have to be GFC_INTEGER_4.
- Moreover, if CAN_FAIL is true, then we will not emit a runtime error,
- even when no status variable is passed to us (this is used for
- unconditional deallocation generated by the front-end at end of
- each procedure).
-
- If a runtime-message is possible, `expr' must point to the original
- expression being deallocated for its locus and variable name.
-
- For coarrays, "pointer" must be the array descriptor and not its
- "data" component.
-
- COARRAY_DEALLOC_MODE gives the mode unregister coarrays. Available modes are
- the ones of GFC_CAF_DEREGTYPE, -1 when the mode for deregistration is to be
- analyzed and set by this routine, and -2 to indicate that a non-coarray is to
- be deallocated. */
-tree
-gfc_deallocate_with_status (tree pointer, tree status, tree errmsg,
- tree errlen, tree label_finish,
- bool can_fail, gfc_expr* expr,
- int coarray_dealloc_mode, tree add_when_allocated,
- tree caf_token)
-{
- stmtblock_t null, non_null;
- tree cond, tmp, error;
- tree status_type = NULL_TREE;
- tree token = NULL_TREE;
- gfc_coarray_deregtype caf_dereg_type = GFC_CAF_COARRAY_DEREGISTER;
-
- if (coarray_dealloc_mode >= GFC_CAF_COARRAY_ANALYZE)
- {
- if (flag_coarray == GFC_FCOARRAY_LIB)
- {
- if (caf_token)
- token = caf_token;
- else
- {
- tree caf_type, caf_decl = pointer;
- pointer = gfc_conv_descriptor_data_get (caf_decl);
- caf_type = TREE_TYPE (caf_decl);
- STRIP_NOPS (pointer);
- if (GFC_DESCRIPTOR_TYPE_P (caf_type))
- token = gfc_conv_descriptor_token (caf_decl);
- else if (DECL_LANG_SPECIFIC (caf_decl)
- && GFC_DECL_TOKEN (caf_decl) != NULL_TREE)
- token = GFC_DECL_TOKEN (caf_decl);
- else
- {
- gcc_assert (GFC_ARRAY_TYPE_P (caf_type)
- && GFC_TYPE_ARRAY_CAF_TOKEN (caf_type)
- != NULL_TREE);
- token = GFC_TYPE_ARRAY_CAF_TOKEN (caf_type);
- }
- }
-
- if (coarray_dealloc_mode == GFC_CAF_COARRAY_ANALYZE)
- {
- bool comp_ref;
- if (expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp
- && comp_ref)
- caf_dereg_type = GFC_CAF_COARRAY_DEALLOCATE_ONLY;
- // else do a deregister as set by default.
- }
- else
- caf_dereg_type = (enum gfc_coarray_deregtype) coarray_dealloc_mode;
- }
- else if (flag_coarray == GFC_FCOARRAY_SINGLE)
- pointer = gfc_conv_descriptor_data_get (pointer);
- }
- else if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (pointer)))
- pointer = gfc_conv_descriptor_data_get (pointer);
-
- cond = fold_build2_loc (input_location, EQ_EXPR, logical_type_node, pointer,
- build_int_cst (TREE_TYPE (pointer), 0));
-
- /* When POINTER is NULL, we set STATUS to 1 if it's present, otherwise
- we emit a runtime error. */
- gfc_start_block (&null);
- if (!can_fail)
- {
- tree varname;
-
- gcc_assert (expr && expr->expr_type == EXPR_VARIABLE && expr->symtree);
-
- varname = gfc_build_cstring_const (expr->symtree->name);
- varname = gfc_build_addr_expr (pchar_type_node, varname);
-
- error = gfc_trans_runtime_error (true, &expr->where,
- "Attempt to DEALLOCATE unallocated '%s'",
- varname);
- }
- else
- error = build_empty_stmt (input_location);
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- tree cond2;
-
- status_type = TREE_TYPE (TREE_TYPE (status));
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- status, build_int_cst (TREE_TYPE (status), 0));
- tmp = fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- fold_build1_loc (input_location, INDIRECT_REF,
- status_type, status),
- build_int_cst (status_type, 1));
- error = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- cond2, tmp, error);
- }
-
- gfc_add_expr_to_block (&null, error);
-
- /* When POINTER is not NULL, we free it. */
- gfc_start_block (&non_null);
- if (add_when_allocated)
- gfc_add_expr_to_block (&non_null, add_when_allocated);
- gfc_add_finalizer_call (&non_null, expr);
- if (coarray_dealloc_mode == GFC_CAF_COARRAY_NOCOARRAY
- || flag_coarray != GFC_FCOARRAY_LIB)
- {
- tmp = build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_FREE), 1,
- fold_convert (pvoid_type_node, pointer));
- gfc_add_expr_to_block (&non_null, tmp);
- gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer),
- 0));
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- /* We set STATUS to zero if it is present. */
- tree status_type = TREE_TYPE (TREE_TYPE (status));
- tree cond2;
-
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- status,
- build_int_cst (TREE_TYPE (status), 0));
- tmp = fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- fold_build1_loc (input_location, INDIRECT_REF,
- status_type, status),
- build_int_cst (status_type, 0));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- gfc_unlikely (cond2, PRED_FORTRAN_FAIL_ALLOC),
- tmp, build_empty_stmt (input_location));
- gfc_add_expr_to_block (&non_null, tmp);
- }
- }
- else
- {
- tree cond2, pstat = null_pointer_node;
-
- if (errmsg == NULL_TREE)
- {
- gcc_assert (errlen == NULL_TREE);
- errmsg = null_pointer_node;
- errlen = build_zero_cst (integer_type_node);
- }
- else
- {
- gcc_assert (errlen != NULL_TREE);
- if (!POINTER_TYPE_P (TREE_TYPE (errmsg)))
- errmsg = gfc_build_addr_expr (NULL_TREE, errmsg);
- }
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- gcc_assert (status_type == integer_type_node);
- pstat = status;
- }
-
- token = gfc_build_addr_expr (NULL_TREE, token);
- gcc_assert (caf_dereg_type > GFC_CAF_COARRAY_ANALYZE);
- tmp = build_call_expr_loc (input_location,
- gfor_fndecl_caf_deregister, 5,
- token, build_int_cst (integer_type_node,
- caf_dereg_type),
- pstat, errmsg, errlen);
- gfc_add_expr_to_block (&non_null, tmp);
-
- /* It guarantees memory consistency within the same segment */
- tmp = gfc_build_string_const (strlen ("memory")+1, "memory"),
- tmp = build5_loc (input_location, ASM_EXPR, void_type_node,
- gfc_build_string_const (1, ""), NULL_TREE, NULL_TREE,
- tree_cons (NULL_TREE, tmp, NULL_TREE), NULL_TREE);
- ASM_VOLATILE_P (tmp) = 1;
- gfc_add_expr_to_block (&non_null, tmp);
-
- if (status != NULL_TREE)
- {
- tree stat = build_fold_indirect_ref_loc (input_location, status);
- tree nullify = fold_build2_loc (input_location, MODIFY_EXPR,
- void_type_node, pointer,
- build_int_cst (TREE_TYPE (pointer),
- 0));
-
- TREE_USED (label_finish) = 1;
- tmp = build1_v (GOTO_EXPR, label_finish);
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- stat, build_zero_cst (TREE_TYPE (stat)));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- gfc_unlikely (cond2, PRED_FORTRAN_REALLOC),
- tmp, nullify);
- gfc_add_expr_to_block (&non_null, tmp);
- }
- else
- gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer),
- 0));
- }
-
- return fold_build3_loc (input_location, COND_EXPR, void_type_node, cond,
- gfc_finish_block (&null),
- gfc_finish_block (&non_null));
-}
-
-
-/* Generate code for deallocation of allocatable scalars (variables or
- components). Before the object itself is freed, any allocatable
- subcomponents are being deallocated. */
-
-tree
-gfc_deallocate_scalar_with_status (tree pointer, tree status, tree label_finish,
- bool can_fail, gfc_expr* expr,
- gfc_typespec ts, bool coarray)
-{
- stmtblock_t null, non_null;
- tree cond, tmp, error;
- bool finalizable, comp_ref;
- gfc_coarray_deregtype caf_dereg_type = GFC_CAF_COARRAY_DEREGISTER;
-
- if (coarray && expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp
- && comp_ref)
- caf_dereg_type = GFC_CAF_COARRAY_DEALLOCATE_ONLY;
-
- cond = fold_build2_loc (input_location, EQ_EXPR, logical_type_node, pointer,
- build_int_cst (TREE_TYPE (pointer), 0));
-
- /* When POINTER is NULL, we set STATUS to 1 if it's present, otherwise
- we emit a runtime error. */
- gfc_start_block (&null);
- if (!can_fail)
- {
- tree varname;
-
- gcc_assert (expr && expr->expr_type == EXPR_VARIABLE && expr->symtree);
-
- varname = gfc_build_cstring_const (expr->symtree->name);
- varname = gfc_build_addr_expr (pchar_type_node, varname);
-
- error = gfc_trans_runtime_error (true, &expr->where,
- "Attempt to DEALLOCATE unallocated '%s'",
- varname);
- }
- else
- error = build_empty_stmt (input_location);
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- tree status_type = TREE_TYPE (TREE_TYPE (status));
- tree cond2;
-
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- status, build_int_cst (TREE_TYPE (status), 0));
- tmp = fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- fold_build1_loc (input_location, INDIRECT_REF,
- status_type, status),
- build_int_cst (status_type, 1));
- error = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- cond2, tmp, error);
- }
- gfc_add_expr_to_block (&null, error);
-
- /* When POINTER is not NULL, we free it. */
- gfc_start_block (&non_null);
-
- /* Free allocatable components. */
- finalizable = gfc_add_finalizer_call (&non_null, expr);
- if (!finalizable && ts.type == BT_DERIVED && ts.u.derived->attr.alloc_comp)
- {
- int caf_mode = coarray
- ? ((caf_dereg_type == GFC_CAF_COARRAY_DEALLOCATE_ONLY
- ? GFC_STRUCTURE_CAF_MODE_DEALLOC_ONLY : 0)
- | GFC_STRUCTURE_CAF_MODE_ENABLE_COARRAY
- | GFC_STRUCTURE_CAF_MODE_IN_COARRAY)
- : 0;
- if (coarray && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (pointer)))
- tmp = gfc_conv_descriptor_data_get (pointer);
- else
- tmp = build_fold_indirect_ref_loc (input_location, pointer);
- tmp = gfc_deallocate_alloc_comp (ts.u.derived, tmp, 0, caf_mode);
- gfc_add_expr_to_block (&non_null, tmp);
- }
-
- if (!coarray || flag_coarray == GFC_FCOARRAY_SINGLE)
- {
- tmp = build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_FREE), 1,
- fold_convert (pvoid_type_node, pointer));
- gfc_add_expr_to_block (&non_null, tmp);
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- /* We set STATUS to zero if it is present. */
- tree status_type = TREE_TYPE (TREE_TYPE (status));
- tree cond2;
-
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- status,
- build_int_cst (TREE_TYPE (status), 0));
- tmp = fold_build2_loc (input_location, MODIFY_EXPR, status_type,
- fold_build1_loc (input_location, INDIRECT_REF,
- status_type, status),
- build_int_cst (status_type, 0));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- cond2, tmp, build_empty_stmt (input_location));
- gfc_add_expr_to_block (&non_null, tmp);
- }
- }
- else
- {
- tree token;
- tree pstat = null_pointer_node;
- gfc_se se;
-
- gfc_init_se (&se, NULL);
- token = gfc_get_ultimate_alloc_ptr_comps_caf_token (&se, expr);
- gcc_assert (token != NULL_TREE);
-
- if (status != NULL_TREE && !integer_zerop (status))
- {
- gcc_assert (TREE_TYPE (TREE_TYPE (status)) == integer_type_node);
- pstat = status;
- }
-
- tmp = build_call_expr_loc (input_location,
- gfor_fndecl_caf_deregister, 5,
- token, build_int_cst (integer_type_node,
- caf_dereg_type),
- pstat, null_pointer_node, integer_zero_node);
- gfc_add_expr_to_block (&non_null, tmp);
-
- /* It guarantees memory consistency within the same segment. */
- tmp = gfc_build_string_const (strlen ("memory")+1, "memory");
- tmp = build5_loc (input_location, ASM_EXPR, void_type_node,
- gfc_build_string_const (1, ""), NULL_TREE, NULL_TREE,
- tree_cons (NULL_TREE, tmp, NULL_TREE), NULL_TREE);
- ASM_VOLATILE_P (tmp) = 1;
- gfc_add_expr_to_block (&non_null, tmp);
-
- if (status != NULL_TREE)
- {
- tree stat = build_fold_indirect_ref_loc (input_location, status);
- tree cond2;
-
- TREE_USED (label_finish) = 1;
- tmp = build1_v (GOTO_EXPR, label_finish);
- cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node,
- stat, build_zero_cst (TREE_TYPE (stat)));
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- gfc_unlikely (cond2, PRED_FORTRAN_REALLOC),
- tmp, build_empty_stmt (input_location));
- gfc_add_expr_to_block (&non_null, tmp);
- }
- }
-
- return fold_build3_loc (input_location, COND_EXPR, void_type_node, cond,
- gfc_finish_block (&null),
- gfc_finish_block (&non_null));
-}
-
-/* Reallocate MEM so it has SIZE bytes of data. This behaves like the
- following pseudo-code:
-
-void *
-internal_realloc (void *mem, size_t size)
-{
- res = realloc (mem, size);
- if (!res && size != 0)
- _gfortran_os_error ("Allocation would exceed memory limit");
-
- return res;
-} */
-tree
-gfc_call_realloc (stmtblock_t * block, tree mem, tree size)
-{
- tree res, nonzero, null_result, tmp;
- tree type = TREE_TYPE (mem);
-
- /* Only evaluate the size once. */
- size = save_expr (fold_convert (size_type_node, size));
-
- /* Create a variable to hold the result. */
- res = gfc_create_var (type, NULL);
-
- /* Call realloc and check the result. */
- tmp = build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_REALLOC), 2,
- fold_convert (pvoid_type_node, mem), size);
- gfc_add_modify (block, res, fold_convert (type, tmp));
- null_result = fold_build2_loc (input_location, EQ_EXPR, logical_type_node,
- res, build_int_cst (pvoid_type_node, 0));
- nonzero = fold_build2_loc (input_location, NE_EXPR, logical_type_node, size,
- build_int_cst (size_type_node, 0));
- null_result = fold_build2_loc (input_location, TRUTH_AND_EXPR, logical_type_node,
- null_result, nonzero);
- tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node,
- null_result,
- trans_os_error_at (NULL,
- "Error reallocating to %lu bytes",
- fold_convert
- (long_unsigned_type_node, size)),
- build_empty_stmt (input_location));
- gfc_add_expr_to_block (block, tmp);
-
- return res;
-}
-
-
-/* Add an expression to another one, either at the front or the back. */
-
-static void
-add_expr_to_chain (tree* chain, tree expr, bool front)
-{
- if (expr == NULL_TREE || IS_EMPTY_STMT (expr))
- return;
-
- if (*chain)
- {
- if (TREE_CODE (*chain) != STATEMENT_LIST)
- {
- tree tmp;
-
- tmp = *chain;
- *chain = NULL_TREE;
- append_to_statement_list (tmp, chain);
- }
-
- if (front)
- {
- tree_stmt_iterator i;
-
- i = tsi_start (*chain);
- tsi_link_before (&i, expr, TSI_CONTINUE_LINKING);
- }
- else
- append_to_statement_list (expr, chain);
- }
- else
- *chain = expr;
-}
-
-
-/* Add a statement at the end of a block. */
-
-void
-gfc_add_expr_to_block (stmtblock_t * block, tree expr)
-{
- gcc_assert (block);
- add_expr_to_chain (&block->head, expr, false);
-}
-
-
-/* Add a statement at the beginning of a block. */
-
-void
-gfc_prepend_expr_to_block (stmtblock_t * block, tree expr)
-{
- gcc_assert (block);
- add_expr_to_chain (&block->head, expr, true);
-}
-
-
-/* Add a block the end of a block. */
-
-void
-gfc_add_block_to_block (stmtblock_t * block, stmtblock_t * append)
-{
- gcc_assert (append);
- gcc_assert (!append->has_scope);
-
- gfc_add_expr_to_block (block, append->head);
- append->head = NULL_TREE;
-}
-
-
-/* Save the current locus. The structure may not be complete, and should
- only be used with gfc_restore_backend_locus. */
-
-void
-gfc_save_backend_locus (locus * loc)
-{
- loc->lb = XCNEW (gfc_linebuf);
- loc->lb->location = input_location;
- loc->lb->file = gfc_current_backend_file;
-}
-
-
-/* Set the current locus. */
-
-void
-gfc_set_backend_locus (locus * loc)
-{
- gfc_current_backend_file = loc->lb->file;
- input_location = gfc_get_location (loc);
-}
-
-
-/* Restore the saved locus. Only used in conjunction with
- gfc_save_backend_locus, to free the memory when we are done. */
-
-void
-gfc_restore_backend_locus (locus * loc)
-{
- /* This only restores the information captured by gfc_save_backend_locus,
- intentionally does not use gfc_get_location. */
- input_location = loc->lb->location;
- gfc_current_backend_file = loc->lb->file;
- free (loc->lb);
-}
-
-
-/* Translate an executable statement. The tree cond is used by gfc_trans_do.
- This static function is wrapped by gfc_trans_code_cond and
- gfc_trans_code. */
-
-static tree
-trans_code (gfc_code * code, tree cond)
-{
- stmtblock_t block;
- tree res;
-
- if (!code)
- return build_empty_stmt (input_location);
-
- gfc_start_block (&block);
-
- /* Translate statements one by one into GENERIC trees until we reach
- the end of this gfc_code branch. */
- for (; code; code = code->next)
- {
- if (code->here != 0)
- {
- res = gfc_trans_label_here (code);
- gfc_add_expr_to_block (&block, res);
- }
-
- gfc_current_locus = code->loc;
- gfc_set_backend_locus (&code->loc);
-
- switch (code->op)
- {
- case EXEC_NOP:
- case EXEC_END_BLOCK:
- case EXEC_END_NESTED_BLOCK:
- case EXEC_END_PROCEDURE:
- res = NULL_TREE;
- break;
-
- case EXEC_ASSIGN:
- res = gfc_trans_assign (code);
- break;
-
- case EXEC_LABEL_ASSIGN:
- res = gfc_trans_label_assign (code);
- break;
-
- case EXEC_POINTER_ASSIGN:
- res = gfc_trans_pointer_assign (code);
- break;
-
- case EXEC_INIT_ASSIGN:
- if (code->expr1->ts.type == BT_CLASS)
- res = gfc_trans_class_init_assign (code);
- else
- res = gfc_trans_init_assign (code);
- break;
-
- case EXEC_CONTINUE:
- res = NULL_TREE;
- break;
-
- case EXEC_CRITICAL:
- res = gfc_trans_critical (code);
- break;
-
- case EXEC_CYCLE:
- res = gfc_trans_cycle (code);
- break;
-
- case EXEC_EXIT:
- res = gfc_trans_exit (code);
- break;
-
- case EXEC_GOTO:
- res = gfc_trans_goto (code);
- break;
-
- case EXEC_ENTRY:
- res = gfc_trans_entry (code);
- break;
-
- case EXEC_PAUSE:
- res = gfc_trans_pause (code);
- break;
-
- case EXEC_STOP:
- case EXEC_ERROR_STOP:
- res = gfc_trans_stop (code, code->op == EXEC_ERROR_STOP);
- break;
-
- case EXEC_CALL:
- /* For MVBITS we've got the special exception that we need a
- dependency check, too. */
- {
- bool is_mvbits = false;
-
- if (code->resolved_isym)
- {
- res = gfc_conv_intrinsic_subroutine (code);
- if (res != NULL_TREE)
- break;
- }
-
- if (code->resolved_isym
- && code->resolved_isym->id == GFC_ISYM_MVBITS)
- is_mvbits = true;
-
- res = gfc_trans_call (code, is_mvbits, NULL_TREE,
- NULL_TREE, false);
- }
- break;
-
- case EXEC_CALL_PPC:
- res = gfc_trans_call (code, false, NULL_TREE,
- NULL_TREE, false);
- break;
-
- case EXEC_ASSIGN_CALL:
- res = gfc_trans_call (code, true, NULL_TREE,
- NULL_TREE, false);
- break;
-
- case EXEC_RETURN:
- res = gfc_trans_return (code);
- break;
-
- case EXEC_IF:
- res = gfc_trans_if (code);
- break;
-
- case EXEC_ARITHMETIC_IF:
- res = gfc_trans_arithmetic_if (code);
- break;
-
- case EXEC_BLOCK:
- res = gfc_trans_block_construct (code);
- break;
-
- case EXEC_DO:
- res = gfc_trans_do (code, cond);
- break;
-
- case EXEC_DO_CONCURRENT:
- res = gfc_trans_do_concurrent (code);
- break;
-
- case EXEC_DO_WHILE:
- res = gfc_trans_do_while (code);
- break;
-
- case EXEC_SELECT:
- res = gfc_trans_select (code);
- break;
-
- case EXEC_SELECT_TYPE:
- res = gfc_trans_select_type (code);
- break;
-
- case EXEC_SELECT_RANK:
- res = gfc_trans_select_rank (code);
- break;
-
- case EXEC_FLUSH:
- res = gfc_trans_flush (code);
- break;
-
- case EXEC_SYNC_ALL:
- case EXEC_SYNC_IMAGES:
- case EXEC_SYNC_MEMORY:
- res = gfc_trans_sync (code, code->op);
- break;
-
- case EXEC_LOCK:
- case EXEC_UNLOCK:
- res = gfc_trans_lock_unlock (code, code->op);
- break;
-
- case EXEC_EVENT_POST:
- case EXEC_EVENT_WAIT:
- res = gfc_trans_event_post_wait (code, code->op);
- break;
-
- case EXEC_FAIL_IMAGE:
- res = gfc_trans_fail_image (code);
- break;
-
- case EXEC_FORALL:
- res = gfc_trans_forall (code);
- break;
-
- case EXEC_FORM_TEAM:
- res = gfc_trans_form_team (code);
- break;
-
- case EXEC_CHANGE_TEAM:
- res = gfc_trans_change_team (code);
- break;
-
- case EXEC_END_TEAM:
- res = gfc_trans_end_team (code);
- break;
-
- case EXEC_SYNC_TEAM:
- res = gfc_trans_sync_team (code);
- break;
-
- case EXEC_WHERE:
- res = gfc_trans_where (code);
- break;
-
- case EXEC_ALLOCATE:
- res = gfc_trans_allocate (code);
- break;
-
- case EXEC_DEALLOCATE:
- res = gfc_trans_deallocate (code);
- break;
-
- case EXEC_OPEN:
- res = gfc_trans_open (code);
- break;
-
- case EXEC_CLOSE:
- res = gfc_trans_close (code);
- break;
-
- case EXEC_READ:
- res = gfc_trans_read (code);
- break;
-
- case EXEC_WRITE:
- res = gfc_trans_write (code);
- break;
-
- case EXEC_IOLENGTH:
- res = gfc_trans_iolength (code);
- break;
-
- case EXEC_BACKSPACE:
- res = gfc_trans_backspace (code);
- break;
-
- case EXEC_ENDFILE:
- res = gfc_trans_endfile (code);
- break;
-
- case EXEC_INQUIRE:
- res = gfc_trans_inquire (code);
- break;
-
- case EXEC_WAIT:
- res = gfc_trans_wait (code);
- break;
-
- case EXEC_REWIND:
- res = gfc_trans_rewind (code);
- break;
-
- case EXEC_TRANSFER:
- res = gfc_trans_transfer (code);
- break;
-
- case EXEC_DT_END:
- res = gfc_trans_dt_end (code);
- break;
-
- case EXEC_OMP_ATOMIC:
- case EXEC_OMP_BARRIER:
- case EXEC_OMP_CANCEL:
- case EXEC_OMP_CANCELLATION_POINT:
- case EXEC_OMP_CRITICAL:
- case EXEC_OMP_DEPOBJ:
- case EXEC_OMP_DISTRIBUTE:
- case EXEC_OMP_DISTRIBUTE_PARALLEL_DO:
- case EXEC_OMP_DISTRIBUTE_PARALLEL_DO_SIMD:
- case EXEC_OMP_DISTRIBUTE_SIMD:
- case EXEC_OMP_DO:
- case EXEC_OMP_DO_SIMD:
- case EXEC_OMP_LOOP:
- case EXEC_OMP_ERROR:
- case EXEC_OMP_FLUSH:
- case EXEC_OMP_MASKED:
- case EXEC_OMP_MASKED_TASKLOOP:
- case EXEC_OMP_MASKED_TASKLOOP_SIMD:
- case EXEC_OMP_MASTER:
- case EXEC_OMP_MASTER_TASKLOOP:
- case EXEC_OMP_MASTER_TASKLOOP_SIMD:
- case EXEC_OMP_ORDERED:
- case EXEC_OMP_PARALLEL:
- case EXEC_OMP_PARALLEL_DO:
- case EXEC_OMP_PARALLEL_DO_SIMD:
- case EXEC_OMP_PARALLEL_LOOP:
- case EXEC_OMP_PARALLEL_MASKED:
- case EXEC_OMP_PARALLEL_MASKED_TASKLOOP:
- case EXEC_OMP_PARALLEL_MASKED_TASKLOOP_SIMD:
- case EXEC_OMP_PARALLEL_MASTER:
- case EXEC_OMP_PARALLEL_MASTER_TASKLOOP:
- case EXEC_OMP_PARALLEL_MASTER_TASKLOOP_SIMD:
- case EXEC_OMP_PARALLEL_SECTIONS:
- case EXEC_OMP_PARALLEL_WORKSHARE:
- case EXEC_OMP_SCOPE:
- case EXEC_OMP_SECTIONS:
- case EXEC_OMP_SIMD:
- case EXEC_OMP_SINGLE:
- case EXEC_OMP_TARGET:
- case EXEC_OMP_TARGET_DATA:
- case EXEC_OMP_TARGET_ENTER_DATA:
- case EXEC_OMP_TARGET_EXIT_DATA:
- case EXEC_OMP_TARGET_PARALLEL:
- case EXEC_OMP_TARGET_PARALLEL_DO:
- case EXEC_OMP_TARGET_PARALLEL_DO_SIMD:
- case EXEC_OMP_TARGET_PARALLEL_LOOP:
- case EXEC_OMP_TARGET_SIMD:
- case EXEC_OMP_TARGET_TEAMS:
- case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE:
- case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO:
- case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD:
- case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_SIMD:
- case EXEC_OMP_TARGET_TEAMS_LOOP:
- case EXEC_OMP_TARGET_UPDATE:
- case EXEC_OMP_TASK:
- case EXEC_OMP_TASKGROUP:
- case EXEC_OMP_TASKLOOP:
- case EXEC_OMP_TASKLOOP_SIMD:
- case EXEC_OMP_TASKWAIT:
- case EXEC_OMP_TASKYIELD:
- case EXEC_OMP_TEAMS:
- case EXEC_OMP_TEAMS_DISTRIBUTE:
- case EXEC_OMP_TEAMS_DISTRIBUTE_PARALLEL_DO:
- case EXEC_OMP_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD:
- case EXEC_OMP_TEAMS_DISTRIBUTE_SIMD:
- case EXEC_OMP_TEAMS_LOOP:
- case EXEC_OMP_WORKSHARE:
- res = gfc_trans_omp_directive (code);
- break;
-
- case EXEC_OACC_CACHE:
- case EXEC_OACC_WAIT:
- case EXEC_OACC_UPDATE:
- case EXEC_OACC_LOOP:
- case EXEC_OACC_HOST_DATA:
- case EXEC_OACC_DATA:
- case EXEC_OACC_KERNELS:
- case EXEC_OACC_KERNELS_LOOP:
- case EXEC_OACC_PARALLEL:
- case EXEC_OACC_PARALLEL_LOOP:
- case EXEC_OACC_SERIAL:
- case EXEC_OACC_SERIAL_LOOP:
- case EXEC_OACC_ENTER_DATA:
- case EXEC_OACC_EXIT_DATA:
- case EXEC_OACC_ATOMIC:
- case EXEC_OACC_DECLARE:
- res = gfc_trans_oacc_directive (code);
- break;
-
- default:
- gfc_internal_error ("gfc_trans_code(): Bad statement code");
- }
-
- gfc_set_backend_locus (&code->loc);
-
- if (res != NULL_TREE && ! IS_EMPTY_STMT (res))
- {
- if (TREE_CODE (res) != STATEMENT_LIST)
- SET_EXPR_LOCATION (res, input_location);
-
- /* Add the new statement to the block. */
- gfc_add_expr_to_block (&block, res);
- }
- }
-
- /* Return the finished block. */
- return gfc_finish_block (&block);
-}
-
-
-/* Translate an executable statement with condition, cond. The condition is
- used by gfc_trans_do to test for IO result conditions inside implied
- DO loops of READ and WRITE statements. See build_dt in trans-io.c. */
-
-tree
-gfc_trans_code_cond (gfc_code * code, tree cond)
-{
- return trans_code (code, cond);
-}
-
-/* Translate an executable statement without condition. */
-
-tree
-gfc_trans_code (gfc_code * code)
-{
- return trans_code (code, NULL_TREE);
-}
-
-
-/* This function is called after a complete program unit has been parsed
- and resolved. */
-
-void
-gfc_generate_code (gfc_namespace * ns)
-{
- ompws_flags = 0;
- if (ns->is_block_data)
- {
- gfc_generate_block_data (ns);
- return;
- }
-
- gfc_generate_function_code (ns);
-}
-
-
-/* This function is called after a complete module has been parsed
- and resolved. */
-
-void
-gfc_generate_module_code (gfc_namespace * ns)
-{
- gfc_namespace *n;
- struct module_htab_entry *entry;
-
- gcc_assert (ns->proc_name->backend_decl == NULL);
- ns->proc_name->backend_decl
- = build_decl (gfc_get_location (&ns->proc_name->declared_at),
- NAMESPACE_DECL, get_identifier (ns->proc_name->name),
- void_type_node);
- entry = gfc_find_module (ns->proc_name->name);
- if (entry->namespace_decl)
- /* Buggy sourcecode, using a module before defining it? */
- entry->decls->empty ();
- entry->namespace_decl = ns->proc_name->backend_decl;
-
- gfc_generate_module_vars (ns);
-
- /* We need to generate all module function prototypes first, to allow
- sibling calls. */
- for (n = ns->contained; n; n = n->sibling)
- {
- gfc_entry_list *el;
-
- if (!n->proc_name)
- continue;
-
- gfc_create_function_decl (n, false);
- DECL_CONTEXT (n->proc_name->backend_decl) = ns->proc_name->backend_decl;
- gfc_module_add_decl (entry, n->proc_name->backend_decl);
- for (el = ns->entries; el; el = el->next)
- {
- DECL_CONTEXT (el->sym->backend_decl) = ns->proc_name->backend_decl;
- gfc_module_add_decl (entry, el->sym->backend_decl);
- }
- }
-
- for (n = ns->contained; n; n = n->sibling)
- {
- if (!n->proc_name)
- continue;
-
- gfc_generate_function_code (n);
- }
-}
-
-
-/* Initialize an init/cleanup block with existing code. */
-
-void
-gfc_start_wrapped_block (gfc_wrapped_block* block, tree code)
-{
- gcc_assert (block);
-
- block->init = NULL_TREE;
- block->code = code;
- block->cleanup = NULL_TREE;
-}
-
-
-/* Add a new pair of initializers/clean-up code. */
-
-void
-gfc_add_init_cleanup (gfc_wrapped_block* block, tree init, tree cleanup)
-{
- gcc_assert (block);
-
- /* The new pair of init/cleanup should be "wrapped around" the existing
- block of code, thus the initialization is added to the front and the
- cleanup to the back. */
- add_expr_to_chain (&block->init, init, true);
- add_expr_to_chain (&block->cleanup, cleanup, false);
-}
-
-
-/* Finish up a wrapped block by building a corresponding try-finally expr. */
-
-tree
-gfc_finish_wrapped_block (gfc_wrapped_block* block)
-{
- tree result;
-
- gcc_assert (block);
-
- /* Build the final expression. For this, just add init and body together,
- and put clean-up with that into a TRY_FINALLY_EXPR. */
- result = block->init;
- add_expr_to_chain (&result, block->code, false);
- if (block->cleanup)
- result = build2_loc (input_location, TRY_FINALLY_EXPR, void_type_node,
- result, block->cleanup);
-
- /* Clear the block. */
- block->init = NULL_TREE;
- block->code = NULL_TREE;
- block->cleanup = NULL_TREE;
-
- return result;
-}
-
-
-/* Helper function for marking a boolean expression tree as unlikely. */
-
-tree
-gfc_unlikely (tree cond, enum br_predictor predictor)
-{
- tree tmp;
-
- if (optimize)
- {
- cond = fold_convert (long_integer_type_node, cond);
- tmp = build_zero_cst (long_integer_type_node);
- cond = build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_EXPECT),
- 3, cond, tmp,
- build_int_cst (integer_type_node,
- predictor));
- }
- return cond;
-}
-
-
-/* Helper function for marking a boolean expression tree as likely. */
-
-tree
-gfc_likely (tree cond, enum br_predictor predictor)
-{
- tree tmp;
-
- if (optimize)
- {
- cond = fold_convert (long_integer_type_node, cond);
- tmp = build_one_cst (long_integer_type_node);
- cond = build_call_expr_loc (input_location,
- builtin_decl_explicit (BUILT_IN_EXPECT),
- 3, cond, tmp,
- build_int_cst (integer_type_node,
- predictor));
- }
- return cond;
-}
-
-
-/* Get the string length for a deferred character length component. */
-
-bool
-gfc_deferred_strlen (gfc_component *c, tree *decl)
-{
- char name[GFC_MAX_SYMBOL_LEN+9];
- gfc_component *strlen;
- if (!(c->ts.type == BT_CHARACTER
- && (c->ts.deferred || c->attr.pdt_string)))
- return false;
- sprintf (name, "_%s_length", c->name);
- for (strlen = c; strlen; strlen = strlen->next)
- if (strcmp (strlen->name, name) == 0)
- break;
- *decl = strlen ? strlen->backend_decl : NULL_TREE;
- return strlen != NULL;
-}
generated by cgit v1.1 at 2025-05-22 12:52:50 +0000