mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-18 10:31:57 +00:00
9 lines
273 B
Ada
9 lines
273 B
Ada
|
package Element_Copy is
|
||
|
|
type SmallInt is range 1 .. 4;
|
||
|
|
type SmallStr is array (SmallInt range <>) of Character;
|
||
|
|
type VariableSizedField (D : SmallInt := 2) is record
|
||
|
|
S : SmallStr (1 .. D) := "Hi";
|
||
|
|
end record;
|
||
|
|
function F return VariableSizedField;
|
||
|
|
end;
|