mirror of
https://forge.sourceware.org/marek/gcc.git
synced 2026-02-22 03:47:02 -05:00
61e0b23353
* gcc-interface/utils2.c (gnat_invariant_expr): Return null if the type of the expression ends up being composite. From-SVN: r221449
16 lines
345 B
Ada
16 lines
345 B
Ada
with Unchecked_Conversion;
|
|
|
|
package Loop_Optimization18_Pkg is
|
|
|
|
type Arr is array (Integer range <>) of Natural;
|
|
|
|
type Rec (UB : Integer) is record
|
|
L : Arr (1 .. UB);
|
|
end record;
|
|
|
|
type Byte_Array_Type is new String (1..4);
|
|
|
|
function Conv is new Unchecked_Conversion (Byte_Array_Type, Integer);
|
|
|
|
end Loop_Optimization18_Pkg;
|