diff options
| author | Robert Dewar <dewar@adacore.com> | 2005-11-15 14:06:45 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@adacore.com> | 2005-11-15 14:06:45 +0000 |
| commit | a0f88904e9ca329e0c0857bcfc0e1b947381beca (patch) | |
| tree | 4b2ed65c34a779d66884720031ddda3038633045 /gcc/ada | |
| parent | cfa9e8584d6e5d5e080c22ab2d830c9ca63457c6 (diff) | |
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: https://gcc.gnu.org/svn/gcc/trunk@107016 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
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- -- |