# HG changeset patch
# User lost@l-w.ca
# Date 1302070321 21600
# Node ID 337301ddf74adbc5c1c8ba302d703ab92c8a7236
# Parent  bad2ee25acdd51c06f2f759dd52bf5fcdf2c95be
Fixed error with pragma and *pragma directives

diff -r bad2ee25acdd -r 337301ddf74a lwasm/pragma.c
--- a/lwasm/pragma.c	Tue Apr 05 23:59:41 2011 -0600
+++ b/lwasm/pragma.c	Wed Apr 06 00:12:01 2011 -0600
@@ -106,6 +106,8 @@
 	
 	ps = lw_strndup(*p, t - *p);
 	*p = t;
+	
+	l -> len = 0;
 
 	if (parse_pragma_string(as, ps, 0) == 0)
 	{
@@ -124,6 +126,8 @@
 	ps = lw_strndup(*p, t - *p);
 	*p = t;
 
+	l -> len = 0;
+	
 	// *pragma must NEVER throw an error
 	parse_pragma_string(as, ps, 1);
 	lw_free(ps);