vm/gc_info.cpp

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