llvm-6502/examples/ExceptionDemo/ExceptionDemo.cpp

//===-- examples/ExceptionDemo/ExceptionDemo.cpp - 
//                      An example use of the llvm Exception mechanism --===//
//
//                     The LLVM Compiler Infrastructure
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===--------------------------------------------------------------------===//
//
// Demo program which implements an example LLVM exception implementation, and
// shows several test cases including the handling of foreign exceptions.
// It is run with type info types arguments to throw. A test will
// be run for each given type info type. While type info types with the value 
// of -1 will trigger a foreign C++ exception to be thrown; type info types
// <= 6 and >= 1 will cause the associated generated exceptions to be thrown 
// and caught by generated test functions; and type info types > 6
// will result in exceptions which pass through to the test harness. All other
// type info types are not supported and could cause a crash. In all cases,
// the "finally" blocks of every generated test functions will executed 
// regardless of whether or not that test function ignores or catches the
// thrown exception.
//
// examples:
//
// ExceptionDemo
//
//     causes a usage to be printed to stderr
// 
// ExceptionDemo 2 3 7 -1
//
//     results in the following cases:
//         - Value 2 causes an exception with a type info type of 2 to be 
//           thrown and caught by an inner generated test function.
//         - Value 3 causes an exception with a type info type of 3 to be 
//           thrown and caught by an outer generated test function.
//         - Value 7 causes an exception with a type info type of 7 to be 
//           thrown and NOT be caught by any generated function.
//         - Value -1 causes a foreign C++ exception to be thrown and not be
//           caught by any generated function
//
//     Cases -1 and 7 are caught by a C++ test harness where the validity of
//         of a C++ catch(...) clause catching a generated exception with a 
//         type info type of 7 is questionable.
//
// This code uses code from the llvm compiler-rt project and the llvm 
// Kaleidoscope project.
//
//===--------------------------------------------------------------------===//


#include "llvm/LLVMContext.h"
#include "llvm/DerivedTypes.h"
#include "llvm/ExecutionEngine/ExecutionEngine.h"
#include "llvm/ExecutionEngine/JIT.h"
#include "llvm/Module.h"
#include "llvm/PassManager.h"
#include "llvm/Intrinsics.h"
#include "llvm/Analysis/Verifier.h"
#include "llvm/Target/TargetData.h"
#include "llvm/Target/TargetSelect.h"
#include "llvm/Target/TargetOptions.h"
#include "llvm/Transforms/Scalar.h"
#include "llvm/Support/IRBuilder.h"
#include "llvm/Support/Dwarf.h"

#include <cstdio>
#include <string>
#include <sstream>
#include <map>
#include <vector>
#include <stdexcept>


#ifndef USE_GLOBAL_STR_CONSTS
#define USE_GLOBAL_STR_CONSTS true
#endif

// System C++ ABI unwind types from: 
//     http://refspecs.freestandards.org/abi-eh-1.21.html

extern "C" {

typedef enum {
    _URC_NO_REASON = 0,
    _URC_FOREIGN_EXCEPTION_CAUGHT = 1,
    _URC_FATAL_PHASE2_ERROR = 2,
    _URC_FATAL_PHASE1_ERROR = 3,
    _URC_NORMAL_STOP = 4,
    _URC_END_OF_STACK = 5,
    _URC_HANDLER_FOUND = 6,
    _URC_INSTALL_CONTEXT = 7,
    _URC_CONTINUE_UNWIND = 8
} _Unwind_Reason_Code;

typedef enum {
    _UA_SEARCH_PHASE = 1,
    _UA_CLEANUP_PHASE = 2,
    _UA_HANDLER_FRAME = 4,
    _UA_FORCE_UNWIND = 8,
    _UA_END_OF_STACK = 16
} _Unwind_Action;

struct _Unwind_Exception;

typedef void (*_Unwind_Exception_Cleanup_Fn) (_Unwind_Reason_Code,
                                              struct _Unwind_Exception *);

struct _Unwind_Exception {
    uint64_t exception_class;
    _Unwind_Exception_Cleanup_Fn exception_cleanup;

    uintptr_t private_1;    
    uintptr_t private_2;    

    // @@@ The IA-64 ABI says that this structure must be double-word aligned.
    //  Taking that literally does not make much sense generically.  Instead 
    //  we provide the maximum alignment required by any type for the machine.
} __attribute__((__aligned__));

struct _Unwind_Context;
typedef struct _Unwind_Context* _Unwind_Context_t;

extern const uint8_t* _Unwind_GetLanguageSpecificData (_Unwind_Context_t c);
extern uintptr_t _Unwind_GetGR (_Unwind_Context_t c, int i);
extern void _Unwind_SetGR (_Unwind_Context_t c, int i, uintptr_t n);
extern void _Unwind_SetIP (_Unwind_Context_t, uintptr_t new_value);
extern uintptr_t _Unwind_GetIP (_Unwind_Context_t context);
extern uintptr_t _Unwind_GetRegionStart (_Unwind_Context_t context);

} // extern "C"

//
// Example types
//

/// This is our simplistic type info
struct OurExceptionType_t {
    /// type info type
    int type;
};


/// This is our Exception class which relies on a negative offset to calculate
/// pointers to its instances from pointers to its unwindException member.
/// 
/// Note: The above unwind.h defines struct _Unwind_Exception to be aligned
///       on a double word boundary. This is necessary to match the standard:
///       http://refspecs.freestandards.org/abi-eh-1.21.html
struct OurBaseException_t {
    struct OurExceptionType_t type;

    // Note: This is properly aligned in unwind.h
    struct _Unwind_Exception unwindException;
};


// Note: Not needed since we are C++
typedef struct OurBaseException_t OurException;
typedef struct _Unwind_Exception OurUnwindException;

//
// Various globals used to support typeinfo and generatted exceptions in 
// general
//

static std::map<std::string, llvm::Value*> namedValues;

int64_t ourBaseFromUnwindOffset;

const unsigned char ourBaseExcpClassChars[] = 
                                {'o', 'b', 'j', '\0', 'b', 'a', 's', '\0'};


static uint64_t ourBaseExceptionClass = 0;

static std::vector<std::string> ourTypeInfoNames;
static std::map<int, std::string> ourTypeInfoNamesIndex;

static llvm::StructType* ourTypeInfoType;
static llvm::StructType* ourExceptionType;
static llvm::StructType* ourUnwindExceptionType;

static llvm::ConstantInt* ourExceptionNotThrownState;
static llvm::ConstantInt* ourExceptionThrownState;
static llvm::ConstantInt* ourExceptionCaughtState;

typedef std::vector<std::string> ArgNames;
typedef std::vector<const llvm::Type*> ArgTypes;

//
// Code Generation Utilities
//

/// Utility used to create a function, both declarations and definitions
/// @param module for module instance
/// @param retType function return type
/// @param theArgTypes function's ordered argument types
/// @param theArgNames function's ordered arguments needed if use of this
///        function corresponds to a function definition. Use empty 
///        aggregate for function declarations.
/// @param functName function name
/// @param linkage function linkage
/// @param declarationOnly for function declarations
/// @param isVarArg function uses vararg arguments
/// @returns function instance
llvm::Function *createFunction(llvm::Module& module,
                               const llvm::Type* retType,
                               const ArgTypes& theArgTypes,
                               const ArgNames& theArgNames,
                               const std::string& functName,
                               llvm::GlobalValue::LinkageTypes linkage,
                               bool declarationOnly,
                               bool isVarArg) {
    llvm::FunctionType* functType = llvm::FunctionType::get(retType, 
                                                            theArgTypes, 
                                                            isVarArg);
    llvm::Function* ret = llvm::Function::Create(functType, 
                                                 linkage, 
                                                 functName, 
                                                 &module);
    if (!ret || declarationOnly)
        return(ret);

    namedValues.clear();
    unsigned i = 0; 
    for (llvm::Function::arg_iterator argIndex = ret->arg_begin();
         i != theArgNames.size();
         ++argIndex, ++i) {

        argIndex->setName(theArgNames[i]);
        namedValues[theArgNames[i]] = argIndex;
    }

    return(ret);
}


