From 2d00fe01eb5fb245d0ca4be020e5e08895631805 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Jul 2017 10:57:19 +1000 Subject: Forgot to add exceptions to derivative Image constructors --- src/fltk-images-rgb-pnm.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/fltk-images-rgb-pnm.adb') diff --git a/src/fltk-images-rgb-pnm.adb b/src/fltk-images-rgb-pnm.adb index dd6ae26..5368b3e 100644 --- a/src/fltk-images-rgb-pnm.adb +++ b/src/fltk-images-rgb-pnm.adb @@ -47,6 +47,16 @@ package body FLTK.Images.RGB.PNM is return This : PNM_Image do This.Void_Ptr := new_fl_pnm_image (Interfaces.C.To_C (Filename)); + case fl_image_fail (This.Void_Ptr) is + when 1 => + raise No_Image_Error; + when 2 => + raise File_Access_Error; + when 3 => + raise Format_Error; + when others => + null; + end case; end return; end Create; -- cgit