mono/mini/aliasing.c

   1 /*
   2  * aliasing.c: Alias Analysis
   3  *
   4  * Author:
   5  *   Massimiliano Mantione (massi@ximian.com)
   6  *
   7  * (C) 2005 Novell, Inc.  http://www.novell.com
   8  */
   9 #include <string.h>
  10 #include <stdio.h>
  11
  12 #include <mono/metadata/debug-helpers.h>
  13 #include <mono/metadata/mempool.h>
  14 #include <mono/metadata/opcodes.h>
  15
  16 #include "aliasing.h"
  17
  18 #define MONO_APPLY_DEADCE_TO_SINGLE_METHOD 0
  19 #define DEBUG_DEADCE 0
  20
  21 #define DEBUG_ALIAS_ANALYSIS 0
  22
  23 #define TRACE_ALIAS_ANALYSIS (info->cfg->verbose_level > 2)
  24 #define DUMP_ALIAS_ANALYSIS (info->cfg->verbose_level > 4)
  25 #define FOLLOW_ALIAS_ANALYSIS (info->cfg->verbose_level > 5)
  26
  27 static const char *mono_aliasing_value_names[] = {
  28         "ANY",
  29         "NO_ALIAS",
  30         "LOCAL",
  31         "LOCAL_FIELD"
  32 };
  33
  34
  35 static const char *mono_stack_type_names[] = {
  36         "STACK_INV",
  37         "STACK_I4",
  38         "STACK_I8",
  39         "STACK_PTR",
  40         "STACK_R8",
  41         "STACK_MP",
  42         "STACK_OBJ",
  43         "STACK_VTYPE",
  44         "STACK_MAX"
  45 };
  46
  47 #define NO_VARIABLE_INDEX MONO_ALIASING_INVALID_VARIABLE_INDEX
  48
  49
  50 #define OP_IS_OUTARG(op) (((op)==OP_OUTARG)||((op)==OP_OUTARG_REG)||((op)==OP_OUTARG_IMM)||((op)==OP_OUTARG_R4)||((op)==OP_OUTARG_R8)||((op)==OP_OUTARG_VT))
  51 #define OP_IS_CALL(op) (((op)==CEE_CALLI)||((op)==CEE_CALL)||((op)==CEE_CALLVIRT)||(((op)>=OP_VOIDCALL)&&((op)<=OP_CALL_MEMBASE)))
  52 #define OP_IS_STORE(op) (((op)==CEE_STIND_REF)||((op)==CEE_STIND_I1)||((op)==CEE_STIND_I2)||((op)==CEE_STIND_I4)||((op)==CEE_STIND_I8)||((op)==CEE_STIND_R4)||((op)==CEE_STIND_R8)||((op)==CEE_STIND_I))
  53 #define OP_IS_LOAD(op) (((op)==CEE_LDIND_REF)||((op)==CEE_LDIND_I1)||((op)==CEE_LDIND_I2)||((op)==CEE_LDIND_I4)||((op)==CEE_LDIND_U1)||((op)==CEE_LDIND_U2)||((op)==CEE_LDIND_U4)||((op)==CEE_LDIND_I8)||((op)==CEE_LDIND_R4)||((op)==CEE_LDIND_R8)||((op)==CEE_LDIND_I))
  54 #define OP_IS_CONST(op) (((op)==OP_ICONST)||((op)==OP_I8CONST)||((op)==OP_R4CONST)||((op)==OP_R8CONST)||((op)==OP_AOTCONST))
  55 #define OP_IS_ICONV(op) (((op)==CEE_CONV_I4)||((op)==CEE_CONV_U4)||((op)==CEE_CONV_I8)||((op)==CEE_CONV_U8)||\
  56                 ((op)==CEE_CONV_OVF_I4_UN)||((op)==CEE_CONV_OVF_I8_UN)||((op)==CEE_CONV_OVF_U4_UN)||((op)==CEE_CONV_OVF_U8_UN)||\
  57                 ((op)==CEE_CONV_OVF_I4)||((op)==CEE_CONV_OVF_U4)||((op)==CEE_CONV_OVF_I8)||((op)==CEE_CONV_OVF_U8)||\
  58                 ((op)==OP_LCONV_TO_I8)||((op)==OP_LCONV_TO_OVF_I8)||((op)==OP_LCONV_TO_OVF_I8_UN)||\
  59                 ((op)==OP_LCONV_TO_U8)||((op)==OP_LCONV_TO_OVF_U8)||((op)==OP_LCONV_TO_OVF_U8_UN))
  60 #define OP_IS_PCONV(op) (((op)==CEE_CONV_OVF_I_UN)||((op)==CEE_CONV_OVF_U_UN)||\
  61                 ((op)==CEE_CONV_I)||((op)==CEE_CONV_U)||\
  62                 ((op)==CEE_CONV_OVF_I)||((op)==CEE_CONV_OVF_U)||\
  63                 ((op)==OP_LCONV_TO_I)||((op)==OP_LCONV_TO_OVF_I)||((op)==OP_LCONV_TO_OVF_I_UN)||\
  64                 ((op)==OP_LCONV_TO_U)||((op)==OP_LCONV_TO_OVF_U)||((op)==OP_LCONV_TO_OVF_U_UN))
  65 #define LOAD_OF_LOCAL_GIVES_POINTER(load,local) ((local->opcode == OP_LOCAL) && (((load)->type == STACK_MP) || ((load)->type == STACK_PTR) || ((local)->inst_vtype->type == MONO_TYPE_PTR)))
  66
  67
  68 /*
  69  * A struct representing the context of the traversal of a MonoInst tree.
  70  * Used so that "update_aliasing_information_on_inst" can understand what
  71  * its caller was doing, and expecially where the current value is going
  72  * to be stored (if it is an alias, we must track it).
  73  */
  74 typedef struct MonoAliasingInformationContext {
  75         MonoInst *inst;
  76         int current_subtree;
  77         MonoAliasValue subtree_aliases [2];
  78
  79         struct MonoAliasingInformationContext *father;
  80 } MonoAliasingInformationContext;
  81
  82
  83 static void
  84 print_alias_value (MonoAliasValue *alias_value) {
  85         printf ("[%s", mono_aliasing_value_names [alias_value->type]);
  86         if ((alias_value->type == MONO_ALIASING_TYPE_LOCAL) || (alias_value->type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
  87                 printf (":%d]", alias_value->variable_index);
  88         } else {
  89                 printf ("]");
  90         }
  91 }
  92
  93 static void
  94 print_ssaop_value (int ssaop_value) {
  95         printf ("[");
  96         if (ssaop_value & MONO_SSA_ADDRESS_TAKEN) printf ("I"); else printf (".");
  97         if (ssaop_value & MONO_SSA_LOAD) printf ("R"); else printf (".");
  98         if (ssaop_value & MONO_SSA_STORE) printf ("W"); else printf (".");
  99         printf ("]");
 100 }
 101
 102 static void
 103 print_aliasing_context (MonoAliasingInformationContext *context) {
 104         printf ("CONTEXT: left ");
 105         print_alias_value (&(context->subtree_aliases [0]));
 106         printf (", right ");
 107         print_alias_value (&(context->subtree_aliases [1]));
 108         if (context->father != NULL) {
 109                 printf (", father ");
 110                 print_alias_value (&(context->father->subtree_aliases [context->father->current_subtree]));
 111         }
 112         printf (", stack %s ", mono_stack_type_names [context->inst->type]);
 113         if (context->inst->ssa_op != MONO_SSA_NOP) {
 114                 print_ssaop_value (context->inst->ssa_op);
 115                 printf (" ");
 116         }
 117         printf ("in inst ");
 118         mono_print_tree_nl (context->inst);
 119 }
 120
 121 static void
 122 print_tree_node (MonoInst *tree) {
 123         if (!tree)
 124                 return;
 125
 126         printf (mono_inst_name (tree->opcode));
 127
 128         if (OP_IS_OUTARG (tree->opcode)) {
 129                 printf ("[OUT:%ld]", (long)tree->inst_c1);
 130         }
 131
 132         switch (tree->opcode) {
 133         case OP_ICONST:
 134                 printf ("[%d]", (int)tree->inst_c0);
 135                 break;
 136         case OP_I8CONST:
 137                 printf ("[%lld]", (long long)tree->inst_l);
 138                 break;
 139         case OP_R8CONST:
 140                 printf ("[%f]", *(double*)tree->inst_p0);
 141                 break;
 142         case OP_R4CONST:
 143                 printf ("[%f]", *(float*)tree->inst_p0);
 144                 break;
 145         case OP_ARG:
 146         case OP_LOCAL:
 147                 printf ("[%d]", (int)tree->inst_c0);
 148                 break;
 149         case OP_REGOFFSET:
 150                 if (tree->inst_offset < 0)
 151                         printf ("[-0x%x(%s)]", (int)(-tree->inst_offset), mono_arch_regname (tree->inst_basereg));
 152                 else
 153                         printf ("[0x%x(%s)]", (int)(tree->inst_offset), mono_arch_regname (tree->inst_basereg));
 154                 break;
 155         case OP_REGVAR:
 156                 printf ("[%s]", mono_arch_regname (tree->dreg));
 157                 break;
 158         case CEE_NEWARR:
 159                 printf ("[%s]",  tree->inst_newa_class->name);
 160                 break;
 161         case CEE_CALL:
 162         case CEE_CALLVIRT:
 163         case OP_FCALL:
 164         case OP_FCALLVIRT:
 165         case OP_LCALL:
 166         case OP_LCALLVIRT:
 167         case OP_VCALL:
 168         case OP_VCALLVIRT:
 169         case OP_VOIDCALL:
 170         case OP_VOIDCALLVIRT: {
 171                 MonoCallInst *call = (MonoCallInst*)tree;
 172                 if (call->method)
 173                         printf ("[%s]", call->method->name);
 174                 else if (call->fptr) {
 175                         MonoJitICallInfo *info = mono_find_jit_icall_by_addr (call->fptr);
 176                         if (info)
 177                                 printf ("[%s]", info->name);
 178                 }
 179                 printf ("[ARGS:%d]", call->signature->param_count);
 180                 break;
 181         }
 182         case OP_PHI: {
 183                 int i;
 184                 printf ("[%d (", (int)tree->inst_c0);
 185                 for (i = 0; i < tree->inst_phi_args [0]; i++) {
 186                         if (i)
 187                                 printf (", ");
 188                         printf ("%d", tree->inst_phi_args [i + 1]);
 189                 }
 190                 printf (")]");
 191                 break;
 192         }
 193         case OP_LOAD_MEMBASE:
 194         case OP_LOADI4_MEMBASE:
 195         case OP_LOADU4_MEMBASE:
 196         case OP_LOADU1_MEMBASE:
 197         case OP_LOADI1_MEMBASE:
 198         case OP_LOADU2_MEMBASE:
 199         case OP_LOADI2_MEMBASE:
 200                 printf ("[%s] <- [%s + 0x%x]", mono_arch_regname (tree->dreg), mono_arch_regname (tree->inst_basereg), (int)tree->inst_offset);
 201                 break;
 202         case CEE_BR:
 203         case OP_CALL_HANDLER:
 204                 printf ("[B%d]", tree->inst_target_bb->block_num);
 205                 break;
 206         case CEE_BNE_UN:
 207         case CEE_BEQ:
 208         case CEE_BLT:
 209         case CEE_BLT_UN:
 210         case CEE_BGT:
 211         case CEE_BGT_UN:
 212         case CEE_BGE:
 213         case CEE_BGE_UN:
 214         case CEE_BLE:
 215         case CEE_BLE_UN:
 216                 printf ("[B%dB%d]", tree->inst_true_bb->block_num, tree->inst_false_bb->block_num);
 217                 break;
 218         case OP_DUMMY_USE:
 219                 printf ("[%d]", (int)tree->inst_i0->inst_i0->inst_c0);
 220                 break;
 221         case OP_DUMMY_STORE:
 222                 printf ("[%d]", (int)tree->inst_i0->inst_c0);
 223                 break;
 224         default:
 225                 break;
 226         }
 227 }
 228
 229 static void
 230 print_variable_list (MonoLocalVariableList* variables) {
 231         printf ("{");
 232         while (variables != NULL) {
 233                 printf ("%d", variables->variable_index);
 234                 if (variables->next != NULL) {
 235                         printf (",");
 236                 }
 237                 variables = variables->next;
 238         }
 239         printf ("}");
 240 }
 241
 242 static void
 243 print_used_aliases(MonoInst *inst, MonoLocalVariableList* affected_variables) {
 244         if (inst->ssa_op != MONO_SSA_NOP) {
 245                 printf (" <");
 246                 if (inst->ssa_op & MONO_SSA_ADDRESS_TAKEN) printf ("I");
 247                 if (inst->ssa_op & MONO_SSA_LOAD) printf ("R");
 248                 if (inst->ssa_op & MONO_SSA_STORE) printf ("W");
 249                 if (inst->ssa_op != MONO_SSA_ADDRESS_TAKEN) {
 250                         print_variable_list (affected_variables);
 251                 } else {
 252                         switch (inst->inst_i0->opcode) {
 253                         case OP_LOCAL:
 254                         case OP_ARG:
 255                                 printf ("{%ld}", (long)inst->inst_i0->inst_c0);
 256                                 break;
 257                         case OP_RETARG:
 258                                 printf ("{RETARG}");
 259                                 break;
 260                         default:
 261                                 printf ("{ANY}");
 262                                 break;
 263                         }
 264                 }
 265                 printf (">");
 266         }
 267 }
 268
 269 static void
 270 print_tree_with_aliasing_information (MonoAliasingInformation *info, MonoInst *tree) {
 271         int arity;
 272         MonoLocalVariableList* affected_variables;
 273
 274         if (!tree) {
 275                 printf ("NULL-INST");
 276                 return;
 277         }
 278
 279         arity = mono_burg_arity [tree->opcode];
 280
 281         print_tree_node (tree);
 282
 283         if (OP_IS_CALL (tree->opcode) && arity) {
 284                 printf (" THIS:");
 285         }
 286
 287         if (arity) {
 288                 printf (" (");
 289                 print_tree_with_aliasing_information (info, tree->inst_i0);
 290                 if (arity > 1) {
 291                         printf (" ");
 292                         print_tree_with_aliasing_information (info, tree->inst_i1);
 293                 }
 294                 printf (")");
 295         }
 296
 297         affected_variables = mono_aliasing_get_affected_variables_for_inst_traversing_code (info, tree);
 298         print_used_aliases (tree, affected_variables);
 299 }
 300
 301 static void
 302 print_code_with_aliasing_information (MonoAliasingInformation *info) {
 303         char *name = mono_method_full_name (info->cfg->method, TRUE);
 304         int i;
 305
 306         printf ("ALIASING DATA START (METHOD %s)\n", name);
 307         printf ("ALIASED VARIABLES: ");
 308         print_variable_list (info->uncontrollably_aliased_variables);
 309         printf ("\n");
 310         for (i = 0; i < info->cfg->num_bblocks; i++) {
 311                 MonoAliasingInformationInBB *bb_info = &(info->bb [i]);
 312                 MonoAliasUsageInformation *use;
 313                 MonoInst *inst;
 314
 315                 printf ("CODE FOR BB %d\n", bb_info->bb->block_num);
 316                 mono_aliasing_initialize_code_traversal (info, bb_info->bb);
 317                 for (inst = bb_info->bb->code; inst != NULL; inst = inst->next) {
 318                         print_tree_with_aliasing_information (info, inst);
 319                         printf ("\n");
 320                 }
 321
 322                 printf ("USES FOR BB %d\n", bb_info->bb->block_num);
 323                 for (use = bb_info->potential_alias_uses; use != NULL; use = use->next) {
 324                         mono_print_tree (use->inst);
 325                         print_used_aliases (use->inst, use->affected_variables);
 326                         printf ("\n");
 327                 }
 328         }
 329         printf ("ALIASING DATA END (METHOD %s)\n", name);
 330         g_free (name);
 331 }
 332
 333
 334 #define APPEND_USE(info,bb_info,use) do {\
 335                 (use)->next = NULL;\
 336                 if ((info)->next_interesting_inst != NULL) {\
 337                         (info)->next_interesting_inst->next = (use);\
 338                 } else {\
 339                         (bb_info)->potential_alias_uses = (use);\
 340                 }\
 341                 (info)->next_interesting_inst = (use);\
 342         } while (0)
 343
 344 #define ADD_BAD_ALIAS(info,vi) do {\
 345                 if (FOLLOW_ALIAS_ANALYSIS) {\
 346                         printf ("ADDING BAD ALIAS FOR VARIABLE %d\n", vi);\
 347                 }\
 348                 if (! ((info)->variable_is_uncontrollably_aliased [(vi)])) {\
 349                         MonoLocalVariableList *variable = mono_mempool_alloc ((info)->mempool, sizeof (MonoLocalVariableList));\
 350                         variable->variable_index = (vi);\
 351                         variable->next = (info)->uncontrollably_aliased_variables;\
 352                         (info)->uncontrollably_aliased_variables = variable;\
 353                         (info)->variable_is_uncontrollably_aliased [(vi)] = TRUE;\
 354                 }\
 355         } while (0)
 356
 357 #define ADD_ARGUMGENT(info,inst,alias) do {\
 358                 if ((info)->number_of_arguments == (info)->arguments_capacity) {\
 359                         MonoInst **new_arguments = mono_mempool_alloc ((info)->mempool, sizeof (MonoInst*) * ((info)->arguments_capacity * 2));\
 360                         MonoAliasValue *new_arguments_aliases = mono_mempool_alloc ((info)->mempool, sizeof (MonoAliasValue) * ((info)->arguments_capacity * 2));\
 361                         memcpy (new_arguments, (info)->arguments, sizeof (MonoInst*) * ((info)->arguments_capacity));\
 362                         memcpy (new_arguments_aliases, (info)->arguments_aliases, sizeof (MonoAliasValue) * ((info)->arguments_capacity));\
 363                         (info)->arguments = new_arguments;\
 364                         (info)->arguments_aliases = new_arguments_aliases;\
 365                         (info)->arguments_capacity = (info)->arguments_capacity * 2;\
 366                 }\
 367                 (info)->arguments [(info)->number_of_arguments] = (inst);\
 368                 (info)->arguments_aliases [(info)->number_of_arguments] = (alias);\
 369                 (info)->number_of_arguments ++;\
 370         } while (0)
 371
 372 #define ADD_UNIQUE_VARIABLE(info,list,vi) do {\
 373                 MonoLocalVariableList* target_element = (list);\
 374                 while ((target_element != NULL) && (target_element->variable_index != (vi))) {\
 375                         target_element = target_element->next;\
 376                 }\
 377                 if (target_element == NULL) {\
 378                         target_element = mono_mempool_alloc ((info)->mempool, sizeof (MonoLocalVariableList));\
 379                         target_element->variable_index = (vi);\
 380                         target_element->next = (list);\
 381                         (list) = target_element;\
 382                 }\
 383         } while (0)
 384
 385 static void
 386 update_aliasing_information_on_inst (MonoAliasingInformation *info, MonoAliasingInformationInBB *bb_info, MonoInst *inst, MonoAliasingInformationContext *father_context) {
 387         MonoAliasingInformationContext context;
 388         MonoAliasValue *father_alias;
 389
 390         context.inst = inst;
 391         context.father = father_context;
 392         if (father_context != NULL) {
 393                 father_alias = &(father_context->subtree_aliases [father_context->current_subtree]);
 394         } else {
 395                 father_alias = NULL;
 396         }
 397
 398         if (mono_burg_arity [inst->opcode]) {
 399                 context.current_subtree = 0;
 400                 context.subtree_aliases [0].type = MONO_ALIASING_TYPE_ANY;
 401                 context.subtree_aliases [0].variable_index = NO_VARIABLE_INDEX;
 402                 update_aliasing_information_on_inst (info, bb_info, inst->inst_i0, &context);
 403
 404                 if (mono_burg_arity [inst->opcode] > 1) {
 405                         context.current_subtree = 1;
 406                         context.subtree_aliases [1].type = MONO_ALIASING_TYPE_ANY;
 407                         context.subtree_aliases [1].variable_index = NO_VARIABLE_INDEX;
 408                         update_aliasing_information_on_inst (info, bb_info, inst->inst_i1, &context);
 409                 } else {
 410                         context.subtree_aliases [1].type = MONO_ALIASING_TYPE_NO_ALIAS;
 411                 }
 412         } else {
 413                 context.subtree_aliases [0].type = MONO_ALIASING_TYPE_NO_ALIAS;
 414                 context.subtree_aliases [1].type = MONO_ALIASING_TYPE_NO_ALIAS;
 415         }
 416
 417         if (OP_IS_CONST (inst->opcode)) {
 418                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 419         } else if (inst->ssa_op == MONO_SSA_ADDRESS_TAKEN) {
 420                 MonoInst *local = inst->inst_i0;
 421                 if ((local->opcode == OP_LOCAL) || (local->opcode == OP_ARG)) {
 422                         gssize variable_index = local->inst_c0;
 423                         father_alias->type = MONO_ALIASING_TYPE_LOCAL;
 424                         father_alias->variable_index = variable_index;
 425                 } else if (local->opcode == OP_RETARG) {
 426                         father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 427                 } else {
 428                         father_alias->type = MONO_ALIASING_TYPE_ANY;
 429                 }
 430         } else if (inst->ssa_op == MONO_SSA_LOAD) {
 431                 MonoInst *local = inst->inst_i0;
 432
 433                 if (LOAD_OF_LOCAL_GIVES_POINTER (inst,local)) {
 434                         father_alias->type = MONO_ALIASING_TYPE_ANY;
 435                 } else {
 436                         father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 437                 }
 438         } else if (OP_IS_LOAD (inst->opcode) || (inst->opcode == CEE_LDOBJ)) {
 439                 MonoInst *address = inst->inst_i0;
 440                 MonoLocalVariableList *affected_variables = NULL;
 441
 442                 if ((address->opcode == OP_LOCAL) || (address->opcode == OP_ARG)) {
 443                         gssize variable_index = address->inst_c0;
 444                         MonoInst *local = info->cfg->varinfo [variable_index];
 445
 446                         affected_variables = &(info->variables [variable_index]);
 447                         if (LOAD_OF_LOCAL_GIVES_POINTER (inst,local)) {
 448                                 father_alias->type = MONO_ALIASING_TYPE_ANY;
 449                         } else {
 450                                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 451                         }
 452                 } else if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) {
 453                         gssize variable_index = context.subtree_aliases [0].variable_index;
 454                         MonoInst *local = info->cfg->varinfo [variable_index];
 455
 456                         affected_variables = &(info->variables [variable_index]);;
 457                         if (LOAD_OF_LOCAL_GIVES_POINTER (inst,local)) {
 458                                 father_alias->type = MONO_ALIASING_TYPE_ANY;
 459                         } else {
 460                                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 461                         }
 462                 } else if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD) {
 463                         gssize variable_index = context.subtree_aliases [0].variable_index;
 464
 465                         affected_variables = &(info->variables [variable_index]);;
 466                         if (inst->type == STACK_MP) {
 467                                 father_alias->type = MONO_ALIASING_TYPE_ANY;
 468                         } else {
 469                                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 470                         }
 471                 } else {
 472                         if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) {
 473                                 affected_variables = info->temporary_uncontrollably_aliased_variables;
 474                         }
 475                         if ((inst->type == STACK_MP) && (inst->inst_i0->opcode != OP_OBJADDR)) {
 476                                 father_alias->type = MONO_ALIASING_TYPE_ANY;
 477                         } else {
 478                                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 479                         }
 480                 }
 481
 482                 if (affected_variables != NULL) {
 483                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 484
 485                         inst->ssa_op = MONO_SSA_INDIRECT_LOAD;
 486                         use->inst = inst;
 487                         use->affected_variables = affected_variables;
 488                         APPEND_USE (info,bb_info,use);
 489                 }
 490         } else if (inst->ssa_op == MONO_SSA_STORE) {
 491                 if (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL) {
 492                         ADD_BAD_ALIAS (info, context.subtree_aliases [1].variable_index);
 493                 }
 494         } else if (OP_IS_STORE (inst->opcode) || (inst->opcode == CEE_STOBJ)) {
 495                 MonoInst *address = inst->inst_i0;
 496                 MonoLocalVariableList *affected_variables = NULL;
 497
 498                 if (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL) {
 499                         ADD_BAD_ALIAS (info, context.subtree_aliases [1].variable_index);
 500                 }
 501
 502                 if ((address->opcode == OP_LOCAL) || (address->opcode == OP_ARG)) {
 503                         gssize variable_index = address->inst_c0;
 504
 505                         affected_variables = &(info->variables [variable_index]);
 506                 } else if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 507                         gssize variable_index = context.subtree_aliases [0].variable_index;
 508
 509                         affected_variables = &(info->variables [variable_index]);;
 510                 } else if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) {
 511                         affected_variables = info->temporary_uncontrollably_aliased_variables;
 512                 }
 513
 514                 if (affected_variables != NULL) {
 515                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 516
 517                         inst->ssa_op = MONO_SSA_INDIRECT_STORE;
 518                         use->inst = inst;
 519                         use->affected_variables = affected_variables;
 520                         APPEND_USE (info,bb_info,use);
 521                 }
 522         } else if (OP_IS_OUTARG (inst->opcode)) {
 523                 ADD_ARGUMGENT (info,inst,context.subtree_aliases [0]);
 524         } else if (OP_IS_CALL (inst->opcode)) {
 525                 MonoCallInst *call = (MonoCallInst *) inst;
 526                 MonoMethodSignature *sig = call->signature;
 527                 gboolean call_has_untracked_pointer_argument = FALSE;
 528                 MonoLocalVariableList *alias_arguments = NULL;
 529                 int i;
 530
 531                 if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 532                         ADD_UNIQUE_VARIABLE (info,alias_arguments,context.subtree_aliases [0].variable_index);
 533                 } else if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) {
 534                         call_has_untracked_pointer_argument = TRUE;
 535                 }
 536
 537                 if (FOLLOW_ALIAS_ANALYSIS) {
 538                         printf ("CALL, scanning %d arguments\n", info->number_of_arguments);
 539                 }
 540                 for (i = 0; i < info->number_of_arguments; i++) {
 541                         //FIXME
 542                         //MonoInst *argument = info->arguments [i];
 543                         MonoAliasValue arguments_alias = info->arguments_aliases [i];
 544
 545                         if ((arguments_alias.type == MONO_ALIASING_TYPE_LOCAL) || (arguments_alias.type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 546                                 if (FOLLOW_ALIAS_ANALYSIS) {
 547                                         printf ("CALL, argument %d passes the address of local %d\n", i, arguments_alias.variable_index);
 548                                 }
 549                                 ADD_UNIQUE_VARIABLE (info,alias_arguments,arguments_alias.variable_index);
 550                                 //FIXME
 551                                 #if 0
 552                                 if (((arguments_alias.type == MONO_ALIASING_TYPE_LOCAL)) && (argument->inst_c1 > 0)) {
 553                                         int argument_index = argument->inst_c1 - 1;
 554                                         if (argument_index < sig->param_count) {
 555                                                 if (! (sig->params [argument_index]->byref)) {
 556                                                         ADD_BAD_ALIAS (info, arguments_alias.variable_index);
 557                                                 }
 558                                         } else {
 559                                                 printf ("*** ERROR: argument %d of %d: ", argument_index, sig->param_count);
 560                                                 mono_print_tree_nl (argument);
 561                                         }
 562                                 }
 563                                 #endif
 564                         } else if (arguments_alias.type == MONO_ALIASING_TYPE_ANY) {
 565                                 if (FOLLOW_ALIAS_ANALYSIS) {
 566                                         printf ("CALL, argument %d could pass the address of any local\n", i);
 567                                 }
 568                                 call_has_untracked_pointer_argument = TRUE;
 569                         }
 570                         //FIXME
 571                         #if 0
 572                         else if (argument->inst_c1 > 0) {
 573                                 int argument_index = argument->inst_c1 - 1;
 574                                 if (argument_index < sig->param_count) {
 575                                         if (sig->params [argument_index]->type == MONO_TYPE_PTR) {
 576                                                 call_has_untracked_pointer_argument = TRUE;
 577                                         }
 578                                 } else {
 579                                         printf ("*** ERROR: argument %d of %d: ", argument_index, sig->param_count);
 580                                         mono_print_tree_nl (argument);
 581                                 }
 582                         }
 583                         #endif
 584                 }
 585
 586                 if ((alias_arguments != NULL) || call_has_untracked_pointer_argument) {
 587                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 588
 589                         inst->ssa_op = MONO_SSA_INDIRECT_LOAD_STORE;
 590                         use->inst = inst;
 591                         use->affected_variables = alias_arguments;
 592                         if (call_has_untracked_pointer_argument) {
 593                                 MonoLocalVariableList *untracked_element  = mono_mempool_alloc ((info)->mempool, sizeof (MonoLocalVariableList));
 594                                 untracked_element->variable_index = NO_VARIABLE_INDEX;
 595                                 untracked_element->next = use->affected_variables;
 596                                 use->affected_variables = untracked_element;
 597                         }
 598                         APPEND_USE (info,bb_info,use);
 599                 }
 600
 601                 if ((sig->ret != NULL) && (father_alias != NULL)) {
 602                         if (sig->ret->type != MONO_TYPE_PTR) {
 603                                 father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 604                         } else {
 605                                 father_alias->type = MONO_ALIASING_TYPE_ANY;
 606                         }
 607                 }
 608
 609                 info->number_of_arguments = 0;
 610         } else if ((inst->opcode == CEE_ADD) || (inst->opcode == OP_LADD)){
 611                 if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 612                         int variable_index = context.subtree_aliases [0].variable_index;
 613                         //ADD_BAD_ALIAS (info, variable_index);
 614                         father_alias->type = MONO_ALIASING_TYPE_LOCAL_FIELD;
 615                         father_alias->variable_index = variable_index;
 616                 } else if ((context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 617                         int variable_index = context.subtree_aliases [1].variable_index;
 618                         //ADD_BAD_ALIAS (info, variable_index);
 619                         father_alias->type = MONO_ALIASING_TYPE_LOCAL_FIELD;
 620                         father_alias->variable_index = variable_index;
 621                 } else if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) || (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_ANY)) {
 622                         father_alias->type = MONO_ALIASING_TYPE_ANY;
 623                 } else {
 624                         father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 625                 }
 626         } else if ((inst->opcode == OP_MEMCPY) || (inst->opcode == OP_MEMSET)) {
 627                 if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 628                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 629
 630                         inst->ssa_op = MONO_SSA_INDIRECT_STORE;
 631                         use->inst = inst;
 632                         use->affected_variables = &(info->variables [context.subtree_aliases [0].variable_index]);
 633                         APPEND_USE (info,bb_info,use);
 634                 } else if (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) {
 635                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 636
 637                         inst->ssa_op = MONO_SSA_INDIRECT_STORE;
 638                         use->inst = inst;
 639                         use->affected_variables = info->temporary_uncontrollably_aliased_variables;
 640                         APPEND_USE (info,bb_info,use);
 641                 }
 642         } else if ((inst->opcode == OP_UNBOXCAST) || OP_IS_PCONV (inst->opcode) || OP_IS_ICONV (inst->opcode)) {
 643                 father_alias->type = context.subtree_aliases [0].type;
 644                 father_alias->variable_index = context.subtree_aliases [0].variable_index;
 645         } else if ((inst->opcode == CEE_LDELEMA) || (inst->opcode == OP_COMPARE) || (inst->opcode == CEE_SWITCH)) {
 646                 if (father_alias != NULL) {
 647                         father_alias->type = MONO_ALIASING_TYPE_NO_ALIAS;
 648                 }
 649         } else {
 650                 MonoAliasType father_type = MONO_ALIASING_TYPE_NO_ALIAS;
 651                 if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [0].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 652                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 653
 654                         inst->ssa_op = MONO_SSA_INDIRECT_LOAD_STORE;
 655                         use->inst = inst;
 656                         use->affected_variables = &(info->variables [context.subtree_aliases [0].variable_index]);
 657                         APPEND_USE (info, bb_info, use);
 658                         ADD_BAD_ALIAS (info, context.subtree_aliases [0].variable_index);
 659                 }
 660                 if ((context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL) || (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_LOCAL_FIELD)) {
 661                         MonoAliasUsageInformation *use = mono_mempool_alloc (info->mempool, sizeof (MonoAliasUsageInformation));
 662
 663                         inst->ssa_op = MONO_SSA_INDIRECT_LOAD_STORE;
 664                         use->inst = inst;
 665                         use->affected_variables = &(info->variables [context.subtree_aliases [1].variable_index]);
 666                         APPEND_USE (info, bb_info, use);
 667                         ADD_BAD_ALIAS (info, context.subtree_aliases [1].variable_index);
 668                 }
 669                 if (father_alias != NULL) {
 670                         if ((context.subtree_aliases [0].type == MONO_ALIASING_TYPE_ANY) || (context.subtree_aliases [1].type == MONO_ALIASING_TYPE_ANY)) {
 671                                 father_type = MONO_ALIASING_TYPE_ANY;
 672                         }
 673                         father_alias->type = father_type;
 674                 }
 675         }
 676
 677         if (FOLLOW_ALIAS_ANALYSIS) {
 678                 print_aliasing_context (&context);
 679         }
 680 }
 681
 682
 683
 684 /**
 685  * mono_build_aliasing_information:
 686  * @cfg: Control Flow Graph
 687  *
 688  * Builds the aliasing information in a cfg.
 689  * After this has run, all MonoInst.ssa_op fields will be properly
 690  * set (it will use the MONO_SSA_ADDRESS_TAKEN, MONO_SSA_LOAD and
 691  * MONO_SSA_STORE values as a starting point).
 692  */
 693 MonoAliasingInformation*
 694 mono_build_aliasing_information (MonoCompile *cfg) {
 695         MonoMemPool *pool = mono_mempool_new ();
 696         MonoAliasingInformation *info = mono_mempool_alloc (pool, sizeof (MonoAliasingInformation));
 697         int i;
 698 #if (DEBUG_ALIAS_ANALYSIS)
 699         int verbose_level = cfg->verbose_level;
 700         cfg->verbose_level = 7;
 701 #endif
 702
 703         info->mempool = pool;
 704         info->cfg = cfg;
 705         info->bb = mono_mempool_alloc (pool, sizeof (MonoAliasingInformationInBB) * cfg->num_bblocks);
 706         info->uncontrollably_aliased_variables = NULL;
 707         info->next_interesting_inst = NULL;
 708         info->variables = mono_mempool_alloc (pool, sizeof (MonoLocalVariableList) * cfg->num_varinfo);
 709         info->variable_is_uncontrollably_aliased = mono_mempool_alloc (pool, sizeof (gboolean) * cfg->num_varinfo);
 710         for (i = 0; i < cfg->num_varinfo; i++) {
 711                 info->variables [i].next = NULL;
 712                 info->variables [i].variable_index = i;
 713                 info->variable_is_uncontrollably_aliased [i] = FALSE;
 714         }
 715         info->temporary_uncontrollably_aliased_variables = mono_mempool_alloc (pool, sizeof (MonoLocalVariableList));
 716         info->temporary_uncontrollably_aliased_variables->next = NULL;
 717         info->temporary_uncontrollably_aliased_variables->variable_index = NO_VARIABLE_INDEX;
 718         info->arguments = mono_mempool_alloc (pool, sizeof (MonoInst*) * 16);
 719         info->arguments_aliases = mono_mempool_alloc (pool, sizeof (MonoAliasValue) * 16);
 720         info->arguments_capacity = 16;
 721         info->number_of_arguments = 0;
 722
 723         for (i = 0; i < cfg->num_bblocks; i++) {
 724                 MonoBasicBlock *bb = cfg->bblocks [i];
 725                 MonoAliasingInformationInBB *bb_info = &(info->bb [i]);
 726                 MonoInst *inst;
 727
 728                 if (FOLLOW_ALIAS_ANALYSIS) {
 729                         printf ("TRAVERSING BB %d\n", bb->block_num);
 730                 }
 731
 732                 bb_info->bb = bb;
 733                 bb_info->potential_alias_uses = NULL;
 734                 info->next_interesting_inst = NULL;
 735
 736                 for (inst = bb->code; inst != NULL; inst = inst->next) {
 737                         if (FOLLOW_ALIAS_ANALYSIS) {
 738                                 printf ("TRAVERSING INST: ");
 739                                 mono_print_tree_nl (inst);
 740                         }
 741                         update_aliasing_information_on_inst (info, bb_info, inst, NULL);
 742                 }
 743
 744                 g_assert (info->number_of_arguments == 0);
 745         }
 746
 747         //FIXME
 748         //#if 0
 749         for (i = 0; i < cfg->num_bblocks; i++) {
 750                 MonoAliasingInformationInBB *bb_info = &(info->bb [i]);
 751                 MonoAliasUsageInformation *use;
 752
 753                 for (use = bb_info->potential_alias_uses; use != NULL; use = use->next) {
 754                         if ((use->affected_variables != NULL) && (use->affected_variables->variable_index == NO_VARIABLE_INDEX)) {
 755                                 if (use->affected_variables->next == NULL) {
 756                                         use->affected_variables = info->uncontrollably_aliased_variables;
 757                                 } else {
 758                                         MonoLocalVariableList *last = use->affected_variables;
 759                                         while (last->next != NULL) {
 760                                                 while (last->next && info->variable_is_uncontrollably_aliased [last->next->variable_index]) {
 761                                                         last->next = last->next->next;
 762                                                 }
 763                                                 if (last->next != NULL) {
 764                                                         last = last->next;
 765                                                 }
 766                                         }
 767                                         if (last->variable_index != NO_VARIABLE_INDEX) {
 768                                                 use->affected_variables = use->affected_variables->next;
 769                                                 last->next = info->uncontrollably_aliased_variables;
 770                                         } else {
 771                                                 use->affected_variables = info->uncontrollably_aliased_variables;
 772                                         }
 773                                 }
 774                         }
 775                 }
 776         }
 777         //#endif
 778
 779         if (DUMP_ALIAS_ANALYSIS) {
 780                 print_code_with_aliasing_information (info);
 781         }
 782
 783 #if (DEBUG_ALIAS_ANALYSIS)
 784         cfg->verbose_level = verbose_level;
 785 #endif
 786
 787         return info;
 788 }
 789
 790
 791 void
 792 mono_destroy_aliasing_information (MonoAliasingInformation *info) {
 793         mono_mempool_destroy (info->mempool);
 794 }
 795
 796 void
 797 mono_aliasing_initialize_code_traversal (MonoAliasingInformation *info, MonoBasicBlock *bb) {
 798         info->next_interesting_inst = info->bb [bb->dfn].potential_alias_uses;
 799 }
 800
 801 MonoLocalVariableList*
 802 mono_aliasing_get_affected_variables_for_inst_traversing_code (MonoAliasingInformation *info, MonoInst *inst) {
 803         if ((inst->ssa_op == MONO_SSA_LOAD) || (inst->ssa_op == MONO_SSA_STORE)) {
 804                 return &(info->variables [inst->inst_i0->inst_c0]);
 805         } else if (info->next_interesting_inst != NULL) {
 806                 if (inst == info->next_interesting_inst->inst) {
 807                         MonoLocalVariableList *result = info->next_interesting_inst->affected_variables;
 808                         info->next_interesting_inst = info->next_interesting_inst->next;
 809                         return result;
 810                 } else if (inst->ssa_op != MONO_SSA_NOP) {
 811                         if (inst->ssa_op == MONO_SSA_ADDRESS_TAKEN) {
 812                                 return NULL;
 813                         } else {
 814                                 printf ("ERROR: instruction not found '");
 815                                 //print_tree_with_aliasing_information (info, inst);
 816                                 mono_print_tree (inst);
 817                                 printf ("'\n");
 818                                 //g_assert_not_reached ();
 819                                 return NULL;
 820                         }
 821                 } else {
 822                         return NULL;
 823                 }
 824         } else {
 825                 return NULL;
 826         }
 827 }
 828
 829 static MonoLocalVariableList*
 830 mono_aliasing_get_affected_variables_for_inst_in_bb (MonoAliasingInformation *info, MonoInst *inst, MonoBasicBlock *bb) {
 831         MonoAliasUsageInformation *use;
 832
 833         for (use = info->bb [bb->dfn].potential_alias_uses; use != NULL; use = use->next) {
 834                 if (use->inst == inst) {
 835                         return use->affected_variables;
 836                 }
 837         }
 838         g_assert_not_reached ();
 839         return NULL;
 840 }
 841
 842 MonoLocalVariableList*
 843 mono_aliasing_get_affected_variables_for_inst (MonoAliasingInformation *info, MonoInst *inst) {
 844         int i;
 845
 846         for (i = 0; i < info->cfg->num_bblocks; i++) {
 847                 MonoAliasingInformationInBB *bb_info = &(info->bb [i]);
 848                 MonoAliasUsageInformation *use;
 849
 850                 for (use = info->bb [bb_info->bb->dfn].potential_alias_uses; use != NULL; use = use->next) {
 851                         if (use->inst == inst) {
 852                                 return use->affected_variables;
 853                         }
 854                 }
 855         }
 856         g_assert_not_reached ();
 857         return NULL;
 858 }
 859
 860 #if (MONO_APPLY_DEADCE_TO_SINGLE_METHOD)
 861 static char*
 862 mono_deadce_method_name = NULL;
 863 static gboolean check_deadce_method_name (MonoCompile *cfg) {
 864         gboolean result;
 865         if (mono_deadce_method_name == NULL) {
 866                 mono_deadce_method_name = getenv ("MONO_DEADCE_METHOD_NAME");
 867         }
 868         if (mono_deadce_method_name != NULL) {
 869                 char *method_name = mono_method_full_name (cfg->method, TRUE);
 870                 if (strstr (method_name, mono_deadce_method_name) != NULL) {
 871                         result = TRUE;
 872                 } else {
 873                         result = FALSE;
 874                 }
 875                 g_free (method_name);
 876         } else {
 877                 result = TRUE;
 878         }
 879         return result;
 880 }
 881 #endif
 882
 883
 884
 885 #if (DEBUG_DEADCE)
 886 #define LOG_DEADCE (info->cfg->verbose_level > 0)
 887 #else
 888 #define LOG_DEADCE (info->cfg->verbose_level > 4)
 889 #endif
 890
 891 static gboolean
 892 mono_aliasing_deadce_on_inst (MonoAliasingInformation *info, MonoInst **possibly_dead_assignments, MonoInst *inst) {
 893         int arity;
 894         gboolean has_side_effects;
 895         MonoLocalVariableList *affected_variables;
 896
 897         arity = mono_burg_arity [inst->opcode];
 898
 899         switch (inst->opcode) {
 900 #define OPDEF(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) case a1:
 901 #include "simple-cee-ops.h"
 902 #undef OPDEF
 903 #define MINI_OP(a1,a2) case a1:
 904 #include "simple-mini-ops.h"
 905 #undef MINI_OP
 906                 has_side_effects = FALSE;
 907                 break;
 908         default:
 909                 has_side_effects = TRUE;
 910         }
 911
 912         if (arity) {
 913                 if (mono_aliasing_deadce_on_inst (info, possibly_dead_assignments, inst->inst_i0)) {
 914                         has_side_effects = TRUE;
 915                 }
 916                 if (arity > 1) {
 917                         if (mono_aliasing_deadce_on_inst (info, possibly_dead_assignments, inst->inst_i1)) {
 918                                 has_side_effects = TRUE;
 919                         }
 920
 921                 }
 922         }
 923
 924         affected_variables = mono_aliasing_get_affected_variables_for_inst_traversing_code (info, inst);
 925
 926         if (affected_variables != NULL) {
 927                 if (inst->ssa_op & MONO_SSA_LOAD) {
 928                         MonoLocalVariableList *affected_variable;
 929                         for (affected_variable = affected_variables; affected_variable != NULL; affected_variable = affected_variable->next) {
 930                                 if (LOG_DEADCE) {
 931                                         printf ("CLEARING slot %d at inst ", affected_variable->variable_index);
 932                                         mono_print_tree_nl (inst);
 933                                 }
 934                                 possibly_dead_assignments [affected_variable->variable_index] = NULL;
 935                         }
 936                 }
 937                 if (inst->ssa_op & MONO_SSA_STORE) {
 938                         MonoLocalVariableList *affected_variable;
 939                         for (affected_variable = affected_variables; affected_variable != NULL; affected_variable = affected_variable->next) {
 940                                 if (possibly_dead_assignments [affected_variable->variable_index] != NULL) {
 941                                         if (LOG_DEADCE) {
 942                                                 printf ("KILLING slot %d at inst ", affected_variable->variable_index);
 943                                                 mono_print_tree_nl (inst);
 944                                         }
 945                                         possibly_dead_assignments [affected_variable->variable_index]->opcode = CEE_NOP;
 946                                         possibly_dead_assignments [affected_variable->variable_index]->ssa_op = MONO_SSA_NOP;
 947                                         possibly_dead_assignments [affected_variable->variable_index] = NULL;
 948                                 }
 949                         }
 950
 951                         //printf ("FAST DEADCE TOTAL LOCAL\n");
 952                 }
 953
 954         }
 955
 956         if ((! has_side_effects) && (inst->ssa_op == MONO_SSA_STORE)) {
 957                 if (LOG_DEADCE) {
 958                         printf ("FILLING slot %d with inst ", (int)inst->inst_i0->inst_c0);
 959                         mono_print_tree_nl (inst);
 960                 }
 961                 possibly_dead_assignments [inst->inst_i0->inst_c0] = inst;
 962         }
 963
 964         return has_side_effects;
 965 }
 966
 967
 968 void
 969 mono_aliasing_deadce (MonoAliasingInformation *info) {
 970         MonoCompile *cfg;
 971         MonoInst **possibly_dead_assignments;
 972         int i;
 973
 974         cfg = info->cfg;
 975
 976         possibly_dead_assignments = alloca (cfg->num_varinfo * sizeof (MonoInst*));
 977
 978         if (LOG_DEADCE) {
 979                 printf ("BEFORE DEADCE START\n");
 980                 mono_print_code (cfg);
 981                 printf ("BEFORE DEADCE END\n");
 982         }
 983
 984 #if (MONO_APPLY_DEADCE_TO_SINGLE_METHOD)
 985         if (! check_deadce_method_name (cfg)) {
 986                 if (LOG_DEADCE) {
 987                         printf ("DEADCE disabled setting MONO_DEADCE_METHOD_NAME\n");
 988                 }
 989                 return;
 990         }
 991 #endif
 992
 993         for (i = 0; i < cfg->num_bblocks; i++) {
 994                 MonoBasicBlock *bb;
 995                 MonoInst *inst;
 996                 int variable_index;
 997
 998                 bb = cfg->bblocks [i];
 999                 memset (possibly_dead_assignments, 0, cfg->num_varinfo * sizeof (MonoInst*));
1000                 mono_aliasing_initialize_code_traversal (info, bb);
1001
1002                 if (LOG_DEADCE) {
1003                         printf ("Working on BB %d\n", bb->block_num);
1004                 }
1005
1006                 for (inst = bb->code; inst != NULL; inst = inst->next) {
1007                         mono_aliasing_deadce_on_inst (info, possibly_dead_assignments, inst);
1008                         if (inst->opcode == CEE_JMP) {
1009                                 /* Keep arguments live! */
1010                                 for (variable_index = 0; variable_index < cfg->num_varinfo; variable_index++) {
1011                                         if (cfg->varinfo [variable_index]->opcode == OP_ARG) {
1012                                                 if (LOG_DEADCE) {
1013                                                         printf ("FINALLY CLEARING slot %d (JMP), inst was ", variable_index);
1014                                                         mono_print_tree_nl (possibly_dead_assignments [variable_index]);
1015                                                 }
1016                                                 possibly_dead_assignments [variable_index] = NULL;
1017                                         }
1018                                 }
1019                         }
1020                 }
1021
1022                 for (variable_index = 0; variable_index < cfg->num_varinfo; variable_index++) {
1023                         if ((possibly_dead_assignments [variable_index] != NULL) && (! mono_bitset_test (bb->live_out_set, variable_index))) {
1024                                 if (LOG_DEADCE) {
1025                                         printf ("FINALLY KILLING slot %d, inst was ", variable_index);
1026                                         mono_print_tree_nl (possibly_dead_assignments [variable_index]);
1027                                 }
1028
1029                                 //printf ("FAST DEADCE DEAD LOCAL\n");
1030
1031                                 possibly_dead_assignments [variable_index]->opcode = CEE_NOP;
1032                                 possibly_dead_assignments [variable_index]->ssa_op = MONO_SSA_NOP;
1033                         }
1034                 }
1035         }
1036
1037         if (LOG_DEADCE) {
1038                 printf ("AFTER DEADCE START\n");
1039                 mono_print_code (cfg);
1040                 printf ("AFTER DEADCE END\n");
1041         }
1042 }