--- a/src/lwasm.c	Sat Jan 03 04:20:49 2009 +0000
+++ b/src/lwasm.c	Sat Jan 03 04:53:49 2009 +0000
@@ -31,6 +31,8 @@
 #include "util.h"
 #include "expr.h"
 
+int debug_level = 0;
+
 int register_error(asmstate_t *as, lwasm_line_t *l, int pass, const char *fmt, ...)
 {
 	lwasm_error_t *e;
@@ -179,5 +181,21 @@
 	st.as = as;
 	st.l = l;
 	
+	debug_message(2, "Evaluate expression: %s", inp);
+	
 	return(lwasm_expr_eval(inp, outp, lwasm_expr_lookup_symbol, &st));
 }
+
+void debug_message(int level, const char *fmt, ...)
+{
+	va_list args;
+	
+	va_start(args, fmt);
+	if (debug_level >= level)
+	{
+		fprintf(stderr, "DEBUG %d: ", level);
+		vfprintf(stderr, fmt, args);
+		fputc('\n', stderr);
+	}
+	va_end(args);
+}