Exemplo n.º 1
0
/*
============
PR_PrintDefs
============
*/
void PR_PrintDefs (void)
{
	def_t	*d;
	
	for (d=pr.def_head.next ; d ; d=d->next)
		PR_PrintOfs (d->ofs);
}
Exemplo n.º 2
0
/*
============
PR_GetDef

A new def will be allocated if it can't be found
============
*/
def_t *PR_GetDef (type_t *type, char *name, def_t *scope, def_t *visscope, bool isParm)
{
	def_t	*def;
	char	element[MAX_NAME];
	int		hash;

	hash = Com_HashKey (name);

// see if the name is already in use
	def = PR_FindDef2 (name, scope, hash);

	if (def) {
		if (def->scope != scope) {
			if (!opt_idcomp)
				goto allocNew;		// a local def overrides global (ok)
			else
				PR_Warning (WARN_HIGH, "'%s' already declared on global scope", name);
		}

		if (def->type != type)
			PR_ParseError ("type mismatch on redeclaration of %s", name);

		if (def->isParm && !isParm)
			if (!opt_idcomp)
				PR_ParseError ("redefinition of formal parameter '%s'", name);
			else
				PR_Warning (WARN_HIGH, "redefinition of formal parameter '%s'", name);

		// fixup visibility scope
		if (def->visscope)
			def->visscope = visscope;

		return def;
	}

// allocate a new def
allocNew:
	def = PR_NewDef (hash);

	def->name = (char *) malloc (strlen(name)+1);
	strcpy (def->name, name);
	def->type = type;
	def->isParm = isParm;
	def->scope = scope;
	def->visscope = visscope;

	if (numpr_globals + type_size[type->type] > MAX_REGS)
		Error ("numpr_globals > MAX_REGS");

	def->ofs = numpr_globals;
	pr_global_defs[numpr_globals] = def;

//
// make automatic defs for the vectors elements
// .origin can be accessed as .origin_x, .origin_y, and .origin_z
//
	if (type->type == ev_vector)
	{
		sprintf (element, "%s_x",name);
		PR_GetDef (&type_float, element, scope, visscope, isParm);

		sprintf (element, "%s_y",name);
		PR_GetDef (&type_float, element, scope, visscope, isParm);

		sprintf (element, "%s_z",name);
		PR_GetDef (&type_float, element, scope, visscope, isParm);
	}
	else
		numpr_globals += type_size[type->type];

	if (type->type == ev_field)
	{
		assert (scope == NULL && visscope == NULL);

		*(int *)&pr_globals[def->ofs] = pr.size_fields;

		if (type->aux_type->type == ev_vector)
		{
			sprintf (element, "%s_x",name);
			PR_GetDef (&type_floatfield, element, NULL, NULL, isParm);

			sprintf (element, "%s_y",name);
			PR_GetDef (&type_floatfield, element, NULL, NULL, isParm);

			sprintf (element, "%s_z",name);
			PR_GetDef (&type_floatfield, element, NULL, NULL, isParm);
		}
		else
			pr.size_fields += type_size[type->aux_type->type];
	}

	if (opt_dumpasm)
		PR_PrintOfs (def->ofs);

	return def;
}