Commit 4cd57cfd authored by John van Groningen's avatar John van Groningen
Browse files

fix typo in name of function

parent 78e43bf1
...@@ -1933,7 +1933,7 @@ static void generate_code_for_tail_call_modulo_cons (NodeP node_p,NodeId node_de ...@@ -1933,7 +1933,7 @@ static void generate_code_for_tail_call_modulo_cons (NodeP node_p,NodeId node_de
} }
} }
static int is_tail_call_module_cons_node (NodeP node_p) static int is_tail_call_modulo_cons_node (NodeP node_p)
{ {
if (node_p->node_kind==NormalNode && node_p->node_symbol->symb_kind==definition){ if (node_p->node_kind==NormalNode && node_p->node_symbol->symb_kind==definition){
SymbDef sdef; SymbDef sdef;
...@@ -2456,7 +2456,7 @@ int CodeRhsNodeDefs ...@@ -2456,7 +2456,7 @@ int CodeRhsNodeDefs
if (arg_node_p->node_kind==FillUniqueNode) if (arg_node_p->node_kind==FillUniqueNode)
arg_node_p=arg_node_p->node_arguments->arg_node; arg_node_p=arg_node_p->node_arguments->arg_node;
if (is_tail_call_module_cons_node (arg_node_p) && (arg_node_p->node_symbol->symb_def->sdef_rule->rule_mark & RULE_TAIL_MODULO_CONS_ENTRY_MASK)){ if (is_tail_call_modulo_cons_node (arg_node_p) && (arg_node_p->node_symbol->symb_def->sdef_rule->rule_mark & RULE_TAIL_MODULO_CONS_ENTRY_MASK)){
arg_p2=arg_p; arg_p2=arg_p;
break; break;
} }
...@@ -2486,7 +2486,7 @@ int CodeRhsNodeDefs ...@@ -2486,7 +2486,7 @@ int CodeRhsNodeDefs
node_p=node_p->node_arguments->arg_node; node_p=node_p->node_arguments->arg_node;
} }
if (!(node_def_id->nid_mark & ON_A_CYCLE_MASK) && is_tail_call_module_cons_node (node_p) if (!(node_def_id->nid_mark & ON_A_CYCLE_MASK) && is_tail_call_modulo_cons_node (node_p)
&& (node_p->node_symbol->symb_def->sdef_rule->rule_mark & RULE_TAIL_MODULO_CONS_ENTRY_MASK)) && (node_p->node_symbol->symb_def->sdef_rule->rule_mark & RULE_TAIL_MODULO_CONS_ENTRY_MASK))
{ {
n_node_id_refs=node_def_id->nid_refcount; n_node_id_refs=node_def_id->nid_refcount;
...@@ -2843,7 +2843,7 @@ static int tail_call_modulo_cons_call (NodeP node_p,NodeDefP node_defs) ...@@ -2843,7 +2843,7 @@ static int tail_call_modulo_cons_call (NodeP node_p,NodeDefP node_defs)
if (arg_node_p->node_kind==FillUniqueNode) if (arg_node_p->node_kind==FillUniqueNode)
arg_node_p=arg_node_p->node_arguments->arg_node; arg_node_p=arg_node_p->node_arguments->arg_node;
if (is_tail_call_module_cons_node (arg_node_p)) if (is_tail_call_modulo_cons_node (arg_node_p))
return 1; return 1;
} }
...@@ -2865,7 +2865,7 @@ static int tail_call_modulo_cons_call (NodeP node_p,NodeDefP node_defs) ...@@ -2865,7 +2865,7 @@ static int tail_call_modulo_cons_call (NodeP node_p,NodeDefP node_defs)
if (node_def_node_p->node_kind==FillUniqueNode) if (node_def_node_p->node_kind==FillUniqueNode)
node_def_node_p=node_def_node_p->node_arguments->arg_node; node_def_node_p=node_def_node_p->node_arguments->arg_node;
if (!(node_def_id->nid_mark & ON_A_CYCLE_MASK) && is_tail_call_module_cons_node (node_def_node_p)){ if (!(node_def_id->nid_mark & ON_A_CYCLE_MASK) && is_tail_call_modulo_cons_node (node_def_node_p)){
int n_node_id_refs; int n_node_id_refs;
n_node_id_refs=node_def_id->nid_refcount; n_node_id_refs=node_def_id->nid_refcount;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment