dcpu16

commit e17e42ddf7769fd310a7d2decb9c2bdfe1779fa1
parent 3982443b346c6cf5fba7b34e24a805a05304cb07
Author: = <david.e.shere@gmail.com>
Date:   Fri,  6 Apr 2012 15:13:03 -0700

added support for underscore in label names

Diffstat:
M
assembler.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/assembler.c b/assembler.c
@@ -187,11 +187,11 @@ nextline:
 			tnumber = strtoul(lineptr-1, &lineptr, 0);
 			return tNUMBER;
 		}
-		if (isalpha(c)) {
+		if (isalpha(c) || c == '_') {
 			int n;
 			char *x = tstring;
 			lineptr--;
-			while (isalnum(*lineptr))
+			while (isalnum(*lineptr) || *lineptr == '_')
 				*x++ = tolower(*lineptr++);
 			*x = 0;
 			for (n = 0; n <= LASTKEYWORD; n++)