/// Create an alloca instruction in the entry block of
/// the parent function.  This is used for mutable variables etc.
/// @param function parent instance
/// @param varName stack variable name
/// @param type stack variable type
/// @param initWith optional constant initialization value
/// @returns AllocaInst instance
static llvm::AllocaInst *createEntryBlockAlloca(llvm::Function& function,
                                            const std::string &varName,
                                            const llvm::Type* type,
                                            llvm::Constant* initWith = NULL) {
    llvm::BasicBlock& block = function.getEntryBlock(); 
    llvm::IRBuilder<> tmp(&block, block.begin());
    llvm::AllocaInst* ret = tmp.CreateAlloca(type, 0, varName.c_str());

    if (initWith) 
        tmp.CreateStore(initWith, ret);

    return(ret);
}


//
// Code Generation Utilities End
//

//
// Runtime C Library functions 
//

// Note: using an extern "C" block so that static functions can be used
extern "C" {

// Note: Better ways to decide on bit width
//
/// Prints a 32 bit number, according to the format, to stderr.
/// @param intToPrint integer to print 
/// @param format printf like format to use when printing
void print32Int(int intToPrint, const char* format) {
    if (format) {
        // Note: No NULL check
        fprintf(stderr, format, intToPrint);
    }
    else {
        // Note: No NULL check
        fprintf(stderr, "::print32Int(...):NULL arg.\n");
    }
}


// Note: Better ways to decide on bit width
//
/// Prints a 64 bit number, according to the format, to stderr.
/// @param intToPrint integer to print 
/// @param format printf like format to use when printing
void print64Int(long int intToPrint, const char* format) {
    if (format) {
        // Note: No NULL check
        fprintf(stderr, format, intToPrint);
    }
    else {
        // Note: No NULL check
        fprintf(stderr, "::print64Int(...):NULL arg.\n");
    }
}


/// Prints a C string to stderr
/// @param toPrint string to print
void printStr(char* toPrint) {
    if (toPrint) {
        fprintf(stderr, "%s", toPrint);
    }
    else {
        fprintf(stderr, "::printStr(...):NULL arg.\n");
    }
}


/// Deletes the true previosly allocated exception whose address
/// is calculated from the supplied OurBaseException_t::unwindException
/// member address. Handles (ignores), NULL pointers.
/// @param expToDelete exception to delete
void deleteOurException(OurUnwindException* expToDelete) {
#ifdef DEBUG
    fprintf(stderr,
            "deleteOurException(...).\n");
#endif

    if (expToDelete &&
        (expToDelete->exception_class == ourBaseExceptionClass)) {

        free(((char*) expToDelete) + ourBaseFromUnwindOffset);
    }
}


/// This function is the struct _Unwind_Exception API mandated delete function 
/// used by foreign exception handlers when deleting our exception 
/// (OurException), instances.
/// @param reason @link http://refspecs.freestandards.org/abi-eh-1.21.html 
/// @unlink
/// @param expToDelete exception instance to delete
void deleteFromUnwindOurException(_Unwind_Reason_Code reason,
                                  OurUnwindException* expToDelete) {
#ifdef DEBUG
    fprintf(stderr,
            "deleteFromUnwindOurException(...).\n");
#endif

    deleteOurException(expToDelete);
}


/// Creates (allocates on the heap), an exception (OurException instance),
/// of the supplied type info type.
/// @param type type info type
OurUnwindException* createOurException(int type) {
    size_t size = sizeof(OurException);
    OurException* ret = (OurException*) memset(malloc(size), 0, size);
    (ret->type).type = type;
    (ret->unwindException).exception_class = ourBaseExceptionClass;
    (ret->unwindException).exception_cleanup = deleteFromUnwindOurException;

    return(&(ret->unwindException));
}


/// Read a uleb128 encoded value and advance pointer 
/// See Variable Length Data in: 
/// @link http://dwarfstd.org/Dwarf3.pdf @unlink
/// @param data reference variable holding memory pointer to decode from
/// @returns decoded value
static uintptr_t readULEB128(const uint8_t** data) {
    uintptr_t result = 0;
    uintptr_t shift = 0;
    unsigned char byte;
    const uint8_t* p = *data;

    do {
        byte = *p++;
        result |= (byte & 0x7f) << shift;
        shift += 7;
    } 
    while (byte & 0x80);

    *data = p;

    return result;
}


/// Read a sleb128 encoded value and advance pointer 
/// See Variable Length Data in: 
/// @link http://dwarfstd.org/Dwarf3.pdf @unlink
/// @param data reference variable holding memory pointer to decode from
/// @returns decoded value
static uintptr_t readSLEB128(const uint8_t** data) {
    uintptr_t result = 0;
    uintptr_t shift = 0;
    unsigned char byte;
    const uint8_t* p = *data;

    do {
        byte = *p++;
        result |= (byte & 0x7f) << shift;
        shift += 7;
    } 
    while (byte & 0x80);

    *data = p;

    if ((byte & 0x40) && (shift < (sizeof(result) << 3))) {
        result |= (~0 << shift);
    }

    return result;
}


/// Read a pointer encoded value and advance pointer 
/// See Variable Length Data in: 
/// @link http://dwarfstd.org/Dwarf3.pdf @unlink
/// @param data reference variable holding memory pointer to decode from
/// @param encoding dwarf encoding type
/// @returns decoded value
static uintptr_t readEncodedPointer(const uint8_t** data, uint8_t encoding) {
    uintptr_t result = 0;
    const uint8_t* p = *data;

    if (encoding == llvm::dwarf::DW_EH_PE_omit) 
        return(result);

    // first get value 
    switch (encoding & 0x0F) {
        case llvm::dwarf::DW_EH_PE_absptr:
            result = *((uintptr_t*)p);
            p += sizeof(uintptr_t);
            break;
        case llvm::dwarf::DW_EH_PE_uleb128:
            result = readULEB128(&p);
            break;
        // Note: This case has not been tested
        case llvm::dwarf::DW_EH_PE_sleb128:
            result = readSLEB128(&p);
            break;
        case llvm::dwarf::DW_EH_PE_udata2:
            result = *((uint16_t*)p);
            p += sizeof(uint16_t);
            break;
        case llvm::dwarf::DW_EH_PE_udata4:
            result = *((uint32_t*)p);
            p += sizeof(uint32_t);
            break;
        case llvm::dwarf::DW_EH_PE_udata8:
            result = *((uint64_t*)p);
            p += sizeof(uint64_t);
            break;
        case llvm::dwarf::DW_EH_PE_sdata2:
            result = *((int16_t*)p);
            p += sizeof(int16_t);
            break;
        case llvm::dwarf::DW_EH_PE_sdata4:
            result = *((int32_t*)p);
            p += sizeof(int32_t);
            break;
        case llvm::dwarf::DW_EH_PE_sdata8:
            result = *((int64_t*)p);
            p += sizeof(int64_t);
            break;
        default:
            // not supported 
            abort();
            break;
    }

    // then add relative offset 
    switch (encoding & 0x70) {
        case llvm::dwarf::DW_EH_PE_absptr:
            // do nothing 
            break;
        case llvm::dwarf::DW_EH_PE_pcrel:
            result += (uintptr_t)(*data);
            break;
        case llvm::dwarf::DW_EH_PE_textrel:
        case llvm::dwarf::DW_EH_PE_datarel:
        case llvm::dwarf::DW_EH_PE_funcrel:
        case llvm::dwarf::DW_EH_PE_aligned:
        default:
            // not supported 
            abort();
            break;
    }

    // then apply indirection 
    if (encoding & llvm::dwarf::DW_EH_PE_indirect) {
        result = *((uintptr_t*)result);
    }

    *data = p;

    return result;
}


/// Deals with Dwarf actions matching our type infos 
/// (OurExceptionType_t instances). Returns whether or not a dwarf emitted 
/// action matches the supplied exception type. If such a match succeeds, 
/// the resultAction argument will be set with > 0 index value. Only 
/// corresponding llvm.eh.selector type info arguments, cleanup arguments 
/// are supported. Filters are not supported.
/// See Variable Length Data in: 
/// @link http://dwarfstd.org/Dwarf3.pdf @unlink
/// Also see @link http://refspecs.freestandards.org/abi-eh-1.21.html @unlink
/// @param resultAction reference variable which will be set with result
/// @param classInfo our array of type info pointers (to globals)
/// @param actionEntry index into above type info array or 0 (clean up). 
///        We do not support filters.
/// @param exceptionClass exception class (_Unwind_Exception::exception_class)
///        of thrown exception.
/// @param exceptionObject thrown _Unwind_Exception instance.
/// @returns whether or not a type info was found. False is returned if only
///          a cleanup was found
static bool handleActionValue(int64_t *resultAction,
                              struct OurExceptionType_t **classInfo, 
                              uintptr_t actionEntry, 
                              uint64_t exceptionClass, 
                              struct _Unwind_Exception *exceptionObject) {
    bool ret = false;

    if (!resultAction || 
        !exceptionObject || 
        (exceptionClass != ourBaseExceptionClass))
        return(ret);

    struct OurBaseException_t* excp = (struct OurBaseException_t*)
                        (((char*) exceptionObject) + ourBaseFromUnwindOffset);
    struct OurExceptionType_t *excpType = &(excp->type);
    int type = excpType->type;

#ifdef DEBUG
    fprintf(stderr,
            "handleActionValue(...): exceptionObject = <%p>, "
                "excp = <%p>.\n",
            exceptionObject,
            excp);
#endif

    const uint8_t *actionPos = (uint8_t*) actionEntry,
                  *tempActionPos;
    int64_t typeOffset = 0,
            actionOffset;

    for (int i = 0; true; ++i) {
        // Each emitted dwarf action corresponds to a 2 tuple of
        // type info address offset, and action offset to the next
        // emitted action.
        typeOffset = readSLEB128(&actionPos);
        tempActionPos = actionPos;
        actionOffset = readSLEB128(&tempActionPos);

#ifdef DEBUG
        fprintf(stderr,
                "handleActionValue(...):typeOffset: <%lld>, "
                    "actionOffset: <%lld>.\n",
                typeOffset,
                actionOffset);
#endif
        assert((typeOffset >= 0) && 
               "handleActionValue(...):filters are not supported.");

        // Note: A typeOffset == 0 implies that a cleanup llvm.eh.selector
        //       argument has been matched.
        if ((typeOffset > 0) &&
            (type == (classInfo[-typeOffset])->type)) {
#ifdef DEBUG
            fprintf(stderr,
                    "handleActionValue(...):actionValue <%d> found.\n",
                    i);
#endif
            *resultAction = i + 1;
            ret = true;
            break;
        }

#ifdef DEBUG
        fprintf(stderr,
                "handleActionValue(...):actionValue not found.\n");
#endif
        if (!actionOffset)
            break;

        actionPos += actionOffset;
    }

    return(ret);
}


/// Deals with the Language specific data portion of the emitted dwarf code.
/// See @link http://refspecs.freestandards.org/abi-eh-1.21.html @unlink
/// @param version unsupported (ignored), unwind version
/// @param lsda language specific data area
/// @param _Unwind_Action actions minimally supported unwind stage 
///        (forced specifically not supported)
/// @param exceptionClass exception class (_Unwind_Exception::exception_class)
///        of thrown exception.
/// @param exceptionObject thrown _Unwind_Exception instance.
/// @param context unwind system context
/// @returns minimally supported unwinding control indicator 
static _Unwind_Reason_Code handleLsda(int version, 
                                  const uint8_t* lsda,
                                  _Unwind_Action actions,
                                  uint64_t exceptionClass, 
                                  struct _Unwind_Exception* exceptionObject,
                                  _Unwind_Context_t context) {
    _Unwind_Reason_Code ret = _URC_CONTINUE_UNWIND;

    if (!lsda)
        return(ret);

#ifdef DEBUG
    fprintf(stderr, 
            "handleLsda(...):lsda is non-zero.\n");
#endif

    // Get the current instruction pointer and offset it before next
    // instruction in the current frame which threw the exception.
    uintptr_t pc = _Unwind_GetIP(context)-1;

    // Get beginning current frame's code (as defined by the 
    // emitted dwarf code)
    uintptr_t funcStart = _Unwind_GetRegionStart(context);
    uintptr_t pcOffset = pc - funcStart;
    struct OurExceptionType_t** classInfo = NULL;

    // Note: See JITDwarfEmitter::EmitExceptionTable(...) for corresponding
    //       dwarf emission

    // Parse LSDA header.
    uint8_t lpStartEncoding = *lsda++;

    if (lpStartEncoding != llvm::dwarf::DW_EH_PE_omit) {
        readEncodedPointer(&lsda, lpStartEncoding); 
    }

    uint8_t ttypeEncoding = *lsda++;
    uintptr_t classInfoOffset;

    if (ttypeEncoding != llvm::dwarf::DW_EH_PE_omit) {
        // Calculate type info locations in emitted dwarf code which
        // were flagged by type info arguments to llvm.eh.selector
        // intrinsic
        classInfoOffset = readULEB128(&lsda);
        classInfo = (struct OurExceptionType_t**) (lsda + classInfoOffset);
    }

    // Walk call-site table looking for range that 
    // includes current PC. 

    uint8_t         callSiteEncoding = *lsda++;
    uint32_t        callSiteTableLength = readULEB128(&lsda);
    const uint8_t*  callSiteTableStart = lsda;
    const uint8_t*  callSiteTableEnd = callSiteTableStart + 
                                                    callSiteTableLength;
    const uint8_t*  actionTableStart = callSiteTableEnd;
    const uint8_t*  callSitePtr = callSiteTableStart;

    bool foreignException = false;

    while (callSitePtr < callSiteTableEnd) {
        uintptr_t start = readEncodedPointer(&callSitePtr, 
                                             callSiteEncoding);
        uintptr_t length = readEncodedPointer(&callSitePtr, 
                                              callSiteEncoding);
        uintptr_t landingPad = readEncodedPointer(&callSitePtr, 
                                                  callSiteEncoding);

        // Note: Action value
        uintptr_t actionEntry = readULEB128(&callSitePtr);

        if (exceptionClass != ourBaseExceptionClass) {
            // We have been notified of a foreign exception being thrown,
            // and we therefore need to execute cleanup landing pads
            actionEntry = 0;
            foreignException = true;
        }

        if (landingPad == 0) {
#ifdef DEBUG
            fprintf(stderr,
                    "handleLsda(...): No landing pad found.\n");
#endif

            continue; // no landing pad for this entry
        }

        if (actionEntry) {
            actionEntry += ((uintptr_t) actionTableStart) - 1;
        }
        else {
#ifdef DEBUG
            fprintf(stderr,
                    "handleLsda(...):No action table found.\n");
#endif
        }

        bool exceptionMatched = false;

        if ((start <= pcOffset) && (pcOffset < (start + length))) {
#ifdef DEBUG
            fprintf(stderr,
                    "handleLsda(...): Landing pad found.\n");
#endif
            int64_t actionValue = 0;

            if (actionEntry) {
                exceptionMatched = handleActionValue
                                   (
                                       &actionValue,
                                       classInfo, 
                                       actionEntry, 
                                       exceptionClass, 
                                       exceptionObject
                                   );
            }

            if (!(actions & _UA_SEARCH_PHASE)) {
#ifdef DEBUG
                fprintf(stderr,
                        "handleLsda(...): installed landing pad "
                            "context.\n");
#endif

                // Found landing pad for the PC.
                // Set Instruction Pointer to so we re-enter function 
                // at landing pad. The landing pad is created by the 
                // compiler to take two parameters in registers.
                _Unwind_SetGR(context, 
                              __builtin_eh_return_data_regno(0), 
                              (uintptr_t)exceptionObject);

                // Note: this virtual register directly corresponds
                //       to the return of the llvm.eh.selector intrinsic
                if (!actionEntry || !exceptionMatched) {
                    // We indicate cleanup only
                    _Unwind_SetGR(context, 
                                  __builtin_eh_return_data_regno(1), 
                                  0);
                }
                else {
                    // Matched type info index of llvm.eh.selector intrinsic
                    // passed here.
                    _Unwind_SetGR(context, 
                                  __builtin_eh_return_data_regno(1), 
                                  actionValue);
                }

                // To execute landing pad set here
                _Unwind_SetIP(context, funcStart + landingPad);
                ret = _URC_INSTALL_CONTEXT;
            }
            else if (exceptionMatched) {
#ifdef DEBUG
                fprintf(stderr,
                        "handleLsda(...): setting handler found.\n");
#endif
                ret = _URC_HANDLER_FOUND;
            }
            else {
                // Note: Only non-clean up handlers are marked as
                //       found. Otherwise the clean up handlers will be 
                //       re-found and executed during the clean up 
                //       phase.
#ifdef DEBUG
                fprintf(stderr,
                        "handleLsda(...): cleanup handler found.\n");
#endif
            }

            break;
        }
    }

    return(ret);
}


/// This is the personality function which is embedded (dwarf emitted), in the
/// dwarf unwind info block. Again see: JITDwarfEmitter.cpp.
/// See @link http://refspecs.freestandards.org/abi-eh-1.21.html @unlink
/// @param version unsupported (ignored), unwind version
/// @param _Unwind_Action actions minimally supported unwind stage 
///        (forced specifically not supported)
/// @param exceptionClass exception class (_Unwind_Exception::exception_class)
///        of thrown exception.
/// @param exceptionObject thrown _Unwind_Exception instance.
/// @param context unwind system context
/// @returns minimally supported unwinding control indicator 
_Unwind_Reason_Code ourPersonality(int version, 
                               _Unwind_Action actions,
                               uint64_t exceptionClass, 
                               struct _Unwind_Exception* exceptionObject,
                               _Unwind_Context_t context) {
#ifdef DEBUG
    fprintf(stderr, 
            "We are in ourPersonality(...):actions is <%d>.\n",
            actions);

    if (actions & _UA_SEARCH_PHASE) {
        fprintf(stderr, "ourPersonality(...):In search phase.\n");
    }
    else {
        fprintf(stderr, "ourPersonality(...):In non-search phase.\n");
    }
#endif

    const uint8_t* lsda = _Unwind_GetLanguageSpecificData(context);

#ifdef DEBUG
    fprintf(stderr, 
            "ourPersonality(...):lsda = <%p>.\n",
            lsda);
#endif

    // The real work of the personality function is captured here
    return(handleLsda(version,
                      lsda,
                      actions,
                      exceptionClass,
                      exceptionObject,
                      context));
}


/// Generates our _Unwind_Exception class from a given character array.
/// thereby handling arbitrary lengths (not in standard), and handling
/// embedded \0s.
/// See @link http://refspecs.freestandards.org/abi-eh-1.21.html @unlink
/// @param classChars char array to encode. NULL values not checkedf
/// @param classCharsSize number of chars in classChars. Value is not checked.
/// @returns class value
uint64_t genClass(const unsigned char classChars[], size_t classCharsSize)
{
    uint64_t ret = classChars[0];

    for (unsigned i = 1; i < classCharsSize; ++i) {
        ret <<= 8;
        ret += classChars[i];
    }

    return(ret);
}

} // extern "C"

