Mercurial > hg > index.cgi
comparison lwasm/pragma.c @ 462:da72c084e0ac
Add some more debugging junk.
author | William Astle <lost@l-w.ca> |
---|---|
date | Wed, 28 Feb 2018 22:40:07 -0700 |
parents | cad5937314cb |
children | e97f9a302c6a |
comparison
equal
deleted
inserted
replaced
461:c8d4f3486ad7 | 462:da72c084e0ac |
---|---|
108 while (np) | 108 while (np) |
109 { | 109 { |
110 p = lw_token(np, ',', &np); | 110 p = lw_token(np, ',', &np); |
111 debug_message(as, 200, "Setting/resetting pragma %s", p); | 111 debug_message(as, 200, "Setting/resetting pragma %s", p); |
112 pragma = parse_pragma_helper(p); | 112 pragma = parse_pragma_helper(p); |
113 debug_message(as, 200, "Got pragma code %08X", pragma); | |
113 lw_free(p); | 114 lw_free(p); |
114 | 115 |
115 if (pragma == 0 && !ignoreerr) | 116 if (pragma == 0 && !ignoreerr) |
116 return 0; | 117 return 0; |
117 | 118 |
118 if (pragma & PRAGMA_CLEARBIT) | 119 if (pragma & PRAGMA_CLEARBIT) |
119 as->pragmas &= ~pragma; | 120 as->pragmas &= ~pragma; |
120 else | 121 else |
121 as->pragmas |= pragma; | 122 as->pragmas |= pragma; |
123 | |
124 debug_message(as, 200, "New pragma state: %08X", as -> pragmas); | |
122 } | 125 } |
123 return 1; | 126 return 1; |
124 } | 127 } |
125 | 128 |
126 PARSEFUNC(pseudo_parse_pragma) | 129 PARSEFUNC(pseudo_parse_pragma) |