configuration DSM is
   pragma Starter (None);

   Part1 : Partition := (Vector, Scheduler);
   for Part1'Data_Location use ("dsm", "");

   Part2 : Partition;
   for Part2'Data_Location use ("dsm", "");

   procedure Client;
   for Part2'Main use Client;

   for Partition'Allow_Light_PCS use False;
   --  We do not want GLADE to optimize the configuration
   --  with a light PCS since the DSM storage support needs
   --  a normal PCS. The restriction concerning DSM cannot be
   --  detected at configuration and you have to force a normal
   --  PCS manually.

   procedure Server is in Part1;

end DSM;
