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

* add typecasts for oldlinuxstat

Browse Source
This commit is contained in:
peter 2003-09-16 16:06:02 +00:00
parent cabc606aab
commit 7acb66b1a3
3 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/unix/linuxold.inc
View File

@ -50,6 +50,7 @@ Type stat=baseunix.tstat;
{$ELSE}
type
{$I stat.inc}
{$define oldlinuxstat}
{$ENDIF}
{$ELSE}
Type stat=baseunix.tstat;
@ -1081,7 +1082,7 @@ end;
Function Sys_Stat(Filename:pchar;var Buffer: stat):longint;
begin
Sys_stat:=fpstat(filename,buffer);
Sys_stat:=fpstat(filename,{$ifdef oldlinuxstat}baseunix.stat(buffer){$else}buffer{$endif});
linuxerror:=fpgeterrno;
end;
@ -3130,7 +3131,10 @@ finalization
end.
{
$Log$
Revision 1.5 2003-09-16 15:40:31 marco
Revision 1.6 2003-09-16 16:06:02 peter
* add typecasts for oldlinuxstat
Revision 1.5 2003/09/16 15:40:31 marco
* voodoo is now linux only
Revision 1.4 2003/09/16 15:39:31 marco

7
rtl/unix/liunsysc.inc
View File

@ -313,7 +313,7 @@ Function Fstat(Fd:Longint;var Info:stat):Boolean;
Get all information on a file descriptor, and return it in info.
}
begin
FStat:=fpfstat(fd,info)=0;
FStat:=fpfstat(fd,{$ifdef oldlinuxstat}baseunix.stat(info){$else}info{$endif})=0;
LinuxError:=fpgetErrno;
end;
@ -636,7 +636,10 @@ end;
{
$Log$
Revision 1.2 2003-09-15 21:07:41 marco
Revision 1.3 2003-09-16 16:06:02 peter
* add typecasts for oldlinuxstat
Revision 1.2 2003/09/15 21:07:41 marco
* second round of linux fixes. oldlinux now works
Revision 1.1 2003/09/15 20:30:49 marco

9
rtl/unix/timezone.inc
View File

@ -252,10 +252,10 @@ begin
GetTimezoneFile:=s;
end
// Try SuSE
else if fpstat(TimeZoneFile,info)>=0 then
else if fpstat(TimeZoneFile,{$ifdef oldlinuxstat}baseunix.stat(info){$else}info{$endif})>=0 then
GetTimeZoneFile:=TimeZoneFile
// Try RedHat
else If fpstat(AltTimeZoneFile,Info)>=0 then
else If fpstat(AltTimeZoneFile,{$ifdef oldlinuxstat}baseunix.stat(info){$else}info{$endif})>=0 then
GetTimeZoneFile:=AltTimeZoneFile;
end;
@ -286,7 +286,10 @@ end;
{
$Log$
Revision 1.4 2003-09-14 20:15:01 marco
Revision 1.5 2003-09-16 16:06:02 peter
* add typecasts for oldlinuxstat
Revision 1.4 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.3 2002/09/07 16:01:28 peter