paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 22:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more linuxerror killing

Browse Source 
git-svn-id: trunk@4797 -
This commit is contained in:
marco 2003-11-13 13:02:41 +00:00
parent 27a63d2dcb
commit aff3164655
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/fileprocs.pas
View File

@ -138,7 +138,7 @@ begin
AFilename,{$IFDEF Ver1_0}Linux{$ELSE}BaseUnix{$ENDIF}.X_OK){$IFNDEF Ver1_0}=0){$ENDIF} 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}: