summaryrefslogtreecommitdiff
path: root/src/fltk-images-shared.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-images-shared.adb')
-rw-r--r--src/fltk-images-shared.adb25
1 files changed, 14 insertions, 11 deletions
diff --git a/src/fltk-images-shared.adb b/src/fltk-images-shared.adb
index e5bd240..0e36e6e 100644
--- a/src/fltk-images-shared.adb
+++ b/src/fltk-images-shared.adb
@@ -18,32 +18,38 @@ package body FLTK.Images.Shared is
W, H : in Interfaces.C.int)
return System.Address;
pragma Import (C, fl_shared_image_get, "fl_shared_image_get");
+ pragma Inline (fl_shared_image_get);
function fl_shared_image_get2
(I : in System.Address)
return System.Address;
pragma Import (C, fl_shared_image_get2, "fl_shared_image_get2");
+ pragma Inline (fl_shared_image_get2);
function fl_shared_image_find
(N : in Interfaces.C.char_array;
W, H : in Interfaces.C.int)
return System.Address;
pragma Import (C, fl_shared_image_find, "fl_shared_image_find");
+ pragma Inline (fl_shared_image_find);
procedure fl_shared_image_release
(I : in System.Address);
pragma Import (C, fl_shared_image_release, "fl_shared_image_release");
+ pragma Inline (fl_shared_image_release);
function fl_shared_image_copy
(I : in System.Address;
W, H : in Interfaces.C.int)
return System.Address;
pragma Import (C, fl_shared_image_copy, "fl_shared_image_copy");
+ pragma Inline (fl_shared_image_copy);
function fl_shared_image_copy2
(I : in System.Address)
return System.Address;
pragma Import (C, fl_shared_image_copy2, "fl_shared_image_copy2");
+ pragma Inline (fl_shared_image_copy2);
@@ -53,10 +59,12 @@ package body FLTK.Images.Shared is
C : in Interfaces.C.int;
B : in Interfaces.C.C_float);
pragma Import (C, fl_shared_image_color_average, "fl_shared_image_color_average");
+ pragma Inline (fl_shared_image_color_average);
procedure fl_shared_image_desaturate
(I : in System.Address);
pragma Import (C, fl_shared_image_desaturate, "fl_shared_image_desaturate");
+ pragma Inline (fl_shared_image_desaturate);
@@ -65,14 +73,12 @@ package body FLTK.Images.Shared is
(I : in System.Address)
return Interfaces.C.Strings.chars_ptr;
pragma Import (C, fl_shared_image_name, "fl_shared_image_name");
+ pragma Inline (fl_shared_image_name);
procedure fl_shared_image_reload
(I : in System.Address);
pragma Import (C, fl_shared_image_reload, "fl_shared_image_reload");
-
- procedure fl_shared_image_uncache
- (I : in System.Address);
- pragma Import (C, fl_shared_image_uncache, "fl_shared_image_uncache");
+ pragma Inline (fl_shared_image_reload);
@@ -80,11 +86,13 @@ package body FLTK.Images.Shared is
procedure fl_shared_image_scaling_algorithm
(A : in Interfaces.C.int);
pragma Import (C, fl_shared_image_scaling_algorithm, "fl_shared_image_scaling_algorithm");
+ pragma Inline (fl_shared_image_scaling_algorithm);
procedure fl_shared_image_scale
(I : in System.Address;
W, H, P, E : in Interfaces.C.int);
pragma Import (C, fl_shared_image_scale, "fl_shared_image_scale");
+ pragma Inline (fl_shared_image_scale);
@@ -93,11 +101,13 @@ package body FLTK.Images.Shared is
(I : in System.Address;
X, Y, W, H, CX, CY : in Interfaces.C.int);
pragma Import (C, fl_shared_image_draw, "fl_shared_image_draw");
+ pragma Inline (fl_shared_image_draw);
procedure fl_shared_image_draw2
(I : in System.Address;
X, Y : in Interfaces.C.int);
pragma Import (C, fl_shared_image_draw2, "fl_shared_image_draw2");
+ pragma Inline (fl_shared_image_draw2);
@@ -226,13 +236,6 @@ package body FLTK.Images.Shared is
end Reload;
- procedure Uncache
- (This : in out Shared_Image) is
- begin
- fl_shared_image_uncache (This.Void_Ptr);
- end Uncache;
-
-
procedure Set_Scaling_Algorithm