Skip to content

P
proview
Commit 91243a2c authored by Claes Sjofors's avatar Claes Sjofors
Browse files
Options

Plc compile, check that references still exist (refs #102)

parent 18daf079
Hide whitespace changes
Inline Side-by-side
Showing with 96 additions and 78 deletions
wb/lib/wb/src/wb_gcg.cpp
View file @ 91243a2c
...@@ -416,13 +416,15 @@ static int gcg_iowrite_insert( ...@@ -416,13 +416,15 @@ static int gcg_iowrite_insert(
static int gcg_ref_insert( static int gcg_ref_insert(
gcg_ctx gcgctx, gcg_ctx gcgctx,
pwr_tObjid objdid, pwr_tObjid objdid,
char prefix char prefix,
vldh_t_node node
); );
static int gcg_aref_insert( static int gcg_aref_insert(
gcg_ctx gcgctx, gcg_ctx gcgctx,
pwr_sAttrRef attrref, pwr_sAttrRef attrref,
char prefix char prefix,
vldh_t_node node
); );
static int gcg_ref_print( static int gcg_ref_print(
...@@ -2970,7 +2972,8 @@ static int gcg_iowrite_insert( ...@@ -2970,7 +2972,8 @@ static int gcg_iowrite_insert(
static int gcg_ref_insert( static int gcg_ref_insert(
gcg_ctx gcgctx, gcg_ctx gcgctx,
pwr_tObjid objdid, pwr_tObjid objdid,
char prefix char prefix,
vldh_t_node node
) )
{ {
int i, found, sts; int i, found, sts;
...@@ -3021,7 +3024,8 @@ static int gcg_ref_insert( ...@@ -3021,7 +3024,8 @@ static int gcg_ref_insert(
static int gcg_aref_insert( static int gcg_aref_insert(
gcg_ctx gcgctx, gcg_ctx gcgctx,
pwr_sAttrRef attrref, pwr_sAttrRef attrref,
char prefix char prefix,
vldh_t_node node
) )
{ {
int i, found, sts; int i, found, sts;
...@@ -3084,11 +3088,17 @@ static int gcg_ref_print( ...@@ -3084,11 +3088,17 @@ static int gcg_ref_print(
prefix = (gcgctx->ref + i)->prefix; prefix = (gcgctx->ref + i)->prefix;
sts = ldh_GetObjectClass(gcgctx->wind->hw.ldhses, objdid, &cid); sts = ldh_GetObjectClass(gcgctx->wind->hw.ldhses, objdid, &cid);
if ( EVEN(sts)) return sts; if ( EVEN(sts)) {
gcg_error_msg( gcgctx, GSX__REFOBJ, (gcgctx->ref + i)->node);
continue;
}
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, objdid, &name); sts = gcg_get_structname( gcgctx, objdid, &name);
if( EVEN(sts)) return sts; if ( EVEN(sts)) {
gcg_error_msg( gcgctx, GSX__REFOBJ, (gcgctx->ref + i)->node);
continue;
}
gcg_print_decl( gcgctx, name, objdid, prefix, GCG_REFTYPE_REF); gcg_print_decl( gcgctx, name, objdid, prefix, GCG_REFTYPE_REF);
gcg_print_rtdbref( gcgctx, objdid, prefix, cid, GCG_REFTYPE_REF); gcg_print_rtdbref( gcgctx, objdid, prefix, cid, GCG_REFTYPE_REF);
...@@ -3129,11 +3139,17 @@ static int gcg_aref_print( ...@@ -3129,11 +3139,17 @@ static int gcg_aref_print(
prefix = (gcgctx->aref + i)->prefix; prefix = (gcgctx->aref + i)->prefix;
sts = ldh_GetAttrRefOrigTid(gcgctx->wind->hw.ldhses, &attrref, &cid); sts = ldh_GetAttrRefOrigTid(gcgctx->wind->hw.ldhses, &attrref, &cid);
if ( EVEN(sts)) return sts; if ( EVEN(sts)) {
gcg_error_msg( gcgctx, GSX__REFOBJ, (gcgctx->aref + i)->node);
continue;
}
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname_from_cid( gcgctx, cid, &name); sts = gcg_get_structname_from_cid( gcgctx, cid, &name);
if( EVEN(sts)) return sts; if ( EVEN(sts)) {
gcg_error_msg( gcgctx, GSX__REFOBJ, (gcgctx->aref + i)->node);
continue;
}
gcg_print_adecl( gcgctx, name, attrref, prefix, GCG_REFTYPE_REF); gcg_print_adecl( gcgctx, name, attrref, prefix, GCG_REFTYPE_REF);
gcg_print_artdbref( gcgctx, attrref, prefix, cid, GCG_REFTYPE_REF, 0); gcg_print_artdbref( gcgctx, attrref, prefix, cid, GCG_REFTYPE_REF, 0);
...@@ -6394,7 +6410,7 @@ int gcg_comp_m1( vldh_t_wind wind, ...@@ -6394,7 +6410,7 @@ int gcg_comp_m1( vldh_t_wind wind,
GCG_PREFIX_MOD, vldh_IdToStr(0, wind->lw.oid)); GCG_PREFIX_MOD, vldh_IdToStr(0, wind->lw.oid));
/* Print exec call for the window */ /* Print exec call for the window */
sts = gcg_ref_insert( gcgctx, wind->lw.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, wind->lw.oid, GCG_PREFIX_REF, 0);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, wind->lw.oid, &name); sts = gcg_get_structname( gcgctx, wind->lw.oid, &name);
...@@ -6622,7 +6638,7 @@ int gcg_comp_m6( gcg_ctx gcgctx, vldh_t_node node) ...@@ -6622,7 +6638,7 @@ int gcg_comp_m6( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -6667,7 +6683,7 @@ int gcg_comp_m7( gcg_ctx gcgctx, vldh_t_node node) ...@@ -6667,7 +6683,7 @@ int gcg_comp_m7( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -6711,7 +6727,7 @@ int gcg_comp_m5( gcg_ctx gcgctx, vldh_t_node node) ...@@ -6711,7 +6727,7 @@ int gcg_comp_m5( gcg_ctx gcgctx, vldh_t_node node)
{ {
int sts; int sts;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -6778,7 +6794,7 @@ int gcg_comp_m4( gcg_ctx gcgctx, vldh_t_node node) ...@@ -6778,7 +6794,7 @@ int gcg_comp_m4( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -7064,7 +7080,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7064,7 +7080,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert io object in ioread list */ /* Insert io object in ioread list */
gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
break; break;
case pwr_cClass_GetATv: case pwr_cClass_GetATv:
...@@ -7074,7 +7090,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7074,7 +7090,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert io object in ioread list */ /* Insert io object in ioread list */
gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
case pwr_cClass_GetDTv: case pwr_cClass_GetDTv:
if ( cid != pwr_cClass_DTv) { if ( cid != pwr_cClass_DTv) {
...@@ -7083,7 +7099,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7083,7 +7099,7 @@ int gcg_comp_m8( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert io object in ioread list */ /* Insert io object in ioread list */
gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, attrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
default: default:
gcg_error_msg( gcgctx, GSX__REFCLASS, node); gcg_error_msg( gcgctx, GSX__REFCLASS, node);
...@@ -7321,7 +7337,7 @@ int gcg_comp_m10( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7321,7 +7337,7 @@ int gcg_comp_m10( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -7375,7 +7391,7 @@ int gcg_comp_m13( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7375,7 +7391,7 @@ int gcg_comp_m13( gcg_ctx gcgctx, vldh_t_node node)
return sts; return sts;
/* Insert step object in ref list */ /* Insert step object in ref list */
gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
...@@ -7502,7 +7518,7 @@ int gcg_comp_m15( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7502,7 +7518,7 @@ int gcg_comp_m15( gcg_ctx gcgctx, vldh_t_node node)
/* Insert trans object in ref list */ /* Insert trans object in ref list */
gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
...@@ -7983,7 +7999,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -7983,7 +7999,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
return GSX__ORDERMISM; return GSX__ORDERMISM;
} }
if ( cid == pwr_cClass_sorder) { if ( cid == pwr_cClass_sorder) {
sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
/* Get name for execute call */ /* Get name for execute call */
sts = gcg_get_structname( gcgctx, next_objdid, &name); sts = gcg_get_structname( gcgctx, next_objdid, &name);
...@@ -8004,7 +8020,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8004,7 +8020,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
else if ( cid == pwr_cClass_lorder) { else if ( cid == pwr_cClass_lorder) {
/* Get the time */ /* Get the time */
sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
/* Print timer code */ /* Print timer code */
gcg_timer_print( gcgctx, next_objdid); gcg_timer_print( gcgctx, next_objdid);
...@@ -8026,7 +8042,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8026,7 +8042,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
else if ( cid == pwr_cClass_dorder) { else if ( cid == pwr_cClass_dorder) {
/* Get the time */ /* Get the time */
sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
/* Print timer code */ /* Print timer code */
gcg_timer_print( gcgctx, next_objdid); gcg_timer_print( gcgctx, next_objdid);
...@@ -8046,7 +8062,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8046,7 +8062,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
step_objdid = next_objdid; step_objdid = next_objdid;
} }
else if ( cid == pwr_cClass_porder) { else if ( cid == pwr_cClass_porder) {
sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
/* Get name for execute call */ /* Get name for execute call */
sts = gcg_get_structname( gcgctx, next_objdid, &name); sts = gcg_get_structname( gcgctx, next_objdid, &name);
...@@ -8063,7 +8079,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8063,7 +8079,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
step_objdid = next_objdid; step_objdid = next_objdid;
} }
else if ( cid == pwr_cClass_corder) { else if ( cid == pwr_cClass_corder) {
sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
/* Get name for execute call */ /* Get name for execute call */
sts = gcg_get_structname( gcgctx, next_objdid, &name); sts = gcg_get_structname( gcgctx, next_objdid, &name);
...@@ -8116,7 +8132,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8116,7 +8132,7 @@ int gcg_comp_m16( gcg_ctx gcgctx, vldh_t_node node)
if ( ldhsubordercount != subordercount ) if ( ldhsubordercount != subordercount )
return GSX__ORDERMISM; return GSX__ORDERMISM;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for execute call */ /* Get name for execute call */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -8439,7 +8455,7 @@ int gcg_comp_m11( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8439,7 +8455,7 @@ int gcg_comp_m11( gcg_ctx gcgctx, vldh_t_node node)
cid == pwr_cClass_ATv || cid == pwr_cClass_ATv ||
cid == pwr_cClass_DTv) { cid == pwr_cClass_DTv) {
/* Insert io object in ref list */ /* Insert io object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -8750,7 +8766,7 @@ int gcg_comp_m12( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8750,7 +8766,7 @@ int gcg_comp_m12( gcg_ctx gcgctx, vldh_t_node node)
free(nocondef_ptr); free(nocondef_ptr);
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -8832,7 +8848,7 @@ int gcg_comp_m17( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8832,7 +8848,7 @@ int gcg_comp_m17( gcg_ctx gcgctx, vldh_t_node node)
nocondef.bo = TRUE; nocondef.bo = TRUE;
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -8994,7 +9010,7 @@ int gcg_comp_m18( gcg_ctx gcgctx, vldh_t_node node) ...@@ -8994,7 +9010,7 @@ int gcg_comp_m18( gcg_ctx gcgctx, vldh_t_node node)
/* Insert sorder and reset_so object in ref list */ /* Insert sorder and reset_so object in ref list */
gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, next_objdid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, next_objdid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, next_objdid, GCG_PREFIX_REF);
if ( EVEN(sts)) return sts; if ( EVEN(sts)) return sts;
...@@ -9085,7 +9101,7 @@ int gcg_comp_m19( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9085,7 +9101,7 @@ int gcg_comp_m19( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert order ref list */ /* Insert order ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -9177,7 +9193,7 @@ int gcg_comp_m20( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9177,7 +9193,7 @@ int gcg_comp_m20( gcg_ctx gcgctx, vldh_t_node node)
refobjdid = next_objdid; refobjdid = next_objdid;
} }
/* Insert referenced object in ref list */ /* Insert referenced object in ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -9223,7 +9239,7 @@ int gcg_comp_m21( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9223,7 +9239,7 @@ int gcg_comp_m21( gcg_ctx gcgctx, vldh_t_node node)
{ {
int sts; int sts;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -9274,7 +9290,7 @@ int gcg_comp_m25( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9274,7 +9290,7 @@ int gcg_comp_m25( gcg_ctx gcgctx, vldh_t_node node)
nocondef[0].bo = FALSE; nocondef[0].bo = FALSE;
nocondef[1].bo = TRUE; nocondef[1].bo = TRUE;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -9431,7 +9447,7 @@ int gcg_comp_m22( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9431,7 +9447,7 @@ int gcg_comp_m22( gcg_ctx gcgctx, vldh_t_node node)
expression); expression);
free((char *) expression); free((char *) expression);
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -9742,7 +9758,7 @@ int gcg_comp_m24( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9742,7 +9758,7 @@ int gcg_comp_m24( gcg_ctx gcgctx, vldh_t_node node)
return sts; return sts;
/* Insert step object in ref list */ /* Insert step object in ref list */
gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
...@@ -9890,14 +9906,14 @@ int gcg_comp_m26( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9890,14 +9906,14 @@ int gcg_comp_m26( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert parent object in ref list */ /* Insert parent object in ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
sts = gcg_check_grafcet_reset( gcgctx, node); sts = gcg_check_grafcet_reset( gcgctx, node);
if ( EVEN(sts) || sts == GSX__NEXTNODE) if ( EVEN(sts) || sts == GSX__NEXTNODE)
return sts; return sts;
/* Insert step object in ref list */ /* Insert step object in ref list */
gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
...@@ -9990,7 +10006,7 @@ int gcg_comp_m28( gcg_ctx gcgctx, vldh_t_node node) ...@@ -9990,7 +10006,7 @@ int gcg_comp_m28( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -10113,7 +10129,7 @@ int gcg_comp_m29( gcg_ctx gcgctx, vldh_t_node node) ...@@ -10113,7 +10129,7 @@ int gcg_comp_m29( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -10250,7 +10266,7 @@ int gcg_comp_m30( gcg_ctx gcgctx, vldh_t_node node) ...@@ -10250,7 +10266,7 @@ int gcg_comp_m30( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -10404,7 +10420,7 @@ int gcg_comp_m31( gcg_ctx gcgctx, vldh_t_node node) ...@@ -10404,7 +10420,7 @@ int gcg_comp_m31( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -10562,7 +10578,7 @@ int gcg_comp_m32( gcg_ctx gcgctx, vldh_t_node node) ...@@ -10562,7 +10578,7 @@ int gcg_comp_m32( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -10730,7 +10746,7 @@ int gcg_comp_m33( gcg_ctx gcgctx, vldh_t_node node) ...@@ -10730,7 +10746,7 @@ int gcg_comp_m33( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for the exec command for this class */ /* Get name for the exec command for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -11000,7 +11016,7 @@ int gcg_comp_m34( gcg_ctx gcgctx, vldh_t_node node) ...@@ -11000,7 +11016,7 @@ int gcg_comp_m34( gcg_ctx gcgctx, vldh_t_node node)
} }
*/ */
/* Insert referenced object in ref list */ /* Insert referenced object in ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -11113,7 +11129,7 @@ int gcg_comp_m35( gcg_ctx gcgctx, vldh_t_node node) ...@@ -11113,7 +11129,7 @@ int gcg_comp_m35( gcg_ctx gcgctx, vldh_t_node node)
default:; default:;
} }
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -11256,7 +11272,7 @@ int gcg_comp_m36( gcg_ctx gcgctx, vldh_t_node node) ...@@ -11256,7 +11272,7 @@ int gcg_comp_m36( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get the objdid of the referenced io object stored in the /* Get the objdid of the referenced io object stored in the
first parameter in defbody */ first parameter in defbody */
...@@ -11376,7 +11392,7 @@ int gcg_comp_m36( gcg_ctx gcgctx, vldh_t_node node) ...@@ -11376,7 +11392,7 @@ int gcg_comp_m36( gcg_ctx gcgctx, vldh_t_node node)
parameter); parameter);
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -11514,7 +11530,7 @@ int gcg_comp_m37( gcg_ctx gcgctx, vldh_t_node node) ...@@ -11514,7 +11530,7 @@ int gcg_comp_m37( gcg_ctx gcgctx, vldh_t_node node)
} }
#if 0 #if 0
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -12011,7 +12027,7 @@ OA1,OA2,OA3,OA4,OA5,OA6,OA7,OA8,od1,od2,od3,od4,od5,od6,od7,od8) ", ...@@ -12011,7 +12027,7 @@ OA1,OA2,OA3,OA4,OA5,OA6,OA7,OA8,od1,od2,od3,od4,od5,od6,od7,od8) ",
free((char *) expression); free((char *) expression);
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -12237,7 +12253,7 @@ int gcg_comp_m41( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12237,7 +12253,7 @@ int gcg_comp_m41( gcg_ctx gcgctx, vldh_t_node node)
char output_par[80]; char output_par[80];
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -12442,7 +12458,7 @@ int gcg_comp_m42( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12442,7 +12458,7 @@ int gcg_comp_m42( gcg_ctx gcgctx, vldh_t_node node)
free((char *) expression); free((char *) expression);
free( newstr); free( newstr);
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get the runtime parameters for this class */ /* Get the runtime parameters for this class */
sts = ldh_GetObjectBodyDef((node->hn.wind)->hw.ldhses, sts = ldh_GetObjectBodyDef((node->hn.wind)->hw.ldhses,
...@@ -12561,7 +12577,7 @@ int gcg_comp_m43( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12561,7 +12577,7 @@ int gcg_comp_m43( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get the objdid of the referenced io object stored in the /* Get the objdid of the referenced io object stored in the
first parameter in defbody */ first parameter in defbody */
...@@ -12597,7 +12613,7 @@ int gcg_comp_m43( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12597,7 +12613,7 @@ int gcg_comp_m43( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
/* The Out parameter will contain the pointer to the /* The Out parameter will contain the pointer to the
referenced object */ referenced object */
...@@ -12669,7 +12685,7 @@ int gcg_comp_m44( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12669,7 +12685,7 @@ int gcg_comp_m44( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert order ref list */ /* Insert order ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -12729,7 +12745,7 @@ int gcg_comp_m45( gcg_ctx gcgctx, vldh_t_node node) ...@@ -12729,7 +12745,7 @@ int gcg_comp_m45( gcg_ctx gcgctx, vldh_t_node node)
int dataclass_found; int dataclass_found;
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -13087,7 +13103,7 @@ int gcg_comp_m47( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13087,7 +13103,7 @@ int gcg_comp_m47( gcg_ctx gcgctx, vldh_t_node node)
nocondef.bo = FALSE; nocondef.bo = FALSE;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -13228,8 +13244,8 @@ int gcg_comp_m48( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13228,8 +13244,8 @@ int gcg_comp_m48( gcg_ctx gcgctx, vldh_t_node node)
return GSX__NEXTNODE; return GSX__NEXTNODE;
} }
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_ref_insert( gcgctx, window, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, window, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -13286,7 +13302,7 @@ int gcg_comp_m49( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13286,7 +13302,7 @@ int gcg_comp_m49( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Check the attributes in the parent order node */ /* Check the attributes in the parent order node */
sts = ldh_GetObjectBodyDef( ldhses, sts = ldh_GetObjectBodyDef( ldhses,
...@@ -13411,7 +13427,7 @@ int gcg_comp_m50( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13411,7 +13427,7 @@ int gcg_comp_m50( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the function call to execute the subwindow */ /* Print the function call to execute the subwindow */
/* Check first that there is a subwindow */ /* Check first that there is a subwindow */
...@@ -13641,7 +13657,7 @@ int gcg_comp_m52( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13641,7 +13657,7 @@ int gcg_comp_m52( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get the objdid of the referenced io object stored in the /* Get the objdid of the referenced io object stored in the
first parameter in defbody */ first parameter in defbody */
...@@ -13810,7 +13826,7 @@ int gcg_comp_m52( gcg_ctx gcgctx, vldh_t_node node) ...@@ -13810,7 +13826,7 @@ int gcg_comp_m52( gcg_ctx gcgctx, vldh_t_node node)
parameter); parameter);
/* Insert object in ref list */ /* Insert object in ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -14003,7 +14019,7 @@ int gcg_comp_m53( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14003,7 +14019,7 @@ int gcg_comp_m53( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Print the code */ /* Print the code */
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -14243,10 +14259,10 @@ int gcg_comp_m54( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14243,10 +14259,10 @@ int gcg_comp_m54( gcg_ctx gcgctx, vldh_t_node node)
free((char *) index_ptr); free((char *) index_ptr);
/* Insert parent object in ref list */ /* Insert parent object in ref list */
gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refobjdid, GCG_PREFIX_REF, node);
/* Insert object in ref list */ /* Insert object in ref list */
gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
...@@ -14363,7 +14379,7 @@ int gcg_comp_m55( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14363,7 +14379,7 @@ int gcg_comp_m55( gcg_ctx gcgctx, vldh_t_node node)
int sts; int sts;
char *name; char *name;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for the exec command for this class */ /* Get name for the exec command for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -14661,7 +14677,7 @@ int gcg_comp_m57( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14661,7 +14677,7 @@ int gcg_comp_m57( gcg_ctx gcgctx, vldh_t_node node)
free(nocondef_ptr); free(nocondef_ptr);
/* Insert host object in ref list */ /* Insert host object in ref list */
gcg_ref_insert( gcgctx, host_objid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, host_objid, GCG_PREFIX_REF, node);
/* Print the execute command */ /* Print the execute command */
...@@ -14773,7 +14789,7 @@ int gcg_comp_m58( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14773,7 +14789,7 @@ int gcg_comp_m58( gcg_ctx gcgctx, vldh_t_node node)
return GSX__NEXTNODE; return GSX__NEXTNODE;
} }
gcg_aref_insert( gcgctx, aref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, aref, GCG_PREFIX_REF, node);
// Make connection mutual // Make connection mutual
sts = ldh_ObjidToName( ldhses, cdh_ClassIdToObjid( node->ln.cid), sts = ldh_ObjidToName( ldhses, cdh_ClassIdToObjid( node->ln.cid),
...@@ -14957,7 +14973,7 @@ int gcg_comp_m58( gcg_ctx gcgctx, vldh_t_node node) ...@@ -14957,7 +14973,7 @@ int gcg_comp_m58( gcg_ctx gcgctx, vldh_t_node node)
free( (char *)template_time); free( (char *)template_time);
/* Print the code */ /* Print the code */
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -15309,7 +15325,7 @@ int gcg_comp_m59( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15309,7 +15325,7 @@ int gcg_comp_m59( gcg_ctx gcgctx, vldh_t_node node)
free((char *) bodydef ); free((char *) bodydef );
/* Insert object in ref list */ /* Insert object in ref list */
gcg_ref_insert( gcgctx, host_objid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, host_objid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -15376,7 +15392,7 @@ int gcg_comp_m60( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15376,7 +15392,7 @@ int gcg_comp_m60( gcg_ctx gcgctx, vldh_t_node node)
if ( EVEN(sts)) return sts; if ( EVEN(sts)) return sts;
/* Insert object in ref list */ /* Insert object in ref list */
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -15521,7 +15537,7 @@ int gcg_comp_m62( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15521,7 +15537,7 @@ int gcg_comp_m62( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
...@@ -15668,9 +15684,9 @@ int gcg_comp_m63( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15668,9 +15684,9 @@ int gcg_comp_m63( gcg_ctx gcgctx, vldh_t_node node)
} }
/* Insert object in ref list */ /* Insert object in ref list */
gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF); gcg_aref_insert( gcgctx, refattrref, GCG_PREFIX_REF, node);
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
if( EVEN(sts)) return sts; if( EVEN(sts)) return sts;
...@@ -15804,7 +15820,7 @@ int gcg_comp_m64( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15804,7 +15820,7 @@ int gcg_comp_m64( gcg_ctx gcgctx, vldh_t_node node)
return GSX__NEXTNODE; return GSX__NEXTNODE;
} }
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get name for this class */ /* Get name for this class */
sts = gcg_get_structname( gcgctx, node->ln.oid, &name); sts = gcg_get_structname( gcgctx, node->ln.oid, &name);
...@@ -15873,7 +15889,7 @@ int gcg_comp_m65( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15873,7 +15889,7 @@ int gcg_comp_m65( gcg_ctx gcgctx, vldh_t_node node)
return GSX__NEXTNODE; return GSX__NEXTNODE;
} }
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF); sts = gcg_print_exec_macro( gcgctx, node, node->ln.oid, GCG_PREFIX_REF);
if (EVEN(sts)) return sts; if (EVEN(sts)) return sts;
...@@ -15934,7 +15950,7 @@ int gcg_comp_m66( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15934,7 +15950,7 @@ int gcg_comp_m66( gcg_ctx gcgctx, vldh_t_node node)
ldhses = (node->hn.wind)->hw.ldhses; ldhses = (node->hn.wind)->hw.ldhses;
sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF); sts = gcg_ref_insert( gcgctx, node->ln.oid, GCG_PREFIX_REF, node);
/* Get the attrref of the referenced io object stored in the /* Get the attrref of the referenced io object stored in the
first parameter in defbody */ first parameter in defbody */
...@@ -15997,7 +16013,7 @@ int gcg_comp_m66( gcg_ctx gcgctx, vldh_t_node node) ...@@ -15997,7 +16013,7 @@ int gcg_comp_m66( gcg_ctx gcgctx, vldh_t_node node)
aname); aname);
/* Insert object in ref list */ /* Insert object in ref list */
gcg_ref_insert( gcgctx, refattrref.Objid, GCG_PREFIX_REF); gcg_ref_insert( gcgctx, refattrref.Objid, GCG_PREFIX_REF, node);
return GSX__SUCCESS; return GSX__SUCCESS;
} }
......
wb/lib/wb/src/wb_gcg.h
View file @ 91243a2c
...@@ -147,11 +147,13 @@ typedef struct { ...@@ -147,11 +147,13 @@ typedef struct {
typedef struct { typedef struct {
pwr_tObjid objdid; pwr_tObjid objdid;
char prefix; char prefix;
vldh_t_node node;
} gcg_t_reflist; } gcg_t_reflist;
typedef struct { typedef struct {
pwr_sAttrRef attrref; pwr_sAttrRef attrref;
char prefix; char prefix;
vldh_t_node node;
} gcg_t_areflist; } gcg_t_areflist;
typedef struct { typedef struct {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7