Diff [5a40e4e279bddd2729dfb277bdde6cf6ef6b76d3:dd1cc02b5538c4de4c07747b3ff0e3fb315ffedb] for / – Cforall

benchmark/Makefile.am

-              r5a40e4e
+              rdd1cc02
         $(srcdir)/fixcsv.sh $@
-# use --no-print-directory to generate csv appropriately
-mutexStmt.csv:
-        echo "building $@"
-        echo "1-lock,2-lock,4-lock,8-lock,1-no-stmt-lock,2-no-stmt-lock,4-no-stmt-lock,8-no-stmt-lock,1-monitor,2-monitor,4-monitor" > $@
-        +make mutexStmt-lock1.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-lock2.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-lock4.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-lock8.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-no-stmt-lock1.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-no-stmt-lock2.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-no-stmt-lock4.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-no-stmt-lock8.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-monitor1.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-monitor2.runquiet >> $@ && echo -n ',' >> $@
-        +make mutexStmt-monitor4.runquiet >> $@
-        $(srcdir)/fixcsv.sh $@
 schedint.csv:
         echo "building $@"
 …
         chmod a+x a.out
-mutexStmt$(EXEEXT) :                \
-        mutexStmt-lock1.run                 \
-        mutexStmt-lock2.run                 \
-        mutexStmt-lock4.run                 \
-        mutexStmt-lock8.run                 \
-        mutexStmt-no-stmt-lock1.run \
-        mutexStmt-no-stmt-lock2.run \
-        mutexStmt-no-stmt-lock4.run \
-        mutexStmt-no-stmt-lock8.run \
-        mutexStmt-monitor1.run      \
-        mutexStmt-monitor2.run      \
-        mutexStmt-monitor4.run
-mutexStmt-lock1$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/lock1.cfa
-mutexStmt-lock2$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/lock2.cfa
-mutexStmt-lock4$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/lock4.cfa
-mutexStmt-lock8$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/lock8.cfa
-mutexStmt-monitor1$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/monitor1.cfa
-mutexStmt-monitor2$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/monitor2.cfa
-mutexStmt-monitor4$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/monitor4.cfa
-mutexStmt-no-stmt-lock1$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/no_stmt_lock1.cfa
-mutexStmt-no-stmt-lock2$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/no_stmt_lock2.cfa
-mutexStmt-no-stmt-lock4$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/no_stmt_lock4.cfa
-mutexStmt-no-stmt-lock8$(EXEEXT):
-        $(BENCH_V_CFA)$(CFACOMPILE) $(srcdir)/mutexStmt/no_stmt_lock8.cfa
 ## =========================================================================================================

doc/theses/andrew_beach_MMath/code/CondCatch.java

-              r5a40e4e
+              rdd1cc02
         static boolean should_catch = false;
+        static void throw_exception() throws EmptyException {
+                throw new EmptyException();
+        }
+        static void cond_catch() throws EmptyException {
+                try {
+                        throw_exception();
+                } catch (EmptyException exc) {
+                        if (!should_catch) {
+                                throw exc;
+                        }
+                }
+        }
         private static long loop(int times) {
                 long startTime = System.nanoTime();
                 for (int count = 0 ; count < times ; ++count) {
                         try {
+                                try {
+                                        throw new EmptyException();
+                                } catch (EmptyException exc) {
+                                        if (!should_catch) {
+                                                throw exc;
+                                        }
+                                }
+                                cond_catch();
                         } catch (EmptyException exc) {
                                 // ...
 …
                 long time = loop(times);
                 System.out.format("Run-Time (s): %.1f%n", time / 1_000_000_000.);
+                System.out.println("Run-Time (ns): " + time);
+        }
+}

doc/theses/andrew_beach_MMath/code/ThrowEmpty.java

r5a40e4e	rdd1cc02
39	39
40	40	long time = loop(times, total_frames);
41		System.out.~~format("Run-Time (s): %.1f%n", time / 1_000_000_000.~~);
	41	System.out.println("Run-Time (ns): " + time);
42	42	}
43	43	}

doc/theses/andrew_beach_MMath/code/ThrowFinally.java

r5a40e4e	rdd1cc02
44	44
45	45	long time = loop(times, total_frames);
46		System.out.~~format("Run-Time (s): %.1f%n", time / 1_000_000_000.~~);
	46	System.out.println("Run-Time (ns): " + time);
47	47	}
48	48	}

doc/theses/andrew_beach_MMath/code/ThrowOther.java

r5a40e4e	rdd1cc02
52	52
53	53	long time = loop(times, total_frames);
54		System.out.~~format("Run-Time (s): %.1f%n", time / 1_000_000_000.~~);
	54	System.out.println("Run-Time (ns): " + time);
55	55	}
56	56	}

doc/theses/andrew_beach_MMath/code/cond-catch.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.h>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 bool should_catch = false;
+void throw_exception() {
+        throw (empty_exception){&empty_vt};
+}
+void cond_catch() {
+        try {
+                throw_exception();
+        } catch (empty_exception * exc ; should_catch) {
+                asm volatile ("# catch block (conditional)");
+        }
+}
 int main(int argc, char * argv[]) {
         unsigned int times = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 should_catch = (unsigned int)strto(argv[2], 0p, 2);
+                should_catch = strtol(argv[2], 0p, 10);
+        }
 …
         for (unsigned int count = 0 ; count < times ; ++count) {
                 try {
+                        throw (empty_exception){&empty_vt};
+                } catch (empty_exception * exc ; should_catch) {
+                        asm volatile ("# catch block (conditional)");
+                        cond_catch();
                 } catch (empty_exception * exc) {
                         asm volatile ("# catch block (unconditional)");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/cond-catch.cpp

-              r5a40e4e
+              rdd1cc02
 #include <exception>
 #include <iostream>
-#include <iomanip>
-using namespace std;
 using namespace std::chrono;
 …
 bool should_catch = false;
+void throw_exception() {
+        throw EmptyException();
+}
+void cond_catch() {
+        try {
+                throw_exception();
+        } catch (EmptyException & exc) {
+                if (!should_catch) {
+                        throw;
+                }
+                asm volatile ("# catch block (conditional)");
+        }
+}
 int main(int argc, char * argv[]) {
 …
     for (unsigned int count = 0 ; count < times ; ++count) {
         try {
+                        try {
+                                throw EmptyException();
+                        } catch (EmptyException & exc) {
+                                if (!should_catch) {
+                                        throw;
+                                }
+                                asm volatile ("# catch block (conditional)");
+                        }
+                        cond_catch();
                 } catch (EmptyException &) {
                         asm volatile ("# catch block (unconditional)");
 …
         time_point<steady_clock> end_time = steady_clock::now();
         nanoseconds duration = duration_cast<nanoseconds>(end_time - start_time);
         cout << "Run-Time (s): " << fixed << setprecision(1) << duration.count() / 1'000'000'000. << endl;
+        std::cout << "Run-Time (ns): " << duration.count() << std::endl;
+}

doc/theses/andrew_beach_MMath/code/cond-fixup.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 bool should_catch = false;
+void throw_exception() {
+        throwResume (empty_exception){&empty_vt};
+}
+void cond_catch() {
+        try {
+                throw_exception();
+        } catchResume (empty_exception * exc ; should_catch) {
+                asm volatile ("# fixup block (conditional)");
+        }
+}
 int main(int argc, char * argv[]) {
         unsigned int times = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 should_catch = (unsigned int)strto(argv[2], 0p, 2);
+                should_catch = strtol(argv[2], 0p, 10);
+        }
 …
         for (unsigned int count = 0 ; count < times ; ++count) {
                 try {
+                        throwResume (empty_exception){&empty_vt};
+                } catchResume (empty_exception * exc ; should_catch) {
+                        asm volatile ("# fixup block (conditional)");
+                        cond_catch();
                 } catchResume (empty_exception * exc) {
                         asm volatile ("# fixup block (unconditional)");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/resume-detor.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 struct WithDestructor {};
 …
 void unwind_destructor(unsigned int frames) {
         if (frames) {
                 WithDestructor object;
                 unwind_destructor(frames - 1);
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/resume-empty.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+void nounwind_empty(unsigned int frames) {
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
+void unwind_empty(unsigned int frames) {
         if (frames) {
+                nounwind_empty(frames - 1);
+                if ( frames == -1 ) printf( "42" );                             // prevent recursion optimizations
+                unwind_empty(frames - 1);
         } else {
                 throwResume (empty_exception){&empty_vt};
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
         Time start_time = timeHiRes();
         for (unsigned int count = 0 ; count < times ; ++count) {
+        for (int count = 0 ; count < times ; ++count) {
                 try {
                         nounwind_empty(total_frames);
+                        unwind_empty(total_frames);
                 } catchResume (empty_exception *) {
                         asm volatile ("# fixup block");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/resume-finally.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 void unwind_finally(unsigned int frames) {
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/resume-other.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+exception not_raised_exception;
+EHM_EXCEPTION(empty_exception)();
+void nounwind_other(unsigned int frames) {
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
+EHM_EXCEPTION(not_raised_exception)();
+void unwind_other(unsigned int frames) {
         if (frames) {
                 try {
                         nounwind_other(frames - 1);
+                        unwind_other(frames - 1);
                 } catchResume (not_raised_exception *) {
                         asm volatile ("# fixup block (stack)");
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
 …
         for (int count = 0 ; count < times ; ++count) {
                 try {
                         nounwind_other(total_frames);
+                        unwind_other(total_frames);
                 } catchResume (empty_exception *) {
                         asm volatile ("# fixup block (base)");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/run.sh

-              r5a40e4e
+              rdd1cc02
 #!/usr/bin/env bash
 readonly ALL_TESTS=(raise-{empty,detor,finally,other} try-{catch,finally} \
                         cond-match-{all,none} fixup-{empty,other})
+readonly ALL_TESTS=(cond-match-{all,none} cross-{catch,finally} \
+                raise-{detor,empty,finally,other})
 gen-file-name() (
 …
+)
 readonly N=${1:-1}
+readonly N=${1:-5}
 readonly OUT_FILE=$(gen-file-name ${2:-run-%-$N})

doc/theses/andrew_beach_MMath/code/test.sh

-              r5a40e4e
+              rdd1cc02
 # test.sh LANGUAGE TEST
 #   Run the TEST in LANGUAGE.
-# test.sh -a
-#   Build all tests.
 # test.sh -b SOURCE_FILE...
 #   Build a test from SOURCE_FILE(s).
-# test.sh -c
-#   Clean all executables.
 # test.sh -v LANGUAGE TEST FILE
 #   View the result from TEST in LANGUAGE stored in FILE.
+readonly DIR=$(dirname "$(readlink -f "$0")")
+cd $DIR
+readonly MIL=000000
+# Various preset values used as arguments.
+readonly ITERS_1M=1$MIL
+readonly ITERS_10M=10$MIL
+readonly ITERS_100M=100$MIL
+readonly ITERS_1000M=1000$MIL
+readonly ITERATIONS=1000000 # 1 000 000, one million
 readonly STACK_HEIGHT=100
 …
         case "$1" in
         *.cfa)
+                # A symbolic link/local copy can be used as an override.
+                cmd=./cfa
+                if [ ! -x $cmd ]; then
+                        cmd=cfa
+                fi
+                mmake "${1%.cfa}" "$1" $cmd -DNDEBUG -nodebug -O3 "$1" -o "${1%.cfa}"
+                # Requires a symbolic link.
+                mmake "${1%.cfa}" "$1" ./cfa -DNDEBUG -nodebug -O3 "$1" -o "${1%.cfa}"
                 ;;
         *.cpp)
                 mmake "${1%.cpp}-cpp" "$1" g++-10 -DNDEBUG -O3 "$1" -o "${1%.cpp}-cpp"
+                mmake "${1%.cpp}-cpp" "$1" g++ -DNDEBUG -O3 "$1" -o "${1%.cpp}-cpp"
                 ;;
         *.java)
 …
+)
+if [ "-a" = "$1" ]; then
+        for file in *.cfa *.cpp *.java; do
+                build $file
+        done
+        exit 0
+elif [ "-b" = "$1" ]; then
+if [ "-b" = "$1" ]; then
         for file in "${@:2}"; do
                 build $file
         done
         exit 0
-elif [ "-c" = "$1" ]; then
-        rm $(basename -s ".cfa" -a *.cfa)
-        rm $(basename -s ".cpp" -a *.cpp)
-        rm *-cpp
-        rm *.class
-        exit 0
 elif [ "-v" = "$1" -a 4 = "$#" ]; then
         TEST_LANG="$2"
         TEST_CASE="$3"
         VIEW_FILE="$4"
+    TEST_LANG="$2"
+    TEST_CASE="$3"
+    VIEW_FILE="$4"
 elif [ 2 -eq "$#" ]; then
         TEST_LANG="$1"
 …
 case "$TEST_CASE" in
+raise-empty)
+        CFAT="./throw-empty $ITERS_1M $STACK_HEIGHT"
+        CFAR="./resume-empty $ITERS_10M $STACK_HEIGHT"
+        CPP="./throw-empty-cpp $ITERS_1M $STACK_HEIGHT"
+        JAVA="java ThrowEmpty $ITERS_1M $STACK_HEIGHT"
+        PYTHON="./throw-empty.py $ITERS_1M $STACK_HEIGHT"
+cond-match-all)
+        CFAT="./cond-catch $ITERATIONS 1"
+        CFAR="./cond-fixup $ITERATIONS 1"
+        CPP="./cond-catch-cpp $ITERATIONS 1"
+        JAVA="java CondCatch $ITERATIONS 1"
+        PYTHON="./cond_catch.py $ITERATIONS 1"
+        ;;
+cond-match-none)
+        CFAT="./cond-catch $ITERATIONS 0"
+        CFAR="./cond-fixup $ITERATIONS 0"
+        CPP="./cond-catch-cpp $ITERATIONS 0"
+        JAVA="java CondCatch $ITERATIONS 0"
+        PYTHON="./cond_catch.py $ITERATIONS 0"
+        ;;
+cross-catch)
+        CFAT="./cross-catch $ITERATIONS"
+        CFAR="./cross-resume $ITERATIONS"
+        CPP="./cross-catch-cpp $ITERATIONS"
+        JAVA="java CrossCatch $ITERATIONS"
+        PYTHON="./cross_catch.py $ITERATIONS"
+        ;;
+cross-finally)
+        CFAT="./cross-finally $ITERATIONS"
+        CFAR=unsupported
+        CPP=unsupported
+        JAVA="java CrossFinally $ITERATIONS"
+        PYTHON="./cross_finally.py $ITERATIONS"
         ;;
 raise-detor)
         CFAT="./throw-detor $ITERS_1M $STACK_HEIGHT"
         CFAR="./resume-detor $ITERS_10M $STACK_HEIGHT"
         CPP="./throw-detor-cpp $ITERS_1M $STACK_HEIGHT"
+        CFAT="./throw-detor $ITERATIONS $STACK_HEIGHT"
+        CFAR="./resume-detor $ITERATIONS $STACK_HEIGHT"
+        CPP="./throw-detor-cpp $ITERATIONS $STACK_HEIGHT"
         JAVA=unsupported
         PYTHON=unsupported
         ;;
+raise-empty)
+        CFAT="./throw-empty $ITERATIONS $STACK_HEIGHT"
+        CFAR="./resume-empty $ITERATIONS $STACK_HEIGHT"
+        CPP="./throw-empty-cpp $ITERATIONS $STACK_HEIGHT"
+        JAVA="java ThrowEmpty $ITERATIONS $STACK_HEIGHT"
+        PYTHON="./throw_empty.py $ITERATIONS $STACK_HEIGHT"
+        ;;
 raise-finally)
         CFAT="./throw-finally $ITERS_1M $STACK_HEIGHT"
         CFAR="./resume-finally $ITERS_10M $STACK_HEIGHT"
+        CFAT="./throw-finally $ITERATIONS $STACK_HEIGHT"
+        CFAR="./resume-finally $ITERATIONS $STACK_HEIGHT"
         CPP=unsupported
         JAVA="java ThrowFinally $ITERS_1M $STACK_HEIGHT"
         PYTHON="./throw-finally.py $ITERS_1M $STACK_HEIGHT"
+        JAVA="java ThrowFinally $ITERATIONS $STACK_HEIGHT"
+        PYTHON="./throw_finally.py $ITERATIONS $STACK_HEIGHT"
         ;;
 raise-other)
+        CFAT="./throw-other $ITERS_1M $STACK_HEIGHT"
+        CFAR="./resume-other $ITERS_10M $STACK_HEIGHT"
+        CPP="./throw-other-cpp $ITERS_1M $STACK_HEIGHT"
+        JAVA="java ThrowOther $ITERS_1M $STACK_HEIGHT"
+        PYTHON="./throw-other.py $ITERS_1M $STACK_HEIGHT"
+        ;;
+try-catch)
+        CFAT="./try-catch $ITERS_1000M"
+        CFAR="./try-resume $ITERS_1000M"
+        CPP="./try-catch-cpp $ITERS_1000M"
+        JAVA="java TryCatch $ITERS_1000M"
+        PYTHON="./try-catch.py $ITERS_1000M"
+        ;;
+try-finally)
+        CFAT="./try-finally $ITERS_1000M"
+        CFAR=unsupported
+        CPP=unsupported
+        JAVA="java TryFinally $ITERS_1000M"
+        PYTHON="./try-finally.py $ITERS_1000M"
+        ;;
+cond-match-all)
+        CFAT="./cond-catch $ITERS_10M 1"
+        CFAR="./cond-fixup $ITERS_100M 1"
+        CPP="./cond-catch-cpp $ITERS_10M 1"
+        JAVA="java CondCatch $ITERS_10M 1"
+        PYTHON="./cond-catch.py $ITERS_10M 1"
+        ;;
+cond-match-none)
+        CFAT="./cond-catch $ITERS_10M 0"
+        CFAR="./cond-fixup $ITERS_100M 0"
+        CPP="./cond-catch-cpp $ITERS_10M 0"
+        JAVA="java CondCatch $ITERS_10M 0"
+        PYTHON="./cond-catch.py $ITERS_10M 0"
+        ;;
+fixup-empty)
+        CFAT="./fixup-empty-f $ITERS_10M $STACK_HEIGHT"
+        CFAR="./fixup-empty-r $ITERS_10M $STACK_HEIGHT"
+        CPP="./fixup-empty-cpp $ITERS_10M $STACK_HEIGHT"
+        JAVA="java FixupEmpty $ITERS_10M $STACK_HEIGHT"
+        PYTHON="./fixup-empty.py $ITERS_10M $STACK_HEIGHT"
+        ;;
+fixup-other)
+        CFAT="./fixup-other-f $ITERS_10M $STACK_HEIGHT"
+        CFAR="./fixup-other-r $ITERS_10M $STACK_HEIGHT"
+        CPP="./fixup-other-cpp $ITERS_10M $STACK_HEIGHT"
+        JAVA="java FixupOther $ITERS_10M $STACK_HEIGHT"
+        PYTHON="./fixup-other.py $ITERS_10M $STACK_HEIGHT"
+        CFAT="./throw-other $ITERATIONS $STACK_HEIGHT"
+        CFAR="./resume-other $ITERATIONS $STACK_HEIGHT"
+        CPP="./throw-other-cpp $ITERATIONS $STACK_HEIGHT"
+        JAVA="java ThrowOther $ITERATIONS $STACK_HEIGHT"
+        PYTHON="./throw_other.py $ITERATIONS $STACK_HEIGHT"
         ;;
 *)
 …
 if [ -n "$VIEW_FILE" ]; then
         grep -A 1 -B 0 "$CALL" "$VIEW_FILE" | sed -n -e 's!Run-Time (ns): !!;T;p'
         exit
+    grep -A 1 -B 0 "$CALL" "$VIEW_FILE" | sed -n -e 's!Run-Time (ns): !!;T;p'
+    exit
 fi

doc/theses/andrew_beach_MMath/code/throw-detor.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 struct WithDestructor {};
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/throw-detor.cpp

-              r5a40e4e
+              rdd1cc02
 #include <exception>
 #include <iostream>
-#include <iomanip>
-using namespace std;
 using namespace std::chrono;
 …
         time_point<steady_clock> end_time = steady_clock::now();
         nanoseconds duration = duration_cast<nanoseconds>(end_time - start_time);
         cout << "Run-Time (s): " << fixed << setprecision(1) << duration.count() / 1'000'000'000. << endl;
+        std::cout << "Run-Time (ns): " << duration.count() << std::endl;
+}

