vm/gc_info.cpp

   1 #include "master.hpp"
   2
   3 namespace factor {
   4
   5 cell gc_info::return_address_index(cell return_address) {
   6   uint32_t* return_address_array = return_addresses();
   7
   8   for (cell i = 0; i < return_address_count; i++) {
   9     if (return_address == return_address_array[i])
  10       return i;
  11   }
  12
  13   return (cell)-1;
  14 }
  15
  16 }