Mercurial > hg > index.cgi
diff lwasm/pragma.c @ 110:38c1537857ce
Pragma stack at parse stage now works
author | lost@l-w.ca |
---|---|
date | Sun, 07 Aug 2011 10:37:22 -0600 |
parents | 9960e05cbe3a |
children | 344cfc25afec |
line wrap: on
line diff
--- a/lwasm/pragma.c Sun Aug 07 10:23:14 2011 -0600 +++ b/lwasm/pragma.c Sun Aug 07 10:37:22 2011 -0600 @@ -137,7 +137,7 @@ { int flag = *((int *)d); struct pragma_stack_entry *pse = (struct pragma_stack_entry *)e; - + if (pse -> flag == flag) return 1; return 0; @@ -172,6 +172,7 @@ pse = (struct pragma_stack_entry *)input_stack_pop(as, 0x42424242, pragma_stack_compare, (void *)&(set_pragmas[i].flag)); if (pse) { + debug_message(as, 100, "Popped pragma string %s", pse->str); parse_pragma_string(as, (char *)&(pse->str), 1); lw_free(pse); } @@ -227,6 +228,8 @@ pse -> flag = set_pragmas[i].flag; pse -> magic = 0x42424242; strcpy((char *)&(pse -> str), t); + debug_message(as, 100, "Pushed pragma string %s", pse->str); + input_stack_push(as, (input_stack_entry *)pse); if (set_pragmas[i].flag == PRAGMA_NOLIST)