Changeset 408


Ignore:
Timestamp:
Mar 6, 2015, 10:12:26 AM (5 years ago)
Author:
Maxim Reznik
Message:

Enable pragma Initialize_Scalars and fix regressions

Location:
trunk/ada-2012
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/gnat/gela_build.gpr

    r407 r408  
    1616   package Compiler is
    1717      for Default_Switches ("ada") use Check_Ada_Switches;
    18 --      for Local_Configuration_Pragmas use "./gnat.adc";
     18      for Local_Configuration_Pragmas use "./gnat.adc";
    1919   end Compiler;
    2020
  • trunk/ada-2012/src/ag/down.ag

    r407 r408  
    995995      Gela.Pass_Utils.Resolve.Real_Type
    996996        (Self.Compilation,
    997          ${Real_Range_Constraint.Up},
    998          ${Real_Range_Constraint.Down});
    999 .)
    1000 
    1001 Rules for floating_point_definition. :
    1002 (.
    1003       Gela.Pass_Utils.Resolve.Real_Type
    1004         (Self.Compilation,
    1005997         ${Real_Range_Constraint.Up:0},
    1006998         ${Real_Range_Constraint.Down});
    1007999.)
    10081000
     1001Rules for floating_point_definition. :
     1002(.
     1003      Gela.Pass_Utils.Resolve.Real_Type
     1004        (Self.Compilation,
     1005         ${Real_Range_Constraint.Up:0},
     1006         ${Real_Range_Constraint.Down});
     1007.)
     1008
    10091009Rules for ordinary_fixed_point_definition. :
    10101010(.
    10111011      Gela.Pass_Utils.Resolve.Real_Type
    10121012        (Self.Compilation,
    1013          ${Real_Range_Constraint.Up},
     1013         ${Real_Range_Constraint.Up:0},
    10141014         ${Real_Range_Constraint.Down});
    10151015.)
  • trunk/ada-2012/src/ag/up.ag

    r393 r408  
    235235Rules for delta_constraint. :
    236236(.
    237       ${delta_constraint.Up} := ${Real_Range_Constraint.Up};
     237      ${delta_constraint.Up} := ${Real_Range_Constraint.Up:0};
    238238.)
    239239
    240240Rules for digits_constraint. :
    241241(.
    242       ${digits_constraint.Up} := ${Real_Range_Constraint.Up};
     242      ${digits_constraint.Up} := ${Real_Range_Constraint.Up:0};
    243243.)
    244244
Note: See TracChangeset for help on using the changeset viewer.