1
2package body Inline17_Pkg3 is
3
4   function "+" (Field : SQL_Field'Class) return Integer is
5   begin
6      return 0;
7   end;
8
9   function Unchecked_Get (Self : Ref) return Integer is
10   begin
11      return Self.Data;
12   end;
13
14end Inline17_Pkg3;
15