WONKY

#ifndef WONKY_OBJECT_C
#define WONKY_OBJECT_C WONKY_OBJECT_C
#include<object.h>


struct Object* get_object(struct Type *type,enum Storage_Class_Specifier storage_class)
{
	struct Object *ret;
	ret=wonky_malloc(sizeof(struct Object));
	ret->kind=OBJECT_KIND_NORMAL;
	ret->type=type;
	ret->storage_class=storage_class;
	/*
	if(storage_class==SCS_EXTERN || storage_class==SCS_STATIC)
		ret->storage_class=SCS_STATIC;
	else if(storage_class==SCS_REGISTER)
		ret->storage_class=storage_class;
	else
		ret->storage_class=SCS_NONE;
	*/

	ret->location=NULL;
	return ret;
}

void delete_object(struct Object *object)
{
	wonky_free(object);
}

struct Object* retype_object(struct Object *object,struct Type *new_type)
{
	if(object->kind==OBJECT_KIND_NORMAL)
	{
		struct Object *ret;
		ret=wonky_malloc(sizeof(struct Object));
		ret->location=object->location;
		ret->storage_class=object->storage_class;
		ret->type=new_type;

		return ret;
	}else if(object->kind==OBJECT_KIND_BITFIELD)
	{
		struct Object_Bitfield *ret;

		ret=wonky_malloc(sizeof(struct Object_Bitfield));
		ret->location=object->location;
		ret->storage_class=object->storage_class;
		ret->number_of_bits=((struct Object_Bitfield*)object)->number_of_bits;
		ret->type=new_type;

		return (struct Object*)ret;

	}


	wonky_assert(SHOULD_NOT_REACH_HERE);
}


struct Object* get_temp_object(struct Type *type)
{
	struct Object *ret;
	ret=wonky_malloc(sizeof(struct Object));
	ret->location=NULL;
	ret->storage_class=SCS_NONE;
	ret->type=type;

	return (struct Object*)ret;
}

struct Object* convert_object_to_bitfield(struct Object *object,struct AST_Expression* number_of_bits_expression,struct Translation_Data *translation_data)
{
	struct Object_Bitfield *ret;
	long long int number_of_bits;
	ret=wonky_malloc(sizeof(struct Object_Bitfield));	
	*(struct Object*)ret=*object;
	ret->kind=OBJECT_KIND_BITFIELD;

	number_of_bits=evaluate_const_expression_integer((struct AST*)number_of_bits_expression,translation_data);
	ret->number_of_bits=number_of_bits;
	if(number_of_bits<0)
		push_translation_error("negative width bitfield is not allowed",translation_data);
	return (struct Object*)ret;

}
#endif