コード例 #1
0
ファイル: slot_visitor.hpp プロジェクト: Bigot/factor
cell slot_visitor<Fixup>::visit_pointer(cell pointer) {
  if (immediate_p(pointer))
    return pointer;

  object* untagged = fixup.fixup_data(untag<object>(pointer));
  return RETAG(untagged, TAG(pointer));
}
コード例 #2
0
cell slot_visitor<Visitor>::visit_pointer(cell pointer)
{
	if(immediate_p(pointer)) return pointer;

	object *untagged = untag<object>(pointer);
	untagged = visitor(untagged);
	return RETAG(untagged,TAG(pointer));
}
コード例 #3
0
ファイル: compaction.cpp プロジェクト: HalfMadDad/factor
	void operator()(instruction_operand op)
	{
		cell old_offset = op.rel_offset() + (cell)old_address->entry_point();

		switch(op.rel_type())
		{
		case RT_LITERAL:
			{
				cell value = op.load_value(old_offset);
				if(immediate_p(value))
					op.store_value(value);
				else
					op.store_value(RETAG(fixup.fixup_data(untag<object>(value)),TAG(value)));
				break;
			}
		case RT_ENTRY_POINT:
		case RT_ENTRY_POINT_PIC:
		case RT_ENTRY_POINT_PIC_TAIL:
		case RT_HERE:
			{
				cell value = op.load_value(old_offset);
				cell offset = TAG(value);
				code_block *compiled = (code_block *)UNTAG(value);
				op.store_value((cell)fixup.fixup_code(compiled) + offset);
				break;
			}
		case RT_THIS:
		case RT_CARDS_OFFSET:
		case RT_DECKS_OFFSET:
			parent->store_external_address(op);
			break;
		default:
			op.store_value(op.load_value(old_offset));
			break;
		}
	}
コード例 #4
0
inline static cell tag_dynamic(object *value)
{
	return RETAG(value,tag_for(value->h.hi_tag()));
}
コード例 #5
0
template <typename TYPE> cell tag(TYPE *value)
{
	return RETAG(value,tag_for(TYPE::type_number));
}
コード例 #6
0
ファイル: tagged.hpp プロジェクト: 8byte-jose/factor
inline static cell tag_dynamic(object *value)
{
	return RETAG(value,value->type());
}
コード例 #7
0
ファイル: tagged.hpp プロジェクト: 8byte-jose/factor
template<typename Type> cell tag(Type *value)
{
	return RETAG(value,Type::type_number);
}
コード例 #8
0
ファイル: layouts.hpp プロジェクト: dmsh/factor
inline static cell tag_fixnum(fixnum untagged)
{
	return RETAG(untagged << TAG_BITS,FIXNUM_TYPE);
}