diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:54:36 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:54:36 +0000 |
| commit | 76a1c25b5ba521501bd8e2ce30573c34cc0da1fb (patch) | |
| tree | 873996443f0c7e7119eead6a25a380b1d3b5441a /gcc/ada/exp_ch9.ads | |
| parent | 986fb7dd6375783b9f492a215dd9d767575cdb7c (diff) | |
| download | gcc-76a1c25b5ba521501bd8e2ce30573c34cc0da1fb.tar.gz | |
2005-11-14 Hristian Kirtchev <kirtchev@adacore.com>
Javier Miranda <miranda@adacore.com>
* rtsfind.ads, exp_util.adb, exp_util.ads, exp_disp.adb, exp_disp.ads,
exp_ch7.adb, sem_ch9.adb, snames.adb, snames.ads,
exp_ch9.adb, exp_ch9.ads, exp_ch6.adb, exp_ch3.adb, exp_ch3.ads,
einfo.ads, einfo.adb: Complete support for Ada 2005 interfaces.
* a-tags.ads, a-tags.adb: Major rewrite and additions to implement
properly new Ada 2005 interfaces (AI-345) and add run-time checks (via
assertions).
* exp_dbug.ads, exp_dbug.adb (Get_Secondary_DT_External_Name): New
subprogram that generates the external name associated with a
secondary dispatch table.
(Get_Secondary_DT_External_Name): New subprogram that generates the
external name associated with a secondary dispatch table.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106965 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.ads')
| -rw-r--r-- | gcc/ada/exp_ch9.ads | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 044f56d4543..baa5036d821 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, 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- -- @@ -311,13 +311,21 @@ package Exp_Ch9 is -- protected type. procedure Set_Privals - (Dec : Node_Id; - Op : Node_Id; - Loc : Source_Ptr); + (Dec : Node_Id; + Op : Node_Id; + Loc : Source_Ptr; + After_Barrier : Boolean := False); -- Associates a new set of privals (placeholders for later access to -- private components of protected objects) with the private object -- declarations of a protected object. These will be used to expand -- the references to private objects in the next protected -- subprogram or entry body to be expanded. + -- + -- The flag After_Barrier indicates whether this is called after building + -- the barrier function for an entry body. This flag determines whether + -- the privals should have source names (which simplifies debugging) or + -- internally generated names. Entry barriers contain no debuggable code, + -- and there may be visibility conflicts between an entry index and a + -- a prival, so privals for barrier function have internal names. end Exp_Ch9; |