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

* TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.

Browse Source
This commit is contained in:
marco 2001-11-30 07:16:41 +00:00
parent 98288cd5cf
commit 9d59d06fd1
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/unix/linux.pp
View File

@ -2115,6 +2115,7 @@ var
if ((st.mode and $E000)=$4000) and { if it is a directory } if ((st.mode and $E000)=$4000) and { if it is a directory }
(strpas(@(d^.name))<>'.') and { but not ., .. and fd subdirs } (strpas(@(d^.name))<>'.') and { but not ., .. and fd subdirs }
(strpas(@(d^.name))<>'..') and (strpas(@(d^.name))<>'..') and
(strpas(@(d^.name))<>'') and
(strpas(@(d^.name))<>'fd') then (strpas(@(d^.name))<>'fd') then
begin {we found a directory, search inside it} begin {we found a directory, search inside it}
if mysearch(name) then if mysearch(name) then
@ -2946,7 +2947,10 @@ End.
{ {
$Log$ $Log$
Revision 1.17 2001-10-14 13:33:20 peter Revision 1.18 2001-11-30 07:16:41 marco
* TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.
Revision 1.17 2001/10/14 13:33:20 peter
* start of thread support for linux * start of thread support for linux
Revision 1.16 2001/09/17 21:36:31 peter Revision 1.16 2001/09/17 21:36:31 peter

6
rtl/unix/unix.pp
View File

@ -2144,6 +2144,7 @@ var
if ((st.mode and $E000)=$4000) and { if it is a directory } if ((st.mode and $E000)=$4000) and { if it is a directory }
(strpas(@(d^.name))<>'.') and { but not ., .. and fd subdirs } (strpas(@(d^.name))<>'.') and { but not ., .. and fd subdirs }
(strpas(@(d^.name))<>'..') and (strpas(@(d^.name))<>'..') and
(strpas(@(d^.name))<>'') and
(strpas(@(d^.name))<>'fd') then (strpas(@(d^.name))<>'fd') then
begin {we found a directory, search inside it} begin {we found a directory, search inside it}
if mysearch(name) then if mysearch(name) then
@ -2971,7 +2972,10 @@ End.
{ {
$Log$ $Log$
Revision 1.18 2001-11-05 21:46:06 michael Revision 1.19 2001-11-30 07:16:42 marco
* TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.
Revision 1.18 2001/11/05 21:46:06 michael
+ Added exit status examining functions + Added exit status examining functions
Revision 1.17 2001/10/14 13:33:21 peter Revision 1.17 2001/10/14 13:33:21 peter