host_node_entities.c File Reference

#include "defines-local.h"
#include "effects-generic.h"
#include "effects-simple.h"
#include "effects-convex.h"

Include dependency graph for host_node_entities.c:

Go to the source code of this file.

Functions
void	debug_host_node_variables (entity e)
	HPFC module by Fabien COELHO. More...
void	store_new_node_variable (entity new, entity old)
void	store_new_host_variable (entity new, entity old)
void	store_new_host_node_variable (entity neh, entity nen, entity old)
void	init_entity_status ()
entity_status	get_entity_status ()
void	set_entity_status (entity_status s)
void	reset_entity_status ()
void	close_entity_status ()
string	hpfc_module_suffix (entity module)
static void	update_for_module_rewrite (entity *pe)
static void	update_reference_for_module_rewrite (reference ref)
	shift the references to the right variable, in the module More...
static void	update_call_for_module_rewrite (call c)
	shift the calls to the right variable, in the module More...
static void	update_code_for_module_rewrite (code c)
static void	update_loop_for_module_rewrite (loop l)
void	update_object_for_module (void *obj, entity module)
void	update_list_for_module (list l, entity module)
expression	UpdateExpressionForModule (entity module, expression ex)
	this function creates a new expression using the mapping of old to new variables map. More...
list	lUpdateExpr_but_distributed (entity module, list l)
	used for compiling calls. More...
list	lUpdateExpr (entity module, list l)
list	lNewVariableForModule (entity module, list le)
entity	NewVariableForModule (entity module, entity e)
statement	UpdateStatementForModule (entity module, statement stat)

Variables
static bool(*	bound_p )(entity) = (bool(*)(entity)) gen_false
static entity(*	load )(entity) = (entity(*)(entity)) gen_identity

Function Documentation

close_entity_status()

void close_entity_status

(

void

)

Definition at line 118 of file host_node_entities.c.

{
    close_new_host();
    close_old_host();
    close_new_node();
    close_old_node();
}

References close_new_host(), close_new_node(), close_old_host(), and close_old_node().

Here is the call graph for this function:

debug_host_node_variables()

void debug_host_node_variables

(

entity

e

)

HPFC module by Fabien COELHO.

HOST AND NODE ENTITIES MANAGEMENT

Definition at line 44 of file host_node_entities.c.

{
    fprintf(stderr, "variable %s:\n\tnh=%s\n\toh=%s\n\tnn=%s\n\ton=%s\n",
            entity_name(e),
            bound_new_host_p(e)? entity_name(load_new_host(e)): "<undef>",
            bound_old_host_p(e)? entity_name(load_old_host(e)): "<undef>",
            bound_new_node_p(e)? entity_name(load_new_node(e)): "<undef>",
            bound_old_node_p(e)? entity_name(load_old_node(e)): "<undef>");
}

References bound_new_host_p(), bound_new_node_p(), bound_old_host_p(), bound_old_node_p(), entity_name, fprintf(), load_new_host(), load_new_node(), load_old_host(), and load_old_node().

Here is the call graph for this function:

get_entity_status()

entity_status get_entity_status

(

void

)

Definition at line 93 of file host_node_entities.c.

{
    return make_entity_status(get_new_host(),
                              get_new_node(),
                              get_old_host(),
                              get_old_node(),
                              entity_int_undefined);
}

References entity_int_undefined, get_new_host(), get_new_node(), get_old_host(), get_old_node(), and make_entity_status().

Referenced by init_hpfc_status(), and save_hpfc_status().

Here is the call graph for this function:

Here is the caller graph for this function:

hpfc_module_suffix()

string hpfc_module_suffix

(

entity

module

)

else

to avoid a gcc warning

Parameters

module

odule

Definition at line 126 of file host_node_entities.c.

{
    if (module==node_module) return(NODE_NAME);
    if (module==host_module) return(HOST_NAME);
    /* else
     */
    pips_internal_error("unexpected module");
    return string_undefined; /* to avoid a gcc warning */
}

References host_module, HOST_NAME, module, node_module, NODE_NAME, pips_internal_error, and string_undefined.

init_entity_status()

void init_entity_status

(

void

)

Definition at line 85 of file host_node_entities.c.

