paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added one BSD conditional (uname not supported)

Browse Source
This commit is contained in:
marco 2000-03-16 15:23:02 +00:00
parent 080a34ce07
commit ca7f81187e
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/linux/dos.pp
View File

@ -205,9 +205,13 @@ Var
Rel : LongInt;
info : utsname;
Begin
UName(info);
Move(info.release,buffer[0],40);
TmpStr:=StrPas(Buffer);
{$IFNDEF BSD}
UName(info);
Move(info.release,buffer[0],40);
TmpStr:=StrPas(Buffer);
{$ELSE}
TmpStr:='FreeBSD doesn''t support UName';
{$ENDIF}
SubRel:=0;
TmpPos:=Pos('.',TmpStr);
if TmpPos>0 then
@ -223,8 +227,6 @@ Begin
DosVersion:=Rel+(SubRel shl 8);
End;
function WeekDay (y,m,d:longint):longint;
{
Calculates th day of the week. returns -1 on error
@ -906,7 +908,10 @@ End.
{
$Log$
Revision 1.17 2000-02-09 16:59:31 peter
Revision 1.18 2000-03-16 15:23:02 marco
* Added one BSD conditional (uname not supported)
Revision 1.17 2000/02/09 16:59:31 peter
* truncated log
Revision 1.16 2000/02/02 15:07:05 peter