• R/O
  • SSH
  • HTTPS

jpl: Commit


Commit MetaInfo

Revision1007 (tree)
Time2020-05-07 09:02:35
Authorjakobthomsen

Log Message

emit dynamic memory allocation if flag set

Change Summary

Incremental Difference

--- trunk/jpl_compiler_own_stack_and_heap(tree-closures-memory)-recursive/jpl_compiler.c (revision 1006)
+++ trunk/jpl_compiler_own_stack_and_heap(tree-closures-memory)-recursive/jpl_compiler.c (revision 1007)
@@ -97789,6 +97789,57 @@
9778997789 case 18446744073709547378LLU: // 999999987w'''''''''''''''
9779097790 {
9779197791 fprintf(stdout, "%s", " + 1)");
97792+ {
97793+ uint64_t arg = 0;
97794+ LOCAL_PUSH_MOVE(&heap, 10, &(heap.data[0].elem1)/*address of current closure*/, &arg);
97795+ }
97796+ {
97797+ uint64_t match = 0;
97798+ for(int i = 0; i < argc; i++)
97799+ {
97800+ if(strcmp(args[i], "dynamic") == 0)
97801+ {
97802+ match = 1;
97803+ break;
97804+ }
97805+ }
97806+ *LOCAL_ACCESS(heap.data, 11LLU, 10LLU) = match;
97807+ }
97808+ state.addr = *LOCAL_ACCESS(heap.data, 11LLU, 10LLU) ? 18446744073709547377LLU : 18446744073709547376LLU;
97809+ (void)LOCAL_POP_MOVE(&heap, 11LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE temporary reference at 11
97810+ break;
97811+ }
97812+ case 18446744073709547377LLU: // 999999987v'''''''''''''''
97813+ {
97814+ fprintf(stdout, "%s", "\n struct pair *heapraw = calloc(");
97815+ // ACCUMULATE ARGUMENTS - BEGIN
97816+ {
97817+ uint64_t arg = /*heapsize__*/LOCAL_ACCESS_ADDR(heap.data, 10LLU, 3LLU);
97818+ LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
97819+ }
97820+ // ACCUMULATE ARGUMENTS - END
97821+ uint64_t return_to = 18446744073709547374LLU;
97822+ const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
97823+ uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
97824+ *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
97825+ heap.data[0].elem1 = heap.data[0].elem0;
97826+ heap.data[0].elem0 = restore;
97827+ state.addr = 787446708198178816LLU; // printnr___
97828+ break;
97829+ }
97830+ case 18446744073709547374LLU: // 999999987s'''''''''''''''
97831+ {
97832+ fprintf(stdout, "%s", " + 1, sizeof(struct pair));");
97833+ fprintf(stdout, "%s", "\n if(!heapraw)");
97834+ fprintf(stdout, "%s", "\n {");
97835+ fprintf(stdout, "%s", "\n fprintf(stderr, \"FAILED TO ALLOCATE MEMORY\\n\");");
97836+ fprintf(stdout, "%s", "\n exit(-1);");
97837+ fprintf(stdout, "%s", "\n }");
97838+ state.addr = 18446744073709547375LLU; // 999999987t'''''''''''''''
97839+ break;
97840+ }
97841+ case 18446744073709547376LLU: // 999999987u'''''''''''''''
97842+ {
9779297843 fprintf(stdout, "%s", "\n struct pair heapraw[");
9779397844 // ACCUMULATE ARGUMENTS - BEGIN
9779497845 {
@@ -97796,7 +97847,7 @@
9779697847 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9779797848 }
9779897849 // ACCUMULATE ARGUMENTS - END
97799- uint64_t return_to = 18446744073709547377LLU;
97850+ uint64_t return_to = 18446744073709547373LLU;
9780097851 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9780197852 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9780297853 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97805,9 +97856,14 @@
9780597856 state.addr = 787446708198178816LLU; // printnr___
9780697857 break;
9780797858 }
97808- case 18446744073709547377LLU: // 999999987v'''''''''''''''
97859+ case 18446744073709547373LLU: // 999999987r'''''''''''''''
9780997860 {
9781097861 fprintf(stdout, "%s", " + 1];");
97862+ state.addr = 18446744073709547375LLU; // 999999987t'''''''''''''''
97863+ break;
97864+ }
97865+ case 18446744073709547375LLU: // 999999987t'''''''''''''''
97866+ {
9781197867 fprintf(stdout, "%s", "\n struct all all = init(heapraw);");
9781297868 fprintf(stdout, "%s", "\n struct heap heap = all.heap;");
9781397869 fprintf(stdout, "%s", "\n struct state state = all.state;");
@@ -97821,7 +97877,7 @@
9782197877 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9782297878 }
9782397879 // ACCUMULATE ARGUMENTS - END
97824- uint64_t return_to = 18446744073709547376LLU;
97880+ uint64_t return_to = 18446744073709547372LLU;
9782597881 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9782697882 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9782797883 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97830,7 +97886,7 @@
9783097886 state.addr = 536089416471863296LLU; // builtins__
9783197887 break;
9783297888 }
97833- case 18446744073709547376LLU: // 999999987u'''''''''''''''
97889+ case 18446744073709547372LLU: // 999999987q'''''''''''''''
9783497890 {
9783597891 // ACCUMULATE ARGUMENTS - BEGIN
9783697892 {
@@ -97854,7 +97910,7 @@
9785497910 LOCAL_PUSH_MOVE(&heap, 4LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9785597911 }
9785697912 // ACCUMULATE ARGUMENTS - END
97857- uint64_t return_to = 18446744073709547375LLU;
97913+ uint64_t return_to = 18446744073709547371LLU;
9785897914 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0));
9785997915 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9786097916 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97863,7 +97919,7 @@
9786397919 state.addr = 782701543537682560LLU; // parseprog_
9786497920 break;
9786597921 }
97866- case 18446744073709547375LLU: // 999999987t'''''''''''''''
97922+ case 18446744073709547371LLU: // 999999987p'''''''''''''''
9786797923 {
9786897924 {
9786997925 uint64_t arg = 0;
@@ -97897,7 +97953,7 @@
9789797953 LOCAL_PUSH_MOVE(&heap, 4LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9789897954 }
9789997955 // ACCUMULATE ARGUMENTS - END
97900- uint64_t return_to = 18446744073709547374LLU;
97956+ uint64_t return_to = 18446744073709547370LLU;
9790197957 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0));
9790297958 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9790397959 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97906,7 +97962,7 @@
9790697962 state.addr = 587881350213857280LLU; // emitinit__
9790797963 break;
9790897964 }
97909- case 18446744073709547374LLU: // 999999987s'''''''''''''''
97965+ case 18446744073709547370LLU: // 999999987o'''''''''''''''
9791097966 {
9791197967 // ACCUMULATE ARGUMENTS - BEGIN
9791297968 {
@@ -97914,7 +97970,7 @@
9791497970 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9791597971 }
9791697972 // ACCUMULATE ARGUMENTS - END
97917- uint64_t return_to = 18446744073709547373LLU;
97973+ uint64_t return_to = 18446744073709547369LLU;
9791897974 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9791997975 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9792097976 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97923,7 +97979,7 @@
9792397979 state.addr = 587881345921715008LLU; // emitenter_
9792497980 break;
9792597981 }
97926- case 18446744073709547373LLU: // 999999987r'''''''''''''''
97982+ case 18446744073709547369LLU: // 999999987n'''''''''''''''
9792797983 {
9792897984 fprintf(stdout, "%s", "\n // program starts here with call into main");
9792997985 {
@@ -97969,7 +98025,7 @@
9796998025 LOCAL_PUSH_MOVE(&heap, 3LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9797098026 }
9797198027 // ACCUMULATE ARGUMENTS - END
97972- uint64_t return_to = 18446744073709547372LLU;
98028+ uint64_t return_to = 18446744073709547368LLU;
9797398029 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 4LLU, 0/*address of closure-in-construction*/, 0));
9797498030 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9797598031 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 4LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -97978,7 +98034,7 @@
9797898034 state.addr = 548487490190330432LLU; // callbegin_
9797998035 break;
9798098036 }
97981- case 18446744073709547372LLU: // 999999987q'''''''''''''''
98037+ case 18446744073709547368LLU: // 999999987m'''''''''''''''
9798298038 {
9798398039 {
9798498040 uint64_t arg = 0;
@@ -98011,7 +98067,7 @@
9801198067 LOCAL_PUSH_MOVE(&heap, 5LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9801298068 }
9801398069 // ACCUMULATE ARGUMENTS - END
98014- uint64_t return_to = 18446744073709547371LLU;
98070+ uint64_t return_to = 18446744073709547367LLU;
9801598071 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 6LLU, 0/*address of closure-in-construction*/, 0));
9801698072 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9801798073 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 6LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98020,7 +98076,7 @@
9802098076 state.addr = 517221173180428288LLU; // argconst__
9802198077 break;
9802298078 }
98023- case 18446744073709547371LLU: // 999999987p'''''''''''''''
98079+ case 18446744073709547367LLU: // 999999987l'''''''''''''''
9802498080 {
9802598081 // ACCUMULATE ARGUMENTS - BEGIN
9802698082 {
@@ -98044,7 +98100,7 @@
9804498100 LOCAL_PUSH_MOVE(&heap, 4LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9804598101 }
9804698102 // ACCUMULATE ARGUMENTS - END
98047- uint64_t return_to = 18446744073709547370LLU;
98103+ uint64_t return_to = 18446744073709547366LLU;
9804898104 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0));
9804998105 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9805098106 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 5LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98053,7 +98109,7 @@
9805398109 state.addr = 548487493561614336LLU; // callend___
9805498110 break;
9805598111 }
98056- case 18446744073709547370LLU: // 999999987o'''''''''''''''
98112+ case 18446744073709547366LLU: // 999999987k'''''''''''''''
9805798113 {
9805898114 fprintf(stdout, "%s", "\n fprintf(stderr, \"INTERNAL ERROR: 0-instruction-address\\n\"); // this should never be reached");
9805998115 fprintf(stdout, "%s", "\n exit(-1);");
@@ -98081,7 +98137,7 @@
9808198137 LOCAL_PUSH_MOVE(&heap, 3LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9808298138 }
9808398139 // ACCUMULATE ARGUMENTS - END
98084- uint64_t return_to = 18446744073709547369LLU;
98140+ uint64_t return_to = 18446744073709547365LLU;
9808598141 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 4LLU, 0/*address of closure-in-construction*/, 0));
9808698142 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9808798143 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 4LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98090,7 +98146,7 @@
9809098146 state.addr = 587881357748664875LLU; // emitpoptmp
9809198147 break;
9809298148 }
98093- case 18446744073709547369LLU: // 999999987n'''''''''''''''
98149+ case 18446744073709547365LLU: // 999999987j'''''''''''''''
9809498150 {
9809598151 // variable u64 level_____ goes out of scope
9809698152 // emitted destructur for type u64
@@ -98109,7 +98165,7 @@
9810998165 LOCAL_PUSH_MOVE(&heap, 2LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9811098166 }
9811198167 // ACCUMULATE ARGUMENTS - END
98112- uint64_t return_to = 18446744073709547368LLU;
98168+ uint64_t return_to = 18446744073709547364LLU;
9811398169 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 3LLU, 0/*address of closure-in-construction*/, 0));
9811498170 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9811598171 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 3LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98118,7 +98174,7 @@
9811898174 state.addr = 587881353282000896LLU; // emitleave_
9811998175 break;
9812098176 }
98121- case 18446744073709547368LLU: // 999999987m'''''''''''''''
98177+ case 18446744073709547364LLU: // 999999987i'''''''''''''''
9812298178 {
9812398179 // variable u64 resultaddr goes out of scope
9812498180 // emitted destructur for type u64
@@ -98156,7 +98212,7 @@
9815698212 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9815798213 }
9815898214 // ACCUMULATE ARGUMENTS - END
98159- uint64_t return_to = 18446744073709547367LLU;
98215+ uint64_t return_to = 18446744073709547363LLU;
9816098216 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9816198217 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9816298218 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98165,7 +98221,7 @@
9816598221 state.addr = 891913148528723755LLU; // verifyheap
9816698222 break;
9816798223 }
98168- case 18446744073709547367LLU: // 999999987l'''''''''''''''
98224+ case 18446744073709547363LLU: // 999999987h'''''''''''''''
9816998225 {
9817098226 fprintf(stdout, "%s", "\n if(heap.availilable_size_for_dynamic_objects != ");
9817198227 fprintf(stdout, "%llu", (unsigned long long)/*heapsize__*/*LOCAL_ACCESS(heap.data, 12LLU, 3LLU));
@@ -98181,6 +98237,35 @@
9818198237 fprintf(stdout, "%s", "\n exit(-1);");
9818298238 fprintf(stdout, "%s", "\n }");
9818398239 fprintf(stdout, "%s", "\n");
98240+ {
98241+ uint64_t arg = 0;
98242+ LOCAL_PUSH_MOVE(&heap, 12, &(heap.data[0].elem1)/*address of current closure*/, &arg);
98243+ }
98244+ {
98245+ uint64_t match = 0;
98246+ for(int i = 0; i < argc; i++)
98247+ {
98248+ if(strcmp(args[i], "dynamic") == 0)
98249+ {
98250+ match = 1;
98251+ break;
98252+ }
98253+ }
98254+ *LOCAL_ACCESS(heap.data, 13LLU, 12LLU) = match;
98255+ }
98256+ state.addr = *LOCAL_ACCESS(heap.data, 13LLU, 12LLU) ? 18446744073709547362LLU : 18446744073709547361LLU;
98257+ (void)LOCAL_POP_MOVE(&heap, 13LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE temporary reference at 13
98258+ break;
98259+ }
98260+ case 18446744073709547362LLU: // 999999987g'''''''''''''''
98261+ {
98262+ fprintf(stdout, "%s", "\n free(heapraw);");
98263+ state.addr = 18446744073709547361LLU; // 999999987f'''''''''''''''
98264+ break;
98265+ }
98266+ case 18446744073709547361LLU: // 999999987f'''''''''''''''
98267+ {
98268+ fprintf(stdout, "%s", "\n");
9818498269 fprintf(stdout, "%s", "\n return (int)main_result;");
9818598270 fprintf(stdout, "%s", "\n}");
9818698271 fprintf(stdout, "%s", "\n");
@@ -98194,7 +98279,7 @@
9819498279 LOCAL_PUSH_MOVE(&heap, 1LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9819598280 }
9819698281 // ACCUMULATE ARGUMENTS - END
98197- uint64_t return_to = 18446744073709547366LLU;
98282+ uint64_t return_to = 18446744073709547360LLU;
9819898283 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0));
9819998284 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9820098285 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98203,7 +98288,7 @@
9820398288 state.addr = 587881350213860864LLU; // emitinit2_
9820498289 break;
9820598290 }
98206- case 18446744073709547366LLU: // 999999987k'''''''''''''''
98291+ case 18446744073709547360LLU: // 999999987e'''''''''''''''
9820798292 {
9820898293 fprintf(stdout, "%s", "\n");
9820998294 {
@@ -98226,7 +98311,7 @@
9822698311 LOCAL_PUSH_MOVE(&heap, 1LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9822798312 }
9822898313 // ACCUMULATE ARGUMENTS - END
98229- uint64_t return_to = 18446744073709547365LLU;
98314+ uint64_t return_to = 18446744073709547359LLU;
9823098315 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0));
9823198316 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9823298317 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98235,7 +98320,7 @@
9823598320 state.addr = 819847183514601582LLU; // reportdefs
9823698321 break;
9823798322 }
98238- case 18446744073709547365LLU: // 999999987j'''''''''''''''
98323+ case 18446744073709547359LLU: // 999999987d'''''''''''''''
9823998324 {
9824098325
9824198326 list_size(heap.data, &*LOCAL_ACCESS(heap.data, 14LLU, 12LLU), /*fndefs____*/*LOCAL_ACCESS(heap.data, 14LLU, 8LLU));
@@ -98245,7 +98330,7 @@
9824598330 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9824698331 }
9824798332 // ACCUMULATE ARGUMENTS - END
98248- uint64_t return_to = 18446744073709547364LLU;
98333+ uint64_t return_to = 18446744073709547358LLU;
9824998334 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9825098335 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9825198336 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98254,7 +98339,7 @@
9825498339 state.addr = 819847183517274112LLU; // reportnr__
9825598340 break;
9825698341 }
98257- case 18446744073709547364LLU: // 999999987i'''''''''''''''
98342+ case 18446744073709547358LLU: // 999999987c'''''''''''''''
9825898343 {
9825998344 fprintf(stderr, "%s", " procedure-/function-definitions\n");
9826098345 // ACCUMULATE ARGUMENTS - BEGIN
@@ -98267,7 +98352,7 @@
9826798352 LOCAL_PUSH_MOVE(&heap, 1LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9826898353 }
9826998354 // ACCUMULATE ARGUMENTS - END
98270- uint64_t return_to = 18446744073709547363LLU;
98355+ uint64_t return_to = 18446744073709547357LLU;
9827198356 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0));
9827298357 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9827398358 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 2LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98276,7 +98361,7 @@
9827698361 state.addr = 819847183518878446LLU; // reporttyps
9827798362 break;
9827898363 }
98279- case 18446744073709547363LLU: // 999999987h'''''''''''''''
98364+ case 18446744073709547357LLU: // 999999987b'''''''''''''''
9828098365 {
9828198366
9828298367 list_size(heap.data, &*LOCAL_ACCESS(heap.data, 14LLU, 12LLU), /*typedefs__*/*LOCAL_ACCESS(heap.data, 14LLU, 9LLU));
@@ -98286,7 +98371,7 @@
9828698371 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9828798372 }
9828898373 // ACCUMULATE ARGUMENTS - END
98289- uint64_t return_to = 18446744073709547362LLU;
98374+ uint64_t return_to = 18446744073709547356LLU;
9829098375 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9829198376 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9829298377 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98295,7 +98380,7 @@
9829598380 state.addr = 819847183517274112LLU; // reportnr__
9829698381 break;
9829798382 }
98298- case 18446744073709547362LLU: // 999999987g'''''''''''''''
98383+ case 18446744073709547356LLU: // 999999987a'''''''''''''''
9829998384 {
9830098385 fprintf(stderr, "%s", " type-definitions\n");
9830198386 // variable u64 def_id____ goes out of scope
@@ -98314,14 +98399,14 @@
9831498399 (void)LOCAL_POP_MOVE(&heap, 11LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE reference mainsize__ at 11
9831598400 // variable list<typedef___> typedefs__ goes out of scope
9831698401 // emitted destructur for type list<typedef___>
98317- state.addr = 18446744073709547360LLU; // 999999987e'''''''''''''''
98402+ state.addr = 18446744073709547354LLU; // 999999987Z'''''''''''''''
9831898403 break;
9831998404 }
98320- case 18446744073709547360LLU: // 999999987e'''''''''''''''
98405+ case 18446744073709547354LLU: // 999999987Z'''''''''''''''
9832198406 {
9832298407 if(!*LOCAL_ACCESS(heap.data, 10LLU, 9LLU)/*list*/)
9832398408 {
98324- state.addr = 18446744073709547361LLU; // 999999987f'''''''''''''''
98409+ state.addr = 18446744073709547355LLU; // 999999987$'''''''''''''''
9832598410 break;
9832698411 }
9832798412 // temporary list-element
@@ -98335,7 +98420,7 @@
9833598420 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9833698421 }
9833798422 // ACCUMULATE ARGUMENTS - END
98338- uint64_t return_to = 18446744073709547359LLU;
98423+ uint64_t return_to = 18446744073709547353LLU;
9833998424 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9834098425 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9834198426 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98344,26 +98429,26 @@
9834498429 state.addr = 18446744073709551171LLU; // 999999993C'''''''''''''''
9834598430 break;
9834698431 }
98347- case 18446744073709547359LLU: // 999999987d'''''''''''''''
98432+ case 18446744073709547353LLU: // 999999987Y'''''''''''''''
9834898433 {
9834998434 // RELEASE temporary destructor-variable
9835098435 (void)LOCAL_POP_MOVE(&heap, 11LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE temporary reference at 11
98351- state.addr = 18446744073709547360LLU; // 999999987e'''''''''''''''
98436+ state.addr = 18446744073709547354LLU; // 999999987Z'''''''''''''''
9835298437 break;
9835398438 }
98354- case 18446744073709547361LLU: // 999999987f'''''''''''''''
98439+ case 18446744073709547355LLU: // 999999987$'''''''''''''''
9835598440 {
9835698441 (void)LOCAL_POP_MOVE(&heap, 10LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE reference typedefs__ at 10
9835798442 // variable list<defidfn___> fndefs____ goes out of scope
9835898443 // emitted destructur for type list<defidfn___>
98359- state.addr = 18446744073709547357LLU; // 999999987b'''''''''''''''
98444+ state.addr = 18446744073709547351LLU; // 999999987W'''''''''''''''
9836098445 break;
9836198446 }
98362- case 18446744073709547357LLU: // 999999987b'''''''''''''''
98447+ case 18446744073709547351LLU: // 999999987W'''''''''''''''
9836398448 {
9836498449 if(!*LOCAL_ACCESS(heap.data, 9LLU, 8LLU)/*list*/)
9836598450 {
98366- state.addr = 18446744073709547358LLU; // 999999987c'''''''''''''''
98451+ state.addr = 18446744073709547352LLU; // 999999987X'''''''''''''''
9836798452 break;
9836898453 }
9836998454 // temporary list-element
@@ -98377,7 +98462,7 @@
9837798462 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9837898463 }
9837998464 // ACCUMULATE ARGUMENTS - END
98380- uint64_t return_to = 18446744073709547356LLU;
98465+ uint64_t return_to = 18446744073709547350LLU;
9838198466 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9838298467 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9838398468 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98386,26 +98471,26 @@
9838698471 state.addr = 18446744073709551173LLU; // 999999993E'''''''''''''''
9838798472 break;
9838898473 }
98389- case 18446744073709547356LLU: // 999999987a'''''''''''''''
98474+ case 18446744073709547350LLU: // 999999987V'''''''''''''''
9839098475 {
9839198476 // RELEASE temporary destructor-variable
9839298477 (void)LOCAL_POP_MOVE(&heap, 10LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE temporary reference at 10
98393- state.addr = 18446744073709547357LLU; // 999999987b'''''''''''''''
98478+ state.addr = 18446744073709547351LLU; // 999999987W'''''''''''''''
9839498479 break;
9839598480 }
98396- case 18446744073709547358LLU: // 999999987c'''''''''''''''
98481+ case 18446744073709547352LLU: // 999999987X'''''''''''''''
9839798482 {
9839898483 (void)LOCAL_POP_MOVE(&heap, 9LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE reference fndefs____ at 9
9839998484 // variable list<nametoaddr> translate_ goes out of scope
9840098485 // emitted destructur for type list<nametoaddr>
98401- state.addr = 18446744073709547354LLU; // 999999987Z'''''''''''''''
98486+ state.addr = 18446744073709547348LLU; // 999999987T'''''''''''''''
9840298487 break;
9840398488 }
98404- case 18446744073709547354LLU: // 999999987Z'''''''''''''''
98489+ case 18446744073709547348LLU: // 999999987T'''''''''''''''
9840598490 {
9840698491 if(!*LOCAL_ACCESS(heap.data, 8LLU, 7LLU)/*list*/)
9840798492 {
98408- state.addr = 18446744073709547355LLU; // 999999987$'''''''''''''''
98493+ state.addr = 18446744073709547349LLU; // 999999987U'''''''''''''''
9840998494 break;
9841098495 }
9841198496 // temporary list-element
@@ -98419,7 +98504,7 @@
9841998504 LOCAL_PUSH_MOVE(&heap, 0LLU, &(heap.data[0].elem0)/*address of closure-in-construction*/, &arg);
9842098505 }
9842198506 // ACCUMULATE ARGUMENTS - END
98422- uint64_t return_to = 18446744073709547353LLU;
98507+ uint64_t return_to = 18446744073709547347LLU;
9842398508 const uint64_t restore = *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0));
9842498509 uint64_t baseinfo = pair_move(&heap, &(heap.data[0].elem1)/*memory root*/, &return_to);
9842598510 *access_heap(heap.data, tree_elem_addr_internal(heap.data, 1 + 1LLU, 0/*address of closure-in-construction*/, 0)) = baseinfo;
@@ -98428,14 +98513,14 @@
9842898513 state.addr = 18446744073709551395LLU; // 999999996h'''''''''''''''
9842998514 break;
9843098515 }
98431- case 18446744073709547353LLU: // 999999987Y'''''''''''''''
98516+ case 18446744073709547347LLU: // 999999987S'''''''''''''''
9843298517 {
9843398518 // RELEASE temporary destructor-variable
9843498519 (void)LOCAL_POP_MOVE(&heap, 9LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE temporary reference at 9
98435- state.addr = 18446744073709547354LLU; // 999999987Z'''''''''''''''
98520+ state.addr = 18446744073709547348LLU; // 999999987T'''''''''''''''
9843698521 break;
9843798522 }
98438- case 18446744073709547355LLU: // 999999987$'''''''''''''''
98523+ case 18446744073709547349LLU: // 999999987U'''''''''''''''
9843998524 {
9844098525 (void)LOCAL_POP_MOVE(&heap, 8LLU, &(heap.data[0].elem1)/*address of current closure*/); // RELEASE reference translate_ at 8
9844198526 // variable u64 end_______ goes out of scope
@@ -98548,6 +98633,7 @@
9854898633 exit(-1);
9854998634 }
9855098635
98636+
9855198637 return (int)main_result;
9855298638 }
9855398639
Show on old repository browser