From 48f274fdb0aaf4b49064ac08103fa4babef6c522 Mon Sep 17 00:00:00 2001 From: Jesper Quorning Date: Wed, 4 Jun 2025 00:05:01 +0200 Subject: [PATCH] Spec for Make_Surface_From_Pointers takes two arguments --- src/video/sdl-video-windows.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/video/sdl-video-windows.adb b/src/video/sdl-video-windows.adb index b7434b4..4137346 100644 --- a/src/video/sdl-video-windows.adb +++ b/src/video/sdl-video-windows.adb @@ -337,7 +337,8 @@ package body SDL.Video.Windows is S : constant SDL.Video.Surfaces.Internal_Surface_Pointer := SDL_Get_Window_Surface (Self.Internal); - function Make_Surface_From_Pointer (S : in SDL.Video.Surfaces.Internal_Surface_Pointer) + function Make_Surface_From_Pointer (S : in SDL.Video.Surfaces.Internal_Surface_Pointer; + Owns : in Boolean := False) return SDL.Video.Surfaces.Surface with Convention => Ada, Import => True;