fixed a bug and added more test files

git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@346 4df02467-bbd4-4a76-a152-e7ce94205b78

src/acme.c

@@ -363,6 +363,8 @@ static boolean do_actual_work(void)
 		perform_pass();
 		if (--sanity.passes_left < 0) {
 			// FIXME - exit with error
+			//puts("Exceeded maximum number of passes, please check your sources.");
+			//break;
 		}
 	}
 	// any errors left?

src/pseudoopcodes.c

@@ -721,7 +721,19 @@ static enum eos po_pseudopc(void)
 	pseudopc_start(&new_pc);
 	// if there's a block, parse that and then restore old value!
 	if (parse_optional_block()) {
-		pseudopc_end();	// restore old state
+		// restore old state
+		if (pseudopc_isactive()) {
+			pseudopc_end();
+		} else {
+			// calling pseudopc_end() here would create a segfault.
+			// the only way this point can be reached is when the user
+			// a) asked for an older dialect where "*=" disabled "!pseudopc"
+			// and
+			// b) did exactly that in the source.
+			//
+			// ...*or* it is a bug! maybe set a flag in the case above which
+			// can then be checked here, and if it isn't set, call BUG()?
+		}
 	} else {
 		old_offset_assembly();
 	}

src/version.h

@@ -9,7 +9,7 @@
 
 #define RELEASE		"0.97"		// update before release	FIXME
 #define CODENAME	"Zem"		// update before release
-#define CHANGE_DATE	"18 Feb"	// update before release	FIXME
+#define CHANGE_DATE	"19 Feb"	// update before release	FIXME
 #define CHANGE_YEAR	"2024"		// update before release
 //#define HOME_PAGE	"http://home.pages.de/~mac_bacon/smorbrod/acme/"
 #define HOME_PAGE	"http://sourceforge.net/p/acme-crossass/"	// FIXME

testing/auto/unpseudo.a

@@ -2,6 +2,11 @@
 		nop
 	!pseudopc $0300 {
 		nop
-		!if * != $0301 { !error "pseudo pc is not $301" }
+		!if * != $0301 { !error "pseudo pc is not $0301" }
 		!if &* != $1002 { !error "un-pseudo'd pc is not $1002" }
+	*=$0380
+		nop
+		!if * != $0381 { !error "pseudo pc is not $0381" }
+		!if &* != $1082 { !error "un-pseudo'd pc is not $1082" }
 	}
+	!if * != $1082 { !error "pc is not $1082" }

testing/errors/backslash.a

@@ -0,0 +1,2 @@
+	*=$1000
+	!tx "\q"	; -> "Unsupported backslash sequence."

testing/errors/obsolete4.a

@@ -0,0 +1,2 @@
+	!subzone {	; -> ""!subzone {}" is obsolete; use "!zone {}" instead."
+	}