← Back to branch summary

~ubuntu-branches/ubuntu/raring/adacontrol/raring

« back to all changes in this revision

Viewing changes to src/rules-not_elaboration_calls.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2010-03-13 14:01:37 UTC
  • mfrom: (1.1.5 upstream) (9.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20100313140137-50ia1bbb5qld97fd
Tags: 1.12~b1-1
http://bugs.debian.org/566061
New upstream beta version.  Really closes: #566061 even on i386.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/rules-not_elaboration_calls.adb
38
38
with
39
39
  Asis.Elements;
40
40
 
 
41
-- AdaControl
41
42
with
42
 
  Framework.Language,
43
 
  Framework.Reports,
44
 
  Framework.Rules_Manager,
45
43
  Framework.Scope_Manager;
46
44
 
47
45
package body Rules.Not_Elaboration_Calls is
48
 
   use Framework, Utilities;
 
46
   use Framework, Framework.Control_Manager, Utilities;
49
47
 
50
48
   Rule_Used : Boolean := False;
51
49
   Save_Used : Boolean;
178
175
      end if;
179
176
      Rules_Manager.Enter (Rule_Id);
180
177
 
181
 
      Check (Association (Subprograms, Value ("NEW")), Get_Location (Alloc));
 
178
      Check (Association (Subprograms, "NEW"), Get_Location (Alloc));
182
179
   end Process_Allocator;
183
180
 
184
181
begin  -- Rules.Not_Elaboration_Calls