paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 3 of the four linuxerror occurances fixed

Browse Source 
git-svn-id: trunk@4796 -
This commit is contained in:
marco 2003-11-13 12:47:20 +00:00
parent 63a9e410e3
commit 27a63d2dcb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/filectrl.inc
View File

@ -380,7 +380,7 @@ begin
{$ELSE}
if {$IFDEF Ver1_0}Linux.ReadLink{$ELSE}Unix.FpReadLink{$ENDIF}(AFilename)='' then begin
AText:='"'+AFilename+'"';
case LinuxError of
case {$ifdef ver1_0} LinuxError {$else} fpGetErrno() {$endif} of
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
@ -561,7 +561,7 @@ begin
LinkFilename:={$IFDEF Ver1_0}Linux.ReadLink{$ELSE}Unix.FpReadLink{$ENDIF}(Result);
if LinkFilename='' then begin
AText:='"'+Filename+'"';
case LinuxError of
case {$ifdef ver1_0} LinuxError {$else} fpGetErrno() {$endif} of
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
@ -639,7 +639,7 @@ begin
if not FileIsExecutable(AFilename) then
begin
AText:='"'+AFilename+'"';
case LinuxError of
case {$ifdef ver1_0} LinuxError {$else} fpGetErrno() {$endif} of
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
@ -896,6 +896,9 @@ end;
{
$Log$
Revision 1.36 2003/11/13 12:47:20 marco
* 3 of the four linuxerror occurances fixed
Revision 1.35 2003/11/05 19:07:45 marco
* minor corrections on yesterdays patch