doc/theses/andrew_beach_MMath/code/throw-empty.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 void unwind_empty(unsigned int frames) {
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/throw-empty.cpp

-              r5a40e4e
+              rdd1cc02
 // Throw Across Empty Function
 #include <chrono>
-#include <cstdio>
 #include <cstdlib>
 #include <exception>
 #include <iostream>
-#include <iomanip>
-using namespace std;
 using namespace std::chrono;
 …
         if (frames) {
                 unwind_empty(frames - 1);
-                if (-1 == frames) printf("~");
         } else {
                 throw (EmptyException){};
 …
         time_point<steady_clock> end_time = steady_clock::now();
         nanoseconds duration = duration_cast<nanoseconds>(end_time - start_time);
         cout << "Run-Time (s): " << fixed << setprecision(1) << duration.count() / 1'000'000'000. << endl;
+        std::cout << "Run-Time (ns): " << duration.count() << std::endl;
+}

doc/theses/andrew_beach_MMath/code/throw-finally.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+EHM_EXCEPTION(empty_exception)();
+unsigned int frames;                                                                    // use global because of gcc thunk problem
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
 void unwind_finally(unsigned int dummy) {
+void unwind_finally(unsigned int frames) {
         if (frames) {
-                frames -= 1;
                 try {
                         unwind_finally(42);
+                        unwind_finally(frames - 1);
                 } finally {
                         asm volatile ("# finally block");
+                }
         } else {
-                dummy = 42;
                 throw (empty_exception){&empty_vt};
+        }
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
-        frames = total_frames;
         Time start_time = timeHiRes();
         for (int count = 0 ; count < times ; ++count) {
                 try {
                         unwind_finally(42);
+                        unwind_finally(total_frames);
                 } catch (empty_exception *) {
                         asm volatile ("# catch block");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/throw-other.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
 #include <fstream.hfa>
 #include <stdlib.hfa>                                                                   // strto
+#include <stdlib.hfa>
+exception empty_exception;
+vtable(empty_exception) empty_vt;
+exception not_raised_exception;
+EHM_EXCEPTION(empty_exception)();
+unsigned int frames;                                                                    // use global because of gcc thunk problem
+EHM_VIRTUAL_TABLE(empty_exception, empty_vt);
+void unwind_other(unsigned int dummy) {
+EHM_EXCEPTION(not_raised_exception)();
+void unwind_other(unsigned int frames) {
         if (frames) {
-                frames -= 1;
                 try {
                         unwind_other(42);
+                        unwind_other(frames - 1);
                 } catch (not_raised_exception *) {
                         asm volatile ("# catch block (stack)");
+                }
         } else {
-                dummy = 42;
                 throw (empty_exception){&empty_vt};
+        }
 …
         unsigned int total_frames = 1;
         if (1 < argc) {
                 times = strto(argv[1], 0p, 10);
+                times = strtol(argv[1], 0p, 10);
+        }
         if (2 < argc) {
                 total_frames = strto(argv[2], 0p, 10);
+                total_frames = strtol(argv[2], 0p, 10);
+        }
-        frames = total_frames;
         Time start_time = timeHiRes();
         for (int count = 0 ; count < times ; ++count) {
                 try {
                         unwind_other(42);
+                        unwind_other(total_frames);
                 } catch (empty_exception *) {
                         asm volatile ("# catch block (base)");
 …
+        }
         Time end_time = timeHiRes();
         sout | "Run-Time (s): " | wd(0,1, (end_time - start_time)`ns / 1_000_000_000.);
+        sout | "Run-Time (ns): " | (end_time - start_time)`ns;
+}

doc/theses/andrew_beach_MMath/code/throw-other.cpp

-              r5a40e4e
+              rdd1cc02
 #include <exception>
 #include <iostream>
-#include <iomanip>
-using namespace std;
 using namespace std::chrono;
 …
         time_point<steady_clock> end_time = steady_clock::now();
         nanoseconds duration = duration_cast<nanoseconds>(end_time - start_time);
         cout << "Run-Time (s): " << fixed << setprecision(1) << duration.count() / 1'000'000'000. << endl;
+        std::cout << "Run-Time (ns): " << duration.count() << std::endl;
+}

doc/theses/andrew_beach_MMath/conclusion.tex

-              r5a40e4e
+              rdd1cc02
 \chapter{Conclusion}
-\label{c:conclusion}
 % Just a little knot to tie the paper together.
 In the previous chapters this thesis presents the design and implementation
 of \CFA's exception handling mechanism (EHM).
+Both the design and implementation are based off of tools and
+techniques developed for other programming languages but they were adapted to
+better fit \CFA's feature set and add a few features that do not exist in
+other EHMs;
+including conditional matching, default handlers for unhandled exceptions
+and cancellation though coroutines and threads back to the program main stack.
+Both the design and implementation are based off of tools and techniques
+developed for other programming languages but they were adapted to better fit
+\CFA's feature set.
 The resulting features cover all of the major use cases of the most popular
 termination EHMs of today, along with reintroducing resumption exceptions and
+creating some new features that fit with \CFA's larger programming patterns,
+such as virtuals independent of traditional objects.
+creating some new features that fix with \CFA's larger programming patterns.
+The \CFA project's test suite has been expanded to test the EHM.
+The implementation's performance has also been
+compared to other implementations with a small set of targeted
+micro-benchmarks.
+The implementation has been tested and compared to other implementations.
 The results, while not cutting edge, are good enough for prototyping, which
 is \CFA's current stage of development.
+is \CFA's stage of development.
+This initial EHM will bring valuable new features to \CFA in its own right
+but also serves as a tool and motivation for other developments in the
+language.
+This is a valuable new feature for \CFA in its own right but also serves
+as a tool (and motivation) for other developments in the language.

doc/theses/andrew_beach_MMath/exception-layout.fig

-              r5a40e4e
+              rdd1cc02
 0 1.00 240.00 240.00
 405 360 2070
 0 0 50 -1 0 12 0.0000 0 135 1080 2700 585 Fixed Header\001
 0 0 50 -1 0 12 0.0000 0 135 1575 540 990 Cforall Information\001
 0 0 50 -1 0 12 0.0000 0 180 1695 540 585 _Unwind_Exception\001
 0 0 50 -1 0 12 0.0000 0 180 1245 540 1530 User Exception\001
 0 0 50 -1 0 12 0.0000 0 180 1185 2655 1530 Variable Body\001
 0 0 50 -1 0 12 0.0000 0 165 1110 2655 1215 (Fixed Offset)\001
+0 0 50 -1 0 12 0.0000 4 135 1080 2700 585 Fixed Header\001
+0 0 50 -1 0 12 0.0000 4 135 1710 540 990 Cforall Information\001
+0 0 50 -1 0 12 0.0000 4 165 1530 540 585 _Unwind_Exception\001
+0 0 50 -1 0 12 0.0000 4 165 1260 540 1530 User Exception\001
+0 0 50 -1 0 12 0.0000 4 165 1170 2655 1530 Variable Body\001
+0 0 50 -1 0 12 0.0000 4 165 1260 2655 1215 (Fixed Offset)\001

doc/theses/andrew_beach_MMath/existing.tex

-              r5a40e4e
+              rdd1cc02
 Only those \CFA features pertaining to this thesis are discussed.
+% Also, only new features of \CFA will be discussed,
 A familiarity with
 C or C-like languages is assumed.
 …
 \CFA has extensive overloading, allowing multiple definitions of the same name
 to be defined~\cite{Moss18}.
 \begin{cfa}
 char i; int i; double i;
 int f(); double f();
 void g( int ); void g( double );
 \end{cfa}
+\begin{lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]
+char @i@; int @i@; double @i@;
+int @f@(); double @f@();
+void @g@( int ); void @g@( double );
+\end{lstlisting}
 This feature requires name mangling so the assembly symbols are unique for
 different overloads. For compatibility with names in C, there is also a syntax
 …
 int && rri = ri;
 rri = 3;
 &ri = &j;
+&ri = &j; // rebindable
 ri = 5;
 \end{cfa}
 …
 \end{minipage}
+References are intended to be used when the indirection of a pointer is
+required, but the address is not as important as the value and dereferencing
+is the common usage.
+References are intended for pointer situations where dereferencing is the common usage,
+\ie the value is more important than the pointer.
 Mutable references may be assigned to by converting them to a pointer
+with a @&@ and then assigning a pointer to them, as in @&ri = &j;@ above.
+% ???
+with a @&@ and then assigning a pointer to them, as in @&ri = &j;@ above
 \section{Operators}
 \CFA implements operator overloading by providing special names, where
 operator expressions are translated into function calls using these names.
+operator usages are translated into function calls using these names.
 An operator name is created by taking the operator symbols and joining them with
 @?@s to show where the arguments go.
 …
 This syntax make it easy to tell the difference between prefix operations
 (such as @++?@) and post-fix operations (@?++@).
+As an example, here are the addition and equality operators for a point type.
+For example, plus and equality operators are defined for a point type.
 \begin{cfa}
 point ?+?(point a, point b) { return point{a.x + b.x, a.y + b.y}; }
 …
+}
 \end{cfa}
+Note that this syntax works effectively but a textual transformation,
+the compiler converts all operators into functions and then resolves them
+normally. This means any combination of types may be used,
+although nonsensical ones (like @double ?==?(point, int);@) are discouraged.
+This feature is also used for all builtin operators as well,
+although those are implicitly provided by the language.
+Note these special names are not limited to builtin
+operators, and hence, may be used with arbitrary types.
+\begin{cfa}
+double ?+?( int x, point y ); // arbitrary types
+\end{cfa}
+% Some ``near misses", that are that do not match an operator form but looks like
+% it may have been supposed to, will generate warning but otherwise they are
+% left alone.
+Because operators are never part of the type definition they may be added
+at any time, including on built-in types.
 %\subsection{Constructors and Destructors}
+In \CFA, constructors and destructors are operators, which means they are
+functions with special operator names rather than type names in \Cpp.
+Both constructors and destructors can be implicity called by the compiler,
+however the operator names allow explicit calls.
+% Placement new means that this is actually equivant to C++.
+\CFA also provides constructors and destructors as operators, which means they
+are functions with special operator names rather than type names in \Cpp.
+While constructors and destructions are normally called implicitly by the compiler,
+the special operator names, allow explicit calls.
+% Placement new means that this is actually equivalent to C++.
 The special name for a constructor is @?{}@, which comes from the
 …
 struct Example { ... };
 void ?{}(Example & this) { ... }
+{
-        Example a;
-        Example b = {};
+}
 void ?{}(Example & this, char first, int num) { ... }
+{
         Example c = {'a', 2};
+}
 \end{cfa}
 Both @a@ and @b@ will be initalized with the first constructor,
 @b@ because of the explicit call and @a@ implicitly.
 @c@ will be initalized with the second constructor.
+Currently, there is no general way to skip initialation.
+% I don't use @= anywhere in the thesis.
+Example a;              // implicit constructor calls
+Example b = {};
+Example c = {'a', 2};
+\end{cfa}
+Both @a@ and @b@ are initialized with the first constructor,
+while @c@ is initialized with the second.
+Constructor calls can be replaced with C initialization using special operator \lstinline{@=}.
+\begin{cfa}
+Example d @= {42};
+\end{cfa}
 % I don't like the \^{} symbol but $^\wedge$ isn't better.
 Similarly, destructors use the special name @^?{}@ (the @^@ has no special
 meaning).
+% These are a normally called implicitly called on a variable when it goes out
+% of scope. They can be called explicitly as well.
 \begin{cfa}
 void ^?{}(Example & this) { ... }
+{
+        Example d;
+        ^?{}(d);
+        Example e;
+} // Implicit call of ^?{}(e);
+        Example e;      // implicit constructor call
+        ^?{}(e);                // explicit destructor call
+        ?{}(e);         // explicit constructor call
+} // implicit destructor call
 \end{cfa}
 …
 The global definition of @do_once@ is ignored, however if quadruple took a
 @double@ argument, then the global definition would be used instead as it
+would then be a better match.\cite{Moss19}
+To avoid typing long lists of assertions, constraints can be collected into
+convenient a package called a @trait@, which can then be used in an assertion
+is a better match.
+% Aaron's thesis might be a good reference here.
+To avoid typing long lists of assertions, constraints can be collect into
+convenient package called a @trait@, which can then be used in an assertion
 instead of the individual constraints.
 \begin{cfa}
 …
         node(T) * next;
         T * data;
 };
+}
 node(int) inode;
 \end{cfa}
 …
 };
 CountUp countup;
+for (10) sout | resume(countup).next; // print 10 values
 \end{cfa}
 Each coroutine has a @main@ function, which takes a reference to a coroutine
 object and returns @void@.
 %[numbers=left] Why numbers on this one?
 \begin{cfa}
+\begin{cfa}[numbers=left,numberstyle=\scriptsize\sf]
 void main(CountUp & this) {
         for (unsigned int next = 0 ; true ; ++next) {
                 this.next = next;
+        for (unsigned int up = 0;; ++up) {
+                this.next = up;
                 suspend;$\label{suspend}$
+        }
 …
 \end{cfa}
 In this function, or functions called by this function (helper functions), the
 @suspend@ statement is used to return execution to the coroutine's caller
 without terminating the coroutine's function.
+@suspend@ statement is used to return execution to the coroutine's resumer
+without terminating the coroutine's function(s).
 A coroutine is resumed by calling the @resume@ function, \eg @resume(countup)@.
 The first resume calls the @main@ function at the top. Thereafter, resume calls
 continue a coroutine in the last suspended function after the @suspend@
+statement. In this case there is only one and, hence, the difference between
+subsequent calls is the state of variables inside the function and the
+coroutine object.
+The return value of @resume@ is a reference to the coroutine, to make it
+convent to access fields of the coroutine in the same expression.
+Here is a simple example in a helper function:
+\begin{cfa}
+unsigned int get_next(CountUp & this) {
+        return resume(this).next;
+}
+\end{cfa}
+When the main function returns the coroutine halts and can no longer be
+resumed.
+statement, in this case @main@ line~\ref{suspend}.  The @resume@ function takes
+a reference to the coroutine structure and returns the same reference. The
+return value allows easy access to communication variables defined in the
+coroutine object. For example, the @next@ value for coroutine object @countup@
+is both generated and collected in the single expression:
+@resume(countup).next@.
 \subsection{Monitor and Mutex Parameter}
 …
 exclusion on a monitor object by qualifying an object reference parameter with
 @mutex@.
 \begin{cfa}
 void example(MonitorA & mutex argA, MonitorB & mutex argB);
 \end{cfa}
+\begin{lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]
+void example(MonitorA & @mutex@ argA, MonitorB & @mutex@ argB);
+\end{lstlisting}
 When the function is called, it implicitly acquires the monitor lock for all of
 the mutex parameters without deadlock.  This semantics means all functions with
 …
+{
         StringWorker stringworker; // fork thread running in "main"
 } // Implicit call to join(stringworker), waits for completion.
+} // implicitly join with thread / wait for completion
 \end{cfa}
 The thread main is where a new thread starts execution after a fork operation

doc/theses/andrew_beach_MMath/features.tex

-              r5a40e4e
+              rdd1cc02
 \paragraph{Raise}
 The raise is the starting point for exception handling,
+The raise is the starting point for exception handling
 by raising an exception, which passes it to
 the EHM.
 …
 \paragraph{Handle}
 The primary purpose of an EHM is to run some user code to handle a raised
+exception. This code is given, along with some other information,
+in a handler.
+exception. This code is given, with some other information, in a handler.
 A handler has three common features: the previously mentioned user code, a
 region of code it guards and an exception label/condition that matches
 against the raised exception.
+region of code it guards, and an exception label/condition that matches
+the raised exception.
 Only raises inside the guarded region and raising exceptions that match the
 label can be handled by a given handler.
 …
 The @try@ statements of \Cpp, Java and Python are common examples. All three
+also show another common feature of handlers, they are grouped by the guarded
+region.
+show the common features of guarded region, raise, matching and handler.
+\begin{cfa}
+try {                           // guarded region
+        ...
+        throw exception;        // raise
+        ...
+} catch( exception ) {  // matching condition, with exception label
+        ...                             // handler code
+}
+\end{cfa}
 \subsection{Propagation}
 After an exception is raised comes what is usually the biggest step for the
+EHM: finding and setting up the handler for execution.
+The propagation from raise to
+EHM: finding and setting up the handler for execution. The propagation from raise to
 handler can be broken up into three different tasks: searching for a handler,
 matching against the handler and installing the handler.
 …
 \paragraph{Searching}
 The EHM begins by searching for handlers that might be used to handle
 the exception.
 The search will find handlers that have the raise site in their guarded
+the exception. The search is restricted to
+handlers that have the raise site in their guarded
 region.
 The search includes handlers in the current function, as well as any in
 …
 \paragraph{Matching}
 Each handler found is with the raised exception. The exception
+Each handler found is matched with the raised exception. The exception
 label defines a condition that is used with the exception and decides if
 there is a match or not.
+%
 In languages where the first match is used, this step is intertwined with
 searching; a match check is performed immediately after the search finds
 …
 different course of action for this case.
 This situation only occurs with unchecked exceptions as checked exceptions
 (such as in Java) can make the guarantee.
+(such as in Java) are guaranteed to find a matching handler.
 The unhandled action is usually very general, such as aborting the program.
 …
 A handler labeled with any given exception can handle exceptions of that
 type or any child type of that exception. The root of the exception hierarchy
 (here \code{C}{exception}) acts as a catch-all, leaf types catch single types
+(here \code{C}{exception}) acts as a catch-all, leaf types catch single types,
 and the exceptions in the middle can be used to catch different groups of
 related exceptions.
 This system has some notable advantages, such as multiple levels of grouping,
 the ability for libraries to add new exception types and the isolation
+the ability for libraries to add new exception types, and the isolation
 between different sub-hierarchies.
 This design is used in \CFA even though it is not a object-orientated
 …
 For effective exception handling, additional information is often passed
 from the raise to the handler and back again.
+So far, only communication of the exceptions' identity is covered.
+A common communication method for adding information to an exception
+is putting fields into the exception instance
+So far, only communication of the exception's identity is covered.
+A common communication method for passing more information is putting fields into the exception instance
 and giving the handler access to them.
+% You can either have pointers/references in the exception, or have p/rs to
+% the exception when it doesn't have to be copied.
+Passing references or pointers allows data at the raise location to be
+updated, passing information in both directions.
+Using reference fields pointing to data at the raise location allows data to be
+passed in both directions.
 \section{Virtuals}
-\label{s:virtuals}
 Virtual types and casts are not part of \CFA's EHM nor are they required for
 an EHM.
 However, one of the best ways to support an exception hierarchy
 is via a virtual hierarchy and dispatch system.
+Ideally, the virtual system would have been part of \CFA before the work
+Ideally, the virtual system should have been part of \CFA before the work
 on exception handling began, but unfortunately it was not.
 Hence, only the features and framework needed for the EHM were
+designed and implemented for this thesis.
+Other features were considered to ensure that
+designed and implemented for this thesis. Other features were considered to ensure that
 the structure could accommodate other desirable features in the future
 but are not implemented.
 The rest of this section only discusses the implemented subset of the
 virtual system design.
+virtual-system design.
 The virtual system supports multiple ``trees" of types. Each tree is
 …
 number of children.
 Any type that belongs to any of these trees is called a virtual type.
 % A type's ancestors are its parent and its parent's ancestors.
 % The root type has no ancestors.
 % A type's descendants are its children and its children's descendants.
+For the purposes of illustration, a proposed -- but unimplemented syntax --
+will be used. Each virtual type is represented by a trait with an annotation
+that makes it a virtual type. This annotation is empty for a root type, which
+creates a new tree:
+\begin{cfa}
+trait root_type(T) virtual() {}
+\end{cfa}
+The annotation may also refer to any existing virtual type to make this new
+type a child of that type and part of the same tree. The parent may itself
+be a child or a root type and may have any number of existing children.
+% OK, for some reason the b and t positioning options are reversed here.
+\begin{minipage}[b]{0.6\textwidth}
+\begin{cfa}
+trait child_a(T) virtual(root_type) {}
+trait grandchild(T) virtual(child_a) {}
+trait child_b(T) virtual(root_type) {}
+\end{cfa}
+\end{minipage}
+\begin{minipage}{0.4\textwidth}
+\begin{center}
+\input{virtual-tree}
+\end{center}
+\end{minipage}
+Every virtual type also has a list of virtual members and a unique id,
+both are stored in a virtual table.
+Every instance of a virtual type also has a pointer to a virtual table stored
+in it, although there is no per-type virtual table as in many other languages.
+The list of virtual members is built up down the tree. Every virtual type
+inherits the list of virtual members from its parent and may add more
+virtual members to the end of the list which are passed on to its children.
+Again, using the unimplemented syntax this might look like:
+\begin{cfa}
+trait root_type(T) virtual() {
+        const char * to_string(T const & this);
+        unsigned int size;
+}
+trait child_type(T) virtual(root_type) {
+        char * irrelevant_function(int, char);
+}
+\end{cfa}
+% Consider adding a diagram, but we might be good with the explanation.
+As @child_type@ is a child of @root_type@ it has the virtual members of
+@root_type@ (@to_string@ and @size@) as well as the one it declared
+(@irrelevant_function@).
+It is important to note that these are virtual members, and may contain
+arbitrary fields, functions or otherwise.
+The names ``size" and ``align" are reserved for the size and alignment of the
+virtual type, and are always automatically initialized as such.
+The other special case are uses of the trait's polymorphic argument
+(@T@ in the example), which are always updated to refer to the current
+virtual type. This allows functions that refer to to polymorphic argument
+to act as traditional virtual methods (@to_string@ in the example), as the
+object can always be passed to a virtual method in its virtual table.
+Every virtual type also has a list of virtual members. Children inherit
+their parent's list of virtual members but may add new members to it.
+It is important to note that these are virtual members, not virtual methods
+of object-orientated programming, and can be of any type.
+\PAB{Need to look at these when done.
+\CFA still supports virtual methods as a special case of virtual members.
+Function pointers that take a pointer to the virtual type are modified
+with each level of inheritance so that refers to the new type.
+This means an object can always be passed to a function in its virtual table
+as if it were a method.
+\todo{Clarify (with an example) virtual methods.}
+Each virtual type has a unique id.
+This id and all the virtual members are combined
+into a virtual table type. Each virtual type has a pointer to a virtual table
+as a hidden field.
+\todo{Might need a diagram for virtual structure.}
+}%
 Up until this point the virtual system is similar to ones found in
+object-oriented languages but this is where \CFA diverges.
+Objects encapsulate a single set of methods in each type,
+universally across the entire program,
+and indeed all programs that use that type definition.
+The only way to change any method is to inherit and define a new type with
+its own universal implementation. In this sense,
+these object-oriented types are ``closed" and cannot be altered.
+% Because really they are class oriented.
+In \CFA, types do not encapsulate any code.
+Whether or not satisfies any given assertion, and hence any trait, is
+context sensitive. Types can begin to satisfy a trait, stop satisfying it or
+satisfy the same trait at any lexical location in the program.
+In this sense, an type's implementation in the set of functions and variables
+that allow it to satisfy a trait is ``open" and can change
+throughout the program.
+object-orientated languages but this is where \CFA diverges. Objects encapsulate a
+single set of methods in each type, universally across the entire program,
+and indeed all programs that use that type definition. Even if a type inherits and adds methods, it still encapsulate a
+single set of methods. In this sense,
+object-oriented types are ``closed" and cannot be altered.
+In \CFA, types do not encapsulate any code. Traits are local for each function and
+types can satisfy a local trait, stop satisfying it or, satisfy the same
+trait in a different way at any lexical location in the program where a function is call.
+In this sense, the set of functions/variables that satisfy a trait for a type is ``open" as the set can change at every call site.
 This capability means it is impossible to pick a single set of functions
 that represent a type's implementation across a program.
 …
 type. A user can define virtual tables that are filled in at their
 declaration and given a name. Anywhere that name is visible, even if it is
 defined locally inside a function (although in this case the user must ensure
 it outlives any objects that use it), it can be used.
+defined locally inside a function \PAB{What does this mean? (although that means it does not have a
+static lifetime)}, it can be used.
 Specifically, a virtual type is ``bound" to a virtual table that
 sets the virtual members for that object. The virtual members can be accessed
 through the object.
-This means virtual tables are declared and named in \CFA.
-They are declared as variables, using the type
-@vtable(VIRTUAL_TYPE)@ and any valid name. For example:
-\begin{cfa}
-vtable(virtual_type_name) table_name;
-\end{cfa}
-Like any variable they may be forward declared with the @extern@ keyword.
-Forward declaring virtual tables is relatively common.
-Many virtual types have an ``obvious" implementation that works in most
-cases.
-A pattern that has appeared in the early work using virtuals is to
-implement a virtual table with the the obvious definition and place a forward
-declaration of it in the header beside the definition of the virtual type.
-Even on the full declaration, no initializer should be used.
-Initialization is automatic.
-The type id and special virtual members ``size" and ``align" only depend on
-the virtual type, which is fixed given the type of the virtual table and
-so the compiler fills in a fixed value.
-The other virtual members are resolved, using the best match to the member's
-name and type, in the same context as the virtual table is declared using
-\CFA's normal resolution rules.
 While much of the virtual infrastructure is created, it is currently only used
 …
 @EXPRESSION@ object, otherwise it returns @0p@ (null pointer).
+\section{Exceptions}
+The syntax for declaring an exception is the same as declaring a structure
+except the keyword that is swapped out:
+\begin{cfa}
+exception TYPE_NAME {
+        FIELDS
+};
+\end{cfa}
+Fields are filled in the same way as a structure as well. However an extra
+field is added that contains the pointer to the virtual table.
+It must be explicitly initialized by the user when the exception is
+constructed.
+Here is an example of declaring an exception type along with a virtual table,
+assuming the exception has an ``obvious" implementation and a default
+virtual table makes sense.
+\begin{minipage}[t]{0.4\textwidth}
+Header:
+\begin{cfa}
+exception Example {
+        int data;
+};
+extern vtable(Example)
+        example_base_vtable;
+\end{cfa}
+\end{minipage}
+\begin{minipage}[t]{0.6\textwidth}
+Source:
+\begin{cfa}
+vtable(Example) example_base_vtable
+\end{cfa}
+\vfil
+\end{minipage}
+%\subsection{Exception Details}
+This is the only interface needed when raising and handling exceptions.
+However it is actually a short hand for a more complex
+trait based interface.
+The language views exceptions through a series of traits.
+If a type satisfies them, then it can be used as an exception. The following
+\section{Exception}
+% Leaving until later, hopefully it can talk about actual syntax instead
+% of my many strange macros. Syntax aside I will also have to talk about the
+% features all exceptions support.
+Exceptions are defined by the trait system; there are a series of traits, and
+if a type satisfies them, then it can be used as an exception. The following
 is the base trait all exceptions need to match.
 \begin{cfa}
 …
 };
 \end{cfa}
 The trait is defined over two types: the exception type and the virtual table
+The trait is defined over two types, the exception type and the virtual table
 type. Each exception type should have a single virtual table type.
 There are no actual assertions in this trait because the trait system
 …
 completing the virtual system). The imaginary assertions would probably come
 from a trait defined by the virtual system, and state that the exception type
 is a virtual type, is a descendant of @exception_t@ (the base exception type)
 and allow the user to find the virtual table type.
+is a virtual type, is a descendant of @exception_t@ (the base exception type),
+and note its virtual table type.
 % I did have a note about how it is the programmer's responsibility to make
 …
 };
 \end{cfa}
 Both traits ensure a pair of types is an exception type, its virtual table
 type
+Both traits ensure a pair of types are an exception type, its virtual table
+type,
 and defines one of the two default handlers. The default handlers are used
 as fallbacks and are discussed in detail in \vref{s:ExceptionHandling}.
 …
 facing way. So these three macros are provided to wrap these traits to
 simplify referring to the names:
 @IS_EXCEPTION@, @IS_TERMINATION_EXCEPTION@ and @IS_RESUMPTION_EXCEPTION@.
+@IS_EXCEPTION@, @IS_TERMINATION_EXCEPTION@, and @IS_RESUMPTION_EXCEPTION@.
 All three take one or two arguments. The first argument is the name of the
 …
 These twin operations are the core of \CFA's exception handling mechanism.
 This section covers the general patterns shared by the two operations and
 then goes on to cover the details each individual operation.
+then goes on to cover the details of each individual operation.
 Both operations follow the same set of steps.
 First, a user raises an exception.
 Second, the exception propagates up the stack, searching for a handler.
+Second, the exception propagates up the stack.
 Third, if a handler is found, the exception is caught and the handler is run.
 After that control continues at a raise-dependent location.
+As an alternate to the third step,
+if a handler is not found, a default handler is run and, if it returns,
+then control
+Fourth, if a handler is not found, a default handler is run and, if it returns, then control
 continues after the raise.
+The differences between the two operations include how propagation is
+performed, where execution continues after an exception is handled
 and which default handler is run.
+%This general description covers what the two kinds have in common.
+The differences in the two operations include how propagation is performed, where execution continues
+after an exception is caught and handled, and which default handler is run.
 \subsection{Termination}
 \label{s:Termination}
+Termination handling is the familiar kind of handling
+and used in most programming
+Termination handling is the familiar EHM and used in most programming
 languages with exception handling.
 It is a dynamic, non-local goto. If the raised exception is matched and
 …
 Then propagation starts with the search. \CFA uses a ``first match" rule so
 matching is performed with the copied exception as the search key.
 It starts from the raise site and proceeds towards base of the stack,
+It starts from the raise in the throwing function and proceeds towards the base of the stack,
 from callee to caller.
 At each stack frame, a check is made for termination handlers defined by the
 …
 \end{cfa}
 When viewed on its own, a try statement simply executes the statements
 in the \snake{GUARDED_BLOCK} and when those are finished,
+in the \snake{GUARDED_BLOCK}, and when those are finished,
 the try statement finishes.
 …
 termination exception types.
 The global default termination handler performs a cancellation
+(as described in \vref{s:Cancellation})
+on the current stack with the copied exception.
+Since it is so general, a more specific handler can be defined,
+overriding the default behaviour for the specific exception types.
+(see \vref{s:Cancellation} for the justification) on the current stack with the copied exception.
+Since it is so general, a more specific handler is usually
+defined, possibly with a detailed message, and used for specific exception type, effectively overriding the default handler.
 \subsection{Resumption}
 \label{s:Resumption}
+Resumption exception handling is less familar form of exception handling,
+but is
+Resumption exception handling is the less familar EHM, but is
 just as old~\cite{Goodenough75} and is simpler in many ways.
 It is a dynamic, non-local function call. If the raised exception is
 …
 function once the error is corrected, and
 ignorable events, such as logging where nothing needs to happen and control
+should always continue from the raise site.
+Except for the changes to fit into that pattern, resumption exception
+handling is symmetric with termination exception handling, by design
+(see \autoref{s:Termination}).
+should always continue from the raise point.
 A resumption raise is started with the @throwResume@ statement:
 …
 throwResume EXPRESSION;
 \end{cfa}
+% The new keywords are currently ``experimental" and not used in this work.
+It works much the same way as the termination raise, except the
+type must satisfy the \snake{is_resumption_exception} that uses the
+default handler: \defaultResumptionHandler.
+This can be specialized for particular exception types.
+At run-time, no exception copy is made. Since
+\todo{Decide on a final set of keywords and use them everywhere.}
+It works much the same way as the termination throw.
+The expression must return a reference to a resumption exception,
+where the resumption exception is any type that satisfies the trait
+@is_resumption_exception@ at the call site.
+The assertions from this trait are available to
+the exception system while handling the exception.
+At run-time, no exception copy is made, since
 resumption does not unwind the stack nor otherwise remove values from the
 current scope, there is no need to manage memory to keep the exception
+allocated.
 Then propagation starts with the search,
 following the same search path as termination,
+from the raise site to the base of stack and top of try statement to bottom.
 However, the handlers on try statements are defined by @catchResume@ clauses.
+current scope, so there is no need to manage memory to keep the exception in scope.
+Then propagation starts with the search. It starts from the raise in the
+resuming function and proceeds towards the base of the stack,
+from callee to caller.
+At each stack frame, a check is made for resumption handlers defined by the
+@catchResume@ clauses of a @try@ statement.
 \begin{cfa}
 try {
 …
+}
 \end{cfa}
+Note that termination handlers and resumption handlers may be used together
+% PAB, you say this above.
+% When a try statement is executed, it simply executes the statements in the
+% @GUARDED_BLOCK@ and then finishes.
+%
+% However, while the guarded statements are being executed, including any
+% invoked functions, all the handlers in these statements are included in the
+% search path.
+% Hence, if a resumption exception is raised, these handlers may be matched
+% against the exception and may handle it.
+%
+% Exception matching checks the handler in each catch clause in the order
+% they appear, top to bottom. If the representation of the raised exception type
+% is the same or a descendant of @EXCEPTION_TYPE@$_i$, then @NAME@$_i$
+% (if provided) is bound to a pointer to the exception and the statements in
+% @HANDLER_BLOCK@$_i$ are executed.
+% If control reaches the end of the handler, execution continues after the
+% the raise statement that raised the handled exception.
+%
+% Like termination, if no resumption handler is found during the search,
+% then the default handler (\defaultResumptionHandler) visible at the raise
+% statement is called. It will use the best match at the raise sight according
+% to \CFA's overloading rules. The default handler is
+% passed the exception given to the raise. When the default handler finishes
+% execution continues after the raise statement.
+%
+% There is a global @defaultResumptionHandler{} is polymorphic over all
+% resumption exceptions and performs a termination throw on the exception.
+% The \defaultTerminationHandler{} can be overridden by providing a new
+% function that is a better match.
+The @GUARDED_BLOCK@ and its associated nested guarded statements work the same
+for resumption as for termination, as does exception matching at each
+@catchResume@. Similarly, if no resumption handler is found during the search,
+then the currently visible default handler (\defaultResumptionHandler) is
+called and control continues after the raise statement if it returns. Finally,
+there is also a global @defaultResumptionHandler@, which can be overridden,
+that is polymorphic over all resumption exceptions but performs a termination
+throw on the exception rather than a cancellation.
+Throwing the exception in @defaultResumptionHandler@ has the positive effect of
+walking the stack a second time for a recovery handler. Hence, a programmer has
+two chances for help with a problem, fixup or recovery, should either kind of
+handler appear on the stack. However, this dual stack walk leads to following
+apparent anomaly:
+\begin{cfa}
+try {
+        throwResume E;
+} catch (E) {
+        // this handler runs
+}
+\end{cfa}
+because the @catch@ appears to handle a @throwResume@, but a @throwResume@ only
+matches with @catchResume@. The anomaly results because the unmatched
+@catchResuem@, calls @defaultResumptionHandler@, which in turn throws @E@.
+% I wonder if there would be some good central place for this.
+Note, termination and resumption handlers may be used together
 in a single try statement, intermixing @catch@ and @catchResume@ freely.
 Each type of handler only interacts with exceptions from the matching
 kind of raise.
-Like @catch@ clauses, @catchResume@ clauses have no effect if an exception
-is not raised.
-The matching rules are exactly the same as well.
-The first major difference here is that after
-@EXCEPTION_TYPE@$_i$ is matched and @NAME@$_i$ is bound to the exception,
-@HANDLER_BLOCK@$_i$ is executed right away without first unwinding the stack.
-After the block has finished running control jumps to the raise site, where
-the just handled exception came from, and continues executing after it,
-not after the try statement.
 \subsubsection{Resumption Marking}
 …
 and run, its try block (the guarded statements) and every try statement
 searched before it are still on the stack. There presence can lead to
+the recursive resumption problem.\cite{Buhr00a}
+% Other possible citation is MacLaren77, but the form is different.
+the \emph{recursive resumption problem}.
 The recursive resumption problem is any situation where a resumption handler
 …
 When this code is executed, the guarded @throwResume@ starts a
 search and matches the handler in the @catchResume@ clause. This