//
// Runtime C Library functions End
//

//
// Code generation functions
//

/// Generates code to print given constant string
/// @param context llvm context
/// @param module code for module instance
/// @param builder builder instance
/// @param toPrint string to print
/// @param useGlobal A value of true (default) indicates a GlobalValue is 
///        generated, and is used to hold the constant string. A value of 
///        false indicates that the constant string will be stored on the 
///        stack.
void generateStringPrint(llvm::LLVMContext& context, 
                         llvm::Module& module,
                         llvm::IRBuilder<>& builder, 
                         std::string toPrint,
                         bool useGlobal = true) {
    llvm::Function *printFunct = module.getFunction("printStr");

    llvm::Value *stringVar;
    llvm::Constant* stringConstant = 
        llvm::ConstantArray::get(context, toPrint);

    if (useGlobal) {
        // Note: Does not work without allocation
        stringVar = 
            new llvm::GlobalVariable(module, 
                                     stringConstant->getType(),
                                     true, 
                                     llvm::GlobalValue::LinkerPrivateLinkage, 
                                     stringConstant, 
                                     "");
    }
    else {
        stringVar = builder.CreateAlloca(stringConstant->getType());
        builder.CreateStore(stringConstant, stringVar);
    }

    llvm::Value* cast = 
        builder.CreatePointerCast(stringVar, 
                                  builder.getInt8Ty()->getPointerTo());
    builder.CreateCall(printFunct, cast);
}


/// Generates code to print given runtime integer according to constant
/// string format, and a given print function.
/// @param context llvm context
/// @param module code for module instance
/// @param builder builder instance
/// @param printFunct function used to "print" integer
/// @param toPrint string to print
/// @param format printf like formating string for print
/// @param useGlobal A value of true (default) indicates a GlobalValue is 
///        generated, and is used to hold the constant string. A value of 
///        false indicates that the constant string will be stored on the 
///        stack.
void generateIntegerPrint(llvm::LLVMContext& context, 
                          llvm::Module& module,
                          llvm::IRBuilder<>& builder, 
                          llvm::Function& printFunct,
                          llvm::Value& toPrint,
                          std::string format, 
                          bool useGlobal = true) {
    llvm::Constant *stringConstant = llvm::ConstantArray::get(context, format);
    llvm::Value *stringVar;

    if (useGlobal) {
        // Note: Does not seem to work without allocation
        stringVar = 
            new llvm::GlobalVariable(module, 
                                     stringConstant->getType(),
                                    true, 
                                     llvm::GlobalValue::LinkerPrivateLinkage, 
                                     stringConstant, 
                                     "");
    }
    else {
        stringVar = builder.CreateAlloca(stringConstant->getType());
        builder.CreateStore(stringConstant, stringVar);
    }

    llvm::Value* cast = 
        builder.CreateBitCast(stringVar, 
                              builder.getInt8Ty()->getPointerTo());
    builder.CreateCall2(&printFunct, &toPrint, cast);
}


/// Generates code to handle finally block type semantics: always runs 
/// regardless of whether a thrown exception is passing through or the 
/// parent function is simply exiting. In addition to printing some state 
/// to stderr, this code will resume the exception handling--runs the 
/// unwind resume block, if the exception has not been previously caught 
/// by a catch clause, and will otherwise execute the end block (terminator 
/// block). In addition this function creates the corresponding function's 
/// stack storage for the exception pointer and catch flag status.
/// @param context llvm context
/// @param module code for module instance
/// @param builder builder instance
/// @param toAddTo parent function to add block to
/// @param blockName block name of new "finally" block.
/// @param functionId output id used for printing
/// @param terminatorBlock terminator "end" block
/// @param unwindResumeBlock unwind resume block
/// @param exceptionCaughtFlag reference exception caught/thrown status storage
/// @param exceptionStorage reference to exception pointer storage
/// @returns newly created block
static llvm::BasicBlock* createFinallyBlock(llvm::LLVMContext& context, 
                             llvm::Module& module, 
                             llvm::IRBuilder<>& builder, 
                             llvm::Function& toAddTo,
                             std::string& blockName,
                             std::string& functionId,
                             llvm::BasicBlock& terminatorBlock,
                             llvm::BasicBlock& unwindResumeBlock,
                             llvm::Value** exceptionCaughtFlag,
                             llvm::Value** exceptionStorage) {
    assert(exceptionCaughtFlag && 
           "ExceptionDemo::createFinallyBlock(...):exceptionCaughtFlag "
               "is NULL");
    assert(exceptionStorage && 
           "ExceptionDemo::createFinallyBlock(...):exceptionStorage "
               "is NULL");

    *exceptionCaughtFlag = 
        createEntryBlockAlloca(toAddTo,
                               "exceptionCaught",
                               ourExceptionNotThrownState->getType(),
                               ourExceptionNotThrownState);

    const llvm::PointerType* exceptionStorageType = 
                                builder.getInt8Ty()->getPointerTo();
    *exceptionStorage = 
        createEntryBlockAlloca(toAddTo,
                               "exceptionStorage",
                               exceptionStorageType,
                               llvm::ConstantPointerNull::get(
                                   exceptionStorageType));

    llvm::BasicBlock *ret = llvm::BasicBlock::Create(context,
                                                     blockName,
                                                     &toAddTo);

    builder.SetInsertPoint(ret);
   
    std::ostringstream bufferToPrint;
    bufferToPrint << "Gen: Executing finally block "
                  << blockName
                  << " in "
                  << functionId
                  << std::endl;
    generateStringPrint(context, 
                        module, 
                        builder, 
                        bufferToPrint.str(),
                        USE_GLOBAL_STR_CONSTS);

    llvm::SwitchInst* theSwitch = 
        builder.CreateSwitch(builder.CreateLoad(*exceptionCaughtFlag), 
                             &terminatorBlock,
                             2);
    theSwitch->addCase(ourExceptionCaughtState, &terminatorBlock);
    theSwitch->addCase(ourExceptionThrownState, &unwindResumeBlock);

    return(ret);
}


