~ubuntu-branches/debian/stretch/adabrowse/stretch

« back to all changes in this revision

Viewing changes to simple_test/test-genpkg.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2004-02-14 13:22:40 UTC
  • Revision ID: james.westby@ubuntu.com-20040214132240-cqumhiq1677pkvzo
Tags: upstream-4.0.2
ImportĀ upstreamĀ versionĀ 4.0.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
package body Test.GenPkg is
 
2
 
 
3
   --  generic
 
4
   --   type The_Type is private;
 
5
   package body Generic_Package is
 
6
 
 
7
      Q : Handler;
 
8
 
 
9
      procedure Set_Handler
 
10
        (X : The_Type;
 
11
         P : Handler)
 
12
      is
 
13
         pragma Warnings (Off, X);
 
14
      begin
 
15
         Q := P;
 
16
      end Set_Handler;
 
17
 
 
18
   end Generic_Package;
 
19
 
 
20
end Test.GenPkg;