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

* renamed rename -> FRename

Browse Source
This commit is contained in:
peter 1998-11-10 14:57:53 +00:00
parent 85bc486eb2
commit 9eb8ad1648
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/filutil.inc
View File

@ -222,7 +222,7 @@ Function RenameFile (Const OldName, NewName : String) : Boolean;
Var P1,P2 : String;
begin
RenameFile:=Linux.Rename(OldNAme,NewName);
RenameFile:=Linux.FRename(OldNAme,NewName);
end;
@ -235,7 +235,10 @@ end;
{
$Log$
Revision 1.2 1998-10-13 10:20:07 peter
Revision 1.3 1998-11-10 14:57:55 peter
* renamed rename -> FRename
Revision 1.2 1998/10/13 10:20:07 peter
* fix for 0.99.8 which has no auto pchar-string ;)
Revision 1.1 1998/10/11 12:21:01 michael

17
rtl/linux/linux.pp
View File

@ -519,8 +519,8 @@ Function Link(OldPath,NewPath:pathstr):boolean;
Function SymLink(OldPath,NewPath:pathstr):boolean;
Function UnLink(Path:pathstr):boolean;
Function UnLink(Path:pchar):Boolean;
Function ReName (OldName,NewName : Pchar) : Boolean;
Function ReName (OldName,NewName : String) : Boolean;
Function FReName (OldName,NewName : Pchar) : Boolean;
Function FReName (OldName,NewName : String) : Boolean;
Function Chown(path:pathstr;NewUid,NewGid:longint):boolean;
Function Chmod(path:pathstr;Newmode:longint):boolean;
Function Utime(path:pathstr;utim:utimebuf):boolean;
@ -1652,20 +1652,20 @@ begin
end;
Function ReName (OldName,NewName : Pchar) : Boolean;
Function FRename (OldName,NewName : Pchar) : Boolean;
begin
Rename:=Sys_rename(OldName,NewName)=0;
FRename:=Sys_rename(OldName,NewName)=0;
LinuxError:=Errno;
end;
Function ReName (OldName,NewName : String) : Boolean;
Function FRename (OldName,NewName : String) : Boolean;
begin
OldName:=OldName+#0;
NewName:=NewName+#0;
Rename:=Rename (@OldName[1],@NewName[1]);
FRename:=FRename (@OldName[1],@NewName[1]);
end;
Function Umask(Mask:Integer):integer;
@ -3515,7 +3515,10 @@ End.
{
$Log$
Revision 1.23 1998-10-30 15:47:11 peter
Revision 1.24 1998-11-10 14:57:53 peter
* renamed rename -> FRename
Revision 1.23 1998/10/30 15:47:11 peter
* fixed glob, which did not reset the root
Revision 1.22 1998/10/23 00:05:32 peter