- -- Case where body is present and it is not a subunit. Exclude
- -- the subunit case, because it has nothing to do with the
- -- package we are compiling. It is illegal for a child unit and a
- -- subunit with the same expanded name (RM 10.2(9)) to appear
- -- together in a partition, but there is nothing to stop a
- -- compilation environment from having both, and the test here
- -- simply allows that. If there is an attempt to include both in
- -- a partition, this is diagnosed at bind time. In Ada 83 mode
- -- this is not a warning case.
-
- -- Note: if weird file names are being used, we can have
- -- situation where the file name that supposedly contains body,
- -- in fact contains a spec, or we can't tell what it contains.
- -- Skip the error message in these cases.
+ -- Case where body is present and it is not a subunit. Exclude the
+ -- subunit case, because it has nothing to do with the package we are
+ -- compiling. It is illegal for a child unit and a subunit with the
+ -- same expanded name (RM 10.2(9)) to appear together in a partition,
+ -- but there is nothing to stop a compilation environment from having
+ -- both, and the test here simply allows that. If there is an attempt
+ -- to include both in a partition, this is diagnosed at bind time. In
+ -- Ada 83 mode this is not a warning case.
+
+ -- Note: if weird file names are being used, we can have a situation
+ -- where the file name that supposedly contains body in fact contains
+ -- a spec, or we can't tell what it contains. Skip the error message
+ -- in these cases.