factor/vm/code_heap.hpp

namespace factor {

#if defined(WINDOWS) && defined(FACTOR_64)
const cell seh_area_size = 1024;
#else
const cell seh_area_size = 0;
#endif

struct code_heap {
  /* The actual memory area */
  segment* seg;

  /* Memory area reserved for safepoint guard page */
  void* safepoint_page;

  /* Memory area reserved for SEH. Only used on Windows */
  char* seh_area;

  /* Memory allocator */
  free_list_allocator<code_block>* allocator;

  std::set<cell> all_blocks;

  /* Keys are blocks which need to be initialized by initialize_code_block().
     Values are literal tables. Literal table arrays are GC roots until the
     time the block is initialized, after which point they are discarded. */
  std::map<code_block*, cell> uninitialized_blocks;

  /* Code blocks which may reference objects in the nursery */
  std::set<code_block*> points_to_nursery;

  /* Code blocks which may reference objects in aging space or the nursery */
  std::set<code_block*> points_to_aging;

  explicit code_heap(cell size);
  ~code_heap();
  void write_barrier(code_block* compiled);
  void clear_remembered_set();
  bool uninitialized_p(code_block* compiled);
  bool marked_p(code_block* compiled);
  void set_marked_p(code_block* compiled);
  void clear_mark_bits();
  void free(code_block* compiled);
  void flush_icache();
  void guard_safepoint();
  void unguard_safepoint();
  void verify_all_blocks_set();
  void initialize_all_blocks_set();

  void sweep();

  code_block* code_block_for_address(cell address);

  bool safepoint_p(cell addr) {
    cell page_mask = ~(getpagesize() - 1);
    return (addr & page_mask) == (cell) safepoint_page;
  }
};

struct code_heap_room {
  cell size;
  cell occupied_space;
  cell total_free;
  cell contiguous_free;
  cell free_block_count;
};

}