From ca10c01bea1e7a64b347ef058796a45f3b155e8e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 9 May 2017 14:19:01 +1000 Subject: Removed superfluous Get_Value calls on the CPP side --- src/fltk-widgets-inputs-integer.adb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/fltk-widgets-inputs-integer.adb') diff --git a/src/fltk-widgets-inputs-integer.adb b/src/fltk-widgets-inputs-integer.adb index 0f2c711..9234f60 100644 --- a/src/fltk-widgets-inputs-integer.adb +++ b/src/fltk-widgets-inputs-integer.adb @@ -26,11 +26,6 @@ package body FLTK.Widgets.Inputs.Integer is (F : in System.Address); pragma Import (C, free_fl_int_input, "free_fl_int_input"); - function fl_int_input_get_value - (F : in System.Address) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_int_input_get_value, "fl_int_input_get_value"); - @@ -102,8 +97,7 @@ package body FLTK.Widgets.Inputs.Integer is return Standard.Integer is begin return Standard.Integer'Value - (Interfaces.C.Strings.Value - (fl_int_input_get_value (This.Void_Ptr))); + (Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr))); end Get_Value; -- cgit