Mirrors/miller
1
0
Fork 0
mirror of https://github.com/johnkerl/miller.git synced 2026-07-23 16:08:43 +00:00
Code Issues Projects Releases Wiki Activity

neaten

Browse source
This commit is contained in:
John Kerl 2016-10-11 21:54:04 -04:00
parent 27e63e8ab6
commit e7b5efe548
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
c/mapping/mlr_dsl_stack_allocate.c
View file

@ -299,10 +299,8 @@ static void pass_1_for_statement_block(mlr_dsl_ast_node_t* pnode, stkalc_frame_g
// ----------------------------------------------------------------
static void pass_1_for_node(mlr_dsl_ast_node_t* pnode, stkalc_frame_group_t* pframe_group, int trace) {
// xxx make separate functions
if (pnode->type == MD_AST_NODE_TYPE_LOCAL_DEFINITION) {
// xxx decide on preorder vs. postorder
mlr_dsl_ast_node_t* pnamenode = pnode->pchildren->phead->pvvalue;
mlr_dsl_ast_node_t* pvaluenode = pnode->pchildren->phead->pnext->pvvalue;
@ -310,7 +308,7 @@ static void pass_1_for_node(mlr_dsl_ast_node_t* pnode, stkalc_frame_group_t* pfr
// Do the LHS after the RHS, in case 'local nonesuch = nonesuch'
stkalc_frame_group_mutate_node_for_define(pframe_group, pnamenode, "DEFINE", trace);
} else if (pnode->type == MD_AST_NODE_TYPE_LOCAL_ASSIGNMENT) { // xxx rename
} else if (pnode->type == MD_AST_NODE_TYPE_LOCAL_ASSIGNMENT) {
mlr_dsl_ast_node_t* pnamenode = pnode->pchildren->phead->pvvalue;
mlr_dsl_ast_node_t* pvaluenode = pnode->pchildren->phead->pnext->pvvalue;
pass_1_for_node(pvaluenode, pframe_group, trace);
@ -323,7 +321,7 @@ static void pass_1_for_node(mlr_dsl_ast_node_t* pnode, stkalc_frame_group_t* pfr
} else if (pnode->type == MD_AST_NODE_TYPE_FOR_SREC) { // xxx comment
if (trace) {
leader_print(pframe_group->plist->length); // xxx depth ?
leader_print(pframe_group->plist->length);
printf("PUSH FRAME %s\n", pnode->text);
}
stkalc_frame_t* pnext_frame = stkalc_frame_alloc();
@ -343,7 +341,7 @@ static void pass_1_for_node(mlr_dsl_ast_node_t* pnode, stkalc_frame_group_t* pfr
stkalc_frame_free(stkalc_frame_group_pop(pframe_group));
if (trace) {
leader_print(pframe_group->plist->length); // xxx depth ?
leader_print(pframe_group->plist->length);
printf("POP FRAME %s frct=%d\n", pnode->text, pnode->frame_var_count);
}
@ -494,7 +492,7 @@ static void stkalc_frame_group_mutate_node_for_write(stkalc_frame_group_t* pfram
{
char* op = "REUSE";
int found = FALSE;
// xxx loop. if not found, fall back to top frame.
// xxx comment: re loop. if not found, fall back to top frame.
pnode->upstack_frame_count = 0;
for (sllve_t* pe = pframe_group->plist->phead; pe != NULL; pe = pe->pnext, pnode->upstack_frame_count++) {
stkalc_frame_t* pframe = pe->pvvalue;
@ -525,7 +523,7 @@ static void stkalc_frame_group_mutate_node_for_read(stkalc_frame_group_t* pframe
{
char* op = "PRESENT";
int found = FALSE;
// xxx loop. if not found, fall back to top frame.
// xxx comment: re loop. if not found, fall back to top frame.
int upstack_frame_count = 0;
for (sllve_t* pe = pframe_group->plist->phead; pe != NULL; pe = pe->pnext, upstack_frame_count++) {
stkalc_frame_t* pframe = pe->pvvalue;