mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-07 09:07:19 +01:00
12 lines
256 B
ObjectPascal
12 lines
256 B
ObjectPascal
type
|
|
tsplitextended = record
|
|
case byte of
|
|
0: (a: array[0..9] of byte);
|
|
{ the following "a" should give a duplicate identifier errorÊ}
|
|
1: (a: array[0..4] of word);
|
|
2: (a: array[0..1] of cardinal; w: word);
|
|
end;
|
|
|
|
begin
|
|
end.
|