- { Gedcom_ctxt par = compat_generate_resi_start(PARENT);
- START(RESI, par);
- $<ctxt>$
- = start_element(ELT_SUB_ADDR,
- par, $1 + 1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
- START(ADDR, $<ctxt>$)
+ { if (compat_mode(C_FTREE)) {
+ Gedcom_ctxt par = compat_generate_resi_start(PARENT);
+ START(RESI, par);
+ $<ctxt>$
+ = start_element(ELT_SUB_ADDR,
+ par, $1 + 1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
+ START(ADDR, $<ctxt>$);
+ }
+ else { START(ADDR, NULL) }