paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 17:10:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* FileIsReadOnly fixed

Browse Source
This commit is contained in:
peter 2004-04-26 14:50:19 +00:00
parent 9f5f920b56
commit c17c80def1
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/unix/sysutils.pp
View File

@ -321,7 +321,7 @@ end;
Function FileIsReadOnly(const FileName: String): Boolean;
begin
Result := fpAccess(PChar(FileName),W_OK)= 0;
Result := fpAccess(PChar(FileName),W_OK)<>0;
end;
{****************************************************************************
@ -500,7 +500,7 @@ Begin
so that long filenames will always be accepted. But don't
do it if there are already double quotes!
}
{$ifdef FPC_USE_FPEXEC} // Only place we still parse
{$ifdef FPC_USE_FPEXEC} // Only place we still parse
cmdline2:=nil;
if Comline<>'' Then
begin
@ -635,7 +635,10 @@ end.
{
$Log$
Revision 1.38 2004-04-20 18:24:32 marco
Revision 1.39 2004-04-26 14:50:19 peter
* FileIsReadOnly fixed
Revision 1.38 2004/04/20 18:24:32 marco
* small fix for NIL arg ptr in first executeprocess
Revision 1.37 2004/03/04 22:15:16 marco
@ -643,13 +646,13 @@ end.
Revision 1.36 2004/02/13 10:50:23 marco
* Hopefully last large changes to fpexec and friends.
- naming conventions changes from Michael.
- shell functions get alternative under ifdef.
- arraystring function moves to unixutil
- unixutil now regards quotes in stringtoppchar.
- sysutils/unix get executeprocess(ansi,array of ansi), and
both executeprocess functions are fixed
- Sysutils/win32 get executeprocess(ansi,array of ansi)
- naming conventions changes from Michael.
- shell functions get alternative under ifdef.
- arraystring function moves to unixutil
- unixutil now regards quotes in stringtoppchar.
- sysutils/unix get executeprocess(ansi,array of ansi), and
both executeprocess functions are fixed
- Sysutils/win32 get executeprocess(ansi,array of ansi)
Revision 1.35 2004/02/12 15:31:06 marco
* First version of fpexec change. Still under ifdef or silently overloaded