Fix crash in "no non-local label before `%s'" warning (misuse of s.tok).

Add testcase for this warning while we're at it.

svn path=/trunk/yasm/; revision=952

modules/parsers/nasm/nasm-token.re

@@ -27,7 +27,7 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 #include <util.h>
-RCSID("$IdPath: yasm/modules/parsers/nasm/nasm-token.re,v 1.20 2003/03/31 05:36:30 peter Exp $");
+RCSID("$IdPath$");
 
 #define YASM_LIB_INTERNAL
 #include <libyasm.h>
@@ -356,9 +356,10 @@ scan:
 		yylval.str_val = yasm__xstrndup(s.tok, TOKLEN);
 		RETURN(ID);
 	    } else if (!nasm_parser_locallabel_base) {
-		yasm__warning(YASM_WARN_GENERAL, cur_lindex,
-			      N_("no non-local label before `%s'"), s.tok[0]);
 		yylval.str_val = yasm__xstrndup(s.tok, TOKLEN);
+		yasm__warning(YASM_WARN_GENERAL, cur_lindex,
+			      N_("no non-local label before `%s'"),
+			      yylval.str_val);
 	    } else {
 		len = TOKLEN + nasm_parser_locallabel_base_len;
 		yylval.str_val = yasm_xmalloc(len + 1);

modules/parsers/nasm/tests/Makefile.inc

@@ -10,4 +10,7 @@ EXTRA_DIST += \
 	modules/parsers/nasm/tests/equlocal.hex		\
 	modules/parsers/nasm/tests/newsect.asm		\
 	modules/parsers/nasm/tests/newsect.errwarn	\
-	modules/parsers/nasm/tests/newsect.hex
+	modules/parsers/nasm/tests/newsect.hex		\
+	modules/parsers/nasm/tests/prevlocalwarn.asm	\
+	modules/parsers/nasm/tests/prevlocalwarn.errwarn \
+	modules/parsers/nasm/tests/prevlocalwarn.hex

modules/parsers/nasm/tests/prevlocalwarn.asm

@@ -0,0 +1,5 @@
+[bits 16]
+[section .text]
+
+.local:
+	xor ax, ax

modules/parsers/nasm/tests/prevlocalwarn.errwarn

@@ -0,0 +1 @@
+-:4: warning: no non-local label before `.local'

modules/parsers/nasm/tests/prevlocalwarn.hex

@@ -0,0 +1,2 @@
+31 
+c0