raspberry_bsp_1.0.0_a15c7732/src/raspio.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
with bcm2835_h;
with Interfaces.C; use Interfaces.C;

package body Raspio is

   procedure Initialize is
      Error_Code : constant Interfaces.C.int := bcm2835_h.bcm2835_init;
   begin
      if Error_Code /= 1 then
         raise Initialization_Error with "BCM2835 initialization failed";
      end if;
   end Initialize;

end Raspio;