Changeset 812ba3d for doc/theses/andrew_beach_MMath/code/fixup-empty-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-empty-f.cfa (modified) (2 diffs)

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

@@ -2 +2 @@
 #include <clock.hfa>
 #include <fstream.hfa>
-#include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
 
 void nounwind_fixup(unsigned int frames, void (*raised_rtn)(int &)) {
         if (frames) {
                 nounwind_fixup(frames - 1, raised_rtn);
-                if ( frames == -1 ) printf( "42" );                             // prevent recursion optimizations
+                // "Always" false, but prevents recursion elimination.
+                if (-1 == frames) printf("~");
         } else {
                 int fixup = 17;
@@ -24 +25 @@
         }
 
+        // Closures at the top level are allowed to be true closures.
         void raised(int & fixup) {
-                fixup = total_frames + 42;                                              // use local scope => lexical link
-                if ( total_frames == 42 ) printf( "42" );
+                fixup = total_frames + 42;
+                if (total_frames == 42) printf("42");
         }