crtl/crtl.ads

   1 with System;
   2
   3 package Crtl is
   4    pragma Preelaborate;
   5
   6    type size_t is mod 2 ** Standard'Address_Size;
   7
   8    function  memcpy
   9      (S1 : System.Address; S2 : System.Address; N : size_t)
  10      return System.Address;
  11    pragma Export (C, memcpy, "memcpy");
  12
  13 end Crtl;