Changeset 2bfee8e for doc/theses/andrew_beach_MMath/code/fixup-other-f.cfa

Timestamp:

Sep 7, 2021, 12:26:06 PM (3 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, ast-experimental, enum, forall-pointer-decay, master, pthread-emulation, qualifiedEnum

Children:

031453c

Parents:

1341ce1 (diff), 812ba3d (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

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);
+                // Always false, but prevents recursion elimination.
+                if (-1 == frames) printf("~");
         } else {
                 int fixup = dummy;
@@ -31 +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;
         }