paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:09:27 +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

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

@ -577,13 +577,16 @@ type
situations.)
}
{$push}
{$packrecords 4}
MIDIPacket = record
timeStamp: MIDITimeStamp;
length: UInt16;
data: packed array [0..255] of Byte;
end;
MIDIPacketPtr = ^MIDIPacket;
{$pop}
{!
@struct MIDIPacketList
@abstract A list of MIDI events being received from, or being sent to,
@ -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}
{!