{
    init_new_host();
    init_old_host();
    init_new_node();
    init_old_node();
}

References init_new_host(), init_new_node(), init_old_host(), and init_old_node().

Referenced by init_hpfc_status().

Here is the call graph for this function:

Here is the caller graph for this function:

lNewVariableForModule()

list lNewVariableForModule	(	entity	module,
		list	le
	)

Parameters

module	odule
le	e

Definition at line 263 of file host_node_entities.c.

{
    list result, last;
 
    if (ENDP(le)) return(NIL);
 
    for (result = CONS(ENTITY, 
                       NewVariableForModule(module, ENTITY(CAR(le))),
                       NIL),
         last = result, le = CDR(le);
         !ENDP(le);
         le = CDR(le), last = CDR(last))
        CDR(last) = CONS(ENTITY, NewVariableForModule(module, ENTITY(CAR(le))),
                         NIL);
 
    return(result);
}

References CAR, CDR, CONS, ENDP, ENTITY, module, NewVariableForModule(), and NIL.

Referenced by hpf_compile_sequential_loop().

Here is the call graph for this function:

Here is the caller graph for this function:

lUpdateExpr()

list lUpdateExpr	(	entity	module,
		list	l
	)

Parameters

module	odule
l	of anything

Definition at line 256 of file host_node_entities.c.

{
    list new = gen_full_copy_list(l);
    update_list_for_module(new, module);    
    return new;
}

References gen_full_copy_list(), module, and update_list_for_module().

Referenced by generate_c1_beta(), hpf_compile_call(), st_compute_current_computer(), and st_compute_current_owners().

Here is the call graph for this function:

Here is the caller graph for this function:

lUpdateExpr_but_distributed()

list lUpdateExpr_but_distributed	(	entity	module,
		list	l
	)

used for compiling calls.

Parameters

module	odule
l	of expression

Definition at line 237 of file host_node_entities.c.

{
    list new = NIL;
 
    MAP(EXPRESSION, e,
    {
        if (!array_distributed_p(expression_to_entity(e)))
            new = CONS(EXPRESSION, copy_expression(e), new);
    },
        l);
 
    new = gen_nreverse(new);
    update_list_for_module(new, module);    
    return new;
}

References array_distributed_p(), CONS, copy_expression(), EXPRESSION, expression_to_entity(), gen_nreverse(), MAP, module, NIL, and update_list_for_module().

Referenced by hpf_compile_call().

Here is the call graph for this function:

Here is the caller graph for this function:

NewVariableForModule()

entity NewVariableForModule	(	entity	module,
		entity	e
	)

Parameters

module

odule

Definition at line 283 of file host_node_entities.c.

{
    if (module==host_module)
    {
        if (bound_new_host_p(e)) 
            return load_new_host(e);
    }
    else
    {
        if (bound_new_node_p(e))
            return load_new_node(e);
    }
 
    pips_internal_error("unexpected entity %s", entity_name(e));
 
    return entity_undefined;
}

References bound_new_host_p(), bound_new_node_p(), entity_name, entity_undefined, host_module, load_new_host(), load_new_node(), module, and pips_internal_error.

Referenced by hpf_compile_parallel_loop(), hpf_compile_sequential_loop(), and lNewVariableForModule().

Here is the call graph for this function:

Here is the caller graph for this function:

reset_entity_status()

void reset_entity_status

(

void

)

Definition at line 110 of file host_node_entities.c.

{
    reset_new_host();
    reset_old_host();
    reset_new_node();
    reset_old_node();
}

References reset_new_host(), reset_new_node(), reset_old_host(), and reset_old_node().

Referenced by reset_hpfc_status().

Here is the call graph for this function:

Here is the caller graph for this function:

set_entity_status()

void set_entity_status

(

entity_status

s

)

Definition at line 102 of file host_node_entities.c.

{
    set_new_host(entity_status_new_host(s));
    set_new_node(entity_status_new_node(s));
    set_old_host(entity_status_old_host(s));
    set_old_node(entity_status_old_node(s));
}

References entity_status_new_host, entity_status_new_node, entity_status_old_host, entity_status_old_node, set_new_host(), set_new_node(), set_old_host(), and set_old_node().

