source: doc/theses/andrew_beach_MMath/code/fixup-other-r.cfa @ 39cf5cc

Last change on this file since 39cf5cc was 812ba3d, checked in by Andrew Beach <ajbeach@…>, 3 years ago

Some clean-up to make Peter's changes to the exception benchmarks fit in better. And make test.sh a bit more robust.

  • Property mode set to 100644
File size: 1.2 KB
Line 
1// Resume Across Other Handler
2#include <clock.hfa>
3#include <exception.hfa>
4#include <fstream.hfa>
5#include <stdlib.hfa>
6
7exception fixup_exception {
8        int & fixup;
9};
10vtable(fixup_exception) fixup_vt;
11exception not_raised_exception {
12        int & fixup;
13};
14
15// Using a global value to allow hoisting (and avoid thunks).
16unsigned int frames;
17
18void nounwind_other(unsigned int dummy) {
19        if (frames) {
20                frames -= 1;
21                try {
22                        nounwind_other(42);
23                        // Always false, but prevents recursion elimination.
24                        if (-1 == frames) printf("~");
25                } catchResume (not_raised_exception * ex) {
26                        ex->fixup = frames + 42;
27                }
28        } else {
29                int fixup = dummy;
30                throwResume (fixup_exception){&fixup_vt, fixup};
31        }
32}
33
34int main(int argc, char * argv[]) {
35        unsigned int times = 1;
36        unsigned int total_frames = 1;
37        if (1 < argc) {
38                times = strto(argv[1], 0p, 10);
39        }
40        if (2 < argc) {
41                total_frames = strto(argv[2], 0p, 10);
42        }
43        frames = total_frames;
44
45        Time start_time = timeHiRes();
46        for (int count = 0 ; count < times ; ++count) {
47                try {
48                        nounwind_other(42);
49                } catchResume (fixup_exception * ex) {
50                        ex->fixup = total_frames + 42;
51                }
52        }
53        Time end_time = timeHiRes();
54        sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
55}
Note: See TracBrowser for help on using the repository browser.