Re: I've not seen this error before

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 15-04-01 16:18 , tonyg wrote:
> I don't have any controlled types. I've never worked out how to use
> them :)

Your Device_Details_Type record has the component

    Name : SU.Unbounded_String;

Assuming "SU" is a renaming for Ada.Strings.Unbounded, then the record 
has a component of a type that needs finalization, namely 
Ada.Strings.Unbounded.Unbounded_String, and this type probably involves 
controlled types.

> This all seemed to happen when I started storing records in files.So
> I've now got a task which loads the file at the start then looks at a
> queue then sticks those changes back in the file.

Do you store also the Name component in the file? Directly as type 
Unbounded_String, or converted to some non-controlled type? An 
Unbounded_String almost certainly contain an access component to some 
heap-allocated text buffer. That access value is most likely no longer 
valid if you write it out from one run of the program and read it back 
in another run. Even if you read and write in the same run, the access 
value may have become invalid, because that heap block may have been 
released in between writing and reading.

It may help to change to Bounded_String (the ARM says these "should not" 
involve implicit pointers and dynamic allocation) but it would be safest 
to store the Name as a fixed-length String.

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .