diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-11 23:11:45 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-11 23:11:45 +0100 |
| commit | 980f237d115e7d58e664c063e0aade7dafd636ea (patch) | |
| tree | 9a2ec6960caa6e0b10445d061c7f8838db87d84c /gcc/ada/sem_util.adb | |
| parent | 290986ede68c7fb27f1ec54c63aa7c2398601444 (diff) | |
| download | gcc-980f237d115e7d58e664c063e0aade7dafd636ea.zip gcc-980f237d115e7d58e664c063e0aade7dafd636ea.tar.gz gcc-980f237d115e7d58e664c063e0aade7dafd636ea.tar.bz2 | |
einfo.ads: Minor reformatting
* einfo.ads: Minor reformatting
* exp_ch5.adb: Add comment for previous.change
* ali.adb: New interface for extended typeref stuff.
* ali.ads: New interface for typeref stuff.
* checks.adb (Apply_Alignment_Check): New procedure.
* debug.adb: Add -gnatdM for modified ALI output
* exp_pakd.adb (Known_Aligned_Enough): Replaces Known_Aligned_Enough.
* lib-xref.adb: Extend generation of <..> notation to cover
subtype/object types. Note that this is a complete rewrite,
getting rid of the very nasty quadratic algorithm previously
used for derived type output.
* lib-xref.ads: Extend description of <..> notation to cover
subtype/object types. Uses {..} for these other cases.
Also use (..) for pointer types.
* sem_util.adb (Check_Potentially_Blocking_Operation): Slight cleanup.
* exp_pakd.adb: Minor reformatting. Note that prevous RH should say:
(Known_Aligned_Enough): Replaces Must_Be_Aligned.
From-SVN: r47896
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e53f871..df9ef75 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -720,8 +720,7 @@ package body Sem_Util is if Is_Protected_Type (S) then if Restricted_Profile then Insert_Before (N, - Make_Raise_Statement (Loc, - Name => New_Occurrence_Of (Standard_Program_Error, Loc))); + Make_Raise_Program_Error (Loc)); Error_Msg_N ("potentially blocking operation, " & " Program Error will be raised at run time?", N); |