source: doc/theses/andrew_beach_MMath/code/fixup-other-f.cfa@ 34c6e1e6

// Resume Across Fixup
#include <clock.hfa>
#include <fstream.hfa>
#include <stdlib.hfa>

// Using a global value to allow hoisting (and avoid thunks).
unsigned int frames;

void nounwind_fixup(unsigned int dummy, void (*raised_rtn)(int &), void (*not_raised_rtn)(int &)) {
        void not_raised(int & fixup) {
                fixup = frames + 42;
        }

        if (frames) {
                frames -= 1;
                nounwind_fixup(42, raised_rtn, not_raised);
                // Always false, but prevents recursion elimination.
                if (-1 == frames) printf("~");
        } else {
                int fixup = dummy;
                raised_rtn(fixup);
        }
}

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

        // Closures at the top level are allowed to be true closures.
        void raised(int & fixup) {
                fixup = total_frames + 42;
        }
        void not_raised(int & fixup) {
                fixup = total_frames + 42;
        }

        Time start_time = timeHiRes();
        for (int count = 0 ; count < times ; ++count) {
                nounwind_fixup(42, raised, not_raised);
        }
        Time end_time = timeHiRes();
        sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
}