1 2 3 4 5 6 7 8 9 10 11 12 13 14 | with Interfaces.C ; use Interfaces.C ; with Interfaces.C.Strings ; use Interfaces.C.Strings ; package ehandler is GSL_ERROR : exception ; procedure Setup ; procedure Reset ; procedure handler ( reason : Interfaces.C.Strings.chars_ptr; file : Interfaces.C.Strings.chars_ptr; line : int; errno : int) with Convention => C ; end ehandler; |