paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 01:19:55 +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} {$ELSE}
type type
{$I stat.inc} {$I stat.inc}
{$define oldlinuxstat}
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}
Type stat=baseunix.tstat; Type stat=baseunix.tstat;
@ -1081,7 +1082,7 @@ end;
Function Sys_Stat(Filename:pchar;var Buffer: stat):longint; Function Sys_Stat(Filename:pchar;var Buffer: stat):longint;
begin begin
Sys_stat:=fpstat(filename,buffer); Sys_stat:=fpstat(filename,{$ifdef oldlinuxstat}baseunix.stat(buffer){$else}buffer{$endif});
linuxerror:=fpgeterrno; linuxerror:=fpgeterrno;
end; end;
@ -3130,7 +3131,10 @@ finalization
end. end.
{ {
$Log$ $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 * voodoo is now linux only
Revision 1.4 2003/09/16 15:39:31 marco 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. Get all information on a file descriptor, and return it in info.
} }
begin begin
FStat:=fpfstat(fd,info)=0; FStat:=fpfstat(fd,{$ifdef oldlinuxstat}baseunix.stat(info){$else}info{$endif})=0;
LinuxError:=fpgetErrno; LinuxError:=fpgetErrno;
end; end;
@ -636,7 +636,10 @@ end;
{ {
$Log$ $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 * second round of linux fixes. oldlinux now works
Revision 1.1 2003/09/15 20:30:49 marco Revision 1.1 2003/09/15 20:30:49 marco

9
rtl/unix/timezone.inc
View File

@ -252,10 +252,10 @@ begin
GetTimezoneFile:=s; GetTimezoneFile:=s;
end end
// Try SuSE // 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 GetTimeZoneFile:=TimeZoneFile
// Try RedHat // 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; GetTimeZoneFile:=AltTimeZoneFile;
end; end;
@ -286,7 +286,10 @@ end;
{ {
$Log$ $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. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.3 2002/09/07 16:01:28 peter Revision 1.3 2002/09/07 16:01:28 peter