Changeset 949339b for doc/theses/andrew_beach_MMath/code/fixup-empty-r.cfa

Timestamp:

Sep 27, 2021, 2:09:55 PM (4 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

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

Children:

cc287800

Parents:

4e28d2e9 (diff), 056cbdb (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-empty-r.cfa (moved) (moved from doc/theses/andrew_beach_MMath/code/resume-fixup-empty-r.cfa ) (2 diffs)

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

@@ -3 +3 @@
 #include <exception.hfa>
 #include <fstream.hfa>
-#include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
 
 exception fixup_exception {
@@ -10 +10 @@
 vtable(fixup_exception) fixup_vt;
 
-int nounwind_empty(unsigned int frames) {
+void nounwind_empty(unsigned int frames) {
         if (frames) {
-                int rtn = nounwind_empty(frames - 1);
-                if ( rtn == 42 ) printf( "42" );                                // make non-tail recursive
-                return rtn;
+                nounwind_empty(frames - 1);
+                // "Always" false, but prevents recursion elimination.
+                if (-1 == frames) printf("~");
         } else {
                 int fixup = 17;
-                throwResume (fixup_exception){&fixup_vt, fixup}; // change bad fixup
-                return fixup;
+                throwResume (fixup_exception){&fixup_vt, fixup};
         }
 }