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

* synchronised with r165 of pascal universal interfaces:

Browse Source 
For CMMultichannel5Color and CMMultichannel7Color type declarations,
 corrected number of array elements and added an explicit pad byte field
 for FPC and GPC so that type size matches Apple's gcc type size.

git-svn-id: trunk@3924 -
This commit is contained in:
Jonas Maebe 2006-06-23 11:52:51 +00:00
parent 378e7fb3d4
commit 900a592b17
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/extra/univint/CMApplication.pas
View File

@ -314,7 +314,8 @@ type
CMMultichannel5ColorPtr = ^CMMultichannel5Color;
CMMultichannel5Color = record
components: packed array [0..5] of UInt8; { 0..255 }{one extra pad byte}
components: packed array [0..4] of UInt8; { 0..255 }
pad: UInt8; {pad byte so record size equals Apple gcc struct size}
end;
CMMultichannel6ColorPtr = ^CMMultichannel6Color;
@ -324,7 +325,8 @@ type
CMMultichannel7ColorPtr = ^CMMultichannel7Color;
CMMultichannel7Color = record
components: packed array [0..7] of UInt8; { 0..255 }{one extra pad byte}
components: packed array [0..6] of UInt8; { 0..255 }
pad: UInt8; {pad byte so record size equals Apple gcc struct size}
end;
CMMultichannel8ColorPtr = ^CMMultichannel8Color;

6
packages/extra/univint/FPCMacOSAll.pas
View File

@ -213846,7 +213846,8 @@ type
CMMultichannel5ColorPtr = ^CMMultichannel5Color;
CMMultichannel5Color = record
components: packed array [0..5] of UInt8; { 0..255 }{one extra pad byte}
components: packed array [0..4] of UInt8; { 0..255 }
pad: UInt8; {pad byte so record size equals Apple gcc struct size}
end;
CMMultichannel6ColorPtr = ^CMMultichannel6Color;
@ -213856,7 +213857,8 @@ type
CMMultichannel7ColorPtr = ^CMMultichannel7Color;
CMMultichannel7Color = record
components: packed array [0..7] of UInt8; { 0..255 }{one extra pad byte}
components: packed array [0..6] of UInt8; { 0..255 }
pad: UInt8; {pad byte so record size equals Apple gcc struct size}
end;
CMMultichannel8ColorPtr = ^CMMultichannel8Color;