# HG changeset patch
# User Lost Wizard (lost@starbug3)
# Date 1306372839 21600
# Node ID adf4ce03a6a3450a40c2d875fcd6809170ae0224
# Parent  428068681cbf2260f93b8159ac9f44bb75813417
Made pragma nolist suppress listing symbols defined under the pragma when listing the symbol table

diff -r 428068681cbf -r adf4ce03a6a3 lwasm/symbol.c
--- a/lwasm/symbol.c	Wed May 25 19:13:33 2011 -0600
+++ b/lwasm/symbol.c	Wed May 25 19:20:39 2011 -0600
@@ -160,6 +160,10 @@
 	se -> context = context;
 	se -> version = version;
 	se -> flags = flags;
+	if (CURPRAGMA(cl, PRAGMA_NOLIST))
+	{
+		se -> flags |= symbol_flag_nolist;
+	}
 	se -> value = lw_expr_copy(val);
 	se -> symbol = lw_strdup(sym);
 	se -> section = cl -> csect;
@@ -273,6 +277,8 @@
 	
 	for (s = as -> symtab.head; s; s = s -> next)
 	{
+		if (s -> flags & symbol_flag_nolist)
+			continue;
 		lwasm_reduce_expr(as, s -> value);
 		fputc('[', of);
 		if (s -> flags & symbol_flag_set)