Sign in
llvm
/
llvm-archive
/
4be2047b325c65b9d39b83f60be4ec3b453faa03
/
.
/
dragonegg
/
test
/
compilator
/
local
/
ada
/
init_size.ads
blob: f8f568ed220f93b82dbe6b1bae5d67e692d65d5a [
file
] [
log
] [
blame
]
package
Init_Size
is
type T
(
B
:
Boolean
:=
False
)
is
record
case
B
is
when
False
=>
I
:
Integer
;
when
True
=>
J
:
Long_Long_Integer
;
--
Bigger
than I
end
case
;
end
record
;
A_T
:
constant T
:=
(
False
,
0
);
end
;