adagsl_335d13f0/examples/fft/src/ehandler.ads

 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;