diff options
| author | Vasiliy Fofanov <fofanov@adacore.com> | 2007-12-13 11:27:42 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:27:42 +0100 |
| commit | 1fdc61b5655590ecc6352866204174c093589df3 (patch) | |
| tree | 90f05c1d049e8b447f06fa0196ce71664ad77ee2 /gcc/ada/g-regist.ads | |
| parent | 422ba273d4ee724caa04eb7e1e9c198b4aeb3e1a (diff) | |
| download | gcc-1fdc61b5655590ecc6352866204174c093589df3.zip gcc-1fdc61b5655590ecc6352866204174c093589df3.tar.gz gcc-1fdc61b5655590ecc6352866204174c093589df3.tar.bz2 | |
g-regist.ads, [...] (Set_Value): new parameter Expand...
2007-12-06 Vasiliy Fofanov <fofanov@adacore.com>
* g-regist.ads, g-regist.adb (Set_Value): new parameter Expand; when
set to True this procedure will create the value of type REG_EXPAND_SZ.
It was only possible to create REG_SZ values before.
From-SVN: r130842
Diffstat (limited to 'gcc/ada/g-regist.ads')
| -rw-r--r-- | gcc/ada/g-regist.ads | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/g-regist.ads b/gcc/ada/g-regist.ads index 054ebb8..038b94b 100644 --- a/gcc/ada/g-regist.ads +++ b/gcc/ada/g-regist.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is 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,8 +95,14 @@ package GNAT.Registry is -- 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 + procedure Set_Value + (From_Key : HKEY; + Sub_Key : String; + Value : String; + Expand : Boolean := False); + -- Add the pair (Sub_Key, Value) into From_Key registry key. + -- By default the value created is of type REG_SZ, unless + -- Expand is True in which case it is of type REG_EXPAND_SZ procedure Delete_Key (From_Key : HKEY; Sub_Key : String); -- Remove Sub_Key from the registry key From_Key |