--- parser3/src/main/pa_exception.C	2015/10/26 01:21:58	1.53
+++ parser3/src/main/pa_exception.C	2021/11/09 14:45:07	1.58
@@ -1,7 +1,7 @@
 /** @file
 	Parser: exception class.
 
-	Copyright (c) 2001-2015 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2020 Art. Lebedev Studio (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
@@ -10,16 +10,18 @@
 #include "pa_sapi.h"
 #include "pa_globals.h"
 
-volatile const char * IDENT_PA_EXCEPTION_C="$Id: pa_exception.C,v 1.53 2015/10/26 01:21:58 moko Exp $" IDENT_PA_EXCEPTION_H;
+volatile const char * IDENT_PA_EXCEPTION_C="$Id: pa_exception.C,v 1.58 2021/11/09 14:45:07 moko Exp $" IDENT_PA_EXCEPTION_H;
 
 // methods
 
 Exception::Exception(): ftype(0), fproblem_source(0), fcomment(0) {}
+
 Exception::Exception(const Exception& src):
 	ftype(src.ftype),
 	fproblem_source(src.fproblem_source),
 	fcomment(src.fcomment) {
 }
+
 Exception& Exception::operator =(const Exception& src) {
 	ftype=src.ftype;
 	fproblem_source=src.fproblem_source;
@@ -27,22 +29,31 @@ Exception& Exception::operator =(const E
 	return *this;
 }
 
-Exception::Exception(const char* atype, 
-			const String* aproblem_source, 
-			const char* comment_fmt, ...) {
+Exception::Exception(const char* atype, const String* aproblem_source, const char* comment_fmt, ...) {
 	ftype=atype;
 	fproblem_source=aproblem_source ? new String(*aproblem_source) : 0;
 
-	if(comment_fmt) {
-		fcomment=new(PointerFreeGC) char[MAX_STRING];
+	if(!comment_fmt) {
+		fcomment=0;
+	} else if (!strcmp(comment_fmt, "%s")) { // to avoid MAX_STRING limit
 		va_list args;
 		va_start(args, comment_fmt);
-		vsnprintf((char *)fcomment, MAX_STRING, comment_fmt, args);
+		fcomment=va_arg(args, const char *);
 		va_end(args);
-	} else
-		fcomment=0;
+	} else {
+		char comment[MAX_STRING];
+		va_list args;
+		va_start(args, comment_fmt);
+		fcomment=pa_strdup(comment, vsnprintf(comment, MAX_STRING, comment_fmt, args));
+		va_end(args);
+	}
+}
+
+void Exception::add_comment(const char* acomment) {
+	if(acomment)
+		fcomment=pa_strcat(fcomment, acomment);
 }
 
-const String* Exception::problem_source() const { 
-	return fproblem_source && !fproblem_source->is_empty()?fproblem_source:0; 
+const String* Exception::problem_source() const {
+	return fproblem_source && !fproblem_source->is_empty() ? fproblem_source : 0;
 }