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

* Haiku : adjust alignment of records the C way.

Browse Source 
This should fix Haiku on 32 bits CPU while not breaking the 64 bits version.

git-svn-id: trunk@40766 -
This commit is contained in:
olivier 2019-01-05 02:36:34 +00:00
parent 56eaa913b5
commit 4d7c0ce1b3
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/haiku/ostypes.inc
View File

@ -100,6 +100,8 @@ TYPE
TUtsName= utsname; TUtsName= utsname;
pUtsName= ^utsname; pUtsName= ^utsname;
{$packrecords c}
{ file characteristics services } { file characteristics services }
stat = record { the types are real} stat = record { the types are real}
st_dev : dev_t; // inode's device st_dev : dev_t; // inode's device

2
rtl/haiku/ptypes.inc
View File

@ -21,6 +21,8 @@
{$i ctypes.inc} {$i ctypes.inc}
{$packrecords c}
type type
fsblkcnt_t = clonglong; fsblkcnt_t = clonglong;
TStatfs = packed record TStatfs = packed record