Changeset 384


Ignore:
Timestamp:
Jan 9, 2015, 1:34:56 PM (5 years ago)
Author:
Maxim Reznik
Message:

Add --debug= parameter

When user specifies --debug=UP,DOWN,ENV_IN,ENV_OUT library will
dump corresponding attributes.

Location:
trunk/ada-2012/src
Files:
4 added
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/comp/gela-plain_compilation_managers.adb

    r362 r384  
    4646with Gela.Elements.Protected_Bodies;
    4747
     48with Gela.Debug_Properties;
     49
    4850package body Gela.Plain_Compilation_Managers is
    4951
     
    6264      Value  : out Gela.Dependency_Lists.Unit_Data);
    6365
    64    ----------------------
    65    -- Add_Depend_Units --
    66    ----------------------
     66   ----------------
     67   -- Initialize --
     68   ----------------
     69
     70   not overriding procedure Initialize
     71     (Self : in out Compilation_Manager;
     72      Debug   : League.Strings.Universal_String) is
     73   begin
     74      Self.Debug := Debug;
     75   end Initialize;
     76
     77   --------------------
     78   -- Look_Into_Unit --
     79   --------------------
    6780
    6881   procedure Look_Into_Unit
     
    971984                     begin
    972985                        PL.Compilation_Unit_Body_1 (Action.Unit.Unit_Body);
     986
     987                        if not Self.Debug.Is_Empty then
     988                           Gela.Debug_Properties.Dump
     989                             (Gela.Elements.Element_Access
     990                                (Action.Unit.Unit_Body),
     991                              Self.Debug);
     992                        end if;
    973993                     end;
    974994                  when Gela.Dependency_Lists.Unit_Declaration =>
  • trunk/ada-2012/src/comp/gela-plain_compilation_managers.ads

    r239 r384  
    2020
    2121   type Compilation_Manager_Access is access all Compilation_Manager;
     22
     23   not overriding procedure Initialize
     24     (Self  : in out Compilation_Manager;
     25      Debug : League.Strings.Universal_String);
    2226
    2327private
     
    6266     limited new Gela.Compilation_Managers.Compilation_Manager with
    6367   record
    64          Packages  : Package_Maps.Map;
    65          --  Map of packages placed in Order list
    66          Bodies    : Body_Maps.Map;
    67          --  Map of unit bodies placed in Order list
    68          Specs     : Spec_Maps.Map;
    69          --  Map of unit declarations placed in Order list
    70          Subunits  : Subunit_Maps.Map;
    71          --  Map of subunits placed in Order list
     68      Packages  : Package_Maps.Map;
     69      --  Map of packages placed in Order list
     70      Bodies    : Body_Maps.Map;
     71      --  Map of unit bodies placed in Order list
     72      Specs     : Spec_Maps.Map;
     73      --  Map of unit declarations placed in Order list
     74      Subunits  : Subunit_Maps.Map;
     75      --  Map of subunits placed in Order list
     76      Debug : League.Strings.Universal_String;
     77      --  Flags for dump data from debugging
    7278   end record;
    7379
  • trunk/ada-2012/src/context/gela-context_factories.adb

    r252 r384  
    1818      Path   : League.Strings.Universal_String;
    1919      Name   : League.Strings.Universal_String;
     20      Debug  : League.Strings.Universal_String;
    2021   begin
    2122      for J in 1 .. Parameters.Length loop
     
    2728
    2829            Path.Append (Param.Slice (3, Param.Length));
     30         elsif Param.Starts_With ("--debug=") then
     31            Debug.Append (Param.Slice (9, Param.Length));
    2932         else
    3033            Name := Param;
     
    3235      end loop;
    3336
    34       Result.Initialize (Include, Path, Name);
     37      Result.Initialize (Include, Path, Name, Debug);
    3538
    3639      return Gela.Contexts.Context_Access (Result);
  • trunk/ada-2012/src/context/gela-plain_contexts.adb

    r331 r384  
    180180
    181181   not overriding procedure Initialize
    182      (Self : in out Context;
    183       Env  : League.Strings.Universal_String;
    184       Path : League.Strings.Universal_String;
    185       Comp : League.Strings.Universal_String)
     182     (Self  : in out Context;
     183      Env   : League.Strings.Universal_String;
     184      Path  : League.Strings.Universal_String;
     185      Comp  : League.Strings.Universal_String;
     186      Debug : League.Strings.Universal_String)
    186187   is
    187188      Deps    : constant Gela.Plain_Dependency_Lists.Dependency_List_Access :=
     
    226227      Self.Values := Gela.Value_Sets.Value_Set_Access (Values);
    227228
     229      Manager.Initialize (Debug);
     230
    228231      if not Comp.Is_Empty then
    229232         Manager.Read_Compilation (Comp);
  • trunk/ada-2012/src/context/gela-plain_contexts.ads

    r331 r384  
    3636
    3737   not overriding procedure Initialize
    38      (Self : in out Context;
    39       Env  : League.Strings.Universal_String;
    40       Path : League.Strings.Universal_String;
    41       Comp : League.Strings.Universal_String);
     38     (Self  : in out Context;
     39      Env   : League.Strings.Universal_String;
     40      Path  : League.Strings.Universal_String;
     41      Comp  : League.Strings.Universal_String;
     42      Debug : League.Strings.Universal_String);
    4243
    4344private
Note: See TracChangeset for help on using the changeset viewer.