comp.lang.ada
 help / color / mirror / Atom feed
From: reinert <reinkor@gmail.com>
Subject: Re: Question about sets and expression
Date: Mon, 8 May 2017 10:04:39 -0700 (PDT)
Date: 2017-05-08T10:04:39-07:00	[thread overview]
Message-ID: <fa82dc7f-75b4-4064-a903-d5ba4744027e@googlegroups.com> (raw)
In-Reply-To: <f07f4dca-c521-476d-a9b2-43d8981b05be@googlegroups.com>

On Monday, May 8, 2017 at 6:06:52 PM UTC+2, Robert Eachus wrote:
> On Monday, May 8, 2017 at 11:53:23 AM UTC-4, reinert wrote:
>  
> > I did not manage to make a simple test program for this problem,
> > but maybe someone can give me a hint here. I start to be "blind" :-)
> > 
> > os is here an Ordered_Set (not empty). The first part seems OK,
> > but the second part is confusing (craches).
> 
> Trying to diagnose the problem without the declarations is difficult.  I suspect
> that c := (id => Cnil, others => <>);  is trying to assign an unbounded array with that others part.

OK, sorry. 

c: cell_observation_t; 

where simply: 

   type cell_observation_t is record 
      id                  : cell_names1.target_t; 
      state               : cell_state_t         := live; 
      r, dr               : real_vector2d        := (0.0, 0.0); 
      axis                : degree_t; 
      children1           : cell_names1.cell_names_sets.set := cell_names1.cell_names_sets.empty_set; 
      pre_cell, next_cell : target_t             := cnil; 
   end record; 

"children1" is Ada.Containers.Ordered_Sets (without any defined bound): 

 package cell_names_sets is new Ada.Containers.Ordered_Sets (target_t); 

 "target_t" is an enumaration type. 


I hoped that someone has encountered similar with expressions and could give a hint. Maybe I have destroyed the Ordered_Set somewhere... 

I use GNAT under debian, updated. gnat-4.9. 

reinert 


  parent reply	other threads:[~2017-05-08 17:04 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-05-08 15:53 Question about sets and expression reinert
2017-05-08 16:06 ` Robert Eachus
2017-05-08 17:03   ` reinert
2017-05-08 17:04   ` reinert [this message]
2017-05-08 19:00 ` Simon Wright
2017-05-09  3:58   ` reinert
2017-05-09  5:48     ` reinert
2017-05-09  6:23       ` Niklas Holsti
2017-05-09  6:29       ` G.B.
2017-05-09  7:14         ` reinert
2017-05-09  9:28       ` gautier_niouzes
2017-05-09 11:15       ` Simon Wright
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox