OS/2 Shareware BBS: 10 Tools/10-Tools.zip/adav313.zip/gnat-3_13p-os2-bin-20010916.zip/emx/gnat/examples/ex6_if.adb

Text File | 2000-07-19 | 430b | 18 lines

with Gnat.IO; use Gnat.IO;
package body Ex6_If is
   package body Ada_Extension is

      procedure Overridden (This : in C) is
      begin
         Put ("in Ex6_If.Ada_Extension.Overridden, a_value = ");
         Put (This.A_Value);
         Put (", b_value = ");
         Put (This.B_Value);
         Put (", c_value = ");
         Put (This.C_Value);
         New_Line;
      end Overridden;

   end Ada_Extension;
end Ex6_If;