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-float.adb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/fltk-widgets-inputs-float.adb') diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-float.adb index 2287140..4769c8a 100644 --- a/src/fltk-widgets-inputs-float.adb +++ b/src/fltk-widgets-inputs-float.adb @@ -26,11 +26,6 @@ package body FLTK.Widgets.Inputs.Float is (F : in System.Address); pragma Import (C, free_fl_float_input, "free_fl_float_input"); - function fl_float_input_get_value - (F : in System.Address) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_float_input_get_value, "fl_float_input_get_value"); - @@ -102,8 +97,7 @@ package body FLTK.Widgets.Inputs.Float is return Standard.Float is begin return Standard.Float'Value - (Interfaces.C.Strings.Value - (fl_float_input_get_value (This.Void_Ptr))); + (Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr))); end Get_Value; -- cgit