From e2c9a0153d4c7bde3f380ec853788b7147684da0 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 17 Aug 2009 10:09:55 +0000 Subject: 2009-08-17 Robert Dewar * 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 --- gcc/ada/a-comlin.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/a-comlin.adb') 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; -- cgit v1.2.1