/// Generates catch block semantics which print a string to indicate type of
/// catch executed, sets an exception caught flag, and executes passed in 
/// end block (terminator block).
/// @param context llvm context
/// @param module code for module instance
/// @param builder builder instance
/// @param toAddTo parent function to add block to
/// @param blockName block name of new "catch" block.
/// @param functionId output id used for printing
/// @param terminatorBlock terminator "end" block
/// @param exceptionCaughtFlag exception caught/thrown status
/// @returns newly created block
static llvm::BasicBlock* createCatchBlock(llvm::LLVMContext& context, 
                                          llvm::Module& module, 
                                          llvm::IRBuilder<>& builder, 
                                          llvm::Function& toAddTo,
                                          std::string& blockName,
                                          std::string& functionId,
                                          llvm::BasicBlock& terminatorBlock,
                                          llvm::Value& exceptionCaughtFlag) {

    llvm::BasicBlock *ret = llvm::BasicBlock::Create(context,
                                                     blockName,
                                                     &toAddTo);

    builder.SetInsertPoint(ret);

    std::ostringstream bufferToPrint;
    bufferToPrint << "Gen: Executing catch block "
                  << blockName
                  << " in "
                  << functionId
                  << std::endl;
    generateStringPrint(context, 
                        module, 
                        builder, 
                        bufferToPrint.str(),
                        USE_GLOBAL_STR_CONSTS);
    builder.CreateStore(ourExceptionCaughtState, &exceptionCaughtFlag);
    builder.CreateBr(&terminatorBlock);

    return(ret);
}


