Re: Disriminant question

[Lutz Donnerhacke <lutz@iks-jena.de>]

* tmoran@acm.org wrote:
>>  Put_Line ("disk1'Size =" & Natural'Image (disk1'Size));
> The original question was whether you could change the discriminant.
> Replacing all occurrences of "'Size" with ".some_disc" in program t
> results in:
> disk1.some_disc = 1
> disk3.some_disc = 3
> disk.some_disc = 1
> disk.some_disc = 3
> d.some_disc = 1
> d.some_disc = 2
> d.some_disc = 3
> d.some_disc = 4
> d.some_disc = 5
> e.some_disc = 1
> e.some_disc = 2
> e.some_disc = 3
> e.some_disc = 4
> e.some_disc = 5
>   So the discriminant does change correctly.  If you want to change
> the 'Size of a record, that's a different question.

No, it did not change beside the case "disk". The other line comes from
different variables.