Stephen Leake <[email protected]> writes:

> Stephen Leake <[email protected]> writes:
>
> It indents as:
>
>    subtype Integer_String is String
>    with Dynamic_Predicate => Integer'Value (Integer_String) in Integer
>      or else raise Constraint_Error with "not an integer string";
>
>    type Integer_String is new String
>    with Dynamic_Predicate => Integer'Value (Integer_String) in Integer or 
> else 
>      raise Constraint_Error with "not an integer string";

It looks a little odd when ada-indent-record-rel-type is 3:

   type Limited_Derived_Type_1 is abstract limited new Private_Type_1 with
      record
         Component_1 : Integer := 0;
         Component_2 : Integer := 1;
         Component_3 : Integer := 2;
      end record
   with Pack => True;

-- 
-- Stephe

_______________________________________________
Emacs-ada-mode mailing list
[email protected]
http://host114.hostmonster.com/mailman/listinfo/emacs-ada-mode_stephe-leake.org

Reply via email to