Commit c206e8fd by Arnaud Charlet

sem_ch3.adb, [...]: Minor reformatting

        * sem_ch3.adb, sem_ch6.adb: Minor reformatting

        * adaint.c (__gnat_is_readable_file): Check for file existence
        when not using ACL (always the case on remote drives).

From-SVN: r146406
parent 5987e59c
...@@ -1956,7 +1956,7 @@ __gnat_is_readable_file (char *name) ...@@ -1956,7 +1956,7 @@ __gnat_is_readable_file (char *name)
return __gnat_check_OWNER_ACL (wname, FILE_READ_DATA, GenericMapping); return __gnat_check_OWNER_ACL (wname, FILE_READ_DATA, GenericMapping);
} }
else else
return 1; return GetFileAttributes (wname) != INVALID_FILE_ATTRIBUTES;
#else #else
int ret; int ret;
......
...@@ -583,8 +583,8 @@ package body Sem_Ch6 is ...@@ -583,8 +583,8 @@ package body Sem_Ch6 is
Error_Msg_N ("must use anonymous access type", Subtype_Ind); Error_Msg_N ("must use anonymous access type", Subtype_Ind);
end if; end if;
-- Subtype_indication case; check that the types are the same, and -- Subtype indication case: check that the types are the same, and
-- statically match if appropriate. Handle also record types with -- statically match if appropriate. Also handle record types with
-- unknown discriminants for which we have built the underlying -- unknown discriminants for which we have built the underlying
-- record view. -- record view.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment