Make sure to initialize the fpm in the ocaml tutorial.
[oota-llvm.git] / lib / Support / ErrorHandling.cpp
1 //===- lib/Support/ErrorHandling.cpp - Callbacks for errors -----*- C++ -*-===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 //
10 // This file defines an API for error handling, it supersedes cerr+abort(), and 
11 // cerr+exit() style error handling.
12 // Callbacks can be registered for these errors through this API.
13 //===----------------------------------------------------------------------===//
14
15 #include "llvm/ADT/Twine.h"
16 #include "llvm/Support/ErrorHandling.h"
17 #include "llvm/Support/raw_ostream.h"
18 #include "llvm/System/Threading.h"
19 #include <cassert>
20 #include <cstdlib>
21
22 using namespace llvm;
23 using namespace std;
24
25 static llvm_error_handler_t ErrorHandler = 0;
26 static void *ErrorHandlerUserData = 0;
27
28 namespace llvm {
29 void llvm_install_error_handler(llvm_error_handler_t handler,
30                                 void *user_data) {
31   assert(!llvm_is_multithreaded() &&
32          "Cannot register error handlers after starting multithreaded mode!\n");
33   assert(!ErrorHandler && "Error handler already registered!\n");
34   ErrorHandler = handler;
35   ErrorHandlerUserData = user_data;
36 }
37
38 void llvm_remove_error_handler() {
39   ErrorHandler = 0;
40 }
41
42 void llvm_report_error(const char *reason) {
43   llvm_report_error(Twine(reason));
44 }
45
46 void llvm_report_error(const std::string &reason) {
47   llvm_report_error(Twine(reason));
48 }
49
50 void llvm_report_error(const Twine &reason) {
51   if (!ErrorHandler) {
52     errs() << "LLVM ERROR: " << reason << "\n";
53   } else {
54     ErrorHandler(ErrorHandlerUserData, reason.str());
55   }
56   exit(1);
57 }
58
59 void llvm_unreachable_internal(const char *msg, const char *file, 
60                                unsigned line) {
61   // This code intentionally doesn't call the ErrorHandler callback, because
62   // llvm_unreachable is intended to be used to indicate "impossible"
63   // situations, and not legitimate runtime errors.
64   if (msg)
65     errs() << msg << "\n";
66   errs() << "UNREACHABLE executed";
67   if (file)
68     errs() << " at " << file << ":" << line;
69   errs() << "!\n";
70   abort();
71 }
72 }
73