paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 09:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error in FindGetFileInfo function on AIX OS and change type of local variable LinAttr to match argument type of fpS_ISDIR function

Browse Source
This commit is contained in:
Pierre Muller 2025-09-01 07:44:37 -07:00
parent b40e89d4c8
commit ad03158349
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/unix/dos.pp
View File

@ -533,7 +533,10 @@ begin
f.Name:=Copy(s,f.NamePos+1,255);
f.Attr:=Info.FMode;
f.Size:=Info.FSize;
f.mode:=st.st_mode;
{ At least on AIX OS, st_mode has high bits (outside 16-bit word range)
which are used for specific extensions.
Add explicit typecast to avoid Range check error. }
f.mode:=Word(st.st_mode);
UnixDateToDT(Info.FMTime, DT);
PackTime(DT,f.Time);
FindGetFileInfo:=true;
@ -724,7 +727,7 @@ End;
Procedure GetFAttr(var f; var attr : word);
Var
info : BU.stat;
LinAttr : longint;
LinAttr : TMode;
p : PAnsiChar;
{$ifndef FPC_ANSI_TEXTFILEREC}
r : RawByteString;
@ -749,7 +752,7 @@ Begin
exit;
end
else
LinAttr:=Info.st_Mode;
LinAttr:=TMode(Info.st_Mode);
if fpS_ISDIR(LinAttr) then
Attr:=$10
else