From: Peter Johnson <peter@tortall.net>
Date: Sun, 20 May 2001 08:39:48 +0000 (-0000)
Subject: Fixed regex match for DIRECTIVE_VAL.
X-Git-Tag: v0.1.0~494
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=4c34b9b6d7af9044af3bb1d295140f4a6cce9cad;p=yasm

Fixed regex match for DIRECTIVE_VAL.

svn path=/trunk/yasm/; revision=17
---

diff --git a/modules/parsers/nasm/token.l.in b/modules/parsers/nasm/token.l.in
index cafa6ba9..0ab8de9d 100644
--- a/modules/parsers/nasm/token.l.in
+++ b/modules/parsers/nasm/token.l.in
@@ -1,4 +1,4 @@
-/* $Id: token.l.in,v 1.2 2001/05/20 08:35:18 peter Exp $
+/* $Id: token.l.in,v 1.3 2001/05/20 08:39:48 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -94,7 +94,7 @@ WS       [ \t\r]
     return DIRECTIVE_NAME;
 }
     /* everything printable except for ' ', '[' and ']'. */
-<DIRECTIVE2>[!-Z\^-~]+ {
+<DIRECTIVE2>[!-@a-z\\^-`{|}~]+ {
     yylval.str_val = strdup(yytext);
     if(!yylval.str_val)
 	Fatal(FATAL_NOMEM);
diff --git a/src/parsers/nasm/token.l.in b/src/parsers/nasm/token.l.in
index cafa6ba9..0ab8de9d 100644
--- a/src/parsers/nasm/token.l.in
+++ b/src/parsers/nasm/token.l.in
@@ -1,4 +1,4 @@
-/* $Id: token.l.in,v 1.2 2001/05/20 08:35:18 peter Exp $
+/* $Id: token.l.in,v 1.3 2001/05/20 08:39:48 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -94,7 +94,7 @@ WS       [ \t\r]
     return DIRECTIVE_NAME;
 }
     /* everything printable except for ' ', '[' and ']'. */
-<DIRECTIVE2>[!-Z\^-~]+ {
+<DIRECTIVE2>[!-@a-z\\^-`{|}~]+ {
     yylval.str_val = strdup(yytext);
     if(!yylval.str_val)
 	Fatal(FATAL_NOMEM);
diff --git a/src/token.l b/src/token.l
index 2c0ff312..f374a8d3 100644
--- a/src/token.l
+++ b/src/token.l
@@ -1,4 +1,4 @@
-/* $Id: token.l,v 1.2 2001/05/20 08:35:18 peter Exp $
+/* $Id: token.l,v 1.3 2001/05/20 08:39:48 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -94,7 +94,7 @@ WS       [ \t\r]
     return DIRECTIVE_NAME;
 }
     /* everything printable except for ' ', '[' and ']'. */
-<DIRECTIVE2>[!-Z\^-~]+ {
+<DIRECTIVE2>[!-@a-z\\^-`{|}~]+ {
     yylval.str_val = strdup(yytext);
     if(!yylval.str_val)
 	Fatal(FATAL_NOMEM);
diff --git a/src/token.l.in b/src/token.l.in
index cafa6ba9..0ab8de9d 100644
--- a/src/token.l.in
+++ b/src/token.l.in
@@ -1,4 +1,4 @@
-/* $Id: token.l.in,v 1.2 2001/05/20 08:35:18 peter Exp $
+/* $Id: token.l.in,v 1.3 2001/05/20 08:39:48 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -94,7 +94,7 @@ WS       [ \t\r]
     return DIRECTIVE_NAME;
 }
     /* everything printable except for ' ', '[' and ']'. */
-<DIRECTIVE2>[!-Z\^-~]+ {
+<DIRECTIVE2>[!-@a-z\\^-`{|}~]+ {
     yylval.str_val = strdup(yytext);
     if(!yylval.str_val)
 	Fatal(FATAL_NOMEM);