65 lines
2.0 KiB
C
65 lines
2.0 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2009, 2011 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
|
||
|
|
#include "gtm_stdio.h"
|
||
|
|
#include "gtm_string.h"
|
||
|
|
|
||
|
|
#include "rtnhdr.h"
|
||
|
|
#include "stack_frame.h"
|
||
|
|
#include "op.h"
|
||
|
|
#include "lv_val.h"
|
||
|
|
#include "gdsroot.h"
|
||
|
|
#include "gtm_facility.h"
|
||
|
|
#include "fileinfo.h"
|
||
|
|
#include "gdsbt.h"
|
||
|
|
#include "gdsfhead.h"
|
||
|
|
#include "alias.h"
|
||
|
|
|
||
|
|
GBLREF stack_frame *frame_pointer;
|
||
|
|
GBLREF symval *curr_symval;
|
||
|
|
GBLREF uint4 dollar_tlevel;
|
||
|
|
GBLREF lv_val *active_lv;
|
||
|
|
|
||
|
|
/* Operation - Kill an alias (unsubscripted variable)
|
||
|
|
*
|
||
|
|
* Look it up in the hash table and remove the pointer to the lv_val to destroy the
|
||
|
|
* alias association. Will need to do this in any previous symtabs this var is in
|
||
|
|
* as well.
|
||
|
|
*/
|
||
|
|
void op_killalias(int srcindx)
|
||
|
|
{
|
||
|
|
ht_ent_mname *tabent;
|
||
|
|
mname_entry *varname;
|
||
|
|
lv_val *lv;
|
||
|
|
int4 symvlvl;
|
||
|
|
|
||
|
|
active_lv = (lv_val *)NULL; /* if we get here, subscript set was successful. clear active_lv to avoid later
|
||
|
|
* cleanup problems.
|
||
|
|
*/
|
||
|
|
varname = &(((mname_entry *)frame_pointer->vartab_ptr)[srcindx]);
|
||
|
|
tabent = lookup_hashtab_mname(&curr_symval->h_symtab, varname); /* Retrieve hash tab entry this var */
|
||
|
|
if (tabent)
|
||
|
|
{
|
||
|
|
lv = (lv_val *)tabent->value;
|
||
|
|
assert(lv);
|
||
|
|
assert(LV_IS_BASE_VAR(lv));
|
||
|
|
symvlvl = (LV_GET_SYMVAL(lv))->symvlvl;
|
||
|
|
/* Clone var if necessary */
|
||
|
|
if (dollar_tlevel && (NULL != lv->tp_var) && !lv->tp_var->var_cloned)
|
||
|
|
TP_VAR_CLONE(lv);
|
||
|
|
/* Decrement reference count and cleanup if necessary */
|
||
|
|
DECR_BASE_REF(tabent, lv, TRUE);
|
||
|
|
MARK_ALIAS_ACTIVE(symvlvl); /* Mark this entry as aliasly active now */
|
||
|
|
} /* Else var has no hastable entry so this is a NOOP */
|
||
|
|
}
|