From cfc29a96f8909d8112d7b3e81984801eb3bb505e Mon Sep 17 00:00:00 2001 From: Nicolas Roche Date: Fri, 8 Sep 2017 13:14:59 +0000 Subject: [PATCH] Makefile.in, [...]: Move libgnarl sources to libgnarl subdir. 2017-09-08 Nicolas Roche * gcc-interface/Makefile.in, a-extiti.ads, s-taprop-linux.adb, s-osinte-solaris.adb, a-intnam.ads, s-osinte-solaris.ads, s-tpobop.adb, s-intman-android.adb, s-tasinf.adb, s-tpobop.ads, s-tasinf.ads, i-vxinco.adb, a-exetim-posix.adb, i-vxinco.ads, a-astaco.adb, a-astaco.ads, s-tporft.adb, s-tpoaal.adb, a-taside.adb, a-taside.ads, s-tpopsp-posix.adb, s-tasdeb.adb, s-tasdeb.ads, s-tpoben.adb, a-dinopr.ads, s-inmaop-vxworks.adb, s-tpoben.ads, s-interr-vxworks.adb, s-interr-dummy.adb, s-tassta.adb, a-intnam-mingw.ads, s-tassta.ads, s-taasde.adb, a-stcoed.ads, s-taasde.ads, s-osinte-darwin.adb, s-proinf.adb, s-taprop-dummy.adb, s-osinte-darwin.ads, s-proinf.ads, s-linux.ads, a-intnam-linux.ads, s-tasren.adb, s-tasren.ads, s-mudido.adb, g-semaph.adb, s-mudido.ads, s-taprop-posix.adb, g-semaph.ads, s-osinte-mingw.ads, s-vxwork-x86.ads, s-tposen.adb, s-linux-sparc.ads, s-taprop-vxworks.adb, s-tasini.adb, s-tposen.ads, s-tasini.ads, a-etgrbu.ads, s-interr-hwint.adb, s-osinte-linux.ads, s-taprop.ads, s-tasque.adb, s-tasque.ads, s-taenca.adb, s-taspri-vxworks.ads, s-taenca.ads, a-dynpri.adb, s-tpopsp-solaris.adb, a-dynpri.ads, s-taprop-hpux-dce.adb, a-interr.adb, a-intnam-freebsd.ads, s-tarest.adb, a-interr.ads, s-intman-susv3.adb, a-synbar.adb, a-intnam-dummy.ads, s-tadeca.adb, s-osinte-vxworks.adb, s-tarest.ads, s-taskin.adb, a-synbar.ads, s-taspri-hpux-dce.ads, s-tadeca.ads, s-osinte-vxworks.ads, s-taskin.ads, s-intman-solaris.adb, a-sytaco.adb, s-vxwext-kernel.adb, s-mudido-affinity.adb, a-sytaco.ads, s-vxwext-kernel.ads, s-taprob.adb, s-intman-mingw.adb, s-taprob.ads, s-osinte-kfreebsd-gnu.ads, s-osinte-dummy.ads, s-osinte-gnu.adb, s-osinte-rtems.adb, s-interr.adb, s-inmaop.ads, s-vxwext-rtp.adb, s-osinte-gnu.ads, s-osinte-rtems.ads, a-synbar-posix.adb, s-interr.ads, s-taspri-posix-noaltstack.ads, s-vxwext-rtp.ads, a-synbar-posix.ads, a-extiin.ads, s-osinte-posix.adb, s-tpinop.adb, s-tasres.ads, s-tpinop.ads, a-disedf.ads, a-diroro.ads, s-linux-alpha.ads, a-tasatt.adb, s-solita.adb, a-intnam-solaris.ads, a-tasatt.ads, s-solita.ads, s-tasinf-solaris.adb, s-tasinf-solaris.ads, s-vxwork-arm.ads, s-tpopsp-posix-foreign.adb, s-intman-dummy.adb, s-intman.ads, s-stusta.adb, s-stusta.ads, s-intman-posix.adb, s-tpopsp-vxworks.adb, s-inmaop-dummy.adb, s-taspri-mingw.ads, a-intnam-darwin.ads, s-osinte-aix.adb, s-osinte-dragonfly.adb, s-osinte-aix.ads, s-tasinf-mingw.adb, s-osinte-dragonfly.ads, s-linux-hppa.ads, s-osinte-x32.adb, s-inmaop-posix.adb, s-tasinf-mingw.ads, s-intman-vxworks.adb, s-linux-mips.ads, s-intman-vxworks.ads, s-osinte-android.adb, s-tasinf-linux.adb, s-osinte-android.ads, s-vxwork-ppc.ads, s-tasinf-linux.ads, a-dispat.adb, a-dispat.ads, s-tadert.adb, g-thread.adb, s-tadert.ads, g-thread.ads, a-intnam-hpux.ads, s-linux-android.ads, s-tataat.adb, a-exetim.ads, s-tataat.ads, a-reatim.adb, a-reatim.ads, thread.c, g-boubuf.adb, s-osinte-freebsd.adb, g-boubuf.ads, s-osinte-freebsd.ads, s-tasuti.adb, s-taspri-dummy.ads, a-exetim-mingw.adb, s-linux-x32.ads, s-tasuti.ads, g-signal.adb, a-exetim-mingw.ads, s-interr-sigaction.adb, g-signal.ads, s-osinte-hpux.ads, a-intnam-vxworks.ads, s-osinte-hpux-dce.adb, s-taspri-posix.ads, s-osinte-hpux-dce.ads, s-tasinf-vxworks.ads, g-tastus.ads, s-tpopsp-tls.adb, s-taprop-solaris.adb, a-retide.adb, a-exetim-darwin.adb, a-retide.ads, s-vxwext.adb, s-vxwext.ads, a-rttiev.adb, a-rttiev.ads, g-boumai.ads, a-exetim-default.ads, s-taprop-mingw.adb, s-taspri-solaris.ads, a-intnam-aix.ads: Move libgnarl sources to libgnarl subdir. From-SVN: r251891 --- gcc/ada/ChangeLog | 57 ++ gcc/ada/gcc-interface/Makefile.in | 901 +++++++++--------- gcc/ada/{ => libgnarl}/a-astaco.adb | 2 +- gcc/ada/{ => libgnarl}/a-astaco.ads | 0 gcc/ada/{ => libgnarl}/a-dinopr.ads | 0 gcc/ada/{ => libgnarl}/a-diroro.ads | 0 gcc/ada/{ => libgnarl}/a-disedf.ads | 0 gcc/ada/{ => libgnarl}/a-dispat.adb | 2 +- gcc/ada/{ => libgnarl}/a-dispat.ads | 0 gcc/ada/{ => libgnarl}/a-dynpri.adb | 2 +- gcc/ada/{ => libgnarl}/a-dynpri.ads | 0 gcc/ada/{ => libgnarl}/a-etgrbu.ads | 2 +- gcc/ada/{ => libgnarl}/a-exetim-darwin.adb | 2 +- gcc/ada/{ => libgnarl}/a-exetim-default.ads | 2 +- gcc/ada/{ => libgnarl}/a-exetim-mingw.adb | 2 +- gcc/ada/{ => libgnarl}/a-exetim-mingw.ads | 0 gcc/ada/{ => libgnarl}/a-exetim-posix.adb | 0 gcc/ada/{ => libgnarl}/a-exetim.ads | 0 gcc/ada/{ => libgnarl}/a-extiin.ads | 0 gcc/ada/{ => libgnarl}/a-extiti.ads | 0 gcc/ada/{ => libgnarl}/a-interr.adb | 4 +- gcc/ada/{ => libgnarl}/a-interr.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-aix.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-darwin.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-dummy.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-freebsd.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-hpux.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-linux.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-mingw.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-solaris.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam-vxworks.ads | 2 +- gcc/ada/{ => libgnarl}/a-intnam.ads | 2 +- gcc/ada/{ => libgnarl}/a-reatim.adb | 4 +- gcc/ada/{ => libgnarl}/a-reatim.ads | 2 +- gcc/ada/{ => libgnarl}/a-retide.adb | 2 +- gcc/ada/{ => libgnarl}/a-retide.ads | 2 +- gcc/ada/{ => libgnarl}/a-rttiev.adb | 2 +- gcc/ada/{ => libgnarl}/a-rttiev.ads | 2 +- gcc/ada/{ => libgnarl}/a-stcoed.ads | 0 gcc/ada/{ => libgnarl}/a-synbar-posix.adb | 2 +- gcc/ada/{ => libgnarl}/a-synbar-posix.ads | 2 +- gcc/ada/{ => libgnarl}/a-synbar.adb | 2 +- gcc/ada/{ => libgnarl}/a-synbar.ads | 2 +- gcc/ada/{ => libgnarl}/a-sytaco.adb | 2 +- gcc/ada/{ => libgnarl}/a-sytaco.ads | 2 +- gcc/ada/{ => libgnarl}/a-tasatt.adb | 2 +- gcc/ada/{ => libgnarl}/a-tasatt.ads | 2 +- gcc/ada/{ => libgnarl}/a-taside.adb | 0 gcc/ada/{ => libgnarl}/a-taside.ads | 2 +- gcc/ada/{ => libgnarl}/g-boubuf.adb | 2 +- gcc/ada/{ => libgnarl}/g-boubuf.ads | 2 +- gcc/ada/{ => libgnarl}/g-boumai.ads | 2 +- gcc/ada/{ => libgnarl}/g-semaph.adb | 2 +- gcc/ada/{ => libgnarl}/g-semaph.ads | 2 +- gcc/ada/{ => libgnarl}/g-signal.adb | 2 +- gcc/ada/{ => libgnarl}/g-signal.ads | 2 +- gcc/ada/{ => libgnarl}/g-tastus.ads | 2 +- gcc/ada/{ => libgnarl}/g-thread.adb | 2 +- gcc/ada/{ => libgnarl}/g-thread.ads | 2 +- gcc/ada/{ => libgnarl}/i-vxinco.adb | 2 +- gcc/ada/{ => libgnarl}/i-vxinco.ads | 2 +- gcc/ada/{ => libgnarl}/s-inmaop-dummy.adb | 2 +- gcc/ada/{ => libgnarl}/s-inmaop-posix.adb | 4 +- gcc/ada/{ => libgnarl}/s-inmaop-vxworks.adb | 4 +- gcc/ada/{ => libgnarl}/s-inmaop.ads | 2 +- gcc/ada/{ => libgnarl}/s-interr-dummy.adb | 4 +- gcc/ada/{ => libgnarl}/s-interr-hwint.adb | 0 gcc/ada/{ => libgnarl}/s-interr-sigaction.adb | 2 +- gcc/ada/{ => libgnarl}/s-interr-vxworks.adb | 2 +- gcc/ada/{ => libgnarl}/s-interr.adb | 2 +- gcc/ada/{ => libgnarl}/s-interr.ads | 2 +- gcc/ada/{ => libgnarl}/s-intman-android.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-dummy.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-mingw.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-posix.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-solaris.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-susv3.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-vxworks.adb | 2 +- gcc/ada/{ => libgnarl}/s-intman-vxworks.ads | 2 +- gcc/ada/{ => libgnarl}/s-intman.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux-alpha.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux-android.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux-hppa.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux-mips.ads | 0 gcc/ada/{ => libgnarl}/s-linux-sparc.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux-x32.ads | 2 +- gcc/ada/{ => libgnarl}/s-linux.ads | 2 +- gcc/ada/{ => libgnarl}/s-mudido-affinity.adb | 0 gcc/ada/{ => libgnarl}/s-mudido.adb | 2 +- gcc/ada/{ => libgnarl}/s-mudido.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-aix.adb | 2 +- gcc/ada/{ => libgnarl}/s-osinte-aix.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-android.adb | 2 +- gcc/ada/{ => libgnarl}/s-osinte-android.ads | 2 +- gcc/ada/{ => libgnarl}/s-osinte-darwin.adb | 2 +- gcc/ada/{ => libgnarl}/s-osinte-darwin.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-dragonfly.adb | 0 gcc/ada/{ => libgnarl}/s-osinte-dragonfly.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-dummy.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-freebsd.adb | 2 +- gcc/ada/{ => libgnarl}/s-osinte-freebsd.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-gnu.adb | 0 gcc/ada/{ => libgnarl}/s-osinte-gnu.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-hpux-dce.adb | 0 gcc/ada/{ => libgnarl}/s-osinte-hpux-dce.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-hpux.ads | 4 +- .../{ => libgnarl}/s-osinte-kfreebsd-gnu.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-linux.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-mingw.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-posix.adb | 4 +- gcc/ada/{ => libgnarl}/s-osinte-rtems.adb | 0 gcc/ada/{ => libgnarl}/s-osinte-rtems.ads | 0 gcc/ada/{ => libgnarl}/s-osinte-solaris.adb | 4 +- gcc/ada/{ => libgnarl}/s-osinte-solaris.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-vxworks.adb | 2 +- gcc/ada/{ => libgnarl}/s-osinte-vxworks.ads | 4 +- gcc/ada/{ => libgnarl}/s-osinte-x32.adb | 4 +- gcc/ada/{ => libgnarl}/s-proinf.adb | 2 +- gcc/ada/{ => libgnarl}/s-proinf.ads | 2 +- gcc/ada/{ => libgnarl}/s-solita.adb | 2 +- gcc/ada/{ => libgnarl}/s-solita.ads | 2 +- gcc/ada/{ => libgnarl}/s-stusta.adb | 2 +- gcc/ada/{ => libgnarl}/s-stusta.ads | 2 +- gcc/ada/{ => libgnarl}/s-taasde.adb | 0 gcc/ada/{ => libgnarl}/s-taasde.ads | 2 +- gcc/ada/{ => libgnarl}/s-tadeca.adb | 2 +- gcc/ada/{ => libgnarl}/s-tadeca.ads | 2 +- gcc/ada/{ => libgnarl}/s-tadert.adb | 2 +- gcc/ada/{ => libgnarl}/s-tadert.ads | 2 +- gcc/ada/{ => libgnarl}/s-taenca.adb | 0 gcc/ada/{ => libgnarl}/s-taenca.ads | 2 +- gcc/ada/{ => libgnarl}/s-taprob.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprob.ads | 2 +- gcc/ada/{ => libgnarl}/s-taprop-dummy.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprop-hpux-dce.adb | 0 gcc/ada/{ => libgnarl}/s-taprop-linux.adb | 0 gcc/ada/{ => libgnarl}/s-taprop-mingw.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprop-posix.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprop-solaris.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprop-vxworks.adb | 2 +- gcc/ada/{ => libgnarl}/s-taprop.ads | 2 +- gcc/ada/{ => libgnarl}/s-tarest.adb | 2 +- gcc/ada/{ => libgnarl}/s-tarest.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasdeb.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasdeb.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-linux.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-linux.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-mingw.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-mingw.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-solaris.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-solaris.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasinf-vxworks.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasinf.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasinf.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasini.adb | 0 gcc/ada/{ => libgnarl}/s-tasini.ads | 2 +- gcc/ada/{ => libgnarl}/s-taskin.adb | 2 +- gcc/ada/{ => libgnarl}/s-taskin.ads | 2 +- gcc/ada/{ => libgnarl}/s-taspri-dummy.ads | 2 +- gcc/ada/{ => libgnarl}/s-taspri-hpux-dce.ads | 0 gcc/ada/{ => libgnarl}/s-taspri-mingw.ads | 2 +- .../s-taspri-posix-noaltstack.ads | 2 +- gcc/ada/{ => libgnarl}/s-taspri-posix.ads | 2 +- gcc/ada/{ => libgnarl}/s-taspri-solaris.ads | 2 +- gcc/ada/{ => libgnarl}/s-taspri-vxworks.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasque.adb | 2 +- gcc/ada/{ => libgnarl}/s-tasque.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasren.adb | 0 gcc/ada/{ => libgnarl}/s-tasren.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasres.ads | 2 +- gcc/ada/{ => libgnarl}/s-tassta.adb | 0 gcc/ada/{ => libgnarl}/s-tassta.ads | 2 +- gcc/ada/{ => libgnarl}/s-tasuti.adb | 0 gcc/ada/{ => libgnarl}/s-tasuti.ads | 2 +- gcc/ada/{ => libgnarl}/s-tataat.adb | 2 +- gcc/ada/{ => libgnarl}/s-tataat.ads | 2 +- gcc/ada/{ => libgnarl}/s-tpinop.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpinop.ads | 2 +- gcc/ada/{ => libgnarl}/s-tpoaal.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpoben.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpoben.ads | 2 +- gcc/ada/libgnarl/s-tpobmu.adb | 53 ++ gcc/ada/libgnarl/s-tpobmu.ads | 43 + gcc/ada/{ => libgnarl}/s-tpobop.adb | 0 gcc/ada/{ => libgnarl}/s-tpobop.ads | 2 +- .../{ => libgnarl}/s-tpopsp-posix-foreign.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpopsp-posix.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpopsp-solaris.adb | 2 +- gcc/ada/{ => libgnarl}/s-tpopsp-tls.adb | 2 +- gcc/ada/libgnarl/s-tpopsp-vxworks-tls.adb | 79 ++ gcc/ada/{ => libgnarl}/s-tpopsp-vxworks.adb | 2 +- gcc/ada/{ => libgnarl}/s-tporft.adb | 2 +- gcc/ada/{ => libgnarl}/s-tposen.adb | 2 +- gcc/ada/{ => libgnarl}/s-tposen.ads | 2 +- gcc/ada/{ => libgnarl}/s-vxwext-kernel.adb | 2 +- gcc/ada/{ => libgnarl}/s-vxwext-kernel.ads | 2 +- gcc/ada/libgnarl/s-vxwext-rtp-smp.adb | 138 +++ gcc/ada/{ => libgnarl}/s-vxwext-rtp.adb | 2 +- gcc/ada/{ => libgnarl}/s-vxwext-rtp.ads | 2 +- gcc/ada/libgnarl/s-vxwext-vthreads.ads | 109 +++ gcc/ada/{ => libgnarl}/s-vxwext.adb | 2 +- gcc/ada/{ => libgnarl}/s-vxwext.ads | 2 +- gcc/ada/{ => libgnarl}/s-vxwork-arm.ads | 2 +- gcc/ada/{ => libgnarl}/s-vxwork-ppc.ads | 2 +- gcc/ada/{ => libgnarl}/s-vxwork-x86.ads | 2 +- gcc/ada/{ => libgnarl}/thread.c | 2 +- 206 files changed, 1110 insertions(+), 630 deletions(-) rename gcc/ada/{ => libgnarl}/a-astaco.adb (97%) rename gcc/ada/{ => libgnarl}/a-astaco.ads (100%) rename gcc/ada/{ => libgnarl}/a-dinopr.ads (100%) rename gcc/ada/{ => libgnarl}/a-diroro.ads (100%) rename gcc/ada/{ => libgnarl}/a-disedf.ads (100%) rename gcc/ada/{ => libgnarl}/a-dispat.adb (97%) rename gcc/ada/{ => libgnarl}/a-dispat.ads (100%) rename gcc/ada/{ => libgnarl}/a-dynpri.adb (98%) rename gcc/ada/{ => libgnarl}/a-dynpri.ads (100%) rename gcc/ada/{ => libgnarl}/a-etgrbu.ads (98%) rename gcc/ada/{ => libgnarl}/a-exetim-darwin.adb (99%) rename gcc/ada/{ => libgnarl}/a-exetim-default.ads (98%) rename gcc/ada/{ => libgnarl}/a-exetim-mingw.adb (98%) rename gcc/ada/{ => libgnarl}/a-exetim-mingw.ads (100%) rename gcc/ada/{ => libgnarl}/a-exetim-posix.adb (100%) rename gcc/ada/{ => libgnarl}/a-exetim.ads (100%) rename gcc/ada/{ => libgnarl}/a-extiin.ads (100%) rename gcc/ada/{ => libgnarl}/a-extiti.ads (100%) rename gcc/ada/{ => libgnarl}/a-interr.adb (97%) rename gcc/ada/{ => libgnarl}/a-interr.ads (98%) rename gcc/ada/{ => libgnarl}/a-intnam-aix.ads (99%) rename gcc/ada/{ => libgnarl}/a-intnam-darwin.ads (99%) rename gcc/ada/{ => libgnarl}/a-intnam-dummy.ads (97%) rename gcc/ada/{ => libgnarl}/a-intnam-freebsd.ads (98%) rename gcc/ada/{ => libgnarl}/a-intnam-hpux.ads (99%) rename gcc/ada/{ => libgnarl}/a-intnam-linux.ads (99%) rename gcc/ada/{ => libgnarl}/a-intnam-mingw.ads (98%) rename gcc/ada/{ => libgnarl}/a-intnam-solaris.ads (99%) rename gcc/ada/{ => libgnarl}/a-intnam-vxworks.ads (97%) rename gcc/ada/{ => libgnarl}/a-intnam.ads (97%) rename gcc/ada/{ => libgnarl}/a-reatim.adb (99%) rename gcc/ada/{ => libgnarl}/a-reatim.ads (99%) rename gcc/ada/{ => libgnarl}/a-retide.adb (98%) rename gcc/ada/{ => libgnarl}/a-retide.ads (97%) rename gcc/ada/{ => libgnarl}/a-rttiev.adb (99%) rename gcc/ada/{ => libgnarl}/a-rttiev.ads (98%) rename gcc/ada/{ => libgnarl}/a-stcoed.ads (100%) rename gcc/ada/{ => libgnarl}/a-synbar-posix.adb (98%) rename gcc/ada/{ => libgnarl}/a-synbar-posix.ads (98%) rename gcc/ada/{ => libgnarl}/a-synbar.adb (98%) rename gcc/ada/{ => libgnarl}/a-synbar.ads (98%) rename gcc/ada/{ => libgnarl}/a-sytaco.adb (98%) rename gcc/ada/{ => libgnarl}/a-sytaco.ads (98%) rename gcc/ada/{ => libgnarl}/a-tasatt.adb (99%) rename gcc/ada/{ => libgnarl}/a-tasatt.ads (98%) rename gcc/ada/{ => libgnarl}/a-taside.adb (100%) rename gcc/ada/{ => libgnarl}/a-taside.ads (98%) rename gcc/ada/{ => libgnarl}/g-boubuf.adb (98%) rename gcc/ada/{ => libgnarl}/g-boubuf.ads (98%) rename gcc/ada/{ => libgnarl}/g-boumai.ads (98%) rename gcc/ada/{ => libgnarl}/g-semaph.adb (98%) rename gcc/ada/{ => libgnarl}/g-semaph.ads (98%) rename gcc/ada/{ => libgnarl}/g-signal.adb (97%) rename gcc/ada/{ => libgnarl}/g-signal.ads (97%) rename gcc/ada/{ => libgnarl}/g-tastus.ads (97%) rename gcc/ada/{ => libgnarl}/g-thread.adb (99%) rename gcc/ada/{ => libgnarl}/g-thread.ads (99%) rename gcc/ada/{ => libgnarl}/i-vxinco.adb (97%) rename gcc/ada/{ => libgnarl}/i-vxinco.ads (97%) rename gcc/ada/{ => libgnarl}/s-inmaop-dummy.adb (98%) rename gcc/ada/{ => libgnarl}/s-inmaop-posix.adb (98%) rename gcc/ada/{ => libgnarl}/s-inmaop-vxworks.adb (98%) rename gcc/ada/{ => libgnarl}/s-inmaop.ads (98%) rename gcc/ada/{ => libgnarl}/s-interr-dummy.adb (98%) rename gcc/ada/{ => libgnarl}/s-interr-hwint.adb (100%) rename gcc/ada/{ => libgnarl}/s-interr-sigaction.adb (99%) rename gcc/ada/{ => libgnarl}/s-interr-vxworks.adb (99%) rename gcc/ada/{ => libgnarl}/s-interr.adb (99%) rename gcc/ada/{ => libgnarl}/s-interr.ads (99%) rename gcc/ada/{ => libgnarl}/s-intman-android.adb (99%) rename gcc/ada/{ => libgnarl}/s-intman-dummy.adb (97%) rename gcc/ada/{ => libgnarl}/s-intman-mingw.adb (97%) rename gcc/ada/{ => libgnarl}/s-intman-posix.adb (99%) rename gcc/ada/{ => libgnarl}/s-intman-solaris.adb (99%) rename gcc/ada/{ => libgnarl}/s-intman-susv3.adb (99%) rename gcc/ada/{ => libgnarl}/s-intman-vxworks.adb (98%) rename gcc/ada/{ => libgnarl}/s-intman-vxworks.ads (98%) rename gcc/ada/{ => libgnarl}/s-intman.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux-alpha.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux-android.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux-hppa.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux-mips.ads (100%) rename gcc/ada/{ => libgnarl}/s-linux-sparc.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux-x32.ads (98%) rename gcc/ada/{ => libgnarl}/s-linux.ads (98%) rename gcc/ada/{ => libgnarl}/s-mudido-affinity.adb (100%) rename gcc/ada/{ => libgnarl}/s-mudido.adb (98%) rename gcc/ada/{ => libgnarl}/s-mudido.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-aix.adb (99%) rename gcc/ada/{ => libgnarl}/s-osinte-aix.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-android.adb (98%) rename gcc/ada/{ => libgnarl}/s-osinte-android.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-darwin.adb (99%) rename gcc/ada/{ => libgnarl}/s-osinte-darwin.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-dragonfly.adb (100%) rename gcc/ada/{ => libgnarl}/s-osinte-dragonfly.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-dummy.ads (95%) rename gcc/ada/{ => libgnarl}/s-osinte-freebsd.adb (98%) rename gcc/ada/{ => libgnarl}/s-osinte-freebsd.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-gnu.adb (100%) rename gcc/ada/{ => libgnarl}/s-osinte-gnu.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-hpux-dce.adb (100%) rename gcc/ada/{ => libgnarl}/s-osinte-hpux-dce.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-hpux.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-kfreebsd-gnu.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-linux.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-mingw.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-posix.adb (97%) rename gcc/ada/{ => libgnarl}/s-osinte-rtems.adb (100%) rename gcc/ada/{ => libgnarl}/s-osinte-rtems.ads (100%) rename gcc/ada/{ => libgnarl}/s-osinte-solaris.adb (96%) rename gcc/ada/{ => libgnarl}/s-osinte-solaris.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-vxworks.adb (99%) rename gcc/ada/{ => libgnarl}/s-osinte-vxworks.ads (99%) rename gcc/ada/{ => libgnarl}/s-osinte-x32.adb (97%) rename gcc/ada/{ => libgnarl}/s-proinf.adb (97%) rename gcc/ada/{ => libgnarl}/s-proinf.ads (97%) rename gcc/ada/{ => libgnarl}/s-solita.adb (99%) rename gcc/ada/{ => libgnarl}/s-solita.ads (97%) rename gcc/ada/{ => libgnarl}/s-stusta.adb (99%) rename gcc/ada/{ => libgnarl}/s-stusta.ads (98%) rename gcc/ada/{ => libgnarl}/s-taasde.adb (100%) rename gcc/ada/{ => libgnarl}/s-taasde.ads (98%) rename gcc/ada/{ => libgnarl}/s-tadeca.adb (98%) rename gcc/ada/{ => libgnarl}/s-tadeca.ads (97%) rename gcc/ada/{ => libgnarl}/s-tadert.adb (97%) rename gcc/ada/{ => libgnarl}/s-tadert.ads (97%) rename gcc/ada/{ => libgnarl}/s-taenca.adb (100%) rename gcc/ada/{ => libgnarl}/s-taenca.ads (98%) rename gcc/ada/{ => libgnarl}/s-taprob.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprob.ads (99%) rename gcc/ada/{ => libgnarl}/s-taprop-dummy.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprop-hpux-dce.adb (100%) rename gcc/ada/{ => libgnarl}/s-taprop-linux.adb (100%) rename gcc/ada/{ => libgnarl}/s-taprop-mingw.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprop-posix.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprop-solaris.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprop-vxworks.adb (99%) rename gcc/ada/{ => libgnarl}/s-taprop.ads (99%) rename gcc/ada/{ => libgnarl}/s-tarest.adb (99%) rename gcc/ada/{ => libgnarl}/s-tarest.ads (99%) rename gcc/ada/{ => libgnarl}/s-tasdeb.adb (99%) rename gcc/ada/{ => libgnarl}/s-tasdeb.ads (99%) rename gcc/ada/{ => libgnarl}/s-tasinf-linux.adb (97%) rename gcc/ada/{ => libgnarl}/s-tasinf-linux.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasinf-mingw.adb (98%) rename gcc/ada/{ => libgnarl}/s-tasinf-mingw.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasinf-solaris.adb (98%) rename gcc/ada/{ => libgnarl}/s-tasinf-solaris.ads (99%) rename gcc/ada/{ => libgnarl}/s-tasinf-vxworks.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasinf.adb (97%) rename gcc/ada/{ => libgnarl}/s-tasinf.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasini.adb (100%) rename gcc/ada/{ => libgnarl}/s-tasini.ads (99%) rename gcc/ada/{ => libgnarl}/s-taskin.adb (99%) rename gcc/ada/{ => libgnarl}/s-taskin.ads (99%) rename gcc/ada/{ => libgnarl}/s-taspri-dummy.ads (98%) rename gcc/ada/{ => libgnarl}/s-taspri-hpux-dce.ads (100%) rename gcc/ada/{ => libgnarl}/s-taspri-mingw.ads (98%) rename gcc/ada/{ => libgnarl}/s-taspri-posix-noaltstack.ads (98%) rename gcc/ada/{ => libgnarl}/s-taspri-posix.ads (98%) rename gcc/ada/{ => libgnarl}/s-taspri-solaris.ads (99%) rename gcc/ada/{ => libgnarl}/s-taspri-vxworks.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasque.adb (99%) rename gcc/ada/{ => libgnarl}/s-tasque.ads (98%) rename gcc/ada/{ => libgnarl}/s-tasren.adb (100%) rename gcc/ada/{ => libgnarl}/s-tasren.ads (99%) rename gcc/ada/{ => libgnarl}/s-tasres.ads (97%) rename gcc/ada/{ => libgnarl}/s-tassta.adb (100%) rename gcc/ada/{ => libgnarl}/s-tassta.ads (99%) rename gcc/ada/{ => libgnarl}/s-tasuti.adb (100%) rename gcc/ada/{ => libgnarl}/s-tasuti.ads (99%) rename gcc/ada/{ => libgnarl}/s-tataat.adb (98%) rename gcc/ada/{ => libgnarl}/s-tataat.ads (97%) rename gcc/ada/{ => libgnarl}/s-tpinop.adb (98%) rename gcc/ada/{ => libgnarl}/s-tpinop.ads (97%) rename gcc/ada/{ => libgnarl}/s-tpoaal.adb (98%) rename gcc/ada/{ => libgnarl}/s-tpoben.adb (99%) rename gcc/ada/{ => libgnarl}/s-tpoben.ads (99%) create mode 100644 gcc/ada/libgnarl/s-tpobmu.adb create mode 100644 gcc/ada/libgnarl/s-tpobmu.ads rename gcc/ada/{ => libgnarl}/s-tpobop.adb (100%) rename gcc/ada/{ => libgnarl}/s-tpobop.ads (99%) rename gcc/ada/{ => libgnarl}/s-tpopsp-posix-foreign.adb (98%) rename gcc/ada/{ => libgnarl}/s-tpopsp-posix.adb (98%) rename gcc/ada/{ => libgnarl}/s-tpopsp-solaris.adb (98%) rename gcc/ada/{ => libgnarl}/s-tpopsp-tls.adb (98%) create mode 100644 gcc/ada/libgnarl/s-tpopsp-vxworks-tls.adb rename gcc/ada/{ => libgnarl}/s-tpopsp-vxworks.adb (98%) rename gcc/ada/{ => libgnarl}/s-tporft.adb (98%) rename gcc/ada/{ => libgnarl}/s-tposen.adb (99%) rename gcc/ada/{ => libgnarl}/s-tposen.ads (99%) rename gcc/ada/{ => libgnarl}/s-vxwext-kernel.adb (98%) rename gcc/ada/{ => libgnarl}/s-vxwext-kernel.ads (98%) create mode 100644 gcc/ada/libgnarl/s-vxwext-rtp-smp.adb rename gcc/ada/{ => libgnarl}/s-vxwext-rtp.adb (98%) rename gcc/ada/{ => libgnarl}/s-vxwext-rtp.ads (98%) create mode 100644 gcc/ada/libgnarl/s-vxwext-vthreads.ads rename gcc/ada/{ => libgnarl}/s-vxwext.adb (97%) rename gcc/ada/{ => libgnarl}/s-vxwext.ads (98%) rename gcc/ada/{ => libgnarl}/s-vxwork-arm.ads (98%) rename gcc/ada/{ => libgnarl}/s-vxwork-ppc.ads (97%) rename gcc/ada/{ => libgnarl}/s-vxwork-x86.ads (98%) rename gcc/ada/{ => libgnarl}/thread.c (98%) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0ee9488bd3a..61dc74024be 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,60 @@ +2017-09-08 Nicolas Roche + + * gcc-interface/Makefile.in, a-extiti.ads, s-taprop-linux.adb, + s-osinte-solaris.adb, a-intnam.ads, s-osinte-solaris.ads, + s-tpobop.adb, s-intman-android.adb, s-tasinf.adb, s-tpobop.ads, + s-tasinf.ads, i-vxinco.adb, a-exetim-posix.adb, i-vxinco.ads, + a-astaco.adb, a-astaco.ads, s-tporft.adb, s-tpoaal.adb, a-taside.adb, + a-taside.ads, s-tpopsp-posix.adb, s-tasdeb.adb, s-tasdeb.ads, + s-tpoben.adb, a-dinopr.ads, s-inmaop-vxworks.adb, s-tpoben.ads, + s-interr-vxworks.adb, s-interr-dummy.adb, s-tassta.adb, + a-intnam-mingw.ads, s-tassta.ads, s-taasde.adb, a-stcoed.ads, + s-taasde.ads, s-osinte-darwin.adb, s-proinf.adb, s-taprop-dummy.adb, + s-osinte-darwin.ads, s-proinf.ads, s-linux.ads, a-intnam-linux.ads, + s-tasren.adb, s-tasren.ads, s-mudido.adb, g-semaph.adb, s-mudido.ads, + s-taprop-posix.adb, g-semaph.ads, s-osinte-mingw.ads, s-vxwork-x86.ads, + s-tposen.adb, s-linux-sparc.ads, s-taprop-vxworks.adb, s-tasini.adb, + s-tposen.ads, s-tasini.ads, a-etgrbu.ads, s-interr-hwint.adb, + s-osinte-linux.ads, s-taprop.ads, s-tasque.adb, s-tasque.ads, + s-taenca.adb, s-taspri-vxworks.ads, s-taenca.ads, a-dynpri.adb, + s-tpopsp-solaris.adb, a-dynpri.ads, s-taprop-hpux-dce.adb, + a-interr.adb, a-intnam-freebsd.ads, s-tarest.adb, a-interr.ads, + s-intman-susv3.adb, a-synbar.adb, a-intnam-dummy.ads, s-tadeca.adb, + s-osinte-vxworks.adb, s-tarest.ads, s-taskin.adb, a-synbar.ads, + s-taspri-hpux-dce.ads, s-tadeca.ads, s-osinte-vxworks.ads, + s-taskin.ads, s-intman-solaris.adb, a-sytaco.adb, s-vxwext-kernel.adb, + s-mudido-affinity.adb, a-sytaco.ads, s-vxwext-kernel.ads, s-taprob.adb, + s-intman-mingw.adb, s-taprob.ads, s-osinte-kfreebsd-gnu.ads, + s-osinte-dummy.ads, s-osinte-gnu.adb, s-osinte-rtems.adb, s-interr.adb, + s-inmaop.ads, s-vxwext-rtp.adb, s-osinte-gnu.ads, s-osinte-rtems.ads, + a-synbar-posix.adb, s-interr.ads, s-taspri-posix-noaltstack.ads, + s-vxwext-rtp.ads, a-synbar-posix.ads, a-extiin.ads, s-osinte-posix.adb, + s-tpinop.adb, s-tasres.ads, s-tpinop.ads, a-disedf.ads, a-diroro.ads, + s-linux-alpha.ads, a-tasatt.adb, s-solita.adb, a-intnam-solaris.ads, + a-tasatt.ads, s-solita.ads, s-tasinf-solaris.adb, s-tasinf-solaris.ads, + s-vxwork-arm.ads, s-tpopsp-posix-foreign.adb, s-intman-dummy.adb, + s-intman.ads, s-stusta.adb, s-stusta.ads, s-intman-posix.adb, + s-tpopsp-vxworks.adb, s-inmaop-dummy.adb, s-taspri-mingw.ads, + a-intnam-darwin.ads, s-osinte-aix.adb, s-osinte-dragonfly.adb, + s-osinte-aix.ads, s-tasinf-mingw.adb, s-osinte-dragonfly.ads, + s-linux-hppa.ads, s-osinte-x32.adb, s-inmaop-posix.adb, + s-tasinf-mingw.ads, s-intman-vxworks.adb, s-linux-mips.ads, + s-intman-vxworks.ads, s-osinte-android.adb, s-tasinf-linux.adb, + s-osinte-android.ads, s-vxwork-ppc.ads, s-tasinf-linux.ads, + a-dispat.adb, a-dispat.ads, s-tadert.adb, g-thread.adb, s-tadert.ads, + g-thread.ads, a-intnam-hpux.ads, s-linux-android.ads, s-tataat.adb, + a-exetim.ads, s-tataat.ads, a-reatim.adb, a-reatim.ads, thread.c, + g-boubuf.adb, s-osinte-freebsd.adb, g-boubuf.ads, s-osinte-freebsd.ads, + s-tasuti.adb, s-taspri-dummy.ads, a-exetim-mingw.adb, s-linux-x32.ads, + s-tasuti.ads, g-signal.adb, a-exetim-mingw.ads, s-interr-sigaction.adb, + g-signal.ads, s-osinte-hpux.ads, a-intnam-vxworks.ads, + s-osinte-hpux-dce.adb, s-taspri-posix.ads, s-osinte-hpux-dce.ads, + s-tasinf-vxworks.ads, g-tastus.ads, s-tpopsp-tls.adb, + s-taprop-solaris.adb, a-retide.adb, a-exetim-darwin.adb, a-retide.ads, + s-vxwext.adb, s-vxwext.ads, a-rttiev.adb, a-rttiev.ads, g-boumai.ads, + a-exetim-default.ads, s-taprop-mingw.adb, s-taspri-solaris.ads, + a-intnam-aix.ads: Move libgnarl sources to libgnarl subdir. + 2017-09-08 Arnaud Charlet * doc/share/conf.py, doc/share/latex_elements.py, diff --git a/gcc/ada/gcc-interface/Makefile.in b/gcc/ada/gcc-interface/Makefile.in index 9ad7783e43b..ef3dbec1079 100644 --- a/gcc/ada/gcc-interface/Makefile.in +++ b/gcc/ada/gcc-interface/Makefile.in @@ -355,13 +355,13 @@ endif # Non-tasking case: LIBGNAT_TARGET_PAIRS = \ -a-intnam.ads. -- +-- -- +-- GNARL was developed by the GNARL team at Florida State University. -- +-- Extensive contributions were provided by Ada Core Technologies, Inc. -- +-- -- +------------------------------------------------------------------------------ + +package body System.Tasking.Protected_Objects.Multiprocessors is + + ------------ + -- Served -- + ------------ + + procedure Served (Entry_Call : Entry_Call_Link) is + pragma Unreferenced (Entry_Call); + begin + pragma Assert (False, "Invalid operation"); + end Served; + + ------------------------- + -- Wakeup_Served_Entry -- + ------------------------- + + procedure Wakeup_Served_Entry is + begin + pragma Assert (False, "Invalid operation"); + end Wakeup_Served_Entry; + +end System.Tasking.Protected_Objects.Multiprocessors; diff --git a/gcc/ada/libgnarl/s-tpobmu.ads b/gcc/ada/libgnarl/s-tpobmu.ads new file mode 100644 index 00000000000..de65279e339 --- /dev/null +++ b/gcc/ada/libgnarl/s-tpobmu.ads @@ -0,0 +1,43 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- +-- -- +-- S Y S T E M . T A S K I N G . P R O T E C T E D _ O B J E C T S . -- +-- M U L T I P R O C E S S O R S -- +-- S p e c -- +-- -- +-- Copyright (C) 2010-2017, AdaCore -- +-- -- +-- GNARL is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNARL is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- . -- +-- -- +-- GNARL was developed by the GNARL team at Florida State University. -- +-- Extensive contributions were provided by Ada Core Technologies, Inc. -- +-- -- +------------------------------------------------------------------------------ + +package System.Tasking.Protected_Objects.Multiprocessors is + + procedure Served (Entry_Call : Entry_Call_Link); + -- This procedure is called at the end of a call to an entry or to a + -- protected procedure. It adds Entry_Call to a per-CPU list, and pokes + -- the CPU (the one from the task waiting on the entry). + + procedure Wakeup_Served_Entry; + -- Called when the CPU is poked to awake all the tasks of the current CPU + -- waiting on entries. + +end System.Tasking.Protected_Objects.Multiprocessors; diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/libgnarl/s-tpobop.adb similarity index 100% rename from gcc/ada/s-tpobop.adb rename to gcc/ada/libgnarl/s-tpobop.adb diff --git a/gcc/ada/s-tpobop.ads b/gcc/ada/libgnarl/s-tpobop.ads similarity index 99% rename from gcc/ada/s-tpobop.ads rename to gcc/ada/libgnarl/s-tpobop.ads index 9b67fbd4673..400053c9308 100644 --- a/gcc/ada/s-tpobop.ads +++ b/gcc/ada/libgnarl/s-tpobop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tpopsp-posix-foreign.adb b/gcc/ada/libgnarl/s-tpopsp-posix-foreign.adb similarity index 98% rename from gcc/ada/s-tpopsp-posix-foreign.adb rename to gcc/ada/libgnarl/s-tpopsp-posix-foreign.adb index 485abc5c953..66f979ea8f1 100644 --- a/gcc/ada/s-tpopsp-posix-foreign.adb +++ b/gcc/ada/libgnarl/s-tpopsp-posix-foreign.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tpopsp-posix.adb b/gcc/ada/libgnarl/s-tpopsp-posix.adb similarity index 98% rename from gcc/ada/s-tpopsp-posix.adb rename to gcc/ada/libgnarl/s-tpopsp-posix.adb index af068e0bc22..f38308fd033 100644 --- a/gcc/ada/s-tpopsp-posix.adb +++ b/gcc/ada/libgnarl/s-tpopsp-posix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tpopsp-solaris.adb b/gcc/ada/libgnarl/s-tpopsp-solaris.adb similarity index 98% rename from gcc/ada/s-tpopsp-solaris.adb rename to gcc/ada/libgnarl/s-tpopsp-solaris.adb index 1d46e714cc4..7c00d057ee4 100644 --- a/gcc/ada/s-tpopsp-solaris.adb +++ b/gcc/ada/libgnarl/s-tpopsp-solaris.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tpopsp-tls.adb b/gcc/ada/libgnarl/s-tpopsp-tls.adb similarity index 98% rename from gcc/ada/s-tpopsp-tls.adb rename to gcc/ada/libgnarl/s-tpopsp-tls.adb index a82f7f38d3e..d21d2bebe14 100644 --- a/gcc/ada/s-tpopsp-tls.adb +++ b/gcc/ada/libgnarl/s-tpopsp-tls.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/libgnarl/s-tpopsp-vxworks-tls.adb b/gcc/ada/libgnarl/s-tpopsp-vxworks-tls.adb new file mode 100644 index 00000000000..744ec488ac6 --- /dev/null +++ b/gcc/ada/libgnarl/s-tpopsp-vxworks-tls.adb @@ -0,0 +1,79 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- +-- -- +-- SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- . -- +-- -- +-- GNARL was developed by the GNARL team at Florida State University. -- +-- Extensive contributions were provided by Ada Core Technologies, Inc. -- +-- -- +------------------------------------------------------------------------------ + +-- This is a VxWorks version of this package using Thread_Local_Storage +-- support (VxWorks 6.6 and higher). The implementation is based on __threads +-- support. + +separate (System.Task_Primitives.Operations) +package body Specific is + + ATCB : aliased Task_Id := null; + -- Ada Task_Id associated with a thread + pragma Thread_Local_Storage (ATCB); + + ---------------- + -- Initialize -- + ---------------- + + procedure Initialize is + begin + null; + end Initialize; + + ------------------- + -- Is_Valid_Task -- + ------------------- + + function Is_Valid_Task return Boolean is + begin + return ATCB /= Null_Task; + end Is_Valid_Task; + + --------- + -- Set -- + --------- + + procedure Set (Self_Id : Task_Id) is + begin + ATCB := Self_Id; + end Set; + + ---------- + -- Self -- + ---------- + + function Self return Task_Id is + begin + return ATCB; + end Self; + +end Specific; diff --git a/gcc/ada/s-tpopsp-vxworks.adb b/gcc/ada/libgnarl/s-tpopsp-vxworks.adb similarity index 98% rename from gcc/ada/s-tpopsp-vxworks.adb rename to gcc/ada/libgnarl/s-tpopsp-vxworks.adb index c3a23c26509..bc343b1e16c 100644 --- a/gcc/ada/s-tpopsp-vxworks.adb +++ b/gcc/ada/libgnarl/s-tpopsp-vxworks.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/libgnarl/s-tporft.adb similarity index 98% rename from gcc/ada/s-tporft.adb rename to gcc/ada/libgnarl/s-tporft.adb index 2f22f8aaac9..7b8a59276f8 100644 --- a/gcc/ada/s-tporft.adb +++ b/gcc/ada/libgnarl/s-tporft.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tposen.adb b/gcc/ada/libgnarl/s-tposen.adb similarity index 99% rename from gcc/ada/s-tposen.adb rename to gcc/ada/libgnarl/s-tposen.adb index 9bdf7f82238..c87caac7edd 100644 --- a/gcc/ada/s-tposen.adb +++ b/gcc/ada/libgnarl/s-tposen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tposen.ads b/gcc/ada/libgnarl/s-tposen.ads similarity index 99% rename from gcc/ada/s-tposen.ads rename to gcc/ada/libgnarl/s-tposen.ads index ea0513a1792..625cdfc30de 100644 --- a/gcc/ada/s-tposen.ads +++ b/gcc/ada/libgnarl/s-tposen.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwext-kernel.adb b/gcc/ada/libgnarl/s-vxwext-kernel.adb similarity index 98% rename from gcc/ada/s-vxwext-kernel.adb rename to gcc/ada/libgnarl/s-vxwext-kernel.adb index 404e9aaa946..9b43b3b7900 100644 --- a/gcc/ada/s-vxwext-kernel.adb +++ b/gcc/ada/libgnarl/s-vxwext-kernel.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwext-kernel.ads b/gcc/ada/libgnarl/s-vxwext-kernel.ads similarity index 98% rename from gcc/ada/s-vxwext-kernel.ads rename to gcc/ada/libgnarl/s-vxwext-kernel.ads index dfdbcf19544..914f281c2b5 100644 --- a/gcc/ada/s-vxwext-kernel.ads +++ b/gcc/ada/libgnarl/s-vxwext-kernel.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2008-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/libgnarl/s-vxwext-rtp-smp.adb b/gcc/ada/libgnarl/s-vxwext-rtp-smp.adb new file mode 100644 index 00000000000..18ad35fdc35 --- /dev/null +++ b/gcc/ada/libgnarl/s-vxwext-rtp-smp.adb @@ -0,0 +1,138 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- +-- -- +-- S Y S T E M . V X W O R K S . E X T -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- . -- +-- -- +------------------------------------------------------------------------------ + +-- This package provides VxWorks specific support functions needed +-- by System.OS_Interface. + +-- This is the VxWorks 6 RTP/SMP version of this package + +package body System.VxWorks.Ext is + + ERROR : constant := -1; + + -------------- + -- Int_Lock -- + -------------- + + function Int_Lock return int is + begin + return ERROR; + end Int_Lock; + + ---------------- + -- Int_Unlock -- + ---------------- + + function Int_Unlock (Old : int) return int is + pragma Unreferenced (Old); + begin + return ERROR; + end Int_Unlock; + + ----------------------- + -- Interrupt_Connect -- + ----------------------- + + function Interrupt_Connect + (Vector : Interrupt_Vector; + Handler : Interrupt_Handler; + Parameter : System.Address := System.Null_Address) return int + is + pragma Unreferenced (Vector, Handler, Parameter); + begin + return ERROR; + end Interrupt_Connect; + + ----------------------- + -- Interrupt_Context -- + ----------------------- + + function Interrupt_Context return int is + begin + -- For RTPs, never in an interrupt context + + return 0; + end Interrupt_Context; + + -------------------------------- + -- Interrupt_Number_To_Vector -- + -------------------------------- + + function Interrupt_Number_To_Vector + (intNum : int) return Interrupt_Vector + is + pragma Unreferenced (intNum); + begin + return 0; + end Interrupt_Number_To_Vector; + + --------------- + -- semDelete -- + --------------- + + function semDelete (Sem : SEM_ID) return int is + function OS_semDelete (Sem : SEM_ID) return int; + pragma Import (C, OS_semDelete, "semDelete"); + begin + return OS_semDelete (Sem); + end semDelete; + + -------------------- + -- Set_Time_Slice -- + -------------------- + + function Set_Time_Slice (ticks : int) return int is + pragma Unreferenced (ticks); + begin + return ERROR; + end Set_Time_Slice; + + ------------------------ + -- taskCpuAffinitySet -- + ------------------------ + + function taskCpuAffinitySet (tid : t_id; CPU : int) return int + is + function Set_Affinity (tid : t_id; CPU : int) return int; + pragma Import (C, Set_Affinity, "__gnat_set_affinity"); + begin + return Set_Affinity (tid, CPU); + end taskCpuAffinitySet; + + ------------------------- + -- taskMaskAffinitySet -- + ------------------------- + + function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int is + function Set_Affinity (tid : t_id; CPU_Set : unsigned) return int; + pragma Import (C, Set_Affinity, "__gnat_set_affinity_mask"); + begin + return Set_Affinity (tid, CPU_Set); + end taskMaskAffinitySet; + +end System.VxWorks.Ext; diff --git a/gcc/ada/s-vxwext-rtp.adb b/gcc/ada/libgnarl/s-vxwext-rtp.adb similarity index 98% rename from gcc/ada/s-vxwext-rtp.adb rename to gcc/ada/libgnarl/s-vxwext-rtp.adb index 4dd7ab46c95..f53aba1055c 100644 --- a/gcc/ada/s-vxwext-rtp.adb +++ b/gcc/ada/libgnarl/s-vxwext-rtp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwext-rtp.ads b/gcc/ada/libgnarl/s-vxwext-rtp.ads similarity index 98% rename from gcc/ada/s-vxwext-rtp.ads rename to gcc/ada/libgnarl/s-vxwext-rtp.ads index 4b658f69434..e4235a9984f 100644 --- a/gcc/ada/s-vxwext-rtp.ads +++ b/gcc/ada/libgnarl/s-vxwext-rtp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2008-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/libgnarl/s-vxwext-vthreads.ads b/gcc/ada/libgnarl/s-vxwext-vthreads.ads new file mode 100644 index 00000000000..6fb923b5ee7 --- /dev/null +++ b/gcc/ada/libgnarl/s-vxwext-vthreads.ads @@ -0,0 +1,109 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- +-- -- +-- S Y S T E M . V X W O R K S . E X T -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- . -- +-- -- +------------------------------------------------------------------------------ + +-- This package provides VxWorks specific support functions needed +-- by System.OS_Interface. + +-- This is the VxWorks 653 vThreads version of this package + +with Interfaces.C; + +package System.VxWorks.Ext is + pragma Preelaborate; + + subtype SEM_ID is Long_Integer; + -- typedef struct semaphore *SEM_ID; + + type sigset_t is mod 2 ** Interfaces.C.long'Size; + + type t_id is new Long_Integer; + subtype int is Interfaces.C.int; + subtype unsigned is Interfaces.C.unsigned; + + type Interrupt_Handler is access procedure (parameter : System.Address); + pragma Convention (C, Interrupt_Handler); + + type Interrupt_Vector is new System.Address; + function Int_Lock return int; + pragma Inline (Int_Lock); + + function Int_Unlock (Old : int) return int; + pragma Inline (Int_Unlock); + + function Interrupt_Connect + (Vector : Interrupt_Vector; + Handler : Interrupt_Handler; + Parameter : System.Address := System.Null_Address) return int; + pragma Convention (C, Interrupt_Connect); + + function Interrupt_Context return int; + pragma Convention (C, Interrupt_Context); + + function Interrupt_Number_To_Vector + (intNum : int) return Interrupt_Vector; + pragma Convention (C, Interrupt_Number_To_Vector); + + function semDelete (Sem : SEM_ID) return int; + pragma Convention (C, semDelete); + + function Task_Cont (tid : t_id) return int; + pragma Import (C, Task_Cont, "taskResume"); + + function Task_Stop (tid : t_id) return int; + pragma Import (C, Task_Stop, "taskSuspend"); + + function kill (pid : t_id; sig : int) return int; + pragma Import (C, kill, "kill"); + + function getpid return t_id; + pragma Import (C, getpid, "taskIdSelf"); + + function Set_Time_Slice (ticks : int) return int; + pragma Import (C, Set_Time_Slice, "kernelTimeSlice"); + + type UINT64 is mod 2 ** Long_Long_Integer'Size; + + function tickGet return UINT64; + -- "tickGet" not available for cert vThreads: + pragma Import (C, tickGet, "tick64Get"); + + -------------------------------- + -- Processor Affinity for SMP -- + -------------------------------- + + function taskCpuAffinitySet (tid : t_id; CPU : int) return int; + pragma Convention (C, taskCpuAffinitySet); + -- For SMP run-times set the CPU affinity. + -- For uniprocessor systems return ERROR status. + + function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int; + pragma Convention (C, taskMaskAffinitySet); + -- For SMP run-times set the CPU mask affinity. + -- For uniprocessor systems return ERROR status. + +end System.VxWorks.Ext; diff --git a/gcc/ada/s-vxwext.adb b/gcc/ada/libgnarl/s-vxwext.adb similarity index 97% rename from gcc/ada/s-vxwext.adb rename to gcc/ada/libgnarl/s-vxwext.adb index a386af91d0f..332d979cb54 100644 --- a/gcc/ada/s-vxwext.adb +++ b/gcc/ada/libgnarl/s-vxwext.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2009-2017, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwext.ads b/gcc/ada/libgnarl/s-vxwext.ads similarity index 98% rename from gcc/ada/s-vxwext.ads rename to gcc/ada/libgnarl/s-vxwext.ads index 1aea52739e3..860cdac84ea 100644 --- a/gcc/ada/s-vxwext.ads +++ b/gcc/ada/libgnarl/s-vxwext.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2008-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwork-arm.ads b/gcc/ada/libgnarl/s-vxwork-arm.ads similarity index 98% rename from gcc/ada/s-vxwork-arm.ads rename to gcc/ada/libgnarl/s-vxwork-arm.ads index 8c4cf7e53e2..ec9c294b6c4 100644 --- a/gcc/ada/s-vxwork-arm.ads +++ b/gcc/ada/libgnarl/s-vxwork-arm.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwork-ppc.ads b/gcc/ada/libgnarl/s-vxwork-ppc.ads similarity index 97% rename from gcc/ada/s-vxwork-ppc.ads rename to gcc/ada/libgnarl/s-vxwork-ppc.ads index 2c25e2ce38a..3c7f4a0766d 100644 --- a/gcc/ada/s-vxwork-ppc.ads +++ b/gcc/ada/libgnarl/s-vxwork-ppc.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-vxwork-x86.ads b/gcc/ada/libgnarl/s-vxwork-x86.ads similarity index 98% rename from gcc/ada/s-vxwork-x86.ads rename to gcc/ada/libgnarl/s-vxwork-x86.ads index fac24f316fd..f40a78a004c 100644 --- a/gcc/ada/s-vxwork-x86.ads +++ b/gcc/ada/libgnarl/s-vxwork-x86.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2017, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/thread.c b/gcc/ada/libgnarl/thread.c similarity index 98% rename from gcc/ada/thread.c rename to gcc/ada/libgnarl/thread.c index bd3cfa6af48..5d616505861 100644 --- a/gcc/ada/thread.c +++ b/gcc/ada/libgnarl/thread.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2011-2014, Free Software Foundation, Inc. * + * Copyright (C) 2011-2017, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * -- 2.30.2