paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +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
This commit is contained in:
Pierre Muller 2021-11-01 16:09:18 +00:00
parent 40df955423
commit 4b196ece47
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

@ -191,7 +191,7 @@ Const
Type TStatFS = {?} Record
case boolean of
0 : ( // current FreeBSD
false : ( // current FreeBSD
version : cuint32; { structure version number }
ftype : cuint32; { type of filesystem }
fflags : cuint64; { copy of mount exported flags }
@ -215,7 +215,7 @@ Type TStatFS = {?} Record
mnfromname : array[0..MNAMELEN-1] of ansichar; { mounted filesystem }
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_type : cuint32; { type of filesystem }
f_flags : cuint64; { copy of mount exported flags }