summaryrefslogtreecommitdiff
path: root/gcc/ada/g-dirope.adb
diff options
context:
space:
mode:
authorjsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-28 12:56:08 +0000
committerjsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-28 12:56:08 +0000
commitda253936ab1342aaac88586a88a2861ca092aba2 (patch)
treefbb57f6a0d3c44ef1d9fbad080ccc7b3dba33605 /gcc/ada/g-dirope.adb
parentdd5b4b36c6c82b6018d550a469311d9c80bda0d2 (diff)
downloadgcc-da253936ab1342aaac88586a88a2861ca092aba2.tar.gz
* 86numaux.adb, a-tigeau.ads, a-wtgeau.ads, decl.c, exp_ch6.adb,
exp_ch9.adb, exp_util.adb, fname-sf.ads, freeze.ads, g-awk.adb, g-comlin.ads, g-dirope.adb, g-dyntab.ads, g-socket.ads, g-table.ads, g-traceb.ads, gnat-style.texi, gnatchop.adb, init.c, layout.adb, layout.ads, mdllfile.ads, mlib-fil.ads, osint.ads, s-fatgen.adb, s-imgrea.adb, s-taprop.ads, s-tasdeb.ads, sem_aggr.adb, sem_attr.adb, sem_case.ads, sem_ch13.adb, sem_ch3.adb, sem_elab.adb, sem_maps.ads, sem_res.adb, sem_util.ads, sinfo.ads, sinput.ads, table.adb, table.ads, types.ads, urealp.adb: Fix spelling errors. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46581 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-dirope.adb')
-rw-r--r--gcc/ada/g-dirope.adb6
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb
index afa996c56b2..677f5c4527a 100644
--- a/gcc/ada/g-dirope.adb
+++ b/gcc/ada/g-dirope.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1998-2001 Ada Core Technologies, Inc. --
-- --
@@ -228,7 +228,7 @@ package body GNAT.Directory_Operations is
procedure Var (K : in out Positive);
-- Translate variable name starting at position K with the associated
- -- environement value.
+ -- environment value.
procedure Free is
new Unchecked_Deallocation (String, OS_Lib.String_Access);
@@ -304,7 +304,7 @@ package body GNAT.Directory_Operations is
if Path (E) = '}' then
- -- OK found, translate with environement value
+ -- OK found, translate with environment value
declare
Env : OS_Lib.String_Access :=