diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-05-09 14:19:01 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-05-09 14:19:01 +1000 |
commit | ca10c01bea1e7a64b347ef058796a45f3b155e8e (patch) | |
tree | 8671cddd5df561309501d4660febd96d38b74a28 /src/fltk-widgets-inputs-integer.adb | |
parent | 2354ea851677fbd66fb2a9fb2074a6122fc04e03 (diff) |
Removed superfluous Get_Value calls on the CPP side
Diffstat (limited to 'src/fltk-widgets-inputs-integer.adb')
-rw-r--r-- | src/fltk-widgets-inputs-integer.adb | 8 |
1 files changed, 1 insertions, 7 deletions
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; |