Referenced by load_hpfc_status().

Here is the call graph for this function:

Here is the caller graph for this function:

store_new_host_node_variable()

void store_new_host_node_variable	(	entity	neh,
		entity	nen,
		entity	old
	)

Parameters

neh	host version
nen	node version
old	initial entity

Definition at line 73 of file host_node_entities.c.

{
    store_new_host_variable(neh, old);
    store_new_host_variable(neh, nen);
    store_new_node_variable(nen, old);
    store_new_node_variable(nen, neh);
}

References store_new_host_variable(), and store_new_node_variable().

Referenced by make_host_and_node_modules().

Here is the call graph for this function:

Here is the caller graph for this function:

store_new_host_variable()

void store_new_host_variable	(	entity	new,
		entity	old
	)

Parameters

new	ew
old	ld

Definition at line 64 of file host_node_entities.c.

{
    pips_assert("defined", !entity_undefined_p(new)&&!entity_undefined_p(old));
 
    store_or_update_new_host(old, new);
    store_or_update_old_host(new, old);
}

References entity_undefined_p, pips_assert, store_or_update_new_host(), and store_or_update_old_host().

Referenced by add_declaration_to_host_and_link(), AddCommonToHostAndNodeModules(), AddEntityToHostAndNodeModules(), automatic_translation(), hpfc_compile(), make_host_and_node_modules(), and store_new_host_node_variable().

Here is the call graph for this function:

Here is the caller graph for this function:

store_new_node_variable()

void store_new_node_variable	(	entity	new,
		entity	old
	)

Parameters

new	ew
old	ld

Definition at line 55 of file host_node_entities.c.

{
    pips_assert("defined", !entity_undefined_p(new)&&!entity_undefined_p(old));
 
    store_or_update_new_node(old, new);
    store_or_update_old_node(new, old);
}

References entity_undefined_p, pips_assert, store_or_update_new_node(), and store_or_update_old_node().

Referenced by AddCommonToHostAndNodeModules(), AddEntityToHostAndNodeModules(), automatic_translation(), hpfc_compile(), make_host_and_node_modules(), set_similar_mappings_for_updates(), and store_new_host_node_variable().

Here is the call graph for this function:

Here is the caller graph for this function:

update_call_for_module_rewrite()

static void update_call_for_module_rewrite ( call  c )

static

shift the calls to the right variable, in the module

Definition at line 163 of file host_node_entities.c.

{
    update_for_module_rewrite(&call_function(c));
}

References call_function, and update_for_module_rewrite().

Referenced by update_object_for_module().

Here is the call graph for this function:

Here is the caller graph for this function:

update_code_for_module_rewrite()

static void update_code_for_module_rewrite ( code  c )

static

Definition at line 168 of file host_node_entities.c.

{
    MAPL(ce, 
         update_for_module_rewrite((entity*) &(CAR(ce).p)),
         code_declarations(c));
}

References CAR, code_declarations, MAPL, and update_for_module_rewrite().

Referenced by update_object_for_module().

Here is the call graph for this function:

Here is the caller graph for this function:

update_for_module_rewrite()

static void update_for_module_rewrite ( entity *  pe )

static

Definition at line 143 of file host_node_entities.c.

{
    if (bound_p(*pe)) 
    {
        entity n = load(*pe);
        pips_debug(10, "%s -> %s\n", entity_name(*pe), entity_name(n));
        *pe = n;
    }
}

References bound_p, entity_name, load, and pips_debug.

Referenced by update_call_for_module_rewrite(), update_code_for_module_rewrite(), update_loop_for_module_rewrite(), and update_reference_for_module_rewrite().

Here is the caller graph for this function:

update_list_for_module()

void update_list_for_module	(	list	l,
		entity	module
	)

Parameters

module

odule

Definition at line 215 of file host_node_entities.c.

{
    MAPL(cx, update_object_for_module(CHUNK(CAR(cx)), module), l);
}

References CAR, CHUNK, MAPL, module, and update_object_for_module().

Referenced by lUpdateExpr(), and lUpdateExpr_but_distributed().

Here is the call graph for this function:

Here is the caller graph for this function:

update_loop_for_module_rewrite()

static void update_loop_for_module_rewrite ( loop  l )

