PolyORB/Examples/MultiSto/types.ads at 9cedc4a3a89ebf4e762bee78f6101e3dc514bbe8 - PolyORB - ProxGit

ada/PolyORB

mirror of https://github.com/AdaCore/PolyORB.git synced 2026-02-12 13:01:15 -08:00

Files

Laurent Pautet bef6d79289 Add example using shared passive partitions and multi data storage

feature

Subversion-branch: /importfromcvs/trunk
Subversion-revision: 47451

2000-05-24 17:53:38 +00:00

7 lines

131 B

Ada

Raw Blame History

 package Types is
    pragma Pure;
    type Word is new String (1 .. 16);
    procedure Set (W : in out Word; S : String);
 end Types;