diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2008-07-31 14:46:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 14:46:23 +0200 |
| commit | e84e11ba0a57e5a319504d4f0197aad385f85e80 (patch) | |
| tree | b4e0ed9b5b4d45488eacbfd965b03a06d5e5e2ed /libgfortran/generated | |
| parent | 67d7b0ab5ffd3d67e804732cdb74299300db18b6 (diff) | |
| download | gcc-e84e11ba0a57e5a319504d4f0197aad385f85e80.zip gcc-e84e11ba0a57e5a319504d4f0197aad385f85e80.tar.gz gcc-e84e11ba0a57e5a319504d4f0197aad385f85e80.tar.bz2 | |
checks.ads (Apply_Accessibility_Check): Add parameter Insert_Node.
2008-07-31 Gary Dismukes <dismukes@adacore.com>
* checks.ads (Apply_Accessibility_Check): Add parameter Insert_Node.
* checks.adb (Apply_Accessibility_Check): Insert the check on
Insert_Node.
* exp_attr.adb:
(Expand_N_Attribute_Refernce, Attribute_Access): Pass attribute node
to new parameter Insert_Node on call to Apply_Accessibility_Check.
Necessary to distinguish the insertion node because the dereferenced
formal may come from a rename, but the check must be inserted in
front of the attribute.
* exp_ch4.adb:
(Expand_N_Allocator): Pass actual for new Insert_Node parameter on
call to Apply_Accessibility_Check.
(Expand_N_Type_Conversion): Pass actual for new Insert_Node parameter
on call to Apply_Accessibility_Check.
Minor reformatting
From-SVN: r138399
Diffstat (limited to 'libgfortran/generated')
0 files changed, 0 insertions, 0 deletions