void VM_Operation::set_calling_thread(Thread* thread, ThreadPriority priority) {

  {- -------------------------------------------
  (1) _calling_thread フィールド, 及び _priority フィールドに
      引数で指定された値をセット.
      ---------------------------------------- -}

      _calling_thread = thread;
      assert(MinPriority <= priority && priority <= MaxPriority, "sanity check");
      _priority = priority;
    }