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

Fix freebsd rtl compilation failure after better type check of variant element inside record case clause

Browse Source 
(cherry picked from commit 4b196ece47)
This commit is contained in:
Pierre Muller 2021-11-01 16:09:18 +00:00 committed by marcoonthegit
parent 87961ec9ea
commit 02b969cc59
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/freebsd/ptypes.inc
View File

@ -195,7 +195,7 @@ Const
Type TStatFS = {?} Record Type TStatFS = {?} Record
case boolean of case boolean of
0 : ( // current FreeBSD false : ( // current FreeBSD
version : cuint32; { structure version number } version : cuint32; { structure version number }
ftype : cuint32; { type of filesystem } ftype : cuint32; { type of filesystem }
fflags : cuint64; { copy of mount exported flags } fflags : cuint64; { copy of mount exported flags }
@ -219,7 +219,7 @@ Type TStatFS = {?} Record
mnfromname : array[0..MNAMELEN-1] of ansichar; { mounted filesystem } mnfromname : array[0..MNAMELEN-1] of ansichar; { mounted filesystem }
mountpoint : array[0..MNAMELEN-1] of ansichar; { directory on which mounted } mountpoint : array[0..MNAMELEN-1] of ansichar; { directory on which mounted }
); );
1:( // union for old fieldname's sake. true : ( // union for old fieldname's sake.
f_version : cuint32; { structure version number } f_version : cuint32; { structure version number }
f_type : cuint32; { type of filesystem } f_type : cuint32; { type of filesystem }
f_flags : cuint64; { copy of mount exported flags } f_flags : cuint64; { copy of mount exported flags }