Custom Query (429 matches)

Substitution of nested mtl:for is incorrect.

See test for #454 where 'expected' text is wrong:

     post 1
       post 2 -> subitem 1-2
       post 2 -> subitem 1-2
        post 2
       post 2 -> subitem 2-2
       post 2 -> subitem 2-2

Correct value should be:

     post 1
       post 1 -> subitem 1-1
       post 1 -> subitem 1-2
        post 2
       post 2 -> subitem 2-1
       post 2 -> subitem 2-2

Implementation of classwide membership tests looks wrong, it iterates over parents of classwide type instead of parents of object.

Inside procedure

   procedure Iterate
    (Self    : in out Model_Iterator'Class;
     Visitor :
       in out Standard.Model.Frame.Visitors.Abstract_Frame_Visitor'Class;
     Model   : not null Model_Access)

Dispatching call to another procedure

   procedure Visit
    (Self    : in out Abstract_Iterator'Class;
     Visitor : in out Model.Visitors.Abstract_Visitor'Class;
     Element : not null Model.Element_Access;
     Control : in out Model.Visitors.Traverse_Control);

incorrectly assign return value

  var _r = _ec.model.iterators.visit(self$, visitor, (current), control);
  self$ = _r.control;