static

Definition at line 175 of file host_node_entities.c.

{
    update_for_module_rewrite(&loop_index(l));
}

References loop_index, and update_for_module_rewrite().

Referenced by update_object_for_module().

Here is the call graph for this function:

Here is the caller graph for this function:

update_object_for_module()

void update_object_for_module	(	void *	obj,
		entity	module
	)

push the current functions

pop the initial functions

Parameters

obj	bj
module	loosely typed, indeed

Definition at line 180 of file host_node_entities.c.

{
    bool (*saved_bound)(entity);
    entity (*saved_load)(entity);
 
    pips_debug(8, "updating (%s) %p\n", gen_domain_name(gen_type(obj)), obj);
 
    saved_bound = bound_p, saved_load = load; /* push the current functions */
 
    if (module==host_module)
    {
        pips_debug(8, "for host\n");
        bound_p = bound_new_host_p;
        load = load_new_host;
    }
    else
    {
        pips_debug(8, "for node\n");
        bound_p = bound_new_node_p;
        load = load_new_node;
    }
 
    gen_multi_recurse
        (obj, 
         reference_domain, gen_true, update_reference_for_module_rewrite,
         loop_domain, gen_true, update_loop_for_module_rewrite,
         call_domain, gen_true, update_call_for_module_rewrite,
         code_domain, gen_true, update_code_for_module_rewrite,
         NULL);
 
    bound_p = saved_bound, load = saved_load; /* pop the initial functions */
}

References bound_new_host_p(), bound_new_node_p(), bound_p, call_domain, code_domain, gen_domain_name(), gen_multi_recurse(), gen_true(), gen_type(), host_module, load, load_new_host(), load_new_node(), loop_domain, module, pips_debug, reference_domain, update_call_for_module_rewrite(), update_code_for_module_rewrite(), update_loop_for_module_rewrite(), and update_reference_for_module_rewrite().

Referenced by compile_module(), generate_hpf_remapping_file(), hpf_compile_call(), update_list_for_module(), UpdateExpressionForModule(), and UpdateStatementForModule().

Here is the call graph for this function:

Here is the caller graph for this function:

update_reference_for_module_rewrite()

static void update_reference_for_module_rewrite ( reference  ref )

static

shift the references to the right variable, in the module

Definition at line 156 of file host_node_entities.c.

{
    update_for_module_rewrite(&reference_variable(ref));
}

References ref, reference_variable, and update_for_module_rewrite().

Referenced by update_object_for_module().

Here is the call graph for this function:

Here is the caller graph for this function:

UpdateExpressionForModule()

expression UpdateExpressionForModule	(	entity	module,
		expression	ex
	)

this function creates a new expression using the mapping of old to new variables map.

some of the structures generated may be shared...

Parameters

module	odule
ex	x

Definition at line 225 of file host_node_entities.c.

{
    expression new = copy_expression(ex);
    update_object_for_module(new, module);
    return(new);
}

References copy_expression(), module, and update_object_for_module().

Referenced by generate_c1_alpha(), generate_compute_local_indices(), hpf_compile_parallel_loop(), hpf_compile_sequential_loop(), hpf_compile_test(), and st_compute_ith_local_index().

Here is the call graph for this function:

Here is the caller graph for this function:

UpdateStatementForModule()

statement UpdateStatementForModule	(	entity	module,
		statement	stat
	)

Parameters

module	odule
stat	tat

Definition at line 303 of file host_node_entities.c.

{
    statement new_stat = copy_statement(stat);
    update_object_for_module(new_stat, module);
    return(new_stat);
}

References copy_statement(), module, and update_object_for_module().

Referenced by generate_parallel_body().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

bound_p

bool(* bound_p) (entity) ( entity  ) = (bool(*)(entity)) gen_false

static

Definition at line 140 of file host_node_entities.c.

Referenced by update_for_module_rewrite(), update_lower_or_upper_bound(), and update_object_for_module().

load

entity(* load) (entity) ( entity  ) = (entity(*)(entity)) gen_identity

static

Definition at line 141 of file host_node_entities.c.

Referenced by insert_array_scalar_access_movement(), pixel_name(), update_for_module_rewrite(), and update_object_for_module().