diff options
Diffstat (limited to 'body/fltk-widgets-inputs.adb')
| -rw-r--r-- | body/fltk-widgets-inputs.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/body/fltk-widgets-inputs.adb b/body/fltk-widgets-inputs.adb index 0d3a3fe..ab83121 100644 --- a/body/fltk-widgets-inputs.adb +++ b/body/fltk-widgets-inputs.adb @@ -414,7 +414,9 @@ package body FLTK.Widgets.Inputs is begin pragma Assert (Result in 0 .. 1); exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Fl_Input_::copy returned unexpected int value of " & + Interfaces.C.int'Image (Result); end Copy; @@ -429,7 +431,9 @@ package body FLTK.Widgets.Inputs is pragma Assert (Result in 0 .. 1); return Boolean'Val (Result); exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Fl_Input_::copy returned unexpected int value of " & + Interfaces.C.int'Image (Result); end Copy; |