1*38fd1498Szrj /* Copyright (C) 2005-2018 Free Software Foundation, Inc.
2*38fd1498Szrj Contributed by Richard Henderson <rth@redhat.com>.
3*38fd1498Szrj
4*38fd1498Szrj This file is part of the GNU Offloading and Multi Processing Library
5*38fd1498Szrj (libgomp).
6*38fd1498Szrj
7*38fd1498Szrj Libgomp is free software; you can redistribute it and/or modify it
8*38fd1498Szrj under the terms of the GNU General Public License as published by
9*38fd1498Szrj the Free Software Foundation; either version 3, or (at your option)
10*38fd1498Szrj any later version.
11*38fd1498Szrj
12*38fd1498Szrj Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
13*38fd1498Szrj WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14*38fd1498Szrj FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15*38fd1498Szrj more details.
16*38fd1498Szrj
17*38fd1498Szrj Under Section 7 of GPL version 3, you are granted additional
18*38fd1498Szrj permissions described in the GCC Runtime Library Exception, version
19*38fd1498Szrj 3.1, as published by the Free Software Foundation.
20*38fd1498Szrj
21*38fd1498Szrj You should have received a copy of the GNU General Public License and
22*38fd1498Szrj a copy of the GCC Runtime Library Exception along with this program;
23*38fd1498Szrj see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24*38fd1498Szrj <http://www.gnu.org/licenses/>. */
25*38fd1498Szrj
26*38fd1498Szrj /* This file contains routines used to signal errors. Most places in the
27*38fd1498Szrj OpenMP API do not make any provision for failure, so we can't just
28*38fd1498Szrj defer the decision on reporting the problem to the user; we must do it
29*38fd1498Szrj ourselves or not at all. */
30*38fd1498Szrj /* ??? Is this about what other implementations do? Assume stderr hasn't
31*38fd1498Szrj been pointed somewhere unsafe? */
32*38fd1498Szrj
33*38fd1498Szrj #include "libgomp.h"
34*38fd1498Szrj #include <stdarg.h>
35*38fd1498Szrj #include <stdio.h>
36*38fd1498Szrj #include <stdlib.h>
37*38fd1498Szrj
38*38fd1498Szrj
39*38fd1498Szrj #undef gomp_vdebug
40*38fd1498Szrj void
gomp_vdebug(int kind,const char * msg,va_list list)41*38fd1498Szrj gomp_vdebug (int kind __attribute__ ((unused)), const char *msg, va_list list)
42*38fd1498Szrj {
43*38fd1498Szrj if (gomp_debug_var)
44*38fd1498Szrj vfprintf (stderr, msg, list);
45*38fd1498Szrj }
46*38fd1498Szrj
47*38fd1498Szrj #undef gomp_debug
48*38fd1498Szrj void
gomp_debug(int kind,const char * msg,...)49*38fd1498Szrj gomp_debug (int kind, const char *msg, ...)
50*38fd1498Szrj {
51*38fd1498Szrj va_list list;
52*38fd1498Szrj
53*38fd1498Szrj va_start (list, msg);
54*38fd1498Szrj gomp_vdebug (kind, msg, list);
55*38fd1498Szrj va_end (list);
56*38fd1498Szrj }
57*38fd1498Szrj
58*38fd1498Szrj void
gomp_verror(const char * fmt,va_list list)59*38fd1498Szrj gomp_verror (const char *fmt, va_list list)
60*38fd1498Szrj {
61*38fd1498Szrj fputs ("\nlibgomp: ", stderr);
62*38fd1498Szrj vfprintf (stderr, fmt, list);
63*38fd1498Szrj fputc ('\n', stderr);
64*38fd1498Szrj }
65*38fd1498Szrj
66*38fd1498Szrj void
gomp_error(const char * fmt,...)67*38fd1498Szrj gomp_error (const char *fmt, ...)
68*38fd1498Szrj {
69*38fd1498Szrj va_list list;
70*38fd1498Szrj
71*38fd1498Szrj va_start (list, fmt);
72*38fd1498Szrj gomp_verror (fmt, list);
73*38fd1498Szrj va_end (list);
74*38fd1498Szrj }
75*38fd1498Szrj
76*38fd1498Szrj void
gomp_vfatal(const char * fmt,va_list list)77*38fd1498Szrj gomp_vfatal (const char *fmt, va_list list)
78*38fd1498Szrj {
79*38fd1498Szrj gomp_verror (fmt, list);
80*38fd1498Szrj exit (EXIT_FAILURE);
81*38fd1498Szrj }
82*38fd1498Szrj
83*38fd1498Szrj void
gomp_fatal(const char * fmt,...)84*38fd1498Szrj gomp_fatal (const char *fmt, ...)
85*38fd1498Szrj {
86*38fd1498Szrj va_list list;
87*38fd1498Szrj
88*38fd1498Szrj va_start (list, fmt);
89*38fd1498Szrj gomp_vfatal (fmt, list);
90*38fd1498Szrj va_end (list);
91*38fd1498Szrj }
92