// Test exceptions that add data but no functionality.

#include <fstream.hfa>

exception paired {
	int first;
	int second;
};

vtable(paired) paired_vt;

const char * virtual_msg(paired * this) {
	return this->virtual_table->msg(this);
}

int main(int argc, char * argv[]) {
	paired except = {&paired_vt, 3, 13};

	try {
		throw except;
	} catch (paired * exc) {
		sout | virtual_msg(exc) | '(' | exc->first | ", " | exc->second | ')';
		++exc->first;
	}

	sout | virtual_msg(&except) | '(' | except.first | ", " | except.second | ')';

	try {
		throwResume except;
	} catchResume (paired * exc) {
		sout | virtual_msg(exc) | '(' | exc->first | ", " | exc->second | ')';
		++exc->first;
	}

	sout | virtual_msg(&except) | '(' | except.first | ", " | except.second | ')';
}