From: Robert A Duff <bobduff@shell01.TheWorld.com>
Subject: Re: CONSTRAINT_ERROR - why?
Date: Tue, 17 Dec 2002 19:29:09 GMT
Date: 2002-12-17T19:29:09+00:00 [thread overview]
Message-ID: <wcc7ke8mol6.fsf@shell01.TheWorld.com> (raw)
In-Reply-To: 3DFF6AFB.A536A0CE@t-online.de
Alfred Hilscher <Alfred.Hilscher@t-online.de> writes:
> So could it be a way if I define a function "/" (a, b : Integer) return
> BYTE within my code? Or wouldn`t it be used?
Probably both "/" operators would be directly visible,
so it would be ambiguous. What's wrong with this:
X.Struct_Length := BYTE(Integer'(Fac_Conf_Struct'Size / 8));
or perhaps:
X.Struct_Length := BYTE(Integer'(X'Size / System.Storage_Unit));
pragma Assert(X.Struct_Length*System.Storage_Unit = X'Size);
-- Assert that it's an integer number of storage units.
or even:
generic
type T is limited private;
function Size_In_Storage_Elements return BYTE;
function Size_In_Storage_Elements return BYTE is
Result: constant BYTE := BYTE(Integer'(T'Size / System.Storage_Unit));
begin
pragma Assert(Result*System.Storage_Unit = X'Size);
return Result;
end Size_In_Storage_Elements;
- Bob
next prev parent reply other threads:[~2002-12-17 19:29 UTC|newest]
Thread overview: 35+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-12-14 18:28 CONSTRAINT_ERROR - why? Alfred Hilscher
2002-12-14 18:45 ` James S. Rogers
2002-12-14 19:15 ` Robert A Duff
2002-12-14 19:20 ` James S. Rogers
2002-12-14 19:42 ` Alfred Hilscher
2002-12-16 2:39 ` AG
2002-12-14 19:20 ` Alfred Hilscher
2002-12-14 20:58 ` Dennis Lee Bieber
2002-12-15 13:45 ` Alfred Hilscher
2002-12-15 19:04 ` Robert A Duff
2002-12-16 1:12 ` Dennis Lee Bieber
2002-12-16 2:20 ` Jeffrey Carter
2002-12-16 18:48 ` Alfred Hilscher
2002-12-16 19:53 ` James S. Rogers
2002-12-17 18:20 ` Alfred Hilscher
2002-12-17 19:29 ` Robert A Duff [this message]
2002-12-17 21:05 ` Dennis Lee Bieber
2002-12-18 18:36 ` Alfred Hilscher
2002-12-18 18:51 ` Robert A Duff
2002-12-18 21:45 ` Randy Brukardt
2002-12-19 16:49 ` Robert Spooner
2002-12-19 20:57 ` Randy Brukardt
2002-12-14 20:19 ` Jeffrey Carter
2002-12-14 22:26 ` Alfred Hilscher
2002-12-15 0:49 ` Dennis Lee Bieber
2002-12-15 2:18 ` Jeffrey Carter
2002-12-15 18:23 ` Jeffrey Carter
2002-12-15 14:01 ` Alfred Hilscher
2002-12-15 18:20 ` Jeffrey Carter
2002-12-15 19:00 ` Alfred Hilscher
2002-12-16 1:16 ` Dennis Lee Bieber
2002-12-16 18:50 ` Alfred Hilscher
2002-12-17 2:17 ` Dennis Lee Bieber
2002-12-17 18:21 ` Alfred Hilscher
[not found] ` <26tuvu4ekeigls0bnd2okavrdhfu0tir4a@4ax.com>
2002-12-18 18:47 ` Alfred Hilscher
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox