nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lace.environ.paths: Rid incorrect 'check's of destination paths.

Browse Source
This commit is contained in:
Rod Kay
2023-10-17 15:47:40 +11:00
parent 6a4f1c148c
commit bbf195bbe5
2 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
1-base/lace/source/environ/lace-environ-paths.adb
View File

@@ -706,8 +706,6 @@ is
is is
begin begin
check (Self); check (Self);
check (To);
ada.Directories.copy_File (+Self, +To); ada.Directories.copy_File (+Self, +To);
end copy_File; end copy_File;
@@ -749,7 +747,6 @@ is
is is
begin begin
check (Self); check (Self);
check (To);
-- 'Ada.Directories.Rename' fails when the file is moved across a device. -- 'Ada.Directories.Rename' fails when the file is moved across a device.
-- For instance Rename ("/tmp/a_file", "/home/user/a_file"); -- For instance Rename ("/tmp/a_file", "/home/user/a_file");

4
1-base/lace/source/environ/lace-environ-paths.ads
View File

@@ -143,8 +143,8 @@ is
-- 'Named' can contain an asterix GLOB such as "*" or "*.txt". -- 'Named' can contain an asterix GLOB such as "*" or "*.txt".
procedure rid_File (Self : in File); procedure rid_File (Self : in File);
procedure rid_Files (Named : in String); procedure rid_Files (Named : in String);
-- --
-- 'Named' can contain an asterix GLOB such as "*" or "*.txt". -- 'Named' can contain an asterix GLOB such as "*" or "*.txt".