Allow whitespace before a directive.

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

diff --git a/modules/parsers/nasm/token.l.in b/modules/parsers/nasm/token.l.in
index 137c596eaebda22a6d63c7dfd586201ab8cca2b5..6e2c49bcca6ae55d6ff219306b967b024f181e44 100644 (file)
--- a/modules/parsers/nasm/token.l.in
+++ b/modules/parsers/nasm/token.l.in
@@ -1,4 +1,4 @@
-/* $Id: token.l.in,v 1.16 2001/08/30 03:45:26 peter Exp $
+/* $Id: token.l.in,v 1.17 2001/09/16 17:27:56 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -42,7 +42,7 @@
 
 #include "bison.h"
 
-RCSID("$Id: token.l.in,v 1.16 2001/08/30 03:45:26 peter Exp $");
+RCSID("$Id: token.l.in,v 1.17 2001/09/16 17:27:56 peter Exp $");
 
 #define yylval nasm_parser_lval
 
@@ -147,7 +147,7 @@ WS       [ \t\r]
 }
 
     /* directive: [name value] */
-^"["   { BEGIN DIRECTIVE; return '['; }
+^{WS}*"["          { BEGIN DIRECTIVE; return '['; }
 <DIRECTIVE>"]"     { BEGIN INITIAL; return ']'; }
 <DIRECTIVE2>"]"            { BEGIN INITIAL; return ']'; }
 <DIRECTIVE>\n      { BEGIN INITIAL; return '\n'; }

diff --git a/src/parsers/nasm/token.l.in b/src/parsers/nasm/token.l.in
index 137c596eaebda22a6d63c7dfd586201ab8cca2b5..6e2c49bcca6ae55d6ff219306b967b024f181e44 100644 (file)
--- a/src/parsers/nasm/token.l.in
+++ b/src/parsers/nasm/token.l.in
@@ -1,4 +1,4 @@
-/* $Id: token.l.in,v 1.16 2001/08/30 03:45:26 peter Exp $
+/* $Id: token.l.in,v 1.17 2001/09/16 17:27:56 peter Exp $
  * Main lexer
  *
  *  Copyright (C) 2001  Peter Johnson
@@ -42,7 +42,7 @@
 
 #include "bison.h"
 
-RCSID("$Id: token.l.in,v 1.16 2001/08/30 03:45:26 peter Exp $");
+RCSID("$Id: token.l.in,v 1.17 2001/09/16 17:27:56 peter Exp $");
 
 #define yylval nasm_parser_lval
 
@@ -147,7 +147,7 @@ WS       [ \t\r]
 }
 
     /* directive: [name value] */
-^"["   { BEGIN DIRECTIVE; return '['; }
+^{WS}*"["          { BEGIN DIRECTIVE; return '['; }
 <DIRECTIVE>"]"     { BEGIN INITIAL; return ']'; }
 <DIRECTIVE2>"]"            { BEGIN INITIAL; return ']'; }
 <DIRECTIVE>\n      { BEGIN INITIAL; return '\n'; }