source: doc/theses/andrew_beach_MMath/code/resume-other.cfa@ 478c610

// Resume Across Other Handler
#include <clock.hfa>
#include <exception.hfa>
#include <fstream.hfa>
#include <stdlib.hfa>

EHM_EXCEPTION(empty_exception)();

EHM_VIRTUAL_TABLE(empty_exception, empty_vt);

EHM_EXCEPTION(not_raised_exception)();

void unwind_other(unsigned int frames) {
        if (frames) {
                try {
                        unwind_other(frames - 1);
                } catchResume (not_raised_exception *) {
                        asm volatile ("# fixup block (stack)");
                }
        } else {
                throwResume (empty_exception){&empty_vt};
        }
}

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

        Time start_time = timeHiRes();
        for (int count = 0 ; count < times ; ++count) {
                try {
                        unwind_other(total_frames);
                } catchResume (empty_exception *) {
                        asm volatile ("# fixup block (base)");
                }
        }
        Time end_time = timeHiRes();
        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
}