mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-28 04:33:05 +00:00
227ff79ceb
the initial value, while the type fields were not (this is a qualified union type, so not all fields are always present). This resulted in the size of the corresponding LLVM type being larger than the gcc TYPE_SIZE. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45522 91177308-0d34-0410-b5e6-96231b3b80d8
13 lines
296 B
Ada
13 lines
296 B
Ada
-- RUN: %llvmgcc -c %s
|
|
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;
|