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

+ Added mode field to TSearchRec for Kylix compatibility

Browse Source
This commit is contained in:
michael 2004-12-19 18:03:29 +00:00
parent 19900fc813
commit 9701081657
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/filutilh.inc
View File

@ -23,6 +23,7 @@ Type
ExcludeAttr : Longint;
{$ifdef unix}
FindHandle : Pointer;
Mode : TMode;
{$else unix}
FindHandle : THandle;
{$endif unix}
@ -92,7 +93,10 @@ Function GetFileHandle(var f : Text):Longint;
{
$Log$
Revision 1.7 2004-10-03 20:27:00 armin
Revision 1.8 2004-12-19 18:03:29 michael
+ Added mode field to TSearchRec for Kylix compatibility
Revision 1.7 2004/10/03 20:27:00 armin
* changed defines for netware
Revision 1.6 2004/09/05 00:02:40 armin

6
rtl/unix/sysutils.pp
View File

@ -529,6 +529,7 @@ begin
Name:=strpas(p^.name);
Time:=UnixToWinAge(Sinfo.st_mtime);
Size:=Sinfo.st_Size;
Mode:=Sinfo.st_mode;
end;
end;
P^.Next:=Nil;
@ -1104,7 +1105,10 @@ end.
{
$Log$
Revision 1.55 2004-12-11 11:32:44 michael
Revision 1.56 2004-12-19 18:03:29 michael
+ Added mode field to TSearchRec for Kylix compatibility
Revision 1.55 2004/12/11 11:32:44 michael
+ Added GetEnvironmentVariableCount and GetEnvironmentString calls
Revision 1.54 2004/11/14 15:10:44 marco