diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 23:14:07 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 23:14:07 +0000 |
| commit | 9ffca0cd58b37593feacfcbfd9e10c767ab16f49 (patch) | |
| tree | e7c51126c4c56276a05c1955bd4b196956a352c7 /gcc/ada/g-os_lib.ads | |
| parent | 23551094631c8b413f1b8d81e05d854b96753f87 (diff) | |
| download | gcc-9ffca0cd58b37593feacfcbfd9e10c767ab16f49.tar.gz | |
* gnatmain.adb: Initial version.
* gnatmain.ads: Initial version.
* prj-attr.adb (Initialisation_Data): Add package Gnatstub.
* snames.adb: Updated to match snames.ads.
* snames.ads: Added Gnatstub.
* prj-attr.adb (Initialization_Data): Change name from
Initialisation_Data.
* g-regpat.adb (Parse_Literal): Properly handle simple operators ?,
+ and * applied to backslashed expressions like \r.
* g-os_lib.ads: String_List type added, Argument_List type is now
subtype of String_List.
* g-os_lib.ads: Change copyright to FSF
Add comments for String_List type
* g-dirope.adb (Expand_Path): Fix bug. (wrong length when adding a
string to the buffer).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47905 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-os_lib.ads')
| -rw-r--r-- | gcc/ada/g-os_lib.ads | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/g-os_lib.ads b/gcc/ada/g-os_lib.ads index 07fd8f1b83f..761e01904de 100644 --- a/gcc/ada/g-os_lib.ads +++ b/gcc/ada/g-os_lib.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.79 $ +-- $Revision$ -- -- --- Copyright (C) 1995-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is 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,15 @@ package GNAT.OS_Lib is pragma Elaborate_Body (OS_Lib); type String_Access is access all String; + -- General purpose string access type procedure Free is new Unchecked_Deallocation (Object => String, Name => String_Access); + type String_List is array (Positive range <>) of String_Access; + type String_List_Access is access all String_List; + -- General purpose array and pointer for list of string accesses + --------------------- -- Time/Date Stuff -- --------------------- @@ -381,12 +386,12 @@ pragma Elaborate_Body (OS_Lib); -- Subprocesses -- ------------------ - type Argument_List is array (Positive range <>) of String_Access; + subtype Argument_List is String_List; -- Type used for argument list in call to Spawn. The lower bound -- of the array should be 1, and the length of the array indicates -- the number of arguments. - type Argument_List_Access is access all Argument_List; + subtype Argument_List_Access is String_List_Access; -- Type used to return an Argument_List without dragging in secondary -- stack. |