--- parser3/src/main/pa_exception.C	2002/02/08 08:30:16	1.38
+++ parser3/src/main/pa_exception.C	2002/08/01 11:26:50	1.41
@@ -3,30 +3,33 @@
 
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
-
-	$Id: pa_exception.C,v 1.38 2002/02/08 08:30:16 paf Exp $
 */
 
+static const char* IDENT_EXCEPTION_C="$Id: pa_exception.C,v 1.41 2002/08/01 11:26:50 paf Exp $";
+
 #include "pa_common.h"
 #include "pa_exception.h"
 #include "pa_globals.h"
+#include "pa_sapi.h"
 
 Exception::Exception() {
-	ftype=fcode=fproblem_source=0;
+	ftype=0;
+	fproblem_source=0;
 	owns_comment=false; fcomment=0;
 }
-Exception::Exception(const String *atype, const String *acode,
+Exception::Exception(const char *atype, 
 					  const String *aproblem_source, 
 					  const char *comment_fmt, ...) {
 	//_asm int 3;
 //__asm__("int3");
 	ftype=atype;
-	fcode=acode;
 	fproblem_source=aproblem_source;
 	owns_comment=true;
 
 	if(comment_fmt) {
 		fcomment=(char *)malloc(MAX_STRING);
+		if(!fcomment)
+			SAPI::die("out of memory in 'Exception::Exception', failed to allocated %u bytes", MAX_STRING);
 		va_list args;
 		va_start(args, comment_fmt);
 		vsnprintf(fcomment, MAX_STRING, comment_fmt, args);
@@ -36,7 +39,6 @@ Exception::Exception(const String *atype
 }
 Exception::Exception(const Exception& src) : 
 	ftype(src.ftype),
-	fcode(src.fcode),
 	fproblem_source(src.fproblem_source),
 	fcomment(src.fcomment),
 	owns_comment(src.owns_comment) {
@@ -45,7 +47,6 @@ Exception::Exception(const Exception& sr
 }
 Exception& Exception::operator =(const Exception& src) {
 	ftype=src.ftype;
-	fcode=src.fcode;
 	fproblem_source=src.fproblem_source;
 
 	if(owns_comment)
@@ -63,11 +64,9 @@ Exception::~Exception() {
 
 #ifdef XML
 Exception::Exception(
-	const String *atype, const String *acode,
 	const String *aproblem_source, 
 	GdomeException& exc) :
-	ftype(atype),
-	fcode(acode),
+	ftype("xml"),
 	fproblem_source(aproblem_source),
 	owns_comment(true) {