blob: 411a509e83a5cff4a842df130c7417a022160f57 [file] [log] [blame]
package body Inline17_Pkg3 is
function "+" (Field : SQL_Field'Class) return Integer is
begin
return 0;
end;
function Unchecked_Get (Self : Ref) return Integer is
begin
return Self.Data;
end;
end Inline17_Pkg3;