From: Peter Verthez <Peter.Verthez@advalvas.be>
Date: Sat, 25 Jan 2003 18:43:38 +0000 (+0000)
Subject: Bugfix in compatibility for address.
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=7f9f08f35165fa871685217ac535255d46664294;p=gedcom-parse.git

Bugfix in compatibility for address.
---

diff --git a/gedcom/gedcom.y b/gedcom/gedcom.y
index 2b52293..f03280f 100644
--- a/gedcom/gedcom.y
+++ b/gedcom/gedcom.y
@@ -1234,6 +1234,8 @@ indi_addr_sect : OPEN DELIM TAG_ADDR opt_line_item
 			= start_element(ELT_SUB_ADDR,
 					par, $1 + 1, $3, $4,
 					GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
+		      reset_buffer(&concat_buffer);
+		      safe_buf_append(&concat_buffer, $4);
 		      START(ADDR, $1 + 1, $<ctxt>$);
 		    }
 		  else { START(ADDR, $1, NULL) }
@@ -1243,8 +1245,9 @@ indi_addr_sect : OPEN DELIM TAG_ADDR opt_line_item
                   CLOSE
                   { if (compat_mode(C_INDI_ADDR)) {
 		      Gedcom_ctxt par = PARENT;
+		      char* complete = get_buf_string(&concat_buffer);
 		      end_element(ELT_SUB_ADDR, par, $<ctxt>5,
-				  GEDCOM_MAKE_NULL(val1));
+				  GEDCOM_MAKE_STRING(val1, complete));
 		      CHECK0;
 		      compat_generate_resi_end(PARENT, par);
 		    }