Rep spec for tagged type

Rep spec for tagged type

[Daniel Wild]

I'm trying to create a rep spec for a tagged type and getting errors
from GNAT that say `compoonent overlaps tag field of ...'.

I gather this means that GNAT stores the tag for the type at the
beginning of the memory used for the type and I'm trying to overwrite
that by starting my rep spec at 0.

So, I figure I need to shift my rep spec along by however big the tag
is. How can I find the size of this? (I'd rather do it properly that
assume it's 32 bits on my machine).

Thanks,
Dan.

Re: Rep spec for tagged type

[Georg Bauhaus]

Daniel Wild <dan@example.com> wrote:
: 
: I gather this means that GNAT stores the tag for the type at the
: beginning of the memory used for the type and I'm trying to overwrite
: that by starting my rep spec at 0.

There may be another possibility, if the representation
is important for some data items in the objects, but not
for all of the object. You could create a plain record type
"around" the data that you want in your tagged type.
Then provide a representation clause for the plain record,
and declare a component of the plain record type in the
tagged type.


-- Georg

Re: Rep spec for tagged type

[Daniel Wild]

Georg Bauhaus <sb463ba@l1-hrz.uni-duisburg.de> writes:

> There may be another possibility, if the representation
> is important for some data items in the objects, but not
> for all of the object. You could create a plain record type
> "around" the data that you want in your tagged type.
> Then provide a representation clause for the plain record,
> and declare a component of the plain record type in the
> tagged type.

I thought about this, and it sort of works but not quite. If I take
this approach then I have to code all the operations on the derived
types twice. 

What I ended up doing was to leave the tagged types alone with no rep
spec, then create separate types with rep specs. Then I just convert
to/from these types when reading/writing them.

Cheers,
Daniel.

Re: Rep spec for tagged type

[Nick Roberts]

On 13 Aug 2004 20:47:59 +0930, Daniel Wild <dan@example.com> wrote:

> I'm trying to create a rep spec for a tagged type and getting errors
> from GNAT that say `compoonent overlaps tag field of ...'.
>
> I gather this means that GNAT stores the tag for the type at the
> beginning of the memory used for the type and I'm trying to overwrite
> that by starting my rep spec at 0.
>
> So, I figure I need to shift my rep spec along by however big the tag
> is. How can I find the size of this? (I'd rather do it properly that
> assume it's 32 bits on my machine).

The expression:

    Ada.Tags.Tag'Size

will probably give you the size of the tag, but for its position you
will have to look in the GNAT documentation (maybe it is 0).

Unfortunately, I think this means your code may not be portable.

-- 
Nick Roberts