garlic_6.0.1_90ef4b6f/Tests/ACR/remote.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
with System.RPC; use System.RPC;

package body Remote is

   function Call_OK (P : Natural) return Boolean is
   begin
      return P = Remote'Partition_ID;
   end Call_OK;

end Remote;