lace.environ.paths: Rid incorrect 'check's of destination paths.
This commit is contained in:
@@ -706,8 +706,6 @@ is
|
||||
is
|
||||
begin
|
||||
check (Self);
|
||||
check (To);
|
||||
|
||||
ada.Directories.copy_File (+Self, +To);
|
||||
end copy_File;
|
||||
|
||||
@@ -749,7 +747,6 @@ is
|
||||
is
|
||||
begin
|
||||
check (Self);
|
||||
check (To);
|
||||
|
||||
-- 'Ada.Directories.Rename' fails when the file is moved across a device.
|
||||
-- For instance Rename ("/tmp/a_file", "/home/user/a_file");
|
||||
|
||||
@@ -143,8 +143,8 @@ is
|
||||
-- 'Named' can contain an asterix GLOB such as "*" or "*.txt".
|
||||
|
||||
|
||||
procedure rid_File (Self : in File);
|
||||
procedure rid_Files (Named : in String);
|
||||
procedure rid_File (Self : in File);
|
||||
procedure rid_Files (Named : in String);
|
||||
--
|
||||
-- 'Named' can contain an asterix GLOB such as "*" or "*.txt".
|
||||
|
||||
|
||||
Reference in New Issue
Block a user