From 9eb8ad1648356b8d9af13f7f10fc66cff806c47e Mon Sep 17 00:00:00 2001 From: peter Date: Tue, 10 Nov 1998 14:57:53 +0000 Subject: [PATCH] * renamed rename -> FRename --- rtl/linux/filutil.inc | 7 +++++-- rtl/linux/linux.pp | 17 ++++++++++------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/rtl/linux/filutil.inc b/rtl/linux/filutil.inc index 05af3eeda1..1dbaba5801 100644 --- a/rtl/linux/filutil.inc +++ b/rtl/linux/filutil.inc @@ -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 diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp index 6b69d2c88b..327743cdeb 100644 --- a/rtl/linux/linux.pp +++ b/rtl/linux/linux.pp @@ -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