1 //===-- runtime/terminate.cpp ---------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 
9 #include "terminator.h"
10 #include <cstdio>
11 #include <cstdlib>
12 
13 namespace Fortran::runtime {
14 
15 [[noreturn]] void Terminator::Crash(const char *message, ...) const {
16   va_list ap;
17   va_start(ap, message);
18   CrashArgs(message, ap);
19   va_end(ap);
20 }
21 
22 static void (*crashHandler)(const char *, int, const char *, va_list &){
23     nullptr};
24 
25 void Terminator::RegisterCrashHandler(
26     void (*handler)(const char *, int, const char *, va_list &)) {
27   crashHandler = handler;
28 }
29 
30 [[noreturn]] void Terminator::CrashArgs(
31     const char *message, va_list &ap) const {
32   if (crashHandler) {
33     crashHandler(sourceFileName_, sourceLine_, message, ap);
34   }
35   std::fputs("\nfatal Fortran runtime error", stderr);
36   if (sourceFileName_) {
37     std::fprintf(stderr, "(%s", sourceFileName_);
38     if (sourceLine_) {
39       std::fprintf(stderr, ":%d", sourceLine_);
40     }
41     fputc(')', stderr);
42   }
43   std::fputs(": ", stderr);
44   std::vfprintf(stderr, message, ap);
45   fputc('\n', stderr);
46   va_end(ap);
47   io::FlushOutputOnCrash(*this);
48   NotifyOtherImagesOfErrorTermination();
49   std::abort();
50 }
51 
52 [[noreturn]] void Terminator::CheckFailed(
53     const char *predicate, const char *file, int line) const {
54   Crash("Internal error: RUNTIME_CHECK(%s) failed at %s(%d)", predicate, file,
55       line);
56 }
57 
58 [[noreturn]] void Terminator::CheckFailed(const char *predicate) const {
59   Crash("Internal error: RUNTIME_CHECK(%s) failed at %s(%d)", predicate,
60       sourceFileName_, sourceLine_);
61 }
62 
63 // TODO: These will be defined in the coarray runtime library
64 void NotifyOtherImagesOfNormalEnd() {}
65 void NotifyOtherImagesOfFailImageStatement() {}
66 void NotifyOtherImagesOfErrorTermination() {}
67 } // namespace Fortran::runtime
68