1with Inline17_Pkg3; use Inline17_Pkg3; 2 3package Inline17_Pkg2 is 4 5 subtype SQL_Field is Inline17_Pkg3.SQL_Field; 6 7 function "+" (Field : SQL_Field'Class) return Integer renames 8 Inline17_Pkg3."+"; 9 10end Inline17_Pkg2; 11
1with Inline17_Pkg3; use Inline17_Pkg3; 2 3package Inline17_Pkg2 is 4 5 subtype SQL_Field is Inline17_Pkg3.SQL_Field; 6 7 function "+" (Field : SQL_Field'Class) return Integer renames 8 Inline17_Pkg3."+"; 9 10end Inline17_Pkg2; 11