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)
return __gnat_check_OWNER_ACL (wname, FILE_READ_DATA, GenericMapping);
}
else
return 1;
return GetFileAttributes (wname) != INVALID_FILE_ATTRIBUTES;
#else
int ret;
......
......@@ -583,8 +583,8 @@ package body Sem_Ch6 is
Error_Msg_N ("must use anonymous access type", Subtype_Ind);
end if;
-- Subtype_indication case; check that the types are the same, and
-- statically match if appropriate. Handle also record types with
-- Subtype indication case: check that the types are the same, and
-- statically match if appropriate. Also handle record types with
-- unknown discriminants for which we have built the underlying
-- 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