Skip to content

Commit

Permalink
reAdd algebraic optimisations to parser without tracing
Browse files Browse the repository at this point in the history
  • Loading branch information
@jpffitch
jpffitch committed Aug 27, 2018
1 parent 6a414e0 commit 9b19ad4
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions Engine/csound_orc_optimize.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -240,7 +240,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right->value->value==0) ||
(current->right->type == NUMBER_TOKEN &&
current->right->value->fvalue==0)) {
print_tree(csound, "X op 0\n", current);
//print_tree(csound, "X op 0\n", current);
switch (current->type) {
case '+':
case '-':
Expand All @@ -254,7 +254,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right = current->left->right;
current->left = current->left->left;
csound->Free(csound, tmp);
print_tree(csound, "X op 0 -> X\n", current);
//print_tree(csound, "X op 0 -> X\n", current);
}
break;
case '*':
Expand All @@ -266,7 +266,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right = NULL;
current->left = NULL;
delete_tree(csound, tmp);
print_tree(csound, "X op 0 -> 0\n", current);
//print_tree(csound, "X op 0 -> 0\n", current);
break;
}
}
Expand All @@ -276,7 +276,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->left->value->value==0) ||
(current->left->type == NUMBER_TOKEN &&
current->left->value->fvalue==0)) {
print_tree(csound, "0 op X\n", current);
//print_tree(csound, "0 op X\n", current);
switch (current->type) {
case '+':
case '|':
Expand All @@ -285,7 +285,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->value = current->right->value;
current->left = current->right->left;
current->right = current->right->right;
print_tree(csound, "0 op X -> X\n", current);
//print_tree(csound, "0 op X -> X\n", current);
break;
case '*':
case '/':
Expand All @@ -298,7 +298,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right = NULL;
current->left = NULL;
delete_tree(csound, tmp);
print_tree(csound, "0 op X -> 0\n", current);
//print_tree(csound, "0 op X -> 0\n", current);
break;
}
}
Expand All @@ -308,7 +308,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right->value->value==1) ||
(current->right->type == NUMBER_TOKEN &&
current->right->value->fvalue==FL(1.0))) {
print_tree(csound, "X op 1\n", current);
//print_tree(csound, "X op 1\n", current);
switch (current->type) {
case '*':
case '/':
Expand All @@ -319,7 +319,7 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->right = current->left->right;
current->left = current->left->left;
csound->Free(csound, tmp);
print_tree(csound, "X op 1 -> X\n", current);
//print_tree(csound, "X op 1 -> X\n", current);
}
}
}
Expand All @@ -328,15 +328,15 @@ TREE* constant_fold(CSOUND *csound, TREE* root)
current->left->value->value==1) ||
(current->left->type == NUMBER_TOKEN &&
current->left->value->fvalue==FL(1.0))) {
print_tree(csound, "1 op X\n", current);
//print_tree(csound, "1 op X\n", current);
switch (current->type) {
case '*':
delete_tree(csound,current->left);
current->type = current->right->type;
current->value = current->right->value;
current->left = current->right->left;
current->right = current->right->right;
print_tree(csound, "1 op X -> X\n", current);
//print_tree(csound, "1 op X -> X\n", current);
break;
}
}
Expand Down

0 comments on commit 9b19ad4

Please sign in to comment.