+call is placed on the stack above the try-block.
+Now the second raise in the handler searches the same try block,
+matches again and then puts another instance of the
+call is placed on the stack above the try-block. Now the second raise in the handler
+searches the same try block, matches, and puts another instance of the
 same handler on the stack leading to infinite recursion.
+While this situation is trivial and easy to avoid, much more complex cycles
+can form with multiple handlers and different exception types.
+While this situation is trivial and easy to avoid, much more complex cycles can
+form with multiple handlers and different exception types.  The key point is
+that the programmer's intuition expects every raise in a handler to start
+searching \emph{below} the @try@ statement, making it difficult to understand
+and fix the problem.
 To prevent all of these cases, each try statement is ``marked" from the
 time the exception search reaches it to either when a handler completes
 handling that exception or when the search reaches the base
+time the exception search reaches it to either when a matching handler
+completes or when the search reaches the base
 of the stack.
 While a try statement is marked, its handlers are never matched, effectively
 …
 for instance, marking just the handlers that caught the exception,
 would also prevent recursive resumption.
 However, the rules selected mirrors what happens with termination,
 so this reduces the amount of rules and patterns a programmer has to know.
 The marked try statements are the ones that would be removed from
+However, the rule selected mirrors what happens with termination,
+and hence, matches programmer intuition that a raise searches below a try.
+In detail, the marked try statements are the ones that would be removed from
 the stack for a termination exception, \ie those on the stack
 between the handler and the raise statement.
 …
 \subsection{Comparison with Reraising}
+In languages without conditional catch, that is no ability to match an
+exception based on something other than its type, it can be mimicked
+by matching all exceptions of the right type, checking any additional
+conditions inside the handler and re-raising the exception if it does not
+match those.
+Here is a minimal example comparing both patterns, using @throw;@
+(no argument) to start a re-raise.
+Without conditional catch, the only approach to match in more detail is to reraise
+the exception after it has been caught, if it could not be handled.
 \begin{center}
 \begin{tabular}{l r}
 \begin{cfa}
 try {
     do_work_may_throw();
 } catch(exception_t * exc ;
+                can_handle(exc)) {
     handle(exc);
+}
+\begin{tabular}{l|l}
+\begin{cfa}
+try {
+        do_work_may_throw();
+} catch(excep_t * ex; can_handle(ex)) {
+        handle(ex);
+}
 \end{cfa}
+&
 \begin{cfa}
 try {
+    do_work_may_throw();
+} catch(exception_t * exc) {
+    if (can_handle(exc)) {
+        handle(exc);
+    } else {
+        throw;
+    }
+}
+\end{cfa}
+\end{tabular}
+\end{center}
+At first glance catch-and-reraise may appear to just be a quality of life
+feature, but there are some significant differences between the two
+stratagies.
+A simple difference that is more important for \CFA than many other languages
+is that the raise site changes, with a re-raise but does not with a
+conditional catch.
+This is important in \CFA because control returns to the raise site to run
+the per-site default handler. Because of this only a conditional catch can
+allow the original raise to continue.
+The more complex issue comes from the difference in how conditional
+catches and re-raises handle multiple handlers attached to a single try
+statement. A conditional catch will continue checking later handlers while
+a re-raise will skip them.
+If the different handlers could handle some of the same exceptions,
+translating a try statement that uses one to use the other can quickly
+become non-trivial:
+\noindent
+Original, with conditional catch:
+\begin{cfa}
+...
+} catch (an_exception * e ; check_a(e)) {
+        handle_a(e);
+} catch (exception_t * e ; check_b(e)) {
+        handle_b(e);
+}
+\end{cfa}
+Translated, with re-raise:
+\begin{cfa}
+...
+} catch (exception_t * e) {
+        an_exception * an_e = (virtual an_exception *)e;
+        if (an_e && check_a(an_e)) {
+                handle_a(an_e);
+        } else if (check_b(e)) {
+                handle_b(e);
+        do_work_may_throw();
+} catch(excep_t * ex) {
+        if (can_handle(ex)) {
+                handle(ex);
         } else {
                 throw;
 …
+}
 \end{cfa}
+(There is a simpler solution if @handle_a@ never raises exceptions,
+using nested try statements.)
+% } catch (an_exception * e ; check_a(e)) {
+%     handle_a(e);
+% } catch (exception_t * e ; !(virtual an_exception *)e && check_b(e)) {
+%     handle_b(e);
+% }
+\end{tabular}
+\end{center}
+Notice catch-and-reraise increases complexity by adding additional data and
+code to the exception process. Nevertheless, catch-and-reraise can simulate
+conditional catch straightforwardly, when exceptions are disjoint, \ie no
+inheritance.
+However, catch-and-reraise simulation becomes unusable for exception inheritance.
+\begin{flushleft}
+\begin{cfa}[xleftmargin=6pt]
+exception E1;
+exception E2(E1); // inheritance
+\end{cfa}
+\begin{tabular}{l|l}
+\begin{cfa}
+try {
+        ... foo(); ... // raise E1/E2
+        ... bar(); ... // raise E1/E2
+} catch( E2 e; e.rtn == foo ) {
+        ...
+} catch( E1 e; e.rtn == foo ) {
+        ...
+} catch( E1 e; e.rtn == bar ) {
+        ...
+}
+\end{cfa}
+&
+\begin{cfa}
+try {
+        ... foo(); ...
+        ... bar(); ...
+} catch( E2 e ) {
+        if ( e.rtn == foo ) { ...
+        } else throw; // reraise
+} catch( E1 e ) {
+        if (e.rtn == foo) { ...
+        } else if (e.rtn == bar) { ...
+        else throw; // reraise
+}
+\end{cfa}
+\end{tabular}
+\end{flushleft}
+The derived exception @E2@ must be ordered first in the catch list, otherwise
+the base exception @E1@ catches both exceptions. In the catch-and-reraise code
+(right), the @E2@ handler catches exceptions from both @foo@ and
+@bar@. However, the reraise misses the following catch clause. To fix this
+problem, an enclosing @try@ statement is need to catch @E2@ for @bar@ from the
+reraise, and its handler must duplicate the inner handler code for @bar@. To
+generalize, this fix for any amount of inheritance and complexity of try
+statement requires a technique called \emph{try-block
+splitting}~\cite{Krischer02}, which is not discussed in this thesis. It is
+sufficient to state that conditional catch is more expressive than
+catch-and-reraise in terms of complexity.
+\begin{comment}
+That is, they have the same behaviour in isolation.
+Two things can expose differences between these cases.
+One is the existence of multiple handlers on a single try statement.
+A reraise skips all later handlers for a try statement but a conditional
+catch does not.
+% Hence, if an earlier handler contains a reraise later handlers are
+% implicitly skipped, with a conditional catch they are not.
+Still, they are equivalently powerful,
+both can be used two mimic the behaviour of the other,
+as reraise can pack arbitrary code in the handler and conditional catches
+can put arbitrary code in the predicate.
+% I was struggling with a long explanation about some simple solutions,
+% like repeating a condition on later handlers, and the general solution of
+% merging everything together. I don't think it is useful though unless its
+% for a proof.
+% https://en.cppreference.com/w/cpp/language/throw
+The question then becomes ``Which is a better default?"
+We believe that not skipping possibly useful handlers is a better default.
+If a handler can handle an exception it should and if the handler can not
+handle the exception then it is probably safer to have that explicitly
+described in the handler itself instead of implicitly described by its
+ordering with other handlers.
+% Or you could just alter the semantics of the throw statement. The handler
+% index is in the exception so you could use it to know where to start
+% searching from in the current try statement.
+% No place for the `goto else;` metaphor.
+The other issue is all of the discussion above assumes that the only
+way to tell apart two raises is the exception being raised and the remaining
+search path.
+This is not true generally, the current state of the stack can matter in
+a number of cases, even only for a stack trace after an program abort.
+But \CFA has a much more significant need of the rest of the stack, the
+default handlers for both termination and resumption.
+% For resumption it turns out it is possible continue a raise after the
+% exception has been caught, as if it hadn't been caught in the first place.
+This becomes a problem combined with the stack unwinding used in termination
+exception handling.
+The stack is unwound before the handler is installed, and hence before any
+reraises can run. So if a reraise happens the previous stack is gone,
+the place on the stack where the default handler was supposed to run is gone,
+if the default handler was a local function it may have been unwound too.
+There is no reasonable way to restore that information, so the reraise has
+to be considered as a new raise.
+This is the strongest advantage conditional catches have over reraising,
+they happen before stack unwinding and avoid this problem.
+% The one possible disadvantage of conditional catch is that it runs user
+% code during the exception search. While this is a new place that user code
+% can be run destructors and finally clauses are already run during the stack
+% unwinding.
+%
+% } catch (an_exception * e)
+%   if (check_a(e)) {
+%     handle_a(e);
+%   } else throw;
+% } catch (exception_t * e)
+%   if (check_b(e)) {
+%     handle_b(e);
+%   } else throw;
+% }
+In similar simple examples translating from re-raise to conditional catch
+takes less code but it does not have a general trivial solution either.
+So, given that the two patterns do not trivially translate into each other,
+it becomes a matter of which on should be encouraged and made the default.
+From the premise that if a handler that could handle an exception then it
+should, it follows that checking as many handlers as possible is preferred.
+So conditional catch and checking later handlers is a good default.
+% https://www.cplusplus.com/reference/exception/current_exception/
+%   `exception_ptr current_exception() noexcept;`
+% https://www.python.org/dev/peps/pep-0343/
+\end{comment}
 \section{Finally Clauses}
 …
 The @FINALLY_BLOCK@ is executed when the try statement is removed from the
 stack, including when the @GUARDED_BLOCK@ finishes, any termination handler
 finishes or during an unwind.
+finishes, or during an unwind.
 The only time the block is not executed is if the program is exited before
 the stack is unwound.
 …
 they have their own strengths, similar to top-level function and lambda
 functions with closures.
 Destructors take more work to create, but if there is clean-up code
+Destructors take more work for their creation, but if there is clean-up code
 that needs to be run every time a type is used, they are much easier
 to set-up for each use. % It's automatic.
+to set-up.
 On the other hand finally clauses capture the local context, so is easy to
 use when the clean-up is not dependent on the type of a variable or requires
 …
 raise, this exception is not used in matching only to pass information about
 the cause of the cancellation.
 Finally, as no handler is provided, there is no default handler.
+Finaly, since a cancellation only unwinds and forwards, there is no default handler.
 After @cancel_stack@ is called the exception is copied into the EHM's memory
 …
 After the main stack is unwound there is a program-level abort.
 The first reason for this behaviour is for sequential programs where there
 is only one stack, and hence to stack to pass information to.
+Second, even in concurrent programs, the main stack has no dependency
 on another stack and no reliable way to find another living stack.
+Finally, keeping the same behaviour in both sequential and concurrent
 programs is simple and easy to understand.
+The reasons for this semantics in a sequential program is that there is no more code to execute.
+This semantics also applies to concurrent programs, too, even if threads are running.
+That is, if any threads starts a cancellation, it implies all threads terminate.
+Keeping the same behaviour in sequential and concurrent programs is simple.
+Also, even in concurrent programs there may not currently be any other stacks
+and even if other stacks do exist, main has no way to know where they are.
 \paragraph{Thread Stack}
 …
 With explicit join and a default handler that triggers a cancellation, it is
+possible to cascade an error across any number of threads,
+alternating between the resumption (possibly termination) and cancellation,
+cleaning up each
+possible to cascade an error across any number of threads, cleaning up each
 in turn, until the error is handled or the main thread is reached.
 …
 caller's context and passes it to the internal report.
+A coroutine only knows of two other coroutines,
+its starter and its last resumer.
+A coroutine only knows of two other coroutines, its starter and its last resumer.
 The starter has a much more distant connection, while the last resumer just
 (in terms of coroutine state) called resume on this coroutine, so the message
 …
 With a default handler that triggers a cancellation, it is possible to
+cascade an error across any number of coroutines,
+alternating between the resumption (possibly termination) and cancellation,
+cleaning up each in turn,
+cascade an error across any number of coroutines, cleaning up each in turn,
 until the error is handled or a thread stack is reached.
+\PAB{Part of this I do not understand. A cancellation cannot be caught. But you
+talk about handling a cancellation in the last sentence. Which is correct?}

doc/theses/andrew_beach_MMath/future.tex

-              r5a40e4e
+              rdd1cc02
 \label{c:future}
-The following discussion covers both possible interesting research
-that could follow from this work as long as simple implementation
-improvements.
 \section{Language Improvements}
+\todo{Future/Language Improvements seems to have gotten mixed up. It is
+presented as ``waiting on language improvements" but really its more
+non-research based impovements.}
 \CFA is a developing programming language. As such, there are partially or
+unimplemented features (including several broken components)
+that I had to workaround while building the EHM largely in
+the \CFA language (some C components). Below are a few of these issues
+and how implementing/fixing them would affect the EHM.
+In addition there are some simple improvements that had no interesting
+research attached to them but would make using the language easier.
+unimplemented features of the language (including several broken components)
+that I had to workaround while building an exception handling system largely in
+the \CFA language (some C components).  The following are a few of these
+issues, and once implemented/fixed, how they would affect the exception system.
 \begin{itemize}
+\item
+The implementation of termination is not portable because it includes
+hand-crafted assembly statements.
+The existing compilers cannot translate that for other platforms and those
+sections must be ported by hand to
+support more hardware architectures, such as the ARM processor.
 \item
 Due to a type-system problem, the catch clause cannot bind the exception to a
 …
 result in little or no change in the exception system but simplify usage.
 \item
-The @copy@ function in the exception virtual table is an adapter to address
-some limitations in the \CFA copy constructor. If the copy constructor is
-improved it can be used directly without the adapter.
-\item
 Termination handlers cannot use local control-flow transfers, \eg by @break@,
 @return@, \etc. The reason is that current code generation hoists a handler
 into a nested function for convenience (versus assemble-code generation at the
+try statement). Hence, when the handler runs, it can still access local
+variables in the lexical scope of the try statement. Still, it does mean
+that seemingly local control flow is not in fact local and crosses a function
+boundary.
+Making the termination handlers code within the surrounding
+function would remove this limitation.
+% Try blocks are much more difficult to do practically (requires our own
+% assembly) and resumption handlers have some theoretical complexity.
+@try@ statement). Hence, when the handler runs, its code is not in the lexical
+scope of the @try@ statement, where the local control-flow transfers are
+meaningful.
 \item
 There is no detection of colliding unwinds. It is possible for clean-up code
 run during an unwind to trigger another unwind that escapes the clean-up code
 itself; such as a termination exception caught further down the stack or a
 cancellation. There do exist ways to handle this case, but currently there is
 no detection and the first unwind will simply be forgotten, often leaving
+cancellation. There do exist ways to handle this but currently they are not
+even detected and the first unwind will simply be forgotten, often leaving
 it in a bad state.
 \item
 Finally, the exception system has not had a lot of programmer testing.
 More time with encouraged usage will reveal new
 quality of life upgrades that can be made.
+Also the exception system did not have a lot of time to be tried and tested.
+So just letting people use the exception system more will reveal new
+quality of life upgrades that can be made with time.
 \end{itemize}
 …
 project, but was thrust upon it to do exception inheritance; hence, only
 minimal work is done. A draft for a complete virtual system is available but
 not finalized. A future \CFA project is to complete that work and then
+it is not finalized.  A future \CFA project is to complete that work and then
 update the exception system that uses the current version.
 …
 exception traits. The most important one is an assertion to check one virtual
 type is a child of another. This check precisely captures many of the
+current ad-hoc correctness requirements.
+Other features of the virtual system could also remove some of the
+special cases around exception virtual tables, such as the generation
+of the @msg@ function, could be removed.
+correctness requirements.
 The full virtual system might also include other improvement like associated
 types to allow traits to refer to types not listed in their header. This
 feature allows exception traits to not refer to the virtual-table type
+explicitly, removing the need for the current interface macros,
+such as @EHM_IS_EXCEPTION@.
+explicitly, removing the need for the current interface macros.
 \section{Additional Raises}
 …
 Non-local/concurrent raise requires more
 coordination between the concurrency system
 and the exception system. Many of the interesting design decisions center
+and the exception system. Many of the interesting design decisions centre
 around masking, \ie controlling which exceptions may be thrown at a stack. It
 would likely require more of the virtual system and would also effect how
 …
 Checked exceptions make exceptions part of a function's type by adding an
 exception signature. An exception signature must declare all checked
 exceptions that could propagate from the function, either because they were
 raised inside the function or came from a sub-function. This improves safety
+exceptions that could propagate from the function (either because they were
+raised inside the function or came from a sub-function). This improves safety
 by making sure every checked exception is either handled or consciously
 passed on.
 However checked exceptions were never seriously considered for this project
 because they have significant trade-offs in usability and code reuse in
+because they have significant trade-offs in usablity and code reuse in
 exchange for the increased safety.
 These trade-offs are most problematic when trying to pass exceptions through
 …
 not support a successful-exiting stack-search without doing an unwind.
 Workarounds are possible but awkward. Ideally an extension to libunwind could
 be made, but that would either require separate maintenance or gaining enough
 support to have it folded into the official library itself.
+be made, but that would either require separate maintenance or gain enough
+support to have it folded into the standard.
 Also new techniques to skip previously searched parts of the stack need to be
 …
 to leave the handler.
 Currently, mimicking this behaviour in \CFA is possible by throwing a
 termination exception inside a resumption handler.
+termination inside a resumption handler.
 % Maybe talk about the escape; and escape CONTROL_STMT; statements or how

doc/theses/andrew_beach_MMath/implement.tex

-              r5a40e4e
+              rdd1cc02
 \label{s:VirtualSystem}
 % Virtual table rules. Virtual tables, the pointer to them and the cast.
+While the \CFA virtual system currently has only one public features, virtual
+cast and virtual tables,
+% ??? refs (see the virtual cast feature \vpageref{p:VirtualCast}),
+substantial structure is required to support them,
+While the \CFA virtual system currently has only one public feature, virtual
+cast (see the virtual cast feature \vpageref{p:VirtualCast}),
+substantial structure is required to support it,
 and provide features for exception handling and the standard library.
 \subsection{Virtual Type}
+A virtual type~(see \autoref{s:virtuals}) has a pointer to a virtual table,
+called the \emph{virtual-table pointer},
+which binds each instance of a virtual type to a virtual table.
+Internally, the field is called \snake{virtual_table}
+and is fixed after construction.
+This pointer is also the table's id and how the system accesses the
+Virtual types only have one change to their structure: the addition of a
+pointer to the virtual table, which is called the \emph{virtual-table pointer}.
+Internally, the field is called \snake{virtual_table}.
+The field is fixed after construction. It is always the first field in the
+structure so that its location is always known.
+\todo{Talk about constructors for virtual types (after they are working).}
+The virtual table pointer binds an instance of a virtual type
+to a virtual table.
+The pointer is also the table's id and how the system accesses the
 virtual table and the virtual members there.
-It is always the first field in the
-structure so that its location is always known.
-% We have no special rules for these constructors.
-Virtual table pointers are passed to the constructors of virtual types
-as part of field-by-field construction.
 \subsection{Type Id}
 Every virtual type has a unique id.
+These are used in type equality, to check if the representation of two values
+are the same, and to access the type's type information.
+This uniqueness means across a program composed of multiple translation
+units (TU), not uniqueness across all programs or even across multiple
+processes on the same machine.
+Our approach for program uniqueness is using a static declaration for each
+type id, where the run-time storage address of that variable is guaranteed to
+be unique during program execution.
+The type id storage can also be used for other purposes,
+and is used for type information.
+The problem is that a type id may appear in multiple TUs that compose a
+program (see \autoref{ss:VirtualTable}); so the initial solution would seem
+to be make it external in each translation unit. Hovever, the type id must
+have a declaration in (exactly) one of the TUs to create the storage.
+No other declaration related to the virtual type has this property, so doing
+this through standard C declarations would require the user to do it manually.
+Instead the linker is used to handle this problem.
+% I did not base anything off of C++17; they are solving the same problem.
+A new feature has been added to \CFA for this purpose, the special attribute
+\snake{cfa_linkonce}, which uses the special section @.gnu.linkonce@.
+When used as a prefix (\eg @.gnu.linkonce.example@) the linker does
+not combine these sections, but instead discards all but one with the same
+full name.
+So each type id must be given a unique section name with the linkonce
+prefix. Luckily \CFA already has a way to get unique names, the name mangler.
+For example, this could be written directly in \CFA:
+\begin{cfa}
+__attribute__((cfa_linkonce)) void f() {}
+\end{cfa}
+This is translated to:
+\begin{cfa}
+__attribute__((section(".gnu.linkonce._X1fFv___1"))) void _X1fFv___1() {}
+\end{cfa}
+This is done internally to access the name manglers.
+This attribute is useful for other purposes, any other place a unique
+instance required, and should eventually be made part of a public and
+stable feature in \CFA.
+\subsection{Type Information}
+There is data stored at the type id's declaration, the type information.
+Type ids can be compared for equality,
+which checks if the types reperented are the same,
+or used to access the type's type information.
 The type information currently is only the parent's type id or, if the
 type has no parent, the null pointer.
+The id's are implemented as pointers to the type's type information instance.
+Dereferencing the pointer gets the type information.
 The ancestors of a virtual type are found by traversing type ids through
 the type information.
