paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

OSX 64bit - MIDIServices.pas - MIDIPacket && MIDIPacketList pack record fix

Browse Source
This commit is contained in:
Kirill Kranz 2023-06-20 12:01:20 +02:00 committed by Nikolay Nikolov
parent 2e5c62e086
commit 68ad000a34
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/univint/src/MIDIServices.pas
View File

@ -577,12 +577,15 @@ type
situations.)
}
{$push}
{$packrecords 4}
MIDIPacket = record
timeStamp: MIDITimeStamp;
length: UInt16;
data: packed array [0..255] of Byte;
end;
MIDIPacketPtr = ^MIDIPacket;
{$pop}
{!
@struct MIDIPacketList
@ -614,10 +617,14 @@ type
An open-ended array of variable-length MIDIPackets.
}
{$push}
{$packrecords 4}
MIDIPacketList = record
numPackets: UInt32;
packet: array [0..0] of MIDIPacket;
end;
{$pop}
{$ALIGN POWER}
{!