summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2005-11-15 14:06:45 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2005-11-15 14:06:45 +0000
commit3817baeb247b3239c00beb407e03e32cb06900c2 (patch)
tree4b2ed65c34a779d66884720031ddda3038633045
parent6bc2a95431cdad0e843f9d65c7e9c0c535f6e757 (diff)
downloadgcc-3817baeb247b3239c00beb407e03e32cb06900c2.tar.gz
2005-11-14 Robert Dewar <dewar@adacore.com>
* a-secain.adb, a-slcain.adb, a-shcain.adb, a-chtgke.ads, a-chtgke.adb, a-stwiha.adb, a-strhas.adb, a-chzla1.ads, a-chzla9.ads, a-stzbou.adb, a-stzbou.ads, a-stzfix.adb, a-stzhas.adb, a-stzmap.adb, a-stzmap.ads, a-stzsea.adb, a-stzsea.ads, a-stzsup.adb, a-stzsup.ads, a-stzunb.adb, a-stzunb.ads, a-szuzha.adb, a-szuzha.ads, a-szuzti.adb, a-szuzti.ads, a-ztcoau.adb, a-ztcoau.ads, a-ztcoio.adb, a-ztcstr.adb, a-ztcstr.ads, a-ztdeau.adb, a-ztdeau.ads, a-ztdeio.adb, a-ztdeio.ads, a-ztedit.adb, a-ztedit.ads, a-ztenau.ads, a-ztenio.adb, a-ztenio.ads, a-ztexio.adb, a-ztexio.ads, a-ztfiio.adb, a-ztfiio.ads, a-ztflau.adb, a-ztflau.ads, a-ztflio.adb, a-ztflio.ads, a-ztgeau.adb, a-ztgeau.ads, a-ztinau.adb, a-ztinau.ads, a-ztinio.adb, a-ztmoau.ads, a-ztmoio.adb, a-ztmoio.ads, a-zttest.adb, g-enblsp-vms-alpha.adb, g-enblsp-vms-alpha.adb, g-enblsp-vms-ia64.adb, g-enblsp-vms-ia64.adb, system-linux-hppa.ads, a-chacon.adb, a-chacon.ads, a-wichun.adb, a-wichun.ads, a-zchuni.adb, a-zchuni.ads, g-trasym-vms-alpha.adb, g-trasym-vms-ia64.adb, system-hpux-ia64.ads, g-soccon-unixware.ads, g-soliop-unixware.ads, g-soccon-interix.ads, g-soliop-solaris.ads, g-eacodu-vms.adb, g-expect-vms.adb, g-socthi-vms.adb, g-soliop-mingw.ads, a-intnam-unixware.ads, a-intnam-lynxos.ads, a-intnam-tru64.ads, a-intnam-aix.ads, a-intnam-linux.ads, a-intnam-linux.ads, a-intnam-dummy.ads, a-numaux-libc-x86.ads, a-intnam-interix.ads, a-intnam-solaris.ads, a-calend-vms.adb, a-calend-vms.ads, a-intnam-vms.ads, a-calend-mingw.adb, a-intnam-mingw.ads, a-intnam-vxworks.ads, a-numaux-vxworks.ads, system-unixware.ads, system-linux-ia64.ads, a-intnam-freebsd.ads, system-freebsd-x86.ads, system-lynxos-ppc.ads, system-linux-x86_64.ads, a-stunha.adb, a-cgaaso.ads, a-cgaaso.adb, a-chtgop.adb, a-cgcaso.adb, a-cgarso.adb, a-cohata.ads, a-crbtgk.adb, a-crbltr.ads, a-coprnu.adb, a-rbtgso.adb, a-intnam-darwin.ads, system-darwin-ppc.ads, gprmake.adb, makegpr.ads, system-tru64.ads, system-aix.ads, system-solaris-x86.ads, system-irix-o32.ads, s-interr-sigaction.adb, system-irix-n32.ads, s-parame-mingw.adb, system-hpux.ads, s-traceb-hpux.adb, system-linux-x86.ads, s-inmaop-dummy.adb, system-os2.ads, system-interix.ads, system-solaris-sparc.ads, system-solaris-sparcv9.ads, s-inmaop-vms.adb, s-mastop-vms.adb, expander.adb, expander.ads, s-gloloc-mingw.adb, system-mingw.ads, system-vms-zcx.ads, s-osinte-fsu.adb, s-traceb-mastop.adb, a-exextr.adb, a-exstat.adb, a-filico.ads, a-finali.ads, a-interr.ads, a-intsig.adb, a-intsig.ads, a-except.ads, a-numaux-x86.ads, a-astaco.adb, a-calend.adb, a-calend.ads, a-chahan.adb, a-chahan.ads, a-chlat9.ads, a-colien.adb, a-colien.ads, a-colire.adb, a-colire.ads, a-comlin.adb, a-comlin.ads, a-cwila1.ads, a-cwila9.ads, a-elchha.adb, a-decima.adb, a-decima.ads, a-diocst.ads, a-direio.adb, a-direio.ads, a-excach.adb, a-excach.adb, a-exctra.ads, ali-util.adb, a-ngcefu.adb, a-ngcoty.adb, a-ngcoty.ads, a-nudira.adb, a-nudira.ads, a-nuflra.adb, a-numaux.ads, a-reatim.ads, a-sequio.adb, a-sequio.ads, a-siocst.ads, a-ssicst.ads, a-stmaco.ads, a-storio.adb, a-strbou.adb, a-strbou.ads, a-stream.ads, a-strfix.adb, a-strmap.adb, a-strmap.ads, a-strsea.adb, a-strsea.ads, a-strsup.adb, a-strsup.ads, a-strunb.adb, a-strunb.ads, a-stwibo.adb, a-stwibo.ads, a-stwifi.adb, a-stwima.adb, a-stwima.ads, a-stwise.adb, a-stwise.ads, a-stwisu.adb, a-stwisu.ads, a-stwiun.adb, a-stwiun.ads, a-suteio.adb, a-suteio.ads, a-swmwco.ads, a-swuwti.adb, a-swuwti.ads, a-sytaco.adb, a-sytaco.ads, a-tasatt.adb, a-taside.adb, a-taside.ads, a-teioed.adb, a-textio.adb, a-textio.ads, a-ticoau.adb, a-ticoau.ads, a-ticoio.adb, a-tideau.adb, a-tideio.adb, a-tienau.adb, a-tienio.adb, a-tifiio.adb, a-tiflio.adb, a-tigeau.adb, a-tigeau.ads, a-tiinau.adb, a-tiinio.adb, a-timoau.adb, a-timoio.adb, a-timoio.ads, a-tiocst.ads, a-titest.adb, atree.adb, a-witeio.adb, a-witeio.ads, a-wtcoau.adb, a-wtcoau.ads, a-wtcoio.adb, a-wtcstr.ads, a-wtdeau.adb, a-wtdeio.adb, a-wtedit.adb, a-wtedit.ads, a-wtenau.adb, a-wtenio.adb, a-wtfiio.adb, a-wtflio.adb, a-wtgeau.adb, a-wtinau.adb, a-wtinio.adb, a-wtmoau.adb, a-wtmoio.adb, a-wttest.adb, back_end.adb, bindgen.adb, butil.adb, butil.ads, checks.ads, cio.c, comperr.adb, csets.ads, cstand.adb, debug.ads, elists.ads, errno.c, errout.adb, errout.ads, erroutc.adb, erroutc.ads, errutil.adb, errutil.ads, errutil.ads, err_vars.ads, eval_fat.adb, exp_ch11.adb, exp_ch11.ads, exp_ch2.adb, exp_ch7.ads, exp_imgv.ads, exp_pakd.adb, exp_prag.adb, exp_prag.ads, exp_tss.adb, exp_tss.ads, exp_vfpt.ads, fe.h, fmap.adb, freeze.ads, frontend.adb, frontend.ads, g-arrspl.adb, g-arrspl.ads, g-awk.adb, g-awk.ads, g-boumai.ads, g-calend.adb, g-calend.ads, g-catiio.adb, g-comlin.adb, g-comlin.ads, g-comlin.ads, g-comlin.ads, g-comver.adb, g-crc32.adb, g-crc32.ads, g-ctrl_c.ads, g-curexc.ads, g-debpoo.ads, g-debuti.adb, g-diopit.adb, g-diopit.ads, g-dirope.adb, g-dirope.ads, g-dyntab.adb, g-dyntab.ads, g-excact.adb, g-excact.ads, g-except.ads, g-exctra.adb, g-exctra.ads, g-expect.ads, g-flocon.ads, g-hesorg.ads, g-io.adb, g-locfil.ads, g-md5.adb, g-md5.ads, g-md5.ads, g-moreex.adb, g-signal.ads, g-signal.adb, gnatbind.ads, gnatchop.adb, gnatcmd.adb, gnatfind.adb, gnatlbr.adb, gnatmake.ads, gnatmem.adb, gnatprep.adb, gnatprep.ads, gnatsym.adb, gnatxref.adb, g-os_lib.adb, g-os_lib.ads, g-pehage.adb, g-pehage.ads, gprep.ads, g-regexp.adb, g-regexp.ads, g-regist.adb, g-regist.ads, g-regpat.ads, g-semaph.adb, g-socthi.adb, g-soliop.ads, g-spipat.adb, g-spipat.ads, g-sptabo.ads, g-sptain.ads, g-sptavs.ads, g-string.ads, g-tasloc.adb, g-tasloc.ads, g-trasym.adb, g-trasym.ads, i-fortra.adb, i-fortra.ads, inline.adb, layout.adb, live.adb, make.ads, makeutl.ads, makeutl.adb, mdll-fil.adb, mdll-fil.ads, mdll-utl.ads, memroot.ads, memtrack.adb, mlib.ads, mlib-fil.adb, mlib-fil.ads, mlib-prj.ads, mlib-utl.adb, mlib-utl.ads, nlists.adb, nlists.ads, osint.adb, osint.ads, osint-c.adb, osint-l.adb, osint-l.ads, osint-m.ads, output.adb, par.adb, par.adb, par.ads, par-ch11.adb, par-ch12.adb, par-ch2.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, par-ch9.adb, par-endh.adb, par-labl.adb, par-load.adb, par-tchk.adb, prep.adb, prepcomp.adb, prepcomp.ads, prj-attr.ads, prj-com.ads, prj-dect.adb, prj-dect.ads, prj-env.ads, prj-err.ads, prj-ext.ads, prj-makr.adb, prj-makr.ads, prj-nmsc.ads, prj-pars.adb, prj-pars.ads, prj-part.ads, prj-pp.ads, prj-proc.ads, prj-strt.adb, prj-strt.ads, prj-tree.adb, prj-util.adb, prj-util.ads, rtsfind.adb, sem.adb, sem.ads, sem_case.adb, sem_case.ads, sem_ch11.adb, sem_ch4.adb, sem_ch6.ads, sem_ch7.ads, sem_dist.ads, sem_elab.ads, sem_elim.ads, sem_eval.ads, sem_intr.ads, sem_maps.adb, sem_maps.ads, sem_maps.ads, sem_res.ads, sem_type.ads, sfn_scan.adb, sfn_scan.ads, s-imgwch.ads, s-imgwiu.adb, s-imgwiu.ads, s-inmaop.ads, sinput.adb, sinput.ads, s-pack03.adb, s-pack03.ads, s-pack05.adb, s-pack05.ads, s-pack06.adb, s-pack06.ads, s-pack07.adb, s-pack07.ads, s-pack09.adb, s-pack09.ads, s-pack10.adb, s-pack10.ads, s-pack11.adb, s-pack11.ads, s-pack12.adb, s-pack12.ads, s-pack13.adb, s-pack13.ads, s-pack14.adb, s-pack14.ads, s-pack15.adb, s-pack15.ads, s-pack17.adb, s-pack17.ads, s-pack18.adb, s-pack18.ads, s-pack19.adb, s-pack19.ads, s-pack20.adb, s-pack20.ads, s-pack21.adb, s-pack21.ads, s-pack22.adb, s-pack22.ads, s-pack23.adb, s-pack23.ads, s-pack24.adb, s-pack24.ads, s-pack25.adb, s-pack25.ads, s-pack26.adb, s-pack26.ads, s-pack27.adb, s-pack27.ads, s-pack28.adb, s-pack28.ads, s-pack29.adb, s-pack29.ads, s-pack30.adb, s-pack30.ads, s-pack31.adb, s-pack31.ads, s-pack33.adb, s-pack33.ads, s-pack34.adb, s-pack34.ads, s-pack35.adb, s-pack35.ads, s-pack36.adb, s-pack36.ads, s-pack37.adb, s-pack37.ads, s-pack38.adb, s-pack38.ads, s-pack39.adb, s-pack39.ads, s-pack40.adb, s-pack40.ads, s-pack41.adb, s-pack41.ads, s-pack42.adb, s-pack42.ads, s-pack43.adb, s-pack43.ads, s-pack44.adb, s-pack44.ads, s-pack45.adb, s-pack45.ads, s-pack46.adb, s-pack46.ads, s-pack47.adb, s-pack47.ads, s-pack48.adb, s-pack48.ads, s-pack49.adb, s-pack49.ads, s-pack50.adb, s-pack50.ads, s-pack51.adb, s-pack51.ads, s-pack52.adb, s-pack52.ads, s-pack53.adb, s-pack53.ads, s-pack54.adb, s-pack54.ads, s-pack55.adb, s-pack55.ads, s-pack56.adb, s-pack56.ads, s-pack57.adb, s-pack57.ads, s-pack58.adb, s-pack58.ads, s-pack59.adb, s-pack59.ads, s-pack60.adb, s-pack60.adb, s-pack60.ads, s-pack61.adb, s-pack61.ads, s-pack62.adb, s-pack62.ads, s-pack63.adb, s-pack63.ads, s-parint.adb, s-parint.adb, s-parint.ads, sprint.ads, s-purexc.ads, s-restri.ads, s-restri.adb, s-scaval.adb, s-scaval.ads, s-secsta.adb, s-secsta.ads, s-sequio.adb, s-sequio.ads, stand.ads, s-tasuti.adb, s-traceb.adb, s-traceb.ads, stringt.adb, stringt.ads, styleg.ads, s-valboo.adb, s-valboo.ads, s-valcha.adb, s-valcha.ads, s-valdec.adb, s-valdec.ads, s-valint.adb, s-valint.ads, s-valint.ads, s-vallld.adb, s-vallld.ads, s-vallli.adb, s-vallli.ads, s-valllu.adb, s-valllu.ads, s-valrea.adb, s-valrea.ads, s-valuns.adb, s-valuns.ads, s-valuti.adb, s-valuti.ads, s-valwch.ads, s-veboop.adb, s-veboop.ads, s-vercon.adb, s-vercon.ads, s-wchcnv.adb, s-wchcnv.ads, s-wchcon.ads, s-wchjis.adb, s-wchjis.ads, s-wchstw.adb, s-wchstw.adb, s-wchstw.ads, s-wchwts.adb, s-wchwts.ads, s-widboo.adb, s-widboo.ads, s-widcha.adb, s-widcha.ads, s-widenu.adb, s-widenu.ads, s-widlli.adb, s-widlli.ads, s-widllu.adb, s-widllu.ads, s-widwch.adb, s-widwch.ads, s-wwdcha.adb, s-wwdcha.ads, s-wwdenu.adb, s-wwdenu.ads, symbols.adb, symbols.ads, table.ads, targparm.adb, targparm.ads, tb-alvms.c, tb-alvxw.c, tbuild.adb, tree_io.ads, treepr.adb, treeprs.adt, ttypef.ads, ttypes.ads, types.adb, uintp.adb, uintp.ads, uname.ads, urealp.ads, usage.ads, validsw.ads, vxaddr2line.adb, widechar.adb, widechar.ads, xeinfo.adb, xnmake.adb, xref_lib.ads, xr_tabls.adb, xr_tabls.ads, xsinfo.adb, xtreeprs.adb, xsnames.adb, vms_conv.ads, vms_conv.adb, a-dirval.ads, a-dirval.adb, a-dirval-mingw.adb, a-direct.ads, a-direct.adb, indepsw.ads, prj-attr-pm.ads, system-linux-ppc.ads, a-numaux-darwin.ads, a-numaux-darwin.adb, a-swuwha.ads, a-stunha.ads: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107016 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/ada/a-astaco.adb2
-rw-r--r--gcc/ada/a-calend-mingw.adb9
-rw-r--r--gcc/ada/a-calend-vms.adb2
-rw-r--r--gcc/ada/a-calend-vms.ads2
-rw-r--r--gcc/ada/a-calend.adb2
-rw-r--r--gcc/ada/a-calend.ads2
-rw-r--r--gcc/ada/a-cgaaso.adb2
-rw-r--r--gcc/ada/a-cgaaso.ads2
-rw-r--r--gcc/ada/a-cgarso.adb2
-rw-r--r--gcc/ada/a-cgcaso.adb2
-rwxr-xr-xgcc/ada/a-chacon.adb2
-rwxr-xr-xgcc/ada/a-chacon.ads2
-rw-r--r--gcc/ada/a-chahan.adb8
-rw-r--r--gcc/ada/a-chahan.ads2
-rw-r--r--gcc/ada/a-chlat9.ads2
-rw-r--r--gcc/ada/a-chtgke.adb2
-rw-r--r--gcc/ada/a-chtgke.ads2
-rw-r--r--gcc/ada/a-chtgop.adb2
-rw-r--r--gcc/ada/a-chzla1.ads2
-rw-r--r--gcc/ada/a-chzla9.ads2
-rw-r--r--gcc/ada/a-cohata.ads2
-rw-r--r--gcc/ada/a-colien.adb3
-rw-r--r--gcc/ada/a-colien.ads2
-rw-r--r--gcc/ada/a-colire.adb2
-rw-r--r--gcc/ada/a-colire.ads2
-rw-r--r--gcc/ada/a-comlin.adb2
-rw-r--r--gcc/ada/a-comlin.ads2
-rw-r--r--gcc/ada/a-coprnu.adb2
-rw-r--r--gcc/ada/a-crbltr.ads2
-rw-r--r--gcc/ada/a-crbtgk.adb2
-rw-r--r--gcc/ada/a-cwila1.ads2
-rw-r--r--gcc/ada/a-cwila9.ads2
-rw-r--r--gcc/ada/a-decima.adb2
-rw-r--r--gcc/ada/a-decima.ads2
-rw-r--r--gcc/ada/a-diocst.ads2
-rw-r--r--gcc/ada/a-direct.adb2
-rw-r--r--gcc/ada/a-direct.ads2
-rw-r--r--gcc/ada/a-direio.adb2
-rw-r--r--gcc/ada/a-direio.ads2
-rw-r--r--gcc/ada/a-dirval-mingw.adb2
-rw-r--r--gcc/ada/a-dirval.adb2
-rw-r--r--gcc/ada/a-dirval.ads2
-rw-r--r--gcc/ada/a-elchha.adb2
-rw-r--r--gcc/ada/a-excach.adb4
-rw-r--r--gcc/ada/a-except.ads2
-rw-r--r--gcc/ada/a-exctra.ads2
-rw-r--r--gcc/ada/a-exextr.adb2
-rw-r--r--gcc/ada/a-exstat.adb2
-rw-r--r--gcc/ada/a-filico.ads2
-rw-r--r--gcc/ada/a-finali.ads2
-rw-r--r--gcc/ada/a-interr.ads2
-rw-r--r--gcc/ada/a-intnam-aix.ads23
-rw-r--r--gcc/ada/a-intnam-darwin.ads19
-rw-r--r--gcc/ada/a-intnam-dummy.ads2
-rw-r--r--gcc/ada/a-intnam-freebsd.ads2
-rw-r--r--gcc/ada/a-intnam-interix.ads2
-rw-r--r--gcc/ada/a-intnam-linux.ads23
-rw-r--r--gcc/ada/a-intnam-lynxos.ads16
-rw-r--r--gcc/ada/a-intnam-mingw.ads9
-rw-r--r--gcc/ada/a-intnam-solaris.ads23
-rw-r--r--gcc/ada/a-intnam-tru64.ads19
-rw-r--r--gcc/ada/a-intnam-unixware.ads16
-rw-r--r--gcc/ada/a-intnam-vms.ads6
-rw-r--r--gcc/ada/a-intnam-vxworks.ads2
-rw-r--r--gcc/ada/a-intsig.adb4
-rw-r--r--gcc/ada/a-intsig.ads6
-rw-r--r--gcc/ada/a-ngcefu.adb2
-rw-r--r--gcc/ada/a-ngcoty.adb3
-rw-r--r--gcc/ada/a-ngcoty.ads2
-rw-r--r--gcc/ada/a-nudira.adb4
-rw-r--r--gcc/ada/a-nudira.ads2
-rw-r--r--gcc/ada/a-nuflra.adb2
-rw-r--r--gcc/ada/a-numaux-darwin.adb19
-rw-r--r--gcc/ada/a-numaux-darwin.ads2
-rw-r--r--gcc/ada/a-numaux-libc-x86.ads2
-rw-r--r--gcc/ada/a-numaux-vxworks.ads2
-rw-r--r--gcc/ada/a-numaux-x86.ads2
-rw-r--r--gcc/ada/a-numaux.ads2
-rw-r--r--gcc/ada/a-rbtgso.adb2
-rw-r--r--gcc/ada/a-reatim.ads2
-rw-r--r--gcc/ada/a-secain.adb2
-rw-r--r--gcc/ada/a-sequio.adb2
-rw-r--r--gcc/ada/a-sequio.ads3
-rw-r--r--gcc/ada/a-shcain.adb4
-rw-r--r--gcc/ada/a-siocst.ads2
-rw-r--r--gcc/ada/a-slcain.adb4
-rw-r--r--gcc/ada/a-ssicst.ads2
-rw-r--r--gcc/ada/a-stmaco.ads2
-rw-r--r--gcc/ada/a-storio.adb2
-rw-r--r--gcc/ada/a-strbou.adb2
-rw-r--r--gcc/ada/a-strbou.ads2
-rw-r--r--gcc/ada/a-stream.ads2
-rw-r--r--gcc/ada/a-strfix.adb18
-rw-r--r--gcc/ada/a-strhas.adb2
-rw-r--r--gcc/ada/a-strmap.adb2
-rw-r--r--gcc/ada/a-strmap.ads2
-rw-r--r--gcc/ada/a-strsea.adb2
-rw-r--r--gcc/ada/a-strsea.ads2
-rw-r--r--gcc/ada/a-strsup.adb2
-rw-r--r--gcc/ada/a-strsup.ads2
-rw-r--r--gcc/ada/a-strunb.adb2
-rw-r--r--gcc/ada/a-strunb.ads2
-rw-r--r--gcc/ada/a-stunha.adb2
-rw-r--r--gcc/ada/a-stunha.ads2
-rw-r--r--gcc/ada/a-stwibo.adb2
-rw-r--r--gcc/ada/a-stwibo.ads2
-rw-r--r--gcc/ada/a-stwifi.adb10
-rw-r--r--gcc/ada/a-stwiha.adb2
-rw-r--r--gcc/ada/a-stwima.adb2
-rw-r--r--gcc/ada/a-stwima.ads2
-rw-r--r--gcc/ada/a-stwise.adb2
-rw-r--r--gcc/ada/a-stwise.ads2
-rw-r--r--gcc/ada/a-stwisu.adb2
-rw-r--r--gcc/ada/a-stwisu.ads2
-rw-r--r--gcc/ada/a-stwiun.adb2
-rw-r--r--gcc/ada/a-stwiun.ads2
-rw-r--r--gcc/ada/a-stzbou.adb2
-rw-r--r--gcc/ada/a-stzbou.ads2
-rw-r--r--gcc/ada/a-stzfix.adb2
-rw-r--r--gcc/ada/a-stzhas.adb2
-rw-r--r--gcc/ada/a-stzmap.adb2
-rw-r--r--gcc/ada/a-stzmap.ads2
-rw-r--r--gcc/ada/a-stzsea.adb2
-rw-r--r--gcc/ada/a-stzsea.ads2
-rw-r--r--gcc/ada/a-stzsup.adb2
-rw-r--r--gcc/ada/a-stzsup.ads2
-rw-r--r--gcc/ada/a-stzunb.adb2
-rw-r--r--gcc/ada/a-stzunb.ads2
-rw-r--r--gcc/ada/a-suteio.adb2
-rw-r--r--gcc/ada/a-suteio.ads2
-rw-r--r--gcc/ada/a-swmwco.ads2
-rw-r--r--gcc/ada/a-swuwha.ads2
-rw-r--r--gcc/ada/a-swuwti.adb2
-rw-r--r--gcc/ada/a-swuwti.ads2
-rw-r--r--gcc/ada/a-sytaco.adb2
-rw-r--r--gcc/ada/a-sytaco.ads2
-rw-r--r--gcc/ada/a-szuzha.adb2
-rw-r--r--gcc/ada/a-szuzha.ads2
-rw-r--r--gcc/ada/a-szuzti.adb2
-rw-r--r--gcc/ada/a-szuzti.ads2
-rw-r--r--gcc/ada/a-tasatt.adb10
-rw-r--r--gcc/ada/a-taside.adb2
-rw-r--r--gcc/ada/a-taside.ads2
-rw-r--r--gcc/ada/a-teioed.adb2
-rw-r--r--gcc/ada/a-textio.adb2
-rw-r--r--gcc/ada/a-textio.ads2
-rw-r--r--gcc/ada/a-ticoau.adb2
-rw-r--r--gcc/ada/a-ticoau.ads2
-rw-r--r--gcc/ada/a-ticoio.adb2
-rw-r--r--gcc/ada/a-tideau.adb2
-rw-r--r--gcc/ada/a-tideio.adb2
-rw-r--r--gcc/ada/a-tienau.adb2
-rw-r--r--gcc/ada/a-tienio.adb2
-rw-r--r--gcc/ada/a-tifiio.adb2
-rw-r--r--gcc/ada/a-tiflio.adb2
-rw-r--r--gcc/ada/a-tigeau.adb2
-rw-r--r--gcc/ada/a-tigeau.ads2
-rw-r--r--gcc/ada/a-tiinau.adb2
-rw-r--r--gcc/ada/a-tiinio.adb2
-rw-r--r--gcc/ada/a-timoau.adb2
-rw-r--r--gcc/ada/a-timoio.adb2
-rw-r--r--gcc/ada/a-timoio.ads2
-rw-r--r--gcc/ada/a-tiocst.ads2
-rw-r--r--gcc/ada/a-titest.adb2
-rwxr-xr-xgcc/ada/a-wichun.adb4
-rwxr-xr-xgcc/ada/a-wichun.ads2
-rw-r--r--gcc/ada/a-witeio.adb2
-rw-r--r--gcc/ada/a-witeio.ads2
-rw-r--r--gcc/ada/a-wtcoau.adb2
-rw-r--r--gcc/ada/a-wtcoau.ads2
-rw-r--r--gcc/ada/a-wtcoio.adb2
-rw-r--r--gcc/ada/a-wtcstr.ads2
-rw-r--r--gcc/ada/a-wtdeau.adb2
-rw-r--r--gcc/ada/a-wtdeio.adb2
-rw-r--r--gcc/ada/a-wtedit.adb2
-rw-r--r--gcc/ada/a-wtedit.ads2
-rw-r--r--gcc/ada/a-wtenau.adb2
-rw-r--r--gcc/ada/a-wtenio.adb2
-rw-r--r--gcc/ada/a-wtfiio.adb2
-rw-r--r--gcc/ada/a-wtflio.adb2
-rw-r--r--gcc/ada/a-wtgeau.adb2
-rw-r--r--gcc/ada/a-wtinau.adb2
-rw-r--r--gcc/ada/a-wtinio.adb2
-rw-r--r--gcc/ada/a-wtmoau.adb2
-rw-r--r--gcc/ada/a-wtmoio.adb2
-rw-r--r--gcc/ada/a-wttest.adb2
-rwxr-xr-xgcc/ada/a-zchuni.adb2
-rwxr-xr-xgcc/ada/a-zchuni.ads2
-rw-r--r--gcc/ada/a-ztcoau.adb2
-rw-r--r--gcc/ada/a-ztcoau.ads2
-rw-r--r--gcc/ada/a-ztcoio.adb2
-rw-r--r--gcc/ada/a-ztcstr.adb2
-rw-r--r--gcc/ada/a-ztcstr.ads2
-rw-r--r--gcc/ada/a-ztdeau.adb2
-rw-r--r--gcc/ada/a-ztdeau.ads2
-rw-r--r--gcc/ada/a-ztdeio.adb3
-rw-r--r--gcc/ada/a-ztdeio.ads2
-rw-r--r--gcc/ada/a-ztedit.adb2
-rw-r--r--gcc/ada/a-ztedit.ads2
-rw-r--r--gcc/ada/a-ztenau.ads2
-rw-r--r--gcc/ada/a-ztenio.adb2
-rw-r--r--gcc/ada/a-ztenio.ads2
-rw-r--r--gcc/ada/a-ztexio.adb2
-rw-r--r--gcc/ada/a-ztexio.ads2
-rw-r--r--gcc/ada/a-ztfiio.adb2
-rw-r--r--gcc/ada/a-ztfiio.ads2
-rw-r--r--gcc/ada/a-ztflau.adb2
-rw-r--r--gcc/ada/a-ztflau.ads2
-rw-r--r--gcc/ada/a-ztflio.adb2
-rw-r--r--gcc/ada/a-ztflio.ads2
-rw-r--r--gcc/ada/a-ztgeau.adb2
-rw-r--r--gcc/ada/a-ztgeau.ads2
-rw-r--r--gcc/ada/a-ztinau.adb2
-rw-r--r--gcc/ada/a-ztinau.ads2
-rw-r--r--gcc/ada/a-ztinio.adb2
-rw-r--r--gcc/ada/a-ztmoau.ads2
-rw-r--r--gcc/ada/a-ztmoio.adb2
-rw-r--r--gcc/ada/a-ztmoio.ads2
-rw-r--r--gcc/ada/a-zttest.adb2
-rw-r--r--gcc/ada/ali-util.adb2
-rw-r--r--gcc/ada/atree.adb6
-rw-r--r--gcc/ada/back_end.adb4
-rw-r--r--gcc/ada/bindgen.adb4
-rw-r--r--gcc/ada/butil.adb2
-rw-r--r--gcc/ada/butil.ads2
-rw-r--r--gcc/ada/checks.ads4
-rw-r--r--gcc/ada/cio.c2
-rw-r--r--gcc/ada/comperr.adb4
-rw-r--r--gcc/ada/csets.ads2
-rw-r--r--gcc/ada/cstand.adb2
-rw-r--r--gcc/ada/debug.ads2
-rw-r--r--gcc/ada/elists.ads6
-rw-r--r--gcc/ada/err_vars.ads2
-rw-r--r--gcc/ada/errno.c2
-rw-r--r--gcc/ada/errout.adb4
-rw-r--r--gcc/ada/errout.ads7
-rw-r--r--gcc/ada/erroutc.adb2
-rw-r--r--gcc/ada/erroutc.ads2
-rw-r--r--gcc/ada/errutil.adb2
-rw-r--r--gcc/ada/errutil.ads10
-rw-r--r--gcc/ada/eval_fat.adb4
-rw-r--r--gcc/ada/exp_ch11.adb2
-rw-r--r--gcc/ada/exp_ch11.ads2
-rw-r--r--gcc/ada/exp_ch2.adb2
-rw-r--r--gcc/ada/exp_ch7.ads10
-rw-r--r--gcc/ada/exp_imgv.ads2
-rw-r--r--gcc/ada/exp_pakd.adb2
-rw-r--r--gcc/ada/exp_prag.adb2
-rw-r--r--gcc/ada/exp_prag.ads2
-rw-r--r--gcc/ada/exp_tss.adb2
-rw-r--r--gcc/ada/exp_tss.ads2
-rw-r--r--gcc/ada/exp_vfpt.ads2
-rw-r--r--gcc/ada/expander.adb2
-rw-r--r--gcc/ada/expander.ads2
-rw-r--r--gcc/ada/fe.h2
-rw-r--r--gcc/ada/fmap.adb2
-rw-r--r--gcc/ada/freeze.ads4
-rw-r--r--gcc/ada/frontend.adb2
-rw-r--r--gcc/ada/frontend.ads2
-rw-r--r--gcc/ada/g-arrspl.adb4
-rw-r--r--gcc/ada/g-arrspl.ads4
-rw-r--r--gcc/ada/g-awk.adb16
-rw-r--r--gcc/ada/g-awk.ads2
-rw-r--r--gcc/ada/g-boumai.ads2
-rw-r--r--gcc/ada/g-calend.adb2
-rw-r--r--gcc/ada/g-calend.ads2
-rw-r--r--gcc/ada/g-catiio.adb4
-rw-r--r--gcc/ada/g-comlin.adb2
-rw-r--r--gcc/ada/g-comlin.ads118
-rw-r--r--gcc/ada/g-comver.adb2
-rw-r--r--gcc/ada/g-crc32.adb6
-rw-r--r--gcc/ada/g-crc32.ads16
-rw-r--r--gcc/ada/g-ctrl_c.ads10
-rw-r--r--gcc/ada/g-curexc.ads4
-rw-r--r--gcc/ada/g-debpoo.ads10
-rw-r--r--gcc/ada/g-debuti.adb9
-rw-r--r--gcc/ada/g-diopit.adb6
-rw-r--r--gcc/ada/g-diopit.ads2
-rw-r--r--gcc/ada/g-dirope.adb2
-rw-r--r--gcc/ada/g-dirope.ads2
-rw-r--r--gcc/ada/g-dyntab.adb4
-rw-r--r--gcc/ada/g-dyntab.ads7
-rw-r--r--gcc/ada/g-eacodu-vms.adb4
-rw-r--r--gcc/ada/g-enblsp-vms-alpha.adb10
-rw-r--r--gcc/ada/g-enblsp-vms-ia64.adb10
-rw-r--r--gcc/ada/g-excact.adb2
-rw-r--r--gcc/ada/g-excact.ads4
-rw-r--r--gcc/ada/g-except.ads4
-rw-r--r--gcc/ada/g-exctra.adb8
-rw-r--r--gcc/ada/g-exctra.ads10
-rw-r--r--gcc/ada/g-expect-vms.adb12
-rw-r--r--gcc/ada/g-expect.ads2
-rw-r--r--gcc/ada/g-flocon.ads2
-rw-r--r--gcc/ada/g-hesorg.ads6
-rw-r--r--gcc/ada/g-io.adb6
-rw-r--r--gcc/ada/g-locfil.ads2
-rw-r--r--gcc/ada/g-md5.adb10
-rw-r--r--gcc/ada/g-md5.ads5
-rw-r--r--gcc/ada/g-moreex.adb2
-rw-r--r--gcc/ada/g-os_lib.adb118
-rw-r--r--gcc/ada/g-os_lib.ads20
-rw-r--r--gcc/ada/g-pehage.adb4
-rw-r--r--gcc/ada/g-pehage.ads2
-rw-r--r--gcc/ada/g-regexp.adb20
-rw-r--r--gcc/ada/g-regexp.ads5
-rw-r--r--gcc/ada/g-regist.adb36
-rw-r--r--gcc/ada/g-regist.ads23
-rw-r--r--gcc/ada/g-regpat.ads83
-rw-r--r--gcc/ada/g-semaph.adb2
-rw-r--r--gcc/ada/g-signal.adb2
-rw-r--r--gcc/ada/g-signal.ads2
-rw-r--r--gcc/ada/g-soccon-interix.ads2
-rw-r--r--gcc/ada/g-soccon-unixware.ads2
-rw-r--r--gcc/ada/g-socthi-vms.adb14
-rw-r--r--gcc/ada/g-socthi.adb5
-rw-r--r--gcc/ada/g-soliop-mingw.ads2
-rw-r--r--gcc/ada/g-soliop-solaris.ads2
-rw-r--r--gcc/ada/g-soliop-unixware.ads2
-rw-r--r--gcc/ada/g-soliop.ads2
-rw-r--r--gcc/ada/g-spipat.adb2
-rw-r--r--gcc/ada/g-spipat.ads2
-rw-r--r--gcc/ada/g-sptabo.ads2
-rw-r--r--gcc/ada/g-sptain.ads2
-rw-r--r--gcc/ada/g-sptavs.ads2
-rw-r--r--gcc/ada/g-string.ads2
-rw-r--r--gcc/ada/g-tasloc.adb2
-rw-r--r--gcc/ada/g-tasloc.ads2
-rw-r--r--gcc/ada/g-trasym-vms-alpha.adb2
-rw-r--r--gcc/ada/g-trasym-vms-ia64.adb2
-rw-r--r--gcc/ada/g-trasym.adb10
-rw-r--r--gcc/ada/g-trasym.ads2
-rw-r--r--gcc/ada/gnatbind.ads2
-rw-r--r--gcc/ada/gnatchop.adb5
-rw-r--r--gcc/ada/gnatcmd.adb4
-rw-r--r--gcc/ada/gnatfind.adb2
-rw-r--r--gcc/ada/gnatlbr.adb6
-rw-r--r--gcc/ada/gnatmake.ads11
-rw-r--r--gcc/ada/gnatmem.adb4
-rw-r--r--gcc/ada/gnatprep.adb3
-rw-r--r--gcc/ada/gnatprep.ads6
-rw-r--r--gcc/ada/gnatsym.adb4
-rw-r--r--gcc/ada/gnatxref.adb4
-rw-r--r--gcc/ada/gprep.ads4
-rw-r--r--gcc/ada/gprmake.adb4
-rw-r--r--gcc/ada/i-fortra.adb14
-rw-r--r--gcc/ada/i-fortra.ads12
-rw-r--r--gcc/ada/indepsw.ads4
-rw-r--r--gcc/ada/inline.adb13
-rw-r--r--gcc/ada/layout.adb4
-rw-r--r--gcc/ada/live.adb4
-rw-r--r--gcc/ada/make.ads12
-rw-r--r--gcc/ada/makegpr.ads4
-rw-r--r--gcc/ada/makeutl.adb2
-rw-r--r--gcc/ada/makeutl.ads2
-rw-r--r--gcc/ada/mdll-fil.adb4
-rw-r--r--gcc/ada/mdll-fil.ads4
-rw-r--r--gcc/ada/mdll-utl.ads4
-rw-r--r--gcc/ada/memroot.ads4
-rw-r--r--gcc/ada/memtrack.adb12
-rw-r--r--gcc/ada/mlib-fil.adb2
-rw-r--r--gcc/ada/mlib-fil.ads6
-rw-r--r--gcc/ada/mlib-prj.ads2
-rw-r--r--gcc/ada/mlib-utl.adb2
-rw-r--r--gcc/ada/mlib-utl.ads2
-rw-r--r--gcc/ada/mlib.ads2
-rw-r--r--gcc/ada/nlists.adb2
-rw-r--r--gcc/ada/nlists.ads2
-rw-r--r--gcc/ada/osint-c.adb11
-rw-r--r--gcc/ada/osint-l.adb2
-rw-r--r--gcc/ada/osint-l.ads2
-rw-r--r--gcc/ada/osint-m.ads2
-rw-r--r--gcc/ada/osint.adb6
-rw-r--r--gcc/ada/osint.ads52
-rw-r--r--gcc/ada/output.adb4
-rw-r--r--gcc/ada/par-ch11.adb2
-rw-r--r--gcc/ada/par-ch12.adb4
-rw-r--r--gcc/ada/par-ch2.adb2
-rw-r--r--gcc/ada/par-ch4.adb4
-rw-r--r--gcc/ada/par-ch5.adb2
-rw-r--r--gcc/ada/par-ch6.adb4
-rw-r--r--gcc/ada/par-ch9.adb10
-rw-r--r--gcc/ada/par-endh.adb4
-rw-r--r--gcc/ada/par-labl.adb10
-rw-r--r--gcc/ada/par-load.adb2
-rw-r--r--gcc/ada/par-tchk.adb6
-rw-r--r--gcc/ada/par.adb4
-rw-r--r--gcc/ada/par.ads2
-rw-r--r--gcc/ada/prep.adb63
-rw-r--r--gcc/ada/prepcomp.adb19
-rw-r--r--gcc/ada/prepcomp.ads4
-rw-r--r--gcc/ada/prj-attr-pm.ads8
-rw-r--r--gcc/ada/prj-attr.ads5
-rw-r--r--gcc/ada/prj-com.ads4
-rw-r--r--gcc/ada/prj-dect.adb4
-rw-r--r--gcc/ada/prj-dect.ads2
-rw-r--r--gcc/ada/prj-env.ads2
-rw-r--r--gcc/ada/prj-err.ads19
-rw-r--r--gcc/ada/prj-ext.ads6
-rw-r--r--gcc/ada/prj-makr.adb2
-rw-r--r--gcc/ada/prj-makr.ads4
-rw-r--r--gcc/ada/prj-nmsc.ads4
-rw-r--r--gcc/ada/prj-pars.adb2
-rw-r--r--gcc/ada/prj-pars.ads2
-rw-r--r--gcc/ada/prj-part.ads4
-rw-r--r--gcc/ada/prj-pp.ads36
-rw-r--r--gcc/ada/prj-proc.ads12
-rw-r--r--gcc/ada/prj-strt.adb18
-rw-r--r--gcc/ada/prj-strt.ads4
-rw-r--r--gcc/ada/prj-tree.adb2
-rw-r--r--gcc/ada/prj-util.adb2
-rw-r--r--gcc/ada/prj-util.ads37
-rw-r--r--gcc/ada/rtsfind.adb4
-rw-r--r--gcc/ada/s-gloloc-mingw.adb4
-rw-r--r--gcc/ada/s-imgwch.ads2
-rw-r--r--gcc/ada/s-imgwiu.adb2
-rw-r--r--gcc/ada/s-imgwiu.ads2
-rw-r--r--gcc/ada/s-inmaop-dummy.adb5
-rw-r--r--gcc/ada/s-inmaop-vms.adb5
-rw-r--r--gcc/ada/s-inmaop.ads20
-rw-r--r--gcc/ada/s-interr-sigaction.adb2
-rw-r--r--gcc/ada/s-mastop-vms.adb8
-rw-r--r--gcc/ada/s-osinte-fsu.adb4
-rw-r--r--gcc/ada/s-pack03.adb4
-rw-r--r--gcc/ada/s-pack03.ads2
-rw-r--r--gcc/ada/s-pack05.adb4
-rw-r--r--gcc/ada/s-pack05.ads2
-rw-r--r--gcc/ada/s-pack06.adb4
-rw-r--r--gcc/ada/s-pack06.ads2
-rw-r--r--gcc/ada/s-pack07.adb4
-rw-r--r--gcc/ada/s-pack07.ads2
-rw-r--r--gcc/ada/s-pack09.adb4
-rw-r--r--gcc/ada/s-pack09.ads2
-rw-r--r--gcc/ada/s-pack10.adb4
-rw-r--r--gcc/ada/s-pack10.ads2
-rw-r--r--gcc/ada/s-pack11.adb4
-rw-r--r--gcc/ada/s-pack11.ads2
-rw-r--r--gcc/ada/s-pack12.adb4
-rw-r--r--gcc/ada/s-pack12.ads2
-rw-r--r--gcc/ada/s-pack13.adb4
-rw-r--r--gcc/ada/s-pack13.ads2
-rw-r--r--gcc/ada/s-pack14.adb6
-rw-r--r--gcc/ada/s-pack14.ads2
-rw-r--r--gcc/ada/s-pack15.adb4
-rw-r--r--gcc/ada/s-pack15.ads2
-rw-r--r--gcc/ada/s-pack17.adb4
-rw-r--r--gcc/ada/s-pack17.ads2
-rw-r--r--gcc/ada/s-pack18.adb6
-rw-r--r--gcc/ada/s-pack18.ads2
-rw-r--r--gcc/ada/s-pack19.adb4
-rw-r--r--gcc/ada/s-pack19.ads2
-rw-r--r--gcc/ada/s-pack20.adb6
-rw-r--r--gcc/ada/s-pack20.ads2
-rw-r--r--gcc/ada/s-pack21.adb4
-rw-r--r--gcc/ada/s-pack21.ads2
-rw-r--r--gcc/ada/s-pack22.adb6
-rw-r--r--gcc/ada/s-pack22.ads2
-rw-r--r--gcc/ada/s-pack23.adb4
-rw-r--r--gcc/ada/s-pack23.ads2
-rw-r--r--gcc/ada/s-pack24.adb6
-rw-r--r--gcc/ada/s-pack24.ads2
-rw-r--r--gcc/ada/s-pack25.adb2
-rw-r--r--gcc/ada/s-pack25.ads2
-rw-r--r--gcc/ada/s-pack26.adb6
-rw-r--r--gcc/ada/s-pack26.ads2
-rw-r--r--gcc/ada/s-pack27.adb4
-rw-r--r--gcc/ada/s-pack27.ads2
-rw-r--r--gcc/ada/s-pack28.adb6
-rw-r--r--gcc/ada/s-pack28.ads2
-rw-r--r--gcc/ada/s-pack29.adb4
-rw-r--r--gcc/ada/s-pack29.ads2
-rw-r--r--gcc/ada/s-pack30.adb6
-rw-r--r--gcc/ada/s-pack30.ads2
-rw-r--r--gcc/ada/s-pack31.adb4
-rw-r--r--gcc/ada/s-pack31.ads2
-rw-r--r--gcc/ada/s-pack33.adb4
-rw-r--r--gcc/ada/s-pack33.ads2
-rw-r--r--gcc/ada/s-pack34.adb6
-rw-r--r--gcc/ada/s-pack34.ads2
-rw-r--r--gcc/ada/s-pack35.adb4
-rw-r--r--gcc/ada/s-pack35.ads2
-rw-r--r--gcc/ada/s-pack36.adb6
-rw-r--r--gcc/ada/s-pack36.ads2
-rw-r--r--gcc/ada/s-pack37.adb4
-rw-r--r--gcc/ada/s-pack37.ads2
-rw-r--r--gcc/ada/s-pack38.adb6
-rw-r--r--gcc/ada/s-pack38.ads2
-rw-r--r--gcc/ada/s-pack39.adb4
-rw-r--r--gcc/ada/s-pack39.ads2
-rw-r--r--gcc/ada/s-pack40.adb6
-rw-r--r--gcc/ada/s-pack40.ads2
-rw-r--r--gcc/ada/s-pack41.adb4
-rw-r--r--gcc/ada/s-pack41.ads2
-rw-r--r--gcc/ada/s-pack42.adb6
-rw-r--r--gcc/ada/s-pack42.ads2
-rw-r--r--gcc/ada/s-pack43.adb4
-rw-r--r--gcc/ada/s-pack43.ads2
-rw-r--r--gcc/ada/s-pack44.adb6
-rw-r--r--gcc/ada/s-pack44.ads2
-rw-r--r--gcc/ada/s-pack45.adb4
-rw-r--r--gcc/ada/s-pack45.ads2
-rw-r--r--gcc/ada/s-pack46.adb6
-rw-r--r--gcc/ada/s-pack46.ads2
-rw-r--r--gcc/ada/s-pack47.adb4
-rw-r--r--gcc/ada/s-pack47.ads2
-rw-r--r--gcc/ada/s-pack48.adb6
-rw-r--r--gcc/ada/s-pack48.ads2
-rw-r--r--gcc/ada/s-pack49.adb4
-rw-r--r--gcc/ada/s-pack49.ads2
-rw-r--r--gcc/ada/s-pack50.adb6
-rw-r--r--gcc/ada/s-pack50.ads2
-rw-r--r--gcc/ada/s-pack51.adb4
-rw-r--r--gcc/ada/s-pack51.ads2
-rw-r--r--gcc/ada/s-pack52.adb6
-rw-r--r--gcc/ada/s-pack52.ads2
-rw-r--r--gcc/ada/s-pack53.adb4
-rw-r--r--gcc/ada/s-pack53.ads2
-rw-r--r--gcc/ada/s-pack54.adb6
-rw-r--r--gcc/ada/s-pack54.ads2
-rw-r--r--gcc/ada/s-pack55.adb4
-rw-r--r--gcc/ada/s-pack55.ads2
-rw-r--r--gcc/ada/s-pack56.adb6
-rw-r--r--gcc/ada/s-pack56.ads2
-rw-r--r--gcc/ada/s-pack57.adb4
-rw-r--r--gcc/ada/s-pack57.ads2
-rw-r--r--gcc/ada/s-pack58.adb6
-rw-r--r--gcc/ada/s-pack58.ads2
-rw-r--r--gcc/ada/s-pack59.adb4
-rw-r--r--gcc/ada/s-pack59.ads2
-rw-r--r--gcc/ada/s-pack60.adb6
-rw-r--r--gcc/ada/s-pack60.ads2
-rw-r--r--gcc/ada/s-pack61.adb4
-rw-r--r--gcc/ada/s-pack61.ads2
-rw-r--r--gcc/ada/s-pack62.adb6
-rw-r--r--gcc/ada/s-pack62.ads2
-rw-r--r--gcc/ada/s-pack63.adb4
-rw-r--r--gcc/ada/s-pack63.ads2
-rw-r--r--gcc/ada/s-parame-mingw.adb2
-rw-r--r--gcc/ada/s-parint.adb4
-rw-r--r--gcc/ada/s-parint.ads2
-rw-r--r--gcc/ada/s-purexc.ads2
-rw-r--r--gcc/ada/s-restri.adb2
-rw-r--r--gcc/ada/s-restri.ads2
-rw-r--r--gcc/ada/s-scaval.adb2
-rw-r--r--gcc/ada/s-scaval.ads2
-rw-r--r--gcc/ada/s-secsta.adb2
-rw-r--r--gcc/ada/s-secsta.ads2
-rw-r--r--gcc/ada/s-sequio.adb2
-rw-r--r--gcc/ada/s-sequio.ads2
-rw-r--r--gcc/ada/s-tasuti.adb8
-rw-r--r--gcc/ada/s-traceb-hpux.adb8
-rw-r--r--gcc/ada/s-traceb-mastop.adb6
-rw-r--r--gcc/ada/s-traceb.adb2
-rw-r--r--gcc/ada/s-traceb.ads4
-rw-r--r--gcc/ada/s-valboo.adb13
-rw-r--r--gcc/ada/s-valboo.ads4
-rw-r--r--gcc/ada/s-valcha.adb3
-rw-r--r--gcc/ada/s-valcha.ads4
-rw-r--r--gcc/ada/s-valdec.adb6
-rw-r--r--gcc/ada/s-valdec.ads5
-rw-r--r--gcc/ada/s-valint.adb8
-rw-r--r--gcc/ada/s-valint.ads8
-rw-r--r--gcc/ada/s-vallld.adb9
-rw-r--r--gcc/ada/s-vallld.ads8
-rw-r--r--gcc/ada/s-vallli.adb3
-rw-r--r--gcc/ada/s-vallli.ads2
-rw-r--r--gcc/ada/s-valllu.adb9
-rw-r--r--gcc/ada/s-valllu.ads8
-rw-r--r--gcc/ada/s-valrea.adb15
-rw-r--r--gcc/ada/s-valrea.ads8
-rw-r--r--gcc/ada/s-valuns.adb11
-rw-r--r--gcc/ada/s-valuns.ads12
-rw-r--r--gcc/ada/s-valuti.adb5
-rw-r--r--gcc/ada/s-valuti.ads5
-rw-r--r--gcc/ada/s-valwch.ads2
-rw-r--r--gcc/ada/s-veboop.adb2
-rw-r--r--gcc/ada/s-veboop.ads2
-rw-r--r--gcc/ada/s-vercon.adb3
-rw-r--r--gcc/ada/s-vercon.ads2
-rw-r--r--gcc/ada/s-wchcnv.adb2
-rw-r--r--gcc/ada/s-wchcnv.ads2
-rw-r--r--gcc/ada/s-wchcon.ads2
-rw-r--r--gcc/ada/s-wchjis.adb2
-rw-r--r--gcc/ada/s-wchjis.ads2
-rw-r--r--gcc/ada/s-wchstw.adb6
-rw-r--r--gcc/ada/s-wchstw.ads2
-rw-r--r--gcc/ada/s-wchwts.adb2
-rw-r--r--gcc/ada/s-wchwts.ads2
-rw-r--r--gcc/ada/s-widboo.adb2
-rw-r--r--gcc/ada/s-widboo.ads2
-rw-r--r--gcc/ada/s-widcha.adb2
-rw-r--r--gcc/ada/s-widcha.ads2
-rw-r--r--gcc/ada/s-widenu.adb2
-rw-r--r--gcc/ada/s-widenu.ads2
-rw-r--r--gcc/ada/s-widlli.adb2
-rw-r--r--gcc/ada/s-widlli.ads2
-rw-r--r--gcc/ada/s-widllu.adb2
-rw-r--r--gcc/ada/s-widllu.ads2
-rw-r--r--gcc/ada/s-widwch.adb2
-rw-r--r--gcc/ada/s-widwch.ads2
-rw-r--r--gcc/ada/s-wwdcha.adb2
-rw-r--r--gcc/ada/s-wwdcha.ads2
-rw-r--r--gcc/ada/s-wwdenu.adb2
-rw-r--r--gcc/ada/s-wwdenu.ads2
-rw-r--r--gcc/ada/sem.adb12
-rw-r--r--gcc/ada/sem.ads4
-rw-r--r--gcc/ada/sem_case.adb2
-rw-r--r--gcc/ada/sem_case.ads26
-rw-r--r--gcc/ada/sem_ch11.adb2
-rw-r--r--gcc/ada/sem_ch4.adb29
-rw-r--r--gcc/ada/sem_ch6.ads2
-rw-r--r--gcc/ada/sem_ch7.ads8
-rw-r--r--gcc/ada/sem_dist.ads2
-rw-r--r--gcc/ada/sem_elab.ads2
-rw-r--r--gcc/ada/sem_elim.ads2
-rw-r--r--gcc/ada/sem_eval.ads2
-rw-r--r--gcc/ada/sem_intr.ads2
-rw-r--r--gcc/ada/sem_maps.adb2
-rw-r--r--gcc/ada/sem_maps.ads12
-rw-r--r--gcc/ada/sem_res.ads2
-rw-r--r--gcc/ada/sem_type.ads6
-rw-r--r--gcc/ada/sfn_scan.adb2
-rw-r--r--gcc/ada/sfn_scan.ads2
-rw-r--r--gcc/ada/sinput.adb4
-rw-r--r--gcc/ada/sinput.ads4
-rw-r--r--gcc/ada/sprint.ads4
-rw-r--r--gcc/ada/stand.ads18
-rw-r--r--gcc/ada/stringt.adb2
-rw-r--r--gcc/ada/stringt.ads2
-rw-r--r--gcc/ada/styleg.ads6
-rw-r--r--gcc/ada/symbols.adb2
-rw-r--r--gcc/ada/symbols.ads4
-rw-r--r--gcc/ada/system-aix.ads2
-rw-r--r--gcc/ada/system-darwin-ppc.ads2
-rw-r--r--gcc/ada/system-freebsd-x86.ads2
-rw-r--r--gcc/ada/system-hpux-ia64.ads2
-rw-r--r--gcc/ada/system-hpux.ads2
-rw-r--r--gcc/ada/system-interix.ads2
-rw-r--r--gcc/ada/system-irix-n32.ads2
-rw-r--r--gcc/ada/system-irix-o32.ads2
-rw-r--r--gcc/ada/system-linux-hppa.ads2
-rw-r--r--gcc/ada/system-linux-ia64.ads2
-rw-r--r--gcc/ada/system-linux-ppc.ads2
-rw-r--r--gcc/ada/system-linux-x86.ads2
-rw-r--r--gcc/ada/system-linux-x86_64.ads2
-rw-r--r--gcc/ada/system-mingw.ads2
-rw-r--r--gcc/ada/system-os2.ads2
-rw-r--r--gcc/ada/system-solaris-sparc.ads2
-rw-r--r--gcc/ada/system-solaris-sparcv9.ads2
-rw-r--r--gcc/ada/system-solaris-x86.ads2
-rw-r--r--gcc/ada/system-tru64.ads2
-rw-r--r--gcc/ada/system-unixware.ads2
-rw-r--r--gcc/ada/system-vms-zcx.ads2
-rw-r--r--gcc/ada/table.ads6
-rw-r--r--gcc/ada/targparm.adb2
-rw-r--r--gcc/ada/targparm.ads6
-rw-r--r--gcc/ada/tb-alvms.c2
-rw-r--r--gcc/ada/tb-alvxw.c2
-rw-r--r--gcc/ada/tbuild.adb2
-rw-r--r--gcc/ada/tree_io.ads4
-rw-r--r--gcc/ada/treepr.adb2
-rw-r--r--gcc/ada/treeprs.adt2
-rw-r--r--gcc/ada/ttypef.ads2
-rw-r--r--gcc/ada/ttypes.ads4
-rw-r--r--gcc/ada/types.adb2
-rw-r--r--gcc/ada/uintp.adb30
-rw-r--r--gcc/ada/uintp.ads30
-rw-r--r--gcc/ada/uname.ads2
-rw-r--r--gcc/ada/urealp.ads24
-rw-r--r--gcc/ada/usage.ads2
-rw-r--r--gcc/ada/validsw.ads13
-rw-r--r--gcc/ada/vms_conv.adb4
-rw-r--r--gcc/ada/vms_conv.ads2
-rw-r--r--gcc/ada/vxaddr2line.adb8
-rw-r--r--gcc/ada/widechar.adb2
-rw-r--r--gcc/ada/widechar.ads2
-rw-r--r--gcc/ada/xeinfo.adb2
-rw-r--r--gcc/ada/xnmake.adb2
-rw-r--r--gcc/ada/xr_tabls.adb12
-rw-r--r--gcc/ada/xr_tabls.ads85
-rw-r--r--gcc/ada/xref_lib.ads18
-rw-r--r--gcc/ada/xsinfo.adb2
-rw-r--r--gcc/ada/xsnames.adb2
-rw-r--r--gcc/ada/xtreeprs.adb2
683 files changed, 1505 insertions, 1765 deletions
diff --git a/gcc/ada/a-astaco.adb b/gcc/ada/a-astaco.adb
index 1df42f37121..b13f426c0e4 100644
--- a/gcc/ada/a-astaco.adb
+++ b/gcc/ada/a-astaco.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-calend-mingw.adb b/gcc/ada/a-calend-mingw.adb
index 71599bd419c..0ec1ca94a8c 100644
--- a/gcc/ada/a-calend-mingw.adb
+++ b/gcc/ada/a-calend-mingw.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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- --
@@ -33,6 +33,9 @@
-- This is the Windows NT/95 version
+-- Why do we need separate version ???
+-- Do we need *this* much code duplication???
+
with System.OS_Primitives;
-- used for Clock
@@ -173,7 +176,6 @@ package body Ada.Calendar is
DM : Month_Number;
DD : Day_Number;
DS : Day_Duration;
-
begin
Split (Date, DY, DM, DD, DS);
return DD;
@@ -203,7 +205,6 @@ package body Ada.Calendar is
DM : Month_Number;
DD : Day_Number;
DS : Day_Duration;
-
begin
Split (Date, DY, DM, DD, DS);
return DS;
@@ -366,7 +367,7 @@ package body Ada.Calendar is
Sub_Sec : constant Duration := Seconds - Duration (Int_Secs);
begin
Date := Time ((Now - epoch_1970) * system_time_ns / Sec_Unit) +
- Sub_Sec;
+ Sub_Sec;
end;
if Add_One_Day then
diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb
index 391e9fb69a7..2a5c70f6bf8 100644
--- a/gcc/ada/a-calend-vms.adb
+++ b/gcc/ada/a-calend-vms.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-calend-vms.ads b/gcc/ada/a-calend-vms.ads
index 1242ef6d65b..ed3c9648458 100644
--- a/gcc/ada/a-calend-vms.ads
+++ b/gcc/ada/a-calend-vms.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb
index c0180e4e995..581295818e1 100644
--- a/gcc/ada/a-calend.adb
+++ b/gcc/ada/a-calend.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-calend.ads b/gcc/ada/a-calend.ads
index 108d1a8883e..a394e2bbcaf 100644
--- a/gcc/ada/a-calend.ads
+++ b/gcc/ada/a-calend.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgaaso.adb b/gcc/ada/a-cgaaso.adb
index 6727c034d2e..cd4cfaba076 100644
--- a/gcc/ada/a-cgaaso.adb
+++ b/gcc/ada/a-cgaaso.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgaaso.ads b/gcc/ada/a-cgaaso.ads
index 6f8cb1d502e..e9d031990d7 100644
--- a/gcc/ada/a-cgaaso.ads
+++ b/gcc/ada/a-cgaaso.ads
@@ -7,7 +7,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgarso.adb b/gcc/ada/a-cgarso.adb
index 60eef4cae73..8d5a08b4f14 100644
--- a/gcc/ada/a-cgarso.adb
+++ b/gcc/ada/a-cgarso.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgcaso.adb b/gcc/ada/a-cgcaso.adb
index 73cfac69d4b..bef6fb0793a 100644
--- a/gcc/ada/a-cgcaso.adb
+++ b/gcc/ada/a-cgcaso.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chacon.adb b/gcc/ada/a-chacon.adb
index 4049b937580..9884337fea7 100755
--- a/gcc/ada/a-chacon.adb
+++ b/gcc/ada/a-chacon.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chacon.ads b/gcc/ada/a-chacon.ads
index 7c36c817784..9ce9337291e 100755
--- a/gcc/ada/a-chacon.ads
+++ b/gcc/ada/a-chacon.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chahan.adb b/gcc/ada/a-chahan.adb
index 3af220ef05d..61a23d858db 100644
--- a/gcc/ada/a-chahan.adb
+++ b/gcc/ada/a-chahan.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -31,9 +31,9 @@
-- --
------------------------------------------------------------------------------
-with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
-with Ada.Strings.Maps; use Ada.Strings.Maps;
-with Ada.Strings.Maps.Constants; use Ada.Strings.Maps.Constants;
+with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
+with Ada.Strings.Maps; use Ada.Strings.Maps;
+with Ada.Strings.Maps.Constants; use Ada.Strings.Maps.Constants;
package body Ada.Characters.Handling is
diff --git a/gcc/ada/a-chahan.ads b/gcc/ada/a-chahan.ads
index 7bc2ded790b..ccb5825b9bb 100644
--- a/gcc/ada/a-chahan.ads
+++ b/gcc/ada/a-chahan.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chlat9.ads b/gcc/ada/a-chlat9.ads
index 30f351af829..b183a477fad 100644
--- a/gcc/ada/a-chlat9.ads
+++ b/gcc/ada/a-chlat9.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgke.adb b/gcc/ada/a-chtgke.adb
index 2caddad7ce2..5203890a594 100644
--- a/gcc/ada/a-chtgke.adb
+++ b/gcc/ada/a-chtgke.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgke.ads b/gcc/ada/a-chtgke.ads
index e56c31b3f4e..de91de72c07 100644
--- a/gcc/ada/a-chtgke.ads
+++ b/gcc/ada/a-chtgke.ads
@@ -7,7 +7,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgop.adb b/gcc/ada/a-chtgop.adb
index 9793f967e01..137b27c0061 100644
--- a/gcc/ada/a-chtgop.adb
+++ b/gcc/ada/a-chtgop.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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/a-chzla1.ads b/gcc/ada/a-chzla1.ads
index 13496b66dc0..f6ffe5bd195 100644
--- a/gcc/ada/a-chzla1.ads
+++ b/gcc/ada/a-chzla1.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-chzla9.ads b/gcc/ada/a-chzla9.ads
index 67459241dc7..8e95cb6f4f3 100644
--- a/gcc/ada/a-chzla9.ads
+++ b/gcc/ada/a-chzla9.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-cohata.ads b/gcc/ada/a-cohata.ads
index d453da2a347..d9b07535b75 100644
--- a/gcc/ada/a-cohata.ads
+++ b/gcc/ada/a-cohata.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-colien.adb b/gcc/ada/a-colien.adb
index 0f76ad1a960..881fb0c32f4 100644
--- a/gcc/ada/a-colien.adb
+++ b/gcc/ada/a-colien.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with System;
+
package body Ada.Command_Line.Environment is
-----------------------
diff --git a/gcc/ada/a-colien.ads b/gcc/ada/a-colien.ads
index 7a683c88c96..404845bcc09 100644
--- a/gcc/ada/a-colien.ads
+++ b/gcc/ada/a-colien.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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/a-colire.adb b/gcc/ada/a-colire.adb
index de273b50f1a..096c166b8dd 100644
--- a/gcc/ada/a-colire.adb
+++ b/gcc/ada/a-colire.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/a-colire.ads b/gcc/ada/a-colire.ads
index 8c5a518575e..e0c038806f7 100644
--- a/gcc/ada/a-colire.ads
+++ b/gcc/ada/a-colire.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/a-comlin.adb b/gcc/ada/a-comlin.adb
index 36d88fa1266..ab438788d45 100644
--- a/gcc/ada/a-comlin.adb
+++ b/gcc/ada/a-comlin.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-comlin.ads b/gcc/ada/a-comlin.ads
index 1ddc3e1da6e..da9e583ae31 100644
--- a/gcc/ada/a-comlin.ads
+++ b/gcc/ada/a-comlin.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-coprnu.adb b/gcc/ada/a-coprnu.adb
index af3d1648348..fd7f34580a8 100644
--- a/gcc/ada/a-coprnu.adb
+++ b/gcc/ada/a-coprnu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-crbltr.ads b/gcc/ada/a-crbltr.ads
index 9df13623d43..391892920f8 100644
--- a/gcc/ada/a-crbltr.ads
+++ b/gcc/ada/a-crbltr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb
index aeed115edff..6d748a30ec3 100644
--- a/gcc/ada/a-crbtgk.adb
+++ b/gcc/ada/a-crbtgk.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cwila1.ads b/gcc/ada/a-cwila1.ads
index 0237237bd19..b75ecf671d6 100644
--- a/gcc/ada/a-cwila1.ads
+++ b/gcc/ada/a-cwila1.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-cwila9.ads b/gcc/ada/a-cwila9.ads
index 94fcad9f27a..ff1d22480b7 100644
--- a/gcc/ada/a-cwila9.ads
+++ b/gcc/ada/a-cwila9.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-decima.adb b/gcc/ada/a-decima.adb
index c255efa20d8..80be38f920d 100644
--- a/gcc/ada/a-decima.adb
+++ b/gcc/ada/a-decima.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-decima.ads b/gcc/ada/a-decima.ads
index 960c9c04e7c..9fdbaa292ea 100644
--- a/gcc/ada/a-decima.ads
+++ b/gcc/ada/a-decima.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-diocst.ads b/gcc/ada/a-diocst.ads
index 947e19739fe..3681646ede0 100644
--- a/gcc/ada/a-diocst.ads
+++ b/gcc/ada/a-diocst.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-direct.adb b/gcc/ada/a-direct.adb
index 3d0216672b9..318d1044502 100644
--- a/gcc/ada/a-direct.adb
+++ b/gcc/ada/a-direct.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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/a-direct.ads b/gcc/ada/a-direct.ads
index 5f381ef3aa7..3e2a2b239c4 100644
--- a/gcc/ada/a-direct.ads
+++ b/gcc/ada/a-direct.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived for use with GNAT from AI-00248, which is --
-- expected to be a part of a future expected revised Ada Reference Manual. --
diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb
index b5f79391a71..a5351f54b55 100644
--- a/gcc/ada/a-direio.adb
+++ b/gcc/ada/a-direio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-direio.ads b/gcc/ada/a-direio.ads
index 97fcf85deae..a98e93f5fba 100644
--- a/gcc/ada/a-direio.ads
+++ b/gcc/ada/a-direio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-dirval-mingw.adb b/gcc/ada/a-dirval-mingw.adb
index 55aba243b3f..760102c9e10 100644
--- a/gcc/ada/a-dirval-mingw.adb
+++ b/gcc/ada/a-dirval-mingw.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- (Windows Version) --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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/a-dirval.adb b/gcc/ada/a-dirval.adb
index 31dd70b5dc9..206af7fc665 100644
--- a/gcc/ada/a-dirval.adb
+++ b/gcc/ada/a-dirval.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- (POSIX Version) --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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/a-dirval.ads b/gcc/ada/a-dirval.ads
index 12a03f60e15..9785f30f7c4 100644
--- a/gcc/ada/a-dirval.ads
+++ b/gcc/ada/a-dirval.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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/a-elchha.adb b/gcc/ada/a-elchha.adb
index 34530edea41..c2b38e4e9f2 100644
--- a/gcc/ada/a-elchha.adb
+++ b/gcc/ada/a-elchha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-excach.adb b/gcc/ada/a-excach.adb
index f4113150904..e10352d0764 100644
--- a/gcc/ada/a-excach.adb
+++ b/gcc/ada/a-excach.adb
@@ -2,11 +2,11 @@
-- --
-- GNAT COMPILER COMPONENTS --
-- --
--- ADA.EXCEPTIONS.CALL_CHAIN --
+-- A D A . E X C E P T I O N S . C A L L _ C H A I N --
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-except.ads b/gcc/ada/a-except.ads
index a93f056544e..fae4d4a4386 100644
--- a/gcc/ada/a-except.ads
+++ b/gcc/ada/a-except.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-exctra.ads b/gcc/ada/a-exctra.ads
index bc31fd08760..07ffb0b9c64 100644
--- a/gcc/ada/a-exctra.ads
+++ b/gcc/ada/a-exctra.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-exextr.adb b/gcc/ada/a-exextr.adb
index caeb23c321d..b50dbc9b492 100644
--- a/gcc/ada/a-exextr.adb
+++ b/gcc/ada/a-exextr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-exstat.adb b/gcc/ada/a-exstat.adb
index d227c45c623..142065f3719 100644
--- a/gcc/ada/a-exstat.adb
+++ b/gcc/ada/a-exstat.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-filico.ads b/gcc/ada/a-filico.ads
index 624ba5fa7ef..5295a06be79 100644
--- a/gcc/ada/a-filico.ads
+++ b/gcc/ada/a-filico.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-finali.ads b/gcc/ada/a-finali.ads
index c2ae4210ca6..598c2926018 100644
--- a/gcc/ada/a-finali.ads
+++ b/gcc/ada/a-finali.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-interr.ads b/gcc/ada/a-interr.ads
index 941af5894fa..8c9c7212b6d 100644
--- a/gcc/ada/a-interr.ads
+++ b/gcc/ada/a-interr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-intnam-aix.ads b/gcc/ada/a-intnam-aix.ads
index e45c029b5ef..279db9db339 100644
--- a/gcc/ada/a-intnam-aix.ads
+++ b/gcc/ada/a-intnam-aix.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,20 +31,20 @@
-- --
------------------------------------------------------------------------------
--- This is a AIX version of this package.
---
+-- This is a AIX version of this package
+
-- The following signals are reserved by the run time (native threads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGTERM,
-- SIGSTOP, SIGKILL
---
+
-- The following signals are reserved by the run time (FSU threads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGALRM,
-- SIGWAITING, SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
-- This target-dependent package spec contains names of interrupts
@@ -55,10 +55,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-darwin.ads b/gcc/ada/a-intnam-darwin.ads
index 1ac9b82b32e..23d12f1de50 100644
--- a/gcc/ada/a-intnam-darwin.ads
+++ b/gcc/ada/a-intnam-darwin.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,14 +31,14 @@
-- --
------------------------------------------------------------------------------
--- This is the Darwin version of this package.
---
+-- This is the Darwin version of this package
+
-- The following signals are reserved by the run time:
---
+
-- SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
-- This target-dependent package spec contains names of interrupts
@@ -49,10 +49,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-dummy.ads b/gcc/ada/a-intnam-dummy.ads
index 76210c03198..f2b418795fe 100644
--- a/gcc/ada/a-intnam-dummy.ads
+++ b/gcc/ada/a-intnam-dummy.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (No Tasking Version) --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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/a-intnam-freebsd.ads b/gcc/ada/a-intnam-freebsd.ads
index 3b72036904d..329b0f6508f 100644
--- a/gcc/ada/a-intnam-freebsd.ads
+++ b/gcc/ada/a-intnam-freebsd.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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/a-intnam-interix.ads b/gcc/ada/a-intnam-interix.ads
index f56f5dd33a4..a6fa5cb6860 100644
--- a/gcc/ada/a-intnam-interix.ads
+++ b/gcc/ada/a-intnam-interix.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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/a-intnam-linux.ads b/gcc/ada/a-intnam-linux.ads
index 4246765cfd8..70fb471b084 100644
--- a/gcc/ada/a-intnam-linux.ads
+++ b/gcc/ada/a-intnam-linux.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,20 +31,20 @@
-- --
------------------------------------------------------------------------------
--- This is a GNU/Linux version of this package.
---
+-- This is a GNU/Linux version of this package
+
-- The following signals are reserved by the run time (FSU threads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
-- SIGALRM, SIGVTALRM, SIGUNUSED, SIGSTOP, SIGKILL
---
+
-- The following signals are reserved by the run time (LinuxThreads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
-- SIGUSR1, SIGUSR2, SIGVTALRM, SIGUNUSED, SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
-- This target-dependent package spec contains names of interrupts
@@ -55,10 +55,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-lynxos.ads b/gcc/ada/a-intnam-lynxos.ads
index 7e484d57367..850eb2af033 100644
--- a/gcc/ada/a-intnam-lynxos.ads
+++ b/gcc/ada/a-intnam-lynxos.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,15 +31,15 @@
-- --
------------------------------------------------------------------------------
--- This is a LynxOS version of this package.
---
+-- This is a LynxOS version of this package
+
-- The following signals are reserved by the run time:
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
-- SIGWAITING, SIGLWP, SIGTTIN, SIGTTOU, SIGTSTP, SIGPROF, SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
with System.OS_Interface;
@@ -47,8 +47,8 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-mingw.ads b/gcc/ada/a-intnam-mingw.ads
index 13038fe2410..a8c5e4ee11a 100644
--- a/gcc/ada/a-intnam-mingw.ads
+++ b/gcc/ada/a-intnam-mingw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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- --
@@ -41,10 +41,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGINT : constant Interrupt_ID :=
System.OS_Interface.SIGINT; -- interrupt (rubout)
diff --git a/gcc/ada/a-intnam-solaris.ads b/gcc/ada/a-intnam-solaris.ads
index f65b861786e..4b4adcf109c 100644
--- a/gcc/ada/a-intnam-solaris.ads
+++ b/gcc/ada/a-intnam-solaris.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,20 +31,20 @@
-- --
------------------------------------------------------------------------------
--- This is a Solaris version of this package.
---
+-- This is a Solaris version of this package
+
-- The following signals are reserved by the run time (native threads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
-- SIGLWP, SIGWAITING, SIGCANCEL, SIGSTOP, SIGKILL
---
+
-- The following signals are reserved by the run time (FSU threads):
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGTERM, SIGABRT, SIGINT,
-- SIGLWP, SIGALRM, SIGVTALRM, SIGAITING, SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handlers
with System.OS_Interface;
@@ -52,10 +52,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-tru64.ads b/gcc/ada/a-intnam-tru64.ads
index 579be22556e..8b6a838c101 100644
--- a/gcc/ada/a-intnam-tru64.ads
+++ b/gcc/ada/a-intnam-tru64.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,15 +31,15 @@
-- --
------------------------------------------------------------------------------
--- This is the DEC Unix 4.0 version of this package.
---
+-- This is the DEC Unix 4.0 version of this package
+
-- The following signals are reserved by the run time:
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGALRM,
-- SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
with System.OS_Interface;
@@ -47,10 +47,9 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases. Also, for all
- -- signal names that are not supported on the current system
- -- the value of the corresponding constant will be zero.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases. Also, for all signal names that are not supported on the
+ -- current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-unixware.ads b/gcc/ada/a-intnam-unixware.ads
index 956470cc40a..ff8a6c801c4 100644
--- a/gcc/ada/a-intnam-unixware.ads
+++ b/gcc/ada/a-intnam-unixware.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,15 +31,15 @@
-- --
------------------------------------------------------------------------------
--- This is a SCO UnixWare version of this package.
---
+-- This is a SCO UnixWare version of this package
+
-- The following signals are reserved by the run time:
---
+
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
-- SIGWAITING, SIGLWP, SIGTTIN, SIGTTOU, SIGTSTP, SIGPROF, SIGSTOP, SIGKILL
---
+
-- The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
-- SIGINT: made available for Ada handler
with System.OS_Interface;
@@ -47,8 +47,8 @@ with System.OS_Interface;
package Ada.Interrupts.Names is
- -- Beware that the mapping of names to signals may be
- -- many-to-one. There may be aliases.
+ -- Beware that the mapping of names to signals may be many-to-one. There
+ -- may be aliases.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
diff --git a/gcc/ada/a-intnam-vms.ads b/gcc/ada/a-intnam-vms.ads
index e079f0274a7..3b745d17ccb 100644
--- a/gcc/ada/a-intnam-vms.ads
+++ b/gcc/ada/a-intnam-vms.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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- --
@@ -31,8 +31,8 @@
-- --
------------------------------------------------------------------------------
--- This is a OpenVMS/Alpha version of this package.
---
+-- This is a OpenVMS/Alpha version of this package
+
-- This target-dependent package spec contains names of interrupts
-- supported by the local system.
diff --git a/gcc/ada/a-intnam-vxworks.ads b/gcc/ada/a-intnam-vxworks.ads
index beb915be0b0..7a2427a7725 100644
--- a/gcc/ada/a-intnam-vxworks.ads
+++ b/gcc/ada/a-intnam-vxworks.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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/a-intsig.adb b/gcc/ada/a-intsig.adb
index 80a9441e434..2099cd8b6ff 100644
--- a/gcc/ada/a-intsig.adb
+++ b/gcc/ada/a-intsig.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with System.Interrupt_Management.Operations;
+
package body Ada.Interrupts.Signal is
------------------------
@@ -43,4 +44,5 @@ package body Ada.Interrupts.Signal is
System.Interrupt_Management.Operations.Interrupt_Self_Process
(System.Interrupt_Management.Interrupt_ID (Interrupt));
end Generate_Interrupt;
+
end Ada.Interrupts.Signal;
diff --git a/gcc/ada/a-intsig.ads b/gcc/ada/a-intsig.ads
index 0150622c1f5..5160123539a 100644
--- a/gcc/ada/a-intsig.ads
+++ b/gcc/ada/a-intsig.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -35,10 +35,10 @@
-- by user programs and avoids importing low level children of System
-- (e.g. System.Interrupt_Management.Operations), or defining an interface
-- to complex system calls.
---
+
package Ada.Interrupts.Signal is
procedure Generate_Interrupt (Interrupt : Interrupt_ID);
- -- Generate Interrupt at the process level
+ -- Generate interrupt at the process level
end Ada.Interrupts.Signal;
diff --git a/gcc/ada/a-ngcefu.adb b/gcc/ada/a-ngcefu.adb
index 44216466cb4..d0e203d2780 100644
--- a/gcc/ada/a-ngcefu.adb
+++ b/gcc/ada/a-ngcefu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb
index aa8c9955d0f..f0abc80ec37 100644
--- a/gcc/ada/a-ngcoty.adb
+++ b/gcc/ada/a-ngcoty.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Ada.Numerics.Aux; use Ada.Numerics.Aux;
+
package body Ada.Numerics.Generic_Complex_Types is
subtype R is Real'Base;
diff --git a/gcc/ada/a-ngcoty.ads b/gcc/ada/a-ngcoty.ads
index fd6c9071b4a..0e006d24cb9 100644
--- a/gcc/ada/a-ngcoty.ads
+++ b/gcc/ada/a-ngcoty.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb
index 9cdd8a149e1..dd8408f2d81 100644
--- a/gcc/ada/a-nudira.adb
+++ b/gcc/ada/a-nudira.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Ada.Calendar;
+
with Interfaces; use Interfaces;
package body Ada.Numerics.Discrete_Random is
@@ -201,7 +202,6 @@ package body Ada.Numerics.Discrete_Random is
procedure Reset (Gen : Generator; From_State : State) is
Genp : constant Pointer := Gen.Gen_State'Unrestricted_Access;
-
begin
Genp.all := From_State;
end Reset;
diff --git a/gcc/ada/a-nudira.ads b/gcc/ada/a-nudira.ads
index 275e89825fd..c6b2b3e9f30 100644
--- a/gcc/ada/a-nudira.ads
+++ b/gcc/ada/a-nudira.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-nuflra.adb b/gcc/ada/a-nuflra.adb
index 5f43c97df6b..379d58fe7b4 100644
--- a/gcc/ada/a-nuflra.adb
+++ b/gcc/ada/a-nuflra.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-numaux-darwin.adb b/gcc/ada/a-numaux-darwin.adb
index d9235a10649..af0f1d5bd0f 100644
--- a/gcc/ada/a-numaux-darwin.adb
+++ b/gcc/ada/a-numaux-darwin.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- (Apple OS X Version) --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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- --
@@ -32,7 +32,7 @@
-- --
------------------------------------------------------------------------------
--- File a-numaux.adb <- a-numaux-darwin.adb
+-- File a-numaux.adb <- a-numaux-d arwin.adb
package body Ada.Numerics.Aux is
@@ -95,7 +95,8 @@ package body Ada.Numerics.Aux is
P5 : constant Double := Double'Leading_Part (Half_Pi - P1 - P2 - P3
- P4, HM);
P6 : constant Double := Double'Model (Half_Pi - P1 - P2 - P3 - P4 - P5);
- K : Double := X * Two_Over_Pi;
+ K : Double;
+
begin
-- For X < 2.0**HM, all products below are computed exactly.
-- Due to cancellation effects all subtractions are exact as well.
@@ -103,17 +104,17 @@ package body Ada.Numerics.Aux is
-- zeros after the binary point, the result will be the correctly
-- rounded result of X - K * (Pi / 2.0).
- while abs K >= 2.0**HM loop
+ K := X * Two_Over_Pi;
+ while abs K >= 2.0 ** HM loop
K := K * M - (K * M - K);
- X := (((((X - K * P1) - K * P2) - K * P3)
- - K * P4) - K * P5) - K * P6;
+ X :=
+ (((((X - K * P1) - K * P2) - K * P3) - K * P4) - K * P5) - K * P6;
K := X * Two_Over_Pi;
end loop;
- if K /= K then
-
- -- K is not a number, because X was not finite
+ -- If K is not a number (because X was not finite) raise exception
+ if K /= K then
raise Constraint_Error;
end if;
diff --git a/gcc/ada/a-numaux-darwin.ads b/gcc/ada/a-numaux-darwin.ads
index 67faa0f9982..77f5badf937 100644
--- a/gcc/ada/a-numaux-darwin.ads
+++ b/gcc/ada/a-numaux-darwin.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (Apple OS X Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-numaux-libc-x86.ads b/gcc/ada/a-numaux-libc-x86.ads
index 8e94fa0176d..ac2df18d310 100644
--- a/gcc/ada/a-numaux-libc-x86.ads
+++ b/gcc/ada/a-numaux-libc-x86.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (C Library Version for x86) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-numaux-vxworks.ads b/gcc/ada/a-numaux-vxworks.ads
index db71c046444..70f07ca3582 100644
--- a/gcc/ada/a-numaux-vxworks.ads
+++ b/gcc/ada/a-numaux-vxworks.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (C Library Version, VxWorks) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-numaux-x86.ads b/gcc/ada/a-numaux-x86.ads
index 97cf691b127..7cfb612f37b 100644
--- a/gcc/ada/a-numaux-x86.ads
+++ b/gcc/ada/a-numaux-x86.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (Machine Version for x86) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-numaux.ads b/gcc/ada/a-numaux.ads
index fb09ad1009b..694ca8069f2 100644
--- a/gcc/ada/a-numaux.ads
+++ b/gcc/ada/a-numaux.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (C Library Version, non-x86) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb
index 4a46be1181c..6742e285291 100644
--- a/gcc/ada/a-rbtgso.adb
+++ b/gcc/ada/a-rbtgso.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads
index c761354d51f..ae87c0a322a 100644
--- a/gcc/ada/a-reatim.ads
+++ b/gcc/ada/a-reatim.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-secain.adb b/gcc/ada/a-secain.adb
index 777af4e27e3..74d222d6a59 100644
--- a/gcc/ada/a-secain.adb
+++ b/gcc/ada/a-secain.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-sequio.adb b/gcc/ada/a-sequio.adb
index 1a5966b7a91..6d4d84f9d2f 100644
--- a/gcc/ada/a-sequio.adb
+++ b/gcc/ada/a-sequio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-sequio.ads b/gcc/ada/a-sequio.ads
index 3a01364c3a3..2aba80abfc5 100644
--- a/gcc/ada/a-sequio.ads
+++ b/gcc/ada/a-sequio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@ -36,6 +36,7 @@
------------------------------------------------------------------------------
with Ada.IO_Exceptions;
+
with System.Sequential_IO;
generic
diff --git a/gcc/ada/a-shcain.adb b/gcc/ada/a-shcain.adb
index c41c2e6cdfb..4b6000c26be 100644
--- a/gcc/ada/a-shcain.adb
+++ b/gcc/ada/a-shcain.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@ -33,7 +33,7 @@
-- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------
-with Ada.Characters.Handling; use Ada.Characters.Handling;
+with Ada.Characters.Handling; use Ada.Characters.Handling;
-- Note: source of this algorithm: GNAT.HTable.Hash (g-htable.adb)
diff --git a/gcc/ada/a-siocst.ads b/gcc/ada/a-siocst.ads
index 949e398b5c6..26a9af94eab 100644
--- a/gcc/ada/a-siocst.ads
+++ b/gcc/ada/a-siocst.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-slcain.adb b/gcc/ada/a-slcain.adb
index 5ce584e2710..5a5b8928c43 100644
--- a/gcc/ada/a-slcain.adb
+++ b/gcc/ada/a-slcain.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@ -33,7 +33,7 @@
-- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------
-with Ada.Characters.Handling; use Ada.Characters.Handling;
+with Ada.Characters.Handling; use Ada.Characters.Handling;
function Ada.Strings.Less_Case_Insensitive
(Left, Right : String) return Boolean
diff --git a/gcc/ada/a-ssicst.ads b/gcc/ada/a-ssicst.ads
index 1d56f0f07ed..d5f2d6a4ea9 100644
--- a/gcc/ada/a-ssicst.ads
+++ b/gcc/ada/a-ssicst.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stmaco.ads b/gcc/ada/a-stmaco.ads
index 660f557a266..86e1bb948eb 100644
--- a/gcc/ada/a-stmaco.ads
+++ b/gcc/ada/a-stmaco.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- ACopyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-storio.adb b/gcc/ada/a-storio.adb
index 3f50e730ad1..ebf6168cdfb 100644
--- a/gcc/ada/a-storio.adb
+++ b/gcc/ada/a-storio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strbou.adb b/gcc/ada/a-strbou.adb
index 6bcf0b4755a..015123a8faf 100644
--- a/gcc/ada/a-strbou.adb
+++ b/gcc/ada/a-strbou.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strbou.ads b/gcc/ada/a-strbou.ads
index 74bb8f697a1..d0dbe8c9ce0 100644
--- a/gcc/ada/a-strbou.ads
+++ b/gcc/ada/a-strbou.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stream.ads b/gcc/ada/a-stream.ads
index 0b68692857a..5bca4a2cc5b 100644
--- a/gcc/ada/a-stream.ads
+++ b/gcc/ada/a-stream.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strfix.adb b/gcc/ada/a-strfix.adb
index 5eee9348f27..3385baac868 100644
--- a/gcc/ada/a-strfix.adb
+++ b/gcc/ada/a-strfix.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -31,14 +31,14 @@
-- --
------------------------------------------------------------------------------
--- Note: This code is derived from the ADAR.CSH public domain Ada 83
--- versions of the Appendix C string handling packages. One change is
--- to avoid the use of Is_In, so that we are not dependent on inlining.
--- Note that the search function implementations are to be found in the
--- auxiliary package Ada.Strings.Search. Also the Move procedure is
--- directly incorporated (ADAR used a subunit for this procedure). A
--- number of errors having to do with bounds of function return results
--- were also fixed, and use of & removed for efficiency reasons.
+-- Note: This code is derived from the ADAR.CSH public domain Ada 83 versions
+-- of the Appendix C string handling packages. One change is to avoid the use
+-- of Is_In, so that we are not dependent on inlining. Note that the search
+-- function implementations are to be found in the auxiliary package
+-- Ada.Strings.Search. Also the Move procedure is directly incorporated (ADAR
+-- used a subunit for this procedure). number of errors having to do with
+-- bounds of function return results were also fixed, and use of & removed for
+-- efficiency reasons.
with Ada.Strings.Maps; use Ada.Strings.Maps;
with Ada.Strings.Search;
diff --git a/gcc/ada/a-strhas.adb b/gcc/ada/a-strhas.adb
index a22c27c66ee..ba02a75c68c 100644
--- a/gcc/ada/a-strhas.adb
+++ b/gcc/ada/a-strhas.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strmap.adb b/gcc/ada/a-strmap.adb
index f5e324914da..ee0179ef8a8 100644
--- a/gcc/ada/a-strmap.adb
+++ b/gcc/ada/a-strmap.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strmap.ads b/gcc/ada/a-strmap.ads
index 3331a2f1666..bd1b98f00cc 100644
--- a/gcc/ada/a-strmap.ads
+++ b/gcc/ada/a-strmap.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strsea.adb b/gcc/ada/a-strsea.adb
index f98617cde74..322aeaa7fb1 100644
--- a/gcc/ada/a-strsea.adb
+++ b/gcc/ada/a-strsea.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strsea.ads b/gcc/ada/a-strsea.ads
index f9d81c74c70..6c7a5c297da 100644
--- a/gcc/ada/a-strsea.ads
+++ b/gcc/ada/a-strsea.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strsup.adb b/gcc/ada/a-strsup.adb
index 28654129357..1b1c9090c92 100644
--- a/gcc/ada/a-strsup.adb
+++ b/gcc/ada/a-strsup.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-strsup.ads b/gcc/ada/a-strsup.ads
index cf27f4a7495..e00b09011c6 100644
--- a/gcc/ada/a-strsup.ads
+++ b/gcc/ada/a-strsup.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-strunb.adb b/gcc/ada/a-strunb.adb
index cf5cde63cc6..34720704a36 100644
--- a/gcc/ada/a-strunb.adb
+++ b/gcc/ada/a-strunb.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-strunb.ads b/gcc/ada/a-strunb.ads
index 0869995a167..5755ed202aa 100644
--- a/gcc/ada/a-strunb.ads
+++ b/gcc/ada/a-strunb.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stunha.adb b/gcc/ada/a-stunha.adb
index 8052bdcf77f..34db5634116 100644
--- a/gcc/ada/a-stunha.adb
+++ b/gcc/ada/a-stunha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stunha.ads b/gcc/ada/a-stunha.ads
index 81716555389..acf04716762 100644
--- a/gcc/ada/a-stunha.ads
+++ b/gcc/ada/a-stunha.ads
@@ -6,8 +6,6 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
--- --
-- This specification is adapted from the Ada Reference Manual for use with --
-- GNAT. In accordance with the copyright of that document, you can freely --
-- copy and modify this specification, provided that if you redistribute a --
diff --git a/gcc/ada/a-stwibo.adb b/gcc/ada/a-stwibo.adb
index 136b439205d..36ec17d1baa 100644
--- a/gcc/ada/a-stwibo.adb
+++ b/gcc/ada/a-stwibo.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stwibo.ads b/gcc/ada/a-stwibo.ads
index 4c056650fc9..4033543e866 100644
--- a/gcc/ada/a-stwibo.ads
+++ b/gcc/ada/a-stwibo.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwifi.adb b/gcc/ada/a-stwifi.adb
index 13fe4ffe0ff..9f721bfb0f1 100644
--- a/gcc/ada/a-stwifi.adb
+++ b/gcc/ada/a-stwifi.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-with Ada.Strings.Wide_Maps; use Ada.Strings.Wide_Maps;
+with Ada.Strings.Wide_Maps; use Ada.Strings.Wide_Maps;
with Ada.Strings.Wide_Search;
package body Ada.Strings.Wide_Fixed is
@@ -296,7 +296,11 @@ package body Ada.Strings.Wide_Fixed is
Tlength : constant Integer := Target'Length;
function Is_Padding (Item : Wide_String) return Boolean;
- -- Determinbe if all characters in Item are pad characters
+ -- Determine if all characters in Item are pad characters
+
+ ----------------
+ -- Is_Padding --
+ ----------------
function Is_Padding (Item : Wide_String) return Boolean is
begin
diff --git a/gcc/ada/a-stwiha.adb b/gcc/ada/a-stwiha.adb
index c9068717a37..dd38568440d 100644
--- a/gcc/ada/a-stwiha.adb
+++ b/gcc/ada/a-stwiha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwima.adb b/gcc/ada/a-stwima.adb
index 3ec637321f3..d56fb11ca8b 100644
--- a/gcc/ada/a-stwima.adb
+++ b/gcc/ada/a-stwima.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stwima.ads b/gcc/ada/a-stwima.ads
index 001f5da201e..e63ac3169df 100644
--- a/gcc/ada/a-stwima.ads
+++ b/gcc/ada/a-stwima.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwise.adb b/gcc/ada/a-stwise.adb
index 3121a16c6c1..f2be824df0f 100644
--- a/gcc/ada/a-stwise.adb
+++ b/gcc/ada/a-stwise.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stwise.ads b/gcc/ada/a-stwise.ads
index 35241fc25e5..da4d3e1a4a7 100644
--- a/gcc/ada/a-stwise.ads
+++ b/gcc/ada/a-stwise.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stwisu.adb b/gcc/ada/a-stwisu.adb
index 10529684de2..5984e5e117f 100644
--- a/gcc/ada/a-stwisu.adb
+++ b/gcc/ada/a-stwisu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-stwisu.ads b/gcc/ada/a-stwisu.ads
index 721e2a80481..f5e688332f9 100644
--- a/gcc/ada/a-stwisu.ads
+++ b/gcc/ada/a-stwisu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-stwiun.adb b/gcc/ada/a-stwiun.adb
index 05b3fa734be..45ab546a3c2 100644
--- a/gcc/ada/a-stwiun.adb
+++ b/gcc/ada/a-stwiun.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stwiun.ads b/gcc/ada/a-stwiun.ads
index e2cb3644566..4ac93acc84c 100644
--- a/gcc/ada/a-stwiun.ads
+++ b/gcc/ada/a-stwiun.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzbou.adb b/gcc/ada/a-stzbou.adb
index 53089bff5c0..fee2026a61f 100644
--- a/gcc/ada/a-stzbou.adb
+++ b/gcc/ada/a-stzbou.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzbou.ads b/gcc/ada/a-stzbou.ads
index e4ad260871b..7650ef58aa9 100644
--- a/gcc/ada/a-stzbou.ads
+++ b/gcc/ada/a-stzbou.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzfix.adb b/gcc/ada/a-stzfix.adb
index 5517404c42e..c01e2a7141a 100644
--- a/gcc/ada/a-stzfix.adb
+++ b/gcc/ada/a-stzfix.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzhas.adb b/gcc/ada/a-stzhas.adb
index 7881ea6d11b..ec5e928edc1 100644
--- a/gcc/ada/a-stzhas.adb
+++ b/gcc/ada/a-stzhas.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzmap.adb b/gcc/ada/a-stzmap.adb
index 4f5880f8525..35a03853fde 100644
--- a/gcc/ada/a-stzmap.adb
+++ b/gcc/ada/a-stzmap.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzmap.ads b/gcc/ada/a-stzmap.ads
index f71e3dde106..b69357af4c0 100644
--- a/gcc/ada/a-stzmap.ads
+++ b/gcc/ada/a-stzmap.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzsea.adb b/gcc/ada/a-stzsea.adb
index 5b0b326c1ac..2e29415e0c1 100644
--- a/gcc/ada/a-stzsea.adb
+++ b/gcc/ada/a-stzsea.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzsea.ads b/gcc/ada/a-stzsea.ads
index eef55151bfd..f598db656f7 100644
--- a/gcc/ada/a-stzsea.ads
+++ b/gcc/ada/a-stzsea.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzsup.adb b/gcc/ada/a-stzsup.adb
index b6a96fd2ca4..9e4fbcd20f1 100644
--- a/gcc/ada/a-stzsup.adb
+++ b/gcc/ada/a-stzsup.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-stzsup.ads b/gcc/ada/a-stzsup.ads
index 33b9ecb03f7..ab84ad46f8b 100644
--- a/gcc/ada/a-stzsup.ads
+++ b/gcc/ada/a-stzsup.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/a-stzunb.adb b/gcc/ada/a-stzunb.adb
index 5f5302dc817..7f4c54a94c3 100644
--- a/gcc/ada/a-stzunb.adb
+++ b/gcc/ada/a-stzunb.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-stzunb.ads b/gcc/ada/a-stzunb.ads
index b069e934dd2..95b8eb17269 100644
--- a/gcc/ada/a-stzunb.ads
+++ b/gcc/ada/a-stzunb.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-suteio.adb b/gcc/ada/a-suteio.adb
index c5f586b2877..98034e2b110 100644
--- a/gcc/ada/a-suteio.adb
+++ b/gcc/ada/a-suteio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-suteio.ads b/gcc/ada/a-suteio.ads
index 7bcf5edac58..4369a452cf0 100644
--- a/gcc/ada/a-suteio.ads
+++ b/gcc/ada/a-suteio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-swmwco.ads b/gcc/ada/a-swmwco.ads
index 269b3f8d5b4..76b5976b620 100644
--- a/gcc/ada/a-swmwco.ads
+++ b/gcc/ada/a-swmwco.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-swuwha.ads b/gcc/ada/a-swuwha.ads
index 078094a8025..1fcb41007f8 100644
--- a/gcc/ada/a-swuwha.ads
+++ b/gcc/ada/a-swuwha.ads
@@ -6,8 +6,6 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
--- --
-- This specification is adapted from the Ada Reference Manual for use with --
-- GNAT. In accordance with the copyright of that document, you can freely --
-- copy and modify this specification, provided that if you redistribute a --
diff --git a/gcc/ada/a-swuwti.adb b/gcc/ada/a-swuwti.adb
index 1436aed2e7f..1e6bb2e7eab 100644
--- a/gcc/ada/a-swuwti.adb
+++ b/gcc/ada/a-swuwti.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-swuwti.ads b/gcc/ada/a-swuwti.ads
index b5a4defb009..219a360a394 100644
--- a/gcc/ada/a-swuwti.ads
+++ b/gcc/ada/a-swuwti.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-sytaco.adb b/gcc/ada/a-sytaco.adb
index 98fcfaa5f98..3d0aaaa8c3b 100644
--- a/gcc/ada/a-sytaco.adb
+++ b/gcc/ada/a-sytaco.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-sytaco.ads b/gcc/ada/a-sytaco.ads
index 5e6315cdba5..96480cf26e8 100644
--- a/gcc/ada/a-sytaco.ads
+++ b/gcc/ada/a-sytaco.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-szuzha.adb b/gcc/ada/a-szuzha.adb
index 97c97905d96..fff8114e656 100644
--- a/gcc/ada/a-szuzha.adb
+++ b/gcc/ada/a-szuzha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-szuzha.ads b/gcc/ada/a-szuzha.ads
index 2aaf66bd485..1e07fbdbd2b 100644
--- a/gcc/ada/a-szuzha.ads
+++ b/gcc/ada/a-szuzha.ads
@@ -6,8 +6,6 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
--- --
-- This specification is adapted from the Ada Reference Manual for use with --
-- GNAT. In accordance with the copyright of that document, you can freely --
-- copy and modify this specification, provided that if you redistribute a --
diff --git a/gcc/ada/a-szuzti.adb b/gcc/ada/a-szuzti.adb
index d543bc4f18f..850ae78cca2 100644
--- a/gcc/ada/a-szuzti.adb
+++ b/gcc/ada/a-szuzti.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-szuzti.ads b/gcc/ada/a-szuzti.ads
index c48d404d406..01111695e23 100644
--- a/gcc/ada/a-szuzti.ads
+++ b/gcc/ada/a-szuzti.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/a-tasatt.adb b/gcc/ada/a-tasatt.adb
index 5afab9eca4c..21c1e471367 100644
--- a/gcc/ada/a-tasatt.adb
+++ b/gcc/ada/a-tasatt.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- --
-- Copyright (C) 1991-1994, Florida State University --
--- Copyright (C) 1995-2005, Ada Core Technologies --
+-- Copyright (C) 1995-2005, 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- --
@@ -56,10 +56,9 @@
-- attribute is a potential source of dangling references.
-- When a task goes away, we want to be able to recover all the storage
--- associated with its attributes. The Ada mechanism for this is
--- finalization, via controlled attribute types. For this reason, the ARM
--- requires finalization of attribute values when the associated task
--- terminates.
+-- associated with its attributes. The Ada mechanism for this is finalization,
+-- via controlled attribute types. For this reason, the ARM requires
+-- finalization of attribute values when the associated task terminates.
-- This finalization must be triggered by the tasking runtime system, during
-- termination of the task. Given the active set of instantiations of
@@ -376,7 +375,6 @@ package body Ada.Task_Attributes is
procedure Deallocate (P : in out Access_Node) is
T : Access_Wrapper := To_Access_Wrapper (P.Wrapper);
-
begin
Free (T);
end Deallocate;
diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb
index a63719d5cbe..88722ac9603 100644
--- a/gcc/ada/a-taside.adb
+++ b/gcc/ada/a-taside.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-taside.ads b/gcc/ada/a-taside.ads
index fcceff5de57..acef0f1375d 100644
--- a/gcc/ada/a-taside.ads
+++ b/gcc/ada/a-taside.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb
index 86a3b7c12cd..b4280c370ad 100644
--- a/gcc/ada/a-teioed.adb
+++ b/gcc/ada/a-teioed.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-textio.adb b/gcc/ada/a-textio.adb
index dfd65574159..145eaf5563e 100644
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-textio.ads b/gcc/ada/a-textio.ads
index dbb9a1ad519..50ba549285a 100644
--- a/gcc/ada/a-textio.ads
+++ b/gcc/ada/a-textio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ticoau.adb b/gcc/ada/a-ticoau.adb
index 4f6b1fbfdc3..9d543202377 100644
--- a/gcc/ada/a-ticoau.adb
+++ b/gcc/ada/a-ticoau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ticoau.ads b/gcc/ada/a-ticoau.ads
index 89dab7a40b7..c91804a0644 100644
--- a/gcc/ada/a-ticoau.ads
+++ b/gcc/ada/a-ticoau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ticoio.adb b/gcc/ada/a-ticoio.adb
index 858e6f2ae2c..f620945775a 100644
--- a/gcc/ada/a-ticoio.adb
+++ b/gcc/ada/a-ticoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tideau.adb b/gcc/ada/a-tideau.adb
index 4bdb53c4157..82ed8492763 100644
--- a/gcc/ada/a-tideau.adb
+++ b/gcc/ada/a-tideau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tideio.adb b/gcc/ada/a-tideio.adb
index 8c5a1ceef6e..3f945025042 100644
--- a/gcc/ada/a-tideio.adb
+++ b/gcc/ada/a-tideio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tienau.adb b/gcc/ada/a-tienau.adb
index d7fdc3025ae..3e6506cfac7 100644
--- a/gcc/ada/a-tienau.adb
+++ b/gcc/ada/a-tienau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tienio.adb b/gcc/ada/a-tienio.adb
index 769dda424c3..4d1bdedd44c 100644
--- a/gcc/ada/a-tienio.adb
+++ b/gcc/ada/a-tienio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tifiio.adb b/gcc/ada/a-tifiio.adb
index 6a06f8be7dc..6b612a42f90 100644
--- a/gcc/ada/a-tifiio.adb
+++ b/gcc/ada/a-tifiio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tiflio.adb b/gcc/ada/a-tiflio.adb
index 29f8a9182d4..3961a65f1c8 100644
--- a/gcc/ada/a-tiflio.adb
+++ b/gcc/ada/a-tiflio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tigeau.adb b/gcc/ada/a-tigeau.adb
index d9474b40e0a..425011c764c 100644
--- a/gcc/ada/a-tigeau.adb
+++ b/gcc/ada/a-tigeau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tigeau.ads b/gcc/ada/a-tigeau.ads
index 7e0b35cc806..3803e9a2385 100644
--- a/gcc/ada/a-tigeau.ads
+++ b/gcc/ada/a-tigeau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tiinau.adb b/gcc/ada/a-tiinau.adb
index 75c006ab1fd..e5f24e32d12 100644
--- a/gcc/ada/a-tiinau.adb
+++ b/gcc/ada/a-tiinau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-tiinio.adb b/gcc/ada/a-tiinio.adb
index c172cbbad27..ea8b397b47f 100644
--- a/gcc/ada/a-tiinio.adb
+++ b/gcc/ada/a-tiinio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-timoau.adb b/gcc/ada/a-timoau.adb
index a0fad033887..e23ea309601 100644
--- a/gcc/ada/a-timoau.adb
+++ b/gcc/ada/a-timoau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-timoio.adb b/gcc/ada/a-timoio.adb
index e4ca508ed47..afb9b5db85d 100644
--- a/gcc/ada/a-timoio.adb
+++ b/gcc/ada/a-timoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-timoio.ads b/gcc/ada/a-timoio.ads
index c553c88a026..bdfa77d393a 100644
--- a/gcc/ada/a-timoio.ads
+++ b/gcc/ada/a-timoio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1993-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1993-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-tiocst.ads b/gcc/ada/a-tiocst.ads
index 670670baed8..8c5bafddb99 100644
--- a/gcc/ada/a-tiocst.ads
+++ b/gcc/ada/a-tiocst.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-titest.adb b/gcc/ada/a-titest.adb
index aec11a1c6a4..98f9c0b00df 100644
--- a/gcc/ada/a-titest.adb
+++ b/gcc/ada/a-titest.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wichun.adb b/gcc/ada/a-wichun.adb
index 0c3cf519dd4..f0ca9e093fe 100755
--- a/gcc/ada/a-wichun.adb
+++ b/gcc/ada/a-wichun.adb
@@ -4,9 +4,9 @@
-- --
-- A D A . W I D E _ C H A R A C T E R T S . U N I C O D E --
-- --
--- B o d y --
+-- B o d y --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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/a-wichun.ads b/gcc/ada/a-wichun.ads
index 26da25e8f7e..b112a61b3ba 100755
--- a/gcc/ada/a-wichun.ads
+++ b/gcc/ada/a-wichun.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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/a-witeio.adb b/gcc/ada/a-witeio.adb
index 073319239cf..7071df138c2 100644
--- a/gcc/ada/a-witeio.adb
+++ b/gcc/ada/a-witeio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-witeio.ads b/gcc/ada/a-witeio.ads
index bb024f46945..9430187ca98 100644
--- a/gcc/ada/a-witeio.ads
+++ b/gcc/ada/a-witeio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-wtcoau.adb b/gcc/ada/a-wtcoau.adb
index 655948ec58d..c567b04c880 100644
--- a/gcc/ada/a-wtcoau.adb
+++ b/gcc/ada/a-wtcoau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtcoau.ads b/gcc/ada/a-wtcoau.ads
index f169a4514c3..de9bb7f6281 100644
--- a/gcc/ada/a-wtcoau.ads
+++ b/gcc/ada/a-wtcoau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtcoio.adb b/gcc/ada/a-wtcoio.adb
index 510b09d3a3d..eedbfc0ee25 100644
--- a/gcc/ada/a-wtcoio.adb
+++ b/gcc/ada/a-wtcoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtcstr.ads b/gcc/ada/a-wtcstr.ads
index 7f89f53b525..f2b80a41d9d 100644
--- a/gcc/ada/a-wtcstr.ads
+++ b/gcc/ada/a-wtcstr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtdeau.adb b/gcc/ada/a-wtdeau.adb
index 9dfca970ce2..bffe3c53f32 100644
--- a/gcc/ada/a-wtdeau.adb
+++ b/gcc/ada/a-wtdeau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtdeio.adb b/gcc/ada/a-wtdeio.adb
index 3d611ee479b..376e7f72440 100644
--- a/gcc/ada/a-wtdeio.adb
+++ b/gcc/ada/a-wtdeio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtedit.adb b/gcc/ada/a-wtedit.adb
index 7f10a6e1f3b..b4736232310 100644
--- a/gcc/ada/a-wtedit.adb
+++ b/gcc/ada/a-wtedit.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtedit.ads b/gcc/ada/a-wtedit.ads
index eff8fbd942c..f275f8052de 100644
--- a/gcc/ada/a-wtedit.ads
+++ b/gcc/ada/a-wtedit.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb
index 9f60e29ac15..4a231e52595 100644
--- a/gcc/ada/a-wtenau.adb
+++ b/gcc/ada/a-wtenau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtenio.adb b/gcc/ada/a-wtenio.adb
index d44f394c371..fd40df538e6 100644
--- a/gcc/ada/a-wtenio.adb
+++ b/gcc/ada/a-wtenio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtfiio.adb b/gcc/ada/a-wtfiio.adb
index 00130d92bff..405f17d15ad 100644
--- a/gcc/ada/a-wtfiio.adb
+++ b/gcc/ada/a-wtfiio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtflio.adb b/gcc/ada/a-wtflio.adb
index 71108d256ef..1d331d41f37 100644
--- a/gcc/ada/a-wtflio.adb
+++ b/gcc/ada/a-wtflio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtgeau.adb b/gcc/ada/a-wtgeau.adb
index 03dc7b0df56..c020589ee8c 100644
--- a/gcc/ada/a-wtgeau.adb
+++ b/gcc/ada/a-wtgeau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtinau.adb b/gcc/ada/a-wtinau.adb
index 7ffe9ea1cae..1d51e0f0e88 100644
--- a/gcc/ada/a-wtinau.adb
+++ b/gcc/ada/a-wtinau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtinio.adb b/gcc/ada/a-wtinio.adb
index e187bb4e3d8..deb3a519040 100644
--- a/gcc/ada/a-wtinio.adb
+++ b/gcc/ada/a-wtinio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtmoau.adb b/gcc/ada/a-wtmoau.adb
index 1ae6a5ec06f..0a9dca44c7a 100644
--- a/gcc/ada/a-wtmoau.adb
+++ b/gcc/ada/a-wtmoau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wtmoio.adb b/gcc/ada/a-wtmoio.adb
index 10225152104..e9bf8775367 100644
--- a/gcc/ada/a-wtmoio.adb
+++ b/gcc/ada/a-wtmoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-wttest.adb b/gcc/ada/a-wttest.adb
index 5c3d1c8f3dc..536395d18d9 100644
--- a/gcc/ada/a-wttest.adb
+++ b/gcc/ada/a-wttest.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-zchuni.adb b/gcc/ada/a-zchuni.adb
index c3c05288c83..bfeeedfd8e4 100755
--- a/gcc/ada/a-zchuni.adb
+++ b/gcc/ada/a-zchuni.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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/a-zchuni.ads b/gcc/ada/a-zchuni.ads
index c93ec754ac1..ddd3a390a91 100755
--- a/gcc/ada/a-zchuni.ads
+++ b/gcc/ada/a-zchuni.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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/a-ztcoau.adb b/gcc/ada/a-ztcoau.adb
index e899a821593..8d7b1310f33 100644
--- a/gcc/ada/a-ztcoau.adb
+++ b/gcc/ada/a-ztcoau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztcoau.ads b/gcc/ada/a-ztcoau.ads
index 7e175dfe9cc..d7ee61281a9 100644
--- a/gcc/ada/a-ztcoau.ads
+++ b/gcc/ada/a-ztcoau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztcoio.adb b/gcc/ada/a-ztcoio.adb
index 8661f35eed4..97e58a18a92 100644
--- a/gcc/ada/a-ztcoio.adb
+++ b/gcc/ada/a-ztcoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztcstr.adb b/gcc/ada/a-ztcstr.adb
index 9f0f0a5d967..f6b23d7b8a2 100644
--- a/gcc/ada/a-ztcstr.adb
+++ b/gcc/ada/a-ztcstr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztcstr.ads b/gcc/ada/a-ztcstr.ads
index 92be2015eb8..6d6ed73f2fd 100644
--- a/gcc/ada/a-ztcstr.ads
+++ b/gcc/ada/a-ztcstr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztdeau.adb b/gcc/ada/a-ztdeau.adb
index a5be8471d6d..b6b9b94c440 100644
--- a/gcc/ada/a-ztdeau.adb
+++ b/gcc/ada/a-ztdeau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztdeau.ads b/gcc/ada/a-ztdeau.ads
index 3769bd24c6a..ba9ffcb42d3 100644
--- a/gcc/ada/a-ztdeau.ads
+++ b/gcc/ada/a-ztdeau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztdeio.adb b/gcc/ada/a-ztdeio.adb
index af2240ab861..796dfc80456 100644
--- a/gcc/ada/a-ztdeio.adb
+++ b/gcc/ada/a-ztdeio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Ada.Wide_Wide_Text_IO.Decimal_Aux;
+
with System.WCh_Con; use System.WCh_Con;
with System.WCh_WtS; use System.WCh_WtS;
diff --git a/gcc/ada/a-ztdeio.ads b/gcc/ada/a-ztdeio.ads
index 3b435edb34a..73d6c23baa5 100644
--- a/gcc/ada/a-ztdeio.ads
+++ b/gcc/ada/a-ztdeio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztedit.adb b/gcc/ada/a-ztedit.adb
index 57478426e8b..f763bdc3920 100644
--- a/gcc/ada/a-ztedit.adb
+++ b/gcc/ada/a-ztedit.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztedit.ads b/gcc/ada/a-ztedit.ads
index 028265339b0..3a2f49a4d71 100644
--- a/gcc/ada/a-ztedit.ads
+++ b/gcc/ada/a-ztedit.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztenau.ads b/gcc/ada/a-ztenau.ads
index 9555076320a..6683be974df 100644
--- a/gcc/ada/a-ztenau.ads
+++ b/gcc/ada/a-ztenau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztenio.adb b/gcc/ada/a-ztenio.adb
index 24bc6d6b6a3..4b95295c563 100644
--- a/gcc/ada/a-ztenio.adb
+++ b/gcc/ada/a-ztenio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztenio.ads b/gcc/ada/a-ztenio.ads
index 05ceacef735..5de801f5413 100644
--- a/gcc/ada/a-ztenio.ads
+++ b/gcc/ada/a-ztenio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb
index 8530e5a9a85..2742255b9ff 100644
--- a/gcc/ada/a-ztexio.adb
+++ b/gcc/ada/a-ztexio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztexio.ads b/gcc/ada/a-ztexio.ads
index 7c465ab249d..000d104e16b 100644
--- a/gcc/ada/a-ztexio.ads
+++ b/gcc/ada/a-ztexio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztfiio.adb b/gcc/ada/a-ztfiio.adb
index 1670e5b3653..db12fc82fbb 100644
--- a/gcc/ada/a-ztfiio.adb
+++ b/gcc/ada/a-ztfiio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztfiio.ads b/gcc/ada/a-ztfiio.ads
index 0e606daab86..2fc4fabfddf 100644
--- a/gcc/ada/a-ztfiio.ads
+++ b/gcc/ada/a-ztfiio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztflau.adb b/gcc/ada/a-ztflau.adb
index 9d550c93d74..11ca1a6b433 100644
--- a/gcc/ada/a-ztflau.adb
+++ b/gcc/ada/a-ztflau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztflau.ads b/gcc/ada/a-ztflau.ads
index fd6da730117..57c7fcdcefa 100644
--- a/gcc/ada/a-ztflau.ads
+++ b/gcc/ada/a-ztflau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztflio.adb b/gcc/ada/a-ztflio.adb
index 97368413b4f..bd8e535fcbd 100644
--- a/gcc/ada/a-ztflio.adb
+++ b/gcc/ada/a-ztflio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztflio.ads b/gcc/ada/a-ztflio.ads
index 1c9d80be7e1..32dafd198a1 100644
--- a/gcc/ada/a-ztflio.ads
+++ b/gcc/ada/a-ztflio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztgeau.adb b/gcc/ada/a-ztgeau.adb
index 3f2bf9ce52a..21b9608db80 100644
--- a/gcc/ada/a-ztgeau.adb
+++ b/gcc/ada/a-ztgeau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztgeau.ads b/gcc/ada/a-ztgeau.ads
index 4446bf53202..38a17cf70b0 100644
--- a/gcc/ada/a-ztgeau.ads
+++ b/gcc/ada/a-ztgeau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztinau.adb b/gcc/ada/a-ztinau.adb
index 8c8bf0a5ffe..74f84a02f73 100644
--- a/gcc/ada/a-ztinau.adb
+++ b/gcc/ada/a-ztinau.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztinau.ads b/gcc/ada/a-ztinau.ads
index 1a213d0e806..b37a9d1a7a8 100644
--- a/gcc/ada/a-ztinau.ads
+++ b/gcc/ada/a-ztinau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztinio.adb b/gcc/ada/a-ztinio.adb
index 98c42eb3958..8369edce3dd 100644
--- a/gcc/ada/a-ztinio.adb
+++ b/gcc/ada/a-ztinio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztmoau.ads b/gcc/ada/a-ztmoau.ads
index 2bce97573e8..057162993fc 100644
--- a/gcc/ada/a-ztmoau.ads
+++ b/gcc/ada/a-ztmoau.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztmoio.adb b/gcc/ada/a-ztmoio.adb
index 169b202c74b..8d97e8cdd92 100644
--- a/gcc/ada/a-ztmoio.adb
+++ b/gcc/ada/a-ztmoio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/a-ztmoio.ads b/gcc/ada/a-ztmoio.ads
index 91d1a536bc0..aeef4ceb50d 100644
--- a/gcc/ada/a-ztmoio.ads
+++ b/gcc/ada/a-ztmoio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-zttest.adb b/gcc/ada/a-zttest.adb
index 49c480c1c8f..fda7b924394 100644
--- a/gcc/ada/a-zttest.adb
+++ b/gcc/ada/a-zttest.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/ali-util.adb b/gcc/ada/ali-util.adb
index b3e88cb5881..28819c743f3 100644
--- a/gcc/ada/ali-util.adb
+++ b/gcc/ada/ali-util.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/atree.adb b/gcc/ada/atree.adb
index 20ea715f9b3..119cf62d080 100644
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -1169,7 +1169,7 @@ package body Atree is
function Copy_Elist_With_Replacement
(Old_Elist : Elist_Id) return Elist_Id;
- -- Called during second phase to copy element list doing replacements.
+ -- Called during second phase to copy element list doing replacements
procedure Copy_Itype_With_Replacement (New_Itype : Entity_Id);
-- Called during the second phase to process a copied Itype. The actual
@@ -1178,7 +1178,7 @@ package body Atree is
-- the copied Itype and copy them where necessary.
function Copy_List_With_Replacement (Old_List : List_Id) return List_Id;
- -- Called during second phase to copy list doing replacements.
+ -- Called during second phase to copy list doing replacements
function Copy_Node_With_Replacement (Old_Node : Node_Id) return Node_Id;
-- Called during second phase to copy node doing replacements
@@ -1775,7 +1775,7 @@ package body Atree is
Visit_Field (Union_Id (Scalar_Range (Old_Itype)), Old_Itype);
elsif Has_Discriminants (Base_Type (Old_Itype)) then
- -- ??? This should involve call to Visit_Field.
+ -- ??? This should involve call to Visit_Field
Visit_Elist (Discriminant_Constraint (Old_Itype));
elsif Is_Array_Type (Old_Itype) then
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb
index d6fd7cbed68..5453dd3ab30 100644
--- a/gcc/ada/back_end.adb
+++ b/gcc/ada/back_end.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -141,7 +141,7 @@ package body Back_End is
type Arg_Array is array (Nat) of BSP;
type Arg_Array_Ptr is access Arg_Array;
- -- Import flag_stack_check from toplev.c.
+ -- Import flag_stack_check from toplev.c
flag_stack_check : Int;
pragma Import (C, flag_stack_check); -- Import from toplev.c
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index bdb864fe3ef..99625301d48 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -2442,7 +2442,7 @@ package body Bindgen is
-- When building libraries, the version number of each unit can
-- not be computed, since the binder does not know the full list
-- of units. Therefore, the 'Version and 'Body_Version
- -- attributes can not supported in this case.
+ -- attributes cannot supported in this case.
return;
end if;
@@ -2510,7 +2510,7 @@ package body Bindgen is
-- When building libraries, the version number of each unit can
-- not be computed, since the binder does not know the full list
-- of units. Therefore, the 'Version and 'Body_Version
- -- attributes can not supported.
+ -- attributes cannot supported.
return;
end if;
diff --git a/gcc/ada/butil.adb b/gcc/ada/butil.adb
index a3f5288553f..1366313c4e6 100644
--- a/gcc/ada/butil.adb
+++ b/gcc/ada/butil.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/butil.ads b/gcc/ada/butil.ads
index b96b63b30c2..4ed78bb7223 100644
--- a/gcc/ada/butil.ads
+++ b/gcc/ada/butil.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/checks.ads b/gcc/ada/checks.ads
index c16495dd1a2..168da4c25c0 100644
--- a/gcc/ada/checks.ads
+++ b/gcc/ada/checks.ads
@@ -247,7 +247,7 @@ package Checks is
-- be discarded, even if they are not in the current statement range.
procedure Kill_All_Checks;
- -- This procedure kills all remembered checks.
+ -- This procedure kills all remembered checks
-----------------------------
-- Length and Range Checks --
@@ -548,7 +548,7 @@ package Checks is
-- If all possible stored values are valid, then any uninitialized
-- value must be valid.
- -- Literals, including enumeration literals, are clearly always valid.
+ -- Literals, including enumeration literals, are clearly always valid
-- Constants are always assumed valid, with a validity check being
-- performed on the initializing value where necessary to ensure that
diff --git a/gcc/ada/cio.c b/gcc/ada/cio.c
index c3fdde15bdd..6fba5a0b0cb 100644
--- a/gcc/ada/cio.c
+++ b/gcc/ada/cio.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 1992-2005 Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2005, 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/comperr.adb b/gcc/ada/comperr.adb
index 7fc27860c5e..59d0bd28afc 100644
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -99,7 +99,7 @@ package body Comperr is
-- Start of processing for Compiler_Abort
begin
- -- Prevent recursion through Compiler_Abort, e.g. via SIGSEGV.
+ -- Prevent recursion through Compiler_Abort, e.g. via SIGSEGV
if Abort_In_Progress then
Exit_Program (E_Abort);
diff --git a/gcc/ada/csets.ads b/gcc/ada/csets.ads
index 5b612b315c3..44ef68cee38 100644
--- a/gcc/ada/csets.ads
+++ b/gcc/ada/csets.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/cstand.adb b/gcc/ada/cstand.adb
index efd3237bf75..cbe596962e9 100644
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/debug.ads b/gcc/ada/debug.ads
index 48d71de72ea..2a1ae50ce97 100644
--- a/gcc/ada/debug.ads
+++ b/gcc/ada/debug.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/elists.ads b/gcc/ada/elists.ads
index 0482ff31d27..f7e347cca3c 100644
--- a/gcc/ada/elists.ads
+++ b/gcc/ada/elists.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -122,10 +122,10 @@ package Elists is
-- that contains no items.
procedure Append_Elmt (Node : Node_Id; To : Elist_Id);
- -- Appends Node at the end of To, allocating a new element.
+ -- Appends Node at the end of To, allocating a new element
procedure Prepend_Elmt (Node : Node_Id; To : Elist_Id);
- -- Appends Node at the beginning of To, allocating a new element.
+ -- Appends Node at the beginning of To, allocating a new element
procedure Insert_Elmt_After (Node : Node_Id; Elmt : Elmt_Id);
-- Add a new element (Node) right after the pre-existing element Elmt
diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads
index 04ef8b20018..1abc4acbe12 100644
--- a/gcc/ada/err_vars.ads
+++ b/gcc/ada/err_vars.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/errno.c b/gcc/ada/errno.c
index 50e852139c2..93981d60a8f 100644
--- a/gcc/ada/errno.c
+++ b/gcc/ada/errno.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 1992-2005 Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2005, 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/errout.adb b/gcc/ada/errout.adb
index 5da299a419e..d699828d395 100644
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -1122,9 +1122,9 @@ package body Errout is
-- Brief Error mode
if Brief_Output or (not Full_List and not Verbose_Mode) then
- E := First_Error_Msg;
Set_Standard_Error;
+ E := First_Error_Msg;
while E /= No_Error_Msg loop
if not Errors.Table (E).Deleted and then not Debug_Flag_KK then
if Full_Path_Name_For_Brief_Errors then
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads
index ff254683d04..5aa7f7f13d5 100644
--- a/gcc/ada/errout.ads
+++ b/gcc/ada/errout.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -333,7 +333,10 @@ package Errout is
-- passed to the error message routine for insertion sequences described
-- above. The reason these are passed globally is that the insertion
-- mechanism is essentially an untyped one in which the appropriate
- -- variables are set dependingon the specific insertion characters used.
+ -- variables are set depending on the specific insertion characters used.
+
+ -- Note that is mandatory that the caller ensure that global variables
+ -- are set before the Error_Msg call, otherwise the result is undefined.
Error_Msg_Col : Column_Number renames Err_Vars.Error_Msg_Col;
-- Column for @ insertion character in message
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index 2a962964eb9..05d17c91a8d 100644
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/erroutc.ads b/gcc/ada/erroutc.ads
index ea6fda053ec..bde057483b8 100644
--- a/gcc/ada/erroutc.ads
+++ b/gcc/ada/erroutc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/errutil.adb b/gcc/ada/errutil.adb
index e0a68645484..b70f18d2ce8 100644
--- a/gcc/ada/errutil.adb
+++ b/gcc/ada/errutil.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1991-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2005, 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/errutil.ads b/gcc/ada/errutil.ads
index 07359ddb431..a2688b0d6a1 100644
--- a/gcc/ada/errutil.ads
+++ b/gcc/ada/errutil.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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- --
@@ -27,7 +27,7 @@
-- This package contains routines to output error messages and the
-- corresponding instantiation of Styleg, suitable to instantiate Scng.
--- It is not dependent on the GNAT tree packages (Atree, Sinfo, ...).
+-- It is not dependent on the GNAT tree packages (Atree, Sinfo, ...)
-- It uses the same global variables as Errout, located in package
-- Err_Vars. Like Errout, it also uses the common variables and routines
@@ -222,10 +222,10 @@ package Errutil is
-- preprocessor).
procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr);
- -- Output a message at specified location.
+ -- Output a message at specified location
procedure Error_Msg_S (Msg : String);
- -- Output a message at current scan pointer location.
+ -- Output a message at current scan pointer location
procedure Error_Msg_SC (Msg : String);
-- Output a message at the start of the current token, unless we are at
@@ -233,7 +233,7 @@ package Errutil is
-- last real token in the file.
procedure Error_Msg_SP (Msg : String);
- -- Output a message at the start of the previous token.
+ -- Output a message at the start of the previous token
procedure Set_Ignore_Errors (To : Boolean);
-- Indicate, when To = True, that all reported errors should
diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb
index bbe66537ee1..99db7769b1a 100644
--- a/gcc/ada/eval_fat.adb
+++ b/gcc/ada/eval_fat.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -419,7 +419,7 @@ package body Eval_Fat is
Exponent := Exponent + 1;
end if;
- -- Put back sign after applying the rounding.
+ -- Put back sign after applying the rounding
if UR_Is_Negative (X) then
Fraction := -Fraction;
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb
index ec6b9589286..56c3095b2df 100644
--- a/gcc/ada/exp_ch11.adb
+++ b/gcc/ada/exp_ch11.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_ch11.ads b/gcc/ada/exp_ch11.ads
index ff8e82cbdcd..85340d672df 100644
--- a/gcc/ada/exp_ch11.ads
+++ b/gcc/ada/exp_ch11.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_ch2.adb b/gcc/ada/exp_ch2.adb
index 56a294a5bad..0dcde3b24d7 100644
--- a/gcc/ada/exp_ch2.adb
+++ b/gcc/ada/exp_ch2.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_ch7.ads b/gcc/ada/exp_ch7.ads
index 597755abd98..eb17fe09bf9 100644
--- a/gcc/ada/exp_ch7.ads
+++ b/gcc/ada/exp_ch7.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -164,7 +164,7 @@ package Exp_Ch7 is
function Cleanup_Protected_Object
(N : Node_Id;
Ref : Node_Id) return Node_Id;
- -- Generate code to finalize a protected object without entries.
+ -- Generate code to finalize a protected object without entries
function Cleanup_Record
(N : Node_Id;
@@ -176,10 +176,10 @@ package Exp_Ch7 is
function Cleanup_Task
(N : Node_Id;
Ref : Node_Id) return Node_Id;
- -- Generate code to finalize a task.
+ -- Generate code to finalize a task
function Has_Simple_Protected_Object (T : Entity_Id) return Boolean;
- -- Check whether composite type contains a simple protected component.
+ -- Check whether composite type contains a simple protected component
function Is_Simple_Protected_Type (T : Entity_Id) return Boolean;
-- Check whether argument is a protected type without entries.
@@ -203,7 +203,7 @@ package Exp_Ch7 is
-- secondary stack is brought in, otherwise it isn't.
function Node_To_Be_Wrapped return Node_Id;
- -- return the node to be wrapped if the current scope is transient.
+ -- return the node to be wrapped if the current scope is transient
procedure Store_Before_Actions_In_Scope (L : List_Id);
-- Append the list L of actions to the end of the before-actions store
diff --git a/gcc/ada/exp_imgv.ads b/gcc/ada/exp_imgv.ads
index f768872725d..54d4528d3d2 100644
--- a/gcc/ada/exp_imgv.ads
+++ b/gcc/ada/exp_imgv.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index d27915db961..5b0a10a2bc6 100644
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_prag.adb b/gcc/ada/exp_prag.adb
index 9956ab90104..8c9bf59b340 100644
--- a/gcc/ada/exp_prag.adb
+++ b/gcc/ada/exp_prag.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_prag.ads b/gcc/ada/exp_prag.ads
index b3722474a93..6ab342df6c6 100644
--- a/gcc/ada/exp_prag.ads
+++ b/gcc/ada/exp_prag.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_tss.adb b/gcc/ada/exp_tss.adb
index f6c0e418b7c..78f975d3455 100644
--- a/gcc/ada/exp_tss.adb
+++ b/gcc/ada/exp_tss.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_tss.ads b/gcc/ada/exp_tss.ads
index cdacb322346..311997d4c99 100644
--- a/gcc/ada/exp_tss.ads
+++ b/gcc/ada/exp_tss.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/exp_vfpt.ads b/gcc/ada/exp_vfpt.ads
index fb33b795db9..f90c64a3613 100644
--- a/gcc/ada/exp_vfpt.ads
+++ b/gcc/ada/exp_vfpt.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/expander.adb b/gcc/ada/expander.adb
index feb2d8205e6..1c75aa09dee 100644
--- a/gcc/ada/expander.adb
+++ b/gcc/ada/expander.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/expander.ads b/gcc/ada/expander.ads
index 4756bd20de2..0f085fe2227 100644
--- a/gcc/ada/expander.ads
+++ b/gcc/ada/expander.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/fe.h b/gcc/ada/fe.h
index 5e49ab9c6e7..4706d4c9ec1 100644
--- a/gcc/ada/fe.h
+++ b/gcc/ada/fe.h
@@ -6,7 +6,7 @@
* *
* C Header File *
* *
- * Copyright (C) 1992-2005 Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2005, 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/fmap.adb b/gcc/ada/fmap.adb
index 34a092db56f..e8284e78560 100644
--- a/gcc/ada/fmap.adb
+++ b/gcc/ada/fmap.adb
@@ -62,7 +62,7 @@ package body Fmap is
Table_Initial => 1_000,
Table_Increment => 1_000,
Table_Name => "Fmap.File_Mapping");
- -- Mapping table to map unit names to file names.
+ -- Mapping table to map unit names to file names
package Path_Mapping is new Table.Table (
Table_Component_Type => Mapping,
diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads
index 46baa6aeb78..491f866ecdc 100644
--- a/gcc/ada/freeze.ads
+++ b/gcc/ada/freeze.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -199,7 +199,7 @@ package Freeze is
-- frozen entities.
procedure Freeze_Before (N : Node_Id; T : Entity_Id);
- -- Freeze T then Insert the generated Freeze nodes before the node N.
+ -- Freeze T then Insert the generated Freeze nodes before the node N
procedure Freeze_Expression (N : Node_Id);
-- Freezes the required entities when the Expression N causes freezing.
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb
index 51112c57834..49b8dd729ac 100644
--- a/gcc/ada/frontend.adb
+++ b/gcc/ada/frontend.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/frontend.ads b/gcc/ada/frontend.ads
index 7201bcf3373..69a0cdc68f0 100644
--- a/gcc/ada/frontend.ads
+++ b/gcc/ada/frontend.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/g-arrspl.adb b/gcc/ada/g-arrspl.adb
index 0d0366484f7..571388ac294 100644
--- a/gcc/ada/g-arrspl.adb
+++ b/gcc/ada/g-arrspl.adb
@@ -2,11 +2,11 @@
-- --
-- GNAT COMPILER COMPONENTS --
-- --
--- G N A T . A R R A Y _ S P I T --
+-- G N A T . A R R A Y _ S P L I T --
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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/g-arrspl.ads b/gcc/ada/g-arrspl.ads
index 5c8051250a9..d35059c1b64 100644
--- a/gcc/ada/g-arrspl.ads
+++ b/gcc/ada/g-arrspl.ads
@@ -2,11 +2,11 @@
-- --
-- GNAT COMPILER COMPONENTS --
-- --
--- G N A T . A R R A Y _ S P L T --
+-- G N A T . A R R A Y _ S P L I T --
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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/g-awk.adb b/gcc/ada/g-awk.adb
index 2aa712aef3f..d39ef846291 100644
--- a/gcc/ada/g-awk.adb
+++ b/gcc/ada/g-awk.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005 AdaCore --
-- --
-- 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- --
@@ -266,7 +266,7 @@ package body GNAT.AWK is
NR : Natural := 0;
FNR : Natural := 0;
Matches : Regpat.Match_Array (0 .. 100);
- -- latest matches for the regexp pattern
+ -- Latest matches for the regexp pattern
end record;
procedure Free is
@@ -377,7 +377,6 @@ package body GNAT.AWK is
Session : Session_Type)
is
pragma Unreferenced (Session);
-
begin
A.Proc.all;
end Call;
@@ -423,7 +422,6 @@ package body GNAT.AWK is
Session : Session_Type) return Boolean
is
use type Regpat.Match_Location;
-
begin
Regpat.Match
(P.Regx.all, Field (P.Rank, Session), Session.Data.Matches);
@@ -439,7 +437,6 @@ package body GNAT.AWK is
Session : Session_Type) return Boolean
is
pragma Unreferenced (Session);
-
begin
return P.Pattern.all;
end Match;
@@ -450,7 +447,6 @@ package body GNAT.AWK is
procedure Release (P : in out Pattern) is
pragma Unreferenced (P);
-
begin
null;
end Release;
@@ -462,7 +458,6 @@ package body GNAT.AWK is
procedure Release (P : in out Regexp_Pattern) is
procedure Free is new Unchecked_Deallocation
(Regpat.Pattern_Matcher, Pattern_Matcher_Access);
-
begin
Free (P.Regx);
end Release;
@@ -950,7 +945,6 @@ package body GNAT.AWK is
(Session : Session_Type := Current_Session) return Natural
is
Files : File_Table.Instance renames Session.Data.Files;
-
begin
return File_Table.Last (Files);
end Number_Of_Files;
@@ -1258,8 +1252,8 @@ package body GNAT.AWK is
procedure Set_Field_Widths
(Field_Widths : Widths_Set;
- Session : Session_Type := Current_Session) is
-
+ Session : Session_Type := Current_Session)
+ is
begin
Free (Session.Data.Separators);
@@ -1280,10 +1274,8 @@ package body GNAT.AWK is
procedure Split_Line (Session : Session_Type) is
Fields : Field_Table.Instance renames Session.Data.Fields;
-
begin
Field_Table.Init (Fields);
-
Split.Current_Line (Session.Data.Separators.all, Session);
end Split_Line;
diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads
index 4d7c65f8605..346da5e0dd6 100644
--- a/gcc/ada/g-awk.ads
+++ b/gcc/ada/g-awk.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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/g-boumai.ads b/gcc/ada/g-boumai.ads
index c5c69794af8..c3a0db5c265 100644
--- a/gcc/ada/g-boumai.ads
+++ b/gcc/ada/g-boumai.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2003-2005, AdaCore --
-- --
-- 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/g-calend.adb b/gcc/ada/g-calend.adb
index e73b10364f5..ea8f28a3a68 100644
--- a/gcc/ada/g-calend.adb
+++ b/gcc/ada/g-calend.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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/g-calend.ads b/gcc/ada/g-calend.ads
index 5cbff83ef3b..8288635da74 100644
--- a/gcc/ada/g-calend.ads
+++ b/gcc/ada/g-calend.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/g-catiio.adb b/gcc/ada/g-catiio.adb
index 147601dcb70..fe996be4328 100644
--- a/gcc/ada/g-catiio.adb
+++ b/gcc/ada/g-catiio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@ -124,7 +124,6 @@ package body GNAT.Calendar.Time_IO is
use Ada.Characters.Handling;
Local : constant String :=
To_Upper (Str (1)) & To_Lower (Str (2 .. Str'Last));
-
begin
if Length = 0 then
return Local;
@@ -174,7 +173,6 @@ package body GNAT.Calendar.Time_IO is
begin
if Length = 0 or else Padding = None then
return NI (2 .. NI'Last);
-
else
return NIP (NIP'Last - Length + 1 .. NIP'Last);
end if;
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb
index c6142bddbfa..e1ff2434c96 100644
--- a/gcc/ada/g-comlin.adb
+++ b/gcc/ada/g-comlin.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/g-comlin.ads b/gcc/ada/g-comlin.ads
index de3d45a14f1..447e617c28e 100644
--- a/gcc/ada/g-comlin.ads
+++ b/gcc/ada/g-comlin.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -72,7 +72,7 @@
-- A more complicated example would involve the use of sections for the
-- switches, as for instance in gnatmake. These sections are separated by
--- special switches, chosen by the programer. Each section act as a
+-- special switches chosen by the programer. Each section acts as a
-- command line of its own.
-- begin
@@ -104,24 +104,24 @@ package GNAT.Command_Line is
Stop_At_First_Non_Switch : Boolean := False;
Section_Delimiters : String := "");
-- This procedure resets the internal state of the package to prepare
- -- to rescan the parameters. It need not (but may be) called before the
- -- first use of Getopt, but it must be called if you want to start
- -- rescanning the command line parameters from the start. The optional
- -- parameter Switch_Char can be used to reset the switch character,
- -- e.g. to '/' for use in DOS-like systems. The optional parameter
- -- Stop_At_First_Non_Switch indicates if Getopt is to look for switches
- -- on the whole command line, or if it has to stop as soon as a
+ -- to rescan the parameters. It does not need to be called before the
+ -- first use of Getopt (but it could be), but it must be called if you want
+ -- to start rescanning the command line parameters from the start. The
+ -- optional parameter Switch_Char can be used to reset the switch
+ -- character, e.g. to '/' for use in DOS-like systems. The optional
+ -- parameter Stop_At_First_Non_Switch indicates if Getopt is to look for
+ -- switches on the whole command line, or if it has to stop as soon as a
-- non-switch argument is found.
--
-- Example:
--
-- Arguments: my_application file1 -c
--
- -- if Stop_At_First_Non_Switch is False, then -c will be considered
+ -- If Stop_At_First_Non_Switch is False, then -c will be considered
-- as a switch (returned by getopt), otherwise it will be considered
-- as a normal argument (returned by Get_Argument).
--
- -- if SECTION_DELIMITERS is set, then every following subprogram
+ -- If SECTION_DELIMITERS is set, then every following subprogram
-- (Getopt and Get_Argument) will only operate within a section, which
-- is delimited by any of these delimiters or the end of the command line.
--
@@ -134,11 +134,11 @@ package GNAT.Command_Line is
-- and -largs and includes '-d -e' and the last one includes '-f'
procedure Goto_Section (Name : String := "");
- -- Change the current section. The next Getopt of Get_Argument will
- -- start looking at the beginning of the section. An empty name ("")
- -- refers to the first section between the program name and the first
- -- section delimiter.
- -- If the section does not exist, then Invalid_Section is raised.
+ -- Change the current section. The next Getopt of Get_Argument will start
+ -- looking at the beginning of the section. An empty name ("") refers to
+ -- the first section between the program name and the first section
+ -- delimiter. If the section does not exist, then Invalid_Section is
+ -- raised.
function Full_Switch return String;
-- Returns the full name of the last switch found (Getopt only returns
@@ -147,34 +147,40 @@ package GNAT.Command_Line is
function Getopt
(Switches : String;
Concatenate : Boolean := True) return Character;
- -- This function moves to the next switch on the command line (defined
- -- as a switch character followed by a character within Switches,
- -- casing being significant). The result returned is the first
- -- character of the particular switch located. If there are no more
- -- switches in the current section, returns ASCII.NUL. If Concatenate is
- -- True (by default), the switches need not be separated by spaces (they
- -- can be concatenated if they do not require an argument, e.g. -ab is the
- -- same as two separate arguments -a -b).
+ -- This function moves to the next switch on the command line (defined as
+ -- switch character followed by a character within Switches, casing being
+ -- significant). The result returned is the first character of the switch
+ -- that is located. If there are no more switches in the current section,
+ -- returns ASCII.NUL. If Concatenate is True (by default), the switches
+ -- does not need to be separated by spaces (they can be concatenated if
+ -- they do not require an argument, e.g. -ab is the ame as two separate
+ -- arguments -a -b).
--
-- Switches is a string of all the possible switches, separated by a
- -- space. A switch can be followed by one of the following characters :
+ -- space. A switch can be followed by one of the following characters:
--
-- ':' The switch requires a parameter. There can optionally be a space
- -- on the command line between the switch and its parameter
+ -- on the command line between the switch and its parameter.
+ --
-- '=' The switch requires a parameter. There can either be a '=' or a
- -- space on the command line between the switch and its parameter
+ -- space on the command line between the switch and its parameter.
+ --
-- '!' The switch requires a parameter, but there can be no space on the
- -- command line between the switch and its parameter
+ -- command line between the switch and its parameter.
+ --
-- '?' The switch may have an optional parameter. There can be no space
- -- between the switch and its argument
- -- ex/ if Switches has the following value : "a? b"
- -- The command line can be :
+ -- between the switch and its argument.
+ --
+ -- e.g. if Switches has the following value : "a? b",
+ -- The command line can be:
+ --
-- -afoo : -a switch with 'foo' parameter
-- -a foo : -a switch and another element on the
-- command line 'foo', returned by Get_Argument
--
-- Example: if Switches is "-a: -aO:", you can have the following
- -- command lines :
+ -- command lines:
+ --
-- -aarg : 'a' switch with 'arg' parameter
-- -a arg : 'a' switch with 'arg' parameter
-- -aOarg : 'aO' switch with 'arg' parameter
@@ -194,14 +200,14 @@ package GNAT.Command_Line is
--
-- Example
-- Getopt ("* a b")
- -- If the command line is '-a -c toto.o -b', GetOpt will return
- -- successively 'a', '*', '*' and 'b'. When '*' is returnd,
+ -- If the command line is '-a -c toto.o -b', Getopt will return
+ -- successively 'a', '*', '*' and 'b'. When '*' is returned,
-- Full_Switch returns the corresponding item on the command line.
--
--
-- When Getopt encounters an invalid switch, it raises the exception
-- Invalid_Switch and sets Full_Switch to return the invalid switch.
- -- When Getopt can not find the parameter associated with a switch, it
+ -- When Getopt cannot find the parameter associated with a switch, it
-- raises Invalid_Parameter, and sets Full_Switch to return the invalid
-- switch character.
--
@@ -221,24 +227,24 @@ package GNAT.Command_Line is
-- raised and Full_Switch will return "ab".
function Get_Argument (Do_Expansion : Boolean := False) return String;
- -- Returns the next element in the command line which is not a switch.
+ -- Returns the next element on the command line which is not a switch.
-- This function should not be called before Getopt has returned
-- ASCII.NUL.
--
- -- If Expansion is True, then the parameter on the command
- -- line will considered as filename with wild cards, and will be
- -- expanded. The matching file names will be returned one at a time.
- -- When there are no more arguments on the command line, this function
- -- returns an empty string. This is useful in non-Unix systems for
- -- obtaining normal expansion of wild card references.
+ -- If Expansion is True, then the parameter on the command line will be
+ -- considered as a filename with wild cards, and will be expanded. The
+ -- matching file names will be returned one at a time. When there are no
+ -- more arguments on the command line, this function returns an empty
+ -- string. This is useful in non-Unix systems for obtaining normal
+ -- expansion of wild card references.
function Parameter return String;
- -- Returns parameter associated with the last switch returned by Getopt.
- -- If no parameter was associated with the last switch, or no previous
- -- call has been made to Get_Argument, raises Invalid_Parameter.
+ -- Returns the parameter associated with the last switch returned by
+ -- Getopt. If no parameter was associated with the last switch, or no
+ -- previous call has been made to Get_Argument, raises Invalid_Parameter.
-- If the last switch was associated with an optional argument and this
-- argument was not found on the command line, Parameter returns an empty
- -- string
+ -- string.
type Expansion_Iterator is limited private;
-- Type used during expansion of file names
@@ -254,19 +260,19 @@ package GNAT.Command_Line is
-- Basic_Regexp is True). When Directory is an empty string, the current
-- directory is searched.
--
- -- Pattern may contains directory separators (as in "src/*/*.ada").
+ -- Pattern may contain directory separators (as in "src/*/*.ada").
-- Subdirectories of Directory will also be searched, up to one
-- hundred levels deep.
--
-- When Start_Expansion has been called, function Expansion should be
- -- called repetitively until it returns an empty string, before
+ -- called repeatedly until it returns an empty string, before
-- Start_Expansion can be called again with the same Expansion_Iterator
-- variable.
function Expansion (Iterator : Expansion_Iterator) return String;
- -- Return the next file in the directory matching the parameters given
+ -- Returns the next file in the directory matching the parameters given
-- to Start_Expansion and updates Iterator to point to the next entry.
- -- Returns an empty string when there are no more files in the directory
+ -- Returns an empty string when there is no more file in the directory
-- and its subdirectories.
--
-- If Expansion is called again after an empty string has been returned,
@@ -279,8 +285,8 @@ package GNAT.Command_Line is
-- Raised when an invalid switch is detected in the command line
Invalid_Parameter : exception;
- -- Raised when a parameter is missing, or an attempt is made to obtain
- -- a parameter for a switch that does not allow a parameter
+ -- Raised when a parameter is missing, or an attempt is made to obtain a
+ -- parameter for a switch that does not allow a parameter
private
@@ -301,8 +307,8 @@ private
type Expansion_Iterator is limited record
Start : Positive := 1;
- -- Position of the first character of the relative path to check
- -- against the pattern.
+ -- Position of the first character of the relative path to check against
+ -- the pattern.
Dir_Name : String (1 .. Max_Path_Length);
@@ -314,8 +320,8 @@ private
-- Regular expression built with the pattern
Maximum_Depth : Depth := 1;
- -- The maximum depth of directories, reflecting the number of
- -- directory separators in the pattern.
+ -- The maximum depth of directories, reflecting the number of directory
+ -- separators in the pattern.
end record;
diff --git a/gcc/ada/g-comver.adb b/gcc/ada/g-comver.adb
index 0068e2af686..2a0d120d832 100644
--- a/gcc/ada/g-comver.adb
+++ b/gcc/ada/g-comver.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002 Ada Core Technologies --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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/g-crc32.adb b/gcc/ada/g-crc32.adb
index 76b40e802dd..1015103b275 100644
--- a/gcc/ada/g-crc32.adb
+++ b/gcc/ada/g-crc32.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2002 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -49,9 +49,7 @@ package body GNAT.CRC32 is
procedure Update (C : in out CRC32; Value : Ada.Streams.Stream_Element) is
function To_Char is new Unchecked_Conversion
(Ada.Streams.Stream_Element, Character);
-
V : constant Character := To_Char (Value);
-
begin
Update (C, V);
end Update;
@@ -73,9 +71,7 @@ package body GNAT.CRC32 is
procedure Wide_Update (C : in out CRC32; Value : Wide_Character) is
subtype S2 is String (1 .. 2);
function To_S2 is new Unchecked_Conversion (Wide_Character, S2);
-
VS : constant S2 := To_S2 (Value);
-
begin
Update (C, VS (1));
Update (C, VS (2));
diff --git a/gcc/ada/g-crc32.ads b/gcc/ada/g-crc32.ads
index 867c07f4afd..dac4c427812 100644
--- a/gcc/ada/g-crc32.ads
+++ b/gcc/ada/g-crc32.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 2004-2005, AdaCore --
-- --
-- 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- --
@@ -35,7 +35,7 @@
-- called CRC-32. This is a checksum based on treating the binary data
-- as a polynomial over a binary field, and the exact specifications of
-- the CRC-32 algorithm are as follows:
---
+
-- Name : "CRC-32"
-- Width : 32
-- Poly : 04C11DB7
@@ -44,15 +44,15 @@
-- RefOut : True
-- XorOut : FFFFFFFF
-- Check : CBF43926
---
--- Note that this is the algorithm used by PKZip, Ethernet and FDDI.
---
+
+-- Note that this is the algorithm used by PKZip, Ethernet and FDDI
+
-- For more information about this algorithm see:
---
--- ftp://ftp.rocksoft.com/papers/crc_v3.txt
+
+-- ftp://ftp.rocksoft.com/papers/crc_v3.txt
-- "A Painless Guide to CRC Error Detection Algorithms", Ross N. Williams
---
+
-- "Computation of Cyclic Redundancy Checks via Table Look-Up", Communications
-- of the ACM, Vol. 31 No. 8, pp.1008-1013 Aug. 1988. Sarwate, D.V.
diff --git a/gcc/ada/g-ctrl_c.ads b/gcc/ada/g-ctrl_c.ads
index af88ebfdb14..8a9c84058c9 100644
--- a/gcc/ada/g-ctrl_c.ads
+++ b/gcc/ada/g-ctrl_c.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -34,9 +34,9 @@
-- This package may be used to intercept the interruption of a running
-- program by the operator typing Control-C, without having to use an Ada
-- interrupt handler protected object.
---
--- This package is currently implemented under Windows and Unix platforms.
---
+
+-- This package is currently implemented under Windows and Unix platforms
+
-- Note concerning Unix systems:
-- The behavior of this package when using tasking depends on the interaction
@@ -55,7 +55,7 @@ package GNAT.Ctrl_C is
-- Handler_Type should not propagate exceptions.
procedure Install_Handler (Handler : Handler_Type);
- -- Set up Handler to be called if the operator hits Ctrl-C.
+ -- Set up Handler to be called if the operator hits Ctrl-C
procedure Uninstall_Handler;
-- Reinstall the standard Control-C handler.
diff --git a/gcc/ada/g-curexc.ads b/gcc/ada/g-curexc.ads
index 7fff4f303b1..783a6489096 100644
--- a/gcc/ada/g-curexc.ads
+++ b/gcc/ada/g-curexc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1996-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1996-2005, AdaCore --
-- --
-- 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- --
@@ -50,7 +50,7 @@ package GNAT.Current_Exception is
-- Subprograms --
-----------------
- -- Note: the lower bound of returnd String values is always one.
+ -- Note: the lower bound of returnd String values is always one
function Exception_Information return String;
-- Returns the result of calling Ada.Exceptions.Exception_Information
diff --git a/gcc/ada/g-debpoo.ads b/gcc/ada/g-debpoo.ads
index 87d2ba781d8..3d558a8f269 100644
--- a/gcc/ada/g-debpoo.ads
+++ b/gcc/ada/g-debpoo.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
--- This packages provides a special implementation of the Ada95 storage pools.
+-- This packages provides a special implementation of the Ada95 storage pools
-- The goal of this debug pool is to detect incorrect uses of memory
-- (multiple deallocations, access to invalid memory,...). Errors are reported
@@ -70,7 +70,7 @@
-- of memory that was allocated. The pool is also designed to work correctly
-- in conjunction with gnatmem.
--- Finally, a subprogram Print_Pool is provided for use from the debugger.
+-- Finally, a subprogram Print_Pool is provided for use from the debugger
-- Limitations
-- ===========
@@ -300,7 +300,7 @@ private
-- accesed to deallocated memory.
Physically_Deallocated : Byte_Count := 0;
- -- Total number of bytes that were free()-ed.
+ -- Total number of bytes that were free()-ed
Marked_Blocks_Deallocated : Boolean := False;
-- Set to true if some mark blocks had to be deallocated in the advanced
@@ -313,7 +313,7 @@ private
First_Free_Block : System.Address := System.Null_Address;
Last_Free_Block : System.Address := System.Null_Address;
- -- Pointers to the first and last logically freed blocks.
+ -- Pointers to the first and last logically freed blocks
First_Used_Block : System.Address := System.Null_Address;
-- Pointer to the list of currently allocated blocks. This list is
diff --git a/gcc/ada/g-debuti.adb b/gcc/ada/g-debuti.adb
index f059bf6d41c..560f79f96d8 100644
--- a/gcc/ada/g-debuti.adb
+++ b/gcc/ada/g-debuti.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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- --
@@ -47,13 +47,14 @@ package body GNAT.Debug_Utilities is
function Image (A : Address) return Image_String is
S : Image_String;
- P : Natural := Address_Image_Length - 1;
- N : Integer_Address := To_Integer (A);
+ P : Natural;
+ N : Integer_Address;
U : Natural := 0;
begin
S (S'Last) := '#';
-
+ P := Address_Image_Length - 1;
+ N := To_Integer (A);
while P > 3 loop
if U = 4 then
S (P) := '_';
diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb
index c3a19e3a479..92c7be128be 100644
--- a/gcc/ada/g-diopit.adb
+++ b/gcc/ada/g-diopit.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Adacore, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -57,7 +57,7 @@ package body GNAT.Directory_Operations.Iteration is
-- recursively for each sub-directories.
function Make_Pathname (Dir, File : String) return String;
- -- Returns the pathname for File by adding Dir as prefix.
+ -- Returns the pathname for File by adding Dir as prefix
-------------------
-- Make_Pathname --
@@ -379,6 +379,8 @@ package body GNAT.Directory_Operations.Iteration is
end if;
end Read;
+ -- Start of processing for Wildcard_Iterator
+
begin
if Path = "" then
return;
diff --git a/gcc/ada/g-diopit.ads b/gcc/ada/g-diopit.ads
index 278aed05216..42afcd1ee7c 100644
--- a/gcc/ada/g-diopit.ads
+++ b/gcc/ada/g-diopit.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/g-dirope.adb b/gcc/ada/g-dirope.adb
index d9b2c0b0d04..dc6977596a5 100644
--- a/gcc/ada/g-dirope.adb
+++ b/gcc/ada/g-dirope.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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/g-dirope.ads b/gcc/ada/g-dirope.ads
index 226c593cc74..11d90704846 100644
--- a/gcc/ada/g-dirope.ads
+++ b/gcc/ada/g-dirope.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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/g-dyntab.adb b/gcc/ada/g-dyntab.adb
index 5f33eb0067f..19440979ab1 100644
--- a/gcc/ada/g-dyntab.adb
+++ b/gcc/ada/g-dyntab.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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- --
@@ -328,9 +328,7 @@ package body GNAT.Dynamic_Tables is
-- Start of processing for Sort_Table
begin
-
Heap_Sort.Sort (Natural (Last (Table) - First) + 1);
-
end Sort_Table;
end GNAT.Dynamic_Tables;
diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads
index 1a7f1efc6d5..3d82330dac1 100644
--- a/gcc/ada/g-dyntab.ads
+++ b/gcc/ada/g-dyntab.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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- --
@@ -101,11 +101,10 @@ package GNAT.Dynamic_Tables is
-- safety is not compromised by this approach.
type Table_Ptr is access all Big_Table_Type;
- -- The table is actually represented as a pointer to allow
- -- reallocation.
+ -- The table is actually represented as a pointer to allow reallocation
type Table_Private is private;
- -- table private data that is not exported in Instance.
+ -- Table private data that is not exported in Instance
type Instance is record
Table : aliased Table_Ptr := null;
diff --git a/gcc/ada/g-eacodu-vms.adb b/gcc/ada/g-eacodu-vms.adb
index 7bab036648d..d2a8f3930ac 100644
--- a/gcc/ada/g-eacodu-vms.adb
+++ b/gcc/ada/g-eacodu-vms.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
--- This is the VMS version.
+-- This is the VMS version
with System;
with System.Aux_DEC;
diff --git a/gcc/ada/g-enblsp-vms-alpha.adb b/gcc/ada/g-enblsp-vms-alpha.adb
index 4410a114ea9..97af39864c7 100644
--- a/gcc/ada/g-enblsp-vms-alpha.adb
+++ b/gcc/ada/g-enblsp-vms-alpha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2005, AdaCore --
-- --
-- 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- --
@@ -35,7 +35,7 @@
-- for use by the VMS GNAT.Expect package (g-expect-vms.adb). This package
-- should not be directly with'ed by an application program.
--- This version is for Alpha/VMS.
+-- This version is for Alpha/VMS
separate (GNAT.Expect)
procedure Non_Blocking_Spawn
@@ -75,7 +75,7 @@ begin
raise Invalid_Process;
end if;
- -- Fork a new process. It's not possible to do this in a subprogram.
+ -- Fork a new process (it is not possible to do this in a subprogram)
if Alloc_Vfork_Blocks >= 0 then
Descriptor.Pid := Get_Current_Invo_Context (Get_Vfork_Jmpbuf);
@@ -83,10 +83,10 @@ begin
Descriptor.Pid := -1;
end if;
- -- Are we now in the child (or, for Windows, still in the common
- -- process).
+ -- Are we now in the child
if Descriptor.Pid = Null_Pid then
+
-- Prepare an array of arguments to pass to C
Arg := new String (1 .. Command_With_Path'Length + 1);
diff --git a/gcc/ada/g-enblsp-vms-ia64.adb b/gcc/ada/g-enblsp-vms-ia64.adb
index 0224a3decbb..2a1fee8ffbd 100644
--- a/gcc/ada/g-enblsp-vms-ia64.adb
+++ b/gcc/ada/g-enblsp-vms-ia64.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2005, AdaCore --
-- --
-- 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- --
@@ -35,7 +35,7 @@
-- for use by the VMS GNAT.Expect package (g-expect-vms.adb). This package
-- should not be directly with'ed by an application program.
--- This version is for IA64/VMS.
+-- This version is for IA64/VMS
separate (GNAT.Expect)
procedure Non_Blocking_Spawn
@@ -73,7 +73,7 @@ begin
raise Invalid_Process;
end if;
- -- Fork a new process. It's not possible to do this in a subprogram.
+ -- Fork a new process (it is not possible to do this in a subprogram)
if Alloc_Vfork_Blocks >= 0 then
Descriptor.Pid := Setjmp1 (Get_Vfork_Jmpbuf);
@@ -81,10 +81,10 @@ begin
Descriptor.Pid := -1;
end if;
- -- Are we now in the child (or, for Windows, still in the common
- -- process).
+ -- Are we now in the child
if Descriptor.Pid = Null_Pid then
+
-- Prepare an array of arguments to pass to C
Arg := new String (1 .. Command_With_Path'Length + 1);
diff --git a/gcc/ada/g-excact.adb b/gcc/ada/g-excact.adb
index c27ab088833..bd5e4c0cafd 100644
--- a/gcc/ada/g-excact.adb
+++ b/gcc/ada/g-excact.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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/g-excact.ads b/gcc/ada/g-excact.ads
index f57a5210198..09b481ba4e3 100644
--- a/gcc/ada/g-excact.ads
+++ b/gcc/ada/g-excact.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
--- This package provides support for callbacks on exceptions.
+-- This package provides support for callbacks on exceptions
-- These callbacks are called immediately when either a specific exception,
-- or any exception, is raised, before any other actions taken by raise, in
diff --git a/gcc/ada/g-except.ads b/gcc/ada/g-except.ads
index 6ad0673306e..9daa08d5d56 100644
--- a/gcc/ada/g-except.ads
+++ b/gcc/ada/g-except.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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- --
@@ -46,7 +46,7 @@ package GNAT.Exceptions is
pragma Pure;
type Exception_Type is limited null record;
- -- Type used to specify which exception to raise.
+ -- Type used to specify which exception to raise
-- Really Exception_Type is Exception_Id, but Exception_Id can't be
-- used directly since it is declared in the non-pure unit Ada.Exceptions,
diff --git a/gcc/ada/g-exctra.adb b/gcc/ada/g-exctra.adb
index c05f964bc0b..7d51ba4b79b 100644
--- a/gcc/ada/g-exctra.adb
+++ b/gcc/ada/g-exctra.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2002 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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- --
@@ -48,8 +48,7 @@ package body GNAT.Exception_Traces is
function Decorator_Wrapper
(Traceback : System.Address;
- Len : Natural)
- return String;
+ Len : Natural) return String;
-- The wrapper to be called when a decorator is in place for exception
-- backtraces.
--
@@ -68,8 +67,7 @@ package body GNAT.Exception_Traces is
function Decorator_Wrapper
(Traceback : System.Address;
- Len : Natural)
- return String
+ Len : Natural) return String
is
Decorator_Traceback : Tracebacks_Array (1 .. Len);
for Decorator_Traceback'Address use Traceback;
diff --git a/gcc/ada/g-exctra.ads b/gcc/ada/g-exctra.ads
index df103151719..b11a23e2e91 100644
--- a/gcc/ada/g-exctra.ads
+++ b/gcc/ada/g-exctra.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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- --
@@ -34,18 +34,18 @@
-- This package provides an interface allowing to control *automatic* output
-- to standard error upon exception occurrences (as opposed to explicit
-- generation of traceback information using GNAT.Traceback).
---
+
-- This output includes the basic information associated with the exception
-- (name, message) as well as a backtrace of the call chain at the point
-- where the exception occurred. This backtrace is only output if the call
-- chain information is available, depending if the binder switch dedicated
-- to that purpose has been used or not.
---
+
-- The default backtrace is in the form of absolute code locations which may
-- be converted to corresponding source locations using the addr2line utility
-- or from within GDB. Please refer to GNAT.Traceback for information about
-- what is necessary to be able to exploit thisg possibility.
---
+
-- The backtrace output can also be customized by way of a "decorator" which
-- may return any string output in association with a provided call chain.
@@ -72,7 +72,7 @@ package GNAT.Exception_Traces is
-- traces identified by the above trace kind values.
procedure Trace_On (Kind : Trace_Kind);
- -- Activate the traces denoted by Kind.
+ -- Activate the traces denoted by Kind
procedure Trace_Off;
-- Stop the tracing requested by the last call to Trace_On.
diff --git a/gcc/ada/g-expect-vms.adb b/gcc/ada/g-expect-vms.adb
index cbf8c724302..b37449f7e33 100644
--- a/gcc/ada/g-expect-vms.adb
+++ b/gcc/ada/g-expect-vms.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
--- This is the VMS version.
+-- This is the VMS version
with System; use System;
with Ada.Calendar; use Ada.Calendar;
@@ -113,7 +113,7 @@ package body GNAT.Expect is
function Waitpid (Pid : Process_Id) return Integer;
pragma Import (C, Waitpid, "__gnat_waitpid");
- -- Wait for a specific process id, and return its exit code.
+ -- Wait for a specific process id, and return its exit code
---------
-- "+" --
@@ -330,7 +330,7 @@ package body GNAT.Expect is
-- Calculate the timeout for the next turn.
-- Note that Timeout is, from the caller's perspective, the maximum
-- time until a match, not the maximum time until some output is
- -- read, and thus can not be reused as is for Expect_Internal.
+ -- read, and thus cannot be reused as is for Expect_Internal.
if Timeout /= -1 then
Timeout_Tmp := Integer (Try_Until - Clock) * 1000;
@@ -660,7 +660,7 @@ package body GNAT.Expect is
Descriptors (J).Buffer_Size - N;
end if;
- -- Keep what we read in the buffer.
+ -- Keep what we read in the buffer
Descriptors (J).Buffer
(Descriptors (J).Buffer_Index + 1 ..
@@ -1046,7 +1046,7 @@ package body GNAT.Expect is
is
begin
Kill (Descriptor.Pid, Signal);
- -- ??? Need to check process status here.
+ -- ??? Need to check process status here
end Send_Signal;
---------------------------------
diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads
index 2a82e4dd2c5..b47a3a487d7 100644
--- a/gcc/ada/g-expect.ads
+++ b/gcc/ada/g-expect.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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/g-flocon.ads b/gcc/ada/g-flocon.ads
index 20d2a9a5716..ea60768db1a 100644
--- a/gcc/ada/g-flocon.ads
+++ b/gcc/ada/g-flocon.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005 AdaCore --
-- --
-- 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/g-hesorg.ads b/gcc/ada/g-hesorg.ads
index 3f4d2a0721b..04f2371d5b0 100644
--- a/gcc/ada/g-hesorg.ads
+++ b/gcc/ada/g-hesorg.ads
@@ -58,14 +58,16 @@ generic
with procedure Move (From : Natural; To : Natural);
-- A procedure that moves the data item with index value From to the data
-- item with index value To (the old value in To being lost). An index
- -- value of zero is used for moves from and to a single temporary location
+ -- value of zero is used for moves from and to a single temporary location.
+ -- For best efficiency, this routine should be marked as inlined.
with function Lt (Op1, Op2 : Natural) return Boolean;
-- A function that compares two items and returns True if the item with
-- index Op1 is less than the item with Index Op2, and False if the Op1
-- item is greater than the Op2 item. If the two items are equal, then
-- it does not matter whether True or False is returned (it is slightly
- -- more efficient to return False).
+ -- more efficient to return False). For best efficiency, this routine
+ -- should be marked as inlined.
-- Note on use of temporary location
diff --git a/gcc/ada/g-io.adb b/gcc/ada/g-io.adb
index 4d5f4ec1c8d..c5c762bc569 100644
--- a/gcc/ada/g-io.adb
+++ b/gcc/ada/g-io.adb
@@ -42,19 +42,15 @@ package body GNAT.IO is
---------
procedure Get (X : out Integer) is
-
function Get_Int return Integer;
pragma Import (C, Get_Int, "get_int");
-
begin
X := Get_Int;
end Get;
procedure Get (C : out Character) is
-
function Get_Char return Character;
pragma Import (C, Get_Char, "get_char");
-
begin
C := Get_Char;
end Get;
@@ -108,7 +104,6 @@ package body GNAT.IO is
end Put;
procedure Put (File : File_Type; X : Integer) is
-
procedure Put_Int (X : Integer);
pragma Import (C, Put_Int, "put_int");
@@ -128,7 +123,6 @@ package body GNAT.IO is
end Put;
procedure Put (File : in File_Type; C : Character) is
-
procedure Put_Char (C : Character);
pragma Import (C, Put_Char, "put_char");
diff --git a/gcc/ada/g-locfil.ads b/gcc/ada/g-locfil.ads
index 6bc5af04da0..8bdc2be635e 100644
--- a/gcc/ada/g-locfil.ads
+++ b/gcc/ada/g-locfil.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1995-2005, AdaCore --
-- --
-- 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/g-md5.adb b/gcc/ada/g-md5.adb
index e072b716c5c..2146c19773e 100644
--- a/gcc/ada/g-md5.adb
+++ b/gcc/ada/g-md5.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -138,7 +138,7 @@ package body GNAT.MD5 is
procedure Transform
(C : in out Context;
Block : String);
- -- Process one block of 64 characters.
+ -- Process one block of 64 characters
------------
-- Decode --
@@ -148,7 +148,7 @@ package body GNAT.MD5 is
(Block : String;
X : out Sixteen_Words)
is
- Cur : Positive := Block'First;
+ Cur : Positive := Block'First;
begin
pragma Assert (Block'Length = 64);
@@ -171,7 +171,7 @@ package body GNAT.MD5 is
Result : Message_Digest;
Cur : Natural := 1;
- -- Index in Result where the next character will be placed.
+ -- Index in Result where the next character will be placed
Last_Block : String (1 .. 64);
@@ -519,7 +519,6 @@ package body GNAT.MD5 is
function Wide_Digest (W : Wide_String) return Message_Digest is
C : Context;
-
begin
Wide_Update (C, W);
return Digest (C);
@@ -533,7 +532,6 @@ package body GNAT.MD5 is
(C : in out Context;
Input : Wide_String)
is
-
String_Input : String (1 .. 2 * Input'Length);
Cur : Positive := 1;
diff --git a/gcc/ada/g-md5.ads b/gcc/ada/g-md5.ads
index f41e7b7219c..2fff917efba 100644
--- a/gcc/ada/g-md5.ads
+++ b/gcc/ada/g-md5.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -70,7 +70,7 @@ package GNAT.MD5 is
-- the same final context as a call with the concatenation of the inputs.
subtype Message_Digest is String (1 .. 32);
- -- The string type returned by function Digest.
+ -- The string type returned by function Digest
function Digest (C : Context) return Message_Digest;
-- Extracts the Message-Digest from a context. This function should be
@@ -88,6 +88,7 @@ package GNAT.MD5 is
private
-- Magic numbers
+
Initial_A : constant := 16#67452301#;
Initial_B : constant := 16#EFCDAB89#;
Initial_C : constant := 16#98BADCFE#;
diff --git a/gcc/ada/g-moreex.adb b/gcc/ada/g-moreex.adb
index 63dca44b804..46484d8406a 100644
--- a/gcc/ada/g-moreex.adb
+++ b/gcc/ada/g-moreex.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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/g-os_lib.adb b/gcc/ada/g-os_lib.adb
index 825c05c5786..80db696b517 100644
--- a/gcc/ada/g-os_lib.adb
+++ b/gcc/ada/g-os_lib.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1995-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1995-2005, AdaCore --
-- --
-- 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- --
@@ -98,13 +98,14 @@ package body GNAT.OS_Lib is
Blocking : Boolean);
-- Internal routine to implement the two Spawn (blocking/non blocking)
-- routines. If Blocking is set to True then the spawn is blocking
- -- otherwise it is non blocking. In this latter case the Pid contains
- -- the process id number. The first three parameters are as in Spawn.
- -- Note that Spawn_Internal normalizes the argument list before calling
- -- the low level system spawn routines (see Normalize_Arguments). Note
- -- that Normalize_Arguments is designed to do nothing if it is called
- -- more than once, so calling Normalize_Arguments before calling one
- -- of the spawn routines is fine.
+ -- otherwise it is non blocking. In this latter case the Pid contains the
+ -- process id number. The first three parameters are as in Spawn. Note that
+ -- Spawn_Internal normalizes the argument list before calling the low level
+ -- system spawn routines (see Normalize_Arguments).
+ --
+ -- Note: Normalize_Arguments is designed to do nothing if it is called more
+ -- than once, so calling Normalize_Arguments before calling one of the
+ -- spawn routines is fine.
function To_Path_String_Access
(Path_Addr : Address;
@@ -250,10 +251,8 @@ package body GNAT.OS_Lib is
---------------------
function C_String_Length (S : Address) return Integer is
-
function Strlen (S : Address) return Integer;
pragma Import (C, Strlen, "strlen");
-
begin
if S = Null_Address then
return 0;
@@ -333,6 +332,8 @@ package body GNAT.OS_Lib is
return C = Directory_Separator or else C = '/';
end Is_Dirsep;
+ -- Start of processing for Build_Path
+
begin
-- Find base file name
@@ -504,8 +505,7 @@ package body GNAT.OS_Lib is
Dest : constant String := Build_Path (Pathname, Name);
begin
- -- If the target file exists, we have an error
- -- otherwise do the copy.
+ -- If target file exists, we have an error, else do copy
if Is_Regular_File (Dest) then
raise Copy_Error;
@@ -520,7 +520,7 @@ package body GNAT.OS_Lib is
Copy_To (Pathname);
end if;
- -- Overwrite case, destination file may or may not exist
+ -- Overwrite case (destination file may or may not exist)
when Overwrite =>
if Is_Directory (Pathname) then
@@ -529,7 +529,7 @@ package body GNAT.OS_Lib is
Copy_To (Pathname);
end if;
- -- Appending case, destination file may or may not exist
+ -- Append case (destination file may or may not exist)
when Append =>
@@ -537,8 +537,8 @@ package body GNAT.OS_Lib is
if Is_Regular_File (Pathname) then
- -- Append mode and destination file exists, append data
- -- at the end of Pathname.
+ -- Append mode and destination file exists, append data at the
+ -- end of Pathname.
From := Open_Read (Name, Binary);
To := Open_Read_Write (Pathname, Binary);
@@ -857,7 +857,6 @@ package body GNAT.OS_Lib is
function File_Time_Stamp (FD : File_Descriptor) return OS_Time is
function File_Time (FD : File_Descriptor) return OS_Time;
pragma Import (C, File_Time, "__gnat_file_time_fd");
-
begin
return File_Time (FD);
end File_Time_Stamp;
@@ -865,14 +864,12 @@ package body GNAT.OS_Lib is
function File_Time_Stamp (Name : C_File_Name) return OS_Time is
function File_Time (Name : Address) return OS_Time;
pragma Import (C, File_Time, "__gnat_file_time_name");
-
begin
return File_Time (Name);
end File_Time_Stamp;
function File_Time_Stamp (Name : String) return OS_Time is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1152,7 +1149,6 @@ package body GNAT.OS_Lib is
(Name : Address;
Length : Integer) return Integer;
pragma Import (C, Is_Absolute_Path, "__gnat_is_absolute_path");
-
begin
return Is_Absolute_Path (Name'Address, Name'Length) /= 0;
end Is_Absolute_Path;
@@ -1164,14 +1160,12 @@ package body GNAT.OS_Lib is
function Is_Directory (Name : C_File_Name) return Boolean is
function Is_Directory (Name : Address) return Integer;
pragma Import (C, Is_Directory, "__gnat_is_directory");
-
begin
return Is_Directory (Name) /= 0;
end Is_Directory;
function Is_Directory (Name : String) return Boolean is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1185,14 +1179,12 @@ package body GNAT.OS_Lib is
function Is_Regular_File (Name : C_File_Name) return Boolean is
function Is_Regular_File (Name : Address) return Integer;
pragma Import (C, Is_Regular_File, "__gnat_is_regular_file");
-
begin
return Is_Regular_File (Name) /= 0;
end Is_Regular_File;
function Is_Regular_File (Name : String) return Boolean is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1206,14 +1198,12 @@ package body GNAT.OS_Lib is
function Is_Readable_File (Name : C_File_Name) return Boolean is
function Is_Readable_File (Name : Address) return Integer;
pragma Import (C, Is_Readable_File, "__gnat_is_readable_file");
-
begin
return Is_Readable_File (Name) /= 0;
end Is_Readable_File;
function Is_Readable_File (Name : String) return Boolean is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1227,14 +1217,12 @@ package body GNAT.OS_Lib is
function Is_Writable_File (Name : C_File_Name) return Boolean is
function Is_Writable_File (Name : Address) return Integer;
pragma Import (C, Is_Writable_File, "__gnat_is_writable_file");
-
begin
return Is_Writable_File (Name) /= 0;
end Is_Writable_File;
function Is_Writable_File (Name : String) return Boolean is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1248,14 +1236,12 @@ package body GNAT.OS_Lib is
function Is_Symbolic_Link (Name : C_File_Name) return Boolean is
function Is_Symbolic_Link (Name : Address) return Integer;
pragma Import (C, Is_Symbolic_Link, "__gnat_is_symbolic_link");
-
begin
return Is_Symbolic_Link (Name) /= 0;
end Is_Symbolic_Link;
function Is_Symbolic_Link (Name : String) return Boolean is
F_Name : String (1 .. Name'Length + 1);
-
begin
F_Name (1 .. Name'Length) := Name;
F_Name (F_Name'Last) := ASCII.NUL;
@@ -1370,18 +1356,15 @@ package body GNAT.OS_Lib is
return Process_Id
is
Saved_Output : File_Descriptor;
- Saved_Error : File_Descriptor := Invalid_FD;
- -- We need to initialize Saved_Error to Invalid_FD to avoid
- -- a compiler warning that this variable may be used before
- -- it is initialized (which can not happen, but the compiler
- -- is not smart enough to figure this out).
- Pid : Process_Id;
+ Saved_Error : File_Descriptor := Invalid_FD; -- prevent warning
+ Pid : Process_Id;
begin
if Output_File_Descriptor = Invalid_FD then
return Invalid_Pid;
end if;
-- Set standard output and, if specified, error to the temporary file
+
Saved_Output := Dup (Standout);
Dup2 (Output_File_Descriptor, Standout);
@@ -1417,11 +1400,10 @@ package body GNAT.OS_Lib is
(Program_Name : String;
Args : Argument_List;
Output_File : String;
- Err_To_Out : Boolean := True)
- return Process_Id
+ Err_To_Out : Boolean := True) return Process_Id
is
Output_File_Descriptor : constant File_Descriptor :=
- Create_Output_Text_File (Output_File);
+ Create_Output_Text_File (Output_File);
Result : Process_Id;
begin
@@ -1531,6 +1513,8 @@ package body GNAT.OS_Lib is
end if;
end Quote_Argument;
+ -- Start of processing for Normalize_Arguments
+
begin
if Argument_Needs_Quote then
for K in Args'Range loop
@@ -1857,6 +1841,7 @@ package body GNAT.OS_Lib is
end if;
-- Add the ASCII.NUL to be able to call the C function chdir
+
Path (Pos + 1) := ASCII.NUL;
Status := Change_Dir (Path (1 .. Pos + 1));
@@ -1890,13 +1875,13 @@ package body GNAT.OS_Lib is
-- Start the conversions
- -- If this is not finished after Max_Iterations, give up and
- -- return an empty string.
+ -- If this is not finished after Max_Iterations, give up and return an
+ -- empty string.
for J in 1 .. Max_Iterations loop
- -- If we don't have an absolute pathname, prepend
- -- the directory Reference_Dir.
+ -- If we don't have an absolute pathname, prepend the directory
+ -- Reference_Dir.
if Last = 1
and then not Is_Absolute_Path (Path_Buffer (1 .. End_Path))
@@ -1946,8 +1931,8 @@ package body GNAT.OS_Lib is
end if;
end loop;
- -- Find the end of the current field: last character
- -- or the one preceding the next directory separator.
+ -- Find the end of the current field: last character or the one
+ -- preceding the next directory separator.
while Finish < End_Path
and then Path_Buffer (Finish + 1) /= Directory_Separator
@@ -2058,11 +2043,10 @@ package body GNAT.OS_Lib is
-- Too many iterations: give up
- -- This can happen when there is a circularity in the symbolic links:
- -- A is a symbolic link for B, which itself is a symbolic link, and
- -- the target of B or of another symbolic link target of B is A.
- -- In this case, we return an empty string to indicate failure to
- -- resolve.
+ -- This can happen when there is a circularity in the symbolic links: A
+ -- is a symbolic link for B, which itself is a symbolic link, and the
+ -- target of B or of another symbolic link target of B is A. In this
+ -- case, we return an empty string to indicate failure to resolve.
return "";
end Normalize_Pathname;
@@ -2126,9 +2110,9 @@ package body GNAT.OS_Lib is
----------
function Read
- (FD : File_Descriptor;
- A : System.Address;
- N : Integer) return Integer
+ (FD : File_Descriptor;
+ A : System.Address;
+ N : Integer) return Integer
is
begin
return Integer (System.CRTL.read
@@ -2279,11 +2263,7 @@ package body GNAT.OS_Lib is
Err_To_Out : Boolean := True)
is
Saved_Output : File_Descriptor;
- Saved_Error : File_Descriptor := Invalid_FD;
- -- We need to initialize Saved_Error to Invalid_FD to avoid
- -- a compiler warning that this variable may be used before
- -- it is initialized (which can not happen, but the compiler
- -- is not smart enough to figure this out).
+ Saved_Error : File_Descriptor := Invalid_FD; -- prevent compiler warning
begin
-- Set standard output and error to the temporary file
@@ -2373,15 +2353,15 @@ package body GNAT.OS_Lib is
+ Args_Length (Args);
Command_Last : Natural := 0;
Command : aliased Chars (1 .. Command_Len);
- -- Command contains all characters of the Program_Name and Args,
- -- all terminated by ASCII.NUL characters
+ -- Command contains all characters of the Program_Name and Args, all
+ -- terminated by ASCII.NUL characters
Arg_List_Len : constant Positive := Args'Length + 2;
Arg_List_Last : Natural := 0;
Arg_List : aliased array (1 .. Arg_List_Len) of Char_Ptr;
- -- List with pointers to NUL-terminated strings of the
- -- Program_Name and the Args and terminated with a null pointer.
- -- We rely on the default initialization for the last null pointer.
+ -- List with pointers to NUL-terminated strings of the Program_Name
+ -- and the Args and terminated with a null pointer. We rely on the
+ -- default initialization for the last null pointer.
procedure Add_To_Command (S : String);
-- Add S and a NUL character to Command, updating Last
@@ -2403,8 +2383,10 @@ package body GNAT.OS_Lib is
begin
Command_Last := Command_Last + S'Length;
- -- Move characters one at a time, because Command has
- -- aliased components.
+ -- Move characters one at a time, because Command has aliased
+ -- components.
+
+ -- But not volatile, so why is this necessary ???
for J in S'Range loop
Command (First + J - S'First) := S (J);
@@ -2509,9 +2491,9 @@ package body GNAT.OS_Lib is
-----------
function Write
- (FD : File_Descriptor;
- A : System.Address;
- N : Integer) return Integer
+ (FD : File_Descriptor;
+ A : System.Address;
+ N : Integer) return Integer
is
begin
return Integer (System.CRTL.write
diff --git a/gcc/ada/g-os_lib.ads b/gcc/ada/g-os_lib.ads
index 17102ac22cb..6c09b607252 100644
--- a/gcc/ada/g-os_lib.ads
+++ b/gcc/ada/g-os_lib.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1995-2005, 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- --
@@ -349,16 +349,16 @@ package GNAT.OS_Lib is
-- platforms, Success is always set to False.
function Read
- (FD : File_Descriptor;
- A : System.Address;
- N : Integer) return Integer;
+ (FD : File_Descriptor;
+ A : System.Address;
+ N : Integer) return Integer;
-- Read N bytes to address A from file referenced by FD. Returned value is
-- count of bytes actually read, which can be less than N at EOF.
function Write
- (FD : File_Descriptor;
- A : System.Address;
- N : Integer) return Integer;
+ (FD : File_Descriptor;
+ A : System.Address;
+ N : Integer) return Integer;
-- Write N bytes from address A to file referenced by FD. The returned
-- value is the number of bytes written, which can be less than N if a
-- disk full condition was detected.
@@ -718,8 +718,7 @@ package GNAT.OS_Lib is
(Program_Name : String;
Args : Argument_List;
Output_File_Descriptor : File_Descriptor;
- Err_To_Out : Boolean := True)
- return Process_Id;
+ Err_To_Out : Boolean := True) return Process_Id;
-- Similar to the procedure above, but redirects the output to the file
-- designated by Output_File_Descriptor. If Err_To_Out is True, then the
-- Standard Error output is also redirected. Invalid_Id is returned
@@ -764,8 +763,7 @@ package GNAT.OS_Lib is
-- there is no notion of executables under this OS.
function Argument_String_To_List
- (Arg_String : String)
- return Argument_List_Access;
+ (Arg_String : String) return Argument_List_Access;
-- Take a string that is a program and its arguments and parse it into an
-- Argument_List. Note that the result is allocated on the heap, and must
-- be freed by the programmer (when it is no longer needed) to avoid
diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb
index a7826484615..b2fb8fa544d 100644
--- a/gcc/ada/g-pehage.adb
+++ b/gcc/ada/g-pehage.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -309,7 +309,7 @@ package body GNAT.Perfect_Hash_Generators is
-- Internal Table Management --
-------------------------------
- function Allocate (N : Natural; S : Natural := 1) return Table_Id;
+ function Allocate (N : Natural; S : Natural := 1) return Table_Id;
-- Allocate N * S ints from IT table
procedure Free_Tmp_Tables;
diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads
index 5cff8c53dcc..5ba3fc5d58c 100644
--- a/gcc/ada/g-pehage.ads
+++ b/gcc/ada/g-pehage.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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/g-regexp.adb b/gcc/ada/g-regexp.adb
index 22275a5f4f5..b89129014c1 100644
--- a/gcc/ada/g-regexp.adb
+++ b/gcc/ada/g-regexp.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -180,7 +180,7 @@ package body GNAT.Regexp is
(M : String;
Index : Integer);
pragma No_Return (Raise_Exception);
- -- Raise an exception, indicating an error at character Index in S.
+ -- Raise an exception, indicating an error at character Index in S
--------------------
-- Create_Mapping --
@@ -330,7 +330,7 @@ package body GNAT.Regexp is
if not Glob then
if J = S'First then
Raise_Exception
- ("'*', '+', '?' and '|' operators can not be in "
+ ("'*', '+', '?' and '|' operators cannot be in "
& "first position in regular expression", J);
end if;
end if;
@@ -343,7 +343,7 @@ package body GNAT.Regexp is
-- and cannot be found at the beginning of the line
Raise_Exception
- ("'*', '+', '?' and '|' operators can not be in "
+ ("'*', '+', '?' and '|' operators cannot be in "
& "first position in regular expression", J);
end if;
@@ -389,7 +389,7 @@ package body GNAT.Regexp is
procedure Add_Empty_Char
(State : State_Index;
To_State : State_Index);
- -- Add a empty-character transition from State to To_State.
+ -- Add a empty-character transition from State to To_State
procedure Create_Repetition
(Repetition : Character;
@@ -461,7 +461,7 @@ package body GNAT.Regexp is
End_Index : Integer)
return Integer;
-- Returns the index of the last character of the next sub-expression
- -- in Simple. Index can not be greater than End_Index
+ -- in Simple. Index cannot be greater than End_Index.
--------------------
-- Add_Empty_Char --
@@ -829,7 +829,7 @@ package body GNAT.Regexp is
procedure Add_Empty_Char
(State : State_Index;
To_State : State_Index);
- -- Add a empty-character transition from State to To_State.
+ -- Add a empty-character transition from State to To_State
procedure Create_Simple
(Start_Index : Integer;
@@ -1088,8 +1088,7 @@ package body GNAT.Regexp is
(First_Table : Regexp_Array_Access;
Num_States : State_Index;
Start_State : State_Index;
- End_State : State_Index)
- return Regexp
+ End_State : State_Index) return Regexp
is
pragma Warnings (Off, Num_States);
@@ -1301,8 +1300,7 @@ package body GNAT.Regexp is
function Get
(Table : Regexp_Array_Access;
State : State_Index;
- Column : Column_Index)
- return State_Index
+ Column : Column_Index) return State_Index
is
begin
if State <= Table'Last (1)
diff --git a/gcc/ada/g-regexp.ads b/gcc/ada/g-regexp.ads
index 188369e8532..7dada9c29cc 100644
--- a/gcc/ada/g-regexp.ads
+++ b/gcc/ada/g-regexp.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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- --
@@ -131,8 +131,7 @@ package GNAT.Regexp is
function Compile
(Pattern : String;
Glob : Boolean := False;
- Case_Sensitive : Boolean := True)
- return Regexp;
+ Case_Sensitive : Boolean := True) return Regexp;
-- Compiles a regular expression S. If the syntax of the given
-- expression is invalid (does not match above grammar, Error_In_Regexp
-- is raised. If Glob is True, the pattern is considered as a 'globbing
diff --git a/gcc/ada/g-regist.adb b/gcc/ada/g-regist.adb
index c809b91d391..86d359853bd 100644
--- a/gcc/ada/g-regist.adb
+++ b/gcc/ada/g-regist.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -81,14 +81,12 @@ package body GNAT.Registry is
function RegDeleteKey
(Key : HKEY;
- lpSubKey : Address)
- return LONG;
+ lpSubKey : Address) return LONG;
pragma Import (Stdcall, RegDeleteKey, "RegDeleteKeyA");
function RegDeleteValue
(Key : HKEY;
- lpValueName : Address)
- return LONG;
+ lpValueName : Address) return LONG;
pragma Import (Stdcall, RegDeleteValue, "RegDeleteValueA");
function RegEnumValue
@@ -99,8 +97,7 @@ package body GNAT.Registry is
lpReserved : LPDWORD;
lpType : LPDWORD;
lpData : Address;
- lpcbData : LPDWORD)
- return LONG;
+ lpcbData : LPDWORD) return LONG;
pragma Import (Stdcall, RegEnumValue, "RegEnumValueA");
function RegOpenKeyEx
@@ -108,8 +105,7 @@ package body GNAT.Registry is
lpSubKey : Address;
ulOptions : DWORD;
samDesired : REGSAM;
- phkResult : PHKEY)
- return LONG;
+ phkResult : PHKEY) return LONG;
pragma Import (Stdcall, RegOpenKeyEx, "RegOpenKeyExA");
function RegQueryValueEx
@@ -118,8 +114,7 @@ package body GNAT.Registry is
lpReserved : LPDWORD;
lpType : LPDWORD;
lpData : Address;
- lpcbData : LPDWORD)
- return LONG;
+ lpcbData : LPDWORD) return LONG;
pragma Import (Stdcall, RegQueryValueEx, "RegQueryValueExA");
function RegSetValueEx
@@ -128,15 +123,14 @@ package body GNAT.Registry is
Reserved : DWORD;
dwType : DWORD;
lpData : Address;
- cbData : DWORD)
- return LONG;
+ cbData : DWORD) return LONG;
pragma Import (Stdcall, RegSetValueEx, "RegSetValueExA");
---------------------
-- Local Constants --
---------------------
- Max_Key_Size : constant := 1_024;
+ Max_Key_Size : constant := 1_024;
-- Maximum number of characters for a registry key
Max_Value_Size : constant := 2_048;
@@ -147,7 +141,7 @@ package body GNAT.Registry is
-----------------------
function To_C_Mode (Mode : Key_Mode) return REGSAM;
- -- Returns the Win32 mode value for the Key_Mode value.
+ -- Returns the Win32 mode value for the Key_Mode value
procedure Check_Result (Result : LONG; Message : String);
-- Checks value Result and raise the exception Registry_Error if it is not
@@ -188,8 +182,7 @@ package body GNAT.Registry is
function Create_Key
(From_Key : HKEY;
Sub_Key : String;
- Mode : Key_Mode := Read_Write)
- return HKEY
+ Mode : Key_Mode := Read_Write) return HKEY
is
use type REGSAM;
use type DWORD;
@@ -318,8 +311,7 @@ package body GNAT.Registry is
function Key_Exists
(From_Key : HKEY;
- Sub_Key : String)
- return Boolean
+ Sub_Key : String) return Boolean
is
New_Key : HKEY;
@@ -346,8 +338,7 @@ package body GNAT.Registry is
function Open_Key
(From_Key : HKEY;
Sub_Key : String;
- Mode : Key_Mode := Read_Only)
- return HKEY
+ Mode : Key_Mode := Read_Only) return HKEY
is
use type REGSAM;
@@ -376,8 +367,7 @@ package body GNAT.Registry is
function Query_Value
(From_Key : HKEY;
Sub_Key : String;
- Expand : Boolean := False)
- return String
+ Expand : Boolean := False) return String
is
use GNAT.Directory_Operations;
use type LONG;
diff --git a/gcc/ada/g-regist.ads b/gcc/ada/g-regist.ads
index 3b4e31d85b8..054ebb8a08b 100644
--- a/gcc/ada/g-regist.ads
+++ b/gcc/ada/g-regist.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -57,7 +57,7 @@ package GNAT.Registry is
HKEY_PERFORMANCE_DATA : constant HKEY;
type Key_Mode is (Read_Only, Read_Write);
- -- Access mode for the registry key.
+ -- Access mode for the registry key
Registry_Error : exception;
-- Registry_Error is raises by all routines below if a problem occurs
@@ -66,8 +66,7 @@ package GNAT.Registry is
function Create_Key
(From_Key : HKEY;
Sub_Key : String;
- Mode : Key_Mode := Read_Write)
- return HKEY;
+ Mode : Key_Mode := Read_Write) return HKEY;
-- Open or create a key (named Sub_Key) in the Windows registry database.
-- The key will be created under key From_Key. It returns the key handle.
-- From_Key must be a valid handle to an already opened key or one of
@@ -76,36 +75,34 @@ package GNAT.Registry is
function Open_Key
(From_Key : HKEY;
Sub_Key : String;
- Mode : Key_Mode := Read_Only)
- return HKEY;
+ Mode : Key_Mode := Read_Only) return HKEY;
-- Return a registry key handle for key named Sub_Key opened under key
-- From_Key. It is possible to open a key at any level in the registry
-- tree in a single call to Open_Key.
procedure Close_Key (Key : HKEY);
- -- Close registry key handle. All resources used by Key are released.
+ -- Close registry key handle. All resources used by Key are released
function Key_Exists (From_Key : HKEY; Sub_Key : String) return Boolean;
- -- Returns True if Sub_Key is defined under From_Key in the registry.
+ -- Returns True if Sub_Key is defined under From_Key in the registry
function Query_Value
(From_Key : HKEY;
Sub_Key : String;
- Expand : Boolean := False)
- return String;
+ Expand : Boolean := False) return String;
-- Returns the registry key's value associated with Sub_Key in From_Key
-- registry key. If Expand is set to True and the Sub_Key is a
-- REG_EXPAND_SZ the returned value will have the %name% variables
-- replaced by the corresponding environment variable value.
procedure Set_Value (From_Key : HKEY; Sub_Key : String; Value : String);
- -- Add the pair (Sub_Key, Value) into From_Key registry key.
+ -- Add the pair (Sub_Key, Value) into From_Key registry key
procedure Delete_Key (From_Key : HKEY; Sub_Key : String);
- -- Remove Sub_Key from the registry key From_Key.
+ -- Remove Sub_Key from the registry key From_Key
procedure Delete_Value (From_Key : HKEY; Sub_Key : String);
- -- Remove the named value Sub_Key from the registry key From_Key.
+ -- Remove the named value Sub_Key from the registry key From_Key
generic
with procedure Action
diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads
index 132d32f945c..42dc3f46ad1 100644
--- a/gcc/ada/g-regpat.ads
+++ b/gcc/ada/g-regpat.ads
@@ -206,7 +206,7 @@ package GNAT.Regpat is
-- first version the regular expression has in fact to be compiled twice
-- (first to compute the size, then to generate the byte code).
- -- Note also that you can not use the function version of Compile if you
+ -- Note also that you cannot use the function version of Compile if you
-- specify the size of the Pattern_Matcher, since the discriminants will
-- most probably be different and you will get a Constraint_Error
@@ -291,20 +291,20 @@ package GNAT.Regpat is
---------------
Expression_Error : exception;
- -- This exception is raised when trying to compile an invalid
- -- regular expression. All subprograms taking an expression
- -- as parameter may raise Expression_Error.
+ -- This exception is raised when trying to compile an invalid regular
+ -- expression. All subprograms taking an expression as parameter may raise
+ -- Expression_Error.
Max_Paren_Count : constant := 255;
- -- Maximum number of parenthesis in a regular expression.
- -- This is limited by the size of a Character, as found in the
- -- byte-compiled version of regular expressions.
+ -- Maximum number of parenthesis in a regular expression. This is limited
+ -- by the size of a Character, as found in the byte-compiled version of
+ -- regular expressions.
Max_Curly_Repeat : constant := 32767;
- -- Maximum number of repetition for the curly operator.
- -- The digits in the {n}, {n,} and {n,m } operators can not be higher
- -- than this constant, since they have to fit on two characters in the
- -- byte-compiled version of regular expressions.
+ -- Maximum number of repetition for the curly operator. The digits in the
+ -- {n}, {n,} and {n,m } operators cannot be higher than this constant,
+ -- since they have to fit on two characters in the byte-compiled version of
+ -- regular expressions.
Max_Program_Size : constant := 2**15 - 1;
-- Maximum size that can be allocated for a program
@@ -318,10 +318,10 @@ package GNAT.Regpat is
-- and the programmer need not be concerned about it. There are two
-- exceptions to this. First in the calls to Match, it is possible to
-- specify a non-zero size that is known to be large enough. This can
- -- slightly increase the efficiency by avoiding a copy. Second, in the
- -- case of calling compile, it is possible using the procedural form
- -- of Compile to use a single Pattern_Matcher variable for several
- -- different expressions by setting its size sufficiently large.
+ -- slightly increase the efficiency by avoiding a copy. Second, in the case
+ -- of calling compile, it is possible using the procedural form of Compile
+ -- to use a single Pattern_Matcher variable for several different
+ -- expressions by setting its size sufficiently large.
Auto_Size : constant := 0;
-- Used in calls to Match to indicate that the Size should be set to
@@ -362,33 +362,28 @@ package GNAT.Regpat is
end record;
type Match_Array is array (Match_Count range <>) of Match_Location;
- -- The substring matching a given pair of parenthesis.
- -- Index 0 is the whole substring that matched the full regular
- -- expression.
+ -- The substring matching a given pair of parenthesis. Index 0 is the whole
+ -- substring that matched the full regular expression.
--
- -- For instance, if your regular expression is something like:
- -- "a(b*)(c+)", then Match_Array(1) will be the indexes of the
- -- substring that matched "b*" and Match_Array(2) will be the substring
- -- that matched "c+".
+ -- For instance, if your regular expression is something like: "a(b*)(c+)",
+ -- then Match_Array(1) will be the indexes of the substring that matched
+ -- "b*" and Match_Array(2) will be the substring that matched "c+".
--
- -- The number of parenthesis groups that can be retrieved is unlimited,
- -- and all the Match subprograms below can use a Match_Array of any size.
- -- Indexes that do not have any matching parenthesis are set to
- -- No_Match.
+ -- The number of parenthesis groups that can be retrieved is unlimited, and
+ -- all the Match subprograms below can use a Match_Array of any size.
+ -- Indexes that do not have any matching parenthesis are set to No_Match.
No_Match : constant Match_Location := (First => 0, Last => 0);
- -- The No_Match constant is (0, 0) to differentiate between
- -- matching a null string at position 1, which uses (1, 0)
- -- and no match at all.
+ -- The No_Match constant is (0, 0) to differentiate between matching a null
+ -- string at position 1, which uses (1, 0) and no match at all.
---------------------------------
-- Pattern_Matcher Compilation --
---------------------------------
- -- The subprograms here are used to precompile regular expressions
- -- for use in subsequent Match calls. Precompilation improves
- -- efficiency if the same regular expression is to be used in
- -- more than one Match call.
+ -- The subprograms here are used to precompile regular expressions for use
+ -- in subsequent Match calls. Precompilation improves efficiency if the
+ -- same regular expression is to be used in more than one Match call.
type Pattern_Matcher (Size : Program_Size) is private;
-- Type used to represent a regular expression compiled into byte code
@@ -419,21 +414,21 @@ package GNAT.Regpat is
Flags : Regexp_Flags := No_Flags);
-- Compile a regular expression into into internal code
- -- This procedure is significantly faster than the Compile function
- -- since it avoids the extra step of precomputing the required size.
+ -- This procedure is significantly faster than the Compile function since
+ -- it avoids the extra step of precomputing the required size.
--
-- However, it requires the user to provide a Pattern_Matcher variable
-- whose size is preset to a large enough value. One advantage of this
-- approach, in addition to the improved efficiency, is that the same
-- Pattern_Matcher variable can be used to hold the compiled code for
- -- several different regular expressions by setting a size that is
- -- large enough to accomodate all possibilities.
+ -- several different regular expressions by setting a size that is large
+ -- enough to accomodate all possibilities.
--
- -- In this version of the procedure call, the actual required code
- -- size is returned. Also if Matcher.Size is zero on entry, then the
- -- resulting code is not stored. A call with Matcher.Size set to Auto_Size
- -- can thus be used to determine the space required for compiling the
- -- given regular expression.
+ -- In this version of the procedure call, the actual required code size is
+ -- returned. Also if Matcher.Size is zero on entry, then the resulting code
+ -- is not stored. A call with Matcher.Size set to Auto_Size can thus be
+ -- used to determine the space required for compiling the given regular
+ -- expression.
--
-- This function raises Storage_Error if Matcher is too small to hold
-- the resulting code (i.e. Matcher.Size has too small a value).
@@ -448,8 +443,8 @@ package GNAT.Regpat is
(Matcher : out Pattern_Matcher;
Expression : String;
Flags : Regexp_Flags := No_Flags);
- -- Same procedure as above, expect it does not return the final
- -- program size, and Matcher.Size cannot be Auto_Size.
+-- -- Same procedure as above, expect it does not return the final
+-- -- program size, and Matcher.Size cannot be Auto_Size.
function Paren_Count (Regexp : Pattern_Matcher) return Match_Count;
pragma Inline (Paren_Count);
diff --git a/gcc/ada/g-semaph.adb b/gcc/ada/g-semaph.adb
index 43727eb71a7..13793a8624f 100644
--- a/gcc/ada/g-semaph.adb
+++ b/gcc/ada/g-semaph.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2003-2005, AdaCore --
-- --
-- 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/g-signal.adb b/gcc/ada/g-signal.adb
index 209e287d2ba..1db9f082a3c 100644
--- a/gcc/ada/g-signal.adb
+++ b/gcc/ada/g-signal.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/g-signal.ads b/gcc/ada/g-signal.ads
index cd15ba48350..79d868f8de2 100644
--- a/gcc/ada/g-signal.ads
+++ b/gcc/ada/g-signal.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/g-soccon-interix.ads b/gcc/ada/g-soccon-interix.ads
index 630e2bf16e3..31569d12da3 100644
--- a/gcc/ada/g-soccon-interix.ads
+++ b/gcc/ada/g-soccon-interix.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/g-soccon-unixware.ads b/gcc/ada/g-soccon-unixware.ads
index 127cfce2a0c..148989e0325 100644
--- a/gcc/ada/g-soccon-unixware.ads
+++ b/gcc/ada/g-soccon-unixware.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb
index b8dcc2dc915..d1545e050fe 100644
--- a/gcc/ada/g-socthi-vms.adb
+++ b/gcc/ada/g-socthi-vms.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -40,8 +40,8 @@ with Interfaces.C; use Interfaces.C;
package body GNAT.Sockets.Thin is
- Non_Blocking_Sockets : constant Fd_Set_Access
- := New_Socket_Set (No_Socket_Set);
+ Non_Blocking_Sockets : constant Fd_Set_Access :=
+ New_Socket_Set (No_Socket_Set);
-- When this package is initialized with Process_Blocking_IO set
-- to True, sockets are set in non-blocking mode to avoid blocking
-- the whole process when a thread wants to perform a blocking IO
@@ -59,7 +59,7 @@ package body GNAT.Sockets.Thin is
Thread_Blocking_IO : Boolean := True;
Unknown_System_Error : constant C.Strings.chars_ptr :=
- C.Strings.New_String ("Unknown system error");
+ C.Strings.New_String ("Unknown system error");
function Syscall_Accept
(S : C.int;
@@ -99,8 +99,7 @@ package body GNAT.Sockets.Thin is
(S : C.int;
Msg : System.Address;
Len : C.int;
- Flags : C.int)
- return C.int;
+ Flags : C.int) return C.int;
pragma Import (C, Syscall_Send, "send");
function Syscall_Sendto
@@ -109,8 +108,7 @@ package body GNAT.Sockets.Thin is
Len : C.int;
Flags : C.int;
To : Sockaddr_In_Access;
- Tolen : C.int)
- return C.int;
+ Tolen : C.int) return C.int;
pragma Import (C, Syscall_Sendto, "sendto");
function Syscall_Socket
diff --git a/gcc/ada/g-socthi.adb b/gcc/ada/g-socthi.adb
index 188912898a0..914b787a41c 100644
--- a/gcc/ada/g-socthi.adb
+++ b/gcc/ada/g-socthi.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2004 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -127,7 +127,7 @@ package body GNAT.Sockets.Thin is
procedure Disable_SIGPIPE (S : C.int);
pragma Import (C, Disable_SIGPIPE, "__gnat_disable_sigpipe");
- function Non_Blocking_Socket (S : C.int) return Boolean;
+ function Non_Blocking_Socket (S : C.int) return Boolean;
procedure Set_Non_Blocking_Socket (S : C.int; V : Boolean);
--------------
@@ -503,7 +503,6 @@ package body GNAT.Sockets.Thin is
if C_Msg = C.Strings.Null_Ptr then
return Unknown_System_Error;
-
else
return C_Msg;
end if;
diff --git a/gcc/ada/g-soliop-mingw.ads b/gcc/ada/g-soliop-mingw.ads
index 01874385123..2966df635e5 100644
--- a/gcc/ada/g-soliop-mingw.ads
+++ b/gcc/ada/g-soliop-mingw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/g-soliop-solaris.ads b/gcc/ada/g-soliop-solaris.ads
index f3b4b99c32d..9e012d61f73 100644
--- a/gcc/ada/g-soliop-solaris.ads
+++ b/gcc/ada/g-soliop-solaris.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/g-soliop-unixware.ads b/gcc/ada/g-soliop-unixware.ads
index 21727d4b762..4f42edc3be4 100644
--- a/gcc/ada/g-soliop-unixware.ads
+++ b/gcc/ada/g-soliop-unixware.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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/g-soliop.ads b/gcc/ada/g-soliop.ads
index ca9aab16f24..daaa4743b4f 100644
--- a/gcc/ada/g-soliop.ads
+++ b/gcc/ada/g-soliop.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/g-spipat.adb b/gcc/ada/g-spipat.adb
index 43434738fae..ab6bdd55f33 100644
--- a/gcc/ada/g-spipat.adb
+++ b/gcc/ada/g-spipat.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2005, Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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/g-spipat.ads b/gcc/ada/g-spipat.ads
index 4f66b0d726a..31cbef67d6b 100644
--- a/gcc/ada/g-spipat.ads
+++ b/gcc/ada/g-spipat.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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/g-sptabo.ads b/gcc/ada/g-sptabo.ads
index 1a960268ae2..659a2a1ff56 100644
--- a/gcc/ada/g-sptabo.ads
+++ b/gcc/ada/g-sptabo.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-1998 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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/g-sptain.ads b/gcc/ada/g-sptain.ads
index 4bd204ca518..3ac15d1a2cd 100644
--- a/gcc/ada/g-sptain.ads
+++ b/gcc/ada/g-sptain.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-1998 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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/g-sptavs.ads b/gcc/ada/g-sptavs.ads
index efb3aa41b06..afa1575a27e 100644
--- a/gcc/ada/g-sptavs.ads
+++ b/gcc/ada/g-sptavs.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-1998 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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/g-string.ads b/gcc/ada/g-string.ads
index f4f2e696da9..d11298c5f8b 100644
--- a/gcc/ada/g-string.ads
+++ b/gcc/ada/g-string.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1995-2005, 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/g-tasloc.adb b/gcc/ada/g-tasloc.adb
index c2acad14b0b..7667e49e14b 100644
--- a/gcc/ada/g-tasloc.adb
+++ b/gcc/ada/g-tasloc.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-1999 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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/g-tasloc.ads b/gcc/ada/g-tasloc.ads
index 29fb36e3178..757d3c2df93 100644
--- a/gcc/ada/g-tasloc.ads
+++ b/gcc/ada/g-tasloc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb
index d294362c131..bb161e027ea 100644
--- a/gcc/ada/g-trasym-vms-alpha.adb
+++ b/gcc/ada/g-trasym-vms-alpha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/g-trasym-vms-ia64.adb b/gcc/ada/g-trasym-vms-ia64.adb
index 2e1834bffa0..1d82b66f67a 100644
--- a/gcc/ada/g-trasym-vms-ia64.adb
+++ b/gcc/ada/g-trasym-vms-ia64.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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/g-trasym.adb b/gcc/ada/g-trasym.adb
index d518d70fa46..e8f91221a31 100644
--- a/gcc/ada/g-trasym.adb
+++ b/gcc/ada/g-trasym.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2002 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -50,10 +50,10 @@ package body GNAT.Traceback.Symbolic is
function Symbolic_Traceback (Traceback : Tracebacks_Array) return String is
procedure convert_addresses
- (addrs : System.Address;
- n_addr : Integer;
- buf : System.Address;
- len : System.Address);
+ (addrs : System.Address;
+ n_addr : Integer;
+ buf : System.Address;
+ len : System.Address);
pragma Import (C, convert_addresses, "convert_addresses");
-- This is the procedure version of the Ada aware addr2line that will
-- use argv[0] as the executable containing the debug information.
diff --git a/gcc/ada/g-trasym.ads b/gcc/ada/g-trasym.ads
index 8409732c032..626d8567269 100644
--- a/gcc/ada/g-trasym.ads
+++ b/gcc/ada/g-trasym.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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/gnatbind.ads b/gcc/ada/gnatbind.ads
index 359c513a25a..65f6f65d404 100644
--- a/gcc/ada/gnatbind.ads
+++ b/gcc/ada/gnatbind.ads
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/gnatchop.adb b/gcc/ada/gnatchop.adb
index 2a68776a5f8..eab7063253e 100644
--- a/gcc/ada/gnatchop.adb
+++ b/gcc/ada/gnatchop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1998-2005, AdaCore --
-- --
-- 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- --
@@ -1163,8 +1163,7 @@ procedure Gnatchop is
Put (Standard_Error, "GNATCHOP ");
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line
- (Standard_Error,
- "Copyright 1998-2005, Ada Core Technologies Inc.");
+ (Standard_Error, "Copyright 1998-2005, AdaCore");
when 'w' =>
Overwrite_Files := True;
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index c4137a95abd..3ef1ec700ad 100644
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -211,7 +211,7 @@ procedure GNATCmd is
-- Display usage for platforms other than VMS
procedure Process_Link;
- -- Process GNAT LINK, when there is a project file specified.
+ -- Process GNAT LINK, when there is a project file specified
procedure Set_Library_For
(Project : Project_Id;
diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb
index 677df83b43e..49b1e41419e 100644
--- a/gcc/ada/gnatfind.adb
+++ b/gcc/ada/gnatfind.adb
@@ -237,7 +237,7 @@ procedure Gnatfind is
procedure Write_Usage is
begin
Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String);
- Put_Line ("Copyright 1998-2005, Ada Core Technologies Inc.");
+ Put_Line ("Copyright 1998-2005, AdaCore");
Put_Line ("Usage: gnatfind pattern[:sourcefile[:line[:column]]] "
& "[file1 file2 ...]");
New_Line;
diff --git a/gcc/ada/gnatlbr.adb b/gcc/ada/gnatlbr.adb
index 6652c5ff26b..7054d691ce9 100644
--- a/gcc/ada/gnatlbr.adb
+++ b/gcc/ada/gnatlbr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Program to create, set, or delete an alternate runtime library.
+-- Program to create, set, or delete an alternate runtime library
-- Works by calling an appropriate target specific Makefile residing
-- in the default library object (e.g. adalib) directory from the context
@@ -222,7 +222,7 @@ begin
end;
end loop;
- -- "Make" an alternate sublibrary for each default sublibrary.
+ -- "Make" an alternate sublibrary for each default sublibrary
for Dirs in 1 .. Object_Dirs loop
Make_Args (1) :=
diff --git a/gcc/ada/gnatmake.ads b/gcc/ada/gnatmake.ads
index d69490d1507..15be53bd3f0 100644
--- a/gcc/ada/gnatmake.ads
+++ b/gcc/ada/gnatmake.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -25,8 +25,7 @@
------------------------------------------------------------------------------
procedure Gnatmake;
--- The driver for the gnatmake tool. This utility can be used to
--- automatically (re)compile a set of ada sources by giving the name
--- of the root compilation unit or the source file containing it.
--- For more information on gnatmake (its precise usage, flags and algorithm)
--- please refer to the body of gnatmake.
+-- The driver for the gnatmake tool. This utility can be used to automatically
+-- (re)compile a set of ada sources by giving the name of the root compilation
+-- unit or the source file containing it. For more information on gnatmake
+-- (its precise usage, flags and algorithm) please refer to the gnatmake body.
diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb
index b6a4d7e58f2..d52fe005f34 100644
--- a/gcc/ada/gnatmem.adb
+++ b/gcc/ada/gnatmem.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005, Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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- --
@@ -233,7 +233,7 @@ procedure Gnatmem is
New_Line;
Put ("GNATMEM ");
Put_Line (Gnat_Version_String);
- Put_Line ("Copyright 1997-2005 Free Software Foundation, Inc.");
+ Put_Line ("Copyright 1997-2005, Free Software Foundation, Inc.");
New_Line;
Put_Line ("Usage: gnatmem switches [depth] exename");
diff --git a/gcc/ada/gnatprep.adb b/gcc/ada/gnatprep.adb
index 3e5d30b5054..47903e5954f 100644
--- a/gcc/ada/gnatprep.adb
+++ b/gcc/ada/gnatprep.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2003, Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -29,6 +29,7 @@ with GPrep;
procedure GNATprep is
pragma Ident (Gnatvsn.Gnat_Static_Version_String);
+
begin
-- Everything is done in GPrep
diff --git a/gcc/ada/gnatprep.ads b/gcc/ada/gnatprep.ads
index 06ca505bacf..d991ef5cea6 100644
--- a/gcc/ada/gnatprep.ads
+++ b/gcc/ada/gnatprep.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2002, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -142,9 +142,9 @@
-- may be used on a preprocessor line, but other than that, no other
-- tokens may appear on a preprocessor line.
--- Any number of #elsif clauses can be present, including none at all.
+-- Any number of #elsif clauses can be present, including none at all
--- The #else is optional, as in Ada.
+-- The #else is optional, as in Ada
-- The # marking the start of a preprocessor line must be the first
-- non-blank character on the line, i.e. it must be preceded only by
diff --git a/gcc/ada/gnatsym.adb b/gcc/ada/gnatsym.adb
index 63f46e1e7f6..f723d52a088 100644
--- a/gcc/ada/gnatsym.adb
+++ b/gcc/ada/gnatsym.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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- --
@@ -78,7 +78,7 @@ procedure Gnatsym is
-- The name of the reference symbol file
Version_String : String_Access := Empty;
- -- The version of the library. Used on VMS.
+ -- The version of the library (used on VMS)
package Object_Files is new Table.Table
(Table_Component_Type => String_Access,
diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb
index 12482681ad8..3d6ee75e8f6 100644
--- a/gcc/ada/gnatxref.adb
+++ b/gcc/ada/gnatxref.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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- --
@@ -210,7 +210,7 @@ procedure Gnatxref is
procedure Write_Usage is
begin
Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String);
- Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
+ Put_Line ("Copyright 1998-2005, AdaCore");
Put_Line ("Usage: gnatxref [switches] file1 file2 ...");
New_Line;
Put_Line (" file ... list of source files to xref, " &
diff --git a/gcc/ada/gprep.ads b/gcc/ada/gprep.ads
index 539d274b109..6a5a0d4153c 100644
--- a/gcc/ada/gprep.ads
+++ b/gcc/ada/gprep.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002, Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- This package is the implementation of GNATPREP.
+-- This package is the implementation of GNATPREP
package GPrep is
diff --git a/gcc/ada/gprmake.adb b/gcc/ada/gprmake.adb
index 3e5b30296b5..93c20a79542 100644
--- a/gcc/ada/gprmake.adb
+++ b/gcc/ada/gprmake.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- The driver for the gprmake tool.
+-- The driver for the gprmake tool
with Makegpr;
diff --git a/gcc/ada/i-fortra.adb b/gcc/ada/i-fortra.adb
index 01f16ed3f80..5b37738fa5b 100644
--- a/gcc/ada/i-fortra.adb
+++ b/gcc/ada/i-fortra.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -39,14 +39,14 @@ package body Interfaces.Fortran is
-- Single character case
- function To_Ada (Item : in Character_Set) return Character is
+ function To_Ada (Item : Character_Set) return Character is
begin
return Character (Item);
end To_Ada;
-- String case (function returning converted result)
- function To_Ada (Item : in Fortran_Character) return String is
+ function To_Ada (Item : Fortran_Character) return String is
T : String (1 .. Item'Length);
begin
@@ -60,7 +60,7 @@ package body Interfaces.Fortran is
-- String case (procedure copying converted string to given buffer)
procedure To_Ada
- (Item : in Fortran_Character;
+ (Item : Fortran_Character;
Target : out String;
Last : out Natural)
is
@@ -93,14 +93,14 @@ package body Interfaces.Fortran is
-- Character case
- function To_Fortran (Item : in Character) return Character_Set is
+ function To_Fortran (Item : Character) return Character_Set is
begin
return Character_Set (Item);
end To_Fortran;
-- String case (function returning converted result)
- function To_Fortran (Item : in String) return Fortran_Character is
+ function To_Fortran (Item : String) return Fortran_Character is
T : Fortran_Character (1 .. Item'Length);
begin
@@ -114,7 +114,7 @@ package body Interfaces.Fortran is
-- String case (procedure copying converted string to given buffer)
procedure To_Fortran
- (Item : in String;
+ (Item : String;
Target : out Fortran_Character;
Last : out Natural)
is
diff --git a/gcc/ada/i-fortra.ads b/gcc/ada/i-fortra.ads
index 78f4f71256d..da330d2a4f7 100644
--- a/gcc/ada/i-fortra.ads
+++ b/gcc/ada/i-fortra.ads
@@ -45,19 +45,19 @@ package Interfaces.Fortran is
type Fortran_Character is array (Positive range <>) of Character_Set;
- function To_Fortran (Item : in Character) return Character_Set;
- function To_Ada (Item : in Character_Set) return Character;
+ function To_Fortran (Item : Character) return Character_Set;
+ function To_Ada (Item : Character_Set) return Character;
- function To_Fortran (Item : in String) return Fortran_Character;
- function To_Ada (Item : in Fortran_Character) return String;
+ function To_Fortran (Item : String) return Fortran_Character;
+ function To_Ada (Item : Fortran_Character) return String;
procedure To_Fortran
- (Item : in String;
+ (Item : String;
Target : out Fortran_Character;
Last : out Natural);
procedure To_Ada
- (Item : in Fortran_Character;
+ (Item : Fortran_Character;
Target : out String;
Last : out Natural);
diff --git a/gcc/ada/indepsw.ads b/gcc/ada/indepsw.ads
index 4db3bcef90c..7296291b35d 100644
--- a/gcc/ada/indepsw.ads
+++ b/gcc/ada/indepsw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005 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- --
@@ -56,7 +56,7 @@ package Indepsw is
-- for the platform; in this case, To is set to null.
function Is_Supported (Switch : Switch_Kind) return Boolean;
- -- Return True for each independent switch supported by the platform.
+ -- Return True for each independent switch supported by the platform
private
-- Default warning messages when the switches are not supported by the
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index e5f0bf2086b..8b8004f5187 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -88,7 +88,7 @@ package body Inline is
type Subp_Index is new Nat;
No_Subp : constant Subp_Index := 0;
- -- The subprogram entities are hashed into the Inlined table.
+ -- The subprogram entities are hashed into the Inlined table
Num_Hash_Headers : constant := 512;
@@ -182,10 +182,10 @@ package body Inline is
To_Clean : Elist_Id;
procedure Add_Scope_To_Clean (Inst : Entity_Id);
- -- Build set of scopes on which cleanup actions must be performed.
+ -- Build set of scopes on which cleanup actions must be performed
procedure Cleanup_Scopes;
- -- Complete cleanup actions on scopes that need it.
+ -- Complete cleanup actions on scopes that need it
--------------
-- Add_Call --
@@ -215,7 +215,7 @@ package body Inline is
J := Successors.Table (J).Next;
end loop;
- -- On exit, make a successor entry for P2.
+ -- On exit, make a successor entry for P2
Successors.Increment_Last;
Successors.Table (Successors.Last).Subp := P2;
@@ -505,7 +505,7 @@ package body Inline is
J : Subp_Index;
procedure New_Entry;
- -- Initialize entry in Inlined table.
+ -- Initialize entry in Inlined table
procedure New_Entry is
begin
@@ -692,7 +692,8 @@ package body Inline is
then
Error_Msg_N
("& cannot be inlined?", Inlined.Table (Index).Name);
- -- A warning on the first one might be sufficient.
+
+ -- A warning on the first one might be sufficient ???
end if;
end loop;
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb
index 6f702c0f551..736dd0dc6b4 100644
--- a/gcc/ada/layout.adb
+++ b/gcc/ada/layout.adb
@@ -950,7 +950,7 @@ package body Layout is
-- is the expression so far (which will be the body of the function).
Size : Val_Type;
- -- Value of size computed so far. See comments above.
+ -- Value of size computed so far. See comments above
Vtyp : Entity_Id := Empty;
-- Variant record type for the formal parameter of the
@@ -2356,7 +2356,7 @@ package body Layout is
if Is_Discrete_Type (E) then
- -- If the RM_Size is not set, then here is where we set it.
+ -- If the RM_Size is not set, then here is where we set it
-- Note: an RM_Size of zero looks like not set here, but this
-- is a rare case, and we can simply reset it without any harm.
diff --git a/gcc/ada/live.adb b/gcc/ada/live.adb
index 1eb73fcca0a..df92d0d6e12 100644
--- a/gcc/ada/live.adb
+++ b/gcc/ada/live.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005 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- --
@@ -58,7 +58,7 @@ package body Live is
-- The problem of finding live entities is solved in two steps:
procedure Mark (Root : Node_Id; Marks : out Name_Set);
- -- Mark all live entities in Root as Marked.
+ -- Mark all live entities in Root as Marked
procedure Sweep (Root : Node_Id; Marks : Name_Set);
-- For all unmarked entities in Root set Is_Eliminated to true
diff --git a/gcc/ada/make.ads b/gcc/ada/make.ads
index 76b952af38e..f5c4d25d10c 100644
--- a/gcc/ada/make.ads
+++ b/gcc/ada/make.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -75,13 +75,13 @@ package Make is
-- is raised. These need to be handled by the calling routines.
Compilation_Failed : exception;
- -- Raised by Compile_Sources if a compilation failed.
+ -- Raised by Compile_Sources if a compilation failed
Bind_Failed : exception;
- -- Raised by Bind below if the bind failed.
+ -- Raised by Bind below if the bind failed
Link_Failed : exception;
- -- Raised by Link below if the link failed.
+ -- Raised by Link below if the link failed
procedure Bind (ALI_File : File_Name_Type; Args : Argument_List);
-- Binds ALI_File. Args are the arguments to pass to the binder.
@@ -96,13 +96,13 @@ package Make is
-- Compile_Sources can be called by an external unit.
procedure Scan_Make_Arg (Argv : String; And_Save : Boolean);
- -- Scan make arguments. Argv is a single argument to be processed.
+ -- Scan make arguments. Argv is a single argument to be processed
procedure Extract_Failure
(File : out File_Name_Type;
Unit : out Unit_Name_Type;
Found : out Boolean);
- -- Extracts the first failure report from Bad_Compilation table.
+ -- Extracts the first failure report from Bad_Compilation table
procedure Compile_Sources
(Main_Source : File_Name_Type;
diff --git a/gcc/ada/makegpr.ads b/gcc/ada/makegpr.ads
index 308a1928511..d9de44a5c2c 100644
--- a/gcc/ada/makegpr.ads
+++ b/gcc/ada/makegpr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005 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- --
@@ -30,6 +30,6 @@
package Makegpr is
procedure Gprmake;
- -- The driver of gprmake.
+ -- The driver of gprmake
end Makegpr;
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb
index d65dfea5cff..f64aae3d1e9 100644
--- a/gcc/ada/makeutl.adb
+++ b/gcc/ada/makeutl.adb
@@ -57,7 +57,7 @@ package body Makeutl is
Key => Mark_Key,
Hash => Hash,
Equal => "=");
- -- A hash table to keep tracks of the marked units.
+ -- A hash table to keep tracks of the marked units
type Linker_Options_Data is record
Project : Project_Id;
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads
index a4c8135c89b..d69adb2f628 100644
--- a/gcc/ada/makeutl.ads
+++ b/gcc/ada/makeutl.ads
@@ -113,7 +113,7 @@ package Makeutl is
function Is_Marked
(Source_File : File_Name_Type;
Index : Int := 0) return Boolean;
- -- Returns True if the unit was previously marked.
+ -- Returns True if the unit was previously marked
procedure Delete_All_Marks;
-- Remove all file/index couples marked
diff --git a/gcc/ada/mdll-fil.adb b/gcc/ada/mdll-fil.adb
index 73de7e0981e..11f56f37653 100644
--- a/gcc/ada/mdll-fil.adb
+++ b/gcc/ada/mdll-fil.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Simple services used by GNATDLL to deal with Filename extension.
+-- Simple services used by GNATDLL to deal with Filename extension
with Ada.Strings.Fixed;
diff --git a/gcc/ada/mdll-fil.ads b/gcc/ada/mdll-fil.ads
index ed8c106c4f2..15c0678399d 100644
--- a/gcc/ada/mdll-fil.ads
+++ b/gcc/ada/mdll-fil.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -35,7 +35,7 @@ package MDLL.Fil is
-- Return extension of Filename
function Is_Ali (Filename : String) return Boolean;
- -- Test if Filename is an Ada library file (.ali).
+ -- Test if Filename is an Ada library file (.ali)
function Is_Obj (Filename : String) return Boolean;
-- Test if Filename is an object file (.o or .obj)
diff --git a/gcc/ada/mdll-utl.ads b/gcc/ada/mdll-utl.ads
index 9074a19141f..1d1f33a827f 100644
--- a/gcc/ada/mdll-utl.ads
+++ b/gcc/ada/mdll-utl.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -44,7 +44,7 @@ package MDLL.Utl is
Options : Argument_List;
Base_File : String := "";
Build_Lib : Boolean := False);
- -- Run gcc binary.
+ -- Run gcc binary
procedure Gnatbind
(Alis : Argument_List;
diff --git a/gcc/ada/memroot.ads b/gcc/ada/memroot.ads
index 747ccac8e29..abddc135239 100644
--- a/gcc/ada/memroot.ads
+++ b/gcc/ada/memroot.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 1997-2005, AdaCore --
-- --
-- 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- --
@@ -39,7 +39,7 @@ with System.Storage_Elements; use System.Storage_Elements;
package Memroot is
- -- Simple abstract type for names. A name is a sequence of letters.
+ -- Simple abstract type for names. A name is a sequence of letters
type Name_Id is new Natural;
No_Name_Id : constant Name_Id := 0;
diff --git a/gcc/ada/memtrack.adb b/gcc/ada/memtrack.adb
index 38649e6fc76..ce613950ba9 100644
--- a/gcc/ada/memtrack.adb
+++ b/gcc/ada/memtrack.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005 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- --
@@ -53,7 +53,7 @@
-- gnatmem -i gmem.out program
--- See gnatmem section in the GNAT User's Guide for more details.
+-- See gnatmem section in the GNAT User's Guide for more details
-- NOTE: This capability is currently supported on the following targets:
@@ -120,13 +120,13 @@ package body System.Memory is
pragma Import (C, fclose);
procedure Finalize;
- -- Replace the default __gnat_finalize to properly close the log file.
pragma Export (C, Finalize, "__gnat_finalize");
+ -- Replace the default __gnat_finalize to properly close the log file
- Address_Size : constant := System.Address'Max_Size_In_Storage_Elements;
+ Address_Size : constant := System.Address'Max_Size_In_Storage_Elements;
-- Size in bytes of a pointer
- Max_Call_Stack : constant := 200;
+ Max_Call_Stack : constant := 200;
-- Maximum number of frames supported
Tracebk : aliased array (0 .. Max_Call_Stack) of Traceback_Entry;
@@ -137,7 +137,7 @@ package body System.Memory is
-- ??? What about Ada.Command_Line.Command_Name & ".out" instead of static
-- gmem.out
- Gmemfile : File_Ptr;
+ Gmemfile : File_Ptr;
-- Global C file pointer to the allocation log
procedure Gmem_Initialize;
diff --git a/gcc/ada/mlib-fil.adb b/gcc/ada/mlib-fil.adb
index e6359b3ba52..3144451a9de 100644
--- a/gcc/ada/mlib-fil.adb
+++ b/gcc/ada/mlib-fil.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001, Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/mlib-fil.ads b/gcc/ada/mlib-fil.ads
index f72587bf6e5..44460ca0d9c 100644
--- a/gcc/ada/mlib-fil.ads
+++ b/gcc/ada/mlib-fil.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001, Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -32,10 +32,10 @@ package MLib.Fil is
(Filename : String;
New_Ext : String := "")
return String;
- -- Return Filename with the extension change to New_Ext.
+ -- Return Filename with the extension change to New_Ext
function Get_Ext (Filename : String) return String;
- -- Return extension of filename.
+ -- Return extension of filename
function Is_Archive (Filename : String) return Boolean;
-- Test if filename is an archive
diff --git a/gcc/ada/mlib-prj.ads b/gcc/ada/mlib-prj.ads
index 8d5383cdcea..d1c7d8cabc2 100644
--- a/gcc/ada/mlib-prj.ads
+++ b/gcc/ada/mlib-prj.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005, Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/mlib-utl.adb b/gcc/ada/mlib-utl.adb
index 794d2861d58..f6512b494bf 100644
--- a/gcc/ada/mlib-utl.adb
+++ b/gcc/ada/mlib-utl.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2004, Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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/mlib-utl.ads b/gcc/ada/mlib-utl.ads
index bbc895d7e69..bb38c8018b2 100644
--- a/gcc/ada/mlib-utl.ads
+++ b/gcc/ada/mlib-utl.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005, Ada Core Technologies, Inc --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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/mlib.ads b/gcc/ada/mlib.ads
index d93a8140785..c993d8e9539 100644
--- a/gcc/ada/mlib.ads
+++ b/gcc/ada/mlib.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2004, Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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/nlists.adb b/gcc/ada/nlists.adb
index 577b668870d..5d4ef38e83f 100644
--- a/gcc/ada/nlists.adb
+++ b/gcc/ada/nlists.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/nlists.ads b/gcc/ada/nlists.ads
index 25fe4334f1b..533b5a8be8c 100644
--- a/gcc/ada/nlists.ads
+++ b/gcc/ada/nlists.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/osint-c.adb b/gcc/ada/osint-c.adb
index dfb439d965e..648a4b24e16 100644
--- a/gcc/ada/osint-c.adb
+++ b/gcc/ada/osint-c.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005 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- --
@@ -32,14 +32,13 @@ with Tree_IO; use Tree_IO;
package body Osint.C is
Output_Object_File_Name : String_Ptr;
- -- Argument of -o compiler option, if given. This is needed to
- -- verify consistency with the ALI file name.
+ -- Argument of -o compiler option, if given. This is needed to verify
+ -- consistency with the ALI file name.
procedure Adjust_OS_Resource_Limits;
pragma Import (C, Adjust_OS_Resource_Limits,
"__gnat_adjust_os_resource_limits");
- -- Procedure to make system specific adjustments to make GNAT
- -- run better.
+ -- Procedure to make system specific adjustments to make GNAT run better
function Create_Auxiliary_File
(Src : File_Name_Type;
@@ -325,7 +324,7 @@ package body Osint.C is
EL : constant Natural := Ext'Length;
begin
- -- Make sure that the object file has the expected extension.
+ -- Make sure that the object file has the expected extension
if NL <= EL
or else
diff --git a/gcc/ada/osint-l.adb b/gcc/ada/osint-l.adb
index 95a29491410..144fde459f6 100644
--- a/gcc/ada/osint-l.adb
+++ b/gcc/ada/osint-l.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/osint-l.ads b/gcc/ada/osint-l.ads
index 51aebb19840..170e2763616 100644
--- a/gcc/ada/osint-l.ads
+++ b/gcc/ada/osint-l.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/osint-m.ads b/gcc/ada/osint-m.ads
index 65ee1540a38..904385df257 100644
--- a/gcc/ada/osint-m.ads
+++ b/gcc/ada/osint-m.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/osint.adb b/gcc/ada/osint.adb
index 8a9e81a2136..d14ad276fbe 100644
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -76,7 +76,7 @@ package body Osint is
function Append_Suffix_To_File_Name
(Name : Name_Id;
Suffix : String) return Name_Id;
- -- Appends Suffix to Name and returns the new name.
+ -- Appends Suffix to Name and returns the new name
function OS_Time_To_GNAT_Time (T : OS_Time) return Time_Stamp_Type;
-- Convert OS format time to GNAT format time stamp
@@ -115,7 +115,7 @@ package body Osint is
-- full file name if file found, or No_File if not found.
function C_String_Length (S : Address) return Integer;
- -- Returns length of a C string. Returns zero for a null address.
+ -- Returns length of a C string. Returns zero for a null address
function To_Path_String_Access
(Path_Addr : Address;
@@ -200,7 +200,7 @@ package body Osint is
-- time stamp.
File_Cache_Enabled : Boolean := False;
- -- Set to true if you want the enable the file data caching mechanism.
+ -- Set to true if you want the enable the file data caching mechanism
type File_Hash_Num is range 0 .. 1020;
diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads
index 108cafaea9a..fab994e76dc 100644
--- a/gcc/ada/osint.ads
+++ b/gcc/ada/osint.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -90,29 +90,27 @@ package Osint is
-- so that two file names compare equal if they refer to the same file.
function Number_Of_Files return Int;
- -- gives the total number of filenames found on the command line.
+ -- Gives the total number of filenames found on the command line
No_Index : constant := -1;
- -- Value used in Add_File to indicate that no index is specified
- -- for a main.
+ -- Value used in Add_File to indicate no index is specified for main
procedure Add_File (File_Name : String; Index : Int := No_Index);
- -- Called by the subprogram processing the command line for each
- -- file name found. The index, when not defaulted to No_Index
- -- is the index of the subprogram in its source, zero indicating
- -- that the source is not multi-unit.
+ -- Called by the subprogram processing the command line for each file name
+ -- found. The index, when not defaulted to No_Index is the index of the
+ -- subprogram in its source, zero indicating that the source is not
+ -- multi-unit.
procedure Find_Program_Name;
-- Put simple name of current program being run (excluding the directory
-- path) in Name_Buffer, with the length in Name_Len.
function Program_Name (Nam : String) return String_Access;
- -- In the native compilation case, Create a string containing Nam. In
- -- the cross compilation case, looks at the prefix of the current
- -- program being run and prepend it to Nam. For instance if the program
- -- being run is <target>-gnatmake and Nam is "gcc", the returned value
- -- will be a pointer to "<target>-gcc". This function clobbers
- -- Name_Buffer and Name_Len.
+ -- In the native compilation case, Create a string containing Nam. In the
+ -- cross compilation case, looks at the prefix of the current program being
+ -- run and prepend it to Nam. For instance if the program being run is
+ -- <target>-gnatmake and Nam is "gcc", the returned value will be a pointer
+ -- to "<target>-gcc". This function clobbers Name_Buffer and Name_Len.
procedure Write_Program_Name;
-- Writes name of program as invoked to the current output
@@ -121,8 +119,8 @@ package Osint is
procedure Fail (S1 : String; S2 : String := ""; S3 : String := "");
pragma No_Return (Fail);
-- Outputs error messages S1 & S2 & S3 preceded by the name of the
- -- executing program and exits with E_Fatal. The output goes to
- -- standard error, except if special output is in effect (see Output).
+ -- executing program and exits with E_Fatal. The output goes to standard
+ -- error, except if special output is in effect (see Output).
function Is_Directory_Separator (C : Character) return Boolean;
-- Returns True if C is a directory separator
@@ -133,7 +131,7 @@ package Osint is
-- directory part in the name.
function Is_Readonly_Library (File : File_Name_Type) return Boolean;
- -- Check if this library file is a read-only file.
+ -- Check if this library file is a read-only file
function Strip_Directory (Name : File_Name_Type) return File_Name_Type;
-- Strips the prefix directory name (if any) from Name. Returns the
@@ -177,11 +175,11 @@ package Osint is
Prefix_Style : Boolean) return String_Access;
-- Convert a host syntax directory specification (e.g. on a VMS host:
-- "SYS$DEVICE:[DIR]") to canonical (Unix) syntax (e.g. "/sys$device/dir").
- -- If Prefix_Style then make it a valid file specification prefix.
- -- A file specification prefix is a directory specification that
- -- can be appended with a simple file specification to yield a valid
- -- absolute or relative path to a file. On a conversion to Unix syntax
- -- this simply means the spec has a trailing slash ("/").
+ -- If Prefix_Style then make it a valid file specification prefix. A file
+ -- specification prefix is a directory specification that can be appended
+ -- with a simple file specification to yield a valid absolute or relative
+ -- path to a file. On a conversion to Unix syntax this simply means the
+ -- spec has a trailing slash ("/").
function To_Canonical_File_Spec
(Host_File : String) return String_Access;
@@ -204,7 +202,7 @@ package Osint is
function To_Host_File_Spec
(Canonical_File : String) return String_Access;
- -- Convert a canonical syntax file specification to host syntax.
+ -- Convert a canonical syntax file specification to host syntax
function Relocate_Path
(Prefix : String;
@@ -552,7 +550,7 @@ package Osint is
private
ALI_Suffix : constant String_Ptr := new String'("ali");
- -- The suffix used for the library files (also known as ALI files).
+ -- The suffix used for the library files (also known as ALI files)
Current_Main : File_Name_Type := No_File;
-- Used to save a simple file name between calls to Next_Main_Source and
@@ -561,7 +559,7 @@ private
-- last call to Next_Main_Source (and stored here) is to be read.
Object_Suffix : constant String := Get_Object_Suffix.all;
- -- The suffix used for the object files.
+ -- The suffix used for the object files
Output_FD : File_Descriptor;
-- The file descriptor for the current library info, tree or binder output
@@ -609,10 +607,10 @@ private
-- A check is made that this procedure is not called several times.
function More_Files return Boolean;
- -- Implements More_Source_Files and More_Lib_Files.
+ -- Implements More_Source_Files and More_Lib_Files
function Next_Main_File return File_Name_Type;
- -- Implements Next_Main_Source and Next_Main_Lib_File.
+ -- Implements Next_Main_Source and Next_Main_Lib_File
function Object_File_Name (N : File_Name_Type) return File_Name_Type;
-- Constructs the name of the object file corresponding to library
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb
index f4cec924b7e..0985743c8e3 100644
--- a/gcc/ada/output.adb
+++ b/gcc/ada/output.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2003, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -63,7 +63,7 @@ package body Output is
-- will be silently ignored.
Next_Column : Pos range 1 .. Buffer'Length + 1 := 1;
- -- Column about to be written.
+ -- Column about to be written
-----------------------
-- Local_Subprograms --
diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb
index 418e9d9cdbb..1dfbfdb36f9 100644
--- a/gcc/ada/par-ch11.adb
+++ b/gcc/ada/par-ch11.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/par-ch12.adb b/gcc/ada/par-ch12.adb
index 410ce9a1f0a..49e18de7e52 100644
--- a/gcc/ada/par-ch12.adb
+++ b/gcc/ada/par-ch12.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -903,7 +903,7 @@ package body Ch12 is
-- The caller has checked that the initial tokens are WITH FUNCTION or
-- WITH PROCEDURE, and the initial WITH has been scanned out.
- -- A null default is an Ada 2005 feature.
+ -- A null default is an Ada 2005 feature
-- Error recovery: cannot raise Error_Resync
diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb
index b552f811900..e2863bf332a 100644
--- a/gcc/ada/par-ch2.adb
+++ b/gcc/ada/par-ch2.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/par-ch4.adb b/gcc/ada/par-ch4.adb
index 5d1d4edcecf..d9cc0bf21e4 100644
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -507,7 +507,7 @@ package body Ch4 is
-- (discrete_range)
- -- This is a slice. This case is handled in LP_State_Init.
+ -- This is a slice. This case is handled in LP_State_Init
-- (expression, expression, ..)
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb
index d84e37735bc..17c546de144 100644
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -1671,7 +1671,7 @@ package body Ch5 is
-- This function parses a block statement with DECLARE present
- -- The caller has checked that the initial token is DECLARE.
+ -- The caller has checked that the initial token is DECLARE
-- Error recovery: cannot raise Error_Resync
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb
index 69960071e85..72855f90e7a 100644
--- a/gcc/ada/par-ch6.adb
+++ b/gcc/ada/par-ch6.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -171,7 +171,7 @@ package body Ch6 is
Scope.Table (Scope.Last).Ecol := Start_Column;
Scope.Table (Scope.Last).Lreq := False;
- -- Ada2005: scan leading overriding indicator.
+ -- Ada2005: scan leading overriding indicator
if Token = Tok_Not then
Scan; -- past NOT
diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb
index 57ba12402ba..0edc4449f26 100644
--- a/gcc/ada/par-ch9.adb
+++ b/gcc/ada/par-ch9.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -25,8 +25,8 @@
------------------------------------------------------------------------------
pragma Style_Checks (All_Checks);
--- Turn off subprogram body ordering check. Subprograms are in order
--- by RM section rather than alphabetical
+-- Turn off subprogram body ordering check. Subprograms are in order by RM
+-- section rather than alphabetical.
separate (Par)
package body Ch9 is
@@ -768,7 +768,7 @@ package body Ch9 is
Not_Overriding : Boolean := False;
begin
- -- Ada 2005 (AI-397): Scan leading overriding indicator.
+ -- Ada 2005 (AI-397): Scan leading overriding indicator
if Token = Tok_Not then
Scan; -- past NOT
@@ -1357,7 +1357,7 @@ package body Ch9 is
elsif Nkind (Ecall_Node) = N_Identifier
or else Nkind (Ecall_Node) = N_Selected_Component
then
- -- Case of a call to a parameterless entry.
+ -- Case of a call to a parameterless entry
declare
C_Node : constant Node_Id :=
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb
index be508c7fbe9..c58b0d2e0a7 100644
--- a/gcc/ada/par-endh.adb
+++ b/gcc/ada/par-endh.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2002, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -87,7 +87,7 @@ package body Endh is
-- child unit or a node with a Chars field identifying the actual label.
End_Labl_Present : Boolean;
- -- Indicates that the value in End_Labl was for an explicit label.
+ -- Indicates that the value in End_Labl was for an explicit label
Syntax_OK : Boolean;
-- Set True if the entry is syntactically correct
diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb
index 80e6292b42b..a908c8116e3 100644
--- a/gcc/ada/par-labl.adb
+++ b/gcc/ada/par-labl.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -42,10 +42,10 @@ procedure Labl is
-- Next label node to process
function Find_Enclosing_Body_Or_Block (N : Node_Id) return Node_Id;
- -- Find the innermost body or block that encloses N.
+ -- Find the innermost body or block that encloses N
function Find_Enclosing_Body (N : Node_Id) return Node_Id;
- -- Find the innermost body that encloses N.
+ -- Find the innermost body that encloses N
procedure Check_Distinct_Labels;
-- Checks the rule in RM-5.1(11), which requires distinct identifiers
@@ -134,7 +134,7 @@ procedure Labl is
Result : Node_Id := Parent (N);
begin
- -- Climb up the parent chain until we find a body or block.
+ -- Climb up the parent chain until we find a body or block
while Present (Result)
and then Nkind (Result) /= N_Accept_Statement
@@ -160,7 +160,7 @@ procedure Labl is
Succ : Elmt_Id;
function Goto_Id (Goto_Node : Node_Id) return Name_Id;
- -- Find Name_Id of goto statement, which may be an expanded name.
+ -- Find Name_Id of goto statement, which may be an expanded name
function Matches
(Label_Node : Node_Id;
diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb
index 0f5674b70d9..13c66a78be6 100644
--- a/gcc/ada/par-load.adb
+++ b/gcc/ada/par-load.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/par-tchk.adb b/gcc/ada/par-tchk.adb
index 94447fb078d..ab87e88f800 100644
--- a/gcc/ada/par-tchk.adb
+++ b/gcc/ada/par-tchk.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Token scan routines.
+-- Token scan routines
-- Error recovery: none of the T_xxx or TF_xxx routines raise Error_Resync
@@ -801,7 +801,7 @@ package body Tchk is
M : String (1 .. Missing'Length + Tok_Name'Length);
begin
- -- Set M to Missing & Tok_Name.
+ -- Set M to Missing & Tok_Name
M (1 .. Missing'Length) := Missing;
M (Missing'Length + 1 .. M'Last) := Tok_Name;
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb
index 86fa50fe8c1..ddaae254f83 100644
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -94,7 +94,7 @@ is
-- an entry in the scope stack, invalidating the contents of the stack.
Error_Resync : exception;
- -- Exception raised on error that is not handled locally, see above.
+ -- Exception raised on error that is not handled locally, see above
Last_Resync_Point : Source_Ptr;
-- The resynchronization routines in Par.Sync run a risk of getting
diff --git a/gcc/ada/par.ads b/gcc/ada/par.ads
index 36e265aa3f0..f610ef0caef 100644
--- a/gcc/ada/par.ads
+++ b/gcc/ada/par.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/prep.adb b/gcc/ada/prep.adb
index bbfb5b723e5..b2ec857b96d 100644
--- a/gcc/ada/prep.adb
+++ b/gcc/ada/prep.adb
@@ -128,7 +128,7 @@ package body Prep is
-- Behaviour --
---------------
- -- Accesses to procedure specified by procedure Initialize.
+ -- Accesses to procedure specified by procedure Initialize
Error_Msg : Error_Msg_Proc;
-- Report an error
@@ -159,7 +159,7 @@ package body Prep is
-- Used to detect multiple #else.
Deleting : Boolean;
- -- Set to True when the code should be deleted or commented out.
+ -- Set to True when the code should be deleted or commented out
Match_Seen : Boolean;
-- Set to True when a condition in an #if or an #elsif is True.
@@ -276,8 +276,7 @@ package body Prep is
then
for J in Index + 1 .. Definition'Last loop
case Definition (J) is
- when '_' | '.' | '0' .. '9' |
- 'a' .. 'z' | 'A' .. 'Z' =>
+ when '_' | '.' | '0' .. '9' | 'a' .. 'z' | 'A' .. 'Z' =>
null;
when others =>
@@ -336,8 +335,7 @@ package body Prep is
-- Put the symbol name in the result
declare
- Sym : constant String :=
- Name_Buffer (1 .. Name_Len);
+ Sym : constant String := Name_Buffer (1 .. Name_Len);
begin
for Index in 1 .. Name_Len loop
@@ -374,13 +372,13 @@ package body Prep is
----------------
function Expression (Evaluate_It : Boolean) return Boolean is
- Evaluation : Boolean := Evaluate_It;
+ Evaluation : Boolean := Evaluate_It;
-- Is set to False after an "or else" when left term is True and
-- after an "and then" when left term is False.
- Final_Result : Boolean := False;
+ Final_Result : Boolean := False;
- Current_Result : Boolean := False;
+ Current_Result : Boolean := False;
-- Value of a term
Current_Operator : Operator := None;
@@ -430,6 +428,7 @@ package body Prep is
Scan.all;
if Token = Tok_Apostrophe then
+
-- symbol'Defined
Scan.all;
@@ -690,9 +689,9 @@ package body Prep is
procedure Output_Line (From, To : Source_Ptr);
-- Output a line or the end of a line from the buffer to the output
- -- file, followed by an end of line terminator.
- -- Depending on the value of Deleting and the switches, the line
- -- may be commented out, blank or not output at all.
+ -- file, followed by an end of line terminator. Depending on the value
+ -- of Deleting and the switches, the line may be commented out, blank or
+ -- not output at all.
------------
-- Output --
@@ -739,13 +738,12 @@ package body Prep is
begin
Start_Of_Processing := Scan_Ptr;
- -- We need to call Scan for the first time, because Initialyze_Scanner
+ -- We need to call Scan for the first time, because Initialize_Scanner
-- is no longer doing it.
Scan.all;
- Input_Line_Loop :
- loop
+ Input_Line_Loop : loop
exit Input_Line_Loop when Token = Tok_EOF;
Preprocessor_Line := False;
@@ -760,9 +758,9 @@ package body Prep is
case Token is
- when Tok_If =>
- -- #if
+ -- #if
+ when Tok_If =>
declare
If_Ptr : constant Source_Ptr := Token_Ptr;
@@ -806,9 +804,9 @@ package body Prep is
end;
end;
- when Tok_Elsif =>
- -- #elsif
+ -- #elsif
+ when Tok_Elsif =>
Cond := False;
if Pp_States.Last = 0
@@ -860,9 +858,9 @@ package body Prep is
end if;
end if;
- when Tok_Else =>
- -- #else
+ -- #else
+ when Tok_Else =>
if Pp_States.Last = 0 then
Error_Msg ("no IF for this ELSE", Token_Ptr);
@@ -906,9 +904,9 @@ package body Prep is
Go_To_End_Of_Line;
end if;
- when Tok_End =>
- -- #end if;
+ -- #end if;
+ when Tok_End =>
if Pp_States.Last = 0 then
Error_Msg ("no IF for this END", Token_Ptr);
end if;
@@ -944,15 +942,15 @@ package body Prep is
Go_To_End_Of_Line;
- -- Decrement the depth of the #if stack.
+ -- Decrement the depth of the #if stack
if Pp_States.Last > 0 then
Pp_States.Decrement_Last;
end if;
- when others =>
- -- Illegal preprocessor line
+ -- Illegal preprocessor line
+ when others =>
if Pp_States.Last = 0 then
Error_Msg ("IF expected", Token_Ptr);
@@ -990,8 +988,8 @@ package body Prep is
and then Special_Character = '$'
then
declare
- Dollar_Ptr : constant Source_Ptr := Token_Ptr;
- Symbol : Symbol_Id;
+ Dollar_Ptr : constant Source_Ptr := Token_Ptr;
+ Symbol : Symbol_Id;
begin
Scan.all;
@@ -1004,8 +1002,7 @@ package body Prep is
Symbol := Index_Of (Token_Name);
- -- If there is such a symbol, replace it by its
- -- value.
+ -- If symbol exists, replace by its value
if Symbol /= No_Symbol then
Output (Start_Of_Processing, Dollar_Ptr - 1);
@@ -1070,15 +1067,13 @@ package body Prep is
and then Sinput.Source (Token_Ptr + 1) = ASCII.LF)
then
Start_Of_Processing := Token_Ptr + 2;
-
else
Start_Of_Processing := Token_Ptr + 1;
end if;
end if;
- -- Now, we scan the first token of the next line.
- -- If the token is EOF, the scan ponter will not move, and the token
- -- will still be EOF.
+ -- Now, scan the first token of the next line. If the token is EOF,
+ -- the scan ponter will not move, and the token will still be EOF.
Set_Ignore_Errors (To => True);
Scan.all;
diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb
index 05773daa66c..e81c9763648 100644
--- a/gcc/ada/prepcomp.adb
+++ b/gcc/ada/prepcomp.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003, Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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- --
@@ -135,6 +135,7 @@ package body Prepcomp is
procedure Add_Command_Line_Symbols is
Symbol_Id : Prep.Symbol_Id;
+
begin
for J in 1 .. Symbol_Table.Last (Command_Line_Symbols) loop
Symbol_Id := Prep.Index_Of (Command_Line_Symbols.Table (J).Symbol);
@@ -225,11 +226,11 @@ package body Prepcomp is
------------------------------
procedure Parse_Preprocessing_Data_File (N : File_Name_Type) is
- OK : Boolean := False;
+ OK : Boolean := False;
Dash_Location : Source_Ptr;
- Symbol_Data : Prep.Symbol_Data;
- Symbol_Id : Prep.Symbol_Id;
- T : constant Nat := Total_Errors_Detected;
+ Symbol_Data : Prep.Symbol_Data;
+ Symbol_Id : Prep.Symbol_Id;
+ T : constant Nat := Total_Errors_Detected;
begin
-- Load the preprocessing data file
@@ -246,13 +247,13 @@ package body Prepcomp is
end if;
-- Initialize the sanner and set its behavior for a processing data file
+
Scn.Scanner.Initialize_Scanner
(No_Unit, Source_Index_Of_Preproc_Data_File);
Scn.Scanner.Set_End_Of_Line_As_Token (True);
Scn.Scanner.Reset_Special_Characters;
- For_Each_Line :
- loop
+ For_Each_Line : loop
<<Scan_Line>>
Scan;
@@ -340,7 +341,6 @@ package body Prepcomp is
-- Check the switches that may follow
while Token /= Tok_End_Of_Line and then Token /= Tok_EOF loop
-
if Token /= Tok_Minus then
Error_Msg ("`'-` expected", Token_Ptr);
Skip_To_End_Of_Line;
@@ -508,7 +508,7 @@ package body Prepcomp is
Symbol_Id := Prep.Index_Of (Symbol_Data.Symbol);
- -- Otherwise, add a new entry in the table.
+ -- Otherwise, add a new entry in the table
if Symbol_Id = No_Symbol then
Symbol_Table.Increment_Last (Prep.Mapping);
@@ -635,6 +635,7 @@ package body Prepcomp is
-- If not already done it, process the definition file
if Current_Data.Processed then
+
-- Set Prep.Mapping
Prep.Mapping := Current_Data.Mapping;
diff --git a/gcc/ada/prepcomp.ads b/gcc/ada/prepcomp.ads
index 3e53e0dee27..9c74df8c592 100644
--- a/gcc/ada/prepcomp.ads
+++ b/gcc/ada/prepcomp.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2003, Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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- --
@@ -46,7 +46,7 @@ package Prepcomp is
-- Parse_Preprocessing_Data_File should be called instead.
procedure Parse_Preprocessing_Data_File (N : File_Name_Type);
- -- Parse a preprocessing data file, specified with a -gnatep= switch.
+ -- Parse a preprocessing data file, specified with a -gnatep= switch
procedure Prepare_To_Preprocess
(Source : File_Name_Type;
diff --git a/gcc/ada/prj-attr-pm.ads b/gcc/ada/prj-attr-pm.ads
index 695e17fed24..36ad40f7052 100644
--- a/gcc/ada/prj-attr-pm.ads
+++ b/gcc/ada/prj-attr-pm.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2005, 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- --
@@ -24,9 +24,15 @@
-- --
------------------------------------------------------------------------------
+-- This package contains insecure procedures that are intended to be used
+-- only inside the Prj and MLib hierarchies. It should not be imported by
+-- other tools, such as GPS.
+
package Prj.Attr.PM is
+
-- The following procedures are not secure and should only be used by the
-- Project Manager, that is the packages of the Prj or MLib hierarchies.
+ -- What does "not secure" mean???
procedure Add_Unknown_Package (Name : Name_Id; Id : out Package_Node_Id);
-- Add a new unknown package. The Name cannot be the name of a predefined
diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads
index 142be80fd97..df964044ea8 100644
--- a/gcc/ada/prj-attr.ads
+++ b/gcc/ada/prj-attr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -26,7 +26,8 @@
-- This package defines packages and attributes in GNAT project files.
-- There are predefined packages and attributes.
--- It is also possible to define new packages with their attributes.
+
+-- It is also possible to define new packages with their attributes
with Table;
diff --git a/gcc/ada/prj-com.ads b/gcc/ada/prj-com.ads
index 7cf50116d62..c7a96aa04c6 100644
--- a/gcc/ada/prj-com.ads
+++ b/gcc/ada/prj-com.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -27,6 +27,8 @@
-- The following package declares data types for GNAT project.
-- These data types are used in the bodies of the Prj hierarchy.
+-- Above comment seems *far* too general ???
+
with Osint;
package Prj.Com is
diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb
index 00922b31b9f..162db134807 100644
--- a/gcc/ada/prj-dect.adb
+++ b/gcc/ada/prj-dect.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc --
+-- Copyright (C) 2001-2005, 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- --
@@ -49,7 +49,7 @@ package body Prj.Dect is
Current_Project : Project_Node_Id;
Current_Package : Project_Node_Id;
Packages_To_Check : String_List_Access);
- -- Parse an attribute declaration.
+ -- Parse an attribute declaration
procedure Parse_Case_Construction
(In_Tree : Project_Node_Tree_Ref;
diff --git a/gcc/ada/prj-dect.ads b/gcc/ada/prj-dect.ads
index e8233e34ade..4cffb574939 100644
--- a/gcc/ada/prj-dect.ads
+++ b/gcc/ada/prj-dect.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/prj-env.ads b/gcc/ada/prj-env.ads
index 76e85aeceea..59d2cfc0f67 100644
--- a/gcc/ada/prj-env.ads
+++ b/gcc/ada/prj-env.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc --
+-- Copyright (C) 2001-2005, 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/prj-err.ads b/gcc/ada/prj-err.ads
index 57d33f9be66..ba528f1f99a 100644
--- a/gcc/ada/prj-err.ads
+++ b/gcc/ada/prj-err.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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- --
@@ -24,12 +24,11 @@
-- --
------------------------------------------------------------------------------
--- This package contains the routines to output error messages and the
--- scanner for the project files. It replaces Errout and Scn.
--- It is not dependent on the GNAT tree packages (Atree, Sinfo, ...).
--- It uses the same global variables as Errout, located in package
--- Err_Vars. Like Errout, it also uses the common variables and routines
--- in package Erroutc.
+-- This package contains the routines to output error messages and the scanner
+-- for the project files. It replaces Errout and Scn. It is not dependent on
+-- the GNAT tree packages (Atree, Sinfo, ...). It uses exactly the same global
+-- variables as Errout, located in package Err_Vars. Like Errout, it also uses
+-- the common variables and routines in package Erroutc.
with Scng;
with Errutil;
@@ -63,10 +62,10 @@ package Prj.Err is
procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr)
renames Errutil.Error_Msg;
- -- Output a message at specified location.
+ -- Output a message at specified location
procedure Error_Msg_S (Msg : String) renames Errutil.Error_Msg_S;
- -- Output a message at current scan pointer location.
+ -- Output a message at current scan pointer location
procedure Error_Msg_SC (Msg : String) renames Errutil.Error_Msg_SC;
-- Output a message at the start of the current token, unless we are at
@@ -74,7 +73,7 @@ package Prj.Err is
-- last real token in the file.
procedure Error_Msg_SP (Msg : String) renames Errutil.Error_Msg_SP;
- -- Output a message at the start of the previous token.
+ -- Output a message at the start of the previous token
-------------
-- Scanner --
diff --git a/gcc/ada/prj-ext.ads b/gcc/ada/prj-ext.ads
index e6e7188dfad..c0114ce2e08 100644
--- a/gcc/ada/prj-ext.ads
+++ b/gcc/ada/prj-ext.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -42,13 +42,13 @@ package Prj.Ext is
procedure Add
(External_Name : String;
Value : String);
- -- Add an external reference (or modify an existing one).
+ -- Add an external reference (or modify an existing one)
function Value_Of
(External_Name : Name_Id;
With_Default : Name_Id := No_Name)
return Name_Id;
- -- Get the value of an external reference, and cache it for future uses.
+ -- Get the value of an external reference, and cache it for future uses
function Check (Declaration : String) return Boolean;
-- Check that an external declaration <external>=<value> is correct.
diff --git a/gcc/ada/prj-makr.adb b/gcc/ada/prj-makr.adb
index 569c85dcceb..57334e40056 100644
--- a/gcc/ada/prj-makr.adb
+++ b/gcc/ada/prj-makr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/prj-makr.ads b/gcc/ada/prj-makr.ads
index 3947e891819..4bb0ead30c4 100644
--- a/gcc/ada/prj-makr.ads
+++ b/gcc/ada/prj-makr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Support for procedure Gnatname.
+-- Support for procedure Gnatname
-- For arbitrary naming schemes, create or update a project file,
-- or create a configuration pragmas file.
diff --git a/gcc/ada/prj-nmsc.ads b/gcc/ada/prj-nmsc.ads
index 8298bb63545..ae05c5f0174 100644
--- a/gcc/ada/prj-nmsc.ads
+++ b/gcc/ada/prj-nmsc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Check the Naming Scheme of a project file, find the source files.
+-- Check the Naming Scheme of a project file, find the source files
private package Prj.Nmsc is
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb
index b0b52d65f34..4f4b9043c57 100644
--- a/gcc/ada/prj-pars.adb
+++ b/gcc/ada/prj-pars.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/prj-pars.ads b/gcc/ada/prj-pars.ads
index 15a17be3b45..d94b0720f24 100644
--- a/gcc/ada/prj-pars.ads
+++ b/gcc/ada/prj-pars.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/prj-part.ads b/gcc/ada/prj-part.ads
index 861ec3ca37a..38f8d8130a2 100644
--- a/gcc/ada/prj-part.ads
+++ b/gcc/ada/prj-part.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- Implements the parsing of project files into a tree.
+-- Implements the parsing of project files into a tree
with Prj.Tree; use Prj.Tree;
diff --git a/gcc/ada/prj-pp.ads b/gcc/ada/prj-pp.ads
index 7c4a4acafde..806eb9c6ea3 100644
--- a/gcc/ada/prj-pp.ads
+++ b/gcc/ada/prj-pp.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -24,19 +24,19 @@
-- --
------------------------------------------------------------------------------
--- This package is the Project File Pretty Printer.
--- It is used to output a project file from a project file tree.
--- It is used by gnatname to update or create project files.
--- It is also used GPS to display project file trees.
--- It can also be used for debugging purposes for tools that create project
--- file trees.
+-- This package is the Project File Pretty Printer
+
+-- Used to output a project file from a project file tree.
+-- Used by gnatname to update or create project files.
+-- Also used GPS to display project file trees.
+-- Also be used for debugging tools that create project file trees.
with Prj.Tree;
package Prj.PP is
- -- The following access to procedure types are used
- -- to redirect output when calling Pretty_Print.
+ -- The following access to procedure types are used to redirect output when
+ -- calling Pretty_Print.
type Write_Char_Ap is access procedure (C : Character);
@@ -54,8 +54,8 @@ package Prj.PP is
W_Eol : Write_Eol_Ap := null;
W_Str : Write_Str_Ap := null;
Backward_Compatibility : Boolean);
- -- Output a project file, using either the default output
- -- routines, or the ones specified by W_Char, W_Eol and W_Str.
+ -- Output a project file, using either the default output routines, or the
+ -- ones specified by W_Char, W_Eol and W_Str.
--
-- Increment is the number of spaces for each indentation level.
--
@@ -65,10 +65,10 @@ package Prj.PP is
-- If Eliminate_Empty_Case_Constructions is True, then case constructions
-- and case items that do not include any declarations will not be output.
--
- -- If Minimize_Empty_Lines is True, empty lines will be output only
- -- after the last with clause, after the line declaring the project name,
- -- after the last declarative item of the project and before each
- -- package declaration. Otherwise, more empty lines are output.
+ -- If Minimize_Empty_Lines is True, empty lines will be output only after
+ -- the last with clause, after the line declaring the project name, after
+ -- the last declarative item of the project and before each package
+ -- declaration. Otherwise, more empty lines are output.
--
-- If Backward_Compatibility is True, then new attributes (Spec,
-- Spec_Suffix, Body, Body_Suffix) will be replaced by obsolete ones
@@ -78,8 +78,8 @@ package Prj.PP is
private
procedure Output_Statistics;
- -- This procedure can be used after one or more calls to Pretty_Print
- -- to display what Project_Node_Kinds have not been exercised by the
- -- call(s) to Pretty_Print. It is used only for testing purposes.
+ -- This procedure can be used after one or more calls to Pretty_Print to
+ -- display what Project_Node_Kinds have not been exercised by the call(s)
+ -- to Pretty_Print. It is used only for testing purposes.
end Prj.PP;
diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads
index e0ab87dd4ad..a94137542e2 100644
--- a/gcc/ada/prj-proc.ads
+++ b/gcc/ada/prj-proc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -25,8 +25,8 @@
------------------------------------------------------------------------------
-- This package is used to convert a project file tree (see prj-tree.ads) to
--- project file data structures (see prj.ads), taking into account
--- the environment (external references).
+-- project file data structures (see prj.ads), taking into account the
+-- environment (external references).
with Prj.Tree; use Prj.Tree;
@@ -40,9 +40,9 @@ package Prj.Proc is
From_Project_Node_Tree : Project_Node_Tree_Ref;
Report_Error : Put_Line_Access;
Follow_Links : Boolean := True);
- -- Process a project file tree into project file data structures.
- -- If Report_Error is null, use the error reporting mechanism.
- -- Otherwise, report errors using Report_Error.
+ -- Process a project file tree into project file data structures. If
+ -- Report_Error is null, use the error reporting mechanism. Otherwise,
+ -- report errors using Report_Error.
--
-- If Follow_Links is False, it is assumed that the project doesn't contain
-- any file duplicated through symbolic links (although the latter are
diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb
index d3615d14480..b1388079719 100644
--- a/gcc/ada/prj-strt.adb
+++ b/gcc/ada/prj-strt.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -24,13 +24,13 @@
-- --
------------------------------------------------------------------------------
-with Err_Vars; use Err_Vars;
-with Namet; use Namet;
-with Prj.Attr; use Prj.Attr;
-with Prj.Err; use Prj.Err;
+with Err_Vars; use Err_Vars;
+with Namet; use Namet;
+with Prj.Attr; use Prj.Attr;
+with Prj.Err; use Prj.Err;
with Snames;
with Table;
-with Uintp; use Uintp;
+with Uintp; use Uintp;
package body Prj.Strt is
@@ -64,7 +64,7 @@ package body Prj.Strt is
Table_Initial => Choices_Initial,
Table_Increment => Choices_Increment,
Table_Name => "Prj.Strt.Choices");
- -- Used to store the case labels and check that there is no duplicate.
+ -- Used to store the case labels and check that there is no duplicate
package Choice_Lasts is
new Table.Table (Table_Component_Type => Choice_Node_Id,
@@ -107,7 +107,7 @@ package body Prj.Strt is
Current_Project : Project_Node_Id;
Current_Package : Project_Node_Id;
External_Value : out Project_Node_Id);
- -- Parse an external reference. Current token is "external".
+ -- Parse an external reference. Current token is "external"
procedure Attribute_Reference
(In_Tree : Project_Node_Tree_Ref;
@@ -115,7 +115,7 @@ package body Prj.Strt is
First_Attribute : Attribute_Node_Id;
Current_Project : Project_Node_Id;
Current_Package : Project_Node_Id);
- -- Parse an attribute reference. Current token is an apostrophe.
+ -- Parse an attribute reference. Current token is an apostrophe
procedure Terms
(In_Tree : Project_Node_Tree_Ref;
diff --git a/gcc/ada/prj-strt.ads b/gcc/ada/prj-strt.ads
index a1575b807ce..74dc37457fe 100644
--- a/gcc/ada/prj-strt.ads
+++ b/gcc/ada/prj-strt.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -24,7 +24,7 @@
-- --
------------------------------------------------------------------------------
--- This package implements parsing of string expressions in project files.
+-- This package implements parsing of string expressions in project files
with Prj.Tree; use Prj.Tree;
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb
index 6077d95037d..016568c749d 100644
--- a/gcc/ada/prj-tree.adb
+++ b/gcc/ada/prj-tree.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/prj-util.adb b/gcc/ada/prj-util.adb
index 1de7acb4035..716817d4ef0 100644
--- a/gcc/ada/prj-util.adb
+++ b/gcc/ada/prj-util.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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/prj-util.ads b/gcc/ada/prj-util.ads
index 667fb993c8e..5d77678af89 100644
--- a/gcc/ada/prj-util.ads
+++ b/gcc/ada/prj-util.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -67,9 +67,9 @@ package Prj.Util is
-- or if In_Array is null.
--
-- Depending on the attribute (only attributes may be associative arrays)
- -- the index may or may not be case sensitive. If the index is not
- -- case sensitive, it is first set to lower case before the search
- -- in the associative array.
+ -- the index may or may not be case sensitive. If the index is not case
+ -- sensitive, it is first set to lower case before the search in the
+ -- associative array.
function Value_Of
(Name : Name_Id;
@@ -78,10 +78,9 @@ package Prj.Util is
In_Package : Package_Id;
In_Tree : Project_Tree_Ref) return Variable_Value;
-- In a specific package,
- -- - if there exists an array Attribute_Or_Array_Name with an index
- -- Name, returns the corresponding component (depending on the
- -- attribute, the index may or may not be case sensitive, see previous
- -- function),
+ -- - if there exists an array Attribute_Or_Array_Name with an index Name,
+ -- returns the corresponding component (depending on the attribute, the
+ -- index may or may not be case sensitive, see previous function),
-- - otherwise if there is a single attribute Attribute_Or_Array_Name,
-- returns this attribute,
-- - otherwise, returns Nil_Variable_Value.
@@ -92,8 +91,8 @@ package Prj.Util is
In_Array : Name_Id;
In_Arrays : Array_Id;
In_Tree : Project_Tree_Ref) return Name_Id;
- -- Get a string array component in an array of an array list.
- -- Returns No_Name if there is no component Index, if In_Arrays is null, if
+ -- Get a string array component in an array of an array list. Returns
+ -- No_Name if there is no component Index, if In_Arrays is null, if
-- In_Array is not found in In_Arrays or if the component is a String list.
function Value_Of
@@ -108,8 +107,8 @@ package Prj.Util is
(Name : Name_Id;
In_Packages : Package_Id;
In_Tree : Project_Tree_Ref) return Package_Id;
- -- Returns a specified package in a package list. Returns No_Package
- -- if In_Packages is null or if Name is not the name of a package in
+ -- Returns a specified package in a package list. Returns No_Package if
+ -- In_Packages is null or if Name is not the name of a package in
-- Package_List. The caller must ensure that Name is in lower case.
function Value_Of
@@ -129,28 +128,28 @@ package Prj.Util is
-- the last character of each line, if possible.
type Text_File is limited private;
- -- Represents a text file. Default is invalid text file.
+ -- Represents a text file. Default is invalid text file
function Is_Valid (File : Text_File) return Boolean;
-- Returns True if File designates an open text file that
-- has not yet been closed.
procedure Open (File : out Text_File; Name : String);
- -- Open a text file. If this procedure fails, File is invalid.
+ -- Open a text file. If this procedure fails, File is invalid
function End_Of_File (File : Text_File) return Boolean;
- -- Returns True if the end of the text file File has been
- -- reached. Fails if File is invalid.
+ -- Returns True if the end of the text file File has been reached. Fails if
+ -- File is invalid.
procedure Get_Line
(File : Text_File;
Line : out String;
Last : out Natural);
- -- Reads a line from an open text file. Fails if File is invalid.
+ -- Reads a line from an open text file. Fails if File is invalid
procedure Close (File : in out Text_File);
- -- Close an open text file. File becomes invalid.
- -- Fails if File is already invalid.
+ -- Close an open text file. File becomes invalid. Fails if File is already
+ -- invalid.
private
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb
index 494adc8771c..f2dd0393b35 100644
--- a/gcc/ada/rtsfind.adb
+++ b/gcc/ada/rtsfind.adb
@@ -171,7 +171,7 @@ package body Rtsfind is
-- is only effective in All_Errors mode.
function RE_Chars (E : RE_Id) return Name_Id;
- -- Given a RE_Id value returns the Chars of the corresponding entity.
+ -- Given a RE_Id value returns the Chars of the corresponding entity
procedure RTE_Error_Msg (Msg : String);
-- Generates a message by calling Error_Msg_N specifying Current_Error_Node
@@ -518,7 +518,7 @@ package body Rtsfind is
-- Indicate those that must be restored.
procedure Restore_Private_Visibility;
- -- Restore the visibility of ancestors after compiling RTU.
+ -- Restore the visibility of ancestors after compiling RTU
--------------------------------
-- Restore_Private_Visibility --
diff --git a/gcc/ada/s-gloloc-mingw.adb b/gcc/ada/s-gloloc-mingw.adb
index a6abd441359..ce7e4f7857f 100644
--- a/gcc/ada/s-gloloc-mingw.adb
+++ b/gcc/ada/s-gloloc-mingw.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2001 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
--- This implementation is specific to NT.
+-- This implementation is specific to NT
with GNAT.Task_Lock;
diff --git a/gcc/ada/s-imgwch.ads b/gcc/ada/s-imgwch.ads
index dbcfb07cf2f..61f4441f53a 100644
--- a/gcc/ada/s-imgwch.ads
+++ b/gcc/ada/s-imgwch.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-imgwiu.adb b/gcc/ada/s-imgwiu.adb
index 8aee7fd9f3b..845cca51ad0 100644
--- a/gcc/ada/s-imgwiu.adb
+++ b/gcc/ada/s-imgwiu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-imgwiu.ads b/gcc/ada/s-imgwiu.ads
index 8b53da8e155..2b690aa2dff 100644
--- a/gcc/ada/s-imgwiu.ads
+++ b/gcc/ada/s-imgwiu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-inmaop-dummy.adb b/gcc/ada/s-inmaop-dummy.adb
index 72848ee0c21..edd636ed077 100644
--- a/gcc/ada/s-inmaop-dummy.adb
+++ b/gcc/ada/s-inmaop-dummy.adb
@@ -2,12 +2,11 @@
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
--- S Y S T E M . I N T E R R U P T _ M A N A G E M E N T . --
--- O P E R A T I O N S --
+-- SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS --
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-inmaop-vms.adb b/gcc/ada/s-inmaop-vms.adb
index ba421ec6a0a..11db041b5a8 100644
--- a/gcc/ada/s-inmaop-vms.adb
+++ b/gcc/ada/s-inmaop-vms.adb
@@ -2,12 +2,11 @@
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
--- S Y S T E M . I N T E R R U P T _ M A N A G E M E N T . --
--- O P E R A T I O N S --
+-- SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS --
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-inmaop.ads b/gcc/ada/s-inmaop.ads
index 87d82ab62ae..0fd1e00612d 100644
--- a/gcc/ada/s-inmaop.ads
+++ b/gcc/ada/s-inmaop.ads
@@ -63,11 +63,11 @@ package System.Interrupt_Management.Operations is
procedure Install_Default_Action (Interrupt : Interrupt_ID);
pragma Inline (Install_Default_Action);
- -- Set the sigaction of the Interrupt to default (SIG_DFL).
+ -- Set the sigaction of the Interrupt to default (SIG_DFL)
procedure Install_Ignore_Action (Interrupt : Interrupt_ID);
pragma Inline (Install_Ignore_Action);
- -- Set the sigaction of the Interrupt to ignore (SIG_IGN).
+ -- Set the sigaction of the Interrupt to ignore (SIG_IGN)
procedure Fill_Interrupt_Mask (Mask : access Interrupt_Mask);
pragma Inline (Fill_Interrupt_Mask);
@@ -97,7 +97,7 @@ package System.Interrupt_Management.Operations is
procedure Copy_Interrupt_Mask (X : out Interrupt_Mask; Y : Interrupt_Mask);
pragma Inline (Copy_Interrupt_Mask);
- -- Assigment needed for limited private type Interrupt_Mask.
+ -- Assigment needed for limited private type Interrupt_Mask
procedure Interrupt_Self_Process (Interrupt : Interrupt_ID);
pragma Inline (Interrupt_Self_Process);
@@ -108,18 +108,18 @@ package System.Interrupt_Management.Operations is
-- This function should be called by the elaboration of System.Interrupt
-- to set up proper signal masking in all tasks.
- -- The following objects serve as constants, but are initialized
- -- in the body to aid portability. These actually belong to the
- -- System.Interrupt_Management but since Interrupt_Mask is a
- -- private type we can not have them declared there.
+ -- The following objects serve as constants, but are initialized in the
+ -- body to aid portability. These should be in System.Interrupt_Management
+ -- but since Interrupt_Mask is private type we cannot have them declared
+ -- there.
-- Why not make these deferred constants that are initialized using
-- function calls in the private part???
Environment_Mask : aliased Interrupt_Mask;
- -- This mask represents the mask of Environment task when this package
- -- is being elaborated, except the signals being
- -- forced to be unmasked by RTS (items in Keep_Unmasked)
+ -- This mask represents the mask of Environment task when this package is
+ -- being elaborated, except the signals being forced to be unmasked by RTS
+ -- (items in Keep_Unmasked)
All_Tasks_Mask : aliased Interrupt_Mask;
-- This is the mask of all tasks created in RTS. Only one task in RTS
diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb
index 6b94e958578..41937db1fac 100644
--- a/gcc/ada/s-interr-sigaction.adb
+++ b/gcc/ada/s-interr-sigaction.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2005 Free Software Fundation --
+-- Copyright (C) 1998-2005, Free Software Fundation --
-- --
-- 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-mastop-vms.adb b/gcc/ada/s-mastop-vms.adb
index 9e867285007..ce462cb9a60 100644
--- a/gcc/ada/s-mastop-vms.adb
+++ b/gcc/ada/s-mastop-vms.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- (Version for Alpha/VMS) --
-- --
--- Copyright (C) 2001-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2001-2005, AdaCore --
-- --
-- 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- --
@@ -43,7 +43,7 @@ package body System.Machine_State_Operations is
subtype Cond_Value_Type is Unsigned_Longword;
- -- Record layouts copied from Starlet.
+ -- Record layouts copied from Starlet
type ICB_Fflags_Bits_Type is record
Exception_Frame : Boolean;
@@ -94,7 +94,7 @@ package body System.Machine_State_Operations is
Ireg : Unsigned_Quadword_Array (0 .. 30);
Freg : Unsigned_Quadword_Array (0 .. 30);
- -- The register contents areas. 31 for scalars, 31 for float.
+ -- The register contents areas. 31 for scalars, 31 for float
System_Defined : Unsigned_Quadword_Array (0 .. 1);
-- The following is an "internal" area that's reserved for use by
@@ -153,7 +153,7 @@ package body System.Machine_State_Operations is
function Fetch_Code (Loc : Code_Loc) return Code_Loc is
begin
- -- The starting address is in the second longword pointed to by Loc.
+ -- The starting address is in the second longword pointed to by Loc
return Fetch (System.Aux_DEC."+" (Loc, 8));
end Fetch_Code;
diff --git a/gcc/ada/s-osinte-fsu.adb b/gcc/ada/s-osinte-fsu.adb
index b7118750194..f5ebf934326 100644
--- a/gcc/ada/s-osinte-fsu.adb
+++ b/gcc/ada/s-osinte-fsu.adb
@@ -250,8 +250,8 @@ package body System.OS_Interface is
-- FSU_THREADS does not have pthread_setschedparam
- -- This routine returns a non-negative value upon failure
- -- but the error code can not be set conforming the POSIX standard.
+ -- This routine returns a non-negative value upon failure but the error
+ -- code cannot be set conforming the POSIX standard.
function pthread_setschedparam
(thread : pthread_t;
diff --git a/gcc/ada/s-pack03.adb b/gcc/ada/s-pack03.adb
index 907936f7fd1..bd517f60d43 100644
--- a/gcc/ada/s-pack03.adb
+++ b/gcc/ada/s-pack03.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_03 is
function Get_03 (Arr : System.Address; N : Natural) return Bits_03 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_03 is
procedure Set_03 (Arr : System.Address; N : Natural; E : Bits_03) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack03.ads b/gcc/ada/s-pack03.ads
index 3b03c6ef9c4..0d6f846a182 100644
--- a/gcc/ada/s-pack03.ads
+++ b/gcc/ada/s-pack03.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack05.adb b/gcc/ada/s-pack05.adb
index 0e38569c3cc..c3008886758 100644
--- a/gcc/ada/s-pack05.adb
+++ b/gcc/ada/s-pack05.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_05 is
function Get_05 (Arr : System.Address; N : Natural) return Bits_05 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_05 is
procedure Set_05 (Arr : System.Address; N : Natural; E : Bits_05) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack05.ads b/gcc/ada/s-pack05.ads
index 2f4fc26a262..b5267565c3b 100644
--- a/gcc/ada/s-pack05.ads
+++ b/gcc/ada/s-pack05.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack06.adb b/gcc/ada/s-pack06.adb
index 12e9003ac34..b8beacc4731 100644
--- a/gcc/ada/s-pack06.adb
+++ b/gcc/ada/s-pack06.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_06 is
function Get_06 (Arr : System.Address; N : Natural) return Bits_06 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_06 is
function GetU_06 (Arr : System.Address; N : Natural) return Bits_06 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
diff --git a/gcc/ada/s-pack06.ads b/gcc/ada/s-pack06.ads
index dcd53abca2a..5c3a4109217 100644
--- a/gcc/ada/s-pack06.ads
+++ b/gcc/ada/s-pack06.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack07.adb b/gcc/ada/s-pack07.adb
index 064d711c1e0..b8f54b0278d 100644
--- a/gcc/ada/s-pack07.adb
+++ b/gcc/ada/s-pack07.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_07 is
function Get_07 (Arr : System.Address; N : Natural) return Bits_07 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_07 is
procedure Set_07 (Arr : System.Address; N : Natural; E : Bits_07) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack07.ads b/gcc/ada/s-pack07.ads
index d994b681e98..308d3ceda33 100644
--- a/gcc/ada/s-pack07.ads
+++ b/gcc/ada/s-pack07.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack09.adb b/gcc/ada/s-pack09.adb
index c3d3de4dcd1..91d4c51e3c9 100644
--- a/gcc/ada/s-pack09.adb
+++ b/gcc/ada/s-pack09.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_09 is
function Get_09 (Arr : System.Address; N : Natural) return Bits_09 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_09 is
procedure Set_09 (Arr : System.Address; N : Natural; E : Bits_09) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack09.ads b/gcc/ada/s-pack09.ads
index 7b4e51ba255..c12df55f63e 100644
--- a/gcc/ada/s-pack09.ads
+++ b/gcc/ada/s-pack09.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack10.adb b/gcc/ada/s-pack10.adb
index d94a50aec44..c927e0c2b03 100644
--- a/gcc/ada/s-pack10.adb
+++ b/gcc/ada/s-pack10.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_10 is
function Get_10 (Arr : System.Address; N : Natural) return Bits_10 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_10 is
function GetU_10 (Arr : System.Address; N : Natural) return Bits_10 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
diff --git a/gcc/ada/s-pack10.ads b/gcc/ada/s-pack10.ads
index f079f7f65c1..6b6904eadc8 100644
--- a/gcc/ada/s-pack10.ads
+++ b/gcc/ada/s-pack10.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack11.adb b/gcc/ada/s-pack11.adb
index c8ea9563543..caa535aa21e 100644
--- a/gcc/ada/s-pack11.adb
+++ b/gcc/ada/s-pack11.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_11 is
function Get_11 (Arr : System.Address; N : Natural) return Bits_11 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_11 is
procedure Set_11 (Arr : System.Address; N : Natural; E : Bits_11) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack11.ads b/gcc/ada/s-pack11.ads
index b8017cfbf42..75dbfb4e9f0 100644
--- a/gcc/ada/s-pack11.ads
+++ b/gcc/ada/s-pack11.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack12.adb b/gcc/ada/s-pack12.adb
index 29faf62e0b8..c728be4bf39 100644
--- a/gcc/ada/s-pack12.adb
+++ b/gcc/ada/s-pack12.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_12 is
function Get_12 (Arr : System.Address; N : Natural) return Bits_12 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_12 is
function GetU_12 (Arr : System.Address; N : Natural) return Bits_12 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
diff --git a/gcc/ada/s-pack12.ads b/gcc/ada/s-pack12.ads
index 002bc518208..14ee979afc9 100644
--- a/gcc/ada/s-pack12.ads
+++ b/gcc/ada/s-pack12.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack13.adb b/gcc/ada/s-pack13.adb
index 38680363857..835c99785e1 100644
--- a/gcc/ada/s-pack13.adb
+++ b/gcc/ada/s-pack13.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_13 is
function Get_13 (Arr : System.Address; N : Natural) return Bits_13 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_13 is
procedure Set_13 (Arr : System.Address; N : Natural; E : Bits_13) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack13.ads b/gcc/ada/s-pack13.ads
index 8022a90b59d..1e918c8208a 100644
--- a/gcc/ada/s-pack13.ads
+++ b/gcc/ada/s-pack13.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack14.adb b/gcc/ada/s-pack14.adb
index 2fc3c404fb2..6c0fa3fe330 100644
--- a/gcc/ada/s-pack14.adb
+++ b/gcc/ada/s-pack14.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_14 is
function Get_14 (Arr : System.Address; N : Natural) return Bits_14 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_14 is
function GetU_14 (Arr : System.Address; N : Natural) return Bits_14 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_14 is
procedure Set_14 (Arr : System.Address; N : Natural; E : Bits_14) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_14 is
procedure SetU_14 (Arr : System.Address; N : Natural; E : Bits_14) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack14.ads b/gcc/ada/s-pack14.ads
index e3744b2f587..c8e592f88a7 100644
--- a/gcc/ada/s-pack14.ads
+++ b/gcc/ada/s-pack14.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack15.adb b/gcc/ada/s-pack15.adb
index 3212f2de8de..cb545fe1e08 100644
--- a/gcc/ada/s-pack15.adb
+++ b/gcc/ada/s-pack15.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_15 is
function Get_15 (Arr : System.Address; N : Natural) return Bits_15 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_15 is
procedure Set_15 (Arr : System.Address; N : Natural; E : Bits_15) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack15.ads b/gcc/ada/s-pack15.ads
index c166f8ab76c..86c13e8caaf 100644
--- a/gcc/ada/s-pack15.ads
+++ b/gcc/ada/s-pack15.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack17.adb b/gcc/ada/s-pack17.adb
index e180609df92..a5495607773 100644
--- a/gcc/ada/s-pack17.adb
+++ b/gcc/ada/s-pack17.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_17 is
function Get_17 (Arr : System.Address; N : Natural) return Bits_17 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_17 is
procedure Set_17 (Arr : System.Address; N : Natural; E : Bits_17) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack17.ads b/gcc/ada/s-pack17.ads
index fde3bd17d52..f739138ad4b 100644
--- a/gcc/ada/s-pack17.ads
+++ b/gcc/ada/s-pack17.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack18.adb b/gcc/ada/s-pack18.adb
index d0232f08dbd..2ddc5579345 100644
--- a/gcc/ada/s-pack18.adb
+++ b/gcc/ada/s-pack18.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_18 is
function Get_18 (Arr : System.Address; N : Natural) return Bits_18 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_18 is
function GetU_18 (Arr : System.Address; N : Natural) return Bits_18 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_18 is
procedure Set_18 (Arr : System.Address; N : Natural; E : Bits_18) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_18 is
procedure SetU_18 (Arr : System.Address; N : Natural; E : Bits_18) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack18.ads b/gcc/ada/s-pack18.ads
index c689d50d5f0..936b0c5ab81 100644
--- a/gcc/ada/s-pack18.ads
+++ b/gcc/ada/s-pack18.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack19.adb b/gcc/ada/s-pack19.adb
index 4fd154d368e..063b5f1e83b 100644
--- a/gcc/ada/s-pack19.adb
+++ b/gcc/ada/s-pack19.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_19 is
function Get_19 (Arr : System.Address; N : Natural) return Bits_19 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_19 is
procedure Set_19 (Arr : System.Address; N : Natural; E : Bits_19) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack19.ads b/gcc/ada/s-pack19.ads
index 4f3e12da9cc..1f21aba7dd5 100644
--- a/gcc/ada/s-pack19.ads
+++ b/gcc/ada/s-pack19.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack20.adb b/gcc/ada/s-pack20.adb
index 317ce4dc872..b05f9ffacf5 100644
--- a/gcc/ada/s-pack20.adb
+++ b/gcc/ada/s-pack20.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_20 is
function Get_20 (Arr : System.Address; N : Natural) return Bits_20 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_20 is
function GetU_20 (Arr : System.Address; N : Natural) return Bits_20 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_20 is
procedure Set_20 (Arr : System.Address; N : Natural; E : Bits_20) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_20 is
procedure SetU_20 (Arr : System.Address; N : Natural; E : Bits_20) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack20.ads b/gcc/ada/s-pack20.ads
index 39a9dc576d2..2df64d3b93e 100644
--- a/gcc/ada/s-pack20.ads
+++ b/gcc/ada/s-pack20.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack21.adb b/gcc/ada/s-pack21.adb
index e1267a53395..1683857c661 100644
--- a/gcc/ada/s-pack21.adb
+++ b/gcc/ada/s-pack21.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_21 is
function Get_21 (Arr : System.Address; N : Natural) return Bits_21 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_21 is
procedure Set_21 (Arr : System.Address; N : Natural; E : Bits_21) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack21.ads b/gcc/ada/s-pack21.ads
index 7de18f9827d..c8c0951cc55 100644
--- a/gcc/ada/s-pack21.ads
+++ b/gcc/ada/s-pack21.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack22.adb b/gcc/ada/s-pack22.adb
index ab63535d0ba..31f533a2aaa 100644
--- a/gcc/ada/s-pack22.adb
+++ b/gcc/ada/s-pack22.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_22 is
function Get_22 (Arr : System.Address; N : Natural) return Bits_22 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_22 is
function GetU_22 (Arr : System.Address; N : Natural) return Bits_22 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_22 is
procedure Set_22 (Arr : System.Address; N : Natural; E : Bits_22) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_22 is
procedure SetU_22 (Arr : System.Address; N : Natural; E : Bits_22) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack22.ads b/gcc/ada/s-pack22.ads
index 3968d23fc82..883504e6cd8 100644
--- a/gcc/ada/s-pack22.ads
+++ b/gcc/ada/s-pack22.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack23.adb b/gcc/ada/s-pack23.adb
index 20d59365fc8..840d63d625a 100644
--- a/gcc/ada/s-pack23.adb
+++ b/gcc/ada/s-pack23.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_23 is
function Get_23 (Arr : System.Address; N : Natural) return Bits_23 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_23 is
procedure Set_23 (Arr : System.Address; N : Natural; E : Bits_23) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack23.ads b/gcc/ada/s-pack23.ads
index f19a9e93ac3..1efe76b400a 100644
--- a/gcc/ada/s-pack23.ads
+++ b/gcc/ada/s-pack23.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack24.adb b/gcc/ada/s-pack24.adb
index b44b999db83..98ec9d556f9 100644
--- a/gcc/ada/s-pack24.adb
+++ b/gcc/ada/s-pack24.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_24 is
function Get_24 (Arr : System.Address; N : Natural) return Bits_24 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_24 is
function GetU_24 (Arr : System.Address; N : Natural) return Bits_24 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_24 is
procedure Set_24 (Arr : System.Address; N : Natural; E : Bits_24) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_24 is
procedure SetU_24 (Arr : System.Address; N : Natural; E : Bits_24) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack24.ads b/gcc/ada/s-pack24.ads
index 8c1834e5cc8..6581de89148 100644
--- a/gcc/ada/s-pack24.ads
+++ b/gcc/ada/s-pack24.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack25.adb b/gcc/ada/s-pack25.adb
index 8803c62558c..bab19229628 100644
--- a/gcc/ada/s-pack25.adb
+++ b/gcc/ada/s-pack25.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack25.ads b/gcc/ada/s-pack25.ads
index 7882d172f16..fd464106721 100644
--- a/gcc/ada/s-pack25.ads
+++ b/gcc/ada/s-pack25.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack26.adb b/gcc/ada/s-pack26.adb
index 48aaad6edb0..ecddf4d3a71 100644
--- a/gcc/ada/s-pack26.adb
+++ b/gcc/ada/s-pack26.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_26 is
function Get_26 (Arr : System.Address; N : Natural) return Bits_26 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_26 is
function GetU_26 (Arr : System.Address; N : Natural) return Bits_26 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_26 is
procedure Set_26 (Arr : System.Address; N : Natural; E : Bits_26) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_26 is
procedure SetU_26 (Arr : System.Address; N : Natural; E : Bits_26) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack26.ads b/gcc/ada/s-pack26.ads
index 793b038c386..a1c7a359a16 100644
--- a/gcc/ada/s-pack26.ads
+++ b/gcc/ada/s-pack26.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack27.adb b/gcc/ada/s-pack27.adb
index 3ad9e1a50a0..b2492b5c213 100644
--- a/gcc/ada/s-pack27.adb
+++ b/gcc/ada/s-pack27.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_27 is
function Get_27 (Arr : System.Address; N : Natural) return Bits_27 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_27 is
procedure Set_27 (Arr : System.Address; N : Natural; E : Bits_27) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack27.ads b/gcc/ada/s-pack27.ads
index edbda505eeb..8a77d48905a 100644
--- a/gcc/ada/s-pack27.ads
+++ b/gcc/ada/s-pack27.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack28.adb b/gcc/ada/s-pack28.adb
index 801e0bc8791..f2693ab5678 100644
--- a/gcc/ada/s-pack28.adb
+++ b/gcc/ada/s-pack28.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_28 is
function Get_28 (Arr : System.Address; N : Natural) return Bits_28 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_28 is
function GetU_28 (Arr : System.Address; N : Natural) return Bits_28 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_28 is
procedure Set_28 (Arr : System.Address; N : Natural; E : Bits_28) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_28 is
procedure SetU_28 (Arr : System.Address; N : Natural; E : Bits_28) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack28.ads b/gcc/ada/s-pack28.ads
index 5a303079a9e..d4df26ac627 100644
--- a/gcc/ada/s-pack28.ads
+++ b/gcc/ada/s-pack28.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack29.adb b/gcc/ada/s-pack29.adb
index 8c686e65fed..42eda275b19 100644
--- a/gcc/ada/s-pack29.adb
+++ b/gcc/ada/s-pack29.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_29 is
function Get_29 (Arr : System.Address; N : Natural) return Bits_29 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_29 is
procedure Set_29 (Arr : System.Address; N : Natural; E : Bits_29) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack29.ads b/gcc/ada/s-pack29.ads
index 6c1ad90503f..403af534c2b 100644
--- a/gcc/ada/s-pack29.ads
+++ b/gcc/ada/s-pack29.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack30.adb b/gcc/ada/s-pack30.adb
index 6206122e592..2ab521233a5 100644
--- a/gcc/ada/s-pack30.adb
+++ b/gcc/ada/s-pack30.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_30 is
function Get_30 (Arr : System.Address; N : Natural) return Bits_30 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_30 is
function GetU_30 (Arr : System.Address; N : Natural) return Bits_30 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_30 is
procedure Set_30 (Arr : System.Address; N : Natural; E : Bits_30) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_30 is
procedure SetU_30 (Arr : System.Address; N : Natural; E : Bits_30) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack30.ads b/gcc/ada/s-pack30.ads
index c85fe7c78fb..43b624fe9e2 100644
--- a/gcc/ada/s-pack30.ads
+++ b/gcc/ada/s-pack30.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack31.adb b/gcc/ada/s-pack31.adb
index 71f07724a59..076d96e5f1c 100644
--- a/gcc/ada/s-pack31.adb
+++ b/gcc/ada/s-pack31.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_31 is
function Get_31 (Arr : System.Address; N : Natural) return Bits_31 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_31 is
procedure Set_31 (Arr : System.Address; N : Natural; E : Bits_31) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack31.ads b/gcc/ada/s-pack31.ads
index d23157bbfed..06c8832dfe3 100644
--- a/gcc/ada/s-pack31.ads
+++ b/gcc/ada/s-pack31.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack33.adb b/gcc/ada/s-pack33.adb
index f05fe6b43d1..ce0c0f8ddee 100644
--- a/gcc/ada/s-pack33.adb
+++ b/gcc/ada/s-pack33.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_33 is
function Get_33 (Arr : System.Address; N : Natural) return Bits_33 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_33 is
procedure Set_33 (Arr : System.Address; N : Natural; E : Bits_33) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack33.ads b/gcc/ada/s-pack33.ads
index 8b8d5c199e2..995341c043b 100644
--- a/gcc/ada/s-pack33.ads
+++ b/gcc/ada/s-pack33.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack34.adb b/gcc/ada/s-pack34.adb
index 2d08dbda277..351cad33d20 100644
--- a/gcc/ada/s-pack34.adb
+++ b/gcc/ada/s-pack34.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_34 is
function Get_34 (Arr : System.Address; N : Natural) return Bits_34 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_34 is
function GetU_34 (Arr : System.Address; N : Natural) return Bits_34 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_34 is
procedure Set_34 (Arr : System.Address; N : Natural; E : Bits_34) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_34 is
procedure SetU_34 (Arr : System.Address; N : Natural; E : Bits_34) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack34.ads b/gcc/ada/s-pack34.ads
index db7ffbb6d61..5a4ee7c664b 100644
--- a/gcc/ada/s-pack34.ads
+++ b/gcc/ada/s-pack34.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack35.adb b/gcc/ada/s-pack35.adb
index 2975949fe1f..f5128f9006f 100644
--- a/gcc/ada/s-pack35.adb
+++ b/gcc/ada/s-pack35.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_35 is
function Get_35 (Arr : System.Address; N : Natural) return Bits_35 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_35 is
procedure Set_35 (Arr : System.Address; N : Natural; E : Bits_35) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack35.ads b/gcc/ada/s-pack35.ads
index 1f07dde87ef..729aa95de7f 100644
--- a/gcc/ada/s-pack35.ads
+++ b/gcc/ada/s-pack35.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack36.adb b/gcc/ada/s-pack36.adb
index 447a0e2b9d0..c49b7527710 100644
--- a/gcc/ada/s-pack36.adb
+++ b/gcc/ada/s-pack36.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_36 is
function Get_36 (Arr : System.Address; N : Natural) return Bits_36 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_36 is
function GetU_36 (Arr : System.Address; N : Natural) return Bits_36 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_36 is
procedure Set_36 (Arr : System.Address; N : Natural; E : Bits_36) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_36 is
procedure SetU_36 (Arr : System.Address; N : Natural; E : Bits_36) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack36.ads b/gcc/ada/s-pack36.ads
index 509e65b9c84..619516022b4 100644
--- a/gcc/ada/s-pack36.ads
+++ b/gcc/ada/s-pack36.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack37.adb b/gcc/ada/s-pack37.adb
index e48fb1db23d..6a07d716b1c 100644
--- a/gcc/ada/s-pack37.adb
+++ b/gcc/ada/s-pack37.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_37 is
function Get_37 (Arr : System.Address; N : Natural) return Bits_37 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_37 is
procedure Set_37 (Arr : System.Address; N : Natural; E : Bits_37) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack37.ads b/gcc/ada/s-pack37.ads
index df2156d8c8b..57afa3a2b9a 100644
--- a/gcc/ada/s-pack37.ads
+++ b/gcc/ada/s-pack37.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack38.adb b/gcc/ada/s-pack38.adb
index 422de48ed83..d99670be6cf 100644
--- a/gcc/ada/s-pack38.adb
+++ b/gcc/ada/s-pack38.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_38 is
function Get_38 (Arr : System.Address; N : Natural) return Bits_38 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_38 is
function GetU_38 (Arr : System.Address; N : Natural) return Bits_38 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_38 is
procedure Set_38 (Arr : System.Address; N : Natural; E : Bits_38) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_38 is
procedure SetU_38 (Arr : System.Address; N : Natural; E : Bits_38) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack38.ads b/gcc/ada/s-pack38.ads
index a9d9a4953f2..12aeea0caa2 100644
--- a/gcc/ada/s-pack38.ads
+++ b/gcc/ada/s-pack38.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack39.adb b/gcc/ada/s-pack39.adb
index d2b75f9b1ad..fc4daf4e10d 100644
--- a/gcc/ada/s-pack39.adb
+++ b/gcc/ada/s-pack39.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_39 is
function Get_39 (Arr : System.Address; N : Natural) return Bits_39 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_39 is
procedure Set_39 (Arr : System.Address; N : Natural; E : Bits_39) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack39.ads b/gcc/ada/s-pack39.ads
index 4a2ff511c4d..fda38ee14d6 100644
--- a/gcc/ada/s-pack39.ads
+++ b/gcc/ada/s-pack39.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack40.adb b/gcc/ada/s-pack40.adb
index 3068334c9ea..46824abd145 100644
--- a/gcc/ada/s-pack40.adb
+++ b/gcc/ada/s-pack40.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_40 is
function Get_40 (Arr : System.Address; N : Natural) return Bits_40 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_40 is
function GetU_40 (Arr : System.Address; N : Natural) return Bits_40 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_40 is
procedure Set_40 (Arr : System.Address; N : Natural; E : Bits_40) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_40 is
procedure SetU_40 (Arr : System.Address; N : Natural; E : Bits_40) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack40.ads b/gcc/ada/s-pack40.ads
index ee7981c7ec5..21a1313af89 100644
--- a/gcc/ada/s-pack40.ads
+++ b/gcc/ada/s-pack40.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack41.adb b/gcc/ada/s-pack41.adb
index 26052805a62..b245633cf09 100644
--- a/gcc/ada/s-pack41.adb
+++ b/gcc/ada/s-pack41.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_41 is
function Get_41 (Arr : System.Address; N : Natural) return Bits_41 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_41 is
procedure Set_41 (Arr : System.Address; N : Natural; E : Bits_41) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack41.ads b/gcc/ada/s-pack41.ads
index 9a956f3f1d6..d4a5dc7b165 100644
--- a/gcc/ada/s-pack41.ads
+++ b/gcc/ada/s-pack41.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack42.adb b/gcc/ada/s-pack42.adb
index 939662ab2a4..3444ab33fea 100644
--- a/gcc/ada/s-pack42.adb
+++ b/gcc/ada/s-pack42.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_42 is
function Get_42 (Arr : System.Address; N : Natural) return Bits_42 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_42 is
function GetU_42 (Arr : System.Address; N : Natural) return Bits_42 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_42 is
procedure Set_42 (Arr : System.Address; N : Natural; E : Bits_42) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_42 is
procedure SetU_42 (Arr : System.Address; N : Natural; E : Bits_42) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack42.ads b/gcc/ada/s-pack42.ads
index 82ce7105076..36ef28b18ed 100644
--- a/gcc/ada/s-pack42.ads
+++ b/gcc/ada/s-pack42.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack43.adb b/gcc/ada/s-pack43.adb
index 5df98b62626..b9e5ca0eaaf 100644
--- a/gcc/ada/s-pack43.adb
+++ b/gcc/ada/s-pack43.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_43 is
function Get_43 (Arr : System.Address; N : Natural) return Bits_43 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_43 is
procedure Set_43 (Arr : System.Address; N : Natural; E : Bits_43) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack43.ads b/gcc/ada/s-pack43.ads
index 74d4fada4ae..844c9d2bd7a 100644
--- a/gcc/ada/s-pack43.ads
+++ b/gcc/ada/s-pack43.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack44.adb b/gcc/ada/s-pack44.adb
index 8eb16d7802e..b3f2f7561a6 100644
--- a/gcc/ada/s-pack44.adb
+++ b/gcc/ada/s-pack44.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_44 is
function Get_44 (Arr : System.Address; N : Natural) return Bits_44 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_44 is
function GetU_44 (Arr : System.Address; N : Natural) return Bits_44 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_44 is
procedure Set_44 (Arr : System.Address; N : Natural; E : Bits_44) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_44 is
procedure SetU_44 (Arr : System.Address; N : Natural; E : Bits_44) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack44.ads b/gcc/ada/s-pack44.ads
index fa6863f82e4..a09c2d36453 100644
--- a/gcc/ada/s-pack44.ads
+++ b/gcc/ada/s-pack44.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack45.adb b/gcc/ada/s-pack45.adb
index 32079b3b933..7f3426f5673 100644
--- a/gcc/ada/s-pack45.adb
+++ b/gcc/ada/s-pack45.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_45 is
function Get_45 (Arr : System.Address; N : Natural) return Bits_45 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_45 is
procedure Set_45 (Arr : System.Address; N : Natural; E : Bits_45) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack45.ads b/gcc/ada/s-pack45.ads
index 78ebaa1924e..bdd8338b35e 100644
--- a/gcc/ada/s-pack45.ads
+++ b/gcc/ada/s-pack45.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack46.adb b/gcc/ada/s-pack46.adb
index a17c078d110..efb039472c3 100644
--- a/gcc/ada/s-pack46.adb
+++ b/gcc/ada/s-pack46.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_46 is
function Get_46 (Arr : System.Address; N : Natural) return Bits_46 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_46 is
function GetU_46 (Arr : System.Address; N : Natural) return Bits_46 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_46 is
procedure Set_46 (Arr : System.Address; N : Natural; E : Bits_46) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_46 is
procedure SetU_46 (Arr : System.Address; N : Natural; E : Bits_46) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack46.ads b/gcc/ada/s-pack46.ads
index 09256709dad..5ec4132c965 100644
--- a/gcc/ada/s-pack46.ads
+++ b/gcc/ada/s-pack46.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack47.adb b/gcc/ada/s-pack47.adb
index cd49c39023f..ef73a106638 100644
--- a/gcc/ada/s-pack47.adb
+++ b/gcc/ada/s-pack47.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_47 is
function Get_47 (Arr : System.Address; N : Natural) return Bits_47 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_47 is
procedure Set_47 (Arr : System.Address; N : Natural; E : Bits_47) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack47.ads b/gcc/ada/s-pack47.ads
index 4ca1ba3e96c..e444ee08c26 100644
--- a/gcc/ada/s-pack47.ads
+++ b/gcc/ada/s-pack47.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack48.adb b/gcc/ada/s-pack48.adb
index 91751617c8a..5839bc92c5c 100644
--- a/gcc/ada/s-pack48.adb
+++ b/gcc/ada/s-pack48.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_48 is
function Get_48 (Arr : System.Address; N : Natural) return Bits_48 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_48 is
function GetU_48 (Arr : System.Address; N : Natural) return Bits_48 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_48 is
procedure Set_48 (Arr : System.Address; N : Natural; E : Bits_48) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_48 is
procedure SetU_48 (Arr : System.Address; N : Natural; E : Bits_48) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack48.ads b/gcc/ada/s-pack48.ads
index 0004f9275c9..e832e3607cc 100644
--- a/gcc/ada/s-pack48.ads
+++ b/gcc/ada/s-pack48.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack49.adb b/gcc/ada/s-pack49.adb
index 7e39703ce8d..a34380dc70e 100644
--- a/gcc/ada/s-pack49.adb
+++ b/gcc/ada/s-pack49.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_49 is
function Get_49 (Arr : System.Address; N : Natural) return Bits_49 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_49 is
procedure Set_49 (Arr : System.Address; N : Natural; E : Bits_49) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack49.ads b/gcc/ada/s-pack49.ads
index f60042b28ab..9b448129a90 100644
--- a/gcc/ada/s-pack49.ads
+++ b/gcc/ada/s-pack49.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack50.adb b/gcc/ada/s-pack50.adb
index 4ff69b20bc9..cb70a01dbe1 100644
--- a/gcc/ada/s-pack50.adb
+++ b/gcc/ada/s-pack50.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_50 is
function Get_50 (Arr : System.Address; N : Natural) return Bits_50 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_50 is
function GetU_50 (Arr : System.Address; N : Natural) return Bits_50 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_50 is
procedure Set_50 (Arr : System.Address; N : Natural; E : Bits_50) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_50 is
procedure SetU_50 (Arr : System.Address; N : Natural; E : Bits_50) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack50.ads b/gcc/ada/s-pack50.ads
index 0ac3532406c..cb639f9eb28 100644
--- a/gcc/ada/s-pack50.ads
+++ b/gcc/ada/s-pack50.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack51.adb b/gcc/ada/s-pack51.adb
index 5c5f926169b..9d71ba01539 100644
--- a/gcc/ada/s-pack51.adb
+++ b/gcc/ada/s-pack51.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_51 is
function Get_51 (Arr : System.Address; N : Natural) return Bits_51 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_51 is
procedure Set_51 (Arr : System.Address; N : Natural; E : Bits_51) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack51.ads b/gcc/ada/s-pack51.ads
index b5a479eb013..11e107f4fc0 100644
--- a/gcc/ada/s-pack51.ads
+++ b/gcc/ada/s-pack51.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack52.adb b/gcc/ada/s-pack52.adb
index 86765bd1bc5..88c21ff8feb 100644
--- a/gcc/ada/s-pack52.adb
+++ b/gcc/ada/s-pack52.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_52 is
function Get_52 (Arr : System.Address; N : Natural) return Bits_52 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_52 is
function GetU_52 (Arr : System.Address; N : Natural) return Bits_52 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_52 is
procedure Set_52 (Arr : System.Address; N : Natural; E : Bits_52) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_52 is
procedure SetU_52 (Arr : System.Address; N : Natural; E : Bits_52) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack52.ads b/gcc/ada/s-pack52.ads
index 0bb2dfc5a3b..5b19da30d77 100644
--- a/gcc/ada/s-pack52.ads
+++ b/gcc/ada/s-pack52.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack53.adb b/gcc/ada/s-pack53.adb
index 76a63ce752c..72cf0ea414a 100644
--- a/gcc/ada/s-pack53.adb
+++ b/gcc/ada/s-pack53.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_53 is
function Get_53 (Arr : System.Address; N : Natural) return Bits_53 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_53 is
procedure Set_53 (Arr : System.Address; N : Natural; E : Bits_53) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack53.ads b/gcc/ada/s-pack53.ads
index eaf4fcc6551..cc46a810893 100644
--- a/gcc/ada/s-pack53.ads
+++ b/gcc/ada/s-pack53.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack54.adb b/gcc/ada/s-pack54.adb
index 53a56a4595f..64be7270f7f 100644
--- a/gcc/ada/s-pack54.adb
+++ b/gcc/ada/s-pack54.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_54 is
function Get_54 (Arr : System.Address; N : Natural) return Bits_54 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_54 is
function GetU_54 (Arr : System.Address; N : Natural) return Bits_54 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_54 is
procedure Set_54 (Arr : System.Address; N : Natural; E : Bits_54) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_54 is
procedure SetU_54 (Arr : System.Address; N : Natural; E : Bits_54) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack54.ads b/gcc/ada/s-pack54.ads
index efecf497138..1bddbd596c9 100644
--- a/gcc/ada/s-pack54.ads
+++ b/gcc/ada/s-pack54.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack55.adb b/gcc/ada/s-pack55.adb
index e5b712b6058..c36bbc82490 100644
--- a/gcc/ada/s-pack55.adb
+++ b/gcc/ada/s-pack55.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_55 is
function Get_55 (Arr : System.Address; N : Natural) return Bits_55 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_55 is
procedure Set_55 (Arr : System.Address; N : Natural; E : Bits_55) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack55.ads b/gcc/ada/s-pack55.ads
index 61c8709f981..5727ef9b112 100644
--- a/gcc/ada/s-pack55.ads
+++ b/gcc/ada/s-pack55.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack56.adb b/gcc/ada/s-pack56.adb
index 4998fad86c4..dbeb6cf5a8e 100644
--- a/gcc/ada/s-pack56.adb
+++ b/gcc/ada/s-pack56.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_56 is
function Get_56 (Arr : System.Address; N : Natural) return Bits_56 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_56 is
function GetU_56 (Arr : System.Address; N : Natural) return Bits_56 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_56 is
procedure Set_56 (Arr : System.Address; N : Natural; E : Bits_56) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_56 is
procedure SetU_56 (Arr : System.Address; N : Natural; E : Bits_56) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack56.ads b/gcc/ada/s-pack56.ads
index d0d3c792aa3..1db23e854fb 100644
--- a/gcc/ada/s-pack56.ads
+++ b/gcc/ada/s-pack56.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack57.adb b/gcc/ada/s-pack57.adb
index 2da80cdadaf..190c6092eda 100644
--- a/gcc/ada/s-pack57.adb
+++ b/gcc/ada/s-pack57.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_57 is
function Get_57 (Arr : System.Address; N : Natural) return Bits_57 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_57 is
procedure Set_57 (Arr : System.Address; N : Natural; E : Bits_57) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack57.ads b/gcc/ada/s-pack57.ads
index 2781b4aa439..be6f9d2a2b4 100644
--- a/gcc/ada/s-pack57.ads
+++ b/gcc/ada/s-pack57.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack58.adb b/gcc/ada/s-pack58.adb
index 387dcfca04a..710f1bc6cc4 100644
--- a/gcc/ada/s-pack58.adb
+++ b/gcc/ada/s-pack58.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_58 is
function Get_58 (Arr : System.Address; N : Natural) return Bits_58 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_58 is
function GetU_58 (Arr : System.Address; N : Natural) return Bits_58 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_58 is
procedure Set_58 (Arr : System.Address; N : Natural; E : Bits_58) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_58 is
procedure SetU_58 (Arr : System.Address; N : Natural; E : Bits_58) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack58.ads b/gcc/ada/s-pack58.ads
index a88434556a6..5a18c5a462e 100644
--- a/gcc/ada/s-pack58.ads
+++ b/gcc/ada/s-pack58.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack59.adb b/gcc/ada/s-pack59.adb
index 7f79d19fd1c..fed0bb2e8db 100644
--- a/gcc/ada/s-pack59.adb
+++ b/gcc/ada/s-pack59.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_59 is
function Get_59 (Arr : System.Address; N : Natural) return Bits_59 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_59 is
procedure Set_59 (Arr : System.Address; N : Natural; E : Bits_59) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack59.ads b/gcc/ada/s-pack59.ads
index 492b9ce6395..e527306109b 100644
--- a/gcc/ada/s-pack59.ads
+++ b/gcc/ada/s-pack59.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack60.adb b/gcc/ada/s-pack60.adb
index 630e84b1121..8c91ec16ffc 100644
--- a/gcc/ada/s-pack60.adb
+++ b/gcc/ada/s-pack60.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_60 is
function Get_60 (Arr : System.Address; N : Natural) return Bits_60 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_60 is
function GetU_60 (Arr : System.Address; N : Natural) return Bits_60 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_60 is
procedure Set_60 (Arr : System.Address; N : Natural; E : Bits_60) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_60 is
procedure SetU_60 (Arr : System.Address; N : Natural; E : Bits_60) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack60.ads b/gcc/ada/s-pack60.ads
index fd6f7d05591..121c29acd58 100644
--- a/gcc/ada/s-pack60.ads
+++ b/gcc/ada/s-pack60.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack61.adb b/gcc/ada/s-pack61.adb
index 58f33284af2..cdc4b7114c6 100644
--- a/gcc/ada/s-pack61.adb
+++ b/gcc/ada/s-pack61.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_61 is
function Get_61 (Arr : System.Address; N : Natural) return Bits_61 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_61 is
procedure Set_61 (Arr : System.Address; N : Natural; E : Bits_61) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack61.ads b/gcc/ada/s-pack61.ads
index e745c5e6fe4..0209e75b227 100644
--- a/gcc/ada/s-pack61.ads
+++ b/gcc/ada/s-pack61.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack62.adb b/gcc/ada/s-pack62.adb
index da4ebad84f6..da442169ab2 100644
--- a/gcc/ada/s-pack62.adb
+++ b/gcc/ada/s-pack62.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -92,7 +92,6 @@ package body System.Pack_62 is
function Get_62 (Arr : System.Address; N : Natural) return Bits_62 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_62 is
function GetU_62 (Arr : System.Address; N : Natural) return Bits_62 is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_62 is
procedure Set_62 (Arr : System.Address; N : Natural; E : Bits_62) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_62 is
procedure SetU_62 (Arr : System.Address; N : Natural; E : Bits_62) is
C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack62.ads b/gcc/ada/s-pack62.ads
index a7642b5ca27..969880d0d0d 100644
--- a/gcc/ada/s-pack62.ads
+++ b/gcc/ada/s-pack62.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-pack63.adb b/gcc/ada/s-pack63.adb
index 8ebf4f564aa..d36c30e2d5a 100644
--- a/gcc/ada/s-pack63.adb
+++ b/gcc/ada/s-pack63.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_63 is
function Get_63 (Arr : System.Address; N : Natural) return Bits_63 is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_63 is
procedure Set_63 (Arr : System.Address; N : Natural; E : Bits_63) is
C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
begin
case N07 (Uns (N) mod 8) is
when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack63.ads b/gcc/ada/s-pack63.ads
index 08f84f542fd..cb4038242e5 100644
--- a/gcc/ada/s-pack63.ads
+++ b/gcc/ada/s-pack63.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-parame-mingw.adb b/gcc/ada/s-parame-mingw.adb
index e73911cf8b1..d6bc023afbf 100644
--- a/gcc/ada/s-parame-mingw.adb
+++ b/gcc/ada/s-parame-mingw.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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-parint.adb b/gcc/ada/s-parint.adb
index b7a676e8dde..6091f3d1db6 100644
--- a/gcc/ada/s-parint.adb
+++ b/gcc/ada/s-parint.adb
@@ -7,7 +7,7 @@
-- B o d y --
-- (Dummy body for non-distributed case) --
-- --
--- Copyright (C) 1995-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1995-2005, 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- --
@@ -40,7 +40,7 @@ package body System.Partition_Interface is
type String_Access is access String;
- -- To have a minimal implementation of U'Partition_ID.
+ -- To have a minimal implementation of U'Partition_ID
type Pkg_Node;
type Pkg_List is access Pkg_Node;
diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads
index 40396d22112..4eeb67109a2 100644
--- a/gcc/ada/s-parint.ads
+++ b/gcc/ada/s-parint.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1995-2005, 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-purexc.ads b/gcc/ada/s-purexc.ads
index c9edb603353..4600f4a07db 100644
--- a/gcc/ada/s-purexc.ads
+++ b/gcc/ada/s-purexc.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2000-2005, AdaCore --
-- --
-- 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-restri.adb b/gcc/ada/s-restri.adb
index 81d16d07c15..d7b95256873 100644
--- a/gcc/ada/s-restri.adb
+++ b/gcc/ada/s-restri.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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-restri.ads b/gcc/ada/s-restri.ads
index 1d2734ce340..0c9a4e79fee 100644
--- a/gcc/ada/s-restri.ads
+++ b/gcc/ada/s-restri.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, 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-scaval.adb b/gcc/ada/s-scaval.adb
index 61f2fca6c2f..71b5c6017a5 100644
--- a/gcc/ada/s-scaval.adb
+++ b/gcc/ada/s-scaval.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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-scaval.ads b/gcc/ada/s-scaval.ads
index 9e7962c433a..b39bd82a1ea 100644
--- a/gcc/ada/s-scaval.ads
+++ b/gcc/ada/s-scaval.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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-secsta.adb b/gcc/ada/s-secsta.adb
index 97dd744f3c1..3c6485cbf6f 100644
--- a/gcc/ada/s-secsta.adb
+++ b/gcc/ada/s-secsta.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-secsta.ads b/gcc/ada/s-secsta.ads
index 22e0b4831d0..ad4a98decf2 100644
--- a/gcc/ada/s-secsta.ads
+++ b/gcc/ada/s-secsta.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-sequio.adb b/gcc/ada/s-sequio.adb
index 2e5a29b24f2..4ab259f6fbe 100644
--- a/gcc/ada/s-sequio.adb
+++ b/gcc/ada/s-sequio.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-sequio.ads b/gcc/ada/s-sequio.ads
index fcd8233b527..3ad99820ca9 100644
--- a/gcc/ada/s-sequio.ads
+++ b/gcc/ada/s-sequio.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-tasuti.adb b/gcc/ada/s-tasuti.adb
index 8877c784e53..6721681827e 100644
--- a/gcc/ada/s-tasuti.adb
+++ b/gcc/ada/s-tasuti.adb
@@ -294,7 +294,7 @@ package body System.Tasking.Utilities is
if Parent /= Environment_Task then
- -- We can not lock three tasks at the same time, so defer the
+ -- We cannot lock three tasks at the same time, so defer the
-- operations on the parent.
Parent_Needs_Updating := True;
@@ -382,7 +382,7 @@ package body System.Tasking.Utilities is
pragma Assert (Self_ID.Awake_Count = 1);
end if;
- -- We are accepting with a terminate alternative.
+ -- We are accepting with a terminate alternative
else
if Self_ID.Open_Accepts = null then
@@ -494,7 +494,7 @@ package body System.Tasking.Utilities is
-- C has a parent, P.
loop
- -- Notify P that C has gone passive.
+ -- Notify P that C has gone passive
P.Awake_Count := P.Awake_Count - 1;
@@ -516,7 +516,7 @@ package body System.Tasking.Utilities is
Write_Lock (C);
end loop;
- -- P has non-passive dependents.
+ -- P has non-passive dependents
if P.Common.State = Master_Completion_Sleep
and then C.Master_of_Task = P.Master_Within
diff --git a/gcc/ada/s-traceb-hpux.adb b/gcc/ada/s-traceb-hpux.adb
index 013435bd100..5457cb1d0ee 100644
--- a/gcc/ada/s-traceb-hpux.adb
+++ b/gcc/ada/s-traceb-hpux.adb
@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2003 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -359,7 +359,7 @@ package body System.Traceback is
return False;
end if;
- -- Now, safely call the unwinder and use the results.
+ -- Now, safely call the unwinder and use the results
if U_get_previous_frame_x (Frame,
Up_Frame'Access,
@@ -510,7 +510,7 @@ package body System.Traceback is
Frame_Info_Offset : constant := 8;
begin
- -- First try to locate the descriptor in the program's unwind table.
+ -- First try to locate the descriptor in the program's unwind table
UWD_Address := U_get_unwind_entry (Frame.cur_rlo,
Frame.cur_rls,
@@ -562,7 +562,7 @@ package body System.Traceback is
Pop_Success := Pop_Frame (Frame'Access);
- -- Skip the requested number of frames.
+ -- Skip the requested number of frames
for I in 1 .. Skip_Frames loop
Pop_Success := Pop_Frame (Frame'Access);
diff --git a/gcc/ada/s-traceb-mastop.adb b/gcc/ada/s-traceb-mastop.adb
index fc337fbef4b..9591b2d2ad6 100644
--- a/gcc/ada/s-traceb-mastop.adb
+++ b/gcc/ada/s-traceb-mastop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2005, AdaCore --
-- --
-- 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- --
@@ -100,8 +100,8 @@ package body System.Traceback is
------------------
function C_Call_Chain
- (Traceback : System.Address;
- Max_Len : Natural) return Natural
+ (Traceback : System.Address;
+ Max_Len : Natural) return Natural
is
Val : Natural;
begin
diff --git a/gcc/ada/s-traceb.adb b/gcc/ada/s-traceb.adb
index 5bfc830772f..e1c52080dd2 100644
--- a/gcc/ada/s-traceb.adb
+++ b/gcc/ada/s-traceb.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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-traceb.ads b/gcc/ada/s-traceb.ads
index dbab25cbb03..23e64ff498b 100644
--- a/gcc/ada/s-traceb.ads
+++ b/gcc/ada/s-traceb.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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- --
@@ -84,6 +84,6 @@ package System.Traceback is
Max_Len : Natural)
return Natural;
pragma Export (C, C_Call_Chain, "system__traceback__c_call_chain");
- -- Version that can be used directly from C.
+ -- Version that can be used directly from C
end System.Traceback;
diff --git a/gcc/ada/s-valboo.adb b/gcc/ada/s-valboo.adb
index c569b2c3b34..5d23037e57e 100644
--- a/gcc/ada/s-valboo.adb
+++ b/gcc/ada/s-valboo.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -49,16 +49,13 @@ package body System.Val_Bool is
if S (F .. L) = "TRUE" then
return True;
- end if;
- if S (F .. L) = "FALSE" then
+ elsif S (F .. L) = "FALSE" then
return False;
- end if;
-
- raise Constraint_Error;
-
- -- Above should use elsif, but this doesn't work in GNAT version 1.81???
+ else
+ raise Constraint_Error;
+ end if;
end Value_Boolean;
end System.Val_Bool;
diff --git a/gcc/ada/s-valboo.ads b/gcc/ada/s-valboo.ads
index e08d337f58f..c2bfca3c701 100644
--- a/gcc/ada/s-valboo.ads
+++ b/gcc/ada/s-valboo.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -35,6 +35,6 @@ package System.Val_Bool is
pragma Pure;
function Value_Boolean (Str : String) return Boolean;
- -- Computes Boolean'Value (Str).
+ -- Computes Boolean'Value (Str)
end System.Val_Bool;
diff --git a/gcc/ada/s-valcha.adb b/gcc/ada/s-valcha.adb
index 561d170c819..734b2af39f5 100644
--- a/gcc/ada/s-valcha.adb
+++ b/gcc/ada/s-valcha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -69,7 +69,6 @@ package body System.Val_Char is
raise Constraint_Error;
end if;
-
end Value_Character;
end System.Val_Char;
diff --git a/gcc/ada/s-valcha.ads b/gcc/ada/s-valcha.ads
index 903ba53e063..fa31f13fd5f 100644
--- a/gcc/ada/s-valcha.ads
+++ b/gcc/ada/s-valcha.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -35,6 +35,6 @@ package System.Val_Char is
pragma Pure;
function Value_Character (Str : String) return Character;
- -- Computes Character'Value (Str).
+ -- Computes Character'Value (Str)
end System.Val_Char;
diff --git a/gcc/ada/s-valdec.adb b/gcc/ada/s-valdec.adb
index 6bfcfb65ec0..dbac049edef 100644
--- a/gcc/ada/s-valdec.adb
+++ b/gcc/ada/s-valdec.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -48,11 +48,9 @@ package body System.Val_Dec is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Scale : Integer)
- return Integer
+ Scale : Integer) return Integer
is
Val : Long_Long_Float;
-
begin
Val := Scan_Real (Str, Ptr, Max);
return Integer (Val * 10.0 ** Scale);
diff --git a/gcc/ada/s-valdec.ads b/gcc/ada/s-valdec.ads
index eb563dedf6b..df36ebd9007 100644
--- a/gcc/ada/s-valdec.ads
+++ b/gcc/ada/s-valdec.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -42,8 +42,7 @@ package System.Val_Dec is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Scale : Integer)
- return Integer;
+ Scale : Integer) return Integer;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- real literal according to the syntax described in (RM 3.5(43)). The
-- substring scanned extends no further than Str (Max). There are three
diff --git a/gcc/ada/s-valint.adb b/gcc/ada/s-valint.adb
index 7598efdea9c..8bfb3733d4b 100644
--- a/gcc/ada/s-valint.adb
+++ b/gcc/ada/s-valint.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -42,9 +42,9 @@ package body System.Val_Int is
------------------
function Scan_Integer
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return Integer
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Integer
is
Uval : Unsigned;
-- Unsigned result
diff --git a/gcc/ada/s-valint.ads b/gcc/ada/s-valint.ads
index 32c6be32cc5..6413a349272 100644
--- a/gcc/ada/s-valint.ads
+++ b/gcc/ada/s-valint.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -38,9 +38,9 @@ package System.Val_Int is
pragma Pure;
function Scan_Integer
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return Integer;
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Integer;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- integer according to the syntax described in (RM 3.5(43)). The substring
-- scanned extends no further than Str (Max). There are three cases for the
diff --git a/gcc/ada/s-vallld.adb b/gcc/ada/s-vallld.adb
index 5f7f5c3f6e1..958fb96aa6d 100644
--- a/gcc/ada/s-vallld.adb
+++ b/gcc/ada/s-vallld.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -47,11 +47,9 @@ package body System.Val_LLD is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Scale : Integer)
- return Long_Long_Integer
+ Scale : Integer) return Long_Long_Integer
is
Val : Long_Long_Float;
-
begin
Val := Scan_Real (Str, Ptr, Max);
return Long_Long_Integer (Val * 10.0 ** Scale);
@@ -65,8 +63,7 @@ package body System.Val_LLD is
function Value_Long_Long_Decimal
(Str : String;
- Scale : Integer)
- return Long_Long_Integer
+ Scale : Integer) return Long_Long_Integer
is
begin
return Long_Long_Integer (Value_Real (Str) * 10.0 ** Scale);
diff --git a/gcc/ada/s-vallld.ads b/gcc/ada/s-vallld.ads
index 7d3b14101fc..7022669dfcd 100644
--- a/gcc/ada/s-vallld.ads
+++ b/gcc/ada/s-vallld.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -42,8 +42,7 @@ package System.Val_LLD is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Scale : Integer)
- return Long_Long_Integer;
+ Scale : Integer) return Long_Long_Integer;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- real literal according to the syntax described in (RM 3.5(43)). The
-- substring scanned extends no further than Str (Max). There are three
@@ -73,8 +72,7 @@ package System.Val_LLD is
function Value_Long_Long_Decimal
(Str : String;
- Scale : Integer)
- return Long_Long_Integer;
+ Scale : Integer) return Long_Long_Integer;
-- Used in computing X'Value (Str) where X is a decimal types whose size
-- exceeds Standard.Integer'Size. Str is the string argument of the
-- attribute. Constraint_Error is raised if the string is malformed
diff --git a/gcc/ada/s-vallli.adb b/gcc/ada/s-vallli.adb
index 101e6aaf628..ad54db94607 100644
--- a/gcc/ada/s-vallli.adb
+++ b/gcc/ada/s-vallli.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -88,7 +88,6 @@ package body System.Val_LLI is
function Value_Long_Long_Integer (Str : String) return Long_Long_Integer is
V : Long_Long_Integer;
P : aliased Integer := Str'First;
-
begin
V := Scan_Long_Long_Integer (Str, P'Access, Str'Last);
Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-vallli.ads b/gcc/ada/s-vallli.ads
index 57c7f2da9d7..e83fd8f710b 100644
--- a/gcc/ada/s-vallli.ads
+++ b/gcc/ada/s-vallli.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-valllu.adb b/gcc/ada/s-valllu.adb
index 9407cbdf009..ca4cbb2a38c 100644
--- a/gcc/ada/s-valllu.adb
+++ b/gcc/ada/s-valllu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -41,9 +41,9 @@ package body System.Val_LLU is
-----------------------------
function Scan_Long_Long_Unsigned
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return Long_Long_Unsigned
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Long_Long_Unsigned
is
P : Integer;
-- Local copy of the pointer
@@ -289,7 +289,6 @@ package body System.Val_LLU is
is
V : Long_Long_Unsigned;
P : aliased Integer := Str'First;
-
begin
V := Scan_Long_Long_Unsigned (Str, P'Access, Str'Last);
Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-valllu.ads b/gcc/ada/s-valllu.ads
index 6fee777c8ef..603e4b6bc80 100644
--- a/gcc/ada/s-valllu.ads
+++ b/gcc/ada/s-valllu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -40,9 +40,9 @@ package System.Val_LLU is
pragma Pure;
function Scan_Long_Long_Unsigned
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return System.Unsigned_Types.Long_Long_Unsigned;
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return System.Unsigned_Types.Long_Long_Unsigned;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- integer according to the syntax described in (RM 3.5(43)). The substring
-- scanned extends no further than Str (Max). There are three cases for the
diff --git a/gcc/ada/s-valrea.adb b/gcc/ada/s-valrea.adb
index 3a6ca8c0ba2..e277e380991 100644
--- a/gcc/ada/s-valrea.adb
+++ b/gcc/ada/s-valrea.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -41,9 +41,9 @@ package body System.Val_Real is
---------------
function Scan_Real
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return Long_Long_Float
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Long_Long_Float
is
procedure Reset;
pragma Import (C, Reset, "__gnat_init_float");
@@ -100,6 +100,10 @@ package body System.Val_Real is
-- return P points past the last character. On entry, the current
-- character is known to be a digit, so a numeral is definitely present.
+ -----------
+ -- Scanf --
+ -----------
+
procedure Scanf is
Digit : Natural;
@@ -330,7 +334,7 @@ package body System.Val_Real is
if Base /= 10.0 then
Uval := Uval * Base ** Scale;
- -- For base 10, use power of ten table, repeatedly if necessary.
+ -- For base 10, use power of ten table, repeatedly if necessary
elsif Scale > 0 then
while Scale > Maxpow loop
@@ -377,7 +381,6 @@ package body System.Val_Real is
function Value_Real (Str : String) return Long_Long_Float is
V : Long_Long_Float;
P : aliased Integer := Str'First;
-
begin
V := Scan_Real (Str, P'Access, Str'Last);
Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-valrea.ads b/gcc/ada/s-valrea.ads
index 821072d7d4e..d3b0e33d90b 100644
--- a/gcc/ada/s-valrea.ads
+++ b/gcc/ada/s-valrea.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -35,9 +35,9 @@ package System.Val_Real is
pragma Pure;
function Scan_Real
- (Str : String;
- Ptr : access Integer;
- Max : Integer) return Long_Long_Float;
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Long_Long_Float;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- real literal according to the syntax described in (RM 3.5(43)). The
-- substring scanned extends no further than Str (Max). There are three
diff --git a/gcc/ada/s-valuns.adb b/gcc/ada/s-valuns.adb
index 77fba797a65..885db28f3c7 100644
--- a/gcc/ada/s-valuns.adb
+++ b/gcc/ada/s-valuns.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -41,10 +41,9 @@ package body System.Val_Uns is
-------------------
function Scan_Unsigned
- (Str : String;
- Ptr : access Integer;
- Max : Integer)
- return Unsigned
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return Unsigned
is
P : Integer;
-- Local copy of the pointer
@@ -285,12 +284,10 @@ package body System.Val_Uns is
function Value_Unsigned (Str : String) return Unsigned is
V : Unsigned;
P : aliased Integer := Str'First;
-
begin
V := Scan_Unsigned (Str, P'Access, Str'Last);
Scan_Trailing_Blanks (Str, P);
return V;
-
end Value_Unsigned;
end System.Val_Uns;
diff --git a/gcc/ada/s-valuns.ads b/gcc/ada/s-valuns.ads
index 88f609e7b5b..bd41849e98f 100644
--- a/gcc/ada/s-valuns.ads
+++ b/gcc/ada/s-valuns.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -40,10 +40,9 @@ package System.Val_Uns is
pragma Pure;
function Scan_Unsigned
- (Str : String;
- Ptr : access Integer;
- Max : Integer)
- return System.Unsigned_Types.Unsigned;
+ (Str : String;
+ Ptr : access Integer;
+ Max : Integer) return System.Unsigned_Types.Unsigned;
-- This function scans the string starting at Str (Ptr.all) for a valid
-- integer according to the syntax described in (RM 3.5(43)). The substring
-- scanned extends no further than Str (Max). There are three cases for the
@@ -71,8 +70,7 @@ package System.Val_Uns is
-- is greater than Max as required in this case.
function Value_Unsigned
- (Str : String)
- return System.Unsigned_Types.Unsigned;
+ (Str : String) return System.Unsigned_Types.Unsigned;
-- Used in computing X'Value (Str) where X is a modular integer type whose
-- modulus does not exceed the range of System.Unsigned_Types.Unsigned. Str
-- is the string argument of the attribute. Constraint_Error is raised if
diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb
index 470f8a9c684..07f067b79cc 100644
--- a/gcc/ada/s-valuti.adb
+++ b/gcc/ada/s-valuti.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2002, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -83,8 +83,7 @@ package body System.Val_Util is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Real : Boolean := False)
- return Integer
+ Real : Boolean := False) return Integer
is
P : Natural := Ptr.all;
M : Boolean;
diff --git a/gcc/ada/s-valuti.ads b/gcc/ada/s-valuti.ads
index f7073ae97d1..ac905096862 100644
--- a/gcc/ada/s-valuti.ads
+++ b/gcc/ada/s-valuti.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -74,8 +74,7 @@ package System.Val_Util is
(Str : String;
Ptr : access Integer;
Max : Integer;
- Real : Boolean := False)
- return Integer;
+ Real : Boolean := False) return Integer;
-- Called to scan a possible exponent. Str, Ptr, Max are as described above
-- for Scan_Sign. If Ptr.all < Max and Str (Ptr.all) = 'E' or 'e', then an
-- exponent is scanned out, with the exponent value returned in Exp, and
diff --git a/gcc/ada/s-valwch.ads b/gcc/ada/s-valwch.ads
index 05064c9cfad..32a4b508f27 100644
--- a/gcc/ada/s-valwch.ads
+++ b/gcc/ada/s-valwch.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-veboop.adb b/gcc/ada/s-veboop.adb
index 20d9d0ed44c..177a9448068 100644
--- a/gcc/ada/s-veboop.adb
+++ b/gcc/ada/s-veboop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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-veboop.ads b/gcc/ada/s-veboop.ads
index f7e135907cd..2708b22287f 100644
--- a/gcc/ada/s-veboop.ads
+++ b/gcc/ada/s-veboop.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, 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-vercon.adb b/gcc/ada/s-vercon.adb
index 186b9b714c4..b9b8fe8b416 100644
--- a/gcc/ada/s-vercon.adb
+++ b/gcc/ada/s-vercon.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with System.Unsigned_Types; use System.Unsigned_Types;
+
package body System.Version_Control is
------------------------
diff --git a/gcc/ada/s-vercon.ads b/gcc/ada/s-vercon.ads
index c8d26a916d3..49c31532891 100644
--- a/gcc/ada/s-vercon.ads
+++ b/gcc/ada/s-vercon.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchcnv.adb b/gcc/ada/s-wchcnv.adb
index e31ac7be6f1..e3afa9c05e7 100644
--- a/gcc/ada/s-wchcnv.adb
+++ b/gcc/ada/s-wchcnv.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchcnv.ads b/gcc/ada/s-wchcnv.ads
index d90ae5b3869..bebf56240ab 100644
--- a/gcc/ada/s-wchcnv.ads
+++ b/gcc/ada/s-wchcnv.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchcon.ads b/gcc/ada/s-wchcon.ads
index 40394db1901..f2666458525 100644
--- a/gcc/ada/s-wchcon.ads
+++ b/gcc/ada/s-wchcon.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchjis.adb b/gcc/ada/s-wchjis.adb
index 6767c44b200..5ac43a67bfc 100644
--- a/gcc/ada/s-wchjis.adb
+++ b/gcc/ada/s-wchjis.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchjis.ads b/gcc/ada/s-wchjis.ads
index 0f103170ec7..ebfcbedfb71 100644
--- a/gcc/ada/s-wchjis.ads
+++ b/gcc/ada/s-wchjis.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchstw.adb b/gcc/ada/s-wchstw.adb
index a736d99e789..476a2e84abe 100644
--- a/gcc/ada/s-wchstw.adb
+++ b/gcc/ada/s-wchstw.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -65,7 +65,7 @@ package body System.WCh_StW is
-- if P > S'Last on entry.
function Get_UTF_32 is new Char_Sequence_To_UTF_32 (In_Char);
- -- Function to get next UFT_32 value.
+ -- Function to get next UFT_32 value
-------------
-- In_Char --
@@ -81,6 +81,8 @@ package body System.WCh_StW is
end if;
end In_Char;
+ -- Start of processing for Get_Next_Code
+
begin
-- Check for wide character encoding
diff --git a/gcc/ada/s-wchstw.ads b/gcc/ada/s-wchstw.ads
index ba154b901ba..b965e2fce52 100644
--- a/gcc/ada/s-wchstw.ads
+++ b/gcc/ada/s-wchstw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchwts.adb b/gcc/ada/s-wchwts.adb
index de9b6ceaabe..995f5acda0f 100644
--- a/gcc/ada/s-wchwts.adb
+++ b/gcc/ada/s-wchwts.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wchwts.ads b/gcc/ada/s-wchwts.ads
index ac34cf2dccd..2359701462c 100644
--- a/gcc/ada/s-wchwts.ads
+++ b/gcc/ada/s-wchwts.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widboo.adb b/gcc/ada/s-widboo.adb
index fa245f4b5de..395f7a1dd42 100644
--- a/gcc/ada/s-widboo.adb
+++ b/gcc/ada/s-widboo.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widboo.ads b/gcc/ada/s-widboo.ads
index 9e5e1bd0945..16192a63258 100644
--- a/gcc/ada/s-widboo.ads
+++ b/gcc/ada/s-widboo.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widcha.adb b/gcc/ada/s-widcha.adb
index ec898c3a19f..23130ddad36 100644
--- a/gcc/ada/s-widcha.adb
+++ b/gcc/ada/s-widcha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widcha.ads b/gcc/ada/s-widcha.ads
index 021a5a325f0..3dac0c4763e 100644
--- a/gcc/ada/s-widcha.ads
+++ b/gcc/ada/s-widcha.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widenu.adb b/gcc/ada/s-widenu.adb
index c794af92c9f..9110c107cb5 100644
--- a/gcc/ada/s-widenu.adb
+++ b/gcc/ada/s-widenu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widenu.ads b/gcc/ada/s-widenu.ads
index cef6e287aee..ef6af7e517a 100644
--- a/gcc/ada/s-widenu.ads
+++ b/gcc/ada/s-widenu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widlli.adb b/gcc/ada/s-widlli.adb
index ee9cd5b3375..3251f2d51e5 100644
--- a/gcc/ada/s-widlli.adb
+++ b/gcc/ada/s-widlli.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widlli.ads b/gcc/ada/s-widlli.ads
index f2aede66aae..6013a8deaf8 100644
--- a/gcc/ada/s-widlli.ads
+++ b/gcc/ada/s-widlli.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widllu.adb b/gcc/ada/s-widllu.adb
index c282c93a6f9..75b6667717c 100644
--- a/gcc/ada/s-widllu.adb
+++ b/gcc/ada/s-widllu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widllu.ads b/gcc/ada/s-widllu.ads
index dff5bb3019b..58ac484c40f 100644
--- a/gcc/ada/s-widllu.ads
+++ b/gcc/ada/s-widllu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widwch.adb b/gcc/ada/s-widwch.adb
index 8cca640f8dc..e4e3dcc8706 100644
--- a/gcc/ada/s-widwch.adb
+++ b/gcc/ada/s-widwch.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-widwch.ads b/gcc/ada/s-widwch.ads
index ca5e2fab89c..5ff4aaf7e59 100644
--- a/gcc/ada/s-widwch.ads
+++ b/gcc/ada/s-widwch.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wwdcha.adb b/gcc/ada/s-wwdcha.adb
index 7f657ad7bd8..3580a0142f5 100644
--- a/gcc/ada/s-wwdcha.adb
+++ b/gcc/ada/s-wwdcha.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wwdcha.ads b/gcc/ada/s-wwdcha.ads
index 3ba15e473eb..566dc1f8c7d 100644
--- a/gcc/ada/s-wwdcha.ads
+++ b/gcc/ada/s-wwdcha.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wwdenu.adb b/gcc/ada/s-wwdenu.adb
index 090522f39aa..9a2fac7c3e4 100644
--- a/gcc/ada/s-wwdenu.adb
+++ b/gcc/ada/s-wwdenu.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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-wwdenu.ads b/gcc/ada/s-wwdenu.ads
index 67bac34a859..d8cbf528e0e 100644
--- a/gcc/ada/s-wwdenu.ads
+++ b/gcc/ada/s-wwdenu.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem.adb b/gcc/ada/sem.adb
index 36afe180caa..8c73ae95242 100644
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -646,7 +646,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Analyze (N);
@@ -656,7 +655,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Analyze (N);
@@ -687,7 +685,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Analyze_List (L);
@@ -697,7 +694,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Analyze_List (L);
@@ -928,7 +924,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Insert_After_And_Analyze (N, M);
@@ -938,7 +933,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Insert_After_And_Analyze (N, M);
@@ -990,7 +984,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Insert_Before_And_Analyze (N, M);
@@ -1000,7 +993,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Insert_Before_And_Analyze (N, M);
@@ -1051,7 +1043,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Insert_List_After_And_Analyze (N, L);
@@ -1061,7 +1052,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Insert_List_After_And_Analyze (N, L);
@@ -1111,7 +1101,6 @@ package body Sem is
if Suppress = All_Checks then
declare
Svg : constant Suppress_Array := Scope_Suppress;
-
begin
Scope_Suppress := (others => True);
Insert_List_Before_And_Analyze (N, L);
@@ -1121,7 +1110,6 @@ package body Sem is
else
declare
Svg : constant Boolean := Scope_Suppress (Suppress);
-
begin
Scope_Suppress (Suppress) := True;
Insert_List_Before_And_Analyze (N, L);
diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads
index 13b2a95900e..d7fb9a649b8 100644
--- a/gcc/ada/sem.ads
+++ b/gcc/ada/sem.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,7 @@
-- terminates, the expression can be expanded since all the semantic
-- information is available at that point.
--- If we are not generating code then the expansion phase is a no-op.
+-- If we are not generating code then the expansion phase is a no-op
-- When generating code there are a number of exceptions to the basic
-- Analysis-Resolution-Expansion model for expressions. The most prominent
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index a7df779f324..25a2f704a15 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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/sem_case.ads b/gcc/ada/sem_case.ads
index d7c359a7215..e07e229c8f1 100644
--- a/gcc/ada/sem_case.ads
+++ b/gcc/ada/sem_case.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1996-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -24,8 +24,6 @@
-- --
------------------------------------------------------------------------------
-with Types; use Types;
-
-- Package containing the routines to process a list of discrete choices.
-- Such lists can occur in two different constructs: case statements and
-- record variants. We have factorized what used to be two very similar
@@ -33,6 +31,8 @@ with Types; use Types;
-- aggregate case, since issues with nested aggregates make that case
-- substantially different.
+with Types; use Types;
+
package Sem_Case is
type Choice_Bounds is record
@@ -63,10 +63,10 @@ package Sem_Case is
-- to get to the actual list of discrete choices.
with procedure Process_Empty_Choice (Choice : Node_Id);
- -- Processing to carry out for an empty Choice.
+ -- Processing to carry out for an empty Choice
with procedure Process_Non_Static_Choice (Choice : Node_Id);
- -- Processing to carry out for a non static Choice.
+ -- Processing to carry out for a non static Choice
with procedure Process_Associated_Node (A : Node_Id);
-- Associated to each case alternative, aggregate component
@@ -96,11 +96,11 @@ package Sem_Case is
-- On entry Choice_Table must be big enough to contain all the
-- discrete choices encountered.
--
- -- On exit Choice_Table contains all the static and non empty
- -- discrete choices in sorted order. Last_Choice gives the position
- -- of the last valid choice in Choice_Table, Choice_Table'First
- -- contains the first. We can have Last_Choice < Choice_Table'Last
- -- for one (or several) of the following reasons:
+ -- On exit Choice_Table contains all the static and non empty discrete
+ -- choices in sorted order. Last_Choice gives the position of the last
+ -- valid choice in Choice_Table, Choice_Table'First contains the first.
+ -- We can have Last_Choice < Choice_Table'Last for one (or several) of
+ -- the following reasons:
--
-- (a) The list of choices contained a non static choice
--
@@ -113,9 +113,9 @@ package Sem_Case is
-- In one of the bounds of a discrete choice raises a constraint
-- error the flag Raise_CE is set.
--
- -- Finally Others_Present is set to True if an Others choice is
- -- present in the list of choices, and in this case the call also
- -- sets Others_Discrete_Choices in the N_Others_Choice node.
+ -- Finally Others_Present is set to True if an Others choice is present
+ -- in the list of choices, and in this case the call also sets
+ -- Others_Discrete_Choices in the N_Others_Choice node.
end Generic_Choices_Processing;
diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb
index fb73f605bbb..978c7e38e96 100644
--- a/gcc/ada/sem_ch11.adb
+++ b/gcc/ada/sem_ch11.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 1f8eb2155c3..e1aa6b863b2 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -1156,9 +1156,7 @@ package body Sem_Ch4 is
and then Nkind (N) = N_Op_Ne
then
Op_Id := Get_Name_Entity_Id (Name_Op_Eq);
-
while Present (Op_Id) loop
-
if Ekind (Op_Id) = E_Operator then
Find_Equality_Types (L, R, Op_Id, N);
else
@@ -1216,7 +1214,6 @@ package body Sem_Ch4 is
else
Get_First_Interp (N, I, It);
-
while Present (It.Nam) loop
if Ekind (Base_Type (It.Typ)) /= E_Subprogram_Type
or else Etype (Base_Type (It.Typ)) = Standard_Void_Type
@@ -1274,7 +1271,6 @@ package body Sem_Ch4 is
else
Get_First_Interp (P, I, It);
-
while Present (It.Nam) loop
T := It.Typ;
@@ -1522,7 +1518,6 @@ package body Sem_Ch4 is
end if;
Index := First_Index (Array_Type);
-
while Present (Index) and then Present (Exp) loop
if not Has_Compatible_Type (Exp, Etype (Index)) then
Wrong_Type (Exp, Etype (Index));
@@ -1771,7 +1766,6 @@ package body Sem_Ch4 is
else
Op_Id := Get_Name_Entity_Id (Chars (N));
-
while Present (Op_Id) loop
if Ekind (Op_Id) = E_Operator then
Find_Boolean_Types (L, R, Op_Id, N);
@@ -1854,7 +1848,6 @@ package body Sem_Ch4 is
else
Get_First_Interp (L, Index, It);
-
while Present (It.Typ) loop
Try_One_Interp (It.Typ);
Get_Next_Interp (Index, It);
@@ -2168,9 +2161,7 @@ package body Sem_Ch4 is
and then Nkind (Left_Opnd (Actual)) = N_Identifier
then
Formal := First_Formal (Nam);
-
while Present (Formal) loop
-
if Chars (Left_Opnd (Actual)) = Chars (Formal) then
Error_Msg_N
("possible misspelling of `='>`!", Actual);
@@ -3037,7 +3028,6 @@ package body Sem_Ch4 is
else
Get_First_Interp (L, Ind, It);
-
while Present (It.Typ) loop
if Root_Type (It.Typ) = Standard_Boolean
and then Has_Compatible_Type (R, It.Typ)
@@ -3788,7 +3778,6 @@ package body Sem_Ch4 is
else
Get_First_Interp (L, Index1, It1);
-
while Present (It1.Typ) loop
Check_Right_Argument (It1.Typ);
Get_Next_Interp (Index1, It1);
@@ -4281,7 +4270,7 @@ package body Sem_Ch4 is
return False;
end if;
- -- Now test the entity we got to see if it a bad case
+ -- Now test the entity we got to see if it is a bad case
case Ekind (Entity (Enode)) is
@@ -4346,7 +4335,7 @@ package body Sem_Ch4 is
end if;
-- If either operand has no type, then don't complain further,
- -- since this simply means that we have a propragated error.
+ -- since this simply means that we have a propagated error.
if R = Error
or else Etype (R) = Any_Type
@@ -4669,7 +4658,6 @@ package body Sem_Ch4 is
-- select the predefined operator and discard others.
Get_First_Interp (N, I, It);
-
while Present (It.Nam) loop
if Scope (It.Nam) = Standard_Standard then
Set_Etype (N, Univ_Type);
@@ -4758,12 +4746,10 @@ package body Sem_Ch4 is
begin
Normalize_Actuals (N, Designated_Type (Typ), False, Call_OK);
+
Actual := First_Actual (N);
Formal := First_Formal (Designated_Type (Typ));
-
- while Present (Actual)
- and then Present (Formal)
- loop
+ while Present (Actual) and then Present (Formal) loop
if not Has_Compatible_Type (Actual, Etype (Formal)) then
return False;
end if;
@@ -4806,9 +4792,8 @@ package body Sem_Ch4 is
begin
Actual := First (Actuals);
Index := First_Index (Typ);
- while Present (Actual)
- and then Present (Index)
- loop
+ while Present (Actual) and then Present (Index) loop
+
-- If the parameter list has a named association, the expression
-- is definitely a call and not an indexed component.
diff --git a/gcc/ada/sem_ch6.ads b/gcc/ada/sem_ch6.ads
index 79d785e10c5..da8e8790ce4 100644
--- a/gcc/ada/sem_ch6.ads
+++ b/gcc/ada/sem_ch6.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_ch7.ads b/gcc/ada/sem_ch7.ads
index 7cb526494c2..44cca2769b4 100644
--- a/gcc/ada/sem_ch7.ads
+++ b/gcc/ada/sem_ch7.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -25,7 +25,8 @@
------------------------------------------------------------------------------
with Types; use Types;
-package Sem_Ch7 is
+
+package Sem_Ch7 is
procedure Analyze_Package_Body (N : Node_Id);
procedure Analyze_Package_Declaration (N : Node_Id);
@@ -33,7 +34,7 @@ package Sem_Ch7 is
procedure Analyze_Private_Type_Declaration (N : Node_Id);
procedure End_Package_Scope (P : Entity_Id);
- -- Calls Uninstall_Declarations, and then pops the scope stack.
+ -- Calls Uninstall_Declarations, and then pops the scope stack
procedure Exchange_Declarations (Id : Entity_Id);
-- Exchange private and full declaration on entry/exit from a package
@@ -74,4 +75,5 @@ package Sem_Ch7 is
-- visible entities at the end of their homonym chains. For compilation
-- units, make all entities invisible. In both cases, exchange private
-- and visible declarations to restore order of elaboration.
+
end Sem_Ch7;
diff --git a/gcc/ada/sem_dist.ads b/gcc/ada/sem_dist.ads
index 610c785f162..24745890b53 100644
--- a/gcc/ada/sem_dist.ads
+++ b/gcc/ada/sem_dist.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_elab.ads b/gcc/ada/sem_elab.ads
index 106cb72c6b1..e42a4ab20f4 100644
--- a/gcc/ada/sem_elab.ads
+++ b/gcc/ada/sem_elab.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/sem_elim.ads b/gcc/ada/sem_elim.ads
index e3a3b153240..c87f4f0cb48 100644
--- a/gcc/ada/sem_elim.ads
+++ b/gcc/ada/sem_elim.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2005, 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/sem_eval.ads b/gcc/ada/sem_eval.ads
index bf9d712f986..5509185db31 100644
--- a/gcc/ada/sem_eval.ads
+++ b/gcc/ada/sem_eval.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_intr.ads b/gcc/ada/sem_intr.ads
index 3629786993e..851686af0a9 100644
--- a/gcc/ada/sem_intr.ads
+++ b/gcc/ada/sem_intr.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_maps.adb b/gcc/ada/sem_maps.adb
index 90c1c4a3ac1..0a66a91f0b3 100644
--- a/gcc/ada/sem_maps.adb
+++ b/gcc/ada/sem_maps.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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/sem_maps.ads b/gcc/ada/sem_maps.ads
index 5d8e6af4ffd..eb126790665 100644
--- a/gcc/ada/sem_maps.ads
+++ b/gcc/ada/sem_maps.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1996-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -36,7 +36,7 @@
-- Map composition of renaming maps takes place for nested instantiations,
-- for generic child units, and for formal packages.
--- For additional details, see the documentation in sem_ch12.
+-- For additional details, see the documentation in sem_ch12
with Table;
with Types; use Types;
@@ -58,24 +58,24 @@ package Sem_Maps is
-- and New_Map (e2) = e3, then the image of e1 under the result is e3.
function Copy (M : Map) return Map;
- -- Full copy of contents and headers.
+ -- Full copy of contents and headers
function Lookup (M : Map; E : Entity_Id) return Entity_Id;
- -- Retrieve image of E under M, Empty if undefined.
+ -- Retrieve image of E under M, Empty if undefined
procedure Add_Association
(M : in out Map;
O_Id : Entity_Id;
N_Id : Entity_Id;
Kind : Scope_Kind := S_Local);
- -- Update M in place. On entry M (O_Id) must not be defined.
+ -- Update M in place. On entry M (O_Id) must not be defined
procedure Update_Association
(M : in out Map;
O_Id : Entity_Id;
N_Id : Entity_Id;
Kind : Scope_Kind := S_Local);
- -- Update the entry in M for O_Id.
+ -- Update the entry in M for O_Id
function Build_Instance_Map (M : Map) return Map;
-- Copy renaming map of generic, and create new entities for all the
diff --git a/gcc/ada/sem_res.ads b/gcc/ada/sem_res.ads
index 2ff4d06e241..f1a098f2c7a 100644
--- a/gcc/ada/sem_res.ads
+++ b/gcc/ada/sem_res.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/sem_type.ads b/gcc/ada/sem_type.ads
index 7f11512f8b1..63c65ec7bc3 100644
--- a/gcc/ada/sem_type.ads
+++ b/gcc/ada/sem_type.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -91,7 +91,7 @@ package Sem_Type is
-----------------
procedure Init_Interp_Tables;
- -- Invoked by gnatf when processing multiple files.
+ -- Invoked by gnatf when processing multiple files
procedure Collect_Interps (N : Node_Id);
-- Invoked when the name N has more than one visible interpretation.
@@ -131,7 +131,7 @@ package Sem_Type is
-- of the operands of N, to check visibility.
procedure End_Interp_List;
- -- End the list of interpretations of current node.
+ -- End the list of interpretations of current node
procedure Get_First_Interp
(N : Node_Id;
diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb
index 2deaf26fef4..d3d3dd4904f 100644
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2000-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/sfn_scan.ads b/gcc/ada/sfn_scan.ads
index 8ad6d840a3f..8ce848f2866 100644
--- a/gcc/ada/sfn_scan.ads
+++ b/gcc/ada/sfn_scan.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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/sinput.adb b/gcc/ada/sinput.adb
index c838dbb8506..d20adf5aed2 100644
--- a/gcc/ada/sinput.adb
+++ b/gcc/ada/sinput.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -86,7 +86,7 @@ package body Sinput is
LL : Physical_Line_Number;
begin
- -- Reallocate the lines tables if necessary.
+ -- Reallocate the lines tables if necessary
-- Note: the reason we do not use the normal Table package
-- mechanism is that we have several of these tables. We could
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads
index aaaf0b82782..092707c1c2e 100644
--- a/gcc/ada/sinput.ads
+++ b/gcc/ada/sinput.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -655,7 +655,7 @@ private
-- we avoid the use of fat pointers.
type Logical_Lines_Table_Ptr is access all Logical_Lines_Table_Type;
- -- Type used for pointers to logical line tables.
+ -- Type used for pointers to logical line tables
-----------------------
-- Source_File Table --
diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads
index a51a52a74a1..d10a009ea47 100644
--- a/gcc/ada/sprint.ads
+++ b/gcc/ada/sprint.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2002, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -115,7 +115,7 @@ package Sprint is
-- does not generate any New_Line calls.
procedure Sprint_Opt_Node_List (List : List_Id);
- -- Like Sprint_Node_List, but prints nothing if List = No_List.
+ -- Like Sprint_Node_List, but prints nothing if List = No_List
procedure Sprint_Indented_List (List : List_Id);
-- Like Sprint_Line_List, except that the indentation level is
diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads
index a9a1df2ae25..8e3b7ecee2b 100644
--- a/gcc/ada/stand.ads
+++ b/gcc/ada/stand.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -335,7 +335,7 @@ package Stand is
-- This is a type used to represent the return type of procedures
Standard_Exception_Type : Entity_Id;
- -- This is a type used to represent the Etype of exceptions.
+ -- This is a type used to represent the Etype of exceptions
Standard_A_String : Entity_Id;
-- An access to String type used for building elements of tables
@@ -362,13 +362,13 @@ package Stand is
-- is propagated to avoid cascaded errors from a single type error.
Any_Access : Entity_Id;
- -- Used to resolve the overloaded literal NULL.
+ -- Used to resolve the overloaded literal NULL
Any_Array : Entity_Id;
-- Used to represent some unknown array type
Any_Boolean : Entity_Id;
- -- The context type of conditions in IF and WHILE statements.
+ -- The context type of conditions in IF and WHILE statements
Any_Character : Entity_Id;
-- Any_Character is used to label character literals, which in general
@@ -386,7 +386,7 @@ package Stand is
-- Used to represent some unknown fixed-point type
Any_Integer : Entity_Id;
- -- Used to represent some unknown integer type.
+ -- Used to represent some unknown integer type
Any_Modular : Entity_Id;
-- Used to represent the result type of a boolean operation on an
@@ -394,10 +394,10 @@ package Stand is
-- only legal in a modular context.
Any_Numeric : Entity_Id;
- -- Used to represent some unknown numeric type.
+ -- Used to represent some unknown numeric type
Any_Real : Entity_Id;
- -- Used to represent some unknown real type.
+ -- Used to represent some unknown real type
Any_Scalar : Entity_Id;
-- Used to represent some unknown scalar type
@@ -416,7 +416,9 @@ package Stand is
Universal_Real : Entity_Id;
-- Entity for universal real type. The bounds of this type correspond to
-- to the largest supported real type (i.e. Long_Long_Real). It is the
- -- type used for runtime calculations in type universal real.
+ -- type used for runtime calculations in type universal real. Note that
+ -- this type is always IEEE format, even if Long_Long_Real is Vax_Float
+ -- (and in that case the bounds don't correspond exactly).
Universal_Fixed : Entity_Id;
-- Entity for universal fixed type. This is a type with arbitrary
diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb
index 2865305dbe7..0a5fbb2f012 100644
--- a/gcc/ada/stringt.adb
+++ b/gcc/ada/stringt.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/stringt.ads b/gcc/ada/stringt.ads
index a1919694652..fb974e4e9d2 100644
--- a/gcc/ada/stringt.ads
+++ b/gcc/ada/stringt.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/styleg.ads b/gcc/ada/styleg.ads
index 0a1441b33c5..58c834ae1be 100644
--- a/gcc/ada/styleg.ads
+++ b/gcc/ada/styleg.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -105,7 +105,7 @@ package Styleg is
-- Token_Ptr is the first token on the line.
procedure Check_Left_Paren;
- -- Called after scanning out a left parenthesis to check spacing.
+ -- Called after scanning out a left parenthesis to check spacing
procedure Check_Line_Max_Length (Len : Int);
-- Called with Scan_Ptr pointing to the first line terminator character
@@ -122,7 +122,7 @@ package Styleg is
-- properly (i.e. with an appropriate casing convention).
procedure Check_Right_Paren;
- -- Called after scanning out a right parenthesis to check spacing.
+ -- Called after scanning out a right parenthesis to check spacing
procedure Check_Semicolon;
-- Called after scanning out a semicolon to check spacing
diff --git a/gcc/ada/symbols.adb b/gcc/ada/symbols.adb
index af4a73cce0a..631ccb1f5ce 100644
--- a/gcc/ada/symbols.adb
+++ b/gcc/ada/symbols.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/symbols.ads b/gcc/ada/symbols.ads
index 8672a0ec9e0..b9a5e5f2a40 100644
--- a/gcc/ada/symbols.ads
+++ b/gcc/ada/symbols.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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- --
@@ -34,7 +34,7 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
package Symbols is
type Policy is
- -- Symbol policy:
+ -- Symbol policy
(Autonomous,
-- Create a symbol file without considering any reference
diff --git a/gcc/ada/system-aix.ads b/gcc/ada/system-aix.ads
index 246207c18c8..8db13afacd7 100644
--- a/gcc/ada/system-aix.ads
+++ b/gcc/ada/system-aix.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (AIX/PPC Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-darwin-ppc.ads b/gcc/ada/system-darwin-ppc.ads
index 3d8f99b522d..19478e96d28 100644
--- a/gcc/ada/system-darwin-ppc.ads
+++ b/gcc/ada/system-darwin-ppc.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (Darwin/PPC Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-freebsd-x86.ads b/gcc/ada/system-freebsd-x86.ads
index 3eab5aef7e3..45216d111ec 100644
--- a/gcc/ada/system-freebsd-x86.ads
+++ b/gcc/ada/system-freebsd-x86.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (FreeBSD/x86 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-hpux-ia64.ads b/gcc/ada/system-hpux-ia64.ads
index cb5af090af5..c3d2ee925b8 100644
--- a/gcc/ada/system-hpux-ia64.ads
+++ b/gcc/ada/system-hpux-ia64.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (HP-UX/ia64 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-hpux.ads b/gcc/ada/system-hpux.ads
index 4a72615f49c..4dbc6ae1d04 100644
--- a/gcc/ada/system-hpux.ads
+++ b/gcc/ada/system-hpux.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (HP-UX Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-interix.ads b/gcc/ada/system-interix.ads
index 9e25857b2ec..c816faefb29 100644
--- a/gcc/ada/system-interix.ads
+++ b/gcc/ada/system-interix.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (OpenNT/Interix Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-irix-n32.ads b/gcc/ada/system-irix-n32.ads
index 794f494848b..958bd8ca407 100644
--- a/gcc/ada/system-irix-n32.ads
+++ b/gcc/ada/system-irix-n32.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (SGI Irix, n32 ABI) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-irix-o32.ads b/gcc/ada/system-irix-o32.ads
index 1a69ff08189..73b1ad520e3 100644
--- a/gcc/ada/system-irix-o32.ads
+++ b/gcc/ada/system-irix-o32.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (SGI Irix, o32 ABI) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-hppa.ads b/gcc/ada/system-linux-hppa.ads
index 67c395c0d18..7b0259c9b74 100644
--- a/gcc/ada/system-linux-hppa.ads
+++ b/gcc/ada/system-linux-hppa.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (GNU/Linux-HPPA Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-ia64.ads b/gcc/ada/system-linux-ia64.ads
index 892a1be8dee..95f70a3f9f1 100644
--- a/gcc/ada/system-linux-ia64.ads
+++ b/gcc/ada/system-linux-ia64.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (GNU-Linux/ia64 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-ppc.ads b/gcc/ada/system-linux-ppc.ads
index 99ed4e32b6f..d2b414da6c4 100644
--- a/gcc/ada/system-linux-ppc.ads
+++ b/gcc/ada/system-linux-ppc.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (GNU-Linux/PPC Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-x86.ads b/gcc/ada/system-linux-x86.ads
index 6f43799ab28..fa79b5e4c92 100644
--- a/gcc/ada/system-linux-x86.ads
+++ b/gcc/ada/system-linux-x86.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (GNU-Linux/x86 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-x86_64.ads b/gcc/ada/system-linux-x86_64.ads
index e850d740384..2867602ad74 100644
--- a/gcc/ada/system-linux-x86_64.ads
+++ b/gcc/ada/system-linux-x86_64.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (GNU-Linux/x86-64 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-mingw.ads b/gcc/ada/system-mingw.ads
index b5967998da0..5924fc8f9c2 100644
--- a/gcc/ada/system-mingw.ads
+++ b/gcc/ada/system-mingw.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (NT Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-os2.ads b/gcc/ada/system-os2.ads
index 9dc5bf8b686..65c9461c050 100644
--- a/gcc/ada/system-os2.ads
+++ b/gcc/ada/system-os2.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (OS/2 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-sparc.ads b/gcc/ada/system-solaris-sparc.ads
index 1ec0af3872d..2c36f6482f4 100644
--- a/gcc/ada/system-solaris-sparc.ads
+++ b/gcc/ada/system-solaris-sparc.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (SUN Solaris Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-sparcv9.ads b/gcc/ada/system-solaris-sparcv9.ads
index 672cd97e5dd..1e1e5342501 100644
--- a/gcc/ada/system-solaris-sparcv9.ads
+++ b/gcc/ada/system-solaris-sparcv9.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (Solaris Sparcv9 Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-x86.ads b/gcc/ada/system-solaris-x86.ads
index 0ebf08bef5c..3f3ed23b295 100644
--- a/gcc/ada/system-solaris-x86.ads
+++ b/gcc/ada/system-solaris-x86.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (x86 Solaris Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-tru64.ads b/gcc/ada/system-tru64.ads
index ef3d7de8a0b..da79c82bab2 100644
--- a/gcc/ada/system-tru64.ads
+++ b/gcc/ada/system-tru64.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (DEC Unix Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-unixware.ads b/gcc/ada/system-unixware.ads
index 63fb6038cde..801968d5141 100644
--- a/gcc/ada/system-unixware.ads
+++ b/gcc/ada/system-unixware.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (SCO UnixWare Version) --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-vms-zcx.ads b/gcc/ada/system-vms-zcx.ads
index 5f9f59423c5..39af22044e5 100644
--- a/gcc/ada/system-vms-zcx.ads
+++ b/gcc/ada/system-vms-zcx.ads
@@ -7,7 +7,7 @@
-- S p e c --
-- (OpenVMS GCC_ZCX DEC Threads Version) --
-- --
--- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2002-2005, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/table.ads b/gcc/ada/table.ads
index 853948ab8c7..983f7fd0e35 100644
--- a/gcc/ada/table.ads
+++ b/gcc/ada/table.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -174,11 +174,11 @@ package Table is
procedure Increment_Last;
pragma Inline (Increment_Last);
- -- Adds 1 to Last (same as Set_Last (Last + 1).
+ -- Adds 1 to Last (same as Set_Last (Last + 1)
procedure Decrement_Last;
pragma Inline (Decrement_Last);
- -- Subtracts 1 from Last (same as Set_Last (Last - 1).
+ -- Subtracts 1 from Last (same as Set_Last (Last - 1)
procedure Append (New_Val : Table_Component_Type);
pragma Inline (Append);
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb
index 0fd9c7fc596..65ba29f977e 100644
--- a/gcc/ada/targparm.adb
+++ b/gcc/ada/targparm.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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/targparm.ads b/gcc/ada/targparm.ads
index b29f506be75..38dd2266840 100644
--- a/gcc/ada/targparm.ads
+++ b/gcc/ada/targparm.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2005, 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- --
@@ -295,7 +295,7 @@ package Targparm is
-- this variable is True, then GCC ZCX is used.
GCC_ZCX_Support_On_Target : Boolean := False;
- -- Indicates that the target supports GCC Exceptions.
+ -- Indicates that the target supports GCC Exceptions
------------------------------------
-- Run-Time Library Configuration --
@@ -523,7 +523,7 @@ package Targparm is
-- Set to True for targets where S'Machine_Overflows is True
Signed_Zeros_On_Target : Boolean := True;
- -- Set to False on targets that do not reliably support signed zeros.
+ -- Set to False on targets that do not reliably support signed zeros
-------------------------------------------
-- Boolean-Valued Fixed-Point Attributes --
diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c
index 5f1fc3f0caa..22fc540855d 100644
--- a/gcc/ada/tb-alvms.c
+++ b/gcc/ada/tb-alvms.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 2003,2005 Ada Core Technologies, Inc *
+ * Copyright (C) 2003-2005, AdaCore *
* *
* 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/tb-alvxw.c b/gcc/ada/tb-alvxw.c
index 0f9d5e2d002..64e4a3ced0b 100644
--- a/gcc/ada/tb-alvxw.c
+++ b/gcc/ada/tb-alvxw.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 2000-2003 Ada Core Technologies, Inc *
+ * Copyright (C) 2000-2005, AdaCore *
* *
* 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/tbuild.adb b/gcc/ada/tbuild.adb
index fba9c3c3c9e..f7966b156a4 100644
--- a/gcc/ada/tbuild.adb
+++ b/gcc/ada/tbuild.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/tree_io.ads b/gcc/ada/tree_io.ads
index 98bdc89d580..2cd203717e3 100644
--- a/gcc/ada/tree_io.ads
+++ b/gcc/ada/tree_io.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-1999 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -96,7 +96,7 @@ package Tree_IO is
-- Writes a single integer value to the current tree file
procedure Tree_Write_Str (S : String_Ptr);
- -- Write out string value referenced by S. Low bound must be 1.
+ -- Write out string value referenced by S (low bound of S must be 1)
procedure Tree_Write_Terminate;
-- Terminates writing of the file (flushing the buffer), but does not
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb
index 5066bbaf36c..aff72a9b95e 100644
--- a/gcc/ada/treepr.adb
+++ b/gcc/ada/treepr.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/treeprs.adt b/gcc/ada/treeprs.adt
index 86dd72a7b72..fbffd5830e2 100644
--- a/gcc/ada/treeprs.adt
+++ b/gcc/ada/treeprs.adt
@@ -6,7 +6,7 @@
-- --
-- T e m p l a t e --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/ttypef.ads b/gcc/ada/ttypef.ads
index 18c5e323629..93f7ec8a4ff 100644
--- a/gcc/ada/ttypef.ads
+++ b/gcc/ada/ttypef.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/ttypes.ads b/gcc/ada/ttypes.ads
index 7e0dd547522..4eb8c82ba6f 100644
--- a/gcc/ada/ttypes.ads
+++ b/gcc/ada/ttypes.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -143,7 +143,7 @@ package Ttypes is
Standard_Wide_Character_Size : constant Pos := 16;
Standard_Wide_Wide_Character_Size : constant Pos := 32;
- -- Standard wide character sizes.
+ -- Standard wide character sizes
-- Note: there is no specific control over the representation of
-- enumeration types. The convention used is that if an enumeration
diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb
index e6d5f3e3cf0..978b4121fa0 100644
--- a/gcc/ada/types.adb
+++ b/gcc/ada/types.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/uintp.adb b/gcc/ada/uintp.adb
index 6eda7ad512b..c9fbb03e675 100644
--- a/gcc/ada/uintp.adb
+++ b/gcc/ada/uintp.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -50,7 +50,7 @@ package body Uintp is
-- value, since the issue is host representation of integer values.
Uint_Int_Last : Uint;
- -- Uint value containing Int'Last value set by Initialize.
+ -- Uint value containing Int'Last value set by Initialize
UI_Power_2 : array (Int range 0 .. 64) of Uint;
-- This table is used to memoize exponentiations by powers of 2. The Nth
@@ -727,9 +727,9 @@ package body Uintp is
-- Mathematically: assume base congruent to 1 and compute an equivelent
-- integer to Left.
- -- If Sign = -1 return the alternating sum of the "digits".
+ -- If Sign = -1 return the alternating sum of the "digits"
- -- D1 - D2 + D3 - D4 + D5 . . .
+ -- D1 - D2 + D3 - D4 + D5 ...
-- (where D1 is Least Significant Digit)
@@ -761,7 +761,7 @@ package body Uintp is
if Tmp_Int >= Base then
- -- Sign must be 1.
+ -- Sign must be 1
Tmp_Int := (Tmp_Int / Base) + 1;
@@ -1328,7 +1328,7 @@ package body Uintp is
Carry := Tmp_Int / Base;
end loop;
- -- Multiply Divisor by d.
+ -- Multiply Divisor by d
Carry := 0;
for J in reverse Divisor'Range loop
@@ -1338,14 +1338,14 @@ package body Uintp is
end loop;
end if;
- -- Main loop of long division algorithm.
+ -- Main loop of long division algorithm
Divisor_Dig1 := Divisor (1);
Divisor_Dig2 := Divisor (2);
for J in Quotient'Range loop
- -- [ CALCULATE Q (hat) ] (step D3 in the algorithm).
+ -- [ CALCULATE Q (hat) ] (step D3 in the algorithm)
Tmp_Int := Dividend (J) * Base + Dividend (J + 1);
@@ -1474,7 +1474,7 @@ package body Uintp is
if Right = Uint_0 then
return Uint_1;
- -- 0 to any positive power is 0.
+ -- 0 to any positive power is 0
elsif Left = Uint_0 then
return Uint_0;
@@ -1664,7 +1664,7 @@ package body Uintp is
-- UI_GCD --
------------
- -- Lehmer's algorithm for GCD.
+ -- Lehmer's algorithm for GCD
-- The idea is to avoid using multiple precision arithmetic wherever
-- possible, substituting Int arithmetic instead. See Knuth volume II,
@@ -1712,7 +1712,7 @@ package body Uintp is
loop
-- We might overflow and get division by zero here. This just
- -- means we can not take the single precision step
+ -- means we cannot take the single precision step
Den1 := V_Hat + C;
Den2 := V_Hat + D;
@@ -1745,14 +1745,14 @@ package body Uintp is
if B = Int_0 then
- -- No single precision steps take a regular Euclid step.
+ -- No single precision steps take a regular Euclid step
Tmp_UI := U rem V;
U := V;
V := Tmp_UI;
else
- -- Use prior single precision steps to compute this Euclid step.
+ -- Use prior single precision steps to compute this Euclid step
-- Fixed bug 1415-008 spends 80% of its time working on this
-- step. Perhaps we need a special case Int / Uint dot
@@ -2257,7 +2257,7 @@ package body Uintp is
-- and replace the rem with simpler operations where
-- possible.
- -- Least_Sig_Digit might return Negative numbers.
+ -- Least_Sig_Digit might return Negative numbers
when 2 =>
return UI_From_Int (
@@ -2357,7 +2357,7 @@ package body Uintp is
end if;
- -- Else fall through to general case.
+ -- Else fall through to general case
-- ???This needs to be improved. We have the Rem when we do the
-- Div. Div throws it away!
diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads
index 5a340b39968..46286611e78 100644
--- a/gcc/ada/uintp.ads
+++ b/gcc/ada/uintp.ads
@@ -113,12 +113,12 @@ package Uintp is
function UI_Abs (Right : Uint) return Uint;
pragma Inline (UI_Abs);
- -- Returns abs function of universal integer.
+ -- Returns abs function of universal integer
function UI_Add (Left : Uint; Right : Uint) return Uint;
function UI_Add (Left : Int; Right : Uint) return Uint;
function UI_Add (Left : Uint; Right : Int) return Uint;
- -- Returns sum of two integer values.
+ -- Returns sum of two integer values
function UI_Decimal_Digits_Hi (U : Uint) return Nat;
-- Returns an estimate of the number of decimal digits required to
@@ -143,44 +143,44 @@ package Uintp is
function UI_Eq (Left : Int; Right : Uint) return Boolean;
function UI_Eq (Left : Uint; Right : Int) return Boolean;
pragma Inline (UI_Eq);
- -- Compares integer values for equality.
+ -- Compares integer values for equality
function UI_Expon (Left : Uint; Right : Uint) return Uint;
function UI_Expon (Left : Int; Right : Uint) return Uint;
function UI_Expon (Left : Uint; Right : Int) return Uint;
function UI_Expon (Left : Int; Right : Int) return Uint;
- -- Returns result of exponentiating two integer values
+ -- Returns result of exponentiating two integer values.
-- Fatal error if Right is negative.
function UI_GCD (Uin, Vin : Uint) return Uint;
- -- Computes GCD of input values. Assumes Uin >= Vin >= 0.
+ -- Computes GCD of input values. Assumes Uin >= Vin >= 0
function UI_Ge (Left : Uint; Right : Uint) return Boolean;
function UI_Ge (Left : Int; Right : Uint) return Boolean;
function UI_Ge (Left : Uint; Right : Int) return Boolean;
pragma Inline (UI_Ge);
- -- Compares integer values for greater than or equal.
+ -- Compares integer values for greater than or equal
function UI_Gt (Left : Uint; Right : Uint) return Boolean;
function UI_Gt (Left : Int; Right : Uint) return Boolean;
function UI_Gt (Left : Uint; Right : Int) return Boolean;
pragma Inline (UI_Gt);
- -- Compares integer values for greater than.
+ -- Compares integer values for greater than
function UI_Is_In_Int_Range (Input : Uint) return Boolean;
pragma Inline (UI_Is_In_Int_Range);
- -- Determines if universal integer is in Int range.
+ -- Determines if universal integer is in Int range
function UI_Le (Left : Uint; Right : Uint) return Boolean;
function UI_Le (Left : Int; Right : Uint) return Boolean;
function UI_Le (Left : Uint; Right : Int) return Boolean;
pragma Inline (UI_Le);
- -- Compares integer values for less than or equal.
+ -- Compares integer values for less than or equal
function UI_Lt (Left : Uint; Right : Uint) return Boolean;
function UI_Lt (Left : Int; Right : Uint) return Boolean;
function UI_Lt (Left : Uint; Right : Int) return Boolean;
- -- Compares integer values for less than.
+ -- Compares integer values for less than
function UI_Max (Left : Uint; Right : Uint) return Uint;
function UI_Max (Left : Int; Right : Uint) return Uint;
@@ -190,13 +190,13 @@ package Uintp is
function UI_Min (Left : Uint; Right : Uint) return Uint;
function UI_Min (Left : Int; Right : Uint) return Uint;
function UI_Min (Left : Uint; Right : Int) return Uint;
- -- Returns minimum of two integer values.
+ -- Returns minimum of two integer values
function UI_Mod (Left : Uint; Right : Uint) return Uint;
function UI_Mod (Left : Int; Right : Uint) return Uint;
function UI_Mod (Left : Uint; Right : Int) return Uint;
pragma Inline (UI_Mod);
- -- Returns mod function of two integer values.
+ -- Returns mod function of two integer values
function UI_Mul (Left : Uint; Right : Uint) return Uint;
function UI_Mul (Left : Int; Right : Uint) return Uint;
@@ -207,16 +207,16 @@ package Uintp is
function UI_Ne (Left : Int; Right : Uint) return Boolean;
function UI_Ne (Left : Uint; Right : Int) return Boolean;
pragma Inline (UI_Ne);
- -- Compares integer values for inequality.
+ -- Compares integer values for inequality
function UI_Negate (Right : Uint) return Uint;
pragma Inline (UI_Negate);
- -- Returns negative of universal integer.
+ -- Returns negative of universal integer
function UI_Rem (Left : Uint; Right : Uint) return Uint;
function UI_Rem (Left : Int; Right : Uint) return Uint;
function UI_Rem (Left : Uint; Right : Int) return Uint;
- -- Returns rem of two integer values.
+ -- Returns rem of two integer values
function UI_Sub (Left : Uint; Right : Uint) return Uint;
function UI_Sub (Left : Int; Right : Uint) return Uint;
diff --git a/gcc/ada/uname.ads b/gcc/ada/uname.ads
index 0b988618f08..bf2ed3ab99a 100644
--- a/gcc/ada/uname.ads
+++ b/gcc/ada/uname.ads
@@ -74,7 +74,7 @@ package Uname is
-- corresponding body, i.e. characters %s replaced by %b
function Get_Parent_Body_Name (N : Unit_Name_Type) return Unit_Name_Type;
- -- Given the name of a subunit, returns the name of the parent body.
+ -- Given the name of a subunit, returns the name of the parent body
function Get_Parent_Spec_Name (N : Unit_Name_Type) return Unit_Name_Type;
-- Given the name of a child unit spec or body, returns the unit name
diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads
index a9cbccd23b5..24902393829 100644
--- a/gcc/ada/urealp.ads
+++ b/gcc/ada/urealp.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --
@@ -148,19 +148,19 @@ package Urealp is
-- Table.Tree_Write routines.
function Rbase (Real : Ureal) return Nat;
- -- Return the base of the universal real.
+ -- Return the base of the universal real
function Denominator (Real : Ureal) return Uint;
- -- Return the denominator of the universal real.
+ -- Return the denominator of the universal real
function Numerator (Real : Ureal) return Uint;
- -- Return the numerator of the universal real.
+ -- Return the numerator of the universal real
function Norm_Den (Real : Ureal) return Uint;
- -- Return the denominator of the universal real after a normalization.
+ -- Return the denominator of the universal real after a normalization
function Norm_Num (Real : Ureal) return Uint;
- -- Return the numerator of the universal real after a normalization.
+ -- Return the numerator of the universal real after a normalization
function UR_From_Uint (UI : Uint) return Ureal;
-- Returns real corresponding to universal integer value
@@ -234,7 +234,7 @@ package Urealp is
-- Returns negative of real
function UR_Eq (Left, Right : Ureal) return Boolean;
- -- Compares reals for equality.
+ -- Compares reals for equality
function UR_Max (Left, Right : Ureal) return Ureal;
-- Returns the maximum of two reals
@@ -243,19 +243,19 @@ package Urealp is
-- Returns the minimum of two reals
function UR_Ne (Left, Right : Ureal) return Boolean;
- -- Compares reals for inequality.
+ -- Compares reals for inequality
function UR_Lt (Left, Right : Ureal) return Boolean;
- -- Compares reals for less than.
+ -- Compares reals for less than
function UR_Le (Left, Right : Ureal) return Boolean;
- -- Compares reals for less than or equal.
+ -- Compares reals for less than or equal
function UR_Gt (Left, Right : Ureal) return Boolean;
- -- Compares reals for greater than.
+ -- Compares reals for greater than
function UR_Ge (Left, Right : Ureal) return Boolean;
- -- Compares reals for greater than or equal.
+ -- Compares reals for greater than or equal
function UR_Is_Zero (Real : Ureal) return Boolean;
-- Tests if real value is zero
diff --git a/gcc/ada/usage.ads b/gcc/ada/usage.ads
index 4aba2132bcd..d60fdffb0be 100644
--- a/gcc/ada/usage.ads
+++ b/gcc/ada/usage.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/validsw.ads b/gcc/ada/validsw.ads
index 38214fa8b03..a2d0a189b38 100644
--- a/gcc/ada/validsw.ads
+++ b/gcc/ada/validsw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2005, 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- --
@@ -48,11 +48,12 @@ package Validsw is
-- expressions in object declarations are checked for validity.
Validity_Check_Default : Boolean := True;
- -- Controls default (reference manual) validity checking. If this switch
- -- is set to True using -gnatVd or a 'd' in the argument of a Validity_
- -- Checks pragma then left side subscripts and case statement arguments
- -- are checked for validity. This switch is also set by default if no
- -- -gnatV switch is used and no Validity_Checks pragma is processed.
+ -- Controls default (reference manual) validity checking. If this switch is
+ -- set to True using -gnatVd or a 'd' in the argument of a Validity_ Checks
+ -- pragma (or the initial default value is used, set True), then left side
+ -- subscripts and case statement arguments are checked for validity. This
+ -- switch is also set by default if no -gnatV switch is used and no
+ -- Validity_Checks pragma is processed.
Validity_Check_Floating_Point : Boolean := False;
-- Normally validity checking applies only to discrete values (integer
diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb
index 250e00e9d16..2157731bdf4 100644
--- a/gcc/ada/vms_conv.adb
+++ b/gcc/ada/vms_conv.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2005, 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- --
@@ -651,7 +651,7 @@ package body VMS_Conv is
begin
Put ("GNAT ");
Put_Line (Gnatvsn.Gnat_Version_String);
- Put_Line ("Copyright 1996-2005 Free Software Foundation, Inc.");
+ Put_Line ("Copyright 1996-2005, Free Software Foundation, Inc.");
end Output_Version;
-----------
diff --git a/gcc/ada/vms_conv.ads b/gcc/ada/vms_conv.ads
index cb59ff9bb7c..1989381f5a2 100644
--- a/gcc/ada/vms_conv.ads
+++ b/gcc/ada/vms_conv.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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/vxaddr2line.adb b/gcc/ada/vxaddr2line.adb
index ad53b1024ad..ba87c9938a3 100644
--- a/gcc/ada/vxaddr2line.adb
+++ b/gcc/ada/vxaddr2line.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2002-2005 Ada Core Technologies, Inc. --
+-- Copyright (C) 2002-2005, AdaCore --
-- --
-- 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- --
@@ -90,7 +90,7 @@ procedure VxAddr2Line is
type Arch_Record is record
Addr2line_Binary : String_Access;
- -- Name of the addr2line utility to use.
+ -- Name of the addr2line utility to use
Nm_Binary : String_Access;
-- Name of the host nm utility, which will be used to find out the
@@ -294,7 +294,7 @@ procedure VxAddr2Line is
return Value;
end;
- -- We can not get here
+ -- We cannot get here
raise Program_Error;
@@ -408,7 +408,7 @@ begin
Error ("Couldn't find " & Arch_List (Cur_Arch).Addr2line_Binary.all);
end if;
- -- The first argument specifies the image file. Check if it exists.
+ -- The first argument specifies the image file. Check if it exists
if not Is_Regular_File (Argument (1)) then
Error ("Couldn't find the executable " & Argument (1));
diff --git a/gcc/ada/widechar.adb b/gcc/ada/widechar.adb
index e1999286e49..31fedc48d11 100644
--- a/gcc/ada/widechar.adb
+++ b/gcc/ada/widechar.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/widechar.ads b/gcc/ada/widechar.ads
index cc0ab34a022..8686f81890b 100644
--- a/gcc/ada/widechar.ads
+++ b/gcc/ada/widechar.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/xeinfo.adb b/gcc/ada/xeinfo.adb
index d057e04a551..a24dff436c9 100644
--- a/gcc/ada/xeinfo.adb
+++ b/gcc/ada/xeinfo.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/xnmake.adb b/gcc/ada/xnmake.adb
index d221d94b22c..ec08692e275 100644
--- a/gcc/ada/xnmake.adb
+++ b/gcc/ada/xnmake.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 5e8cbe34a0a..b3aa017dd95 100644
--- a/gcc/ada/xr_tabls.adb
+++ b/gcc/ada/xr_tabls.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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- --
@@ -131,7 +131,7 @@ package body Xr_Tabls is
-- Column. This key should be used for lookup in Entity_HTable
function Is_Less_Than (Decl1, Decl2 : Declaration_Reference) return Boolean;
- -- Compare two declarations. The comparison is case-insensitive.
+ -- Compare two declarations (the comparison is case-insensitive)
function Is_Less_Than (Ref1, Ref2 : Reference) return Boolean;
-- Compare two references
@@ -144,14 +144,12 @@ package body Xr_Tabls is
Get_Declaration : Boolean := False;
Arr : in out Reference_Array;
Index : in out Natural);
- -- Store in Arr, starting at Index, all the references to Decl.
- -- The Get_* parameters can be used to indicate which references should be
- -- stored.
+ -- Store in Arr, starting at Index, all the references to Decl. The Get_*
+ -- parameters can be used to indicate which references should be stored.
-- Constraint_Error will be raised if Arr is not big enough.
procedure Sort (Arr : in out Reference_Array);
- -- Sort an array of references.
- -- Arr'First must be 1.
+ -- Sort an array of references (Arr'First must be 1)
--------------
-- Set_Next --
diff --git a/gcc/ada/xr_tabls.ads b/gcc/ada/xr_tabls.ads
index be1d8d00418..d2b83353e6c 100644
--- a/gcc/ada/xr_tabls.ads
+++ b/gcc/ada/xr_tabls.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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- --
@@ -35,7 +35,7 @@ package Xr_Tabls is
-------------------
function ALI_File_Name (Ada_File_Name : String) return String;
- -- Returns the ali file name corresponding to Ada_File_Name.
+ -- Returns the ali file name corresponding to Ada_File_Name
procedure Create_Project_File (Name : String);
-- Open and parse a new project file. If the file Name could not be
@@ -82,14 +82,14 @@ package Xr_Tabls is
Remove_Only : Boolean := False;
Symbol_Match : Boolean := True)
return Declaration_Reference;
- -- Add a new declaration in the table and return the index to it.
- -- Decl_Type is the type of the entity Any previous instance of this
- -- entity in the htable is removed. If Remove_Only is True, then any
- -- previous instance is removed, but the new entity is never inserted.
- -- Symbol_Match should be set to False if the name of the symbol doesn't
- -- match the pattern from the command line. In that case, the entity will
- -- not be output by gnatfind. If Symbol_Match is True, the entity will only
- -- be output if the file name itself matches.
+ -- Add a new declaration in the table and return the index to it. Decl_Type
+ -- is the type of the entity Any previous instance of this entity in the
+ -- htable is removed. If Remove_Only is True, then any previous instance is
+ -- removed, but the new entity is never inserted. Symbol_Match should be
+ -- set to False if the name of the symbol doesn't match the pattern from
+ -- the command line. In that case, the entity will not be output by
+ -- gnatfind. If Symbol_Match is True, the entity will only be output if the
+ -- file name itself matches.
procedure Add_Parent
(Declaration : in out Declaration_Reference;
@@ -160,10 +160,9 @@ package Xr_Tabls is
Get_Writes : Boolean := False;
Get_Bodies : Boolean := False)
return Reference_Array_Access;
- -- Return a sorted list of all references to the entity in decl.
- -- The parameters Get_* are used to specify what kind of references
- -- should be merged and returned (read-only accesses, write accesses
- -- and bodies).
+ -- Return a sorted list of all references to the entity in decl. The
+ -- parameters Get_* are used to specify what kind of references should be
+ -- merged and returned (read-only accesses, write accesses and bodies).
function Get_Column (Decl : Declaration_Reference) return String;
function Get_Column (Ref : Reference) return String;
@@ -216,14 +215,13 @@ package Xr_Tabls is
(File : File_Reference;
With_Dir : Boolean := False;
Strip : Natural := 0) return String;
- -- Returns the file name (and its directory if With_Dir is True or the
- -- user has used the -f switch on the command line. If Strip is not 0,
- -- then the last Strip-th "-..." substrings are removed first. For
- -- instance, with Strip=2, a file name "parent-child1-child2-child3.ali"
- -- would be returned as "parent-child1.ali". This is used when looking
- -- for the ALI file to use for a package, since for separates with have
- -- to use the parent's ALI. The null string is returned if there is no
- -- such parent unit.
+ -- Returns the file name (and its directory if With_Dir is True or the user
+ -- has used the -f switch on the command line. If Strip is not 0, then the
+ -- last Strip-th "-..." substrings are removed first. For instance, with
+ -- Strip=2, a file name "parent-child1-child2-child3.ali" would be returned
+ -- as "parent-child1.ali". This is used when looking for the ALI file to
+ -- use for a package, since for separates with have to use the parent's
+ -- ALI. The null string is returned if there is no such parent unit.
--
-- Note that this version of Get_File is not inlined
@@ -240,16 +238,16 @@ package Xr_Tabls is
-- Return the source line associated with the reference
procedure Grep_Source_Files;
- -- Parse all the source files which have at least one reference,
- -- and grep the appropriate source lines so that we'll be able to
- -- display them. This function should be called once all the .ali
- -- files have been parsed, and only if the appropriate user switch
+ -- Parse all the source files which have at least one reference, and grep
+ -- the appropriate source lines so that we'll be able to display them. This
+ -- function should be called once all the .ali files have been parsed, and
+ -- only if the appropriate user switch
-- has been used (gnatfind -s).
--
- -- Note: To save memory, the strings for the source lines are shared.
- -- Thus it is no longer possible to free the references, or we would
- -- free the same chunk multiple times. It doesn't matter, though, since
- -- this is only called once, prior to exiting gnatfind.
+ -- Note: To save memory, the strings for the source lines are shared. Thus
+ -- it is no longer possible to free the references, or we would free the
+ -- same chunk multiple times. It doesn't matter, though, since this is only
+ -- called once, prior to exiting gnatfind.
function Longest_File_Name return Natural;
-- Returns the longest file name found
@@ -266,9 +264,9 @@ package Xr_Tabls is
-- by the user
function Next_Unvisited_File return File_Reference;
- -- Returns the next unvisited library file in the list
- -- If there is no more unvisited file, return Empty_File.
- -- Two calls to this subprogram will return different files.
+ -- Returns the next unvisited library file in the list If there is no more
+ -- unvisited file, return Empty_File. Two calls to this subprogram will
+ -- return different files.
procedure Set_Default_Match (Value : Boolean);
-- Set the default value for match in declarations.
@@ -276,23 +274,22 @@ package Xr_Tabls is
-- command line, then every file match
procedure Reset_Directory (File : File_Reference);
- -- Reset the cached directory for file. Next time Get_File is
- -- called, the directory willl be recomputed.
+ -- Reset the cached directory for file. Next time Get_File is called, the
+ -- directory willl be recomputed.
procedure Set_Unvisited (File_Ref : File_Reference);
- -- Set File_Ref as unvisited. So Next_Unvisited_File will return it.
+ -- Set File_Ref as unvisited. So Next_Unvisited_File will return it
procedure Read_File
(File_Name : String;
Contents : out GNAT.OS_Lib.String_Access);
- -- Reads File_Name into the newly allocated strig Contents. A
- -- Types.EOF character will be added to the returned Contents to
- -- simplify parsing. Name_Error is raised if the file was not found.
- -- End_Error is raised if the file could not be read correctly. For
- -- most systems correct reading means that the number of bytes read
- -- is equal to the file size. The exception is OpenVMS where correct
- -- reading means that the number of bytes read is less than or equal
- -- to the file size.
+ -- Reads File_Name into the newly allocated strig Contents. Types.EOF
+ -- character will be added to the returned Contents to simplify parsing.
+ -- Name_Error is raised if the file was not found. End_Error is raised if
+ -- the file could not be read correctly. For most systems correct reading
+ -- means that the number of bytes read is equal to the file size. The
+ -- exception is OpenVMS where correct reading means that the number of
+ -- bytes read is less than or equal to the file size.
private
type Project_File (Src_Dir_Length, Obj_Dir_Length : Natural) is record
diff --git a/gcc/ada/xref_lib.ads b/gcc/ada/xref_lib.ads
index bc4c4fa1f00..2c9f944e594 100644
--- a/gcc/ada/xref_lib.ads
+++ b/gcc/ada/xref_lib.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2005, 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- --
@@ -95,7 +95,7 @@ package Xref_Lib is
------------------------
function Default_Project_File (Dir_Name : in String) return String;
- -- Returns the default Project file name for the directory Dir_Name.
+ -- Returns the default Project file name for the directory Dir_Name
procedure Search
(Pattern : Search_Pattern;
@@ -144,16 +144,16 @@ private
type Dependencies is new Dependencies_Tables.Instance;
type ALI_File is limited record
- Buffer : String_Access := null;
+ Buffer : String_Access := null;
-- Buffer used to read the whole file at once
- Current_Line : Positive;
+ Current_Line : Positive;
-- Start of the current line in Buffer
- Xref_Line : Positive;
+ Xref_Line : Positive;
-- Start of the xref lines in Buffer
- X_File : Xr_Tabls.File_Reference;
+ X_File : Xr_Tabls.File_Reference;
-- Stores the cross-referencing file-name ("X..." lines), as an
-- index into the dependencies table
@@ -171,10 +171,10 @@ private
-- line, it is stored as "Entity_Name Declaration_File:line:column"
File_Ref : Xr_Tabls.File_Reference;
- -- A reference to the source file, if any.
+ -- A reference to the source file, if any
Initialized : Boolean := False;
- -- Set to True when Entity has been initialized.
+ -- Set to True when Entity has been initialized
end record;
- -- Stores all the pattern that are search for.
+
end Xref_Lib;
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb
index 7ff76c605bc..035109b7c30 100644
--- a/gcc/ada/xsinfo.adb
+++ b/gcc/ada/xsinfo.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/xsnames.adb b/gcc/ada/xsnames.adb
index 47fe13ec88a..6781edbc921 100644
--- a/gcc/ada/xsnames.adb
+++ b/gcc/ada/xsnames.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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/xtreeprs.adb b/gcc/ada/xtreeprs.adb
index eb46f3d96fa..59116e76475 100644
--- a/gcc/ada/xtreeprs.adb
+++ b/gcc/ada/xtreeprs.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, 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- --