X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;ds=sidebyside;f=gedcom%2Fgedcom_lex_common.c;h=045cea22d3ba46e2bb3c64500efafe5c784263d1;hb=0d11e282c6948aad8f0d15eb86020eabfd5a59ba;hp=0a01f150596f26e2666b6237b17c92613edfb1a8;hpb=f67a61e4c54034200a30b1dcf3dcb90919562f2f;p=gedcom-parse.git

diff --git a/gedcom/gedcom_lex_common.c b/gedcom/gedcom_lex_common.c
index 0a01f15..045cea2 100644
--- a/gedcom/gedcom_lex_common.c
+++ b/gedcom/gedcom_lex_common.c
@@ -51,7 +51,7 @@ void message_handler(Gedcom_msg_type type, char *msg)
   fprintf(stderr, "(%d) %s\n", type, msg);
 }
 
-int test_loop(ENCODING enc, char* code)
+int test_loop(ENCODING enc, const char* code)
 {
   int tok, res;
   init_encodings();
@@ -109,18 +109,18 @@ static void error_level_too_high(int level_diff)
 		level_diff); 
 }
 
-static void error_tag_too_long(char *tag)
+static void error_tag_too_long(const char *tag)
 {
   gedcom_error(_("Tag '%s' too long, max %d characters allowed"),
 	       tag, MAXGEDCTAGLEN); 
 }
 
-static void error_invalid_character(char *str, char ch)
+static void error_invalid_character(const char *str, char ch)
 {
   gedcom_error(_("Invalid character for encoding: '%s' (0x%02x)"), str, ch); 
 }
 
-static void error_pointer_too_long(char *ptr)
+static void error_pointer_too_long(const char *ptr)
 {
   gedcom_error(_("Pointer '%s' too long, max %d characters allowed"),
 	       ptr, MAXGEDCPTRLEN);
@@ -131,11 +131,18 @@ static void error_at_character()
   gedcom_error(_("'@' character should be written as '@@' in values"));
 }
 
-static void error_unexpected_character(char* str, char ch)
+static void error_unexpected_character(const char* str, char ch)
 {
   gedcom_error(_("Unexpected character: '%s' (0x%02x)"), str, ch);
 }
 
+static void yylex_cleanup()
+{
+  /* fix memory leak in lex */
+  yy_delete_buffer(yy_current_buffer);
+  yy_current_buffer = NULL;
+}
+
 #else  /* of #ifndef IN_LEX */
 
 #define TO_INTERNAL(STR,OUTBUF) \