14 lines
308 B
Ada
14 lines
308 B
Ada
with Interfaces.C;
|
|
use type Interfaces.C.int;
|
|
|
|
package body Video.Backends.SDL is
|
|
|
|
function SDL_Init (Flags : Interfaces.Unsigned_32) return Interfaces.C.int
|
|
with Import, Convention => C, External_Name => "SDL_Init";
|
|
|
|
begin
|
|
if SDL_Init (0) < 0 then
|
|
raise Program_Error;
|
|
end if;
|
|
end Video.Backends.SDL;
|