Changes in / [5541ea3d:0640189e]
- Files:
-
- 1 added
- 7 deleted
- 50 edited
-
doc/theses/andrew_beach_MMath/callreturn.fig (added)
-
doc/theses/andrew_beach_MMath/code/ThrowFinally.java (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/ThrowOther.java (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/cond-catch.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/cond-catch.cpp (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/cond-fixup.cfa (modified) (3 diffs)
-
doc/theses/andrew_beach_MMath/code/cross-catch.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/cross-catch.cpp (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/cross-finally.cfa (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/cross-resume.cfa (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/resume-detor.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/resume-empty.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/resume-finally.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/resume-other.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/run.sh (deleted)
-
doc/theses/andrew_beach_MMath/code/test.sh (modified) (4 diffs)
-
doc/theses/andrew_beach_MMath/code/throw-detor.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/throw-detor.cpp (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/throw-empty.cfa (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/throw-empty.cpp (modified) (1 diff)
-
doc/theses/andrew_beach_MMath/code/throw-finally.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/throw-other.cfa (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/code/throw-other.cpp (modified) (2 diffs)
-
doc/theses/andrew_beach_MMath/existing.tex (modified) (12 diffs)
-
doc/theses/andrew_beach_MMath/handler.fig (deleted)
-
doc/theses/andrew_beach_MMath/intro.tex (modified) (4 diffs)
-
doc/theses/andrew_beach_MMath/performance.tex (modified) (10 diffs)
-
doc/theses/andrew_beach_MMath/resumption.fig (deleted)
-
doc/theses/andrew_beach_MMath/termination.fig (deleted)
-
doc/theses/andrew_beach_MMath/uw-ethesis.tex (modified) (1 diff)
-
doc/theses/mubeen_zulfiqar_MMath/allocator.tex (modified) (1 diff)
-
doc/theses/mubeen_zulfiqar_MMath/benchmarks.tex (modified) (2 diffs)
-
doc/theses/mubeen_zulfiqar_MMath/intro.tex (modified) (1 diff)
-
doc/theses/mubeen_zulfiqar_MMath/performance.tex (modified) (1 diff)
-
driver/cc1.cc (modified) (2 diffs)
-
libcfa/prelude/builtins.c (modified) (2 diffs)
-
libcfa/src/Makefile.am (modified) (2 diffs)
-
libcfa/src/concurrency/locks.cfa (modified) (1 diff)
-
libcfa/src/fstream.cfa (modified) (6 diffs)
-
libcfa/src/fstream.hfa (modified) (3 diffs)
-
libcfa/src/math.trait.hfa (deleted)
-
libcfa/src/rational.cfa (modified) (10 diffs)
-
libcfa/src/rational.hfa (modified) (2 diffs)
-
src/CompilationState.cc (modified) (2 diffs)
-
src/CompilationState.h (modified) (2 diffs)
-
src/ControlStruct/ExceptDecl.cc (deleted)
-
src/ControlStruct/ExceptDecl.h (deleted)
-
src/ControlStruct/ExceptTranslate.cc (modified) (3 diffs)
-
src/ControlStruct/module.mk (modified) (1 diff)
-
src/Parser/TypeData.cc (modified) (2 diffs)
-
src/Parser/parser.yy (modified) (2 diffs)
-
src/SynTree/Declaration.h (modified) (2 diffs)
-
src/main.cc (modified) (4 diffs)
-
tests/.expect/counter.txt (modified) (1 diff)
-
tests/.expect/rational.txt (modified) (2 diffs)
-
tests/counter.cfa (modified) (3 diffs)
-
tests/polymorphism.cfa (modified) (2 diffs)
-
tests/rational.cfa (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
doc/theses/andrew_beach_MMath/code/ThrowFinally.java
r5541ea3d r0640189e 7 7 throws EmptyException { 8 8 if (0 < frames) { 9 try { 10 unwind_finally(frames - 1); 11 } finally { 12 // ... 13 } 9 unwind_finally(frames - 1); 14 10 } else { 15 11 throw new EmptyException(); -
doc/theses/andrew_beach_MMath/code/ThrowOther.java
r5541ea3d r0640189e 16 16 // ... 17 17 } 18 } else if (should_throw) {19 throw new NotRaisedException();20 18 } else { 19 if (should_throw) { 20 throw new NotRaisedException(); 21 } 21 22 throw new EmptyException(); 22 23 } -
doc/theses/andrew_beach_MMath/code/cond-catch.cfa
r5541ea3d r0640189e 19 19 throw_exception(); 20 20 } catch (empty_exception * exc ; should_catch) { 21 asm volatile ("# catch block (conditional)");21 // ... 22 22 } 23 23 } … … 37 37 cond_catch(); 38 38 } catch (empty_exception * exc) { 39 asm volatile ("# catch block (unconditional)");39 // ... 40 40 } 41 41 } -
doc/theses/andrew_beach_MMath/code/cond-catch.cpp
r5541ea3d r0640189e 22 22 throw; 23 23 } 24 asm volatile ("# catch block (conditional)");25 24 } 26 25 } … … 40 39 cond_catch(); 41 40 } catch (EmptyException &) { 42 asm volatile ("# catch block (unconditional)");41 // ... 43 42 } 44 43 } -
doc/theses/andrew_beach_MMath/code/cond-fixup.cfa
r5541ea3d r0640189e 12 12 13 13 void throw_exception() { 14 throw Resume(empty_exception){&empty_vt};14 throw (empty_exception){&empty_vt}; 15 15 } 16 16 … … 18 18 try { 19 19 throw_exception(); 20 } catch Resume(empty_exception * exc ; should_catch) {21 asm volatile ("# fixup block (conditional)");20 } catch (empty_exception * exc ; should_catch) { 21 // ... 22 22 } 23 23 } … … 36 36 try { 37 37 cond_catch(); 38 } catch Resume(empty_exception * exc) {39 asm volatile ("# fixup block (unconditional)");38 } catch (empty_exception * exc) { 39 // ... 40 40 } 41 41 } -
doc/theses/andrew_beach_MMath/code/cross-catch.cfa
r5541ea3d r0640189e 7 7 EHM_EXCEPTION(not_raised_exception)(); 8 8 9 EHM_VIRTUAL_TABLE(not_raised_exception, not_vt);10 11 9 int main(int argc, char * argv[]) { 12 10 unsigned int times = 1; 13 volatile bool should_throw = false;11 unsigned int total_frames = 1; 14 12 if (1 < argc) { 15 13 times = strtol(argv[1], 0p, 10); 14 } 15 if (2 < argc) { 16 total_frames = strtol(argv[2], 0p, 10); 16 17 } 17 18 … … 19 20 for (unsigned int count = 0 ; count < times ; ++count) { 20 21 try { 21 asm volatile ("# try block"); 22 if (should_throw) { 23 throw (not_raised_exception){¬_vt}; 24 } 22 // ... 25 23 } catch (not_raised_exception *) { 26 asm volatile ("# catch block");24 // ... 27 25 } 28 26 } -
doc/theses/andrew_beach_MMath/code/cross-catch.cpp
r5541ea3d r0640189e 11 11 int main(int argc, char * argv[]) { 12 12 unsigned int times = 1; 13 volatile bool should_throw = false;14 13 if (1 < argc) { 15 14 times = strtol(argv[1], nullptr, 10); … … 19 18 for (unsigned int count = 0 ; count < times ; ++count) { 20 19 try { 21 asm volatile ("# try block"); 22 if (should_throw) { 23 throw NotRaisedException(); 24 } 20 // ... 25 21 } catch (NotRaisedException &) { 26 asm volatile ("# catch block");22 // ... 27 23 } 28 24 } -
doc/theses/andrew_beach_MMath/code/cross-finally.cfa
r5541ea3d r0640189e 5 5 #include <stdlib.hfa> 6 6 7 EHM_EXCEPTION(not_raised_exception)();8 9 EHM_VIRTUAL_TABLE(not_raised_exception, not_vt);10 11 7 int main(int argc, char * argv[]) { 12 8 unsigned int times = 1; 13 volatile bool should_throw = false;9 unsigned int total_frames = 1; 14 10 if (1 < argc) { 15 11 times = strtol(argv[1], 0p, 10); 12 } 13 if (2 < argc) { 14 total_frames = strtol(argv[2], 0p, 10); 16 15 } 17 16 18 17 Time start_time = timeHiRes(); 19 18 for (unsigned int count = 0 ; count < times ; ++count) { 20 try { 21 asm volatile ("# try block"); 22 if (should_throw) { 23 throw (not_raised_exception){¬_vt}; 24 } 19 try { 20 // ... 25 21 } finally { 26 asm volatile ("# finally block");22 // ... 27 23 } 28 24 } -
doc/theses/andrew_beach_MMath/code/cross-resume.cfa
r5541ea3d r0640189e 20 20 for (unsigned int count = 0 ; count < times ; ++count) { 21 21 try { 22 asm volatile ("");22 // ... 23 23 } catchResume (not_raised_exception *) { 24 asm volatile ("");24 // ... 25 25 } 26 26 } -
doc/theses/andrew_beach_MMath/code/resume-detor.cfa
r5541ea3d r0640189e 12 12 13 13 void ^?{}(WithDestructor & this) { 14 asm volatile ("# destructor body"); 14 // ... 15 15 } 16 16 17 17 void unwind_destructor(unsigned int frames) { 18 if (frames) {18 if (frames) { 19 19 20 WithDestructor object;21 unwind_destructor(frames - 1);22 } else {23 throwResume (empty_exception){&empty_vt};24 }20 WithDestructor object; 21 unwind_destructor(frames - 1); 22 } else { 23 throwResume (empty_exception){&empty_vt}; 24 } 25 25 } 26 26 … … 36 36 37 37 Time start_time = timeHiRes(); 38 for (int count = 0 ; count < times ; ++count) {39 try {40 unwind_destructor(total_frames);41 } catchResume (empty_exception *) {42 asm volatile ("# fixup block"); 43 }44 }38 for (int count = 0 ; count < times ; ++count) { 39 try { 40 unwind_destructor(total_frames); 41 } catchResume (empty_exception *) { 42 // ... 43 } 44 } 45 45 Time end_time = timeHiRes(); 46 46 sout | "Run-Time (ns): " | (end_time - start_time)`ns; -
doc/theses/andrew_beach_MMath/code/resume-empty.cfa
r5541ea3d r0640189e 13 13 unwind_empty(frames - 1); 14 14 } else { 15 throw Resume(empty_exception){&empty_vt};15 throw (empty_exception){&empty_vt}; 16 16 } 17 17 } … … 31 31 try { 32 32 unwind_empty(total_frames); 33 } catch Resume(empty_exception *) {34 asm volatile ("# fixup block");33 } catch (empty_exception *) { 34 // ... 35 35 } 36 36 } -
doc/theses/andrew_beach_MMath/code/resume-finally.cfa
r5541ea3d r0640189e 14 14 unwind_finally(frames - 1); 15 15 } finally { 16 asm volatile ("# finally block");16 // ... 17 17 } 18 18 } else { … … 36 36 unwind_finally(total_frames); 37 37 } catchResume (empty_exception *) { 38 asm volatile ("# fixup block");38 // ... 39 39 } 40 40 } -
doc/theses/andrew_beach_MMath/code/resume-other.cfa
r5541ea3d r0640189e 16 16 unwind_other(frames - 1); 17 17 } catchResume (not_raised_exception *) { 18 asm volatile ("# fixup block (stack)");18 // ... 19 19 } 20 20 } else { … … 38 38 unwind_other(total_frames); 39 39 } catchResume (empty_exception *) { 40 asm volatile ("# fixup block (base)");40 // ... 41 41 } 42 42 } -
doc/theses/andrew_beach_MMath/code/test.sh
r5541ea3d r0640189e 1 1 #!/usr/bin/env bash 2 2 3 # Usage: 4 # test.sh LANGUAGE TEST 5 # Run the TEST in LANGUAGE. 6 # test.sh -b SOURCE_FILE... 7 # Build a test from SOURCE_FILE(s). 8 # test.sh -v LANGUAGE TEST FILE 9 # View the result from TEST in LANGUAGE stored in FILE. 3 # Usage: LANGUAGE TEST | -b SOURCE_FILE 10 4 11 5 readonly ITERATIONS=1000000 # 1 000 000, one million … … 44 38 done 45 39 exit 0 46 elif [ "-v" = "$1" -a 4 = "$#" ]; then47 TEST_LANG="$2"48 TEST_CASE="$3"49 VIEW_FILE="$4"50 40 elif [ 2 -eq "$#" ]; then 51 41 TEST_LANG="$1" … … 126 116 127 117 case "$TEST_LANG" in 128 cfa-t) CALL="$CFAT";;129 cfa-r) CALL="$CFAR";;130 cpp) CALL="$CPP";;131 java) CALL="$JAVA";;132 python) CALL="$PYTHON";;118 cfa-t) echo $CFAT; $CFAT;; 119 cfa-r) echo $CFAR; $CFAR;; 120 cpp) echo $CPP; $CPP;; 121 java) echo $JAVA; $JAVA;; 122 python) echo $PYTHON; $PYTHON;; 133 123 *) 134 124 echo "No such language: $TEST_LANG" >&2 … … 136 126 ;; 137 127 esac 138 139 echo $CALL140 141 if [ -n "$VIEW_FILE" ]; then142 grep -A 1 -B 0 "$CALL" "$VIEW_FILE" | sed -n -e 's!Run-Time (ns): !!;T;p'143 exit144 fi145 146 $CALL -
doc/theses/andrew_beach_MMath/code/throw-detor.cfa
r5541ea3d r0640189e 12 12 13 13 void ^?{}(WithDestructor & this) { 14 asm volatile ("# destructor body");14 // ... 15 15 } 16 16 … … 39 39 unwind_destructor(total_frames); 40 40 } catch (empty_exception *) { 41 asm volatile ("# catch block");41 // ... 42 42 } 43 43 } -
doc/theses/andrew_beach_MMath/code/throw-detor.cpp
r5541ea3d r0640189e 10 10 11 11 struct WithDestructor { 12 ~WithDestructor() { 13 asm volatile ("# destructor body"); 14 } 12 ~WithDestructor() {} 15 13 }; 16 14 … … 39 37 unwind_destructor(total_frames); 40 38 } catch (EmptyException &) { 41 asm volatile ("# catch block");39 // ... 42 40 } 43 41 } -
doc/theses/andrew_beach_MMath/code/throw-empty.cfa
r5541ea3d r0640189e 32 32 unwind_empty(total_frames); 33 33 } catch (empty_exception *) { 34 asm volatile ("# catch block");34 // ... 35 35 } 36 36 } -
doc/theses/andrew_beach_MMath/code/throw-empty.cpp
r5541ea3d r0640189e 32 32 unwind_empty(total_frames); 33 33 } catch (EmptyException &) { 34 asm volatile ("# catch block");34 // ... 35 35 } 36 36 } -
doc/theses/andrew_beach_MMath/code/throw-finally.cfa
r5541ea3d r0640189e 14 14 unwind_finally(frames - 1); 15 15 } finally { 16 asm volatile ("# finally block");16 // ... 17 17 } 18 18 } else { … … 36 36 unwind_finally(total_frames); 37 37 } catch (empty_exception *) { 38 asm volatile ("# catch block");38 // ... 39 39 } 40 40 } -
doc/theses/andrew_beach_MMath/code/throw-other.cfa
r5541ea3d r0640189e 16 16 unwind_other(frames - 1); 17 17 } catch (not_raised_exception *) { 18 asm volatile ("# catch block (stack)");18 // ... 19 19 } 20 20 } else { … … 38 38 unwind_other(total_frames); 39 39 } catch (empty_exception *) { 40 asm volatile ("# catch block (base)");40 // ... 41 41 } 42 42 } -
doc/theses/andrew_beach_MMath/code/throw-other.cpp
r5541ea3d r0640189e 16 16 unwind_other(frames - 1); 17 17 } catch (NotRaisedException &) { 18 asm volatile ("# catch block (stack)");18 // ... 19 19 } 20 20 } else { … … 38 38 unwind_other(total_frames); 39 39 } catch (EmptyException &) { 40 asm volatile ("# catch block (base)");40 // ... 41 41 } 42 42 } -
doc/theses/andrew_beach_MMath/existing.tex
r5541ea3d r0640189e 10 10 11 11 Only those \CFA features pertaining to this thesis are discussed. 12 % Also, only new features of \CFA will be discussed, 13 A familiarity with 12 Also, only new features of \CFA will be discussed, a familiarity with 14 13 C or C-like languages is assumed. 15 14 … … 17 16 \CFA has extensive overloading, allowing multiple definitions of the same name 18 17 to be defined~\cite{Moss18}. 19 \begin{ lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]20 char @i@; int @i@; double @i@;21 int @f@(); double @f@();22 void @g@( int ); void @g@( double );23 \end{ lstlisting}18 \begin{cfa} 19 char i; int i; double i; 20 int f(); double f(); 21 void g( int ); void g( double ); 22 \end{cfa} 24 23 This feature requires name mangling so the assembly symbols are unique for 25 24 different overloads. For compatibility with names in C, there is also a syntax … … 63 62 int && rri = ri; 64 63 rri = 3; 65 &ri = &j; // rebindable64 &ri = &j; 66 65 ri = 5; 67 66 \end{cfa} … … 79 78 \end{minipage} 80 79 81 References are intended for pointer situations where dereferencing is the common usage,82 \ie the value is more important than the pointer.80 References are intended to be used when you would use pointers but would 81 be dereferencing them (almost) every usage. 83 82 Mutable references may be assigned to by converting them to a pointer 84 83 with a @&@ and then assigning a pointer to them, as in @&ri = &j;@ above … … 86 85 \section{Operators} 87 86 88 \CFA implements operator overloading by providing special names , where89 operator usages are translated into function calls using these names.90 An operator name iscreated by taking the operator symbols and joining them with87 \CFA implements operator overloading by providing special names. 88 Operator uses are translated into function calls using these names. 89 These names are created by taking the operator symbols and joining them with 91 90 @?@s to show where the arguments go. 92 91 For example, 93 infixed multiplication is @?*?@ ,while prefix dereference is @*?@.92 infixed multiplication is @?*?@ while prefix dereference is @*?@. 94 93 This syntax make it easy to tell the difference between prefix operations 95 94 (such as @++?@) and post-fix operations (@?++@). 96 For example, plus and equality operators are defined for a point type. 95 97 96 \begin{cfa} 98 97 point ?+?(point a, point b) { return point{a.x + b.x, a.y + b.y}; } 99 int?==?(point a, point b) { return a.x == b.x && a.y == b.y; }98 bool ?==?(point a, point b) { return a.x == b.x && a.y == b.y; } 100 99 { 101 100 assert(point{1, 2} + point{3, 4} == point{4, 6}); 102 101 } 103 102 \end{cfa} 104 Note these special names are not limited to builtin 105 operators, and hence, may be used with arbitrary types. 106 \begin{cfa} 107 double ?+?( int x, point y ); // arbitrary types 108 \end{cfa} 109 % Some ``near misses", that are that do not match an operator form but looks like 110 % it may have been supposed to, will generate warning but otherwise they are 111 % left alone. 103 Note that these special names are not limited to just being used for these 104 operator functions, and may be used name other declarations. 105 Some ``near misses", that will not match an operator form but looks like 106 it may have been supposed to, will generate wantings but otherwise they are 107 left alone. 108 109 %\subsection{Constructors and Destructors} 110 111 Both constructors and destructors are operators, which means they are 112 functions with special operator names rather than type names in \Cpp. The 113 special operator names may be used to call the functions explicitly. 114 % Placement new means that this is actually equivant to C++. 115 116 The special name for a constructor is @?{}@, which comes from the 117 initialization syntax in C, \eg @Example e = { ... }@. 118 \CFA will generate a constructor call each time a variable is declared, 119 passing the initialization arguments to the constructort. 120 \begin{cfa} 121 struct Example { ... }; 122 void ?{}(Example & this) { ... } 123 { 124 Example a; 125 Example b = {}; 126 } 127 void ?{}(Example & this, char first, int num) { ... } 128 { 129 Example c = {'a', 2}; 130 } 131 \end{cfa} 132 Both @a@ and @b@ will be initalized with the first constructor, 133 while @c@ will be initalized with the second. 134 Currently, there is no general way to skip initialation. 135 136 % I don't like the \^{} symbol but $^\wedge$ isn't better. 137 Similarly destructors use the special name @^?{}@ (the @^@ has no special 138 meaning). 139 These are a normally called implicitly called on a variable when it goes out 140 of scope. They can be called explicitly as well. 141 \begin{cfa} 142 void ^?{}(Example & this) { ... } 143 { 144 Example d; 145 } // <- implicit destructor call 146 \end{cfa} 147 148 Whenever a type is defined, \CFA will create a default zero-argument 149 constructor, a copy constructor, a series of argument-per-field constructors 150 and a destructor. All user constructors are defined after this. 112 151 Because operators are never part of the type definition they may be added 113 152 at any time, including on built-in types. 114 115 %\subsection{Constructors and Destructors}116 117 \CFA also provides constructors and destructors as operators, which means they118 are functions with special operator names rather than type names in \Cpp.119 While constructors and destructions are normally called implicitly by the compiler,120 the special operator names, allow explicit calls.121 122 % Placement new means that this is actually equivalent to C++.123 124 The special name for a constructor is @?{}@, which comes from the125 initialization syntax in C, \eg @Example e = { ... }@.126 \CFA generates a constructor call each time a variable is declared,127 passing the initialization arguments to the constructor.128 \begin{cfa}129 struct Example { ... };130 void ?{}(Example & this) { ... }131 void ?{}(Example & this, char first, int num) { ... }132 Example a; // implicit constructor calls133 Example b = {};134 Example c = {'a', 2};135 \end{cfa}136 Both @a@ and @b@ are initialized with the first constructor,137 while @c@ is initialized with the second.138 Constructor calls can be replaced with C initialization using special operator \lstinline{@=}.139 \begin{cfa}140 Example d @= {42};141 \end{cfa}142 % I don't like the \^{} symbol but $^\wedge$ isn't better.143 Similarly, destructors use the special name @^?{}@ (the @^@ has no special144 meaning).145 % These are a normally called implicitly called on a variable when it goes out146 % of scope. They can be called explicitly as well.147 \begin{cfa}148 void ^?{}(Example & this) { ... }149 {150 Example e; // implicit constructor call151 ^?{}(e); // explicit destructor call152 ?{}(e); // explicit constructor call153 } // implicit destructor call154 \end{cfa}155 156 Whenever a type is defined, \CFA creates a default zero-argument157 constructor, a copy constructor, a series of argument-per-field constructors158 and a destructor. All user constructors are defined after this.159 153 160 154 \section{Polymorphism} … … 208 202 Note, a function named @do_once@ is not required in the scope of @do_twice@ to 209 203 compile it, unlike \Cpp template expansion. Furthermore, call-site inferencing 210 allows local replacement of the specific parametric functions needs for a204 allows local replacement of the most specific parametric functions needs for a 211 205 call. 212 206 \begin{cfa} … … 224 218 to @do_twice@ and called within it. 225 219 The global definition of @do_once@ is ignored, however if quadruple took a 226 @double@ argument ,then the global definition would be used instead as it227 isa better match.220 @double@ argument then the global definition would be used instead as it 221 would be a better match. 228 222 % Aaron's thesis might be a good reference here. 229 223 230 224 To avoid typing long lists of assertions, constraints can be collect into 231 convenient package called a @trait@, which can then be used in an assertion225 convenient packages called a @trait@, which can then be used in an assertion 232 226 instead of the individual constraints. 233 227 \begin{cfa} … … 245 239 functionality, like @sumable@, @listable@, \etc. 246 240 247 Polymorphic structures and unions are defined by qualifying anaggregate type241 Polymorphic structures and unions are defined by qualifying the aggregate type 248 242 with @forall@. The type variables work the same except they are used in field 249 243 declarations instead of parameters, returns, and local variable declarations. … … 291 285 coroutine CountUp { 292 286 unsigned int next; 293 } ;287 } 294 288 CountUp countup; 295 for (10) sout | resume(countup).next; // print 10 values296 289 \end{cfa} 297 290 Each coroutine has a @main@ function, which takes a reference to a coroutine 298 291 object and returns @void@. 299 292 %[numbers=left] Why numbers on this one? 300 \begin{cfa} [numbers=left,numberstyle=\scriptsize\sf]293 \begin{cfa} 301 294 void main(CountUp & this) { 302 for (unsigned int up = 0;; ++up) {303 this.next = up;295 for (unsigned int next = 0 ; true ; ++next) { 296 next = up; 304 297 suspend;$\label{suspend}$ 305 298 } … … 307 300 \end{cfa} 308 301 In this function, or functions called by this function (helper functions), the 309 @suspend@ statement is used to return execution to the coroutine's resumer310 without terminating the coroutine's function (s).302 @suspend@ statement is used to return execution to the coroutine's caller 303 without terminating the coroutine's function. 311 304 312 305 A coroutine is resumed by calling the @resume@ function, \eg @resume(countup)@. … … 330 323 exclusion on a monitor object by qualifying an object reference parameter with 331 324 @mutex@. 332 \begin{ lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]333 void example(MonitorA & @mutex@ argA, MonitorB & @mutex@argB);334 \end{ lstlisting}325 \begin{cfa} 326 void example(MonitorA & mutex argA, MonitorB & mutex argB); 327 \end{cfa} 335 328 When the function is called, it implicitly acquires the monitor lock for all of 336 329 the mutex parameters without deadlock. This semantics means all functions with … … 362 355 { 363 356 StringWorker stringworker; // fork thread running in "main" 364 } // implicitly join with thread / wait for completion357 } // <- implicitly join with thread / wait for completion 365 358 \end{cfa} 366 359 The thread main is where a new thread starts execution after a fork operation -
doc/theses/andrew_beach_MMath/intro.tex
r5541ea3d r0640189e 2 2 3 3 % The highest level overview of Cforall and EHMs. Get this done right away. 4 This thesis coversthe design and implementation of the exception handling4 This thesis goes over the design and implementation of the exception handling 5 5 mechanism (EHM) of 6 6 \CFA (pronounced sea-for-all and may be written Cforall or CFA). 7 \CFA is a new programming language that extends C, whichmaintains7 \CFA is a new programming language that extends C, that maintains 8 8 backwards-compatibility while introducing modern programming features. 9 9 Adding exception handling to \CFA gives it new ways to handle errors and 10 make large control-flow jumps.10 make other large control-flow jumps. 11 11 12 12 % Now take a step back and explain what exceptions are generally. 13 A language's EHM is a combination of language syntax and run-time14 components that are used to construct, raise, and handle exceptions,15 including all control flow.16 Exceptions are an active mechanism for replacing passive error/return codes and return unions (Go and Rust).17 13 Exception handling provides dynamic inter-function control flow. 18 14 There are two forms of exception handling covered in this thesis: 19 15 termination, which acts as a multi-level return, 20 16 and resumption, which is a dynamic function call. 21 % PAB: Maybe this sentence was suppose to be deleted?22 17 Termination handling is much more common, 23 to the extent that it is often seen as the only form of handling. 24 % PAB: I like this sentence better than the next sentence. 25 % This separation is uncommon because termination exception handling is so 26 % much more common that it is often assumed. 18 to the extent that it is often seen 19 This seperation is uncommon because termination exception handling is so 20 much more common that it is often assumed. 27 21 % WHY: Mention other forms of continuation and \cite{CommonLisp} here? 28 29 Exception handling relies on the concept of nested functions to create handlers that deal with exceptions. 22 A language's EHM is the combination of language syntax and run-time 23 components that are used to construct, raise and handle exceptions, 24 including all control flow. 25 26 Termination exception handling allows control to return to any previous 27 function on the stack directly, skipping any functions between it and the 28 current function. 30 29 \begin{center} 31 \begin{tabular}[t]{ll} 32 \begin{lstlisting}[aboveskip=0pt,belowskip=0pt,language=CFA,{moredelim=**[is][\color{red}]{@}{@}}] 33 void f( void (*hp)() ) { 34 hp(); 35 } 36 void g( void (*hp)() ) { 37 f( hp ); 38 } 39 void h( int @i@, void (*hp)() ) { 40 void @handler@() { // nested 41 printf( "%d\n", @i@ ); 42 } 43 if ( i == 1 ) hp = handler; 44 if ( i > 0 ) h( i - 1, hp ); 45 else g( hp ); 46 } 47 h( 2, 0 ); 48 \end{lstlisting} 49 & 50 \raisebox{-0.5\totalheight}{\input{handler}} 51 \end{tabular} 30 \input{callreturn} 52 31 \end{center} 53 The nested function @handler@ in the second stack frame is explicitly passed to function @f@. 54 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. 55 Setting @hp@ in @h@ at different points in the recursion, results in invoking a different handler. 56 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. 57 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. 58 59 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. 60 \begin{center} 61 \input{termination} 62 \end{center} 63 Note, since the handler can reference variables in @h@, @h@ must remain on the stack for the handler call. 64 After the handler returns, control continues after the lexical location of the handler in @h@ (static return)~\cite[p.~108]{Tennent77}. 65 Unwinding allows recover to any previous 66 function on the stack, skipping any functions between it and the 67 function containing the matching handler. 68 69 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. 70 \begin{center} 71 \input{resumption} 72 \end{center} 73 After the handler returns, control continues after the resume in @f@ (dynamic return). 74 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. 32 33 Resumption exception handling seaches the stack for a handler and then calls 34 it without adding or removing any other stack frames. 35 \todo{Add a diagram showing control flow for resumption.} 75 36 76 37 Although a powerful feature, exception handling tends to be complex to set up 77 38 and expensive to use 78 so it isoften limited to unusual or ``exceptional" cases.79 The classic example is error handling, where exceptions are used to80 remove error handling logic from the main execution path ,while paying39 so they are often limited to unusual or ``exceptional" cases. 40 The classic example of this is error handling, exceptions can be used to 41 remove error handling logic from the main execution path and while paying 81 42 most of the cost only when the error actually occurs. 82 43 … … 88 49 some of the underlying tools used to implement and express exception handling 89 50 in other languages are absent in \CFA. 90 Still the resulting basicsyntax resembles that of other languages:91 \begin{ lstlisting}[language=CFA,{moredelim=**[is][\color{red}]{@}{@}}]92 @try@{51 Still the resulting syntax resembles that of other languages: 52 \begin{cfa} 53 try { 93 54 ... 94 55 T * object = malloc(request_size); 95 56 if (!object) { 96 @throw@OutOfMemory{fixed_allocation, request_size};57 throw OutOfMemory{fixed_allocation, request_size}; 97 58 } 98 59 ... 99 } @catch@(OutOfMemory * error) {60 } catch (OutOfMemory * error) { 100 61 ... 101 62 } 102 \end{lstlisting} 63 \end{cfa} 64 103 65 % A note that yes, that was a very fast overview. 104 66 The design and implementation of all of \CFA's EHM's features are … … 107 69 108 70 % The current state of the project and what it contributes. 109 The majority of the \CFA EHM is implemented in \CFA, except for a small amount of assembler code. 110 In addition, 111 a suite of tests and performance benchmarks were created as part of this project. 112 The \CFA implementation techniques are generally applicable in other programming 71 All of these features have been implemented in \CFA, along with 72 a suite of test cases as part of this project. 73 The implementation techniques are generally applicable in other programming 113 74 languages and much of the design is as well. 114 Some parts of the EHM use features unique to \CFA, and hence, 115 are harder to replicate in other programming languages. 75 Some parts of the EHM use other features unique to \CFA and these would be 76 harder to replicate in other programming languages. 77 116 78 % Talk about other programming languages. 117 Three well known programming languages with EHMs, %/exception handling 118 C++, Java and Python are examined in the performance work. However, these languages focus on termination 119 exceptions, so there is no comparison with resumption. 79 Some existing programming languages that include EHMs/exception handling 80 include C++, Java and Python. All three examples focus on termination 81 exceptions which unwind the stack as part of the 82 Exceptions also can replace return codes and return unions. 120 83 121 84 The contributions of this work are: 122 85 \begin{enumerate} 123 86 \item Designing \CFA's exception handling mechanism, adapting designs from 124 other programming languages , and creatingnew features.125 \item Implementing stack unwinding for the \CFA EHM, including updating126 the \CFA compiler and run-time environment to generate and execute the EHM code.127 \item Design ing and implementinga prototype virtual system.87 other programming languages and the creation of new features. 88 \item Implementing stack unwinding and the EHM in \CFA, including updating 89 the compiler and the run-time environment. 90 \item Designed and implemented a prototype virtual system. 128 91 % I think the virtual system and per-call site default handlers are the only 129 92 % "new" features, everything else is a matter of implementation. 130 \item Creating tests and performance benchmarks to compare with EHM's in other languages.131 93 \end{enumerate} 132 94 133 %\todo{I can't figure out a good lead-in to the roadmap.}134 The thesis is organization as follows.135 The next section and parts of \autoref{c:existing} cover existing EHMs.136 New \CFA EHMfeatures are introduced in \autoref{c:features},137 coveringtheir usage and design.138 That is followed by the implementation of th ese features in95 \todo{I can't figure out a good lead-in to the roadmap.} 96 The next section covers the existing state of exceptions. 97 The existing state of \CFA is also covered in \autoref{c:existing}. 98 The new features are introduced in \autoref{c:features}, 99 which explains their usage and design. 100 That is followed by the implementation of those features in 139 101 \autoref{c:implement}. 140 Performance results are presented in \autoref{c:performance}.141 Summing up and possibilities for extendingthis project are discussed in \autoref{c:future}.102 The performance results are examined in \autoref{c:performance}. 103 Possibilities to extend this project are discussed in \autoref{c:future}. 142 104 143 105 \section{Background} 144 106 \label{s:background} 145 107 146 Exception handling is a well examined area in programming languages, 147 with papers on the subject dating back the 70s~\cite{Goodenough75}. 148 Early exceptions were often treated as signals, which carried no information 149 except their identity. Ada~\cite{Ada} still uses this system. 150 151 The modern flag-ship for termination exceptions is \Cpp, 108 Exception handling is not a new concept, 109 with papers on the subject dating back 70s. 110 111 Their were popularised by \Cpp, 152 112 which added them in its first major wave of non-object-orientated features 153 113 in 1990. 154 114 % https://en.cppreference.com/w/cpp/language/history 155 While many EHMs have special exception types, 156 \Cpp has the ability to use any type as an exception. 157 However, this generality is not particularly useful, and has been pushed aside for classes, with a convention of inheriting from 158 \code{C++}{std::exception}. 159 While \Cpp has a special catch-all syntax @catch(...)@, there is no way to discriminate its exception type, so nothing can 160 be done with the caught value because nothing is known about it. 161 Instead the base exception-type \code{C++}{std::exception} is defined with common functionality (such as 162 the ability to print a message when the exception is raised but not caught) and all 163 exceptions have this functionality. 164 Having a root exception-type seems to be the standard now, as the guaranteed functionality is worth 165 any lost in flexibility from limiting exceptions types to classes. 166 167 Java~\cite{Java} was the next popular language to use exceptions. 168 Its exception system largely reflects that of \Cpp, except it requires 169 exceptions to be a subtype of \code{Java}{java.lang.Throwable} 170 and it uses checked exceptions. 171 Checked exceptions are part of a function's interface defining all exceptions it or its called functions raise. 172 Using this information, it is possible to statically verify if a handler exists for all raised exception, \ie no uncaught exceptions. 173 Making exception information explicit, improves clarity and 115 116 Java was the next popular language to use exceptions. It is also the most 117 popular language with checked exceptions. 118 Checked exceptions are part of the function interface they are raised from. 119 This includes functions they propogate through, until a handler for that 120 type of exception is found. 121 This makes exception information explicit, which can improve clarity and 174 122 safety, but can slow down programming. 175 For example, programming complexity increases when dealing with high-order methods or an overly specified 176 throws clause. However some of the issues are more 177 programming annoyances, such as writing/updating many exception signatures after adding or remove calls. 178 Java programmers have developed multiple programming ``hacks'' to circumvent checked exceptions negating the robustness it is suppose to provide. 179 For example, the ``catch-and-ignore" pattern, where the handler is empty because the exception does not appear relevant to the programmer versus 180 repairing or recovering from the exception. 181 182 %\subsection 183 Resumption exceptions are less popular, 184 although resumption is as old as termination; 185 hence, few 186 programming languages have implemented them. 123 Some of these, such as dealing with high-order methods or an overly specified 124 throws clause, are technical. However some of the issues are much more 125 human, in that writing/updating all the exception signatures can be enough 126 of a burden people will hack the system to avoid them. 127 Including the ``catch-and-ignore" pattern where a catch block is used without 128 anything to repair or recover from the exception. 129 130 %\subsection 131 Resumption exceptions have been much less popular. 132 Although resumption has a history as old as termination's, very few 133 programming languages have implement them. 187 134 % http://bitsavers.informatik.uni-stuttgart.de/pdf/xerox/parc/techReports/ 188 135 % CSL-79-3_Mesa_Language_Manual_Version_5.0.pdf 189 Mesa ~\cite{Mesa} is one programming languages that did. Experience with Mesa190 is quoted as being one of the reasons resumptions are not136 Mesa is one programming languages that did and experiance with that 137 languages is quoted as being one of the reasons resumptions were not 191 138 included in the \Cpp standard. 192 139 % https://en.wikipedia.org/wiki/Exception_handling 193 As a result, resumption has ignored in main-stream programming languages. 194 However, ``what goes around comes around'' and resumption is being revisited now (like user-level threading). 195 While rejecting resumption might have been the right decision in the past, there are decades 196 of developments in computer science that have changed the situation. 197 Some of these developments, such as functional programming's resumption 198 equivalent, algebraic effects\cite{Zhang19}, are enjoying significant success. 199 A complete reexamination of resumptions is beyond this thesis, but their re-emergence is 200 enough to try them in \CFA. 201 % Especially considering how much easier they are to implement than 202 % termination exceptions. 203 204 %\subsection 205 Functional languages tend to use other solutions for their primary EHM, 206 but exception-like constructs still appear. 207 Termination appears in error construct, which marks the result of an 208 expression as an error; thereafter, the result of any expression that tries to use it is also an 209 error, and so on until an appropriate handler is reached. 210 Resumption appears in algebraic effects, where a function dispatches its 211 side-effects to its caller for handling. 212 213 %\subsection 214 Some programming languages have moved to a restricted kind of EHM 215 called ``panic". 216 In Rust~\cite{Rust}, a panic is just a program level abort that may be implemented by 217 unwinding the stack like in termination exception handling. 140 \todo{A comment about why we did include them when they are so unpopular 141 might be approprate.} 142 143 %\subsection 144 Functional languages, tend to use solutions like the return union, but some 145 exception-like constructs still appear. 146 147 For instance Haskell's built in error mechanism can make the result of any 148 expression, including function calls. Any expression that examines an 149 error value will in-turn produce an error. This continues until the main 150 function produces an error or until it is handled by one of the catch 151 functions. 152 153 %\subsection 154 More recently exceptions seem to be vanishing from newer programming 155 languages. 156 Rust and Go reduce this feature to panics. 157 Panicing is somewhere between a termination exception and a program abort. 158 Notably in Rust a panic can trigger either, a panic may unwind the stack or 159 simply kill the process. 218 160 % https://doc.rust-lang.org/std/panic/fn.catch_unwind.html 219 In Go~\cite{Go}, a panic is very similar to a termination, except it only supports220 a catch-all by calling \code{Go}{recover()}, simplifying the interface at 221 the cost of flexibility.222 223 %\subsection 224 While exception handling's most common use cases are in error handling, 225 here are other ways to handle errors with comparisons toexceptions.161 Go's panic is much more similar to a termination exception but there is 162 only a catch-all function with \code{Go}{recover()}. 163 So exceptions still are appearing, just in reduced forms. 164 165 %\subsection 166 Exception handling's most common use cases are in error handling. 167 Here are some other ways to handle errors and comparisons with exceptions. 226 168 \begin{itemize} 227 169 \item\emph{Error Codes}: 228 This pattern has a function return an enumeration (or just a set of fixed values) to indicate 229 if an error occurred and possibly which error it was. 230 231 Error codes mix exceptional and normal values, artificially enlarging the type and/or value range. 232 Some languages address this issue by returning multiple values or a tuple, separating the error code from the function result. 233 However, the main issue with error codes is forgetting to checking them, 234 which leads to an error being quietly and implicitly ignored. 235 Some new languages have tools that issue warnings, if the error code is 236 discarded to avoid this problem. 237 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.. 238 170 This pattern uses an enumeration (or just a set of fixed values) to indicate 171 that an error has occured and which error it was. 172 173 There are some issues if a function wants to return an error code and another 174 value. The main issue is that it can be easy to forget checking the error 175 code, which can lead to an error being quitely and implicitly ignored. 176 Some new languages have tools that raise warnings if the return value is 177 discarded to avoid this. 178 It also puts more code on the main execution path. 239 179 \item\emph{Special Return with Global Store}: 240 Some functions only return a boolean indicating success or failure 241 and store the exact reason for the error in a fixed global location. 242 For example, many C routines return non-zero or -1, indicating success or failure, 243 and write error details into the C standard variable @errno@. 244 245 This approach avoids the multiple results issue encountered with straight error codes 246 but otherwise has many (if not more) of the disadvantages. 247 For example, everything that uses the global location must agree on all possible errors and global variable are unsafe with concurrency. 248 180 A function that encounters an error returns some value indicating that it 181 encountered a value but store which error occured in a fixed global location. 182 183 Perhaps the C standard @errno@ is the most famous example of this, 184 where some standard library functions will return some non-value (often a 185 NULL pointer) and set @errno@. 186 187 This avoids the multiple results issue encountered with straight error codes 188 but otherwise many of the same advantages and disadvantages. 189 It does however introduce one other major disadvantage: 190 Everything that uses that global location must agree on all possible errors. 249 191 \item\emph{Return Union}: 250 This pattern replaces error codes with a tagged union.192 Replaces error codes with a tagged union. 251 193 Success is one tag and the errors are another. 252 194 It is also possible to make each possible error its own tag and carry its own … … 254 196 so that one type can be used everywhere in error handling code. 255 197 256 This pattern is very popular in functional or any semi-functional language with257 primitive support for tagged unions (or algebraic data types).198 This pattern is very popular in functional or semi-functional language, 199 anything with primitive support for tagged unions (or algebraic data types). 258 200 % We need listing Rust/rust to format code snipits from it. 259 201 % Rust's \code{rust}{Result<T, E>} 260 The main advantage is providing for more information about an 261 error, other than one of a fix-set of ids.262 While some languages use checked union access to force error-code checking, 263 it is still possible to bypass the checking.264 The main disadvantage is again significant error code on the main execution path and cascading through called functions.265 202 203 The main disadvantage is again it puts code on the main execution path. 204 This is also the first technique that allows for more information about an 205 error, other than one of a fix-set of ids, to be sent. 206 They can be missed but some languages can force that they are checked. 207 It is also implicitly forced in any languages with checked union access. 266 208 \item\emph{Handler Functions}: 267 This pattern implicitly associates functions with errors. 268 On error, the function that produced the error implicitly calls another function to 209 On error the function that produced the error calls another function to 269 210 handle it. 270 211 The handler function can be provided locally (passed in as an argument, 271 212 either directly as as a field of a structure/object) or globally (a global 272 213 variable). 273 C++ uses this approach as its fallback system if exception handling fails, \eg 214 215 C++ uses this as its fallback system if exception handling fails. 274 216 \snake{std::terminate_handler} and for a time \snake{std::unexpected_handler} 275 217 276 Handler functions work a lot like resumption exceptions , without the dynamic handler search.277 The refore, 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,278 are more suited to frequent exceptional situations.279 %The exception being global handlers if they are rarely change as the time280 % in both cases shrinks towards zero.218 Handler functions work a lot like resumption exceptions. 219 The difference is they are more expencive to set up but cheaper to use, and 220 so are more suited to more fequent errors. 221 The exception being global handlers if they are rarely change as the time 222 in both cases strinks towards zero. 281 223 \end{itemize} 282 224 283 225 %\subsection 284 Because of their cost, exceptions are rarely used for hot paths of execution. 285 Therefore, there is an element of self-fulfilling prophecy for implementation 286 techniques to make exceptions cheap to set-up at the cost 287 of expensive usage. 288 This cost differential is less important in higher-level scripting languages, where use of exceptions for other tasks is more common. 289 An iconic example is Python's @StopIteration@ exception that is thrown by 290 an iterator to indicate that it is exhausted, especially when combined with Python's heavy 291 use of the iterator-based for-loop. 226 Because of their cost exceptions are rarely used for hot paths of execution. 227 There is an element of self-fulfilling prophocy here as implementation 228 techniques have been designed to make exceptions cheap to set-up at the cost 229 of making them expencive to use. 230 Still, use of exceptions for other tasks is more common in higher-level 231 scripting languages. 232 An iconic example is Python's StopIteration exception which is thrown by 233 an iterator to indicate that it is exausted. Combined with Python's heavy 234 use of the iterator based for-loop. 292 235 % https://docs.python.org/3/library/exceptions.html#StopIteration -
doc/theses/andrew_beach_MMath/performance.tex
r5541ea3d r0640189e 1 1 \chapter{Performance} 2 2 \label{c:performance} 3 4 \textbf{Just because of the stage of testing there are design notes for 5 the tests as well as commentary on them.} 3 6 4 7 Performance has been of secondary importance for most of this project. … … 8 11 9 12 \section{Test Set-Up} 10 Tests will be run in \CFA, C++, Java and Python. 11 In addition there are two sets of tests for \CFA, 12 one for termination exceptions and once with resumption exceptions. 13 Tests will be run on \CFA, C++ and Java. 13 14 14 15 C++ is the most comparable language because both it and \CFA use the same … … 17 18 comparison. \CFA's EHM has had significantly less time to be optimized and 18 19 does not generate its own assembly. It does have a slight advantage in that 19 there are some features it does not handle, through utility functions, 20 but otherwise \Cpp has a significant advantage. 20 there are some features it does not handle. 21 21 22 22 Java is another very popular language with similar termination semantics. … … 25 25 It also implements the finally clause on try blocks allowing for a direct 26 26 feature-to-feature comparison. 27 As with \Cpp, Java's implementation is more mature, has more optimizations28 and more extra features.29 30 Python was used as a point of comparison because of the \CFA EHM's31 current performance goals, which is not be prohibitively slow while the32 features are designed and examined. Python has similar performance goals for33 creating quick scripts and its wide use suggests it has achieved those goals.34 35 Unfortunately there are no notable modern programming languages with36 resumption exceptions. Even the older programming languages with resumptions37 seem to be notable only for having resumptions.38 So instead resumptions are compared to a less similar but much more familiar39 feature, termination exceptions.40 27 41 28 All tests are run inside a main loop which will perform the test 42 29 repeatedly. This is to avoids start-up or tear-down time from 43 30 affecting the timing results. 44 Most test were run 1 000 000 (a million) times. 45 The Java versions of the test also run this loop an extra 1000 times before 46 beginning to time the results to ``warm-up" the JVM. 47 48 Timing is done internally, with time measured immediately before and 49 immediately after the test loop. The difference is calculated and printed. 50 51 The loop structure and internal timing means it is impossible to test 52 unhandled exceptions in \Cpp and Java as that would cause the process to 53 terminate. 54 Luckily, performance on the ``give-up and kill the process" path is not 55 critical. 31 A consequence of this is that tests cannot terminate the program, 32 which does limit how tests can be implemented. 33 There are catch-alls to keep unhandled 34 exceptions from terminating tests. 56 35 57 36 The exceptions used in these tests will always be a exception based off of 58 37 the base exception. This requirement minimizes performance differences based 59 on the object model used to repersent the exception. 38 on the object model. 39 Catch-alls are done by catching the root exception type (not using \Cpp's 40 \code{C++}{catch(...)}). 60 41 61 All tests were designed to be as minimal as possible while still preventing 62 exessive optimizations. 63 For example, empty inline assembly blocks are used in \CFA and \Cpp to 64 prevent excessive optimizations while adding no actual work. 65 66 % We don't use catch-alls but if we did: 67 % Catch-alls are done by catching the root exception type (not using \Cpp's 68 % \code{C++}{catch(...)}). 42 Tests run in Java were not warmed because exception code paths should not be 43 hot. 69 44 70 45 \section{Tests} … … 72 47 components of the exception system. 73 48 The should provide a guide as to where the EHM's costs can be found. 49 50 Tests are run in \CFA, \Cpp and Java. 51 Not every test is run in every language, if the feature under test is missing 52 the test is skipped. These cases will be noted. 53 In addition to the termination tests for every language, 54 \CFA has a second set of tests that test resumption. These are the same 55 except that the raise statements and handler clauses are replaced with the 56 resumption variants. 74 57 75 58 \paragraph{Raise and Handle} … … 79 62 start-up and shutdown on the results. 80 63 Each iteration of the main loop 81 \begin{itemize} [nosep]64 \begin{itemize} 82 65 \item Empty Function: 83 66 The repeating function is empty except for the necessary control code. … … 85 68 The repeating function creates an object with a destructor before calling 86 69 itself. 70 (Java is skipped as it does not destructors.) 87 71 \item Finally: 88 72 The repeating function calls itself inside a try block with a finally clause 89 73 attached. 74 (\Cpp is skipped as it does not have finally clauses.) 90 75 \item Other Handler: 91 76 The repeating function calls itself inside a try block with a handler that … … 99 84 In each iteration, a try statement is executed. Entering and leaving a loop 100 85 is all the test wants to do. 101 \begin{itemize} [nosep]86 \begin{itemize} 102 87 \item Handler: 103 88 The try statement has a handler (of the matching kind). … … 110 95 Only \CFA implements the language level conditional match, 111 96 the other languages must mimic with an ``unconditional" match (it still 112 checks the exception's type) and conditional re-raise if it was not supposed 113 to handle that exception. 114 \begin{itemize}[nosep] 115 \item Match All: 97 checks the exception's type) and conditional re-raise. 98 \begin{itemize} 99 \item Catch All: 116 100 The condition is always true. (Always matches or never re-raises.) 117 \item Match None:101 \item Catch None: 118 102 The condition is always false. (Never matches or always re-raises.) 119 103 \end{itemize} … … 129 113 %related to -fexceptions.) 130 114 131 \section{Results} 132 Each test is was run five times, the best and worst result were discarded and 133 the remaining values were averaged. 115 % Some languages I left out: 116 % Python: Its a scripting language, different 117 % uC++: Not well known and should the same results as C++, except for 118 % resumption which should be the same. 134 119 135 In cases where a feature is not supported by a language the test is skipped 136 for that language. Similarly, if a test is does not change between resumption 137 and termination in \CFA, then only one test is written and the result 138 was put into the termination column. 139 140 \begin{tabular}{|l|c c c c c|} 141 \hline 142 & \CFA (Terminate) & \CFA (Resume) & \Cpp & Java & Python \\ 143 \hline 144 Raise Empty & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\ 145 Raise D'tor & 0.0 & 0.0 & 0.0 & N/A & N/A \\ 146 Raise Finally & 0.0 & 0.0 & N/A & 0.0 & 0.0 \\ 147 Raise Other & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\ 148 Cross Handler & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\ 149 Cross Finally & 0.0 & N/A & N/A & 0.0 & 0.0 \\ 150 Match All & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\ 151 Match None & 0.0 & 0.0 & 0.0 & 0.0 & 0.0 \\ 152 \hline 153 \end{tabular} 120 %\section{Resumption Comparison} 121 \todo{Can we find a good language to compare resumptions in.} -
doc/theses/andrew_beach_MMath/uw-ethesis.tex
r5541ea3d r0640189e 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 \lstset{moredelim=**[is][\protect\color{red}]{@}{@}} 214 213 % Annotations from Peter: 215 214 \newcommand{\PAB}[1]{{\color{blue}PAB: #1}} -
doc/theses/mubeen_zulfiqar_MMath/allocator.tex
r5541ea3d r0640189e 111 111 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 112 112 113 \section{Added Features and Methods} 114 To improve the UHeapLmmm allocator (FIX ME: cite uHeapLmmm) interface and make it more user friendly, we added a few more routines to the C allocator. Also, we built a CFA (FIX ME: cite cforall) interface on top of C interface to increase the usability of the allocator. 113 \section{Added Features} 115 114 116 \subsection{C Interface}117 We added a few more features and routines to the allocator's C interface that can make the allocator more usable to the programmers. THese features will programmer more control on the dynamic memory allocation.118 115 119 \subsubsection void * aalloc( size_t dim, size_t elemSize ) 120 aalloc is an extension of malloc. It allows programmer to allocate a dynamic array of objects without calculating the total size of array explicitly. The only alternate of this routine in the other allocators is calloc but calloc also fills the dynamic memory with 0 which makes it slower for a programmer who only wants to dynamically allocate an array of objects without filling it with 0. 121 \paragraph{Usage} 122 aalloc takes two parameters. 123 \begin{itemize} 124 \item 125 dim: number of objects in the array 126 \item 127 elemSize: size of the object in the array. 128 \end{itemize} 129 It returns address of dynamic object allocatoed on heap that can contain dim number of objects of the size elemSize. On failure, it returns NULL pointer. 116 \subsection{Methods} 117 Why did we need it? 118 The added benefits. 130 119 131 \subsubsection void * resize( void * oaddr, size_t size )132 resize is an extension of relloc. It allows programmer to reuse a cuurently allocated dynamic object with a new size requirement. Its alternate in the other allocators is realloc but relloc also copy the data in old object to the new object which makes it slower for the programmer who only wants to reuse an old dynamic object for a new size requirement but does not want to preserve the data in the old object to the new object.133 \paragraph{Usage}134 resize takes two parameters.135 \begin{itemize}136 \item137 oaddr: the address of the old object that needs to be resized.138 \item139 size: the new size requirement of the to which the old object needs to be resized.140 \end{itemize}141 It returns an object that is of the size given but it does not preserve the data in the old object. On failure, it returns NULL pointer.142 143 \subsubsection void * resize( void * oaddr, size_t nalign, size_t size )144 This resize is an extension of the above resize (FIX ME: cite above resize). In addition to resizing the size of of an old object, it can also realign the old object to a new alignment requirement.145 \paragraph{Usage}146 This resize takes three parameters. It takes an additional parameter of nalign as compared to the above resize (FIX ME: cite above resize).147 \begin{itemize}148 \item149 oaddr: the address of the old object that needs to be resized.150 \item151 nalign: the new alignment to which the old object needs to be realigned.152 \item153 size: the new size requirement of the to which the old object needs to be resized.154 \end{itemize}155 It returns an object with the size and alignment given in the parameters. On failure, it returns a NULL pointer.156 157 \subsubsection void * amemalign( size_t alignment, size_t dim, size_t elemSize )158 amemalign is a hybrid of memalign and aalloc. It allows programmer to allocate an aligned dynamic array of objects without calculating the total size of the array explicitly. It frees the programmer from calculating the total size of the array.159 \paragraph{Usage}160 amemalign takes three parameters.161 \begin{itemize}162 \item163 alignment: the alignment to which the dynamic array needs to be aligned.164 \item165 dim: number of objects in the array166 \item167 elemSize: size of the object in the array.168 \end{itemize}169 It returns a dynamic array of objects that has the capacity to contain dim number of objects of the size of elemSize. The returned dynamic array is aligned to the given alignment. On failure, it returns NULL pointer.170 171 \subsubsection void * cmemalign( size_t alignment, size_t dim, size_t elemSize )172 cmemalign is a hybrid of amemalign and calloc. It allows programmer to allocate an aligned dynamic array of objects that is 0 filled. The current way to do this in other allocators is to allocate an aligned object with memalign and then fill it with 0 explicitly. This routine provides both features of aligning and 0 filling, implicitly.173 \paragraph{Usage}174 cmemalign takes three parameters.175 \begin{itemize}176 \item177 alignment: the alignment to which the dynamic array needs to be aligned.178 \item179 dim: number of objects in the array180 \item181 elemSize: size of the object in the array.182 \end{itemize}183 It returns a dynamic array of objects that has the capacity to contain dim number of objects of the size of elemSize. The returned dynamic array is aligned to the given alignment and is 0 filled. On failure, it returns NULL pointer.184 185 \subsubsection size_t malloc_alignment( void * addr )186 malloc_alignment returns the alignment of a currently allocated dynamic object. It allows the programmer in memory management and personal bookkeeping. It helps the programmer in verofying the alignment of a dynamic object especially in a scenerio similar to prudcer-consumer where a producer allocates a dynamic object and the consumer needs to assure that the dynamic object was allocated with the required alignment.187 \paragraph{Usage}188 malloc_alignment takes one parameters.189 \begin{itemize}190 \item191 addr: the address of the currently allocated dynamic object.192 \end{itemize}193 malloc_alignment returns the alignment of the given dynamic object. On failure, it return the value of default alignment of the uHeapLmmm allocator.194 195 \subsubsection bool malloc_zero_fill( void * addr )196 malloc_zero_fill returns whether a currently allocated dynamic object was initially zero filled at the time of allocation. It allows the programmer in memory management and personal bookkeeping. It helps the programmer in verifying the zero filled property of a dynamic object especially in a scenerio similar to prudcer-consumer where a producer allocates a dynamic object and the consumer needs to assure that the dynamic object was zero filled at the time of allocation.197 \paragraph{Usage}198 malloc_zero_fill takes one parameters.199 \begin{itemize}200 \item201 addr: the address of the currently allocated dynamic object.202 \end{itemize}203 malloc_zero_fill returns true if the dynamic object was initially zero filled and return false otherwise. On failure, it returns false.204 205 \subsubsection size_t malloc_size( void * addr )206 malloc_size returns the allocation size of a currently allocated dynamic object. It allows the programmer in memory management and personal bookkeeping. It helps the programmer in verofying the alignment of a dynamic object especially in a scenerio similar to prudcer-consumer where a producer allocates a dynamic object and the consumer needs to assure that the dynamic object was allocated with the required size. Its current alternate in the other allocators is malloc_usable_size. But, malloc_size is different from malloc_usable_size as malloc_usabe_size returns the total data capacity of dynamic object including the extra space at the end of the dynamic object. On the other hand, malloc_size returns the size that was given to the allocator at the allocation of the dynamic object. This size is updated when an object is realloced, resized, or passed through a similar allocator routine.207 \paragraph{Usage}208 malloc_size takes one parameters.209 \begin{itemize}210 \item211 addr: the address of the currently allocated dynamic object.212 \end{itemize}213 malloc_size returns the allocation size of the given dynamic object. On failure, it return zero.214 215 \subsubsection void * realloc( void * oaddr, size_t nalign, size_t size )216 This realloc is an extension of the default realloc (FIX ME: cite default realloc). In addition to reallocating an old object and preserving the data in old object, it can also realign the old object to a new alignment requirement.217 \paragraph{Usage}218 This realloc takes three parameters. It takes an additional parameter of nalign as compared to the default realloc.219 \begin{itemize}220 \item221 oaddr: the address of the old object that needs to be reallocated.222 \item223 nalign: the new alignment to which the old object needs to be realigned.224 \item225 size: the new size requirement of the to which the old object needs to be resized.226 \end{itemize}227 It returns an object with the size and alignment given in the parameters that preserves the data in the old object. On failure, it returns a NULL pointer.228 229 \subsection{CFA Malloc Interface}230 We added some routines to the malloc interface of CFA. These routines can only be used in CFA and not in our standalone uHeapLmmm allocator as these routines use some features that are only provided by CFA and not by C. It makes the allocator even more usable to the programmers.231 CFA provides the liberty to know the returned type of a call to the allocator. So, mainly in these added routines, we removed the object size parameter from the routine as allocator can calculate the size of the object from the returned type.232 233 \subsubsection T * malloc( void )234 This malloc is a simplified polymorphic form of defualt malloc (FIX ME: cite malloc). It does not take any parameter as compared to default malloc that takes one parameter.235 \paragraph{Usage}236 This malloc takes no parameters.237 It returns a dynamic object of the size of type T. On failure, it return NULL pointer.238 239 \subsubsection T * aalloc( size_t dim )240 This aalloc is a simplified polymorphic form of above aalloc (FIX ME: cite aalloc). It takes one parameter as compared to the above aalloc that takes two parameters.241 \paragraph{Usage}242 aalloc takes one parameters.243 \begin{itemize}244 \item245 dim: required number of objects in the array.246 \end{itemize}247 It returns a dynamic object that has the capacity to contain dim number of objects, each of the size of type T. On failure, it return NULL pointer.248 249 \subsubsection T * calloc( size_t dim )250 This calloc is a simplified polymorphic form of defualt calloc (FIX ME: cite calloc). It takes one parameter as compared to the default calloc that takes two parameters.251 \paragraph{Usage}252 This calloc takes one parameter.253 \begin{itemize}254 \item255 dim: required number of objects in the array.256 \end{itemize}257 It returns a dynamic object that has the capacity to contain dim number of objects, each of the size of type T. On failure, it return NULL pointer.258 259 \subsubsection T * resize( T * ptr, size_t size )260 This resize is a simplified polymorphic form of above resize (FIX ME: cite resize with alignment). It takes two parameters as compared to the above resize that takes three parameters. It frees the programmer from explicitly mentioning the alignment of the allocation as CFA provides gives allocator the liberty to get the alignment of the returned type.261 \paragraph{Usage}262 This resize takes two parameters.263 \begin{itemize}264 \item265 ptr: address of the old object.266 \item267 size: the required size of the new object.268 \end{itemize}269 It returns a dynamic object of the size given in paramters. The returned object is aligned to the alignemtn of type T. On failure, it return NULL pointer.270 271 \subsubsection T * realloc( T * ptr, size_t size )272 This realloc is a simplified polymorphic form of defualt realloc (FIX ME: cite realloc with align). It takes two parameters as compared to the above realloc that takes three parameters. It frees the programmer from explicitly mentioning the alignment of the allocation as CFA provides gives allocator the liberty to get the alignment of the returned type.273 \paragraph{Usage}274 This realloc takes two parameters.275 \begin{itemize}276 \item277 ptr: address of the old object.278 \item279 size: the required size of the new object.280 \end{itemize}281 It returns a dynamic object of the size given in paramters that preserves the data in the given object. The returned object is aligned to the alignemtn of type T. On failure, it return NULL pointer.282 283 \subsubsection T * memalign( size_t align )284 This memalign is a simplified polymorphic form of defualt memalign (FIX ME: cite memalign). It takes one parameters as compared to the default memalign that takes two parameters.285 \paragraph{Usage}286 memalign takes one parameters.287 \begin{itemize}288 \item289 align: the required alignment of the dynamic object.290 \end{itemize}291 It returns a dynamic object of the size of type T that is aligned to given parameter align. On failure, it return NULL pointer.292 293 \subsubsection T * amemalign( size_t align, size_t dim )294 This amemalign is a simplified polymorphic form of above amemalign (FIX ME: cite amemalign). It takes two parameter as compared to the above amemalign that takes three parameters.295 \paragraph{Usage}296 amemalign takes two parameters.297 \begin{itemize}298 \item299 align: required alignment of the dynamic array.300 \item301 dim: required number of objects in the array.302 \end{itemize}303 It returns a dynamic object that has the capacity to contain dim number of objects, each of the size of type T. The returned object is aligned to the given parameter align. On failure, it return NULL pointer.304 305 \subsubsection T * cmemalign( size_t align, size_t dim )306 This cmemalign is a simplified polymorphic form of above cmemalign (FIX ME: cite cmemalign). It takes two parameter as compared to the above cmemalign that takes three parameters.307 \paragraph{Usage}308 cmemalign takes two parameters.309 \begin{itemize}310 \item311 align: required alignment of the dynamic array.312 \item313 dim: required number of objects in the array.314 \end{itemize}315 It returns a dynamic object that has the capacity to contain dim number of objects, each of the size of type T. The returned object is aligned to the given parameter align and is zero filled. On failure, it return NULL pointer.316 317 \subsubsection T * aligned_alloc( size_t align )318 This aligned_alloc is a simplified polymorphic form of defualt aligned_alloc (FIX ME: cite aligned_alloc). It takes one parameter as compared to the default aligned_alloc that takes two parameters.319 \paragraph{Usage}320 This aligned_alloc takes one parameter.321 \begin{itemize}322 \item323 align: required alignment of the dynamic object.324 \end{itemize}325 It returns a dynamic object of the size of type T that is aligned to the given parameter. On failure, it return NULL pointer.326 327 \subsubsection int posix_memalign( T ** ptr, size_t align )328 This posix_memalign is a simplified polymorphic form of defualt posix_memalign (FIX ME: cite posix_memalign). It takes two parameters as compared to the default posix_memalign that takes three parameters.329 \paragraph{Usage}330 This posix_memalign takes two parameter.331 \begin{itemize}332 \item333 ptr: variable address to store the address of the allocated object.334 \item335 align: required alignment of the dynamic object.336 \end{itemize}337 It stores address of the dynamic object of the size of type T in given parameter ptr. This object is aligned to the given parameter. On failure, it return NULL pointer.338 339 \subsubsection T * valloc( void )340 This valloc is a simplified polymorphic form of defualt valloc (FIX ME: cite valloc). It takes no parameters as compared to the default valloc that takes one parameter.341 \paragraph{Usage}342 valloc takes no parameters.343 It returns a dynamic object of the size of type T that is aligned to the page size. On failure, it return NULL pointer.344 345 \subsubsection T * pvalloc( void )346 This pcvalloc is a simplified polymorphic form of defualt pcvalloc (FIX ME: cite pcvalloc). It takes no parameters as compared to the default pcvalloc that takes one parameter.347 \paragraph{Usage}348 pvalloc takes no parameters.349 It returns a dynamic object of the size that is calcutaed by rouding the size of type T. The returned object is also aligned to the page size. On failure, it return NULL pointer.350 120 351 121 \subsection{Alloc Interface} 352 In addition to improve allocator interface both for CFA and our standalone allocator uHeapLmmm in C. We also added a new alloc interface in CFA that increases usability of dynamic memory allocation. 353 This interface helps programmers in three major ways. 354 \begin{itemize} 355 \item 356 Routine Name: alloc interfce frees programmers from remmebring different routine names for different kind of dynamic allocations. 357 \item 358 Parametre Positions: alloc interface frees programmers from remembering parameter postions in call to routines. 359 \item 360 Object Size: alloc interface does not require programmer to mention the object size as CFA allows allocator to determince the object size from returned type of alloc call. 361 \end{itemize} 362 363 Alloc interface uses polymorphism, backtick routines (FIX ME: cite backtick) and ttype parameters of CFA (FIX ME: cite ttype) to provide a very simple dynamic memory allocation interface to the programmers. The new interfece has just one routine name alloc that can be used to perform a wide range of dynamic allocations. The parameters use backtick functions to provide a similar-to named parameters feature for our alloc interface so that programmers do not have to remember parameter positions in alloc call except the position of dimension (dim) parameter. 364 365 \subsubsection{Routine: T * alloc( ... )} 366 Call to alloc wihout any parameter returns one object of size of type T allocated dynamically. 367 Only the dimension (dim) parameter for array allocation has the fixed position in the alloc routine. If programmer wants to allocate an array of objects that the required number of members in the array has to be given as the first parameter to the alloc routine. 368 alocc routine accepts six kinds of arguments. Using different combinations of tha parameters, different kind of allocations can be performed. Any combincation of parameters can be used together except `realloc and `resize that should not be used simultanously in one call to routine as it creates ambiguity about whether to reallocate or resize a currently allocated dynamic object. If both `resize and `realloc are used in a call to alloc then the latter one will take effect or unexpected resulted might be produced. 369 370 \paragraph{Dim} 371 This is the only parameter in the alloc routine that has a fixed-position and it is also the only parameter that does not use a backtick function. It has to be passed at the first position to alloc call in-case of an array allocation of objects of type T. 372 It represents the required number of members in the array allocation as in CFA's aalloc (FIX ME: cite aalloc). 373 This parameter should be of type size_t. 374 375 Example: int a = alloc( 5 ) 376 This call will return a dynamic array of five integers. 377 378 \paragraph{Align} 379 This parameter is position-free and uses a backtick routine align (`align). The parameter passed with `align should be of type size_t. If the alignment parameter is not a power of two or is less than the default alignment of the allocator (that can be found out using routine libAlign in CFA) then the passed alignment parameter will be rejected and the default alignment will be used. 380 381 Example: int b = alloc( 5 , 64`align ) 382 This call will return a dynamic array of five integers. It will align the allocated object to 64. 383 384 \paragraph{Fill} 385 This parameter is position-free and uses a backtick routine fill (`fill). In case of realloc, only the extra space after copying the data in the old object will be filled with given parameter. 386 Three types of parameters can be passed using `fill. 387 \begin{itemize} 388 \item 389 char: A char can be passed with `fill to fill the whole dynamic allocation with the given char recursively till the end of required allocation. 390 \item 391 Object of returned type: An object of type of returned type can be passed with `fill to fill the whole dynamic allocation with the given object recursively till the end of required allocation. 392 \item 393 Dynamic object of returned type: A dynamic object of type of returned type can be passed with `fill to fill the dynamic allocation with the given dynamic object. In this case, the allocated memory is not filled recursively till the end of allocation. The filling happen untill the end object passed to `fill or the end of requested allocation reaches. 394 \end{itemize} 395 396 Example: int b = alloc( 5 , 'a'`fill ) 397 This call will return a dynamic array of five integers. It will fill the allocated object with character 'a' recursively till the end of requested allocation size. 398 399 Example: int b = alloc( 5 , 4`fill ) 400 This call will return a dynamic array of five integers. It will fill the allocated object with integer 4 recursively till the end of requested allocation size. 401 402 Example: int b = alloc( 5 , a`fill ) where a is a pointer of int type 403 This call will return a dynamic array of five integers. It will copy data in a to the returned object non-recursively untill end of a or the newly allocated object is reached. 404 405 \paragraph{Resize} 406 This parameter is position-free and uses a backtick routine resize (`resize). It represents the old dynamic object (oaddr) that the programmer wants to 407 \begin{itemize} 408 \item 409 resize to a new size. 410 \item 411 realign to a new alignment 412 \item 413 fill with something. 414 \end{itemize} 415 The data in old dynamic object will not be preserved in the new object. The type of object passed to `resize and the returned type of alloc call can be different. 416 417 Example: int b = alloc( 5 , a`resize ) 418 This call will resize object a to a dynamic array that can contain 5 integers. 419 420 Example: int b = alloc( 5 , a`resize , 32`align ) 421 This call will resize object a to a dynamic array that can contain 5 integers. The returned object will also be aligned to 32. 422 423 Example: int b = alloc( 5 , a`resize , 32`align , 2`fill) 424 This call will resize object a to a dynamic array that can contain 5 integers. The returned object will also be aligned to 32 and will be filled with 2. 425 426 \paragraph{Realloc} 427 This parameter is position-free and uses a backtick routine realloc (`realloc). It represents the old dynamic object (oaddr) that the programmer wants to 428 \begin{itemize} 429 \item 430 realloc to a new size. 431 \item 432 realign to a new alignment 433 \item 434 fill with something. 435 \end{itemize} 436 The data in old dynamic object will be preserved in the new object. The type of object passed to `realloc and the returned type of alloc call cannot be different. 437 438 Example: int b = alloc( 5 , a`realloc ) 439 This call will realloc object a to a dynamic array that can contain 5 integers. 440 441 Example: int b = alloc( 5 , a`realloc , 32`align ) 442 This call will realloc object a to a dynamic array that can contain 5 integers. The returned object will also be aligned to 32. 443 444 Example: int b = alloc( 5 , a`realloc , 32`align , 2`fill) 445 This call will resize object a to a dynamic array that can contain 5 integers. The returned object will also be aligned to 32. The extra space after copying data of a to the returned object will be filled with 2. 122 Why did we need it? 123 The added benefits. -
doc/theses/mubeen_zulfiqar_MMath/benchmarks.tex
r5541ea3d r0640189e 149 149 *** FIX ME: Insert a figure of above benchmark with description 150 150 151 \ paragrpah{Relevant Knobs}151 \subsubsection{Relevant Knobs} 152 152 *** FIX ME: Insert Relevant Knobs 153 153 … … 202 202 \paragraph{Relevant Knobs} 203 203 *** FIX ME: Insert Relevant Knobs 204 205 \section{Results} 206 *** FIX ME: add configuration details of memory allocators 207 208 \subsection{Memory Benchmark} 209 210 \subsubsection{Relevant Knobs} 211 212 \subsection{Speed Benchmark} 213 214 \subsubsection{Speed Time} 215 216 \paragraph{Relevant Knobs} 217 218 \subsubsection{Speed Workload} 219 220 \paragraph{Relevant Knobs} 221 222 \subsection{Cache Scratch} 223 224 \subsubsection{Cache Scratch Time} 225 226 \paragraph{Relevant Knobs} 227 228 \subsubsection{Cache Scratch Layout} 229 230 \paragraph{Relevant Knobs} 231 232 \subsection{Cache Thrash} 233 234 \subsubsection{Cache Thrash Time} 235 236 \paragraph{Relevant Knobs} 237 238 \subsubsection{Cache Thrash Layout} 239 240 \paragraph{Relevant Knobs} -
doc/theses/mubeen_zulfiqar_MMath/intro.tex
r5541ea3d r0640189e 24 24 \noindent 25 25 ==================== 26 27 \section{Introduction}28 Dynamic memory allocation and management is one of the core features of C. It gives programmer the freedom to allocate, free, use, and manage dynamic memory himself. The programmer is not given the complete control of the dynamic memory management instead an interface of memory allocator is given to the progrmmer that can be used to allocate/free dynamic memory for the application's use.29 30 Memory allocator is a layer between thr programmer and the system. Allocator gets dynamic memory from the system in heap/mmap area of application storage and manages it for programmer's use.31 32 GNU C Library (FIX ME: cite this) provides an interchangeable memory allocator that can be replaced with a custom memory allocator that supports required features and fulfills application's custom needs. It also allows others to innovate in memory allocation and design their own memory allocator. GNU C Library has set guidelines that should be followed when designing a standalone memory allocator. GNU C Library requires new memory allocators to have atlease following set of functions in their allocator's interface:33 34 \begin{itemize}35 \item36 malloc: it allocates and returns a chunk of dynamic memory of requested size (FIX ME: cite man page).37 \item38 calloc: it allocates and returns an array in dynamic memory of requested size (FIX ME: cite man page).39 \item40 realloc: it reallocates and returns an already allocated chunk of dynamic memory to a new size (FIX ME: cite man page).41 \item42 free: it frees an already allocated piece of dynamic memory (FIX ME: cite man page).43 \end{itemize}44 45 In addition to the above functions, GNU C Library also provides some more functions to increase the usability of the dynamic memory allocator. Most standalone allocators also provide all or some of the above additional functions.46 47 \begin{itemize}48 \item49 aligned_alloc50 \item51 malloc_usable_size52 \item53 memalign54 \item55 posix_memalign56 \item57 pvalloc58 \item59 valloc60 \end{itemize}61 62 With the rise of concurrent applications, memory allocators should be able to fulfill dynamic memory requests from multiple threads in parallel without causing contention on shared resources. There needs to be a set of a standard benchmarks that can be used to evaluate an allocator's performance in different scenerios.63 64 \section{Background}65 66 \subsection{Memory Allocation}67 With dynamic allocation being an important feature of C, there are many standalone memory allocators that have been designed for different purposes. For this thesis, we chose 7 of the most popular and widely used memory allocators.68 69 \paragraph{dlmalloc}70 dlmalloc (FIX ME: cite allocator) is a thread-safe allocator that is single threaded and single heap. dlmalloc maintains free-lists of different sizes to store freed dynamic memory. (FIX ME: cite wasik)71 72 \paragraph{hoard}73 Hoard (FIX ME: cite allocator) is a thread-safe allocator that is multi-threaded and using a heap layer framework. It has per-thred heaps that have thread-local free-lists, and a gloabl shared heap. (FIX ME: cite wasik)74 75 \paragraph{jemalloc}76 jemalloc (FIX ME: cite allocator) is a thread-safe allocator that uses multiple arenas. Each thread is assigned an arena. Each arena has chunks that contain contagious memory regions of same size. An arena has multiple chunks that contain regions of multiple sizes.77 78 \paragraph{ptmalloc}79 ptmalloc (FIX ME: cite allocator) is a modification of dlmalloc. It is a thread-safe multi-threaded memory allocator that uses multiple heaps. ptmalloc heap has similar design to dlmalloc's heap.80 81 \paragraph{rpmalloc}82 rpmalloc (FIX ME: cite allocator) is a thread-safe allocator that is multi-threaded and uses per-thread heap. Each heap has multiple size-classes and each size-calss contains memory regions of the relevant size.83 84 \paragraph{tbb malloc}85 tbb malloc (FIX ME: cite allocator) is a thread-safe allocator that is multi-threaded and uses private heap for each thread. Each private-heap has multiple bins of different sizes. Each bin contains free regions of the same size.86 87 \paragraph{tc malloc}88 tcmalloc (FIX ME: cite allocator) is a thread-safe allocator. It uses per-thread cache to store free objects that prevents contention on shared resources in multi-threaded application. A central free-list is used to refill per-thread cache when it gets empty.89 90 \subsection{Benchmarks}91 There are multiple benchmarks that are built individually and evaluate different aspects of a memory allocator. But, there is not standard set of benchamrks that can be used to evaluate multiple aspects of memory allocators.92 93 \paragraph{threadtest}94 (FIX ME: cite benchmark and hoard) Each thread repeatedly allocates and then deallocates 100,000 objects. Runtime of the benchmark evaluates its efficiency.95 96 \paragraph{shbench}97 (FIX ME: cite benchmark and hoard) Each thread allocates and randomly frees a number of random-sized objects. It is a stress test that also uses runtime to determine efficiency of the allocator.98 99 \paragraph{larson}100 (FIX ME: cite benchmark and hoard) Larson simulates a server environment. Multiple threads are created where each thread allocator and free a number of objects within a size range. Some objects are passed from threads to the child threads to free. It caluculates memory operations per second as an indicator of memory allocator's performance.101 102 \section{Research Objectives}103 Our research objective in this thesis is to:104 105 \begin{itemize}106 \item107 Design a lightweight concurrent memory allocator with added features and usability that are currently not present in the other memory allocators.108 \item109 Design a suite of benchmarks to evalute multiple aspects of a memory allocator.110 \end{itemize}111 112 \section{An outline of the thesis}113 LAST FIX ME: add outline at the end -
doc/theses/mubeen_zulfiqar_MMath/performance.tex
r5541ea3d r0640189e 1 1 \chapter{Performance} 2 3 \noindent4 ====================5 6 Writing Points:7 \begin{itemize}8 \item9 Machine Specification10 \item11 Allocators and their details12 \item13 Benchmarks and their details14 \item15 Results16 \end{itemize}17 18 \noindent19 ====================20 21 \section{Memory Allocators}22 For these experiments, we used 7 memory allocators excluding our standalone memory allocator uHeapLmmm.23 24 \begin{tabularx}{0.8\textwidth} {25 | >{\raggedright\arraybackslash}X26 | >{\centering\arraybackslash}X27 | >{\raggedleft\arraybackslash}X |28 }29 \hline30 Memory Allocator & Version & Configurations \\31 \hline32 dl & & \\33 \hline34 hoard & & \\35 \hline36 je & & \\37 \hline38 pt3 & & \\39 \hline40 rp & & \\41 \hline42 tbb & & \\43 \hline44 tc & & \\45 \end{tabularx}46 (FIX ME: complete table)47 48 \section{Experiment Environment}49 We conducted these experiments ... (FIX ME: what machine and which specifications to add).50 51 We used our micro becnhmark suite (FIX ME: cite mbench) to evaluate other memory allocators (FIX ME: cite above memory allocators) and our uHeapLmmm.52 53 \section{Results}54 55 \subsection{Memory Benchmark}56 FIX ME: add experiment, knobs, graphs, and description57 58 \subsection{Speed Benchmark}59 FIX ME: add experiment, knobs, graphs, and description60 61 \subsubsection{Speed Time}62 FIX ME: add experiment, knobs, graphs, and description63 64 \subsubsection{Speed Workload}65 FIX ME: add experiment, knobs, graphs, and description66 67 \subsection{Cache Scratch}68 FIX ME: add experiment, knobs, graphs, and description69 70 \subsubsection{Cache Scratch Time}71 FIX ME: add experiment, knobs, graphs, and description72 73 \subsubsection{Cache Scratch Layout}74 FIX ME: add experiment, knobs, graphs, and description75 76 \subsection{Cache Thrash}77 FIX ME: add experiment, knobs, graphs, and description78 79 \subsubsection{Cache Thrash Time}80 FIX ME: add experiment, knobs, graphs, and description81 82 \subsubsection{Cache Thrash Layout}83 FIX ME: add experiment, knobs, graphs, and description -
driver/cc1.cc
r5541ea3d r0640189e 10 10 // Created On : Fri Aug 26 14:23:51 2005 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 21 09:46:24202113 // Update Count : 41 912 // Last Modified On : Wed Jul 14 15:42:08 2021 13 // Update Count : 418 14 14 // 15 15 … … 587 587 Stage2( argc, argv ); 588 588 } else { 589 cerr << "Usage: " << argv[0] << " [-E input-file [output-file] ] | [-fpreprocessed input-fileoutput-file] [options]" << endl;589 cerr << "Usage: " << argv[0] << " input-file [output-file] [options]" << endl; 590 590 exit( EXIT_FAILURE ); 591 591 } // if -
libcfa/prelude/builtins.c
r5541ea3d r0640189e 10 10 // Created On : Fri Jul 21 16:21:03 2017 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 21 13:31:34202113 // Update Count : 1 2912 // Last Modified On : Tue Apr 13 17:26:32 2021 13 // Update Count : 117 14 14 // 15 15 … … 77 77 // implicit increment, decrement if += defined, and implicit not if != defined 78 78 79 // C11 reference manual Section 6.5.16 (page101): "An assignment expression has the value of the left operand after the80 // assignment, but is not an lvalue." Hence, return a value not a reference.81 79 static inline { 82 forall( T | { T ?+=?(T &, one_t ); } )83 T ++?(T & x ) { return x += 1; }80 forall( DT & | { DT & ?+=?( DT &, one_t ); } ) 81 DT & ++?( DT & x ) { return x += 1; } 84 82 85 forall( T | { T ?+=?(T &, one_t ); } )86 T ?++( T & x ) {T tmp = x; x += 1; return tmp; }83 forall( DT & | sized(DT) | { void ?{}( DT &, DT ); void ^?{}( DT & ); DT & ?+=?( DT &, one_t ); } ) 84 DT & ?++( DT & x ) { DT tmp = x; x += 1; return tmp; } 87 85 88 forall( T | { T ?-=?(T &, one_t ); } )89 T --?(T & x ) { return x -= 1; }86 forall( DT & | { DT & ?-=?( DT &, one_t ); } ) 87 DT & --?( DT & x ) { return x -= 1; } 90 88 91 forall( T | { T ?-=?(T &, one_t ); } )92 T ?--( T & x ) {T tmp = x; x -= 1; return tmp; }89 forall( DT & | sized(DT) | { void ?{}( DT &, DT ); void ^?{}( DT & ); DT & ?-=?( DT &, one_t ); } ) 90 DT & ?--( DT & x ) { DT tmp = x; x -= 1; return tmp; } 93 91 94 forall( T | { int ?!=?( T, zero_t ); } )95 int !?( T & x ) { return !( x != 0 ); }92 forall( DT & | { int ?!=?( const DT &, zero_t ); } ) 93 int !?( const DT & x ) { return !( x != 0 ); } 96 94 } // distribution 97 95 -
libcfa/src/Makefile.am
r5541ea3d r0640189e 11 11 ## Created On : Sun May 31 08:54:01 2015 12 12 ## Last Modified By : Peter A. Buhr 13 ## Last Modified On : Fri Jul 16 16:00:40202114 ## Update Count : 25 513 ## Last Modified On : Sat Apr 24 09:09:56 2021 14 ## Update Count : 254 15 15 ############################################################################### 16 16 … … 45 45 exception.h \ 46 46 gmp.hfa \ 47 math.trait.hfa \48 47 math.hfa \ 49 48 time_t.hfa \ -
libcfa/src/concurrency/locks.cfa
r5541ea3d r0640189e 120 120 owner = t; 121 121 recursion_count = ( t ? 1 : 0 ); 122 if ( t )wait_count--;122 wait_count--; 123 123 unpark( t ); 124 124 } -
libcfa/src/fstream.cfa
r5541ea3d r0640189e 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Jul 29 22:34:10202113 // Update Count : 4 5412 // Last Modified On : Wed Apr 28 20:37:53 2021 13 // Update Count : 445 14 14 // 15 15 … … 142 142 143 143 if ( fclose( (FILE *)(os.file$) ) == EOF ) { 144 throw (Close_Failure){ os }; 145 // abort | IO_MSG "close output" | nl | strerror( errno ); 144 abort | IO_MSG "close output" | nl | strerror( errno ); 146 145 } // if 147 146 os.file$ = 0p; … … 150 149 ofstream & write( ofstream & os, const char data[], size_t size ) { 151 150 if ( fail( os ) ) { 152 throw (Write_Failure){ os }; 153 // abort | IO_MSG "attempt write I/O on failed stream"; 151 abort | IO_MSG "attempt write I/O on failed stream"; 154 152 } // if 155 153 156 154 if ( fwrite( data, 1, size, (FILE *)(os.file$) ) != size ) { 157 throw (Write_Failure){ os }; 158 // abort | IO_MSG "write" | nl | strerror( errno ); 155 abort | IO_MSG "write" | nl | strerror( errno ); 159 156 } // if 160 157 return os; … … 280 277 281 278 if ( fclose( (FILE *)(is.file$) ) == EOF ) { 282 throw (Close_Failure){ is }; 283 // abort | IO_MSG "close input" | nl | strerror( errno ); 279 abort | IO_MSG "close input" | nl | strerror( errno ); 284 280 } // if 285 281 is.file$ = 0p; … … 288 284 ifstream & read( ifstream & is, char data[], size_t size ) { 289 285 if ( fail( is ) ) { 290 throw (Read_Failure){ is }; 291 // abort | IO_MSG "attempt read I/O on failed stream"; 286 abort | IO_MSG "attempt read I/O on failed stream"; 292 287 } // if 293 288 294 289 if ( fread( data, size, 1, (FILE *)(is.file$) ) == 0 ) { 295 throw (Read_Failure){ is }; 296 // abort | IO_MSG "read" | nl | strerror( errno ); 290 abort | IO_MSG "read" | nl | strerror( errno ); 297 291 } // if 298 292 return is; … … 344 338 345 339 346 static vtable(Open_Failure) Open_Failure_vt; 347 348 // exception I/O constructors 340 EHM_VIRTUAL_TABLE(Open_Failure, Open_Failure_main_table); 349 341 void ?{}( Open_Failure & this, ofstream & ostream ) { 350 this.virtual_table = &Open_Failure_ vt;342 this.virtual_table = &Open_Failure_main_table; 351 343 this.ostream = &ostream; 352 344 this.tag = 1; 353 } // ?{} 354 345 } 355 346 void ?{}( Open_Failure & this, ifstream & istream ) { 356 this.virtual_table = &Open_Failure_ vt;347 this.virtual_table = &Open_Failure_main_table; 357 348 this.istream = &istream; 358 349 this.tag = 0; 359 } // ?{} 360 361 362 static vtable(Close_Failure) Close_Failure_vt; 363 364 // exception I/O constructors 365 void ?{}( Close_Failure & this, ofstream & ostream ) { 366 this.virtual_table = &Close_Failure_vt; 367 this.ostream = &ostream; 368 this.tag = 1; 369 } // ?{} 370 371 void ?{}( Close_Failure & this, ifstream & istream ) { 372 this.virtual_table = &Close_Failure_vt; 373 this.istream = &istream; 374 this.tag = 0; 375 } // ?{} 376 377 378 static vtable(Write_Failure) Write_Failure_vt; 379 380 // exception I/O constructors 381 void ?{}( Write_Failure & this, ofstream & ostream ) { 382 this.virtual_table = &Write_Failure_vt; 383 this.ostream = &ostream; 384 this.tag = 1; 385 } // ?{} 386 387 void ?{}( Write_Failure & this, ifstream & istream ) { 388 this.virtual_table = &Write_Failure_vt; 389 this.istream = &istream; 390 this.tag = 0; 391 } // ?{} 392 393 394 static vtable(Read_Failure) Read_Failure_vt; 395 396 // exception I/O constructors 397 void ?{}( Read_Failure & this, ofstream & ostream ) { 398 this.virtual_table = &Read_Failure_vt; 399 this.ostream = &ostream; 400 this.tag = 1; 401 } // ?{} 402 403 void ?{}( Read_Failure & this, ifstream & istream ) { 404 this.virtual_table = &Read_Failure_vt; 405 this.istream = &istream; 406 this.tag = 0; 407 } // ?{} 408 409 // void throwOpen_Failure( ofstream & ostream ) { 410 // Open_Failure exc = { ostream }; 411 // } 412 413 // void throwOpen_Failure( ifstream & istream ) { 414 // Open_Failure exc = { istream }; 415 // } 350 } 351 void throwOpen_Failure( ofstream & ostream ) { 352 Open_Failure exc = { ostream }; 353 } 354 void throwOpen_Failure( ifstream & istream ) { 355 Open_Failure exc = { istream }; 356 } 416 357 417 358 // Local Variables: // -
libcfa/src/fstream.hfa
r5541ea3d r0640189e 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 28 07:35:50202113 // Update Count : 23 412 // Last Modified On : Wed Apr 28 20:37:57 2021 13 // Update Count : 230 14 14 // 15 15 … … 148 148 149 149 150 exception Open_Failure { 150 EHM_EXCEPTION(Open_Failure)( 151 151 union { 152 152 ofstream * ostream; … … 155 155 // TEMPORARY: need polymorphic exceptions 156 156 int tag; // 1 => ostream; 0 => istream 157 };157 ); 158 158 159 159 void ?{}( Open_Failure & this, ofstream & ); 160 160 void ?{}( Open_Failure & this, ifstream & ); 161 162 exception Close_Failure {163 union {164 ofstream * ostream;165 ifstream * istream;166 };167 // TEMPORARY: need polymorphic exceptions168 int tag; // 1 => ostream; 0 => istream169 };170 171 void ?{}( Close_Failure & this, ofstream & );172 void ?{}( Close_Failure & this, ifstream & );173 174 exception Write_Failure {175 union {176 ofstream * ostream;177 ifstream * istream;178 };179 // TEMPORARY: need polymorphic exceptions180 int tag; // 1 => ostream; 0 => istream181 };182 183 void ?{}( Write_Failure & this, ofstream & );184 void ?{}( Write_Failure & this, ifstream & );185 186 exception Read_Failure {187 union {188 ofstream * ostream;189 ifstream * istream;190 };191 // TEMPORARY: need polymorphic exceptions192 int tag; // 1 => ostream; 0 => istream193 };194 195 void ?{}( Read_Failure & this, ofstream & );196 void ?{}( Read_Failure & this, ifstream & );197 161 198 162 // Local Variables: // -
libcfa/src/rational.cfa
r5541ea3d r0640189e 10 10 // Created On : Wed Apr 6 17:54:28 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Jul 20 16:30:06 202113 // Update Count : 1 9312 // Last Modified On : Sat Feb 8 17:56:36 2020 13 // Update Count : 187 14 14 // 15 15 … … 18 18 #include "stdlib.hfa" 19 19 20 forall( T | Arithmetic( T) ) {20 forall( RationalImpl | arithmetic( RationalImpl ) ) { 21 21 // helper routines 22 22 23 23 // Calculate greatest common denominator of two numbers, the first of which may be negative. Used to reduce 24 24 // rationals. alternative: https://en.wikipedia.org/wiki/Binary_GCD_algorithm 25 static T gcd( T a, Tb ) {25 static RationalImpl gcd( RationalImpl a, RationalImpl b ) { 26 26 for ( ;; ) { // Euclid's algorithm 27 Tr = a % b;28 if ( r == ( T){0} ) break;27 RationalImpl r = a % b; 28 if ( r == (RationalImpl){0} ) break; 29 29 a = b; 30 30 b = r; … … 33 33 } // gcd 34 34 35 static T simplify( T & n, T& d ) {36 if ( d == ( T){0} ) {35 static RationalImpl simplify( RationalImpl & n, RationalImpl & d ) { 36 if ( d == (RationalImpl){0} ) { 37 37 abort | "Invalid rational number construction: denominator cannot be equal to 0."; 38 38 } // exit 39 if ( d < ( T){0} ) { d = -d; n = -n; } // move sign to numerator39 if ( d < (RationalImpl){0} ) { d = -d; n = -n; } // move sign to numerator 40 40 return gcd( abs( n ), d ); // simplify 41 41 } // Rationalnumber::simplify … … 43 43 // constructors 44 44 45 void ?{}( Rational(T) & r, zero_t ) { 46 r{ (T){0}, (T){1} }; 47 } // rational 48 49 void ?{}( Rational(T) & r, one_t ) { 50 r{ (T){1}, (T){1} }; 51 } // rational 52 53 void ?{}( Rational(T) & r ) { 54 r{ (T){0}, (T){1} }; 55 } // rational 56 57 void ?{}( Rational(T) & r, T n ) { 58 r{ n, (T){1} }; 59 } // rational 60 61 void ?{}( Rational(T) & r, T n, T d ) { 62 T t = simplify( n, d ); // simplify 45 void ?{}( Rational(RationalImpl) & r ) { 46 r{ (RationalImpl){0}, (RationalImpl){1} }; 47 } // rational 48 49 void ?{}( Rational(RationalImpl) & r, RationalImpl n ) { 50 r{ n, (RationalImpl){1} }; 51 } // rational 52 53 void ?{}( Rational(RationalImpl) & r, RationalImpl n, RationalImpl d ) { 54 RationalImpl t = simplify( n, d ); // simplify 63 55 r.[numerator, denominator] = [n / t, d / t]; 64 56 } // rational 65 57 58 void ?{}( Rational(RationalImpl) & r, zero_t ) { 59 r{ (RationalImpl){0}, (RationalImpl){1} }; 60 } // rational 61 62 void ?{}( Rational(RationalImpl) & r, one_t ) { 63 r{ (RationalImpl){1}, (RationalImpl){1} }; 64 } // rational 65 66 66 // getter for numerator/denominator 67 67 68 T numerator( Rational(T) r ) {68 RationalImpl numerator( Rational(RationalImpl) r ) { 69 69 return r.numerator; 70 70 } // numerator 71 71 72 T denominator( Rational(T) r ) {72 RationalImpl denominator( Rational(RationalImpl) r ) { 73 73 return r.denominator; 74 74 } // denominator 75 75 76 [ T, T ] ?=?( & [ T, T ] dest, Rational(T) src ) {76 [ RationalImpl, RationalImpl ] ?=?( & [ RationalImpl, RationalImpl ] dest, Rational(RationalImpl) src ) { 77 77 return dest = src.[ numerator, denominator ]; 78 78 } // ?=? … … 80 80 // setter for numerator/denominator 81 81 82 T numerator( Rational(T) r, Tn ) {83 Tprev = r.numerator;84 Tt = gcd( abs( n ), r.denominator ); // simplify82 RationalImpl numerator( Rational(RationalImpl) r, RationalImpl n ) { 83 RationalImpl prev = r.numerator; 84 RationalImpl t = gcd( abs( n ), r.denominator ); // simplify 85 85 r.[numerator, denominator] = [n / t, r.denominator / t]; 86 86 return prev; 87 87 } // numerator 88 88 89 T denominator( Rational(T) r, Td ) {90 Tprev = r.denominator;91 Tt = simplify( r.numerator, d ); // simplify89 RationalImpl denominator( Rational(RationalImpl) r, RationalImpl d ) { 90 RationalImpl prev = r.denominator; 91 RationalImpl t = simplify( r.numerator, d ); // simplify 92 92 r.[numerator, denominator] = [r.numerator / t, d / t]; 93 93 return prev; … … 96 96 // comparison 97 97 98 int ?==?( Rational( T) l, Rational(T) r ) {98 int ?==?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 99 99 return l.numerator * r.denominator == l.denominator * r.numerator; 100 100 } // ?==? 101 101 102 int ?!=?( Rational( T) l, Rational(T) r ) {102 int ?!=?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 103 103 return ! ( l == r ); 104 104 } // ?!=? 105 105 106 int ?!=?( Rational(T) l, zero_t ) { 107 return ! ( l == (Rational(T)){ 0 } ); 108 } // ?!=? 109 110 int ?<?( Rational(T) l, Rational(T) r ) { 106 int ?<?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 111 107 return l.numerator * r.denominator < l.denominator * r.numerator; 112 108 } // ?<? 113 109 114 int ?<=?( Rational( T) l, Rational(T) r ) {110 int ?<=?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 115 111 return l.numerator * r.denominator <= l.denominator * r.numerator; 116 112 } // ?<=? 117 113 118 int ?>?( Rational( T) l, Rational(T) r ) {114 int ?>?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 119 115 return ! ( l <= r ); 120 116 } // ?>? 121 117 122 int ?>=?( Rational( T) l, Rational(T) r ) {118 int ?>=?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 123 119 return ! ( l < r ); 124 120 } // ?>=? … … 126 122 // arithmetic 127 123 128 Rational( T) +?( Rational(T) r ) {129 return (Rational( T)){ r.numerator, r.denominator };124 Rational(RationalImpl) +?( Rational(RationalImpl) r ) { 125 return (Rational(RationalImpl)){ r.numerator, r.denominator }; 130 126 } // +? 131 127 132 Rational( T) -?( Rational(T) r ) {133 return (Rational( T)){ -r.numerator, r.denominator };128 Rational(RationalImpl) -?( Rational(RationalImpl) r ) { 129 return (Rational(RationalImpl)){ -r.numerator, r.denominator }; 134 130 } // -? 135 131 136 Rational( T) ?+?( Rational(T) l, Rational(T) r ) {132 Rational(RationalImpl) ?+?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 137 133 if ( l.denominator == r.denominator ) { // special case 138 return (Rational( T)){ l.numerator + r.numerator, l.denominator };134 return (Rational(RationalImpl)){ l.numerator + r.numerator, l.denominator }; 139 135 } else { 140 return (Rational( T)){ l.numerator * r.denominator + l.denominator * r.numerator, l.denominator * r.denominator };136 return (Rational(RationalImpl)){ l.numerator * r.denominator + l.denominator * r.numerator, l.denominator * r.denominator }; 141 137 } // if 142 138 } // ?+? 143 139 144 Rational(T) ?+=?( Rational(T) & l, Rational(T) r ) { 145 l = l + r; 146 return l; 147 } // ?+? 148 149 Rational(T) ?+=?( Rational(T) & l, one_t ) { 150 l = l + (Rational(T)){ 1 }; 151 return l; 152 } // ?+? 153 154 Rational(T) ?-?( Rational(T) l, Rational(T) r ) { 140 Rational(RationalImpl) ?-?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 155 141 if ( l.denominator == r.denominator ) { // special case 156 return (Rational( T)){ l.numerator - r.numerator, l.denominator };142 return (Rational(RationalImpl)){ l.numerator - r.numerator, l.denominator }; 157 143 } else { 158 return (Rational( T)){ l.numerator * r.denominator - l.denominator * r.numerator, l.denominator * r.denominator };144 return (Rational(RationalImpl)){ l.numerator * r.denominator - l.denominator * r.numerator, l.denominator * r.denominator }; 159 145 } // if 160 146 } // ?-? 161 147 162 Rational(T) ?-=?( Rational(T) & l, Rational(T) r ) { 163 l = l - r; 164 return l; 165 } // ?-? 166 167 Rational(T) ?-=?( Rational(T) & l, one_t ) { 168 l = l - (Rational(T)){ 1 }; 169 return l; 170 } // ?-? 171 172 Rational(T) ?*?( Rational(T) l, Rational(T) r ) { 173 return (Rational(T)){ l.numerator * r.numerator, l.denominator * r.denominator }; 148 Rational(RationalImpl) ?*?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 149 return (Rational(RationalImpl)){ l.numerator * r.numerator, l.denominator * r.denominator }; 174 150 } // ?*? 175 151 176 Rational(T) ?*=?( Rational(T) & l, Rational(T) r ) { 177 return l = l * r; 178 } // ?*? 179 180 Rational(T) ?/?( Rational(T) l, Rational(T) r ) { 181 if ( r.numerator < (T){0} ) { 152 Rational(RationalImpl) ?/?( Rational(RationalImpl) l, Rational(RationalImpl) r ) { 153 if ( r.numerator < (RationalImpl){0} ) { 182 154 r.[numerator, denominator] = [-r.numerator, -r.denominator]; 183 155 } // if 184 return (Rational( T)){ l.numerator * r.denominator, l.denominator * r.numerator };156 return (Rational(RationalImpl)){ l.numerator * r.denominator, l.denominator * r.numerator }; 185 157 } // ?/? 186 158 187 Rational(T) ?/=?( Rational(T) & l, Rational(T) r ) {188 return l = l / r;189 } // ?/?190 191 159 // I/O 192 160 193 forall( istype & | istream( istype ) | { istype & ?|?( istype &, T& ); } )194 istype & ?|?( istype & is, Rational( T) & r ) {161 forall( istype & | istream( istype ) | { istype & ?|?( istype &, RationalImpl & ); } ) 162 istype & ?|?( istype & is, Rational(RationalImpl) & r ) { 195 163 is | r.numerator | r.denominator; 196 Tt = simplify( r.numerator, r.denominator );164 RationalImpl t = simplify( r.numerator, r.denominator ); 197 165 r.numerator /= t; 198 166 r.denominator /= t; … … 200 168 } // ?|? 201 169 202 forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, T); } ) {203 ostype & ?|?( ostype & os, Rational( T) r ) {170 forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, RationalImpl ); } ) { 171 ostype & ?|?( ostype & os, Rational(RationalImpl) r ) { 204 172 return os | r.numerator | '/' | r.denominator; 205 173 } // ?|? 206 174 207 void ?|?( ostype & os, Rational( T) r ) {175 void ?|?( ostype & os, Rational(RationalImpl) r ) { 208 176 (ostype &)(os | r); ends( os ); 209 177 } // ?|? … … 211 179 } // distribution 212 180 213 forall( T | Arithmetic( T ) | { T ?\?( T, unsigned long ); } ) { 214 Rational(T) ?\?( Rational(T) x, long int y ) { 215 if ( y < 0 ) { 216 return (Rational(T)){ x.denominator \ -y, x.numerator \ -y }; 217 } else { 218 return (Rational(T)){ x.numerator \ y, x.denominator \ y }; 219 } // if 220 } // ?\? 221 222 Rational(T) ?\=?( Rational(T) & x, long int y ) { 223 return x = x \ y; 224 } // ?\? 225 } // distribution 181 forall( RationalImpl | arithmetic( RationalImpl ) | { RationalImpl ?\?( RationalImpl, unsigned long ); } ) 182 Rational(RationalImpl) ?\?( Rational(RationalImpl) x, long int y ) { 183 if ( y < 0 ) { 184 return (Rational(RationalImpl)){ x.denominator \ -y, x.numerator \ -y }; 185 } else { 186 return (Rational(RationalImpl)){ x.numerator \ y, x.denominator \ y }; 187 } // if 188 } 226 189 227 190 // conversion 228 191 229 forall( T | Arithmetic( T ) | { double convert( T); } )230 double widen( Rational( T) r ) {192 forall( RationalImpl | arithmetic( RationalImpl ) | { double convert( RationalImpl ); } ) 193 double widen( Rational(RationalImpl) r ) { 231 194 return convert( r.numerator ) / convert( r.denominator ); 232 195 } // widen 233 196 234 forall( T | Arithmetic( T ) | { double convert( T ); Tconvert( double ); } )235 Rational( T) narrow( double f, Tmd ) {197 forall( RationalImpl | arithmetic( RationalImpl ) | { double convert( RationalImpl ); RationalImpl convert( double ); } ) 198 Rational(RationalImpl) narrow( double f, RationalImpl md ) { 236 199 // http://www.ics.uci.edu/~eppstein/numth/frap.c 237 if ( md <= ( T){1} ) { // maximum fractional digits too small?238 return (Rational( T)){ convert( f ), (T){1}}; // truncate fraction200 if ( md <= (RationalImpl){1} ) { // maximum fractional digits too small? 201 return (Rational(RationalImpl)){ convert( f ), (RationalImpl){1}}; // truncate fraction 239 202 } // if 240 203 241 204 // continued fraction coefficients 242 Tm00 = {1}, m11 = { 1 }, m01 = { 0 }, m10 = { 0 };243 Tai, t;205 RationalImpl m00 = {1}, m11 = { 1 }, m01 = { 0 }, m10 = { 0 }; 206 RationalImpl ai, t; 244 207 245 208 // find terms until denom gets too big … … 258 221 if ( f > (double)0x7FFFFFFF ) break; // representation failure 259 222 } // for 260 return (Rational( T)){ m00, m10 };223 return (Rational(RationalImpl)){ m00, m10 }; 261 224 } // narrow 262 225 -
libcfa/src/rational.hfa
r5541ea3d r0640189e 12 12 // Created On : Wed Apr 6 17:56:25 2016 13 13 // Last Modified By : Peter A. Buhr 14 // Last Modified On : Tue Jul 20 17:45:29 202115 // Update Count : 1 1814 // Last Modified On : Tue Mar 26 23:16:10 2019 15 // Update Count : 109 16 16 // 17 17 … … 19 19 20 20 #include "iostream.hfa" 21 #include "math.trait.hfa" // Arithmetic 21 22 trait scalar( T ) { 23 }; 24 25 trait arithmetic( T | scalar( T ) ) { 26 int !?( T ); 27 int ?==?( T, T ); 28 int ?!=?( T, T ); 29 int ?<?( T, T ); 30 int ?<=?( T, T ); 31 int ?>?( T, T ); 32 int ?>=?( T, T ); 33 void ?{}( T &, zero_t ); 34 void ?{}( T &, one_t ); 35 T +?( T ); 36 T -?( T ); 37 T ?+?( T, T ); 38 T ?-?( T, T ); 39 T ?*?( T, T ); 40 T ?/?( T, T ); 41 T ?%?( T, T ); 42 T ?/=?( T &, T ); 43 T abs( T ); 44 }; 22 45 23 46 // implementation 24 47 25 forall( T | Arithmetic( T) ) {48 forall( RationalImpl | arithmetic( RationalImpl ) ) { 26 49 struct Rational { 27 T numerator, denominator;// invariant: denominator > 050 RationalImpl numerator, denominator; // invariant: denominator > 0 28 51 }; // Rational 29 52 30 53 // constructors 31 54 32 void ?{}( Rational( T) & r );33 void ?{}( Rational( T) & r, zero_t);34 void ?{}( Rational( T) & r, one_t);35 void ?{}( Rational( T) & r, T n);36 void ?{}( Rational( T) & r, T n, T d);55 void ?{}( Rational(RationalImpl) & r ); 56 void ?{}( Rational(RationalImpl) & r, RationalImpl n ); 57 void ?{}( Rational(RationalImpl) & r, RationalImpl n, RationalImpl d ); 58 void ?{}( Rational(RationalImpl) & r, zero_t ); 59 void ?{}( Rational(RationalImpl) & r, one_t ); 37 60 38 61 // numerator/denominator getter 39 62 40 T numerator( Rational(T) r );41 T denominator( Rational(T) r );42 [ T, T ] ?=?( & [ T, T ] dest, Rational(T) src );63 RationalImpl numerator( Rational(RationalImpl) r ); 64 RationalImpl denominator( Rational(RationalImpl) r ); 65 [ RationalImpl, RationalImpl ] ?=?( & [ RationalImpl, RationalImpl ] dest, Rational(RationalImpl) src ); 43 66 44 67 // numerator/denominator setter 45 68 46 T numerator( Rational(T) r, Tn );47 T denominator( Rational(T) r, Td );69 RationalImpl numerator( Rational(RationalImpl) r, RationalImpl n ); 70 RationalImpl denominator( Rational(RationalImpl) r, RationalImpl d ); 48 71 49 72 // comparison 50 73 51 int ?==?( Rational(T) l, Rational(T) r ); 52 int ?!=?( Rational(T) l, Rational(T) r ); 53 int ?!=?( Rational(T) l, zero_t ); // => ! 54 int ?<?( Rational(T) l, Rational(T) r ); 55 int ?<=?( Rational(T) l, Rational(T) r ); 56 int ?>?( Rational(T) l, Rational(T) r ); 57 int ?>=?( Rational(T) l, Rational(T) r ); 74 int ?==?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 75 int ?!=?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 76 int ?<?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 77 int ?<=?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 78 int ?>?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 79 int ?>=?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 58 80 59 81 // arithmetic 60 82 61 Rational(T) +?( Rational(T) r ); 62 Rational(T) -?( Rational(T) r ); 63 Rational(T) ?+?( Rational(T) l, Rational(T) r ); 64 Rational(T) ?+=?( Rational(T) & l, Rational(T) r ); 65 Rational(T) ?+=?( Rational(T) & l, one_t ); // => ++?, ?++ 66 Rational(T) ?-?( Rational(T) l, Rational(T) r ); 67 Rational(T) ?-=?( Rational(T) & l, Rational(T) r ); 68 Rational(T) ?-=?( Rational(T) & l, one_t ); // => --?, ?-- 69 Rational(T) ?*?( Rational(T) l, Rational(T) r ); 70 Rational(T) ?*=?( Rational(T) & l, Rational(T) r ); 71 Rational(T) ?/?( Rational(T) l, Rational(T) r ); 72 Rational(T) ?/=?( Rational(T) & l, Rational(T) r ); 83 Rational(RationalImpl) +?( Rational(RationalImpl) r ); 84 Rational(RationalImpl) -?( Rational(RationalImpl) r ); 85 Rational(RationalImpl) ?+?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 86 Rational(RationalImpl) ?-?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 87 Rational(RationalImpl) ?*?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 88 Rational(RationalImpl) ?/?( Rational(RationalImpl) l, Rational(RationalImpl) r ); 73 89 74 90 // I/O 75 forall( istype & | istream( istype ) | { istype & ?|?( istype &, T& ); } )76 istype & ?|?( istype &, Rational( T) & );91 forall( istype & | istream( istype ) | { istype & ?|?( istype &, RationalImpl & ); } ) 92 istype & ?|?( istype &, Rational(RationalImpl) & ); 77 93 78 forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, T); } ) {79 ostype & ?|?( ostype &, Rational( T) );80 void ?|?( ostype &, Rational( T) );94 forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, RationalImpl ); } ) { 95 ostype & ?|?( ostype &, Rational(RationalImpl) ); 96 void ?|?( ostype &, Rational(RationalImpl) ); 81 97 } // distribution 82 98 } // distribution 83 99 84 forall( T | Arithmetic( T ) | { T ?\?( T, unsigned long ); } ) { 85 Rational(T) ?\?( Rational(T) x, long int y ); 86 Rational(T) ?\=?( Rational(T) & x, long int y ); 87 } // distribution 100 forall( RationalImpl | arithmetic( RationalImpl ) |{RationalImpl ?\?( RationalImpl, unsigned long );} ) 101 Rational(RationalImpl) ?\?( Rational(RationalImpl) x, long int y ); 88 102 89 103 // conversion 90 forall( T | Arithmetic( T ) | { double convert( T); } )91 double widen( Rational( T) r );92 forall( T | Arithmetic( T ) | { double convert( T ); Tconvert( double );} )93 Rational( T) narrow( double f, Tmd );104 forall( RationalImpl | arithmetic( RationalImpl ) | { double convert( RationalImpl ); } ) 105 double widen( Rational(RationalImpl) r ); 106 forall( RationalImpl | arithmetic( RationalImpl ) | { double convert( RationalImpl ); RationalImpl convert( double );} ) 107 Rational(RationalImpl) narrow( double f, RationalImpl md ); 94 108 95 109 // Local Variables: // -
src/CompilationState.cc
r5541ea3d r0640189e 9 9 // Author : Rob Schluntz 10 10 // Created On : Mon Ju1 30 10:47:01 2018 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Jul 20 04:27:35 202113 // Update Count : 511 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri May 3 13:45:23 2019 13 // Update Count : 4 14 14 // 15 15 … … 23 23 ctorinitp = false, 24 24 declstatsp = false, 25 exdeclp = false,26 25 exprp = false, 27 26 expraltp = false, -
src/CompilationState.h
r5541ea3d r0640189e 9 9 // Author : Rob Schluntz 10 10 // Created On : Mon Ju1 30 10:47:01 2018 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Jul 20 04:27:35 202113 // Update Count : 511 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri May 3 13:43:21 2019 13 // Update Count : 4 14 14 // 15 15 … … 22 22 ctorinitp, 23 23 declstatsp, 24 exdeclp,25 24 exprp, 26 25 expraltp, -
src/ControlStruct/ExceptTranslate.cc
r5541ea3d r0640189e 9 9 // Author : Andrew Beach 10 10 // Created On : Wed Jun 14 16:49:00 2017 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Aug 03 10:05:51 202113 // Update Count : 1 811 // Last Modified By : Andrew Beach 12 // Last Modified On : Wed Jun 24 11:18:00 2020 13 // Update Count : 17 14 14 // 15 15 … … 320 320 static_cast<ObjectDecl *>( handler->get_decl() ); 321 321 ObjectDecl * local_except = handler_decl->clone(); 322 VirtualCastExpr * vcex = new VirtualCastExpr( 323 nameOf( except_obj ), 324 local_except->get_type() 322 local_except->set_init( 323 new ListInit({ new SingleInit( 324 new VirtualCastExpr( nameOf( except_obj ), 325 local_except->get_type() 326 ) 327 ) }) 325 328 ); 326 vcex->location = handler->location;327 local_except->set_init( new ListInit({ new SingleInit( vcex ) }) );328 329 block->push_back( new DeclStmt( local_except ) ); 329 330 … … 391 392 392 393 // Check for type match. 393 VirtualCastExpr * vcex = new VirtualCastExpr( 394 nameOf( except_obj ), 395 local_except->get_type()->clone() 396 ); 397 vcex->location = modded_handler->location; 398 Expression * cond = UntypedExpr::createAssign( 399 nameOf( local_except ), vcex ); 394 Expression * cond = UntypedExpr::createAssign( nameOf( local_except ), 395 new VirtualCastExpr( nameOf( except_obj ), 396 local_except->get_type()->clone() ) ); 400 397 401 398 // Add the check on the conditional if it is provided. -
src/ControlStruct/module.mk
r5541ea3d r0640189e 10 10 ## Author : Richard C. Bilson 11 11 ## Created On : Mon Jun 1 17:49:17 2015 12 ## Last Modified By : Henry Xue13 ## Last Modified On : Tue Jul 20 04:10:50 202114 ## Update Count : 512 ## Last Modified By : Andrew Beach 13 ## Last Modified On : Wed Jun 28 16:15:00 2017 14 ## Update Count : 4 15 15 ############################################################################### 16 16 17 17 SRC_CONTROLSTRUCT = \ 18 ControlStruct/ExceptDecl.cc \19 ControlStruct/ExceptDecl.h \20 18 ControlStruct/ForExprMutator.cc \ 21 19 ControlStruct/ForExprMutator.h \ -
src/Parser/TypeData.cc
r5541ea3d r0640189e 9 9 // Author : Rodolfo G. Esteves 10 10 // Created On : Sat May 16 15:12:51 2015 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Jul 20 04:10:50202113 // Update Count : 67 311 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 14 18:57:31 2021 13 // Update Count : 672 14 14 // 15 15 … … 778 778 case AggregateDecl::Struct: 779 779 case AggregateDecl::Coroutine: 780 case AggregateDecl::Exception:781 780 case AggregateDecl::Generator: 782 781 case AggregateDecl::Monitor: -
src/Parser/parser.yy
r5541ea3d r0640189e 10 10 // Created On : Sat Sep 1 20:22:55 2001 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Jul 20 22:03:04 202113 // Update Count : 503 112 // Last Modified On : Wed Jul 14 17:27:54 2021 13 // Update Count : 5030 14 14 // 15 15 … … 1923 1923 1924 1924 vtable: 1925 VTABLE '(' type _name ')' default_opt1925 VTABLE '(' typedef_name ')' default_opt 1926 1926 { $$ = DeclarationNode::newVtableType( $3 ); } 1927 1927 // { SemanticError( yylloc, "vtable is currently unimplemented." ); $$ = nullptr; } -
src/SynTree/Declaration.h
r5541ea3d r0640189e 9 9 // Author : Richard C. Bilson 10 10 // Created On : Mon May 18 07:44:20 2015 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Jul 20 04:10:50202113 // Update Count : 1 6011 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri Mar 12 18:35:36 2021 13 // Update Count : 159 14 14 // 15 15 … … 300 300 301 301 bool is_coroutine() { return kind == Coroutine; } 302 bool is_exception() { return kind == Exception; }303 302 bool is_generator() { return kind == Generator; } 304 303 bool is_monitor () { return kind == Monitor ; } -
src/main.cc
r5541ea3d r0640189e 9 9 // Author : Peter Buhr and Rob Schluntz 10 10 // Created On : Fri May 15 23:12:02 2015 11 // Last Modified By : Henry Xue12 // Last Modified On : Tue Jul 20 04:27:35202113 // Update Count : 65 811 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sat Mar 6 15:49:00 2021 13 // Update Count : 656 14 14 // 15 15 … … 49 49 #include "Common/utility.h" // for deleteAll, filter, printAll 50 50 #include "Concurrency/Waitfor.h" // for generateWaitfor 51 #include "ControlStruct/ExceptDecl.h" // for translateExcept52 51 #include "ControlStruct/ExceptTranslate.h" // for translateEHM 53 52 #include "ControlStruct/Mutate.h" // for mutate … … 306 305 CodeTools::fillLocations( translationUnit ); 307 306 Stats::Time::StopBlock(); 308 309 PASS( "Translate Exception Declarations", ControlStruct::translateExcept( translationUnit ) );310 if ( exdeclp ) {311 dump( translationUnit );312 return EXIT_SUCCESS;313 } // if314 307 315 308 // add the assignment statement after the initialization of a type parameter … … 556 549 // code dumps 557 550 { "ast", astp, true, "print AST after parsing" }, 558 { "exdecl", exdeclp, true, "print AST after translating exception decls" },559 551 { "symevt", symtabp, true, "print AST after symbol table events" }, 560 552 { "altexpr", expraltp, true, "print alternatives for expressions" }, -
tests/.expect/counter.txt
r5541ea3d r0640189e 1 inc452 dec421 45 2 42 -
tests/.expect/rational.txt
r5541ea3d r0640189e 1 1 constructor 2 a : 3/1 b : 4/1 c : 0/1 d : 0/1 e : 1/1 3 a : 1/2 b : 5/7 4 a : 2/3 b : -3/2 5 a : -2/3 b : 3/2 6 7 comparison 8 a : -2/1 b : -3/2 9 a == 0 : 0 10 a == 1 : 0 11 a != 0 : 1 12 ! a : 0 13 a != b : 1 14 a < b : 1 15 a <= b : 1 16 a > b : 0 17 a >= b : 0 18 2 3/1 4/1 0/1 0/1 1/1 3 1/2 5/7 4 2/3 -3/2 5 -2/3 3/2 6 logical 7 -2/1 -3/2 8 1 9 1 10 1 11 0 12 0 19 13 arithmetic 20 a : -2/1 b : -3/2 21 a + b : -7/2 22 a += b : -7/2 23 ++a : -5/2 24 a++ : -5/2 25 a : -3/2 26 a - b : 0/1 27 a -= b : 0/1 28 --a : -1/1 29 a-- : -1/1 30 a : -2/1 31 a * b : 3/1 32 a / b : 4/3 33 a \ 2 : 4/1 b \ 2 : 9/4 34 a \ -2 : 1/4 b \ -2 : 4/9 35 14 -2/1 -3/2 15 -7/2 16 -1/2 17 3/1 18 4/3 36 19 conversion 37 20 0.75 … … 41 24 1/7 42 25 355/113 43 26 decompose 44 27 more tests 45 28 -3/2 -
tests/counter.cfa
r5541ea3d r0640189e 10 10 // Created On : Thu Feb 22 15:27:00 2018 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Jul 20 21:25:30 202113 // Update Count : 412 // Last Modified On : Tue Nov 6 17:50:23 2018 13 // Update Count : 2 14 14 // 15 16 #include <fstream.hfa>17 15 18 16 // Tests unified increment/decrement builtin functions. … … 21 19 struct counter { int x; }; 22 20 23 counter ?+=?( counter & c, one_t ) { ++c.x; return c; } 24 counter ?-=?( counter & c, one_t ) { --c.x; return c; } 21 counter& ?+=?( counter& c, one_t ) { ++c.x; return c; } 22 23 counter& ?-=?( counter& c, one_t ) { --c.x; return c; } 25 24 26 25 int main() { … … 29 28 ++c; 30 29 c++; 31 sout | "inc" | c.x;30 printf("%d\n", c.x); 32 31 c -= 1; 33 32 --c; 34 33 c--; 35 sout | "dec" | c.x;34 printf("%d\n", c.x); 36 35 } 37 36 -
tests/polymorphism.cfa
r5541ea3d r0640189e 71 71 printf(" offset of inner float: %ld\n", ((char *) & x_inner_float ) - ((char *) & x) ); 72 72 73 void showStatic( thing( long longint) & x ) {73 void showStatic( thing(int) & x ) { 74 74 printf("static:\n"); 75 75 SHOW_OFFSETS … … 85 85 86 86 printf("=== checkPlan9offsets\n"); 87 thing( long longint) x;87 thing(int) x; 88 88 showStatic(x); 89 89 showDynamic(x); -
tests/rational.cfa
r5541ea3d r0640189e 10 10 // Created On : Mon Mar 28 08:43:12 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Jul 20 18:13:40 202113 // Update Count : 10712 // Last Modified On : Sat Feb 8 18:46:23 2020 13 // Update Count : 86 14 14 // 15 15 … … 26 26 sout | "constructor"; 27 27 RatInt a = { 3 }, b = { 4 }, c, d = 0, e = 1; 28 sout | "a : " | a | "b : " | b | "c : " | c | "d : " | d | "e : "| e;28 sout | a | b | c | d | e; 29 29 30 30 a = (RatInt){ 4, 8 }; 31 31 b = (RatInt){ 5, 7 }; 32 sout | "a : " | a | "b : "| b;32 sout | a | b; 33 33 a = (RatInt){ -2, -3 }; 34 34 b = (RatInt){ 3, -2 }; 35 sout | "a : " | a | "b : "| b;35 sout | a | b; 36 36 a = (RatInt){ -2, 3 }; 37 37 b = (RatInt){ 3, 2 }; 38 sout | "a : " | a | "b : " | b; 39 sout | nl; 38 sout | a | b; 40 39 41 sout | " comparison";40 sout | "logical"; 42 41 a = (RatInt){ -2 }; 43 42 b = (RatInt){ -3, 2 }; 44 sout | "a : " | a | "b : " | b; 45 sout | "a == 0 : " | a == (Rational(int)){0}; // FIX ME 46 sout | "a == 1 : " | a == (Rational(int)){1}; // FIX ME 47 sout | "a != 0 : " | a != 0; 48 sout | "! a : " | ! a; 49 sout | "a != b : " | a != b; 50 sout | "a < b : " | a < b; 51 sout | "a <= b : " | a <= b; 52 sout | "a > b : " | a > b; 53 sout | "a >= b : " | a >= b; 54 sout | nl; 43 sout | a | b; 44 // sout | a == 1; // FIX ME 45 sout | a != b; 46 sout | a < b; 47 sout | a <= b; 48 sout | a > b; 49 sout | a >= b; 55 50 56 51 sout | "arithmetic"; 57 sout | "a : " | a | "b : " | b; 58 sout | "a + b : " | a + b; 59 sout | "a += b : " | (a += b); 60 sout | "++a : " | ++a; 61 sout | "a++ : " | a++; 62 sout | "a : " | a; 63 sout | "a - b : " | a - b; 64 sout | "a -= b : " | (a -= b); 65 sout | "--a : " | --a; 66 sout | "a-- : " | a--; 67 sout | "a : " | a; 68 sout | "a * b : " | a * b; 69 sout | "a / b : " | a / b; 70 sout | "a \\ 2 : " | a \ 2u | "b \\ 2 : " | b \ 2u; 71 sout | "a \\ -2 : " | a \ -2 | "b \\ -2 : " | b \ -2; 72 sout | nl; 52 sout | a | b; 53 sout | a + b; 54 sout | a - b; 55 sout | a * b; 56 sout | a / b; 57 // sout | a \ 2 | b \ 2; // FIX ME 58 // sout | a \ -2 | b \ -2; 73 59 74 60 sout | "conversion"; … … 82 68 sout | narrow( 0.14285714285714, 16 ); 83 69 sout | narrow( 3.14159265358979, 256 ); 84 sout | nl;85 70 86 //sout | "decompose";87 //int n, d;88 //[n, d] = a;89 //sout | a | n | d;71 sout | "decompose"; 72 int n, d; 73 // [n, d] = a; 74 // sout | a | n | d; 90 75 91 76 sout | "more tests";
Note:
See TracChangeset
for help on using the changeset viewer.