/// Generates a function which invokes a function (toInvoke) and, whose 
/// unwind block will "catch" the type info types correspondingly held in the 
/// exceptionTypesToCatch argument. If the toInvoke function throws an 
/// exception which does not match any type info types contained in 
/// exceptionTypesToCatch, the generated code will call _Unwind_Resume 
/// with the raised exception. On the other hand the generated code will 
/// normally exit if the toInvoke function does not throw an exception.
/// The generated "finally" block is always run regardless of the cause of 
/// the generated function exit.
/// The generated function is returned after being verified.
/// @param module code for module instance
/// @param builder builder instance
/// @param fpm a function pass manager holding optional IR to IR 
///        transformations
/// @param toInvoke inner function to invoke
/// @param ourId id used to printing purposes
/// @param numExceptionsToCatch length of exceptionTypesToCatch array
/// @param exceptionTypesToCatch array of type info types to "catch"
/// @returns generated function
static
llvm::Function* createCatchWrappedInvokeFunction(llvm::Module& module, 
                    llvm::IRBuilder<>& builder, 
                    llvm::FunctionPassManager& fpm,
                    llvm::Function& toInvoke,
                    std::string ourId,
                    unsigned numExceptionsToCatch,
                    unsigned exceptionTypesToCatch[]) {

    llvm::LLVMContext& context = module.getContext();
    llvm::Function *toPrint32Int = module.getFunction("print32Int");

    ArgTypes argTypes;
    argTypes.push_back(builder.getInt32Ty());

    ArgNames argNames;
    argNames.push_back("exceptTypeToThrow");

    llvm::Function* ret = createFunction(module, 
                                         builder.getVoidTy(),
                                         argTypes, 
                                         argNames, 
                                         ourId,
                                         llvm::Function::ExternalLinkage, 
                                         false, 
                                         false);

    // Block which calls invoke
    llvm::BasicBlock *entryBlock = llvm::BasicBlock::Create(context,
                                                            "entry", 
                                                            ret);
    // Normal block for invoke
    llvm::BasicBlock *normalBlock = llvm::BasicBlock::Create(context, 
                                                             "normal", 
                                                             ret);
    // Unwind block for invoke
    llvm::BasicBlock *exceptionBlock = 
        llvm::BasicBlock::Create(context, "exception", ret);

    // Block which routes exception to correct catch handler block
    llvm::BasicBlock *exceptionRouteBlock = 
        llvm::BasicBlock::Create(context, "exceptionRoute", ret);

    // Foreign exception handler
    llvm::BasicBlock *externalExceptionBlock = 
        llvm::BasicBlock::Create(context, "externalException", ret);

    // Block which calls _Unwind_Resume
    llvm::BasicBlock *unwindResumeBlock = 
        llvm::BasicBlock::Create(context, "unwindResume", ret);

    // Clean up block which delete exception if needed
    llvm::BasicBlock *endBlock = 
        llvm::BasicBlock::Create(context, "end", ret);

    std::string nextName;
    std::vector<llvm::BasicBlock*> catchBlocks(numExceptionsToCatch);
    llvm::Value* exceptionCaughtFlag = NULL;
    llvm::Value* exceptionStorage = NULL;

    // Finally block which will branch to unwindResumeBlock if 
    // exception is not caught. Initializes/allocates stack locations.
    llvm::BasicBlock* finallyBlock = createFinallyBlock(context, 
                                                        module, 
                                                        builder, 
                                                        *ret, 
                                                        nextName = "finally", 
                                                        ourId,
                                                        *endBlock,
                                                        *unwindResumeBlock,
                                                        &exceptionCaughtFlag,
                                                        &exceptionStorage);

    for (unsigned i = 0; i < numExceptionsToCatch; ++i) {
        nextName = ourTypeInfoNames[exceptionTypesToCatch[i]];

        // One catch block per type info to be caught
        catchBlocks[i] = createCatchBlock(context, 
                                          module, 
                                          builder, 
                                          *ret,
                                          nextName, 
                                          ourId,
                                          *finallyBlock,
                                          *exceptionCaughtFlag);
    }

    // Entry Block

    builder.SetInsertPoint(entryBlock);

    std::vector<llvm::Value*> args;
    args.push_back(namedValues["exceptTypeToThrow"]);
    builder.CreateInvoke(&toInvoke, 
                         normalBlock, 
                         exceptionBlock, 
                         args.begin(), 
                         args.end());

    // End Block

    builder.SetInsertPoint(endBlock);

    generateStringPrint(context, 
                        module,
                        builder, 
                        "Gen: In end block: exiting in " + ourId + ".\n",
                        USE_GLOBAL_STR_CONSTS);
    llvm::Function *deleteOurException = 
                                    module.getFunction("deleteOurException");

    // Note: function handles NULL exceptions
    builder.CreateCall(deleteOurException, 
                       builder.CreateLoad(exceptionStorage));
    builder.CreateRetVoid();

    // Normal Block

    builder.SetInsertPoint(normalBlock);

    generateStringPrint(context, 
                        module,
                        builder, 
                        "Gen: No exception in " + ourId + "!\n",
                        USE_GLOBAL_STR_CONSTS);

    // Finally block is always called
    builder.CreateBr(finallyBlock);

    // Unwind Resume Block

    builder.SetInsertPoint(unwindResumeBlock);

    llvm::Function *resumeOurException = 
                module.getFunction("_Unwind_Resume");
    builder.CreateCall(resumeOurException, 
                       builder.CreateLoad(exceptionStorage));
    builder.CreateUnreachable();

    // Exception Block

    builder.SetInsertPoint(exceptionBlock);

    llvm::Function *ehException = module.getFunction("llvm.eh.exception");

    // Retrieve thrown exception
    llvm::Value* unwindException = builder.CreateCall(ehException);

    // Store exception and flag
    builder.CreateStore(unwindException, exceptionStorage);
    builder.CreateStore(ourExceptionThrownState, exceptionCaughtFlag);
    llvm::Function *personality = module.getFunction("ourPersonality");
    llvm::Value* functPtr = 
        builder.CreatePointerCast(personality, 
                              builder.getInt8Ty()->getPointerTo());

    args.clear();
    args.push_back(unwindException);
    args.push_back(functPtr);

    // Note: Skipping index 0
    for (unsigned i = 0; i < numExceptionsToCatch; ++i) {
        // Set up type infos to be caught
        args.push_back(
            module.getGlobalVariable(
                ourTypeInfoNames[exceptionTypesToCatch[i]]));
    }

    args.push_back(llvm::ConstantInt::get(builder.getInt32Ty(), 0));

    llvm::Function *ehSelector = module.getFunction("llvm.eh.selector");

    // Set up this exeption block as the landing pad which will handle
    // given type infos. See case Intrinsic::eh_selector in 
    // SelectionDAGBuilder::visitIntrinsicCall(...) and AddCatchInfo(...)
    // implemented in FunctionLoweringInfo.cpp to see how the implementation
    // handles this call. This landing pad (this exception block), will be 
    // called either because it nees to cleanup (call finally) or a type 
    // info was found which matched the thrown exception.
    llvm::Value* retTypeInfoIndex = builder.CreateCall(ehSelector, 
                                                       args.begin(), 
                                                       args.end());

    // Retrieve exception_class member from thrown exception 
    // (_Unwind_Exception instance). This member tells us whether or not
    // the exception is foreign.
    llvm::Value* unwindExceptionClass = 
        builder.CreateLoad(
            builder.CreateStructGEP(
                builder.CreatePointerCast(
                    unwindException, 
                    ourUnwindExceptionType->getPointerTo()), 
                0));

    // Branch to the externalExceptionBlock if the exception is foreign or
    // to a catch router if not. Either way the finally block will be run.
    builder.CreateCondBr(
        builder.CreateICmpEQ(unwindExceptionClass,
                             llvm::ConstantInt::get(builder.getInt64Ty(), 
                                                    ourBaseExceptionClass)),
        exceptionRouteBlock,
        externalExceptionBlock);

    // External Exception Block

    builder.SetInsertPoint(externalExceptionBlock);

    generateStringPrint(context, 
                        module,
                        builder, 
                        "Gen: Foreign exception received.\n",
                        USE_GLOBAL_STR_CONSTS);

    // Branch to the finally block
    builder.CreateBr(finallyBlock);

    // Exception Route Block

    builder.SetInsertPoint(exceptionRouteBlock);

    // Casts exception pointer (_Unwind_Exception instance) to parent 
    // (OurException instance).
    //
    // Note: ourBaseFromUnwindOffset is usually negative
    llvm::Value* typeInfoThrown = 
        builder.CreatePointerCast(
            builder.CreateConstGEP1_64(unwindException,
                                       ourBaseFromUnwindOffset),
            ourExceptionType->getPointerTo());

    // Retrieve thrown exception type info type
    //
    // Note: Index is not relative to pointer but instead to structure
    //       unlike a true getelementptr (GEP) instruction
    typeInfoThrown = builder.CreateStructGEP(typeInfoThrown, 0);

    llvm::Value* typeInfoThrownType = 
                     builder.CreateStructGEP(typeInfoThrown, 0);

    generateIntegerPrint(context, 
                         module,
                         builder, 
                         *toPrint32Int, 
                         *(builder.CreateLoad(typeInfoThrownType)),
                         "Gen: Exception type <%d> received (stack unwound) " 
                                 " in " + 
                             ourId + 
                             ".\n",
                         USE_GLOBAL_STR_CONSTS);

    // Route to matched type info catch block or run cleanup finally block
    llvm::SwitchInst* switchToCatchBlock = 
        builder.CreateSwitch(retTypeInfoIndex, 
                             finallyBlock, 
                             numExceptionsToCatch);

    unsigned nextTypeToCatch;

    for (unsigned i = 1; i <= numExceptionsToCatch; ++i) {
        nextTypeToCatch = i - 1;
        switchToCatchBlock->addCase(llvm::ConstantInt::get(
                                        llvm::Type::getInt32Ty(context), 
                                        i),
                                    catchBlocks[nextTypeToCatch]);
    }

    llvm::verifyFunction(*ret);
    fpm.run(*ret);

    return(ret);
}


/// Generates function which throws either an exception matched to a runtime
/// determined type info type (argument to generated function), or if this 
/// runtime value matches nativeThrowType, throws a foreign exception by 
/// calling nativeThrowFunct.
/// @param module code for module instance
/// @param builder builder instance
/// @param fpm a function pass manager holding optional IR to IR 
///        transformations
/// @param ourId id used to printing purposes
/// @param nativeThrowType a runtime argument of this value results in
///        nativeThrowFunct being called to generate/throw exception.
/// @param nativeThrowFunct function which will throw a foreign exception
///        if the above nativeThrowType matches generated function's arg.
/// @returns generated function
static
llvm::Function* createThrowExceptionFunction(llvm::Module& module, 
                                         llvm::IRBuilder<>& builder, 
                                         llvm::FunctionPassManager& fpm,
                                         std::string ourId,
                                         int32_t nativeThrowType,
                                         llvm::Function& nativeThrowFunct) {
    llvm::LLVMContext& context = module.getContext();
    namedValues.clear();
    ArgTypes unwindArgTypes;
    unwindArgTypes.push_back(builder.getInt32Ty());
    ArgNames unwindArgNames;
    unwindArgNames.push_back("exceptTypeToThrow");

    llvm::Function *ret = createFunction(module,
                                         builder.getVoidTy(),
                                         unwindArgTypes,
                                         unwindArgNames,
                                         ourId,
                                         llvm::Function::ExternalLinkage,
                                         false,
                                         false);

    // Throws either one of our exception or a native C++ exception depending
    // on a runtime argument value containing a type info type.
    llvm::BasicBlock *entryBlock = llvm::BasicBlock::Create(context,
                                                            "entry", 
                                                            ret);
    // Throws a foreign exception
    llvm::BasicBlock *nativeThrowBlock = 
                                llvm::BasicBlock::Create(context,
                                                         "nativeThrow", 
                                                         ret);
    // Throws one of our Exceptions
    llvm::BasicBlock *generatedThrowBlock = 
                                llvm::BasicBlock::Create(context,
                                                         "generatedThrow", 
                                                         ret);
    // Retrieved runtime type info type to throw
    llvm::Value* exceptionType = namedValues["exceptTypeToThrow"];

    // nativeThrowBlock block

    builder.SetInsertPoint(nativeThrowBlock);

    // Throws foreign exception
    builder.CreateCall(&nativeThrowFunct, exceptionType);
    builder.CreateUnreachable();

    // entry block

    builder.SetInsertPoint(entryBlock);

    llvm::Function *toPrint32Int = module.getFunction("print32Int");
    generateIntegerPrint(context, 
                         module,
                         builder, 
                         *toPrint32Int, 
                         *exceptionType, 
                         "\nGen: About to throw exception type <%d> in " + 
                             ourId + 
                             ".\n",
                         USE_GLOBAL_STR_CONSTS);

    // Switches on runtime type info type value to determine whether or not
    // a foreign exception is thrown. Defaults to throwing one of our 
    // generated exceptions.
    llvm::SwitchInst* theSwitch = builder.CreateSwitch(exceptionType,
                                                       generatedThrowBlock,
                                                       1);

    theSwitch->addCase(llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), 
                                              nativeThrowType),
                       nativeThrowBlock);

    // generatedThrow block

    builder.SetInsertPoint(generatedThrowBlock);

    llvm::Function *createOurException = 
                module.getFunction("createOurException");
    llvm::Function *raiseOurException = 
                module.getFunction("_Unwind_RaiseException");

    // Creates exception to throw with runtime type info type.
    llvm::Value* exception = 
        builder.CreateCall(createOurException, 
                           namedValues["exceptTypeToThrow"]);

    // Throw generated Exception
    builder.CreateCall(raiseOurException, exception);
    builder.CreateUnreachable();

    llvm::verifyFunction(*ret);
    fpm.run(*ret);

    return(ret);
}

