2 package body Iface_Test is
3 protected SQLite_Safe is
4 function Prepare_Select
6 Iter : Standard.Iface_Test.Iface_2'Class)
7 return Standard.Iface_Test.Iface_2'Class;
10 overriding procedure Prepare_Select
12 Iter : in out Standard.Iface_Test.Iface_2'Class)
15 Iter := SQLite_Safe.Prepare_Select (DB, Iter); -- test
18 protected body SQLite_Safe is
19 function Prepare_Select
21 Iter : Standard.Iface_Test.Iface_2'Class)
22 return Standard.Iface_Test.Iface_2'Class