Changeset 812ba3d for doc/theses/andrew_beach_MMath/code/fixup-other-f.cfa

Timestamp:

Sep 7, 2021, 9:59:12 AM (19 months ago)

Author:

Andrew Beach <ajbeach@…>

Branches:

enum, forall-pointer-decay, master, pthread-emulation, qualifiedEnum

Children:

2bfee8e

Parents:

49b3389

Message:

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

File:

• doc/theses/andrew_beach_MMath/code/fixup-other-f.cfa (modified) (3 diffs)

doc/theses/andrew_beach_MMath/code/fixup-other-f.cfa

@@ -2 +2 @@
 #include <clock.hfa>
 #include <fstream.hfa>
-#include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
 
-unsigned int frames;                                                                    // use global because of gcc thunk problem
+// 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;                                                    // use local scope => lexical link
+                fixup = frames + 42;
         }
 
@@ -14 +15 @@
                 frames -= 1;
                 nounwind_fixup(42, raised_rtn, not_raised);
-                if ( frames == -1 ) printf( "42" );                             // prevent recursion optimizations
+                // Always false, but prevents recursion elimination.
+                if (-1 == frames) printf("~");
         } else {
                 int fixup = dummy;
@@ -32 +34 @@
         frames = total_frames;
 
+        // Closures at the top level are allowed to be true closures.
         void raised(int & fixup) {
-                fixup = total_frames + 42;                                              // use local scope => lexical link
+                fixup = total_frames + 42;
         }
         void not_raised(int & fixup) {
-                fixup = total_frames + 42;                                              // use local scope => lexical link
+                fixup = total_frames + 42;
         }