Changeset f79ee0d for doc/theses/andrew_beach_MMath/code/throw-finally.cfa

Timestamp:

Aug 19, 2021, 1:58:46 PM (3 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, pthread-emulation, qualifiedEnum

Children:

262deda0

Parents:

8a1d95af

Message:

update exception benchmarks

File:

• doc/theses/andrew_beach_MMath/code/throw-finally.cfa (modified) (3 diffs)

doc/theses/andrew_beach_MMath/code/throw-finally.cfa

@@ -3 +3 @@
 #include <exception.hfa>
 #include <fstream.hfa>
-#include <stdlib.hfa>
+#include <stdlib.hfa>                                                                   // strto
 
-EHM_EXCEPTION(empty_exception)();
+exception empty_exception;
+vtable(empty_exception) empty_vt;
 
-EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
+unsigned int frames;                                                                    // use global because of gcc thunk problem
 
-void unwind_finally(unsigned int frames) {
+void unwind_finally(unsigned int dummy) {
         if (frames) {
+                frames -= 1;
                 try {
-                        unwind_finally(frames - 1);
+                        unwind_finally(42);
                 } finally {
                         asm volatile ("# finally block");
                 }
         } else {
+                dummy = 42;
                 throw (empty_exception){&empty_vt};
         }
@@ -25 +28 @@
         unsigned int total_frames = 1;
         if (1 < argc) {
-                times = strtol(argv[1], 0p, 10);
+                times = strto(argv[1], 0p, 10);
         }
         if (2 < argc) {
-                total_frames = strtol(argv[2], 0p, 10);
+                total_frames = strto(argv[2], 0p, 10);
         }
+        frames = total_frames;
 
         Time start_time = timeHiRes();
         for (int count = 0 ; count < times ; ++count) {
                 try {
-                        unwind_finally(total_frames);
+                        unwind_finally(42);
                 } catch (empty_exception *) {
                         asm volatile ("# catch block");
@@ -40 +44 @@
         }
         Time end_time = timeHiRes();
-        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+        sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
 }