+An example using helper macros looks like:
+The information pushes the issue of creating a unique value (for
+the type id) to the problem of creating a unique instance (for type
+information), which the linker can solve.
+The advanced linker support is used here to avoid having to create
+a new declaration to attach this data to.
+With C/\CFA's header/implementation file divide for something to appear
+exactly once it must come from a declaration that appears in exactly one
+implementation file; the declarations in header files may exist only once
+they can be included in many different translation units.
+Therefore, structure's declaration will not work.
+Neither will attaching the type information to the virtual table -- although
+a vtable declarations are in implemention files they are not unique, see
+\autoref{ss:VirtualTable}.
+Instead the same type information is generated multiple times and then
+the new attribute \snake{cfa_linkone} is used to removed duplicates.
+Type information is constructed as follows:
+\begin{enumerate}
+\item
+Use the type's name to generate a name for the type information structure.
+This is saved so it may be reused.
+\item
+Generate a new structure definition to store the type
+information. The layout is the same in each case, just the parent's type id,
+but the types used change from instance to instance.
+The generated name is used for both this structure and, if relivant, the
+parent pointer.
+If the virtual type is polymorphic then the type information structure is
+polymorphic as well, with the same polymorphic arguments.
+\item
+A seperate name for instances is generated from the type's name.
+\item
+The definition is generated and initialised.
+The parent id is set to the null pointer or to the address of the parent's
+type information instance. Name resolution handles the rest.
+\item
+\CFA's name mangler does its regular name mangling encoding the type of
+the declaration into the instance name. This gives a completely unique name
+including different instances of the same polymorphic type.
+\end{enumerate}
+\todo{The list is making me realise, some of this isn't ordered.}
+Writing that code manually, with helper macros for the early name mangling,
+would look like this:
 \begin{cfa}
 struct INFO_TYPE(TYPE) {
 …
 \end{cfa}
-Type information is constructed as follows:
-\begin{enumerate}[nosep]
-\item
-Use the type's name to generate a name for the type information structure,
-which is saved so it can be reused.
-\item
-Generate a new structure definition to store the type
-information. The layout is the same in each case, just the parent's type id,
-but the types used change from instance to instance.
-The generated name is used for both this structure and, if relevant, the
-parent pointer.
-If the virtual type is polymorphic then the type information structure is
-polymorphic as well, with the same polymorphic arguments.
-\item
-A separate name for instances is generated from the type's name.
-\item
-The definition is generated and initialized.
-The parent id is set to the null pointer or to the address of the parent's
-type information instance. Name resolution handles the rest.
-\item
-\CFA's name mangler does its regular name mangling encoding the type of
-the declaration into the instance name.
-This process gives a completely unique name
-including different instances of the same polymorphic type.
-\end{enumerate}
-Writing that code manually, with helper macros for the early name mangling,
-would look like this:
-\begin{cfa}
-struct INFO_TYPE(TYPE) {
-        INFO_TYPE(PARENT) const * parent;
-};
-__attribute__((cfa_linkonce))
-INFO_TYPE(TYPE) const INFO_NAME(TYPE) = {
-        &INFO_NAME(PARENT),
-};
-\end{cfa}
-\begin{comment}
 \subsubsection{\lstinline{cfa\_linkonce} Attribute}
 % I just realized: This is an extension of the inline keyword.
+% I just realised: This is an extension of the inline keyword.
 % An extension of C's at least, it is very similar to C++'s.
 Another feature added to \CFA is a new attribute: \texttt{cfa\_linkonce}.
 …
 everything that comes after the special prefix, then only one is used
 and the other is discarded.
-\end{comment}
 \subsection{Virtual Table}
 …
 below.
+The layout always comes in three parts (see \autoref{f:VirtualTableLayout}).
+The layout always comes in three parts.
+\todo{Add labels to the virtual table layout figure.}
 The first section is just the type id at the head of the table. It is always
 there to ensure that it can be found even when the accessing code does not
 …
 The second section are all the virtual members of the parent, in the same
 order as they appear in the parent's virtual table. Note that the type may
 change slightly as references to the ``this" change. This is limited to
+change slightly as references to the ``this" will change. This is limited to
 inside pointers/references and via function pointers so that the size (and
 hence the offsets) are the same.
 …
 \begin{figure}
-\begin{center}
 \input{vtable-layout}
-\end{center}
 \caption{Virtual Table Layout}
 \label{f:VirtualTableLayout}
+\todo*{Improve the Virtual Table Layout diagram.}
 \end{figure}
 …
 type's alignment, is set using an @alignof@ expression.
+Most of these tools are already inside the compiler. Using simple
+code transformations early on in compilation, allows most of that work to be
+handed off to the existing tools. \autoref{f:VirtualTableTransformation}
+shows an example transformation, this example shows an exception virtual table.
+It also shows the transformation on the full declaration.
+For a forward declaration, the @extern@ keyword is preserved and the
+initializer is not added.
+\begin{figure}[htb]
+\begin{cfa}
+vtable(example_type) example_name;
+\end{cfa}
+\transformline
+% Check mangling.
+\begin{cfa}
+const struct example_type_vtable example_name = {
+        .__cfavir_typeid : &__cfatid_example_type,
+        .size : sizeof(example_type),
+        .copy : copy,
+        .^?{} : ^?{},
+        .msg : msg,
+};
+\end{cfa}
+\caption{Virtual Table Transformation}
+\label{f:VirtualTableTransformation}
+\end{figure}
+\subsection{Concurrency Integration}
+\subsubsection{Concurrency Integration}
 Coroutines and threads need instances of @CoroutineCancelled@ and
 @ThreadCancelled@ respectively to use all of their functionality. When a new
 …
 at the definition of the main function.
+These transformations are shown through code re-writing in
+\autoref{f:CoroutineTypeTransformation} and
+\autoref{f:CoroutineMainTransformation}.
+Threads use the same pattern, with some names and types changed.
+In both cases, the original declaration is not modified,
+This is showned through code re-writing in
+\autoref{f:ConcurrencyTypeTransformation} and
+\autoref{f:ConcurrencyMainTransformation}.
+In both cases the original declaration is not modified,
 only new ones are added.
 \begin{figure}[htb]
+\begin{figure}
 \begin{cfa}
 coroutine Example {
 …
 extern CoroutineCancelled_vtable & _default_vtable;
 \end{cfa}
 \caption{Coroutine Type Transformation}
 \label{f:CoroutineTypeTransformation}
+\caption{Concurrency Type Transformation}
+\label{f:ConcurrencyTypeTransformation}
 \end{figure}
 \begin{figure}[htb]
+\begin{figure}
 \begin{cfa}
 void main(Example & this) {
 …
         &_default_vtable_object_declaration;
 \end{cfa}
 \caption{Coroutine Main Transformation}
 \label{f:CoroutineMainTransformation}
+\caption{Concurrency Main Transformation}
+\label{f:ConcurrencyMainTransformation}
 \end{figure}
 …
 \begin{cfa}
 void * __cfa__virtual_cast(
+        struct __cfavir_type_id * parent,
+        struct __cfavir_type_id * const * child );
+\end{cfa}
+The type id for the target type of the virtual cast is passed in as
+@parent@ and
+        struct __cfavir_type_td parent,
+        struct __cfavir_type_id const * child );
+\end{cfa}
+The type id of target type of the virtual cast is passed in as @parent@ and
 the cast target is passed in as @child@.
+The generated C code wraps both arguments and the result with type casts.
+For generated C code wraps both arguments and the result with type casts.
 There is also an internal check inside the compiler to make sure that the
 target type is a virtual type.
 …
 \section{Exceptions}
+% The implementation of exception types.
+Creating exceptions can roughly divided into two parts,
+the exceptions themselves and the virtual system interactions.
+Creating an exception type is just a matter of prepending the field
+with the virtual table pointer to the list of the fields
+(see \autoref{f:ExceptionTypeTransformation}).
+\begin{figure}[htb]
+\begin{cfa}
+exception new_exception {
+        // EXISTING FIELDS
+};
+\end{cfa}
+\transformline
+\begin{cfa}
+struct new_exception {
+        struct new_exception_vtable const * virtual_table;
+        // EXISTING FIELDS
+};
+\end{cfa}
+\caption{Exception Type Transformation}
+\label{f:ExceptionTypeTransformation}
+\end{figure}
+The integration between exceptions and the virtual system is a bit more
+complex simply because of the nature of the virtual system prototype.
+The primary issue is that the virtual system has no way to detect when it
+should generate any of its internal types and data. This is handled by
+the exception code, which tells the virtual system when to generate
+its components.
+All types associated with a virtual type,
+the types of the virtual table and the type id,
+are generated when the virtual type (the exception) is first found.
+The type id (the instance) is generated with the exception, if it is
+a monomorphic type.
+However, if the exception is polymorphic, then a different type id has to
+be generated for every instance. In this case, generation is delayed
+until a virtual table is created.
+% There are actually some problems with this, which is why it is not used
+% for monomorphic types.
+When a virtual table is created and initialized, two functions are created
+to fill in the list of virtual members.
+The first is a copy function that adapts the exception's copy constructor
+to work with pointers, avoiding some issues with the current copy constructor
+interface.
+Second is the msg function that returns a C-string with the type's name,
+including any polymorphic parameters.
+% Anything about exception construction.
 \section{Unwinding}
 …
 stack. On function entry and return, unwinding is handled directly by the
 call/return code embedded in the function.
+% Discussing normal stack unwinding:
+In many cases, the position of the instruction pointer (relative to parameter
+and local declarations) is enough to know the current size of the stack
+frame.
 Usually, the stack-frame size is known statically based on parameter and
 local variable declarations. Even for a dynamic stack-size, the information
+local variable declarations. Even with dynamic stack-size, the information
 to determine how much of the stack has to be removed is still contained
 within the function.
 …
 bumping the hardware stack-pointer up or down as needed.
 Constructing/destructing values within a stack frame has
+a similar complexity but larger constants.
+% Discussing multiple frame stack unwinding:
+a similar complexity but can add additional work and take longer.
 Unwinding across multiple stack frames is more complex because that
 information is no longer contained within the current function.
+With separate compilation,
+a function does not know its callers nor their frame layout.
+Even using the return address, that information is encoded in terms of
+actions in code, intermixed with the actions required finish the function.
+Without changing the main code path it is impossible to select one of those
+two groups of actions at the return site.
+With seperate compilation a function has no way of knowing what its callers
+are so it can't know how large those frames are.
+Without altering the main code path it is also hard to pass that work off
+to the caller.
 The traditional unwinding mechanism for C is implemented by saving a snap-shot
 …
 This approach is fragile and requires extra work in the surrounding code.
 With respect to the extra work in the surrounding code,
+With respect to the extra work in the surounding code,
 many languages define clean-up actions that must be taken when certain
 sections of the stack are removed. Such as when the storage for a variable
+is removed from the stack, possibly requiring a destructor call,
+or when a try statement with a finally clause is
+is removed from the stack or when a try statement with a finally clause is
 (conceptually) popped from the stack.
 None of these cases should be handled by the user --- that would contradict the
+None of these should be handled by the user --- that would contradict the
 intention of these features --- so they need to be handled automatically.
 …
 In plain C (which \CFA currently compiles down to) this
 flag only handles the cleanup attribute:
-%\label{code:cleanup}
 \begin{cfa}
 void clean_up( int * var ) { ... }
 …
 in this case @clean_up@, run when the variable goes out of scope.
 This feature is enough to mimic destructors,
 but not try statements that affect
+but not try statements which can effect
 the unwinding.
 To get full unwinding support, all of these features must be handled directly
 in assembly and assembler directives; particularly the cfi directives
+in assembly and assembler directives; partiularly the cfi directives
 \snake{.cfi_lsda} and \snake{.cfi_personality}.
 …
 @_UA_FORCE_UNWIND@ specifies a forced unwind call. Forced unwind only performs
 the cleanup phase and uses a different means to decide when to stop
 (see \autoref{s:ForcedUnwind}).
+(see \vref{s:ForcedUnwind}).
 \end{enumerate}
 The @exception_class@ argument is a copy of the
 \code{C}{exception}'s @exception_class@ field,
 which is a number that identifies the EHM
+which is a number that identifies the exception handling mechanism
 that created the exception.
 …
 needs its own exception context.
 The current exception context should be retrieved by calling the function
+The exception context should be retrieved by calling the function
 \snake{this_exception_context}.
 For sequential execution, this function is defined as
 …
 The first step of a termination raise is to copy the exception into memory
 managed by the exception system. Currently, the system uses @malloc@, rather
 than reserved memory or the stack top. The EHM manages
+than reserved memory or the stack top. The exception handling mechanism manages
 memory for the exception as well as memory for libunwind and the system's own
 per-exception storage.
 …
 \newsavebox{\stackBox}
 \begin{lrbox}{\codeBox}
 \begin{cfa}
+\begin{lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]
 unsigned num_exceptions = 0;
 void throws() {
 …
     throws();
+}
 \end{cfa}
+\end{lstlisting}
 \end{lrbox}
 \begin{lrbox}{\stackBox}
 \begin{lstlisting}
 | finally block (Example)
 | try block
+| try-finally
+| try-catch (Example)
 throws()
 | finally block (Example)
 | try block
+| try-finally
+| try-catch (Example)
 throws()
 | finally block (Example)
 | try block
+| try-finally
+| try-catch (Example)
 throws()
 main()
 …
 \label{f:MultipleExceptions}
 \end{figure}
+\todo*{Work on multiple exceptions code sample.}
 All exceptions are stored in nodes, which are then linked together in lists
 …
 \subsection{Try Statements and Catch Clauses}
 The try statement with termination handlers is complex because it must
 compensate for the C code-generation versus proper
+compensate for the C code-generation versus
 assembly-code generated from \CFA. Libunwind
 requires an LSDA and personality function for control to unwind across a
 function. The LSDA in particular is hard to mimic in generated C code.
 The workaround is a function called \snake{__cfaehm_try_terminate} in the
+standard \CFA library. The contents of a try block and the termination
+handlers are converted into nested functions. These are then passed to the
 try terminate function and it calls them, appropriately.
+The workaround is a function called @__cfaehm_try_terminate@ in the standard
+library. The contents of a try block and the termination handlers are converted
+into functions. These are then passed to the try terminate function and it
+calls them.
 Because this function is known and fixed (and not an arbitrary function that
 happens to contain a try statement), its LSDA can be generated ahead
+happens to contain a try statement), the LSDA can be generated ahead
 of time.
+Both the LSDA and the personality function for \snake{__cfaehm_try_terminate}
+are set ahead of time using
+Both the LSDA and the personality function are set ahead of time using
 embedded assembly. This assembly code is handcrafted using C @asm@ statements
 and contains
 enough information for the single try statement the function represents.
+enough information for a single try statement the function repersents.
 The three functions passed to try terminate are:
 …
 decides if a catch clause matches the termination exception. It is constructed
 from the conditional part of each handler and runs each check, top to bottom,
+in turn, to see if the exception matches this handler.
+The match is performed in two steps, first a virtual cast is used to check
+if the raised exception is an instance of the declared exception type or
+one of its descendant types, and then the condition is evaluated, if
+present.
+The match function takes a pointer to the exception and returns 0 if the
+in turn, first checking to see if the exception type matches and then if the
+condition is true. It takes a pointer to the exception and returns 0 if the
 exception is not handled here. Otherwise the return value is the id of the
 handler that matches the exception.
 …
 All three functions are created with GCC nested functions. GCC nested functions
 can be used to create closures,
+in other words,
+functions that can refer to variables in their lexical scope even
+those variables are part of a different function.
+This approach allows the functions to refer to all the
+in other words functions that can refer to the state of other
+functions on the stack. This approach allows the functions to refer to all the
 variables in scope for the function containing the @try@ statement. These
 nested functions and all other functions besides @__cfaehm_try_terminate@ in
 …
 \autoref{f:TerminationTransformation} shows the pattern used to transform
+a \CFA try statement with catch clauses into the appropriate C functions.
+a \CFA try statement with catch clauses into the approprate C functions.
+\todo{Explain the Termination Transformation figure.}
 \begin{figure}
 …
 \caption{Termination Transformation}
 \label{f:TerminationTransformation}
+\todo*{Improve (compress?) Termination Transformations.}
 \end{figure}
 …
 Instead of storing the data in a special area using assembly,
 there is just a linked list of possible handlers for each stack,
 with each node on the list representing a try statement on the stack.
+with each node on the list reperenting a try statement on the stack.
 The head of the list is stored in the exception context.
 …
 to the head of the list.
 Instead of traversing the stack, resumption handling traverses the list.
 At each node, the EHM checks to see if the try statement the node represents
+At each node, the EHM checks to see if the try statement the node repersents
 can handle the exception. If it can, then the exception is handled and
 the operation finishes, otherwise the search continues to the next node.
 If the search reaches the end of the list without finding a try statement
+with a handler clause
+that can handle the exception, the default handler is executed.
+If the default handler returns, control continues after the raise statement.
+that can handle the exception, the default handler is executed and the
+operation finishes.
 Each node has a handler function that does most of the work.
 The handler function is passed the raised exception and returns true
 if the exception is handled and false otherwise.
 The handler function checks each of its internal handlers in order,
 top-to-bottom, until it funds a match. If a match is found that handler is
 …
 If no match is found the function returns false.
 The match is performed in two steps, first a virtual cast is used to see
+if the raised exception is an instance of the declared exception type or one
+of its descendant types, if so then it is passed to the custom predicate
+if one is defined.
+% You need to make sure the type is correct before running the predicate
+% because the predicate can depend on that.
+if the thrown exception is an instance of the declared exception or one of
+its descendant type, then check to see if passes the custom predicate if one
+is defined. This ordering gives the type guarantee used in the predicate.
 \autoref{f:ResumptionTransformation} shows the pattern used to transform
 a \CFA try statement with catchResume clauses into the appropriate
+C functions.
+a \CFA try statement with catch clauses into the approprate C functions.
+\todo{Explain the Resumption Transformation figure.}
 \begin{figure}
 …
 \caption{Resumption Transformation}
 \label{f:ResumptionTransformation}
+\todo*{Improve (compress?) Resumption Transformations.}
 \end{figure}
 …
 (see \vpageref{s:ResumptionMarking}), which ignores parts of
 the stack
+already examined, and is accomplished by updating the front of the list as
+the search continues.
+Before the handler is called at a matching node, the head of the list
+already examined, is accomplished by updating the front of the list as the
+search continues. Before the handler at a node is called, the head of the list
 is updated to the next node of the current node. After the search is complete,
 successful or not, the head of the list is reset.
 …
 been checked are not on the list while a handler is run. If a resumption is
 thrown during the handling of another resumption, the active handlers and all
 the other handlers checked up to this point are not checked again.
+the other handler checked up to this point are not checked again.
 % No paragraph?
 This structure also supports new handlers added while the resumption is being
 …
 \begin{figure}
-\centering
 \input{resumption-marking}
 \caption{Resumption Marking}
 \label{f:ResumptionMarking}
+\todo*{Label Resumption Marking to aid clarity.}
 \end{figure}
 …
 \section{Finally}
 % Uses destructors and GCC nested functions.
+%\autoref{code:cleanup}
+A finally clause is handled by converting it into a once-off destructor.
+The code inside the clause is placed into GCC nested-function
+with a unique name, and no arguments or return values.
+This nested function is
+then set as the cleanup function of an empty object that is declared at the
+beginning of a block placed around the context of the associated try
+statement (see \autoref{f:FinallyTransformation}).
+\begin{figure}
+\begin{cfa}
+try {
+        // TRY BLOCK
+} finally {
+        // FINALLY BLOCK
+}
+\end{cfa}
+\transformline
+\begin{cfa}
+{
+        void finally(void *__hook){
+                // FINALLY BLOCK
+        }
+        __attribute__ ((cleanup(finally)))
+        struct __cfaehm_cleanup_hook __finally_hook;
+        {
+                // TRY BLOCK
+        }
+}
+\end{cfa}
+\caption{Finally Transformation}
+\label{f:FinallyTransformation}
+\end{figure}
+The rest is handled by GCC.
+The TRY BLOCK
+contains the try block itself as well as all code generated for handlers.
+Once that code has completed,
+control exits the block and the empty object is cleaned
+A finally clause is placed into a GCC nested-function with a unique name,
+and no arguments or return values.
+This nested function is then set as the cleanup
+function of an empty object that is declared at the beginning of a block placed
+around the context of the associated @try@ statement.
+The rest is handled by GCC. The try block and all handlers are inside this
+block. At completion, control exits the block and the empty object is cleaned
 up, which runs the function that contains the finally code.
 …
 passed to the forced-unwind function. The general pattern of all three stop
 functions is the same: continue unwinding until the end of stack and
 then perform the appropriate transfer.
+then preform the appropriate transfer.
 For main stack cancellation, the transfer is just a program abort.

doc/theses/andrew_beach_MMath/intro.tex

-              r5a40e4e
+              rdd1cc02
 % Now take a step back and explain what exceptions are generally.
+A language's EHM is a combination of language syntax and run-time
+components that are used to construct, raise, and handle exceptions,
+including all control flow.
+Exceptions are an active mechanism for replacing passive error/return codes and return unions (Go and Rust).
 Exception handling provides dynamic inter-function control flow.
-A language's EHM is a combination of language syntax and run-time
-components that construct, raise, propagate and handle exceptions,
-to provide all of that control flow.
 There are two forms of exception handling covered in this thesis:
 termination, which acts as a multi-level return,
 and resumption, which is a dynamic function call.
+% About other works:
+Often, when this separation is not made, termination exceptions are assumed
+as they are more common and may be the only form of handling provided in
+a language.
+All types of exception handling link a raise with a handler.
+Both operations are usually language primitives, although raises can be
+treated as a primitive function that takes an exception argument.
+Handlers are more complex as they are added to and removed from the stack
+during execution, must specify what they can handle and give the code to
+handle the exception.
+Exceptions work with different execution models but for the descriptions
+that follow a simple call stack, with functions added and removed in a
+first-in-last-out order, is assumed.
+Termination exception handling searches the stack for the handler, then
+unwinds the stack to where the handler was found before calling it.
+The handler is run inside the function that defined it and when it finishes
+it returns control to that function.
+% PAB: Maybe this sentence was suppose to be deleted?
+Termination handling is much more common,
+to the extent that it is often seen as the only form of handling.
+% PAB: I like this sentence better than the next sentence.
+% This separation is uncommon because termination exception handling is so
+% much more common that it is often assumed.
+% WHY: Mention other forms of continuation and \cite{CommonLisp} here?
+Exception handling relies on the concept of nested functions to create handlers that deal with exceptions.
+\begin{center}
+\begin{tabular}[t]{ll}
+\begin{lstlisting}[aboveskip=0pt,belowskip=0pt,language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]
+void f( void (*hp)() ) {
+        hp();
+}
+void g( void (*hp)() ) {
+        f( hp );
+}
+void h( int @i@, void (*hp)() ) {
+        void @handler@() { // nested
+                printf( "%d\n", @i@ );
+        }
+        if ( i == 1 ) hp = handler;
+        if ( i > 0 ) h( i - 1, hp );
+        else g( hp );
+}
+h( 2, 0 );
+\end{lstlisting}
+&
+\raisebox{-0.5\totalheight}{\input{handler}}
+\end{tabular}
+\end{center}
+The nested function @handler@ in the second stack frame is explicitly passed to function @f@.
+When this handler is called in @f@, it uses the parameter @i@ in the second stack frame, which is accessible by an implicit lexical-link pointer.
+Setting @hp@ in @h@ at different points in the recursion, results in invoking a different handler.
+Exception handling extends this idea by eliminating explicit handler passing, and instead, performing a stack search for a handler that matches some criteria (conditional dynamic call), and calls the handler at the top of the stack.
+It is the runtime search $O(N)$ that differentiates an EHM call (raise) from normal dynamic call $O(1)$ via a function or virtual-member pointer.
+Termination exception handling searches the stack for a handler, unwinds the stack to the frame containing the matching handler, and calling the handler at the top of the stack.
 \begin{center}
 \input{termination}
 \end{center}
+Resumption exception handling searches the stack for a handler and then calls
+it without removing any other stack frames.
+The handler is run on top of the existing stack, often as a new function or
 closure capturing the context in which the handler was defined.
+After the handler has finished running it returns control to the function
 that preformed the raise, usually starting after the raise.
+Note, since the handler can reference variables in @h@, @h@ must remain on the stack for the handler call.
+After the handler returns, control continues after the lexical location of the handler in @h@ (static return)~\cite[p.~108]{Tennent77}.
+Unwinding allows recover to any previous
+function on the stack, skipping any functions between it and the
+function containing the matching handler.
+Resumption exception handling searches the stack for a handler, does \emph{not} unwind the stack to the frame containing the matching handler, and calls the handler at the top of the stack.
 \begin{center}
 \input{resumption}
 \end{center}
+After the handler returns, control continues after the resume in @f@ (dynamic return).
+Not unwinding allows fix up of the problem in @f@ by any previous function on the stack, without disrupting the current set of stack frames.
 Although a powerful feature, exception handling tends to be complex to set up
 and expensive to use
 so it is often limited to unusual or ``exceptional" cases.
 The classic example is error handling, exceptions can be used to
 remove error handling logic from the main execution path, and pay
+The classic example is error handling, where exceptions are used to
+remove error handling logic from the main execution path, while paying
 most of the cost only when the error actually occurs.
 …
 some of the underlying tools used to implement and express exception handling
 in other languages are absent in \CFA.
 Still the resulting syntax resembles that of other languages:
 \begin{cfa}
 try {
+Still the resulting basic syntax resembles that of other languages:
+\begin{lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]
+@try@ {
         ...
         T * object = malloc(request_size);
         if (!object) {
                 throw OutOfMemory{fixed_allocation, request_size};
+                @throw@ OutOfMemory{fixed_allocation, request_size};
+        }
         ...
 } catch (OutOfMemory * error) {
+} @catch@ (OutOfMemory * error) {
         ...
+}
 \end{cfa}
+\end{lstlisting}
 % A note that yes, that was a very fast overview.
 The design and implementation of all of \CFA's EHM's features are
 …
 % The current state of the project and what it contributes.
+All of these features have been implemented in \CFA,
+covering both changes to the compiler and the run-time.
+In addition, a suite of test cases and performance benchmarks were created
+along side the implementation.
+The implementation techniques are generally applicable in other programming
+The majority of the \CFA EHM is implemented in \CFA, except for a small amount of assembler code.
+In addition,
+a suite of tests and performance benchmarks were created as part of this project.
+The \CFA implementation techniques are generally applicable in other programming
 languages and much of the design is as well.
+Some parts of the EHM use other features unique to \CFA and would be
+harder to replicate in other programming languages.
+Some parts of the EHM use features unique to \CFA, and hence,
+are harder to replicate in other programming languages.
+% Talk about other programming languages.
+Three well known programming languages with EHMs, %/exception handling
+C++, Java and Python are examined in the performance work. However, these languages focus on termination
+exceptions, so there is no comparison with resumption.
 The contributions of this work are:
 \begin{enumerate}
 \item Designing \CFA's exception handling mechanism, adapting designs from
 other programming languages and creating new features.
 \item Implementing stack unwinding and the \CFA EHM, including updating
 the \CFA compiler and the run-time environment.
 \item Designed and implemented a prototype virtual system.
+other programming languages, and creating new features.
+\item Implementing stack unwinding for the \CFA EHM, including updating
+the \CFA compiler and run-time environment to generate and execute the EHM code.
+\item Designing and implementing a prototype virtual system.
 % I think the virtual system and per-call site default handlers are the only
 % "new" features, everything else is a matter of implementation.
+\item Creating tests to check the behaviour of the EHM.
+\item Creating benchmarks to check the performances of the EHM,
+as compared to other languages.
+\item Creating tests and performance benchmarks to compare with EHM's in other languages.
 \end{enumerate}
+The rest of this thesis is organized as follows.
 The current state of exceptions is covered in \autoref{s:background}.
 The existing state of \CFA is also covered in \autoref{c:existing}.
 New EHM features are introduced in \autoref{c:features},
+%\todo{I can't figure out a good lead-in to the roadmap.}
+The thesis is organization as follows.
+The next section and parts of \autoref{c:existing} cover existing EHMs.
+New \CFA EHM features are introduced in \autoref{c:features},
 covering their usage and design.
 That is followed by the implementation of these features in
 \autoref{c:implement}.
+Performance results are examined in \autoref{c:performance}.
+Possibilities to extend this project are discussed in \autoref{c:future}.
+Finally, the project is summarized in \autoref{c:conclusion}.
+Performance results are presented in \autoref{c:performance}.
+Summing up and possibilities for extending this project are discussed in \autoref{c:future}.
 \section{Background}
 \label{s:background}
 Exception handling has been examined before in programming languages,
 with papers on the subject dating back 70s.\cite{Goodenough75}
+Exception handling is a well examined area in programming languages,
+with papers on the subject dating back the 70s~\cite{Goodenough75}.
 Early exceptions were often treated as signals, which carried no information
+except their identity.
+Ada originally used this system\cite{Ada}, but now allows for a string
+message as a payload\cite{Ada12}.
+except their identity. Ada~\cite{Ada} still uses this system.
 The modern flag-ship for termination exceptions is \Cpp,
 which added them in its first major wave of non-object-orientated features
 in 1990.\cite{CppHistory}
+Many EHMs have special exception types,
+however \Cpp has the ability to use any type as an exception.
+These were found to be not very useful and have been pushed aside for classes
 inheriting from
+in 1990.
+% https://en.cppreference.com/w/cpp/language/history
+While many EHMs have special exception types,
+\Cpp has the ability to use any type as an exception.
+However, this generality is not particularly useful, and has been pushed aside for classes, with a convention of inheriting from
 \code{C++}{std::exception}.
+Although there is a special catch-all syntax (@catch(...)@) there are no
+operations that can be performed on the caught value, not even type inspection.
+Instead the base exception-type \code{C++}{std::exception} defines common
+functionality (such as
+the ability to describe the reason the exception was raised) and all
+While \Cpp has a special catch-all syntax @catch(...)@, there is no way to discriminate its exception type, so nothing can
+be done with the caught value because nothing is known about it.
+Instead the base exception-type \code{C++}{std::exception} is defined with common functionality (such as
+the ability to print a message when the exception is raised but not caught) and all
 exceptions have this functionality.
+That trade-off, restricting usable types to gain guaranteed functionality,
+is almost universal now, as without some common functionality it is almost
+impossible to actually handle any errors.
+Java was the next popular language to use exceptions.\cite{Java8}
+Its exception system largely reflects that of \Cpp, except that requires
+you throw a child type of \code{Java}{java.lang.Throwable}
+Having a root exception-type seems to be the standard now, as the guaranteed functionality is worth
+any lost in flexibility from limiting exceptions types to classes.
+Java~\cite{Java} was the next popular language to use exceptions.
+Its exception system largely reflects that of \Cpp, except it requires
+exceptions to be a subtype of \code{Java}{java.lang.Throwable}
 and it uses checked exceptions.
+Checked exceptions are part of a function's interface,
+the exception signature of the function.
+Every function that could be raised from a function, either directly or
+because it is not handled from a called function, is given.
+Using this information, it is possible to statically verify if any given
+exception is handled and guarantee that no exception will go unhandled.
+Making exception information explicit improves clarity and safety,
+but can slow down or restrict programming.
+For example, programming high-order functions becomes much more complex
+if the argument functions could raise exceptions.
+However, as odd it may seem, the worst problems are rooted in the simple
+inconvenience of writing and updating exception signatures.
+This has caused Java programmers to develop multiple programming ``hacks''
+to circumvent checked exceptions, negating their advantages.
+One particularly problematic example is the ``catch-and-ignore'' pattern,
+where an empty handler is used to handle an exception without doing any
+recovery or repair. In theory that could be good enough to properly handle
+the exception, but more often is used to ignore an exception that the
+programmer does not feel is worth the effort of handling it, for instance if
+they do not believe it will ever be raised.
+If they are incorrect the exception will be silenced, while in a similar
+situation with unchecked exceptions the exception would at least activate
+the language's unhandled exception code (usually program abort with an
+error message).
+Checked exceptions are part of a function's interface defining all exceptions it or its called functions raise.
+Using this information, it is possible to statically verify if a handler exists for all raised exception, \ie no uncaught exceptions.
+Making exception information explicit, improves clarity and
+safety, but can slow down programming.
+For example, programming complexity increases when dealing with high-order methods or an overly specified
+throws clause. However some of the issues are more
+programming annoyances, such as writing/updating many exception signatures after adding or remove calls.
+Java programmers have developed multiple programming ``hacks'' to circumvent checked exceptions negating the robustness it is suppose to provide.
+For example, the ``catch-and-ignore" pattern, where the handler is empty because the exception does not appear relevant to the programmer versus
+repairing or recovering from the exception.
 %\subsection
 Resumption exceptions are less popular,
+although resumption is as old as termination; hence, few
+although resumption is as old as termination;
+hence, few
 programming languages have implemented them.
 % http://bitsavers.informatik.uni-stuttgart.de/pdf/xerox/parc/techReports/
 %   CSL-79-3_Mesa_Language_Manual_Version_5.0.pdf
 Mesa is one programming language that did.\cite{Mesa} Experience with Mesa
 is quoted as being one of the reasons resumptions were not
+Mesa~\cite{Mesa} is one programming languages that did. Experience with Mesa
+is quoted as being one of the reasons resumptions are not
 included in the \Cpp standard.
 % https://en.wikipedia.org/wiki/Exception_handling
+Since then resumptions have been ignored in main-stream programming languages.
+However, resumption is being revisited in the context of decades of other
+developments in programming languages.
+While rejecting resumption may have been the right decision in the past,
+the situation has changed since then.
+Some developments, such as the function programming equivalent to resumptions,
+algebraic effects\cite{Zhang19}, are enjoying success.
+A complete reexamination of resumptions is beyond this thesis,
+but there reemergence is enough to try them in \CFA.
+As a result, resumption has ignored in main-stream programming languages.
+However, ``what goes around comes around'' and resumption is being revisited now (like user-level threading).
+While rejecting resumption might have been the right decision in the past, there are decades
+of developments in computer science that have changed the situation.
+Some of these developments, such as functional programming's resumption
+equivalent, algebraic effects\cite{Zhang19}, are enjoying significant success.
+A complete reexamination of resumptions is beyond this thesis, but their re-emergence is
+enough to try them in \CFA.
 % Especially considering how much easier they are to implement than
 % termination exceptions and how much Peter likes them.
 %\subsection
 Functional languages tend to use other solutions for their primary error
 handling mechanism, but exception-like constructs still appear.
 Termination appears in the error construct, which marks the result of an
 expression as an error; then the result of any expression that tries to use
 it also results in an error, and so on until an appropriate handler is reached.
+% termination exceptions.
+%\subsection
+Functional languages tend to use other solutions for their primary EHM,
+but exception-like constructs still appear.
+Termination appears in error construct, which marks the result of an
+expression as an error; thereafter, the result of any expression that tries to use it is also an
+error, and so on until an appropriate handler is reached.
 Resumption appears in algebraic effects, where a function dispatches its
 side-effects to its caller for handling.
 %\subsection
+More recently exceptions seem to be vanishing from newer programming
 languages, replaced by ``panic".
 In Rust, a panic is just a program level abort that may be implemented by
 unwinding the stack like in termination exception
+handling.\cite{RustPanicMacro}\cite{RustPanicModule}
 Go's panic through is very similar to a termination, except it only supports
+Some programming languages have moved to a restricted kind of EHM
+called ``panic".
+In Rust~\cite{Rust}, a panic is just a program level abort that may be implemented by
+unwinding the stack like in termination exception handling.
+% https://doc.rust-lang.org/std/panic/fn.catch_unwind.html
+In Go~\cite{Go}, a panic is very similar to a termination, except it only supports
 a catch-all by calling \code{Go}{recover()}, simplifying the interface at
 the cost of flexibility.\cite{Go:2021}
+the cost of flexibility.
 %\subsection
 While exception handling's most common use cases are in error handling,
 here are some other ways to handle errors with comparisons with exceptions.
+here are other ways to handle errors with comparisons to exceptions.
 \begin{itemize}
 \item\emph{Error Codes}:
+This pattern has a function return an enumeration (or just a set of fixed
+values) to indicate if an error has occurred and possibly which error it was.
+Error codes mix exceptional/error and normal values, enlarging the range of
+possible return values. This can be addressed with multiple return values
+(or a tuple) or a tagged union.
+However, the main issue with error codes is forgetting to check them,
+This pattern has a function return an enumeration (or just a set of fixed values) to indicate
+if an error occurred and possibly which error it was.
+Error codes mix exceptional and normal values, artificially enlarging the type and/or value range.
+Some languages address this issue by returning multiple values or a tuple, separating the error code from the function result.
+However, the main issue with error codes is forgetting to checking them,
 which leads to an error being quietly and implicitly ignored.
+Some new languages and tools will try to issue warnings when an error code
+is discarded to avoid this problem.
+Checking error codes also bloats the main execution path,
+especially if the error is not handled immediately hand has to be passed
+through multiple functions before it is addressed.
+Some new languages have tools that issue warnings, if the error code is
+discarded to avoid this problem.
+Checking error codes also results in bloating the main execution path, especially if an error is not dealt with locally and has to be cascaded down the call stack to a higher-level function..
 \item\emph{Special Return with Global Store}:
+Similar to the error codes pattern but the function itself only returns
+that there was an error
+and store the reason for the error in a fixed global location.
+For example many routines in the C standard library will only return some
+error value (such as -1 or a null pointer) and the error code is written into
+the standard variable @errno@.
+This approach avoids the multiple results issue encountered with straight
+error codes but otherwise has the same disadvantages and more.
+Every function that reads or writes to the global store must agree on all
+possible errors and managing it becomes more complex with concurrency.
+Some functions only return a boolean indicating success or failure
+and store the exact reason for the error in a fixed global location.
+For example, many C routines return non-zero or -1, indicating success or failure,
+and write error details into the C standard variable @errno@.
+This approach avoids the multiple results issue encountered with straight error codes
+but otherwise has many (if not more) of the disadvantages.
+For example, everything that uses the global location must agree on all possible errors and global variable are unsafe with concurrency.
 \item\emph{Return Union}:
 …
 so that one type can be used everywhere in error handling code.
 This pattern is very popular in any functional or semi-functional language
 with primitive support for tagged unions (or algebraic data types).
 % We need listing Rust/rust to format code snippets from it.
+This pattern is very popular in functional or any semi-functional language with
+primitive support for tagged unions (or algebraic data types).
+% We need listing Rust/rust to format code snipits from it.
 % Rust's \code{rust}{Result<T, E>}
 The main advantage is that an arbitrary object can be used to represent an
 error so it can include a lot more information than a simple error code.
+The disadvantages include that the it does have to be checked along the main
+execution and if there aren't primitive tagged unions proper usage can be
 hard to enforce.
+The main advantage is providing for more information about an
+error, other than one of a fix-set of ids.
+While some languages use checked union access to force error-code checking,
+it is still possible to bypass the checking.
+The main disadvantage is again significant error code on the main execution path and cascading through called functions.
 \item\emph{Handler Functions}:
 This pattern associates errors with functions.
 On error, the function that produced the error calls another function to
+This pattern implicitly associates functions with errors.
+On error, the function that produced the error implicitly calls another function to
 handle it.
 The handler function can be provided locally (passed in as an argument,
 either directly as as a field of a structure/object) or globally (a global
 variable).
+C++ uses this approach as its fallback system if exception handling fails,
+such as \snake{std::terminate_handler} and, for a time,
+\snake{std::unexpected_handler}.
+Handler functions work a lot like resumption exceptions,
+but without the dynamic search for a handler.
+Since setting up the handler can be more complex/expensive,
+especially when the handler has to be passed through multiple layers of
+function calls, but cheaper (constant time) to call,
+they are more suited to more frequent (less exceptional) situations.
+C++ uses this approach as its fallback system if exception handling fails, \eg
+\snake{std::terminate_handler} and for a time \snake{std::unexpected_handler}
+Handler functions work a lot like resumption exceptions, without the dynamic handler search.
+Therefore, setting setting up the handler can be more complex/expensive, especially if the handle must be passed through multiple function calls, but cheaper to call $O(1)$, and hence,
+are more suited to frequent exceptional situations.
+% The exception being global handlers if they are rarely change as the time
+% in both cases shrinks towards zero.
 \end{itemize}
 %\subsection
 Because of their cost, exceptions are rarely used for hot paths of execution.
+Hence, there is an element of self-fulfilling prophecy as implementation
+techniques have been focused on making them cheap to set-up,
+happily making them expensive to use in exchange.
+This difference is less important in higher-level scripting languages,
+where using exception for other tasks is more common.
+An iconic example is Python's
+\code{Python}{StopIteration}\cite{PythonExceptions} exception that
+is thrown by an iterator to indicate that it is exhausted.
+When paired with Python's iterator-based for-loop this will be thrown every
+time the end of the loop is reached.\cite{PythonForLoop}
+Therefore, there is an element of self-fulfilling prophecy for implementation
+techniques to make exceptions cheap to set-up at the cost
+of expensive usage.
+This cost differential is less important in higher-level scripting languages, where use of exceptions for other tasks is more common.
+An iconic example is Python's @StopIteration@ exception that is thrown by
+an iterator to indicate that it is exhausted, especially when combined with Python's heavy
+use of the iterator-based for-loop.
+% https://docs.python.org/3/library/exceptions.html#StopIteration

doc/theses/andrew_beach_MMath/performance.tex

-              r5a40e4e
+              rdd1cc02
 \label{c:performance}
+Performance is of secondary importance for most of this project.
+Instead, the focus was to get the features working. The only performance
+requirement is to ensure the tests for correctness run in a reasonable
+amount of time. Hence, a few basic performance tests were performed to
+check this requirement.
+Performance has been of secondary importance for most of this project.
+Instead, the focus has been to get the features working. The only performance
+requirements is to ensure the tests for correctness run in a reasonable
+amount of time.
 \section{Test Set-Up}
 Tests were run in \CFA, C++, Java and Python.
+Tests will be run in \CFA, C++, Java and Python.
 In addition there are two sets of tests for \CFA,
 one with termination and one with resumption.
+one for termination exceptions and once with resumption exceptions.
 C++ is the most comparable language because both it and \CFA use the same
 framework, libunwind.
 In fact, the comparison is almost entirely in quality of implementation.
 Specifically, \CFA's EHM has had significantly less time to be optimized and
+In fact, the comparison is almost entirely a quality of implementation
+comparison. \CFA's EHM has had significantly less time to be optimized and
 does not generate its own assembly. It does have a slight advantage in that
 \Cpp has to do some extra bookkeeping to support its utility functions,
 but otherwise \Cpp should have a significant advantage.
 Java, a popular language with similar termination semantics,
 is implemented in a very different environment, a virtual machine with
+there are some features it does not handle, through utility functions,
+but otherwise \Cpp has a significant advantage.
+Java is another very popular language with similar termination semantics.
+It is implemented in a very different environment, a virtual machine with
 garbage collection.
 It also implements the finally clause on try blocks allowing for a direct
 feature-to-feature comparison.
 As with \Cpp, Java's implementation is mature, has more optimizations
 and extra features as compared to \CFA.
 Python is used as an alternative comparison because of the \CFA EHM's
 current performance goals, which is to not be prohibitively slow while the
+As with \Cpp, Java's implementation is more mature, has more optimizations
+and more extra features.
+Python was used as a point of comparison because of the \CFA EHM's
+current performance goals, which is not be prohibitively slow while the
 features are designed and examined. Python has similar performance goals for
 creating quick scripts and its wide use suggests it has achieved those goals.
 Unfortunately, there are no notable modern programming languages with
 resumption exceptions. Even the older programming languages with resumption
 seem to be notable only for having resumption.
+Instead, resumption is compared to its simulation in other programming
 languages: fixup functions that are explicitly passed into a function.
 All tests are run inside a main loop that repeatedly performs a test.
 This approach avoids start-up or tear-down time from
+Unfortunately there are no notable modern programming languages with
+resumption exceptions. Even the older programming languages with resumptions
+seem to be notable only for having resumptions.
+So instead resumptions are compared to a less similar but much more familiar
+feature, termination exceptions.
+All tests are run inside a main loop which will perform the test
+repeatedly. This is to avoids start-up or tear-down time from
 affecting the timing results.
+The number of times the loop is run is configurable from the command line;
+the number used in the timing runs is given with the results per test.
+The Java tests run the main loop 1000 times before
+beginning the actual test to ``warm-up" the JVM.
+% All other languages are precompiled or interpreted.
+Tests ran their main loop a million times.
+The Java versions of the test also run this loop an extra 1000 times before
+beginning to time the results to ``warm-up" the JVM.
 Timing is done internally, with time measured immediately before and
+after the test loop. The difference is calculated and printed.
+immediately after the test loop. The difference is calculated and printed.
 The loop structure and internal timing means it is impossible to test
 unhandled exceptions in \Cpp and Java as that would cause the process to
 …
 critical.
+The exceptions used in these tests are always based off of
+the base exception for the language.
+This requirement minimizes performance differences based
+on the object model used to represent the exception.
+All tests are designed to be as minimal as possible, while still preventing
+excessive optimizations.
+The exceptions used in these tests will always be a exception based off of
+the base exception. This requirement minimizes performance differences based
+on the object model used to repersent the exception.
+All tests were designed to be as minimal as possible while still preventing
+exessive optimizations.
 For example, empty inline assembly blocks are used in \CFA and \Cpp to
 prevent excessive optimizations while adding no actual work.
 …
 % \code{C++}{catch(...)}).
-When collecting data, each test is run eleven times. The top three and bottom
-three results are discarded and the remaining five values are averaged.
-The test are run with the latest (still pre-release) \CFA compiler,
-using gcc-10 10.3.0 as a backend.
-g++-10 10.3.0 is used for \Cpp.
-Java tests are complied and run with version 11.0.11.
-Python used version 3.8.10.
-The machines used to run the tests are:
-\begin{itemize}[nosep]
-\item ARM 2280 Kunpeng 920 48-core 2$\times$socket
-      \lstinline{@} 2.6 GHz running Linux v5.11.0-25
-\item AMD 6380 Abu Dhabi 16-core 4$\times$socket
-      \lstinline{@} 2.5 GHz running Linux v5.11.0-25
-\end{itemize}
-Representing the two major families of hardware architecture.
 \section{Tests}
 The following tests were selected to test the performance of different
 components of the exception system.
+They should provide a guide as to where the EHM's costs are found.
+\paragraph{Stack Traversal}
+This group measures the cost of traversing the stack,
+(and in termination, unwinding it).
+Inside the main loop is a call to a recursive function.
+This function calls itself F times before raising an exception.
+F is configurable from the command line, but is usually 100.
+This builds up many stack frames, and any contents they may have,
+before the raise.
+The exception is always handled at the base of the stack.
+For example the Empty test for \CFA resumption looks like:
+\begin{cfa}
+void unwind_empty(unsigned int frames) {
+        if (frames) {
+                unwind_empty(frames - 1);
+        } else {
+                throwResume (empty_exception){&empty_vt};
+        }
+}
+\end{cfa}
+Other test cases have additional code around the recursive call adding
+something besides simple stack frames to the stack.
+Note that both termination and resumption have to traverse over
+the stack but only termination has to unwind it.
+\begin{itemize}[nosep]
+% \item None:
+% Reuses the empty test code (see below) except that the number of frames
+% is set to 0 (this is the only test for which the number of frames is not
+% 100). This isolates the start-up and shut-down time of a throw.
+\item Empty:
+The should provide a guide as to where the EHM's costs can be found.
+\paragraph{Raise and Handle}
+The first group of tests involve setting up
+So there is three layers to the test. The first is set up and a loop, which
+configures the test and then runs it repeatedly to reduce the impact of
+start-up and shutdown on the results.
+Each iteration of the main loop
+\begin{itemize}[nosep]
+\item Empty Function:
 The repeating function is empty except for the necessary control code.
-As other traversal tests add to this, it is the baseline for the group
-as the cost comes from traversing over and unwinding a stack frame
-that has no other interactions with the exception system.
 \item Destructor:
 The repeating function creates an object with a destructor before calling
 itself.
-Comparing this to the empty test gives the time to traverse over and
-unwind a destructor.
 \item Finally:
 The repeating function calls itself inside a try block with a finally clause
 attached.
-Comparing this to the empty test gives the time to traverse over and
-unwind a finally clause.
 \item Other Handler:
 The repeating function calls itself inside a try block with a handler that
+does not match the raised exception, but is of the same kind of handler.
+This means that the EHM has to check each handler, and continue
+over all of them until it reaches the base of the stack.
+Comparing this to the empty test gives the time to traverse over and
+unwind a handler.
+will not match the raised exception. (But is of the same kind of handler.)
 \end{itemize}
 \paragraph{Cross Try Statement}
 This group of tests measures the cost for setting up exception handling,
+if it is
 not used (because the exceptional case did not occur).
+Tests repeatedly cross (enter, execute and leave) a try statement but never
 perform a raise.
+The next group measures the cost of a try statement when no exceptions are
+raised. The test is set-up, then there is a loop to reduce the impact of
+start-up and shutdown on the results.
+In each iteration, a try statement is executed. Entering and leaving a loop
+is all the test wants to do.
 \begin{itemize}[nosep]
 \item Handler:
 The try statement has a handler (of the appropriate kind).
+The try statement has a handler (of the matching kind).
 \item Finally:
 The try statement has a finally clause.
 …
 \paragraph{Conditional Matching}
 This group measures the cost of conditional matching.
+This group of tests checks the cost of conditional matching.
 Only \CFA implements the language level conditional match,
 the other languages mimic it with an ``unconditional" match (it still
 checks the exception's type) and conditional re-raise if it is not supposed
+the other languages must mimic with an ``unconditional" match (it still
+checks the exception's type) and conditional re-raise if it was not supposed
 to handle that exception.
-Here is the pattern shown in \CFA and \Cpp. Java and Python use the same
-pattern as \Cpp, but with their own syntax.
-\begin{minipage}{0.45\textwidth}
-\begin{cfa}
-try {
-        ...
-} catch (exception_t * e ;
-                should_catch(e)) {
-        ...
+}
-\end{cfa}
-\end{minipage}
-\begin{minipage}{0.55\textwidth}
-\begin{lstlisting}[language=C++]
-try {
-        ...
-} catch (std::exception & e) {
-        if (!should_catch(e)) throw;
-        ...
+}
-\end{lstlisting}
-\end{minipage}
 \begin{itemize}[nosep]
 \item Match All:
 …
 \end{itemize}
-\paragraph{Resumption Simulation}
-A slightly altered version of the Empty Traversal test is used when comparing
-resumption to fix-up routines.
-The handler, the actual resumption handler or the fix-up routine,
-always captures a variable at the base of the loop,
-and receives a reference to a variable at the raise site, either as a
-field on the exception or an argument to the fix-up routine.
-% I don't actually know why that is here but not anywhere else.
 %\section{Cost in Size}
 %Using exceptions also has a cost in the size of the executable.
 …
 \section{Results}
+% First, introduce the tables.
+\autoref{t:PerformanceTermination},
+\autoref{t:PerformanceResumption}
+and~\autoref{t:PerformanceFixupRoutines}
+show the test results.
+In cases where a feature is not supported by a language, the test is skipped
+for that language and the result is marked N/A.
+There are also cases where the feature is supported but measuring its
+cost is impossible. This happened with Java, which uses a JIT that optimize
+away the tests and it cannot be stopped.\cite{Dice21}
+These tests are marked N/C.
+To get results in a consistent range (1 second to 1 minute is ideal,
+going higher is better than going low) N, the number of iterations of the
+main loop in each test, is varied between tests. It is also given in the
+results and has a value in the millions.
+An anomaly in some results came from \CFA's use of gcc nested functions.
+These nested functions are used to create closures that can access stack
+variables in their lexical scope.
+However, if they do so, then they can cause the benchmark's run-time to
+increase by an order of magnitude.
+The simplest solution is to make those values global variables instead
+of function local variables.
+% Do we know if editing a global inside nested function is a problem?
+Tests that had to be modified to avoid this problem have been marked
+with a ``*'' in the results.
+% Now come the tables themselves:
+% You might need a wider window for this.
+\begin{table}[htb]
+\centering
+\caption{Termination Performance Results (sec)}
+\label{t:PerformanceTermination}
+\begin{tabular}{|r|*{2}{|r r r r|}}
+\hline
+                       & \multicolumn{4}{c||}{AMD}         & \multicolumn{4}{c|}{ARM}  \\
+\cline{2-9}
+N\hspace{8pt}          & \multicolumn{1}{c}{\CFA} & \multicolumn{1}{c}{\Cpp} & \multicolumn{1}{c}{Java} & \multicolumn{1}{c||}{Python} &
+                         \multicolumn{1}{c}{\CFA} & \multicolumn{1}{c}{\Cpp} & \multicolumn{1}{c}{Java} & \multicolumn{1}{c|}{Python} \\
+\hline
+Empty Traversal (1M)   & 3.4   & 2.8   & 18.3  & 23.4      & 3.7   & 3.2   & 15.5  & 14.8  \\
+D'tor Traversal (1M)   & 48.4  & 23.6  & N/A   & N/A       & 64.2  & 29.0  & N/A   & N/A   \\
+Finally Traversal (1M) & 3.4*  & N/A   & 17.9  & 29.0      & 4.1*  & N/A   & 15.6  & 19.0  \\
+Other Traversal (1M)   & 3.6*  & 23.2  & 18.2  & 32.7      & 4.0*  & 24.5  & 15.5  & 21.4  \\
+Cross Handler (1B)     & 6.0   & 0.9   & N/C   & 37.4      & 10.0  & 0.8   & N/C   & 32.2  \\
+Cross Finally (1B)     & 0.9   & N/A   & N/C   & 44.1      & 0.8   & N/A   & N/C   & 37.3  \\
+Match All (10M)        & 32.9  & 20.7  & 13.4  & 4.9       & 36.2  & 24.5  & 12.0  & 3.1   \\
+Match None (10M)       & 32.7  & 50.3  & 11.0  & 5.1       & 36.3  & 71.9  & 12.3  & 4.2   \\
+Each test was run eleven times. The top three and bottom three results were
+discarded and the remaining five values are averaged.
+In cases where a feature is not supported by a language the test is skipped
+for that language. Similarly, if a test is does not change between resumption
+and termination in \CFA, then only one test is written and the result
+was put into the termination column.
+% Raw Data:
+% run-algol-a.sat
+% ---------------
+% Raise Empty   &  82687046678 &  291616256 &   3252824847 & 15422937623 & 14736271114 \\
+% Raise D'tor   & 219933199603 &  297897792 & 223602799362 &         N/A &         N/A \\
+% Raise Finally & 219703078448 &  298391745 &          N/A &         ... & 18923060958 \\
+% Raise Other   & 296744104920 & 2854342084 & 112981255103 & 15475924808 & 21293137454 \\
+% Cross Handler &      9256648 &   13518430 &       769328 &     3486252 &    31790804 \\
+% Cross Finally &       769319 &        N/A &          N/A &     2272831 &    37491962 \\
+% Match All     &   3654278402 &   47518560 &   3218907794 &  1296748192 &   624071886 \\
+% Match None    &   4788861754 &   58418952 &   9458936430 &  1318065020 &   625200906 \\
+%
+% run-algol-thr-c
+% ---------------
+% Raise Empty   &   3757606400 &   36472972 &   3257803337 & 15439375452 & 14717808642 \\
+% Raise D'tor   &  64546302019 &  102148375 & 223648121635 &         N/A &         N/A \\
+% Raise Finally &  64671359172 &  103285005 &          N/A & 15442729458 & 18927008844 \\
+% Raise Other   & 294143497130 & 2630130385 & 112969055576 & 15448220154 & 21279953424 \\
+% Cross Handler &      9646462 &   11955668 &       769328 &     3453707 &    31864074 \\
+% Cross Finally &       773412 &        N/A &          N/A &     2253825 &    37266476 \\
+% Match All     &   3719462155 &   43294042 &   3223004977 &  1286054154 &   623887874 \\
+% Match None    &   4971630929 &   55311709 &   9481225467 &  1310251289 &   623752624 \\
+\begin{tabular}{|l|c c c c c|}
+\hline
+              & \CFA (Terminate) & \CFA (Resume) & \Cpp & Java & Python \\
+\hline
+Raise Empty   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Raise D'tor   & 0.0 & 0.0 & 0.0 & N/A & N/A \\
+Raise Finally & 0.0 & 0.0 & N/A & 0.0 & 0.0 \\
+Raise Other   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Cross Handler & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Cross Finally & 0.0 & N/A & N/A & 0.0 & 0.0 \\
+Match All     & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Match None    & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
 \hline
 \end{tabular}
+\end{table}
+\begin{table}[htb]
+\centering
+\caption{Resumption Performance Results (sec)}
+\label{t:PerformanceResumption}
+\begin{tabular}{|r||r||r|}
+\hline
+N\hspace{8pt}
+                        & AMD     & ARM  \\
+\hline
+Empty Traversal (10M)   & 0.2     & 0.3  \\
+D'tor Traversal (10M)   & 1.8     & 1.0  \\
+Finally Traversal (10M) & 1.7     & 1.0  \\
+Other Traversal (10M)   & 22.6    & 25.9 \\
+Cross Handler (1B)      & 8.4     & 11.9 \\
+Match All (100M)        & 2.3     & 3.2  \\
+Match None (100M)       & 2.9     & 3.9  \\
+% run-plg7a-a.sat
+% ---------------
+% Raise Empty   &  57169011329 &  296612564 &   2788557155 & 17511466039 & 23324548496 \\
+% Raise D'tor   & 150599858014 &  318443709 & 149651693682 &         N/A &         N/A \\
+% Raise Finally & 148223145000 &  373325807 &          N/A &         ... & 29074552998 \\
+% Raise Other   & 189463708732 & 3017109322 &  85819281694 & 17584295487 & 32602686679 \\
+% Cross Handler &      8001654 &   13584858 &      1555995 &     6626775 &    41927358 \\
+% Cross Finally &      1002473 &        N/A &          N/A &     4554344 &    51114381 \\
+% Match All     &   3162460860 &   37315018 &   2649464591 &  1523205769 &   742374509 \\
+% Match None    &   4054773797 &   47052659 &   7759229131 &  1555373654 &   744656403 \\
+%
+% run-plg7a-thr-a
+% ---------------
+% Raise Empty   &   3604235388 &   29829965 &   2786931833 & 17576506385 & 23352975105 \\
+% Raise D'tor   &  46552380948 &  178709605 & 149834207219 &         N/A &         N/A \\
+% Raise Finally &  46265157775 &  177906320 &          N/A & 17493045092 & 29170962959 \\
+% Raise Other   & 195659245764 & 2376968982 &  86070431924 & 17552979675 & 32501882918 \\
+% Cross Handler &    397031776 &   12503552 &      1451225 &     6658628 &    42304965 \\
+% Cross Finally &      1136746 &        N/A &          N/A &     4468799 &    46155817 \\
+% Match All     &   3189512499 &   39124453 &   2667795989 &  1525889031 &   733785613 \\
+% Match None    &   4094675477 &   48749857 &   7850618572 &  1566713577 &   733478963 \\
+% PLG7A (in seconds)
+\begin{tabular}{|l|c c c c c|}
+\hline
+              & \CFA (Terminate) & \CFA (Resume) & \Cpp & Java & Python \\
+\hline
+% Raise Empty   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+% Raise D'tor   & 0.0 & 0.0 & 0.0 & N/A & N/A \\
+% Raise Finally & 0.0 & 0.0 & N/A & 0.0 & 0.0 \\
+% Raise Other   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+% Cross Handler & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+% Cross Finally & 0.0 & N/A & N/A & 0.0 & 0.0 \\
+% Match All     & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+% Match None    & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Raise Empty   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Raise D'tor   & 0.0 & 0.0 & 0.0 & N/A & N/A \\
+Raise Finally & 0.0 & 0.0 & N/A & 0.0 & 0.0 \\
+Raise Other   & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Cross Handler & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Cross Finally & 0.0 & N/A & N/A & 0.0 & 0.0 \\
+Match All     & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
+Match None    & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\
 \hline
 \end{tabular}
+\end{table}
+\begin{table}[htb]
+\centering
+\small
+\caption{Resumption/Fixup Routine Comparison (sec)}
+\label{t:PerformanceFixupRoutines}
+\setlength{\tabcolsep}{5pt}
+\begin{tabular}{|r|*{2}{|r r r r r|}}
+\hline
+            & \multicolumn{5}{c||}{AMD}     & \multicolumn{5}{c|}{ARM}  \\
+\cline{2-11}
+N\hspace{8pt}       & \multicolumn{1}{c}{Raise} & \multicolumn{1}{c}{\CFA} & \multicolumn{1}{c}{\Cpp} & \multicolumn{1}{c}{Java} & \multicolumn{1}{c||}{Python} &
+              \multicolumn{1}{c}{Raise} & \multicolumn{1}{c}{\CFA} & \multicolumn{1}{c}{\Cpp} & \multicolumn{1}{c}{Java} & \multicolumn{1}{c|}{Python} \\
+\hline
+Resume Empty (10M)  & 1.5 & 1.5 & 14.7 & 2.3 & 176.1  & 1.0 & 1.4 & 8.9 & 1.2 & 119.9 \\
+\hline
+\end{tabular}
+\end{table}
+% Now discuss the results in the tables.
+One result not directly related to \CFA but important to keep in mind is that,
+for exceptions, the standard intuition about which languages should go
+faster often does not hold.
+For example, there are a few cases where Python out-performs
+\CFA, \Cpp and Java.
+% To be exact, the Match All and Match None cases.
+The most likely explanation is that, since exceptions
+are rarely considered to be the common case, the more optimized languages
+make that case expensive to improve other cases.
+In addition, languages with high-level representations have a much
+easier time scanning the stack as there is less to decode.
+As stated,
+the performance tests are not attempting to show \CFA has a new competitive
+way of implementing exception handling.
+The only performance requirement is to insure the \CFA EHM has reasonable
+performance for prototyping.
+Although that may be hard to exactly quantify, I believe it has succeeded
+in that regard.
+Details on the different test cases follow.
+\subsection{Termination \texorpdfstring{(\autoref{t:PerformanceTermination})}{}}
+\begin{description}
+\item[Empty Traversal]
+\CFA is slower than \Cpp, but is still faster than the other languages
+and closer to \Cpp than other languages.
+This result is to be expected,
+as \CFA is closer to \Cpp than the other languages.
+\item[D'tor Traversal]
+Running destructors causes a huge slowdown in the two languages that support
+them. \CFA has a higher proportionate slowdown but it is similar to \Cpp's.
+Considering the amount of work done in destructors is effectively zero
+(an assembly comment), the cost
+must come from the change of context required to run the destructor.
+\item[Finally Traversal]
+Performance is similar to Empty Traversal in all languages that support finally
+clauses. Only Python seems to have a larger than random noise change in
+its run-time and it is still not large.
+Despite the similarity between finally clauses and destructors,
+finally clauses seem to avoid the spike that run-time destructors have.
+Possibly some optimization removes the cost of changing contexts.
+\item[Other Traversal]
+For \Cpp, stopping to check if a handler applies seems to be about as
+expensive as stopping to run a destructor.
+This results in a significant jump.
+Other languages experience a small increase in run-time.
+The small increase likely comes from running the checks,
+but they could avoid the spike by not having the same kind of overhead for
+switching to the check's context.
+\item[Cross Handler]
+Here \CFA falls behind \Cpp by a much more significant margin.
+This is likely due to the fact \CFA has to insert two extra function
+calls, while \Cpp does not have to do execute any other instructions.
+Python is much further behind.
+\item[Cross Finally]
+\CFA's performance now matches \Cpp's from Cross Handler.
+If the code from the finally clause is being inlined,
+which is just an asm comment, than there are no additional instructions
+to execute again when exiting the try statement normally.
+\item[Conditional Match]
+Both of the conditional matching tests can be considered on their own.
+However for evaluating the value of conditional matching itself, the
+comparison of the two sets of results is useful.
+Consider the massive jump in run-time for \Cpp going from match all to match
+none, which none of the other languages have.
+Some strange interaction is causing run-time to more than double for doing
+twice as many raises.
+Java and Python avoid this problem and have similar run-time for both tests,
+possibly through resource reuse or their program representation.
+However \CFA is built like \Cpp and avoids the problem as well, this matches
+the pattern of the conditional match, which makes the two execution paths
+very similar.
+\end{description}
+\subsection{Resumption \texorpdfstring{(\autoref{t:PerformanceResumption})}{}}
+Moving on to resumption, there is one general note,
+resumption is \textit{fast}. The only test where it fell
+behind termination is Cross Handler.
+In every other case, the number of iterations had to be increased by a
+factor of 10 to get the run-time in an appropriate range
+and in some cases resumption still took less time.
+% I tried \paragraph and \subparagraph, maybe if I could adjust spacing
+% between paragraphs those would work.
+\begin{description}
+\item[Empty Traversal]
+See above for the general speed-up notes.
+This result is not surprising as resumption's linked-list approach
+means that traversing over stack frames without a resumption handler is
+$O(1)$.
+\item[D'tor Traversal]
+Resumption does have the same spike in run-time that termination has.
+The run-time is actually very similar to Finally Traversal.
+As resumption does not unwind the stack, both destructors and finally
+clauses are run while walking down the stack during the recursive returns.
+So it follows their performance is similar.
+\item[Finally Traversal]
+Same as D'tor Traversal,
+except termination did not have a spike in run-time on this test case.
+\item[Other Traversal]
+Traversing across handlers reduces resumption's advantage as it actually
+has to stop and check each one.
+Resumption still came out ahead (adjusting for iterations) but by much less
+than the other cases.
+\item[Cross Handler]
+The only test case where resumption could not keep up with termination,
+although the difference is not as significant as many other cases.
+It is simply a matter of where the costs come from,
+both termination and resumption have some work to set-up or tear-down a
+handler. It just so happens that resumption's work is slightly slower.
+\item[Conditional Match]
+Resumption shows a slight slowdown if the exception is not matched
+by the first handler, which follows from the fact the second handler now has
+to be checked. However the difference is not large.
+\end{description}
+\subsection{Resumption/Fixup \texorpdfstring{(\autoref{t:PerformanceFixupRoutines})}{}}
+Finally are the results of the resumption/fixup routine comparison.
+These results are surprisingly varied. It is possible that creating a closure
+has more to do with performance than passing the argument through layers of
+calls.
+At 100 stack frames, resumption and manual fixup routines have similar
+performance in \CFA.
+More experiments could try to tease out the exact trade-offs,
+but the prototype's only performance goal is to be reasonable.
+It has already in that range, and \CFA's fixup routine simulation is
+one of the faster simulations as well.
+Plus exceptions add features and remove syntactic overhead,
+so even at similar performance resumptions have advantages
+over fixup routines.
+One result that is not directly related to \CFA but is important to keep in
+mind is that in exceptions the standard intuitions about which languages
+should go faster often do not hold. There are cases where Python out-preforms
+\Cpp and Java. The most likely explination is that, since exceptions are
+rarely considered to be the common case, the more optimized langages have
+optimized at their expence. In addition languages with high level
+repersentations have a much easier time scanning the stack as there is less
+to decode.
+This means that while \CFA does not actually keep up with Python in every
+case it is no worse than roughly half the speed of \Cpp. This is good
+enough for the prototyping purposes of the project.
+One difference not shown is that optimizations in \CFA is very fragile.
+The \CFA compiler uses gcc as part of its complation process and the version
+of gcc could change the speed of some of the benchmarks by 10 times or more.
+Similar changes to g++ for the \Cpp benchmarks had no significant changes.
+Because of the connection between gcc and g++; this suggests it is not the
+optimizations that are changing but how the optimizer is detecting if the
+optimizations can be applied. So the optimizations are always applied in
+g++, but only newer versions of gcc can detect that they can be applied in
+the more complex \CFA code.
+Resumption exception handling is also incredibly fast. Often an order of
+magnitude or two better than the best termination speed.
+There is a simple explination for this; traversing a linked list is much
+faster than examining and unwinding the stack. When resumption does not do as
+well its when more try statements are used per raise. Updating the interal
+linked list is not very expencive but it does add up.
+The relative speed of the Match All and Match None tests (within each
+language) can also show the effectiveness conditional matching as compared
+to catch and rethrow.
+\begin{itemize}[nosep]
+\item
+Java and Python get similar values in both tests.
+Between the interperated code, a higher level repersentation of the call
+stack and exception reuse it it is possible the cost for a second
+throw can be folded into the first.
+% Is this due to optimization?
+\item
+Both types of \CFA are slighly slower if there is not a match.
+For termination this likely comes from unwinding a bit more stack through
+libunwind instead of executing the code normally.
+For resumption there is extra work in traversing more of the list and running
+more checks for a matching exceptions.
+% Resumption is a bit high for that but this is my best theory.
+\item
+Then there is \Cpp, which takes 2--3 times longer to catch and rethrow vs.
+just the catch. This is very high, but it does have to repeat the same
+process of unwinding the stack and may have to parse the LSDA of the function
+with the catch and rethrow twice, once before the catch and once after the
+rethrow.
+% I spent a long time thinking of what could push it over twice, this is all
+% I have to explain it.
+\end{itemize}
+The difference in relative performance does show that there are savings to
+be made by performing the check without catching the exception.

doc/theses/andrew_beach_MMath/resumption-marking.fig

-              r5a40e4e
+              rdd1cc02
 -2
 2
+5985 1530 6165 3105
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6075 1620 90 90 6075 1620 6075 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6075 2340 90 90 6075 2340 6075 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6075 3015 90 90 6075 3015 6075 3105
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 6075 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 6075 2925
+-6
+3465 1530 3645 3105
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3555 1620 90 90 3555 1620 3555 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3555 2340 90 90 3555 2340 3555 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3555 3015 90 90 3555 3015 3555 3105
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 3555 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 3555 2925
+-6
+2115 1530 2295 3105
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2205 1620 90 90 2205 1620 2205 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2205 2340 90 90 2205 2340 2205 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2205 3015 90 90 2205 3015 2205 3105
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 2205 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 2205 2925
+-6
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 4905 1620 90 90 4905 1620 4905 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 4905 3015 90 90 4905 3015 4905 3105
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 4905 945 90 90 4905 945 4905 1035
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 4905 2340 90 90 4905 2340 4905 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1665 1620 90 90 1665 1620 1665 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1665 2340 90 90 1665 2340 1665 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1665 3060 90 90 1665 3060 1665 3150
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3195 1620 90 90 3195 1620 3195 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3195 2340 90 90 3195 2340 3195 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 3195 3060 90 90 3195 3060 3195 3150
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6525 1620 90 90 6525 1620 6525 1710
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6525 2340 90 90 6525 2340 6525 2430
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 4905 3060 90 90 4905 3060 4905 3150
+3 0 1 0 7 50 -1 -1 0.000 1 0.0000 6525 3060 90 90 6525 3060 6525 3150
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1620 2430 1620
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2340 3735 2340
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1620 6300 1620
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+945 5130 945
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
 1 1.00 60.00 120.00
 …
 1 1.00 60.00 120.00
 1080 4590 1260 4590 2070 4770 2250
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 1665 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 1665 2925
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 3195 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 3195 2925
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1755 6525 2205
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2475 6525 2925
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1620 1485 1620
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1440 1755 1440
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+2340 3015 2340
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1620 3375 1620
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+945 4725 945
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+765 5040 765
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1620 6345 1620
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+1 1.00 60.00 120.00
+1440 6615 1440
+1 0 50 -1 0 12 0.0000 0 135 1170 1665 3375 Initial State\001
+1 0 50 -1 0 12 0.0000 0 135 1170 3195 3375 Found Handler\001
+1 0 50 -1 0 12 0.0000 0 165 1530 6570 3375 Handling Complete\001
+2 0 50 -1 0 12 0.0000 0 135 720 1485 2385 handlers\001
+1 0 50 -1 0 12 0.0000 0 135 900 4905 3375 Handler in\001
+1 0 50 -1 0 12 0.0000 0 165 810 4905 3600 Try block\001
+0 0 50 -1 0 12 0.0000 0 135 360 855 1665 head\001
+0 0 50 -1 0 12 0.0000 4 120 810 2025 1485 execution\001
+0 0 50 -1 0 12 0.0000 0 135 360 2385 2385 head\001
+0 0 50 -1 0 12 0.0000 4 120 810 3645 1665 execution\001
+0 0 50 -1 0 12 0.0000 0 135 360 4095 990 head\001
+0 0 50 -1 0 12 0.0000 4 120 810 5310 810 execution\001
+0 0 50 -1 0 12 0.0000 0 135 360 5715 1665 head\001
+0 0 50 -1 0 12 0.0000 4 120 810 6885 1485 execution\001
+0 0 50 -1 0 12 0.0000 4 135 1170 1980 3375 Initial State\001
+0 0 50 -1 0 12 0.0000 4 135 1170 3420 3375 Found Handler\001
+0 0 50 -1 0 12 0.0000 4 165 810 4770 3375 Try block\001
+0 0 50 -1 0 12 0.0000 4 135 900 4770 3555 in Handler\001
+0 0 50 -1 0 12 0.0000 4 165 1530 5940 3375 Handling Complete\001

doc/theses/andrew_beach_MMath/uw-ethesis-frontpgs.tex

-              r5a40e4e
+              rdd1cc02
 \begin{center}\textbf{Abstract}\end{center}
+The \CFA (Cforall) programming language is an evolutionary refinement of
+the C programming language, adding modern programming features without
+changing the programming paradigms of C.
+One of these modern programming features is more powerful error handling
+through the addition of an exception handling mechanism (EHM).
+This thesis covers the design and implementation of the \CFA EHM,
+along with a review of the other required \CFA features.
+The EHM includes common features of termination exception handling and
+similar support for resumption exception handling.
+The design of both has been adapted to utilize other tools \CFA provides,
+as well as fit with the assertion based interfaces of the language.
+The EHM has been implemented into the \CFA compiler and run-time environment.
+Although it has not yet been optimized, performance testing has shown it has
+comparable performance to other EHM's,
+which is sufficient for use in current \CFA programs.
+This is the abstract.
 \cleardoublepage
 …
 \begin{center}\textbf{Acknowledgements}\end{center}
+I would like to thank all the people who made this thesis possible.
+(I'm waiting until who is involved is finalized.)
+I would like to thank all the little people who made this thesis possible.
 \cleardoublepage

doc/theses/andrew_beach_MMath/uw-ethesis.bib

-              r5a40e4e
+              rdd1cc02
 % Bibliography of key references for "LaTeX for Thesis and Large Documents"
 % For use with BibTeX
-% The online reference does not seem to be supported here.
+@misc{Dice21,
+    author      = {Dave Dice},
+    year        = 2021,
+    month       = aug,
+    howpublished= {personal communication}
+@book{goossens.book,
+        author =        "Michel Goossens and Frank Mittelbach and
+                         Alexander Samarin",
+        title =         "The \LaTeX\ Companion",
+        year =          "1994",
+        publisher =     "Addison-Wesley",
+        address =       "Reading, Massachusetts"
+}
+@misc{CforallExceptionBenchmarks,
+    contributer = {pabuhr@plg},
+    key         = {Cforall Exception Benchmarks},
+    author      = {{\textsf{C}{$\mathbf{\forall}$} Exception Benchmarks}},
+    howpublished= {\href{https://github.com/cforall/ExceptionBenchmarks_SPE20}{https://\-github.com/\-cforall/\-ExceptionBenchmarks\_SPE20}},
+@book{knuth.book,
+        author =        "Donald Knuth",
+        title =         "The \TeX book",
+        year =          "1986",
+        publisher =     "Addison-Wesley",
+        address =       "Reading, Massachusetts"
+}
+% Could not get `#the-for-statement` to work.
+@misc{PythonForLoop,
+    author={Python Software Foundation},
+    key={Python Compound Statements},
+    howpublished={\href{https://docs.python.org/3/reference/compound_stmts.html}{https://\-docs.python.org/\-3/\-reference/\-compound\_stmts.html}},
+    addendum={Accessed 2021-08-30},
+@book{lamport.book,
+        author =        "Leslie Lamport",
+        title =         "\LaTeX\ --- A Document Preparation System",
+        edition =       "Second",
+        year =          "1994",
+        publisher =     "Addison-Wesley",
+        address =       "Reading, Massachusetts"
+}
-% Again, I would like this to have `#StopIteration`.
-@misc{PythonExceptions,
-    author={Python Software Foundation},
-    key={Python Exceptions},
-    howpublished={\href{https://docs.python.org/3/library/exceptions.html}{https://\-docs.python.org/\-3/\-library/\-exceptions.html}},
-    addendum={Accessed 2021-08-30},
+}
-@misc{CppHistory,
-    author={C++ Community},
-    key={Cpp Reference History},
-    howpublished={\href{https://en.cppreference.com/w/cpp/language/history}{https://\-en.cppreference.com/\-w/\-cpp/\-language/\-history}},
-    addendum={Accessed 2021-08-30},
+}
-@misc{RustPanicMacro,
-    author={The Rust Team},
-    key={Rust Panic Macro},
-    howpublished={\href{https://doc.rust-lang.org/std/panic/index.html}{https://\-doc.rust-lang.org/\-std/\-panic/\-index.html}},
-    addendum={Accessed 2021-08-31},
+}
-@misc{RustPanicModule,
-    author={The Rust Team},
-    key={Rust Panic Module},
-    howpublished={\href{https://doc.rust-lang.org/std/panic/index.html}{https://\-doc.rust-lang.org/\-std/\-panic/\-index.html}},
-    addendum={Accessed 2021-08-31},
+}
-@manual{Go:2021,
-    keywords={Go programming language},
-    author={Robert Griesemer and Rob Pike and Ken Thompson},
-    title={{Go} Programming Language},
-    organization={Google},
-    year=2021,
-    note={\href{http://golang.org/ref/spec}{http://\-golang.org/\-ref/\-spec}},
-    addendum={Accessed 2021-08-31},
+}

doc/theses/andrew_beach_MMath/uw-ethesis.tex

r5a40e4e	rdd1cc02
210	210	\lstMakeShortInline@
211	211	\lstset{language=CFA,style=cfacommon,basicstyle=\linespread{0.9}\tt}
	212	% PAB causes problems with inline @=
	213	%\lstset{moredelim=**[is][\protect\color{red}]{@}{@}}
212	214	% Annotations from Peter:
213	215	\newcommand{\PAB}[1]{{\color{blue}PAB: #1}}

doc/theses/andrew_beach_MMath/vtable-layout.fig

-              r5a40e4e
+              rdd1cc02
 -2
 2
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 1
+1665
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2
 1890 3645 1755
 …
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2
 1305 3645 1755
-1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2
-1935 2250 1935
-1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 4
-1170 2115 1170 2115 2475 2250 2475
-1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2
-1350 2115 1350
 0 0 50 -1 0 12 0.0000 4 165 630 2295 1305 type_id\001
 0 0 50 -1 0 12 0.0000 4 165 1170 2295 1500 parent_field0\001

libcfa/prelude/builtins.c

-              r5a40e4e
+              rdd1cc02
 // Created On       : Fri Jul 21 16:21:03 2017
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sat Aug 14 08:45:54 2021
 // Update Count     : 133
+// Last Modified On : Wed Jul 21 13:31:34 2021
+// Update Count     : 129
 //
 …
 #endif // __SIZEOF_INT128__
-// for-control index constraints
-// forall( T | { void ?{}( T &, zero_t ); void ?{}( T &, one_t ); T ?+=?( T &, T ); T ?-=?( T &, T ); int ?<?( T, T ); } )
-// static inline T __for_control_index_constraints__( T t ) { return t; }
 // exponentiation operator implementation

libcfa/src/Makefile.am

-              r5a40e4e
+              rdd1cc02
         math.hfa \
         time_t.hfa \
-        bits/algorithm.hfa \
         bits/align.hfa \
         bits/containers.hfa \
 …
         memory.hfa \
         parseargs.hfa \
-        parseconfig.hfa \
         rational.hfa \
         stdlib.hfa \
 …
         containers/pair.hfa \
         containers/result.hfa \
-        containers/string.hfa \
-        containers/string_res.hfa \
         containers/vector.hfa \
         device/cpu.hfa
 …
 libsrc = ${inst_headers_src} ${inst_headers_src:.hfa=.cfa} \
         assert.cfa \
+        bits/algorithm.hfa \
         bits/debug.cfa \
         exception.c \
 …
         concurrency/invoke.h \
         concurrency/future.hfa \
+        concurrency/kernel/fwd.hfa \
+        concurrency/mutex_stmt.hfa
+        concurrency/kernel/fwd.hfa
 inst_thread_headers_src = \

libcfa/src/concurrency/kernel/startup.cfa

-              r5a40e4e
+              rdd1cc02
         register_tls( mainProcessor );
-        mainThread->last_cpu = __kernel_getcpu();
         //initialize the global state variables
 …
         state = Start;
         self_cor{ info };
+        last_cpu = __kernel_getcpu();
         curr_cor = &self_cor;
         curr_cluster = mainCluster;

libcfa/src/concurrency/locks.hfa

-              r5a40e4e
+              rdd1cc02
+        }
+        // linear backoff bounded by spin_count
+        spin = spin_start;
+        int spin_counter = 0;
+        int yield_counter = 0;
+        for ( ;; ) {
+                if(try_lock_contention(this)) return true;
+                if(spin_counter < spin_count) {
+                        for (int i = 0; i < spin; i++) Pause();
+                        if (spin < spin_end) spin += spin;
+                        else spin_counter++;
+                } else if (yield_counter < yield_count) {
+                        // after linear backoff yield yield_count times
+                        yield_counter++;
+                        yield();
+                } else { break; }
+        }
+        // block until signalled
+        while (block(this)) if(try_lock_contention(this)) return true;
+        // this should never be reached as block(this) always returns true
+        return false;
+}
+static inline bool lock_improved(linear_backoff_then_block_lock & this) with(this) {
+        // if owner just return
+        if (active_thread() == owner) return true;
+        size_t compare_val = 0;
+        int spin = spin_start;
+        // linear backoff
+        for( ;; ) {
+                compare_val = 0;
+                if (internal_try_lock(this, compare_val)) return true;
+                if (2 == compare_val) break;
+                for (int i = 0; i < spin; i++) Pause();
+                if (spin >= spin_end) break;
+                spin += spin;
+        }
+        // linear backoff bounded by spin_count
+        spin = spin_start;
+        int spin_counter = 0;
+        int yield_counter = 0;
+        for ( ;; ) {
+                compare_val = 0;
+                if(internal_try_lock(this, compare_val)) return true;
+                if (2 == compare_val) break;
+                if(spin_counter < spin_count) {
+                        for (int i = 0; i < spin; i++) Pause();
+                        if (spin < spin_end) spin += spin;
+                        else spin_counter++;
+                } else if (yield_counter < yield_count) {
+                        // after linear backoff yield yield_count times
+                        yield_counter++;
+                        yield();
+                } else { break; }
+        }
         if(2 != compare_val && try_lock_contention(this)) return true;
         // block until signalled
 …
 static inline void on_notify(linear_backoff_then_block_lock & this, struct thread$ * t ) { unpark(t); }
 static inline size_t on_wait(linear_backoff_then_block_lock & this) { unlock(this); return 0; }
 static inline void on_wakeup(linear_backoff_then_block_lock & this, size_t recursion ) { lock(this); }
+static inline void on_wakeup(linear_backoff_then_block_lock & this, size_t recursion ) { lock_improved(this); }
 //-----------------------------------------------------------------------------

libcfa/src/concurrency/monitor.cfa

-              r5a40e4e
+              rdd1cc02
         // __cfaabi_dbg_print_safe( "MGUARD : entered\n" );
+}
-void ?{}( monitor_guard_t & this, monitor$ * m [], __lock_size_t count ) {
-        this{ m, count, 0p };
+}
 …
+}
-//-----------------------------------------------------------------------------
-// Enter routine for mutex stmt
-// Can't be accepted since a mutex stmt is effectively an anonymous routine
-// Thus we do not need a monitor group
-void lock( monitor$ * this ) {
-        thread$ * thrd = active_thread();
-        // Lock the monitor spinlock
-        lock( this->lock __cfaabi_dbg_ctx2 );
-        __cfaabi_dbg_print_safe( "Kernel : %10p Entering mon %p (%p)\n", thrd, this, this->owner);
-        if( unlikely(0 != (0x1 & (uintptr_t)this->owner)) ) {
-                abort( "Attempt by thread \"%.256s\" (%p) to access joined monitor %p.", thrd->self_cor.name, thrd, this );
+        }
-        else if( !this->owner ) {
-                // No one has the monitor, just take it
-                __set_owner( this, thrd );
-                __cfaabi_dbg_print_safe( "Kernel :  mon is free \n" );
+        }
-        else if( this->owner == thrd) {
-                // We already have the monitor, just note how many times we took it
-                this->recursion += 1;
-                __cfaabi_dbg_print_safe( "Kernel :  mon already owned \n" );
+        }
-        else {
-                __cfaabi_dbg_print_safe( "Kernel :  blocking \n" );
-                // Some one else has the monitor, wait in line for it
-                /* paranoid */ verify( thrd->link.next == 0p );
-                append( this->entry_queue, thrd );
-                /* paranoid */ verify( thrd->link.next == 1p );
-                unlock( this->lock );
-                park();
-                __cfaabi_dbg_print_safe( "Kernel : %10p Entered  mon %p\n", thrd, this);
-                /* paranoid */ verifyf( active_thread() == this->owner, "Expected owner to be %p, got %p (r: %i, m: %p)", active_thread(), this->owner, this->recursion, this );
-                return;
+        }
-        __cfaabi_dbg_print_safe( "Kernel : %10p Entered  mon %p\n", thrd, this);
-        /* paranoid */ verifyf( active_thread() == this->owner, "Expected owner to be %p, got %p (r: %i, m: %p)", active_thread(), this->owner, this->recursion, this );
-        /* paranoid */ verify( this->lock.lock );
-        // Release the lock and leave
-        unlock( this->lock );
-        return;
+}
-// Leave routine for mutex stmt
-// Is just a wrapper around __leave for the is_lock trait to see
-void unlock( monitor$ * this ) { __leave( this ); }
 // Local Variables: //
 // mode: c //

libcfa/src/concurrency/monitor.hfa

-              r5a40e4e
+              rdd1cc02
 void ?{}( monitor_guard_t & this, monitor$ ** m, __lock_size_t count, void (*func)() );
-void ?{}( monitor_guard_t & this, monitor$ ** m, __lock_size_t count );
 void ^?{}( monitor_guard_t & this );
 …
 void __waitfor_internal( const __waitfor_mask_t & mask, int duration );
-// lock and unlock routines for mutex statements to use
-void lock( monitor$ * this );
-void unlock( monitor$ * this );
 // Local Variables: //
 // mode: c //

libcfa/src/concurrency/thread.cfa

-              r5a40e4e
+              rdd1cc02
         preempted = __NO_PREEMPTION;
         corctx_flag = false;
-        disable_interrupts();
         last_cpu = __kernel_getcpu();
-        enable_interrupts();
         curr_cor = &self_cor;
         self_mon.owner = &this;

libcfa/src/fstream.cfa

-              r5a40e4e
+              rdd1cc02
 void open( ofstream & os, const char name[], const char mode[] ) {
         FILE * file = fopen( name, mode );
         // #ifdef __CFA_DEBUG__
+        #ifdef __CFA_DEBUG__
         if ( file == 0p ) {
                 throw (Open_Failure){ os };
                 // abort | IO_MSG "open output file \"" | name | "\"" | nl | strerror( errno );
         } // if
         // #endif // __CFA_DEBUG__
+        #endif // __CFA_DEBUG__
         (os){ file };
 } // open
 …
 void open( ifstream & is, const char name[], const char mode[] ) {
         FILE * file = fopen( name, mode );
         // #ifdef __CFA_DEBUG__
+        #ifdef __CFA_DEBUG__
         if ( file == 0p ) {
                 throw (Open_Failure){ is };
                 // abort | IO_MSG "open input file \"" | name | "\"" | nl | strerror( errno );
         } // if
         // #endif // __CFA_DEBUG__
+        #endif // __CFA_DEBUG__
         is.file$ = file;
 } // open

libcfa/src/heap.cfa

-              r5a40e4e
+              rdd1cc02
 // Created On       : Tue Dec 19 21:58:35 2017
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Mon Aug  9 19:03:02 2021
 // Update Count     : 1040
+// Last Modified On : Sat May 22 08:46:39 2021
+// Update Count     : 1036
 //
 …
 } // prtUnfreed
-extern int cfa_main_returned;                                                   // from bootloader.cf
 extern "C" {
         void heapAppStart() {                                                           // called by __cfaabi_appready_startup
 …
         void heapAppStop() {                                                            // called by __cfaabi_appready_startdown
                 fclose( stdin ); fclose( stdout );
                 if ( cfa_main_returned ) prtUnfreed();                  // do not check unfreed storage if exit called
+                prtUnfreed();
         } // heapAppStop
 } // extern "C"

libcfa/src/memory.cfa

-              r5a40e4e
+              rdd1cc02
 forall(T &)
-T * release(unique_ptr(T) & this) {
-        T * data = this.data;
-        this.data = 0p;
-        return data;
+}
-forall(T &)
 int ?==?(unique_ptr(T) const & this, unique_ptr(T) const & that) {
         return this.data == that.data;

libcfa/src/memory.hfa

-              r5a40e4e
+              rdd1cc02
 forall(T &)
-T * release(unique_ptr(T) & this);
-forall(T &)
 int ?==?(unique_ptr(T) const & this, unique_ptr(T) const & that);
 forall(T &)

src/AST/Convert.cpp

-              r5a40e4e
+              rdd1cc02
+        }
-        const ast::Stmt * visit( const ast::MutexStmt * node ) override final {
-                if ( inCache( node ) ) return nullptr;
-                 auto stmt = new MutexStmt(
-                        get<Statement>().accept1( node->stmt ),
-                        get<Expression>().acceptL( node->mutexObjs )
-                );
-                return stmtPostamble( stmt, node );
+        }
         TypeSubstitution * convertTypeSubstitution(const ast::TypeSubstitution * src) {
 …
+        }
-        virtual void visit( const MutexStmt * old ) override final {
-                if ( inCache( old ) ) return;
-                this->node = new ast::MutexStmt(
-                        old->location,
-                        GET_ACCEPT_1(stmt, Stmt),
-                        GET_ACCEPT_V(mutexObjs, Expr)
-                );
-                cache.emplace( old, this->node );
+        }
         // TypeSubstitution shouldn't exist yet in old.
         ast::TypeSubstitution * convertTypeSubstitution(const TypeSubstitution * old) {

src/AST/Fwd.hpp

r5a40e4e	rdd1cc02
60	60	class NullStmt;
61	61	class ImplicitCtorDtorStmt;
62		~~class MutexStmt;~~
63	62
64	63	class Expr;

src/AST/Node.cpp

r5a40e4e	rdd1cc02
176	176	template class ast::ptr_base< ast::ImplicitCtorDtorStmt, ast::Node::ref_type::weak >;
177	177	template class ast::ptr_base< ast::ImplicitCtorDtorStmt, ast::Node::ref_type::strong >;
178		~~template class ast::ptr_base< ast::MutexStmt, ast::Node::ref_type::weak >;~~
179		~~template class ast::ptr_base< ast::MutexStmt, ast::Node::ref_type::strong >;~~
180	178	template class ast::ptr_base< ast::Expr, ast::Node::ref_type::weak >;
181	179	template class ast::ptr_base< ast::Expr, ast::Node::ref_type::strong >;

src/AST/Pass.hpp

r5a40e4e	rdd1cc02
162	162	const ast::Stmt * visit( const ast::DeclStmt * ) override final;
163	163	const ast::Stmt * visit( const ast::ImplicitCtorDtorStmt * ) override final;
164		~~const ast::Stmt * visit( const ast::MutexStmt * ) override final;~~
165	164	const ast::Expr * visit( const ast::ApplicationExpr * ) override final;
166	165	const ast::Expr * visit( const ast::UntypedExpr * ) override final;

src/AST/Pass.impl.hpp

-              r5a40e4e
+              rdd1cc02
 //--------------------------------------------------------------------------
-// MutexStmt
-template< typename core_t >
-const ast::Stmt * ast::Pass< core_t >::visit( const ast::MutexStmt * node ) {
-        VISIT_START( node );
-        VISIT({
-                // mutex statements introduce a level of scope (for the initialization)
-                guard_symtab guard { *this };
-                maybe_accept( node, &MutexStmt::stmt );
-                maybe_accept( node, &MutexStmt::mutexObjs );
-        })
-        VISIT_END( Stmt, node );
+}
-//--------------------------------------------------------------------------
 // ApplicationExpr
 template< typename core_t >

src/AST/Print.cpp

-              r5a40e4e
+              rdd1cc02
                 ++indent;
                 safe_print( node->callStmt );
-                --indent;
-                os << endl;
-                return node;
+        }
-        virtual const ast::Stmt * visit( const ast::MutexStmt * node ) override final {
-                os << "Mutex Statement" << endl;
-                os << indent << "... with Mutex Parameters: ";
-                ++indent;
-                printAll( node->mutexObjs );
-                --indent;
-                os << indent << "... with Statement: ";
-                ++indent;
-                safe_print( node->stmt );
                 --indent;
                 os << endl;

src/AST/Stmt.hpp

-              r5a40e4e
+              rdd1cc02
 };
-/// Mutex Statement
-class MutexStmt final : public Stmt {
-public:
-        ptr<Stmt> stmt;
-        std::vector<ptr<Expr>> mutexObjs;
-        MutexStmt( const CodeLocation & loc, const Stmt * stmt,
-                std::vector<ptr<Expr>> && mutexes, std::vector<Label> && labels = {} )
-        : Stmt(loc, std::move(labels)), stmt(stmt), mutexObjs(std::move(mutexes)) {}
-        const Stmt * accept( Visitor & v ) const override { return v.visit( this ); }
-private:
-        MutexStmt * clone() const override { return new MutexStmt{ *this }; }
-        MUTATE_FRIEND
-};
+}

src/AST/Visitor.hpp

r5a40e4e	rdd1cc02
54	54	virtual const ast::Stmt * visit( const ast::DeclStmt * ) = 0;
55	55	virtual const ast::Stmt * visit( const ast::ImplicitCtorDtorStmt * ) = 0;
56		~~virtual const ast::Stmt * visit( const ast::MutexStmt * ) = 0;~~
57	56	virtual const ast::Expr * visit( const ast::ApplicationExpr * ) = 0;
58	57	virtual const ast::Expr * visit( const ast::UntypedExpr * ) = 0;

src/CodeGen/CodeGenerator.cc

-              r5a40e4e
+              rdd1cc02
+        }
-        void CodeGenerator::postvisit( MutexStmt * stmt ) {
-                assertf( ! options.genC, "ImplicitCtorDtorStmts should not reach code generation." );
-                stmt->stmt->accept( *visitor );
+        }
         void CodeGenerator::handleStorageClass( DeclarationWithType * decl ) {
                 if ( decl->get_storageClasses().any() ) {

src/CodeGen/CodeGenerator.h

r5a40e4e	rdd1cc02
121	121	void postvisit( DeclStmt * );
122	122	void postvisit( ImplicitCtorDtorStmt * );
123		~~void postvisit( MutexStmt * stmt );~~
124	123
125	124	void genAttributes( std::list< Attribute * > & attributes );

src/Common/CodeLocationTools.cpp

r5a40e4e	rdd1cc02
125	125	macro(DeclStmt, Stmt) \
126	126	macro(ImplicitCtorDtorStmt, Stmt) \
127		~~macro(MutexStmt, Stmt) \~~
128	127	macro(ApplicationExpr, Expr) \
129	128	macro(UntypedExpr, Expr) \

src/Common/PassVisitor.h

-              r5a40e4e
+              rdd1cc02
         virtual void visit( ImplicitCtorDtorStmt * impCtorDtorStmt ) override final;
         virtual void visit( const ImplicitCtorDtorStmt * impCtorDtorStmt ) override final;
-        virtual void visit( MutexStmt * mutexStmt ) override final;
-        virtual void visit( const MutexStmt * mutexStmt ) override final;
         virtual void visit( ApplicationExpr * applicationExpr ) override final;
 …
         virtual Statement * mutate( DeclStmt * declStmt ) override final;
         virtual Statement * mutate( ImplicitCtorDtorStmt * impCtorDtorStmt ) override final;
-        virtual Statement * mutate( MutexStmt * mutexStmt ) override final;
         virtual Expression * mutate( ApplicationExpr * applicationExpr ) override final;

src/Common/PassVisitor.impl.h

-              r5a40e4e
+              rdd1cc02
 //--------------------------------------------------------------------------
-// MutexStmt
-template< typename pass_type >
-void PassVisitor< pass_type >::visit( MutexStmt * node ) {
-        VISIT_START( node );
-        // mutex statements introduce a level of scope (for the initialization)
-        maybeAccept_impl( node->mutexObjs, *this );
+        {
-                auto guard = makeFuncGuard( [this]() { indexerScopeEnter(); }, [this]() { indexerScopeLeave(); } );
-                node->stmt = visitStatement( node->stmt );
+        }
-        VISIT_END( node );
+}
-template< typename pass_type >
-void PassVisitor< pass_type >::visit( const MutexStmt * node ) {
-        VISIT_START( node );
-        maybeAccept_impl( node->mutexObjs, *this );
+        {
-                auto guard = makeFuncGuard( [this]() { indexerScopeEnter(); }, [this]() { indexerScopeLeave(); } );
-                visitStatement( node->stmt );
+        }
-        VISIT_END( node );
+}
-template< typename pass_type >
-Statement * PassVisitor< pass_type >::mutate( MutexStmt * node ) {
-        MUTATE_START( node );
-        maybeMutate_impl( node->mutexObjs, *this );
+        {
-                auto guard = makeFuncGuard( [this]() { indexerScopeEnter(); }, [this]() { indexerScopeLeave(); } );
-                node->stmt = mutateStatement( node->stmt );
+        }
-        MUTATE_END( Statement, node );
+}
-//--------------------------------------------------------------------------
 // ApplicationExpr
 template< typename pass_type >

src/Concurrency/Keywords.cc

-              r5a40e4e
+              rdd1cc02
                 ObjectDecl * addField( StructDecl * );
                 void addRoutines( ObjectDecl *, FunctionDecl * );
-                void addLockUnlockRoutines( StructDecl * );
                 virtual bool is_target( StructDecl * decl ) = 0;
 …
                 void postvisit( FunctionDecl * decl );
                 void postvisit(   StructDecl * decl );
-                Statement * postmutate( MutexStmt * stmt );
                 std::list<DeclarationWithType*> findMutexArgs( FunctionDecl*, bool & first );
 …
                 void addDtorStatements( FunctionDecl* func, CompoundStmt *, const std::list<DeclarationWithType * > &);
                 void addStatements( FunctionDecl* func, CompoundStmt *, const std::list<DeclarationWithType * > &);
-                void addStatements( CompoundStmt * body, const std::list<Expression * > & args );
                 void addThreadDtorStatements( FunctionDecl* func, CompoundStmt * body, const std::list<DeclarationWithType * > & args );
 …
                         PassVisitor< MutexKeyword > impl;
                         acceptAll( translationUnit, impl );
-                        mutateAll( translationUnit, impl );
+                }
 …
                 StructDecl* dtor_guard_decl = nullptr;
                 StructDecl* thread_guard_decl = nullptr;
-                StructDecl* lock_guard_decl = nullptr;
                 static std::unique_ptr< Type > generic_func;
 …
+        }
         void ConcurrentSueKeyword::handle( StructDecl * decl ) {
                 if( ! decl->body ) return;
 …
                 FunctionDecl * func = forwardDeclare( decl );
                 ObjectDecl * field = addField( decl );
-                // add get_.* routine
                 addRoutines( field, func );
-                // add lock/unlock routines to monitors for use by mutex stmt
-                addLockUnlockRoutines( decl );
+        }
 …
+        }
-        // This function adds the get_.* routine body for coroutines, monitors etc
-        //              after their corresponding struct has been made
         void ConcurrentSueKeyword::addRoutines( ObjectDecl * field, FunctionDecl * func ) {
                 CompoundStmt * statement = new CompoundStmt();
 …
                 declsToAddAfter.push_back( get_decl );
+        }
-        // Generates lock/unlock routines for monitors to be used by mutex stmts
-        void ConcurrentSueKeyword::addLockUnlockRoutines( StructDecl * decl ) {
-                // this routine will be called for all ConcurrentSueKeyword children so only continue if we are a monitor
-                if ( !decl->is_monitor() ) return;
-                FunctionType * lock_fn_type = new FunctionType( noQualifiers, false );
-                FunctionType * unlock_fn_type = new FunctionType( noQualifiers, false );
-                // create this ptr parameter for both routines
-                ObjectDecl * this_decl = new ObjectDecl(
-                        "this",
-                        noStorageClasses,
-                        LinkageSpec::Cforall,
-                        nullptr,
-                        new ReferenceType(
-                                noQualifiers,
-                                new StructInstType(
-                                        noQualifiers,
-                                        decl
+                                )
-                        ),
-                        nullptr
-                );
-                lock_fn_type->get_parameters().push_back( this_decl->clone() );
-                unlock_fn_type->get_parameters().push_back( this_decl->clone() );
-                fixupGenerics(lock_fn_type, decl);
-                fixupGenerics(unlock_fn_type, decl);
-                delete this_decl;
-                //////////////////////////////////////////////////////////////////////
-                // The following generates this lock routine for all monitors
-                /*
-                        void lock (monitor_t & this) {
-                                lock(get_monitor(this));
+                        }
-                */
-                FunctionDecl * lock_decl = new FunctionDecl(
-                        "lock",
-                        Type::Static,
-                        LinkageSpec::Cforall,
-                        lock_fn_type,
-                        nullptr,
-                        { },
-                        Type::Inline
-                );
-                UntypedExpr * get_monitor_lock =  new UntypedExpr (
-                        new NameExpr( "get_monitor" ),
-                        { new VariableExpr( lock_fn_type->get_parameters().front() ) }
-                );
-                CompoundStmt * lock_statement = new CompoundStmt();
-                lock_statement->push_back(
-                        new ExprStmt(
-                                new UntypedExpr (
-                                        new NameExpr( "lock" ),
+                                        {
-                                                get_monitor_lock
+                                        }
+                                )
+                        )
-                );
-                lock_decl->set_statements( lock_statement );
-                //////////////////////////////////////////////////////////////////
-                // The following generates this routine for all monitors
-                /*
-                        void unlock (monitor_t & this) {
-                                unlock(get_monitor(this));
+                        }
-                */
-                FunctionDecl * unlock_decl = new FunctionDecl(
-                        "unlock",
-                        Type::Static,
-                        LinkageSpec::Cforall,
-                        unlock_fn_type,
-                        nullptr,
-                        { },
-                        Type::Inline
-                );
-                CompoundStmt * unlock_statement = new CompoundStmt();
-                UntypedExpr * get_monitor_unlock =  new UntypedExpr (
-                        new NameExpr( "get_monitor" ),
-                        { new VariableExpr( unlock_fn_type->get_parameters().front() ) }
-                );
-                unlock_statement->push_back(
-                        new ExprStmt(
-                                new UntypedExpr(
-                                        new NameExpr( "unlock" ),
+                                        {
-                                                get_monitor_unlock
+                                        }
+                                )
+                        )
-                );
-                unlock_decl->set_statements( unlock_statement );
-                // pushes routines to declsToAddAfter to add at a later time
-                declsToAddAfter.push_back( lock_decl );
-                declsToAddAfter.push_back( unlock_decl );
+        }
 …
                         assert( !thread_guard_decl );
                         thread_guard_decl = decl;
+                }
+                else if ( decl->name == "__mutex_stmt_lock_guard" && decl->body ) {
+                        assert( !lock_guard_decl );
+                        lock_guard_decl = decl;
+                }
+        }
+        Statement * MutexKeyword::postmutate( MutexStmt * stmt ) {
+                std::list<Statement *> stmtsForCtor;
+                stmtsForCtor.push_back(stmt->stmt);
+                CompoundStmt * body = new CompoundStmt( stmtsForCtor );
+                addStatements( body, stmt->mutexObjs);
+                return body;
+                }
+        }
 …
                         ))
                 );
+        }
-        void MutexKeyword::addStatements( CompoundStmt * body, const std::list<Expression * > & args ) {
-                ObjectDecl * monitors = new ObjectDecl(
-                        "__monitors",
-                        noStorageClasses,
-                        LinkageSpec::Cforall,
-                        nullptr,
-                        new ArrayType(
-                                noQualifiers,
-                                new PointerType(
-                                        noQualifiers,
-                                        new TypeofType( noQualifiers, args.front()->clone() )
-                                ),
-                                new ConstantExpr( Constant::from_ulong( args.size() ) ),
-                                false,
-                                false
-                        ),
-                        new ListInit(
-                                map_range < std::list<Initializer*> > ( args, [](Expression * var ){
-                                        return new SingleInit( new AddressExpr( var ) );
-                                })
+                        )
-                );
-                StructInstType * lock_guard_struct = new StructInstType( noQualifiers, lock_guard_decl );
-                TypeExpr * lock_type_expr = new TypeExpr( new TypeofType( noQualifiers, args.front()->clone() ) );
-                lock_guard_struct->parameters.push_back( lock_type_expr ) ;
-                // in reverse order :
-                // monitor_guard_t __guard = { __monitors, # };
-                body->push_front(
-                        new DeclStmt( new ObjectDecl(
-                                "__guard",
-                                noStorageClasses,
-                                LinkageSpec::Cforall,
-                                nullptr,
-                                lock_guard_struct,
-                                new ListInit(
+                                        {
-                                                new SingleInit( new VariableExpr( monitors ) ),
-                                                new SingleInit( new ConstantExpr( Constant::from_ulong( args.size() ) ) )
-                                        },
-                                        noDesignators,
-                                        true
+                                )
-                        ))
-                );
-                //monitor$ * __monitors[] = { get_monitor(a), get_monitor(b) };
-                body->push_front( new DeclStmt( monitors) );
+        }

src/MakeLibCfa.h

-              r5a40e4e
+              rdd1cc02
 class Declaration;
-namespace ast {
-        struct TranslationUnit;
+}
 namespace LibCfa {
         void makeLibCfa( std::list< Declaration* > &prelude );
-        void makeLibCfa( ast::TranslationUnit & translationUnit );
 } // namespace LibCfa

src/Makefile.am

r5a40e4e	rdd1cc02
23	23	CompilationState.h \
24	24	MakeLibCfa.cc \
25		~~MakeLibCfaNew.cpp \~~
26	25	MakeLibCfa.h
27	26

src/Parser/ExpressionNode.cc

-              r5a40e4e
+              rdd1cc02
 // Created On       : Sat May 16 13:17:07 2015
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sat Aug  7 09:18:56 2021
 // Update Count     : 1077
+// Last Modified On : Thu Aug 20 14:01:46 2020
+// Update Count     : 1076
 //
 …
         return expr;
 } // build_varref
 // TODO: get rid of this and OperKinds and reuse code from OperatorTable
 static const char * OperName[] = {                                              // must harmonize with OperKinds

src/Parser/ParseNode.h

r5a40e4e	rdd1cc02
437	437	WaitForStmt * build_waitfor_timeout( ExpressionNode * timeout, StatementNode * stmt, ExpressionNode * when, StatementNode * else_stmt, ExpressionNode * else_when );
438	438	Statement * build_with( ExpressionNode * exprs, StatementNode * stmt );
439		~~Statement * build_mutex( ExpressionNode * exprs, StatementNode * stmt );~~
440	439
441	440	//##############################################################################

src/Parser/StatementNode.cc

-              r5a40e4e
+              rdd1cc02
 } // build_directive
-Statement * build_mutex( ExpressionNode * exprs, StatementNode * stmt ) {
-        std::list< Expression * > expList;
-        buildMoveList( exprs, expList );
-        Statement * body = maybeMoveBuild<Statement>( stmt );
-        return new MutexStmt( body, expList );
-} // build_mutex
 // Local Variables: //
 // tab-width: 4 //

src/Parser/parser.yy

-              r5a40e4e
+              rdd1cc02
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sun Aug  8 09:14:44 2021
 // Update Count     : 5038
+// Last Modified On : Tue Jul 20 22:03:04 2021
+// Update Count     : 5031
 //
 …
                 type = new ExpressionNode( new CastExpr( maybeMoveBuild<Expression>(type), new BasicType( Type::Qualifiers(), BasicType::SignedInt ) ) );
         } // if
-//      type = new ExpressionNode( build_func( new ExpressionNode( build_varref( new string( "__for_control_index_constraints__" ) ) ), type ) );
         return new ForCtrl(
                 distAttr( DeclarationNode::newTypeof( type, true ), DeclarationNode::newName( index )->addInitializer( new InitializerNode( start ) ) ),
 …
 mutex_statement:
         MUTEX '(' argument_expression_list_opt ')' statement
                 { $$ = new StatementNode( build_mutex( $3, $5 ) ); }
+                { SemanticError( yylloc, "Mutex statement is currently unimplemented." ); $$ = nullptr; }
+        ;

src/SynTree/Mutator.h

r5a40e4e	rdd1cc02
58	58	virtual Statement * mutate( DeclStmt * declStmt ) = 0;
59	59	virtual Statement * mutate( ImplicitCtorDtorStmt * impCtorDtorStmt ) = 0;
60		~~virtual Statement * mutate( MutexStmt * mutexStmt ) = 0;~~
61	60
62	61	virtual Expression * mutate( ApplicationExpr * applicationExpr ) = 0;

src/SynTree/Statement.cc

-              r5a40e4e
+              rdd1cc02
+}
-MutexStmt::MutexStmt( Statement * stmt, std::list<Expression *> mutexObjs )
-        : Statement(), stmt( stmt ), mutexObjs( mutexObjs ) { }
-MutexStmt::MutexStmt( const MutexStmt & other ) : Statement( other ), stmt( maybeClone( other.stmt ) ) {
-        cloneAll( other.mutexObjs, mutexObjs );
+}
-MutexStmt::~MutexStmt() {
-        deleteAll( mutexObjs );
-        delete stmt;
+}
-void MutexStmt::print( std::ostream & os, Indenter indent ) const {
-        os << "Mutex Statement" << endl;
-        os << indent << "... with Expressions: " << endl;
-        for (auto * obj : mutexObjs) {
-                os << indent+1;
-                obj->print( os, indent+1);
-                os << endl;
+        }
-        os << indent << "... with Statement: " << endl << indent+1;
-        stmt->print( os, indent+1 );
+}
 // Local Variables: //
 // tab-width: 4 //

src/SynTree/Statement.h

-              r5a40e4e
+              rdd1cc02
 };
-class MutexStmt : public Statement {
-  public:
-        Statement * stmt;
-        std::list<Expression *> mutexObjs; // list of mutex objects to acquire
-        MutexStmt( Statement * stmt, std::list<Expression *> mutexObjs );
-        MutexStmt( const MutexStmt & other );
-        virtual ~MutexStmt();
-        virtual MutexStmt * clone() const override { return new MutexStmt( *this ); }
-        virtual void accept( Visitor & v ) override { v.visit( this ); }
-        virtual void accept( Visitor & v ) const override { v.visit( this ); }
-        virtual Statement * acceptMutator( Mutator & m )  override { return m.mutate( this ); }
-        virtual void print( std::ostream & os, Indenter indent = {} ) const override;
-};
 // Local Variables: //
 // tab-width: 4 //

src/SynTree/SynTree.h

r5a40e4e	rdd1cc02
62	62	class NullStmt;
63	63	class ImplicitCtorDtorStmt;
64		~~class MutexStmt;~~
65	64
66	65	class Expression;

src/SynTree/Visitor.h

r5a40e4e	rdd1cc02
92	92	virtual void visit( ImplicitCtorDtorStmt * node ) { visit( const_cast<const ImplicitCtorDtorStmt *>(node) ); }
93	93	virtual void visit( const ImplicitCtorDtorStmt * impCtorDtorStmt ) = 0;
94		~~virtual void visit( MutexStmt * node ) { visit( const_cast<const MutexStmt *>(node) ); }~~
95		~~virtual void visit( const MutexStmt * mutexStmt ) = 0;~~
96	94
97	95	virtual void visit( ApplicationExpr * node ) { visit( const_cast<const ApplicationExpr *>(node) ); }

src/Tuples/Tuples.h

-              r5a40e4e
+              rdd1cc02
 // Author           : Rodolfo G. Esteves
 // Created On       : Mon May 18 07:44:20 2015
 // Last Modified By : Henry Xue
 // Last Modified On : Mon Aug 23 15:36:09 2021
 // Update Count     : 19
+// Last Modified By : Andrew Beach
+// Last Modified On : Tue Jun 18 09:36:00 2019
+// Update Count     : 18
 //
 …
         /// expands z.[a, b.[x, y], c] into [z.a, z.b.x, z.b.y, z.c], inserting UniqueExprs as appropriate
         void expandMemberTuples( std::list< Declaration * > & translationUnit );
-        void expandMemberTuples( ast::TranslationUnit & translationUnit );
         /// replaces tuple-related elements, such as TupleType, TupleExpr, TupleAssignExpr, etc.

src/Tuples/module.mk

-              r5a40e4e
+              rdd1cc02
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Henry Xue
 ## Last Modified On : Mon Aug 23 15:36:09 2021
 ## Update Count     : 2
+## Last Modified By : Peter A. Buhr
+## Last Modified On : Mon Jun  1 17:54:33 2015
+## Update Count     : 1
 ###############################################################################
 …
         Tuples/TupleAssignment.cc \
         Tuples/TupleExpansion.cc \
-        Tuples/TupleExpansionNew.cpp \
         Tuples/Tuples.cc \
         Tuples/Tuples.h

src/main.cc

-              r5a40e4e
+              rdd1cc02
 // Created On       : Fri May 15 23:12:02 2015
 // Last Modified By : Henry Xue
 // Last Modified On : Mon Aug 23 15:42:08 2021
 // Update Count     : 650
+// Last Modified On : Tue Jul 20 04:27:35 2021
+// Update Count     : 658
 //
 …
                 PASS( "Fix Names", CodeGen::fixNames( translationUnit ) );
                 PASS( "Gen Init", InitTweak::genInit( translationUnit ) );
+                PASS( "Expand Member Tuples" , Tuples::expandMemberTuples( translationUnit ) );
                 if ( libcfap ) {
                         // generate the bodies of cfa library functions
 …
+                        }
                         auto transUnit = convert( move( translationUnit ) );
-                        PASS( "Expand Member Tuples" , Tuples::expandMemberTuples( transUnit ) );
                         PASS( "Resolve", ResolvExpr::resolve( transUnit ) );
                         if ( exprp ) {
 …
                         translationUnit = convert( move( transUnit ) );
                 } else {
-                        PASS( "Expand Member Tuples" , Tuples::expandMemberTuples( translationUnit ) );
                         PASS( "Resolve", ResolvExpr::resolve( translationUnit ) );
                         if ( exprp ) {

tests/.expect/declarationSpecifier.arm64.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/.expect/declarationSpecifier.x64.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/.expect/declarationSpecifier.x86.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/.expect/gccExtensions.arm64.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/.expect/gccExtensions.x64.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/.expect/gccExtensions.x86.txt

-              r5a40e4e
+              rdd1cc02
 char **_X13cfa_args_argvPPc_1;
 char **_X13cfa_args_envpPPc_1;
-signed int _X17cfa_main_returnedi_1 = ((signed int )0);
 signed int main(signed int _X4argci_1, char **_X4argvPPc_1, char **_X4envpPPc_1){
     __attribute__ ((unused)) signed int _X12_retval_maini_1;
 …
+    }
+    signed int _tmp_cp_ret6;
+    signed int _X3reti_2 = (((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6);
+    {
+        ((void)(_X17cfa_main_returnedi_1=((signed int )1)));
+    }
+    {
+        ((void)(_X12_retval_maini_1=_X3reti_2) /* ?{} */);
+    {
+        signed int _tmp_cp_ret6;
+        ((void)(_X12_retval_maini_1=(((void)(_tmp_cp_ret6=invoke_main(_X4argci_1, _X4argvPPc_1, _X4envpPPc_1))) , _tmp_cp_ret6)) /* ?{} */);
+    }

tests/Makefile.am

-              r5a40e4e
+              rdd1cc02
         pybin/tools.py \
         long_tests.hfa \
-        .in/parseconfig-all.txt \
-        .in/parseconfig-errors.txt \
-        .in/parseconfig-missing.txt \
         io/.in/io.data \
         io/.in/many_read.data \

tests/bitmanip3.cfa

-              r5a40e4e
+              rdd1cc02
 // Created On       : Tue Apr  7 21:22:59 2020
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sun Aug  8 23:12:19 2021
 // Update Count     : 76
+// Last Modified On : Mon Aug 24 09:53:26 2020
+// Update Count     : 66
 //
 …
         sout | nl | "floor2" | nl | nl;
         sout | "signed char";
+        printf( "signed char\n" );
         for ( sc = 1; sc != 0; sc <<= 1 ) {
                 scr1 = floor2( sc, sc ); scr2 = floor2( sc + 2hh, sc ); scr3 = floor2( -sc - 2hh, sc );
+//              printf( "floor2(%hhd, %hhd) = %hhd, floor2(%hhd, %hhd) = %hhd, floor2(%hhd, %hhd) = %hhd\n", sc, sc, scr1, sc + 2hh, sc, scr2, -sc - 2hh, sc, scr3 );
+                sout | "floor2(" | sc | "," | sc | ") = " | scr1 | ", floor2(" | sc + 2hh | "," | sc | ") = " | scr2 | ", floor2(" | -sc - 2hh | "," | sc | ") = " | scr3;
+        } // for
+        sout | nl;
+        sout | "unsigned char";
+                printf( "floor2(%hhd, %hhd) = %hhd, floor2(%hhd, %hhd) = %hhd, floor2(%hhd, %hhd) = %hhd\n", sc, sc, scr1, sc + 2hh, sc, scr2, -sc - 2hh, sc, scr3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned char\n" );
         for ( uc = 1; uc != 0; uc <<= 1 ) {
                 ucr1 = floor2( uc, uc ); ucr2 = floor2( uc + 2hh, uc ); ucr3 = floor2( -uc - 2hh, uc );
+//              printf( "floor2(%hhu, %hhu) = %hhu, floor2(%hhu, %hhu) = %hhu, floor2(%hhu, %hhu) = %hhu\n", uc, uc, ucr1, uc + 2uhh, uc, ucr2, -uc - 2uhh, uc, ucr3 );
+                sout | "floor2(" | uc | "," | uc | ") = " | ucr1 | ", floor2(" | uc + 2uhh | "," | uc | ") = " | ucr2 | ", floor2(" | -uc - 2uhh | "," | uc | ") = " | ucr3;
+        } // for
+        sout | nl;
+        sout | "short int";
+                printf( "floor2(%hhu, %hhu) = %hhu, floor2(%hhu, %hhu) = %hhu, floor2(%hhu, %hhu) = %hhu\n", uc, uc, ucr1, uc + 2uhh, uc, ucr2, -uc - 2uhh, uc, ucr3 );
+        } // for
+        printf( "\n" );
+        printf( "short int\n" );
         for ( si = 1; si != 0; si <<= 1 ) {
                 sir1 = floor2( si, si ); sir2 = floor2( si + 2hh, si ); sir3 = floor2( -si - 2hh, si );
+//              printf( "floor2(%hd, %hd) = %hd, floor2(%hd, %hd) = %hd, floor2(%hd, %hd) = %hd\n", si, si, sir1, si + 2h, si, sir2, -si - 2h, si, sir3 );
+                sout | "floor2(" | si | "," | si | ") = " | sir1 | ", floor2(" | si + 2h | "," | si | ") = " | sir2 | ", floor2(" | -si - 2h | "," | si | ") = " | sir3;
+        } // for
+        sout | nl;
+        sout | "unsigned short int";
+                printf( "floor2(%hd, %hd) = %hd, floor2(%hd, %hd) = %hd, floor2(%hd, %hd) = %hd\n", si, si, sir1, si + 2h, si, sir2, -si - 2h, si, sir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned short int\n" );
         for ( usi = 1; usi != 0; usi <<= 1 ) {
                 usir1 = floor2( usi, usi ); usir2 = floor2( usi + 2hh, usi ); usir3 = floor2( -usi - 2hh, usi );
+//              printf( "floor2(%hu, %hu) = %hu, floor2(%hu, %hu) = %hu, floor2(%hu, %hu) = %hu\n", usi, usi, usir1, usi + 2uh, usi, usir2, -usi - 2uh, usi, usir3 );
+                sout | "floor2(" | usi | "," | usi | ") = " | usir1 | ", floor2(" | usi + 2uh | "," | usi | ") = " | usir2 | ", floor2(" | -usi - 2uh | "," | usi | ") = " | usir3;
+        } // for
+        sout | nl;
+        sout | "int";
+                printf( "floor2(%hu, %hu) = %hu, floor2(%hu, %hu) = %hu, floor2(%hu, %hu) = %hu\n", usi, usi, usir1, usi + 2uh, usi, usir2, -usi - 2uh, usi, usir3 );
+        } // for
+        printf( "\n" );
+        printf( "int\n" );
         for ( i = 1; i != 0; i <<= 1 ) {
                 ir1 = floor2( i, i ); ir2 = floor2( i + 2hh, i ); ir3 = floor2( -i - 2hh, i );
+//              printf( "floor2(%d, %d) = %d, floor2(%d, %d) = %d, floor2(%d, %d) = %d\n", i, i, ir1, i + 2, i, ir2, -i - 2, i, ir3 );
+                sout | "floor2(" | i | "," | i | ") = " | ir1 | ", floor2(" | i + 2 | "," | i | ") = " | ir2 | ", floor2(" | -i - 2 | "," | i | ") = " | ir3;
+        } // for
+        sout | nl;
+        sout | "unsigned int";
+                printf( "floor2(%d, %d) = %d, floor2(%d, %d) = %d, floor2(%d, %d) = %d\n", i, i, ir1, i + 2h, i, ir2, -i - 2h, i, ir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned int\n" );
         for ( ui = 1; ui != 0; ui <<= 1 ) {
                 uir1 = floor2( ui, ui ); uir2 = floor2( ui + 2hh, ui ); uir3 = floor2( -ui - 2hh, ui );
+//              printf( "floor2(%u, %u) = %u, floor2(%u, %u) = %u, floor2(%u, %u) = %u\n", ui, ui, uir1, ui + 2, ui, uir2, -ui - 2, ui, uir3 );
+                sout | "floor2(" | ui | "," | ui | ") = " | uir1 | ", floor2(" | ui + 2 | "," | ui | ") = " | uir2 | ", floor2(" | -ui - 2 | "," | ui | ") = " | uir3;
+        } // for
+        sout | nl;
+        sout | "long int";
+                printf( "floor2(%u, %u) = %u, floor2(%u, %u) = %u, floor2(%u, %u) = %u\n", ui, ui, uir1, ui + 2h, ui, uir2, -ui - 2h, ui, uir3 );
+        } // for
+        printf( "\n" );
+        printf( "long int\n" );
         for ( li = 1; li != 0; li <<= 1 ) {
                 lir1 = floor2( li, li ); lir2 = floor2( li + 2hh, li ); lir3 = floor2( -li - 2hh, li );
+//              printf( "floor2(%ld, %ld) = %ld, floor2(%ld, %ld) = %ld, floor2(%ld, %ld) = %ld\n", li, li, lir1, li + 2l, li, lir2, -li - 2l, li, lir3 );
+                sout | "floor2(" | li | "," | li | ") = " | lir1 | ", floor2(" | li + 2l | "," | li | ") = " | lir2 | ", floor2(" | -li - 2l | "," | li | ") = " | lir3;
+        } // for
+        sout | nl;
+        sout | "unsigned long int";
+                printf( "floor2(%ld, %ld) = %ld, floor2(%ld, %ld) = %ld, floor2(%ld, %ld) = %ld\n", li, li, lir1, li + 2h, li, lir2, -li - 2h, li, lir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned long int\n" );
         for ( uli = 1; uli != 0; uli <<= 1 ) {
                 ulir1 = floor2( uli, uli ); ulir2 = floor2( uli + 2hh, uli ); ulir3 = floor2( -uli - 2hh, uli );
+//              printf( "floor2(%lu, %lu) = %lu, floor2(%lu, %lu) = %lu, floor2(%lu, %lu) = %lu\n", uli, uli, ulir1, uli + 2l, uli, ulir2, -uli - 2l, uli, ulir3 );
+                sout | "floor2(" | uli | "," | uli | ") = " | ulir1 | ", floor2(" | uli + 2l | "," | uli | ") = " | ulir2 | ", floor2(" | -uli - 2l | "," | uli | ") = " | ulir3;
+        } // for
+        sout | nl;
+        sout | "long long int";
+                printf( "floor2(%lu, %lu) = %lu, floor2(%lu, %lu) = %lu, floor2(%lu, %lu) = %lu\n", uli, uli, ulir1, uli + 2h, uli, ulir2, -uli - 2h, uli, ulir3 );
+        } // for
+        printf( "\n" );
+        printf( "long long int\n" );
         for ( lli = 1; lli != 0; lli <<= 1 ) {
                 llir1 = floor2( lli, lli ); llir2 = floor2( lli + 2hh, lli ); llir3 = floor2( -lli - 2hh, lli );
+//              printf( "floor2(%lld, %lld) = %lld, floor2(%lld, %lld) = %lld, floor2(%lld, %lld) = %lld\n", lli, lli, llir1, lli + 2ll, lli, llir2, -lli - 2ll, lli, llir3 );
+                sout | "floor2(" | lli | "," | lli | ") = " | llir1 | ", floor2(" | lli + 2ll | "," | lli | ") = " | llir2 | ", floor2(" | -lli - 2ll | "," | lli | ") = " | llir3;
+        } // for
+        sout | nl;
+        sout | "unsigned long long int";
+                printf( "floor2(%lld, %lld) = %lld, floor2(%lld, %lld) = %lld, floor2(%lld, %lld) = %lld\n", lli, lli, llir1, lli + 2h, lli, llir2, -lli - 2h, lli, llir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned long long int\n" );
         for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
                 ullir1 = floor2( ulli, ulli ); ullir2 = floor2( ulli + 2hh, ulli ); ullir3 = floor2( -ulli - 2hh, ulli );
+//              printf( "floor2(%llu, %llu) = %llu, floor2(%llu, %llu) = %llu, floor2(%llu, %llu) = %llu\n", ulli, ulli, ullir1, ulli + 2h, ulli, ullir2, -ulli - 2h, ulli, ullir3 );
+                sout | "floor2(" | ulli | "," | ulli | ") = " | ullir1 | ", floor2(" | ulli + 2ll | "," | ulli | ") = " | ullir2 | ", floor2(" | -ulli - 2ll | "," | ulli | ") = " | ullir3;
+        } // for
+        sout | nl;
+                printf( "floor2(%llu, %llu) = %llu, floor2(%llu, %llu) = %llu, floor2(%llu, %llu) = %llu\n", ulli, ulli, ullir1, ulli + 2h, ulli, ullir2, -ulli - 2h, ulli, ullir3 );
+        } // for
+        printf( "\n" );
 #endif // 0
         //============================================================
 …
         sout | nl | "ceiling2" | nl | nl;
         sout | "signed char";
+        printf( "signed char\n" );
         for ( sc = 1; sc != 0; sc <<= 1 ) {
                 scr1 = ceiling2( sc, sc ); scr2 = ceiling2( sc + 2hh, sc ); scr3 = ceiling2( -sc - 2hh, sc );
+//              printf( "ceiling2(%hhd, %hhd) = %hhd, ceiling2(%hhd, %hhd) = %hhd, ceiling2(%hhd, %hhd) = %hhd\n", sc, sc, scr1, sc + 2hh, sc, scr2, -sc - 2hh, sc, scr3 );
+                sout | "ceiling2(" | sc | "," | sc | ") = " | scr1 | ", ceiling2(" | sc + 2hh | "," | sc | ") = " | scr2 | ", ceiling2(" | -sc - 2hh | "," | sc | ") = " | scr3;
+        } // for
+        sout | nl;
+        sout | "unsigned char";
+                printf( "ceiling2(%hhd, %hhd) = %hhd, ceiling2(%hhd, %hhd) = %hhd, ceiling2(%hhd, %hhd) = %hhd\n", sc, sc, scr1, sc + 2hh, sc, scr2, -sc - 2hh, sc, scr3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned char\n" );
         for ( uc = 1; uc != 0; uc <<= 1 ) {
                 ucr1 = ceiling2( uc, uc ); ucr2 = ceiling2( uc + 2hh, uc ); ucr3 = ceiling2( -uc - 2hh, uc );
+//              printf( "ceiling2(%hhu, %hhu) = %hhu, ceiling2(%hhu, %hhu) = %hhu, ceiling2(%hhu, %hhu) = %hhu\n", uc, uc, ucr1, uc + 2uhh, uc, ucr2, -uc - 2uhh, uc, ucr3 );
+                sout | "ceiling2(" | uc | "," | uc | ") = " | ucr1 | ", ceiling2(" | uc + 2hh | "," | uc | ") = " | ucr2 | ", ceiling2(" | -uc - 2hh | "," | uc | ") = " | ucr3;
+        } // for
+        sout | nl;
+        sout | "short int";
+                printf( "ceiling2(%hhu, %hhu) = %hhu, ceiling2(%hhu, %hhu) = %hhu, ceiling2(%hhu, %hhu) = %hhu\n", uc, uc, ucr1, uc + 2uhh, uc, ucr2, -uc - 2uhh, uc, ucr3 );
+        } // for
+        printf( "\n" );
+        printf( "short int\n" );
         for ( si = 1; si != 0; si <<= 1 ) {
                 sir1 = ceiling2( si, si ); sir2 = ceiling2( si + 2hh, si ); sir3 = ceiling2( -si - 2hh, si );
+//              printf( "ceiling2(%hd, %hd) = %hd, ceiling2(%hd, %hd) = %hd, ceiling2(%hd, %hd) = %hd\n", si, si, sir1, si + 2h, si, sir2, -si - 2h, si, sir3 );
+                sout | "ceiling2(" | si | "," | si | ") = " | sir1 | ", ceiling2(" | si + 2h | "," | si | ") = " | sir2 | ", ceiling2(" | -si - 2h | "," | si | ") = " | sir3;
+        } // for
+        sout | nl;
+        sout | "unsigned short int";
+                printf( "ceiling2(%hd, %hd) = %hd, ceiling2(%hd, %hd) = %hd, ceiling2(%hd, %hd) = %hd\n", si, si, sir1, si + 2h, si, sir2, -si - 2h, si, sir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned short int\n" );
         for ( usi = 1; usi != 0; usi <<= 1 ) {
                 usir1 = ceiling2( usi, usi ); usir2 = ceiling2( usi + 2hh, usi ); usir3 = ceiling2( -usi - 2hh, usi );
+//              printf( "ceiling2(%hu, %hu) = %hu, ceiling2(%hu, %hu) = %hu, ceiling2(%hu, %hu) = %hu\n", usi, usi, usir1, usi + 2uh, usi, usir2, -usi - 2uh, usi, usir3 );
+                sout | "ceiling2(" | usi | "," | usi | ") = " | usir1 | ", ceiling2(" | usi + 2h | "," | usi | ") = " | usir2 | ", ceiling2(" | -usi - 2h | "," | usi | ") = " | usir3;
+        } // for
+        sout | nl;
+        sout | "int";
+                printf( "ceiling2(%hu, %hu) = %hu, ceiling2(%hu, %hu) = %hu, ceiling2(%hu, %hu) = %hu\n", usi, usi, usir1, usi + 2uh, usi, usir2, -usi - 2uh, usi, usir3 );
+        } // for
+        printf( "\n" );
+        printf( "int\n" );
         for ( i = 1; i != 0; i <<= 1 ) {
                 ir1 = ceiling2( i, i ); ir2 = ceiling2( i + 2hh, i ); ir3 = ceiling2( -i - 2hh, i );
+//              printf( "ceiling2(%d, %d) = %d, ceiling2(%d, %d) = %d, ceiling2(%d, %d) = %d\n", i, i, ir1, i + 2, i, ir2, -i - 2, i, ir3 );
+                sout | "ceiling2(" | i | "," | i | ") = " | ir1 | ", ceiling2(" | i + 2 | "," | i | ") = " | ir2 | ", ceiling2(" | -i - 2 | "," | i | ") = " | ir3;
+        } // for
+        sout | nl;
+        sout | "unsigned int";
+                printf( "ceiling2(%d, %d) = %d, ceiling2(%d, %d) = %d, ceiling2(%d, %d) = %d\n", i, i, ir1, i + 2h, i, ir2, -i - 2h, i, ir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned int\n" );
         for ( ui = 1; ui != 0; ui <<= 1 ) {
                 uir1 = ceiling2( ui, ui ); uir2 = ceiling2( ui + 2hh, ui ); uir3 = ceiling2( -ui - 2hh, ui );
+//              printf( "ceiling2(%u, %u) = %u, ceiling2(%u, %u) = %u, ceiling2(%u, %u) = %u\n", ui, ui, uir1, ui + 2, ui, uir2, -ui - 2, ui, uir3 );
+                sout | "ceiling2(" | ui | "," | ui | ") = " | uir1 | ", ceiling2(" | ui + 2 | "," | ui | ") = " | uir2 | ", ceiling2(" | -ui - 2 | "," | ui | ") = " | uir3;
+        } // for
+        sout | nl;
+        sout | "long int";
+                printf( "ceiling2(%u, %u) = %u, ceiling2(%u, %u) = %u, ceiling2(%u, %u) = %u\n", ui, ui, uir1, ui + 2h, ui, uir2, -ui - 2h, ui, uir3 );
+        } // for
+        printf( "\n" );
+        printf( "long int\n" );
         for ( li = 1; li != 0; li <<= 1 ) {
                 lir1 = ceiling2( li, li ); lir2 = ceiling2( li + 2hh, li ); lir3 = ceiling2( -li - 2hh, li );
+//              printf( "ceiling2(%ld, %ld) = %ld, ceiling2(%ld, %ld) = %ld, ceiling2(%ld, %ld) = %ld\n", li, li, lir1, li + 2l, li, lir2, -li - 2l, li, lir3 );
+                sout | "ceiling2(" | li | "," | li | ") = " | lir1 | ", ceiling2(" | li + 2l | "," | li | ") = " | lir2 | ", ceiling2(" | -li - 2l | "," | li | ") = " | lir3;
+        } // for
+        sout | nl;
+        sout | "unsigned long int";
+                printf( "ceiling2(%ld, %ld) = %ld, ceiling2(%ld, %ld) = %ld, ceiling2(%ld, %ld) = %ld\n", li, li, lir1, li + 2h, li, lir2, -li - 2h, li, lir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned long int\n" );
         for ( uli = 1; uli != 0; uli <<= 1 ) {
                 ulir1 = ceiling2( uli, uli ); ulir2 = ceiling2( uli + 2hh, uli ); ulir3 = ceiling2( -uli - 2hh, uli );
+//              printf( "ceiling2(%lu, %lu) = %lu, ceiling2(%lu, %lu) = %lu, ceiling2(%lu, %lu) = %lu\n", uli, uli, ulir1, uli + 2, uli, ulir2, -uli - 2, uli, ulir3 );
+                sout | "ceiling2(" | uli | "," | uli | ") = " | ulir1 | ", ceiling2(" | uli + 2l | "," | uli | ") = " | ulir2 | ", ceiling2(" | -uli - 2l | "," | uli | ") = " | ulir3;
+        } // for
+        sout | nl;
+        sout | "long long int";
+                printf( "ceiling2(%lu, %lu) = %lu, ceiling2(%lu, %lu) = %lu, ceiling2(%lu, %lu) = %lu\n", uli, uli, ulir1, uli + 2h, uli, ulir2, -uli - 2h, uli, ulir3 );
+        } // for
+        printf( "\n" );
+        printf( "long long int\n" );
         for ( lli = 1; lli != 0; lli <<= 1 ) {
                 llir1 = ceiling2( lli, lli ); llir2 = ceiling2( lli + 2hh, lli ); llir3 = ceiling2( -lli - 2hh, lli );
+//              printf( "ceiling2(%lld, %lld) = %lld, ceiling2(%lld, %lld) = %lld, ceiling2(%lld, %lld) = %lld\n", lli, lli, llir1, lli + 2ll, lli, llir2, -lli - 2ll, lli, llir3 );
+                sout | "ceiling2(" | lli | "," | lli | ") = " | llir1 | ", ceiling2(" | lli + 2ll | "," | lli | ") = " | llir2 | ", ceiling2(" | -lli - 2ll | "," | lli | ") = " | llir3;
+        } // for
+        sout | nl;
+        sout | "unsigned long long int";
+                printf( "ceiling2(%lld, %lld) = %lld, ceiling2(%lld, %lld) = %lld, ceiling2(%lld, %lld) = %lld\n", lli, lli, llir1, lli + 2h, lli, llir2, -lli - 2h, lli, llir3 );
+        } // for
+        printf( "\n" );
+        printf( "unsigned long long int\n" );
         for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
                 ullir1 = ceiling2( ulli, ulli ); ullir2 = ceiling2( ulli + 2hh, ulli ); ullir3 = ceiling2( -ulli - 2hh, ulli );
+//              printf( "ceiling2(%llu, %llu) = %llu, ceiling2(%llu, %llu) = %llu, ceiling2(%llu, %llu) = %llu\n", ulli, ulli, ullir1, ulli + 2h, ulli, ullir2, -ulli - 2h, ulli, ullir3 );
+                sout | "ceiling2(" | ulli | "," | ulli | ") = " | ullir1 | ", ceiling2(" | ulli + 2ll | "," | ulli | ") = " | ullir2 | ", ceiling2(" | -ulli - 2ll | "," | ulli | ") = " | ullir3;
+        } // for
+        sout | nl;
+                printf( "ceiling2(%llu, %llu) = %llu, ceiling2(%llu, %llu) = %llu, ceiling2(%llu, %llu) = %llu\n", ulli, ulli, ullir1, ulli + 2h, ulli, ullir2, -ulli - 2h, ulli, ullir3 );
+        } // for
+        printf( "\n" );
 #endif // 0
 } // main

tests/exceptions/.expect/type-check.txt

-              r5a40e4e
+              rdd1cc02
 exceptions/type-check.cfa:6:1 error: catch must have pointer to an exception type
 exceptions/type-check.cfa:7:1 error: catch must have pointer to an exception type
 exceptions/type-check.cfa:8:1 error: catchResume must have pointer to an exception type
 exceptions/type-check.cfa:9:1 error: catchResume must have pointer to an exception type
+exceptions/type-check.cfa:8:1 error: catch must have pointer to an exception type
+exceptions/type-check.cfa:9:1 error: catch must have pointer to an exception type
+exceptions/type-check.cfa:10:1 error: catchResume must have pointer to an exception type
+exceptions/type-check.cfa:11:1 error: catchResume must have pointer to an exception type

tests/exceptions/cancel/coroutine.cfa

-              r5a40e4e
+              rdd1cc02
 #include <coroutine.hfa>
+#include <exception.hfa>
 exception internal_error {};
 vtable(internal_error) internal_vt;
+EHM_EXCEPTION(internal_error)();
+EHM_VIRTUAL_TABLE(internal_error, internal_vt);
 coroutine WillCancel {};

tests/exceptions/cancel/thread.cfa

-              r5a40e4e
+              rdd1cc02
 #include <thread.hfa>
+#include <exception.hfa>
 exception internal_error {};
 vtable(internal_error) internal_vt;
+EHM_EXCEPTION(internal_error)();
+EHM_VIRTUAL_TABLE(internal_error, internal_vt);
 thread WillCancel {};

tests/exceptions/conditional.cfa

-              r5a40e4e
+              rdd1cc02
 // up the non-trivial exception is reasonable to do.
+exception num_error {
+#include <exception.hfa>
+EHM_EXCEPTION(num_error)(
         int num;
 };
+);
 vtable(num_error) num_error_vt;
+EHM_VIRTUAL_TABLE(num_error, num_error_vt);
 void caught_num_error(int expect, num_error * actual) {

tests/exceptions/data-except.cfa

-              r5a40e4e
+              rdd1cc02
 // Test exceptions that add data but no functionality.
+exception paired {
+#include <exception.hfa>
+EHM_EXCEPTION(paired)(
         int first;
         int second;
 };
+);
 vtable(paired) paired_vt;
+EHM_VIRTUAL_TABLE(paired, paired_vt);
 const char * virtual_msg(paired * this) {

tests/exceptions/defaults.cfa

-              r5a40e4e
+              rdd1cc02
 #include <exception.hfa>
+exception log_message {
+EHM_EXCEPTION(log_message)(
         char * msg;
 };
+);
 _EHM_DEFINE_COPY(log_message, )
 …
 // I don't have a good use case for doing the same with termination.
 exception jump {};
+EHM_EXCEPTION(jump)();
 void defaultTerminationHandler(jump &) {
         printf("jump default handler.\n");
+}
 vtable(jump) jump_vt;
+EHM_VIRTUAL_TABLE(jump, jump_vt);
 void jump_test(void) {
 …
+}
 exception first {};
 vtable(first) first_vt;
+EHM_EXCEPTION(first)();
+EHM_VIRTUAL_TABLE(first, first_vt);
 exception unhandled_exception {};
 vtable(unhandled_exception) unhandled_vt;
+EHM_EXCEPTION(unhandled_exception)();
+EHM_VIRTUAL_TABLE(unhandled_exception, unhandled_vt);
 void unhandled_test(void) {
 …
+}
 exception second {};
 vtable(second) second_vt;
+EHM_EXCEPTION(second)();
+EHM_VIRTUAL_TABLE(second, second_vt);
 void cross_test(void) {

tests/exceptions/finally.cfa

-              r5a40e4e
+              rdd1cc02
 // Finally Clause Tests
+#include <exception.hfa>
 #include "except-io.hfa"
 exception myth {};
+EHM_EXCEPTION(myth)();
 vtable(myth) myth_vt;
+EHM_VIRTUAL_TABLE(myth, myth_vt);
 int main(int argc, char * argv[]) {

tests/exceptions/interact.cfa

-              r5a40e4e
+              rdd1cc02
 // Testing Interactions Between Termination and Resumption
+#include <exception.hfa>
 #include "except-io.hfa"
 exception star {};
 exception moon {};
+EHM_EXCEPTION(star)();
+EHM_EXCEPTION(moon)();
 vtable(star) star_vt;
 vtable(moon) moon_vt;
+EHM_VIRTUAL_TABLE(star, star_vt);
+EHM_VIRTUAL_TABLE(moon, moon_vt);
 int main(int argc, char * argv[]) {

tests/exceptions/polymorphic.cfa

-              r5a40e4e
+              rdd1cc02
 // Testing polymophic exception types.
+forall(T &) exception proxy {};
+#include <exception.hfa>
+vtable(proxy(int)) proxy_int;
+vtable(proxy(char)) proxy_char;
+EHM_FORALL_EXCEPTION(proxy, (T&), (T))();
+EHM_FORALL_VIRTUAL_TABLE(proxy, (int), proxy_int);
+EHM_FORALL_VIRTUAL_TABLE(proxy, (char), proxy_char);
 void proxy_test(void) {
 …
+}
+forall(T) exception cell {
+EHM_FORALL_EXCEPTION(cell, (T), (T))(
         T data;
 };
+);
 vtable(cell(int)) int_cell;
 vtable(cell(char)) char_cell;
 vtable(cell(bool)) bool_cell;
+EHM_FORALL_VIRTUAL_TABLE(cell, (int), int_cell);
+EHM_FORALL_VIRTUAL_TABLE(cell, (char), char_cell);
+EHM_FORALL_VIRTUAL_TABLE(cell, (bool), bool_cell);
 void cell_test(void) {

tests/exceptions/resume.cfa

-              r5a40e4e
+              rdd1cc02
 // Resumption Exception Tests
+#include <exception.hfa>
 #include "except-io.hfa"
 exception yin {};
 exception yang {};
 exception zen {};
+EHM_EXCEPTION(yin)();
+EHM_EXCEPTION(yang)();
+EHM_EXCEPTION(zen)();
 vtable(yin) yin_vt;
 vtable(yang) yang_vt;
 vtable(zen) zen_vt;
+EHM_VIRTUAL_TABLE(yin, yin_vt);
+EHM_VIRTUAL_TABLE(yang, yang_vt);
+EHM_VIRTUAL_TABLE(zen, zen_vt);
 void in_void(void);

tests/exceptions/terminate.cfa

-              r5a40e4e
+              rdd1cc02
 // Termination Exception Tests
+#include <exception.hfa>
 #include "except-io.hfa"
 exception yin {};
 exception yang {};
 exception zen {};
+EHM_EXCEPTION(yin)();
+EHM_EXCEPTION(yang)();
+EHM_EXCEPTION(zen)();
 vtable(yin) yin_vt;
 vtable(yang) yang_vt;
 vtable(zen) zen_vt;
+EHM_VIRTUAL_TABLE(yin, yin_vt);
+EHM_VIRTUAL_TABLE(yang, yang_vt);
+EHM_VIRTUAL_TABLE(zen, zen_vt);
 void in_void(void);

tests/exceptions/trash.cfa

-              r5a40e4e
+              rdd1cc02
 // Make sure throw-catch during unwind does not trash internal data.
+exception yin {};
+exception yang {};
+#include <exception.hfa>
+vtable(yin) yin_vt;
+vtable(yang) yang_vt;
+EHM_EXCEPTION(yin)();
+EHM_EXCEPTION(yang)();
+EHM_VIRTUAL_TABLE(yin, yin_vt);
+EHM_VIRTUAL_TABLE(yang, yang_vt);
 int main(int argc, char * argv[]) {

tests/exceptions/type-check.cfa

-              r5a40e4e
+              rdd1cc02
 // Check that the exception type check works.
+exception truth {};
+#include <exception.hfa>
+EHM_EXCEPTION(truth)();
 int main(int argc, char * argv[]) {

tests/mathX.cfa

-              r5a40e4e
+              rdd1cc02
 // Created On       : Thu May 24 20:56:54 2018
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sun Aug  8 22:33:46 2021
 // Update Count     : 31
+// Last Modified On : Sat Feb 20 18:26:38 2021
+// Update Count     : 30
 //
 …
                 sout | "ceiling(" | ulli | ", " | ulli | ") = " | ullir1 | ", ceiling(" | ulli + 2ull | ", " | ulli | ") = " | ullir2 | ", ceiling(" | -ulli - 2ull | ", " | ulli | ") = " | ullir3;
         } // for
         sout | nl;
+        printf( "\n" );
 #endif // 0
 } // main

Context Navigation

Changes in / [5a40e4e:dd1cc02]

Legend:

Download in other formats: