diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
| commit | e2c9a0153d4c7bde3f380ec853788b7147684da0 (patch) | |
| tree | 413a1ca4724e02b6fd1f64e1fe14e1d496bbffa8 /gcc/ada/a-comlin.adb | |
| parent | 447e605f4566b27ff6da22c7dca9671073f49508 (diff) | |
| download | gcc-e2c9a0153d4c7bde3f380ec853788b7147684da0.tar.gz | |
2009-08-17 Robert Dewar <dewar@adacore.com>
* a-caldel-vms.adb, a-calend-vms.adb, a-calfor.adb, a-cdlili.adb,
a-chahan.adb, a-cidlli.adb, a-coinve.adb, a-comlin.adb: Minor code
reorganization (use conditional expressions).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150834 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-comlin.adb')
| -rw-r--r-- | gcc/ada/a-comlin.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/a-comlin.adb b/gcc/ada/a-comlin.adb index 2b6c32e104f..b29693638d6 100644 --- a/gcc/ada/a-comlin.adb +++ b/gcc/ada/a-comlin.adb @@ -29,7 +29,9 @@ -- -- ------------------------------------------------------------------------------ -with System; use System; +pragma Compiler_Unit; + +with System; use System; package body Ada.Command_Line is @@ -71,7 +73,6 @@ package body Ada.Command_Line is declare Arg : aliased String (1 .. Len_Arg (Num)); - begin Fill_Arg (Arg'Address, Num); return Arg; |