[agd-cvs] server/src lex.l,1.16,1.17

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22357

Modified Files:
	lex.l 
Log Message:
__VERSION__ and __ARCH__ now do stringdup.

Index: lex.l
===================================================================
RCS file: /cvsroot/agd/server/src/lex.l,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- lex.l	8 Jun 2004 20:44:53 -0000	1.16
+++ lex.l	14 Jun 2004 20:56:56 -0000	1.17
@@ -72,7 +72,7 @@
 			*string_buf_ptr = '\0';
 			yylval.str = stringdup(string_buf);
 			BEGIN(INITIAL);
-			RET(s, string_buf, L_STRING);
+			RET(s, yylval.str, L_STRING);
 		}
 	[ ]	STRING_PUTWHITESPACE(1);
 	\t	STRING_PUTWHITESPACE(8);
@@ -186,11 +186,11 @@
 
  /* fake preprocessor macros */
 "__VERSION__"	{
-					yylval.str = PACKAGE_VERSION;
+					yylval.str = stringdup(PACKAGE_VERSION);
 					RET(s, "__VERSION__", L_STRING);
 				}
 "__ARCH__"		{
-					yylval.str = PLATFORM;
+					yylval.str = stringdup(PLATFORM);
 					RET(s, "__ARCH__", L_STRING);
 				}