diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 11:26:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 11:26:07 +0000 |
| commit | 56cf867551f52c9521f9446c8c3bb6f978a3c621 (patch) | |
| tree | 6462efac61920defd0a89b780d7649edde698123 /gcc/ada/g-expect.ads | |
| parent | 1dbd3011c373000aabec05bd173ecccd321ca30c (diff) | |
| download | gcc-56cf867551f52c9521f9446c8c3bb6f978a3c621.tar.gz | |
* gnat_ugn.texi:
Remove extra paren check from list of checks for redundant constructs
Add documentation of new -gnatyx style check (check extra parens)
Remove paragraph about gnatelim debug options.
* gnat_rm.texi: Document that Ada.Streams now forbids creating stream
objects rather than forbidding dependencies on the package Ada.Streams.
* sinfo.ads: Add ??? note that we should document pragmas passed to
back end.
* g-expect.ads: Fix a few typos in the comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90915 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-expect.ads')
| -rw-r--r-- | gcc/ada/g-expect.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 4a57022b52f..1bd58a63947 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2003 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2004 Ada Core Technologies, Inc. -- -- -- -- GNAT is 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 @@ -- Non_Blocking_Spawn -- (Fd, "ftp", --- (1 => new String' ("machine@domaine"))); +-- (1 => new String' ("machine@domain"))); -- Timeout := 10000; -- 10 seconds -- Expect (Fd, Result, Regexp_Array'(+"\(user\)", +"\(passwd\)"), -- Timeout); @@ -68,7 +68,7 @@ -- name of the language by doing: -- declare --- Matched : Regexp_Array (0 .. 2); +-- Matched : Match_Array (0 .. 2); -- begin -- Expect (Fd, Result, "lang=(optional)? ([a-z]+)", Matched); -- Put_Line ("Seen: " & @@ -309,8 +309,7 @@ package GNAT.Expect is function "+" (S : String) return GNAT.OS_Lib.String_Access; -- Allocate some memory for the string. This is merely a convenience - -- convenience function to help create the array of regexps in the - -- call to Expect. + -- function to help create the array of regexps in the call to Expect. procedure Expect (Descriptor : in out Process_Descriptor; |