blob: 6aa6d92c68bb5d37b44b789f5e803df337ff0b03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{$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.
|
