mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
32 lines
514 B
ObjectPascal
32 lines
514 B
ObjectPascal
{$mode macpas}
|
|
|
|
program FatalError_2006082312;
|
|
|
|
type
|
|
UInt16 = Word;
|
|
UInt64 = QWord;
|
|
|
|
CoreMidiPacket = packed record
|
|
timeStamp: UInt64;
|
|
length: UInt16;
|
|
data: packed array [0..255] of byte
|
|
end;
|
|
|
|
procedure test(var gCoreMidiPacket: CoreMidiPacket);
|
|
begin
|
|
with gCoreMidiPacket do
|
|
begin
|
|
timeStamp := high(int64);
|
|
length := $2345;
|
|
end
|
|
end;
|
|
|
|
var
|
|
gcmp: CoreMidiPacket;
|
|
begin
|
|
test(gcmp);
|
|
if (gcmp.timestamp <> high(int64)) or
|
|
(gcmp.length<>$2345) then
|
|
halt(1);
|
|
end.
|