1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
//===-- runtime/terminate.cc ------------------------------------*- C++ -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//----------------------------------------------------------------------------//
#include "terminator.h"
#include <cstdio>
#include <cstdlib>
namespace Fortran::runtime {
[[noreturn]] void Terminator::Crash(const char *message, ...) {
va_list ap;
va_start(ap, message);
CrashArgs(message, ap);
}
[[noreturn]] void Terminator::CrashArgs(const char *message, va_list &ap) {
std::fputs("\nfatal Fortran runtime error", stderr);
if (sourceFileName_) {
std::fprintf(stderr, "(%s", sourceFileName_);
if (sourceLine_) {
std::fprintf(stderr, ":%d", sourceLine_);
}
fputc(')', stderr);
}
std::fputs(": ", stderr);
std::vfprintf(stderr, message, ap);
fputc('\n', stderr);
va_end(ap);
NotifyOtherImagesOfErrorTermination();
std::abort();
}
void NotifyOtherImagesOfNormalEnd() {
// TODO
}
void NotifyOtherImagesOfFailImageStatement() {
// TODO
}
void NotifyOtherImagesOfErrorTermination() {
// TODO
}
}
|