static void createStandardUtilityFunctions(unsigned numTypeInfos,
                                           llvm::Module& module, 
                                           llvm::IRBuilder<>& builder);

/// Creates test code by generating and organizing these functions into the 
/// test case. The test case consists of an outer function setup to invoke
/// an inner function within an environment having multiple catch and single 
/// finally blocks. This inner function is also setup to invoke a throw
/// function within an evironment similar in nature to the outer function's 
/// catch and finally blocks. Each of these two functions catch mutually
/// exclusive subsets (even or odd) of the type info types configured
/// for this this. All generated functions have a runtime argument which
/// holds a type info type to throw that each function takes and passes it
/// to the inner one if such a inner function exists. This type info type is
/// looked at by the generated throw function to see whether or not it should
/// throw a generated exception with the same type info type, or instead call
/// a supplied a function which in turn will throw a foreign exception.
/// @param module code for module instance
/// @param builder builder instance
/// @param fpm a function pass manager holding optional IR to IR 
///        transformations
/// @param nativeThrowFunctName name of external function which will throw
///        a foreign exception
/// @returns outermost generated test function.
llvm::Function* createUnwindExceptionTest(llvm::Module& module, 
                                          llvm::IRBuilder<>& builder, 
                                          llvm::FunctionPassManager& fpm,
                                          std::string nativeThrowFunctName) {
    // Number of type infos to generate
    unsigned numTypeInfos = 6;

    // Initialze intrisics and external functions to use along with exception
    // and type info globals.
    createStandardUtilityFunctions(numTypeInfos,
                                   module,
                                   builder);
    llvm::Function *nativeThrowFunct = 
        module.getFunction(nativeThrowFunctName);

    // Create exception throw function using the value ~0 to cause 
    // foreign exceptions to be thrown.
    llvm::Function* throwFunct = 
                            createThrowExceptionFunction(module,
                                                         builder,
                                                         fpm,
                                                         "throwFunct",
                                                         ~0,
                                                         *nativeThrowFunct);
    // Inner function will catch even type infos
    unsigned innerExceptionTypesToCatch[] = {6, 2, 4};
    size_t numExceptionTypesToCatch = sizeof(innerExceptionTypesToCatch) / 
                                          sizeof(unsigned);

    // Generate inner function.
    llvm::Function* innerCatchFunct = 
        createCatchWrappedInvokeFunction(module,
                                         builder,
                                         fpm,
                                         *throwFunct,
                                         "innerCatchFunct",
                                         numExceptionTypesToCatch,
                                         innerExceptionTypesToCatch);

    // Outer function will catch odd type infos
    unsigned outerExceptionTypesToCatch[] = {3, 1, 5};
    numExceptionTypesToCatch = sizeof(outerExceptionTypesToCatch) / 
                                   sizeof(unsigned);

    // Generate outer function
    llvm::Function* outerCatchFunct = 
        createCatchWrappedInvokeFunction(module,
                                         builder,
                                         fpm,
                                         *innerCatchFunct,
                                         "outerCatchFunct",
                                         numExceptionTypesToCatch,
                                         outerExceptionTypesToCatch);

    // Return outer function to run
    return(outerCatchFunct);
}


/// Represents our foreign exceptions
class OurCppRunException : public std::runtime_error {
public:
    OurCppRunException(const std::string reason) :
        std::runtime_error(reason) {}

    OurCppRunException (const OurCppRunException& toCopy) :
        std::runtime_error(toCopy) {}

    OurCppRunException& operator = (const OurCppRunException& toCopy) {
        return(reinterpret_cast<OurCppRunException&>(
                   std::runtime_error::operator = (toCopy)
               ));
    }

    ~OurCppRunException (void) throw () {}
};


/// Throws foreign C++ exception.
/// @param ignoreIt unused parameter that allows function to match implied
///        generated function contract.
extern "C"
void throwCppException (int32_t ignoreIt) {
    throw(OurCppRunException("thrown by throwCppException(...)"));
}

typedef void (*OurExceptionThrowFunctType) (int32_t typeToThrow);

/// This is a test harness which runs test by executing generated 
/// function with a type info type to throw. Harness wraps the excecution 
/// of generated function in a C++ try catch clause.
/// @param engine execution engine to use for executing generated function.
///        This demo program expects this to be a JIT instance for demo
///        purposes.
/// @param function generated test function to run
/// @param typeToThrow type info type of generated exception to throw, or
///        indicator to cause foreign exception to be thrown.
static
void runExceptionThrow(llvm::ExecutionEngine* engine, 
                       llvm::Function* function, 
                       int32_t typeToThrow) {

    // Find test's function pointer
    OurExceptionThrowFunctType functPtr = 
          reinterpret_cast<OurExceptionThrowFunctType>(
              reinterpret_cast<intptr_t>(
                  engine->getPointerToFunction(function)
              )
          );

    try {
        // Run test
        (*functPtr)(typeToThrow);
    }
    catch (OurCppRunException exc) {
        // Catch foreign C++ exception
        fprintf(stderr,
                "\nrunExceptionThrow(...):In C++ catch OurCppRunException "
                    "with reason: %s.\n", 
                exc.what());
    }
    catch (...) {
        // Catch all exceptions including our generated ones. I'm not sure
        // why this latter functionality should work, as it seems that
        // our exceptions should be foreign to C++ (the _Unwind_Exception::
        // exception_class should be different from the one used by C++), and
        // therefore C++ should ignore the generated exceptions. 

        fprintf(stderr,
                "\nrunExceptionThrow(...):In C++ catch all.\n");
    }
}

//
// End test functions
//

/// This initialization routine creates type info globals and 
/// adds external function declarations to module.
/// @param numTypeInfos number of linear type info associated type info types
///        to create as GlobalVariable instances, starting with the value 1.
/// @param module code for module instance
/// @param builder builder instance
static void createStandardUtilityFunctions(unsigned numTypeInfos,
                                           llvm::Module& module, 
                                           llvm::IRBuilder<>& builder) {

    llvm::LLVMContext& context = module.getContext();

    // Exception initializations

    // Setup exception catch state
    ourExceptionNotThrownState = 
                    llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), 0),
    ourExceptionThrownState = 
                    llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), 1),
    ourExceptionCaughtState = 
                    llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), 2),


    // Create our type info type
    ourTypeInfoType = llvm::StructType::get(context, 
                                            builder.getInt32Ty(), 
                                            NULL);

    // Create OurException type
    ourExceptionType = llvm::StructType::get(context, 
                                             ourTypeInfoType,
                                             NULL);

    // Create portion of _Unwind_Exception type
    //
    // Note: Declaring only a portion of the _Unwind_Exception struct.
    //       Does this cause problems?
    ourUnwindExceptionType = llvm::StructType::get(context, 
                                                   builder.getInt64Ty(),
                                                   NULL);
    struct OurBaseException_t dummyException;

    // Calculate offset of OurException::unwindException member.
    ourBaseFromUnwindOffset = ((uintptr_t) &dummyException) - 
                           ((uintptr_t) &(dummyException.unwindException));

#ifdef DEBUG
    fprintf(stderr,
            "createStandardUtilityFunctions(...):ourBaseFromUnwindOffset "
                "= %lld, sizeof(struct OurBaseException_t) - "
                "sizeof(struct _Unwind_Exception) = %lu.\n",
            ourBaseFromUnwindOffset,
            sizeof(struct OurBaseException_t) - 
                sizeof(struct _Unwind_Exception));
#endif

    size_t numChars = sizeof(ourBaseExcpClassChars) / sizeof(char);

    // Create our _Unwind_Exception::exception_class value
    ourBaseExceptionClass = genClass(ourBaseExcpClassChars, numChars);

    // Type infos

    std::string baseStr = "typeInfo", typeInfoName;
    std::ostringstream typeInfoNameBuilder;
    std::vector<llvm::Constant*> structVals;
    
    llvm::Constant *nextStruct;
    llvm::GlobalVariable* nextGlobal = NULL;

    // Generate each type info
    //
    // Note: First type info is not used.
    for (unsigned i = 0; i <= numTypeInfos; ++i) {
        structVals.clear();
        structVals.push_back(llvm::ConstantInt::get(builder.getInt32Ty(), i));
        nextStruct = llvm::ConstantStruct::get(ourTypeInfoType, structVals);

        typeInfoNameBuilder.str("");
        typeInfoNameBuilder << baseStr << i;
        typeInfoName = typeInfoNameBuilder.str();

        // Note: Does not seem to work without allocation
        nextGlobal = 
            new llvm::GlobalVariable(module, 
                                     ourTypeInfoType, 
                                     true, 
                                     llvm::GlobalValue::ExternalLinkage, 
                                     nextStruct, 
                                     typeInfoName);

        ourTypeInfoNames.push_back(typeInfoName);
        ourTypeInfoNamesIndex[i] = typeInfoName;
    }

    ArgNames argNames;
    ArgTypes argTypes;
    llvm::Function* funct = NULL;

    // print32Int

    const llvm::Type* retType = builder.getVoidTy();

    argTypes.clear();
    argTypes.push_back(builder.getInt32Ty());
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "print32Int", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // print64Int

    retType = builder.getVoidTy();

    argTypes.clear();
    argTypes.push_back(builder.getInt64Ty());
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "print64Int", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // printStr

    retType = builder.getVoidTy();

    argTypes.clear();
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "printStr", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // throwCppException

    retType = builder.getVoidTy();

    argTypes.clear();
    argTypes.push_back(builder.getInt32Ty());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "throwCppException", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // deleteOurException

    retType = builder.getVoidTy();

    argTypes.clear();
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "deleteOurException", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // createOurException

    retType = builder.getInt8Ty()->getPointerTo();

    argTypes.clear();
    argTypes.push_back(builder.getInt32Ty());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "createOurException", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // _Unwind_RaiseException

    retType = builder.getInt32Ty();

    argTypes.clear();
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    funct = createFunction(module, 
                           retType, 
                           argTypes, 
                           argNames, 
                           "_Unwind_RaiseException", 
                           llvm::Function::ExternalLinkage, 
                           true, 
                           false);

    funct->addFnAttr(llvm::Attribute::NoReturn);

    // _Unwind_Resume

    retType = builder.getInt32Ty();

    argTypes.clear();
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    funct = createFunction(module, 
                           retType, 
                           argTypes, 
                           argNames, 
                           "_Unwind_Resume", 
                           llvm::Function::ExternalLinkage, 
                           true, 
                           false);

    funct->addFnAttr(llvm::Attribute::NoReturn);

    // ourPersonality

    retType = builder.getInt32Ty();

    argTypes.clear();
    argTypes.push_back(builder.getInt32Ty());
    argTypes.push_back(builder.getInt32Ty());
    argTypes.push_back(builder.getInt64Ty());
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());
    argTypes.push_back(builder.getInt8Ty()->getPointerTo());

    argNames.clear();

    createFunction(module, 
                   retType, 
                   argTypes, 
                   argNames, 
                   "ourPersonality", 
                   llvm::Function::ExternalLinkage, 
                   true, 
                   false);

    // llvm.eh.selector intrinsic

    getDeclaration(&module, llvm::Intrinsic::eh_selector);

    // llvm.eh.exception intrinsic

    getDeclaration(&module, llvm::Intrinsic::eh_exception);

    // llvm.eh.typeid.for intrinsic

    getDeclaration(&module, llvm::Intrinsic::eh_typeid_for);
}


//===---------------------------------------------------------------------===//
// Main test driver code.
//===---------------------------------------------------------------------===//

/// Demo main routine which takes the type info types to throw. A test will
/// be run for each given type info type. While type info types with the value 
/// of -1 will trigger a foreign C++ exception to be thrown; type info types
/// <= 6 and >= 1 will be caught by test functions; and type info types > 6
/// will result in exceptions which pass through to the test harness. All other
/// type info types are not supported and could cause a crash.
int main(int argc, char* argv[]) {
    if (argc == 1) {
        fprintf(stderr,
                "\nUsage: ExceptionDemo <exception type to throw> "
                    "[<type 2>...<type n>].\n"
                    "   Each type must have the value of 1 - 6 for "
                    "generated exceptions to be caught;\n"
                    "   the value -1 for foreign C++ exceptions to be "
                    "generated and thrown;\n"
                    "   or the values > 6 for exceptions to be ignored.\n"
                    "\nTry: ExceptionDemo 2 3 7 -1\n"
                    "   for a full test.\n\n");
        return(0);
    }

    // If not set, exception handling will not be turned on
    llvm::JITExceptionHandling = true;

    llvm::InitializeNativeTarget();
    llvm::LLVMContext& context = llvm::getGlobalContext();
    llvm::IRBuilder<> theBuilder(context);

    // Make the module, which holds all the code.
    llvm::Module* module = new llvm::Module("my cool jit", context);

    // Build engine with JIT
    llvm::EngineBuilder factory(module);
    factory.setEngineKind(llvm::EngineKind::JIT);
    factory.setAllocateGVsWithCode(false);
    llvm::ExecutionEngine* executionEngine = factory.create();

    {
        llvm::FunctionPassManager fpm(module);

        // Set up the optimizer pipeline.  
        // Start with registering info about how the
        // target lays out data structures.
        fpm.add(new llvm::TargetData(*executionEngine->getTargetData()));

        // Optimizations turned on
#ifdef ADD_OPT_PASSES

        // Promote allocas to registers.
        fpm.add(llvm::createPromoteMemoryToRegisterPass());

        // Do simple "peephole" optimizations and bit-twiddling optzns.
        fpm.add(llvm::createInstructionCombiningPass());

        // Reassociate expressions.
        fpm.add(llvm::createReassociatePass());

        // Eliminate Common SubExpressions.
        fpm.add(llvm::createGVNPass());

        // Simplify the control flow graph (deleting unreachable 
        // blocks, etc).
        fpm.add(llvm::createCFGSimplificationPass());
#endif  // ADD_OPT_PASSES

        fpm.doInitialization();

        // Generate test code using function throwCppException(...) as
        // the function which throws foreign exceptions.
        llvm::Function* toRun = 
                          createUnwindExceptionTest(*module, 
                                                    theBuilder, 
                                                    fpm,
                                                    "throwCppException");

        fprintf(stderr, "\nBegin module dump:\n\n");

        module->dump();

        fprintf(stderr, "\nEnd module dump:\n");

        fprintf(stderr, "\n\nBegin Test:\n");

        for (int i = 1; i < argc; ++i) {
            // Run test for each argument whose value is the exception
            // type to throw.
            runExceptionThrow(executionEngine, 
                              toRun, 
                              (unsigned) strtoul(argv[i], NULL, 10));
        }

        fprintf(stderr, "\nEnd Test:\n\n");
    } 

    delete executionEngine;
  
    return 0;
}