static void (*error)(const char *, ...) = ::error;

Current_Error : Error_Function := Default_Error'Access;

static void (*fatal)(const char *, ...) = ::fatal;

Current_Fatal : Error_Function := Default_Fatal'Access;

static void (*warning)(const char *, ...) = ::warning;

Current_Warning : Error_Function := Default_Warning'Access;

static void error(const char *format, ...);

procedure Default_Error
       (Message : in String);

static void fatal(const char *format, ...);

procedure Default_Fatal
       (Message : in String);

static void warning(const char *, ...);

procedure Default_Warning
       (Message : in String);