source: doc/theses/andrew_beach_MMath/code/cross-finally.cfa @ 54651005

// Cross a Try Statement With Finally Clause
#include <clock.hfa>
#include <exception.hfa>
#include <fstream.hfa>
#include <stdlib.hfa>

EHM_EXCEPTION(not_raised_exception)();

EHM_VIRTUAL_TABLE(not_raised_exception, not_vt);

int main(int argc, char * argv[]) {
        unsigned int times = 1;
        bool should_throw = false;
        if (1 < argc) {
                times = strtol(argv[1], 0p, 10);
        }

        Time start_time = timeHiRes();
        for (unsigned int count = 0 ; count < times ; ++count) {
                try {
                        asm volatile ("# try block" : "=rm" (should_throw));
                        if (should_throw) {
                                throw (not_raised_exception){&not_vt};
                        }
                } finally {
                        asm volatile ("# finally block");
                }
        }
        Time end_time = timeHiRes();
        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
}