| 1 | #include <fstream> | 
|---|
| 2 | #include <stdlib> | 
|---|
| 3 | extern "C" { | 
|---|
| 4 | #define false ((int)0)  // until stdbool.h works | 
|---|
| 5 | #define assert(cond) if (! (cond)) { sout | "Assertion failed: (" | #cond | ") at " __FILE__ | ":" | __LINE__ | endl; abort(); } | 
|---|
| 6 | } | 
|---|
| 7 |  | 
|---|
| 8 | struct A { | 
|---|
| 9 | char * name; | 
|---|
| 10 | int * x; | 
|---|
| 11 | }; | 
|---|
| 12 |  | 
|---|
| 13 | // don't want these called | 
|---|
| 14 | void ?{}(A * a) { assert( false ); } | 
|---|
| 15 | void ?{}(A * a, char * name) { a->name = name; sout | "construct " | name | endl; a->x = malloc(); } | 
|---|
| 16 | void ?{}(A * a, char * name, int * ptr) { assert( false ); } | 
|---|
| 17 |  | 
|---|
| 18 | A ?=?(A * a, A a) {  sout | "assign " | a->name | " " | a.name; return a; } | 
|---|
| 19 | void ?{}(A * a, A a) { sout | "copy construct " | a.name | endl; a->x = malloc(); } | 
|---|
| 20 | void ^?{}(A * a) { sout | "destruct " | a->name | endl; free(a->x); } | 
|---|
| 21 |  | 
|---|
| 22 | // test returns | 
|---|
| 23 | void f(int i) { | 
|---|
| 24 | sout | "f i=" | i | endl; | 
|---|
| 25 | A x = { "x" };  // construct x | 
|---|
| 26 | { | 
|---|
| 27 | A y = { "y" }; // construct y | 
|---|
| 28 | { | 
|---|
| 29 | A z = { "z" }; // construct z | 
|---|
| 30 | { | 
|---|
| 31 | if (i == 0) return; // destruct x, y, z | 
|---|
| 32 | } | 
|---|
| 33 | if (i == 1) return; // destruct x, y, z | 
|---|
| 34 | // destruct z | 
|---|
| 35 | } | 
|---|
| 36 | if (i == 2) return; // destruct x, y | 
|---|
| 37 | // destruct y | 
|---|
| 38 | } | 
|---|
| 39 | return; // destruct x | 
|---|
| 40 | } | 
|---|
| 41 |  | 
|---|
| 42 | // test loops, switch, etc. | 
|---|
| 43 | void g() { | 
|---|
| 44 | for (int i = 0; i < 10; i++) { | 
|---|
| 45 | sout | "g for i=" | i | endl; | 
|---|
| 46 | A x = { "x" }; | 
|---|
| 47 | // construct x | 
|---|
| 48 | // destruct x | 
|---|
| 49 | } | 
|---|
| 50 | sout | endl; | 
|---|
| 51 | { | 
|---|
| 52 | int i = 0; | 
|---|
| 53 | while (i < 10) { | 
|---|
| 54 | sout | "g while i=" | i | endl; | 
|---|
| 55 | A x = { "x" }; | 
|---|
| 56 | // construct x | 
|---|
| 57 | i++; | 
|---|
| 58 | // destruct x | 
|---|
| 59 | } | 
|---|
| 60 | } | 
|---|
| 61 | sout | endl; | 
|---|
| 62 | for (int i = 0; i < 10; i++) { | 
|---|
| 63 | switch(10) { | 
|---|
| 64 | case 0: | 
|---|
| 65 | case 5: | 
|---|
| 66 | case 10: { | 
|---|
| 67 | A y = { "y" }; | 
|---|
| 68 | sout | "g switch i=" | i | endl; | 
|---|
| 69 | // construct y | 
|---|
| 70 | break; // destruct y | 
|---|
| 71 | } | 
|---|
| 72 | default: { | 
|---|
| 73 | sout | "g switch i=" | i | endl; | 
|---|
| 74 | A x = { "x" }; | 
|---|
| 75 | // construct x | 
|---|
| 76 | break; // destruct x | 
|---|
| 77 | } | 
|---|
| 78 | } | 
|---|
| 79 | } | 
|---|
| 80 | sout | endl; | 
|---|
| 81 | for (int k = 0; k < 2; k++) { | 
|---|
| 82 | sout | "g for k=" | k | endl; | 
|---|
| 83 | L1: for (int i = 0; i < 10; i++) { | 
|---|
| 84 | sout | "g for i=" | i | endl; | 
|---|
| 85 |  | 
|---|
| 86 | A x = { "x" }; | 
|---|
| 87 | if (i == 2) { | 
|---|
| 88 | sout | "continue L1" | endl; | 
|---|
| 89 | continue;  // destruct x | 
|---|
| 90 | } else if (i == 3) { | 
|---|
| 91 | sout | "break L1" | endl; | 
|---|
| 92 | break;  // destruct x | 
|---|
| 93 | } | 
|---|
| 94 |  | 
|---|
| 95 | L2: for (int j = 0; j < 10; j++) { | 
|---|
| 96 | sout | "g for j=" | j | endl; | 
|---|
| 97 | A y = { "y" }; | 
|---|
| 98 | if (j == 0) { | 
|---|
| 99 | sout | "continue L2" | endl; | 
|---|
| 100 | continue; // destruct y - missing because object that needs to be destructed is not a part of this block, it's a part of the for's block | 
|---|
| 101 | } else if (j == 1) { | 
|---|
| 102 | sout | "break L2" | endl; | 
|---|
| 103 | break;  // destruct y | 
|---|
| 104 | } else if (i == 1) { | 
|---|
| 105 | sout | "continue L1" | endl; | 
|---|
| 106 | continue L1; // destruct x,y - note: continue takes you to destructors for block, so only generate destructor for y | 
|---|
| 107 | } else if (k == 1) { | 
|---|
| 108 | sout | "break L1" | endl; | 
|---|
| 109 | break L1;  // destruct x,y | 
|---|
| 110 | } | 
|---|
| 111 | } | 
|---|
| 112 | } | 
|---|
| 113 | } | 
|---|
| 114 |  | 
|---|
| 115 | sout | endl; | 
|---|
| 116 | L3: if( 3 ) { | 
|---|
| 117 | A w = { "w" }; | 
|---|
| 118 | if( 4 ) { | 
|---|
| 119 | A v = { "v" }; | 
|---|
| 120 | sout | "break L3" | endl; | 
|---|
| 121 | break L3; | 
|---|
| 122 | } | 
|---|
| 123 | } | 
|---|
| 124 | } | 
|---|
| 125 |  | 
|---|
| 126 | // test goto | 
|---|
| 127 | void h() { | 
|---|
| 128 | int i = 0; | 
|---|
| 129 | // for each goto G with target label L: | 
|---|
| 130 | // * find all constructed variables alive at G (set S_G) | 
|---|
| 131 | // * find all constructed variables alive at L (set S_L) | 
|---|
| 132 | // * if S_L-S_G is non-empty, error | 
|---|
| 133 | // * emit destructors for all variables in S_G-S_L | 
|---|
| 134 | sout | "h" | endl; | 
|---|
| 135 | { | 
|---|
| 136 | L0: ; | 
|---|
| 137 | #ifdef ERR1 | 
|---|
| 138 | goto L1; // this is an error in g++ because it skips initialization of y | 
|---|
| 139 | #endif | 
|---|
| 140 | A y = { "y" }; | 
|---|
| 141 | // S_L1 = { y } | 
|---|
| 142 | L1: sout | "L1" | endl; | 
|---|
| 143 | A x = { "x" }; | 
|---|
| 144 | // S_L2 = { y, x } | 
|---|
| 145 | L2: sout | "L2" | endl; | 
|---|
| 146 | if (i == 0) { | 
|---|
| 147 | ++i; | 
|---|
| 148 | sout | "goto L1" | endl; | 
|---|
| 149 | // S_G = { y, x } | 
|---|
| 150 | goto L1;  // jump back, destruct b/c before x definition | 
|---|
| 151 | // S_L-S_G = {} => no error | 
|---|
| 152 | // S_G-S_L = { x } => destruct x | 
|---|
| 153 | } else if (i == 1) { | 
|---|
| 154 | ++i; | 
|---|
| 155 | sout | "goto L2" | endl; | 
|---|
| 156 | // S_G = { y, x } | 
|---|
| 157 | goto L2;  // jump back, do not destruct | 
|---|
| 158 | // S_L-S_G = {} | 
|---|
| 159 | // S_G-S_L = {} => destruct nothing | 
|---|
| 160 | } else if (i == 2) { | 
|---|
| 161 | ++i; | 
|---|
| 162 | sout | "goto L3" | endl; | 
|---|
| 163 | // S_G = { y, x } | 
|---|
| 164 | goto L3;  // jump ahead, do not destruct | 
|---|
| 165 | // S_L-S_G = {} | 
|---|
| 166 | // S_G-S_L = {} | 
|---|
| 167 | } else if (false) { | 
|---|
| 168 | ++i; | 
|---|
| 169 | A z = { "z" }; | 
|---|
| 170 | sout | "goto L3-2" | endl; | 
|---|
| 171 | // S_G = { z, y, x } | 
|---|
| 172 | goto L3; | 
|---|
| 173 | // S_L-S_G = {} | 
|---|
| 174 | // S_G-S_L = {z} => destruct z | 
|---|
| 175 | } else { | 
|---|
| 176 | ++i; | 
|---|
| 177 | sout | "goto L4" | endl; | 
|---|
| 178 | // S_G = { y, x } | 
|---|
| 179 | goto L4;  // jump ahead, destruct b/c left block x was defined in | 
|---|
| 180 | // S_L-S_G = {} | 
|---|
| 181 | // S_G-S_L = { y, x } => destruct y, x | 
|---|
| 182 | } | 
|---|
| 183 | // S_L3 = { y, x } | 
|---|
| 184 | L3: sout | "L3" | endl; | 
|---|
| 185 | sout | "goto L2-2" | endl; | 
|---|
| 186 | // S_G = { y, x } | 
|---|
| 187 | goto L2; // jump back, do not destruct | 
|---|
| 188 | // S_L-S_G = {} | 
|---|
| 189 | // S_G-S_L = {} | 
|---|
| 190 | } | 
|---|
| 191 | // S_L4 = {} | 
|---|
| 192 | L4: sout | "L4" | endl; | 
|---|
| 193 | if (i == 4) { | 
|---|
| 194 | sout | "goto L0" | endl; | 
|---|
| 195 | // S_G = {} | 
|---|
| 196 | goto L0; | 
|---|
| 197 | // S_L-S_G = {} | 
|---|
| 198 | // S_G-S_L = {} | 
|---|
| 199 | } | 
|---|
| 200 | // S_G = {} | 
|---|
| 201 | #ifdef ERR2 | 
|---|
| 202 | if (i == 5) goto L2; // this is an error in g++ because it skips initialization of y, x | 
|---|
| 203 | // S_L-S_G = { y, x } => non-empty, so error | 
|---|
| 204 | #endif | 
|---|
| 205 | } | 
|---|
| 206 |  | 
|---|
| 207 | int main() { | 
|---|
| 208 | sepDisable(sout); | 
|---|
| 209 | for (int i = 0; i < 4; i++) { | 
|---|
| 210 | f(i); | 
|---|
| 211 | } | 
|---|
| 212 | sout | endl; | 
|---|
| 213 | g(); | 
|---|
| 214 | sout | endl; | 
|---|
| 215 | h(); | 
|---|
| 216 | } | 
|---|