paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:29:19 +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.) situations.)
} }
{$push}
{$packrecords 4}
MIDIPacket = record MIDIPacket = record
timeStamp: MIDITimeStamp; timeStamp: MIDITimeStamp;
length: UInt16; length: UInt16;
data: packed array [0..255] of Byte; data: packed array [0..255] of Byte;
end; end;
MIDIPacketPtr = ^MIDIPacket; MIDIPacketPtr = ^MIDIPacket;
{$pop}
{! {!
@struct MIDIPacketList @struct MIDIPacketList
@ -614,10 +617,14 @@ type
An open-ended array of variable-length MIDIPackets. An open-ended array of variable-length MIDIPackets.
} }
{$push}
{$packrecords 4}
MIDIPacketList = record MIDIPacketList = record
numPackets: UInt32; numPackets: UInt32;
packet: array [0..0] of MIDIPacket; packet: array [0..0] of MIDIPacket;
end; end;
{$pop}
{$ALIGN POWER} {$ALIGN POWER}
{! {!