Changeset 18783b4 for doc/theses/andrew_beach_MMath/code/fixup-empty-f.cfa

Timestamp:

Sep 4, 2021, 10:34:43 PM (3 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

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

Children:

49b3389

Parents:

f450f2f

Message:

attempt to remove tail-recursion optimization

File:

• doc/theses/andrew_beach_MMath/code/fixup-empty-f.cfa (modified) (1 diff)

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

@@ -4 +4 @@
 #include <stdlib.hfa>                                                                   // strto
 
-int nounwind_fixup(unsigned int frames, void (*raised_rtn)(int &)) {
+void nounwind_fixup(unsigned int frames, void (*raised_rtn)(int &)) {
         if (frames) {
-                int rtn = nounwind_fixup(frames - 1, raised_rtn);
-                if ( rtn == 42 ) printf( "42" );                                // make non-tail recursive
-                return rtn;
-
+                nounwind_fixup(frames - 1, raised_rtn);
+                if ( frames == -1 ) printf( "42" );                             // prevent recursion optimizations
         } else {
                 int fixup = 17;
                 raised_rtn(fixup);
-                return fixup;
         }
 }