Lib_Ref_Symbol_File.Location);
end if;
- -- Check that the reference symbol file and the symbol file
- -- are not the same file.
-
- if Data.Symbol_Data.Symbol_File /= No_Name then
- declare
- Symbol : String :=
- Get_Name_String
- (Data.Symbol_Data.Symbol_File);
-
- Reference : String :=
- Get_Name_String
- (Data.Symbol_Data.Reference);
-
- begin
- Canonical_Case_File_Name (Symbol);
- Canonical_Case_File_Name (Reference);
-
- if Symbol = Reference then
- Error_Msg
- (Project, In_Tree,
- "reference symbol file and symbol file " &
- "cannot be the same file",
- Lib_Ref_Symbol_File.Location);
- end if;
- end;
- end if;
end if;
end if;
end if;