factor/vm/gc_info.cpp

#include "master.hpp"

namespace factor {

cell gc_info::return_address_index(cell return_address) {
  uint32_t* return_address_array = return_addresses();

  for (cell i = 0; i < return_address_count; i++) {
    if (return_address == return_address_array[i])
      return i;
  }

  return (cell)-1;
}

}