From 2c1a2cf39e016ce795a5cb9801af8098bfa8a234 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 29 Aug 2011 08:54:00 +0000 Subject: exp_attr.adb: Minor reformatting. 2011-08-29 Robert Dewar * exp_attr.adb: Minor reformatting. Minor code reorganization and commenting. * par_sco.adb, checks.adb, sem_attr.adb, get_scos.adb: Minor reformatting. From-SVN: r178166 --- gcc/ada/get_scos.adb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gcc/ada/get_scos.adb') diff --git a/gcc/ada/get_scos.adb b/gcc/ada/get_scos.adb index 43c27b5..8fc4dfc 100644 --- a/gcc/ada/get_scos.adb +++ b/gcc/ada/get_scos.adb @@ -24,6 +24,9 @@ ------------------------------------------------------------------------------ pragma Ada_2005; +-- This unit is not part of the compiler proper, it is used in tools that +-- read SCO information from ALI files (Xcov and sco_test). Ada 2005 +-- constructs may therefore be used freely (and are indeed). with SCOs; use SCOs; with Snames; use Snames; @@ -297,12 +300,14 @@ begin exit when Nextc = ':'; N := N + 1; end loop; + begin Pid := Pragma_Id'Value (Buf (1 .. N)); exception when Constraint_Error => Pid := Unknown_Pragma; end; + Skipc; end if; end if; -- cgit v1.1