Mercurial > hg-old > index.cgi
annotate lwasm/lwasm.h @ 370:6b33faa21a0a
Debugging output and bugfixing pass 0
| author | lost@starbug |
|---|---|
| date | Tue, 20 Apr 2010 21:59:58 -0600 |
| parents | 34dfc9747f23 |
| children | 90de73ba0cac |
| rev | line source |
|---|---|
| 323 | 1 /* |
| 2 lwasm.h | |
| 3 | |
| 4 Copyright © 2010 William Astle | |
| 5 | |
| 6 This file is part of LWTOOLS. | |
| 7 | |
| 8 LWTOOLS is free software: you can redistribute it and/or modify it under the | |
| 9 terms of the GNU General Public License as published by the Free Software | |
| 10 Foundation, either version 3 of the License, or (at your option) any later | |
| 11 version. | |
| 12 | |
| 13 This program is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
| 16 more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License along with | |
| 19 this program. If not, see <http://www.gnu.org/licenses/>. | |
| 20 */ | |
| 21 | |
| 22 #ifndef ___lwasm_h_seen___ | |
| 23 #define ___lwasm_h_seen___ | |
| 24 | |
| 337 | 25 #include <lw_expr.h> |
| 324 | 26 #include <lw_stringlist.h> |
| 329 | 27 #include <lw_stack.h> |
| 324 | 28 |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
29 |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
30 // these are allowed chars BELOW 0x80 for symbols |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
31 // first is symbol start chars, second is anywhere in symbol |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
32 #define SSYMCHARS "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_@$" |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
33 #define SYMCHARS SSYMCHARS ".?0123456789" |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
34 |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
35 typedef struct asmstate_s asmstate_t; |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
36 |
| 337 | 37 enum |
| 38 { | |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
39 lwasm_expr_linelen = 1, // length of ref'd line |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
40 lwasm_expr_lineaddr = 2, // addr of ref'd line |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
41 lwasm_expr_nextbp = 3, // next branch point |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
42 lwasm_expr_prevbp = 4, // previous branch point |
|
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
43 lwasm_expr_syment = 5, // symbol table entry |
| 367 | 44 lwasm_expr_import = 6, // symbol import entry |
| 45 lwasm_expr_secbase = 7 // section base address | |
| 337 | 46 }; |
| 47 | |
| 323 | 48 enum lwasm_output_e |
| 49 { | |
| 50 OUTPUT_DECB = 0, // DECB multirecord format | |
| 51 OUTPUT_RAW, // raw sequence of bytes | |
| 52 OUTPUT_OBJ, // proprietary object file format | |
| 53 OUTPUT_RAWREL, // raw bytes where ORG causes a SEEK in the file | |
| 54 OUTPUT_OS9 // os9 module target | |
| 55 }; | |
| 56 | |
| 57 enum lwasm_target_e | |
| 58 { | |
| 59 TARGET_6309 = 0, // target 6309 CPU | |
| 60 TARGET_6809 // target 6809 CPU (no 6309 ops) | |
| 61 }; | |
| 62 | |
| 325 | 63 enum lwasm_flags_e |
| 64 { | |
| 65 FLAG_NONE = 0, | |
| 66 FLAG_LIST = 0x0001, | |
| 67 FLAG_DEPEND = 0x0002 | |
| 68 }; | |
| 69 | |
| 70 enum lwasm_pragmas_e | |
| 71 { | |
| 72 PRAGMA_NONE = 0, // no pragmas in effect | |
| 73 PRAGMA_DOLLARNOTLOCAL = 0x0001, // dollar sign does not make a symbol local | |
| 74 PRAGMA_NOINDEX0TONONE = 0x0002, // do not change implicit 0,R to ,R | |
| 75 PRAGMA_UNDEFEXTERN = 0x0004, // undefined symbols are considered to be external | |
| 76 PRAGMA_CESCAPES = 0x0008, // allow C style escapes in fcc, fcs, fcn, etc. | |
| 77 PRAGMA_IMPORTUNDEFEXPORT = 0x0010 // imports symbol if undefined upon export | |
| 78 }; | |
| 79 | |
| 354 | 80 |
| 81 enum | |
| 82 { | |
| 83 section_flag_bss = 1, // BSS section | |
| 84 section_flag_none = 0 // no flags | |
| 85 }; | |
| 86 | |
| 87 typedef struct sectiontab_s sectiontab_t; | |
| 88 struct sectiontab_s | |
| 89 { | |
| 90 char *name; // section name | |
| 91 int flags; // section flags; | |
| 92 lw_expr_t offset; // offset for next instance | |
| 93 sectiontab_t *next; | |
| 94 }; | |
| 95 | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
96 typedef struct lwasm_error_s lwasm_error_t; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
97 struct lwasm_error_s |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
98 { |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
99 char *mess; // actual error message |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
100 lwasm_error_t *next; // ptr to next error |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
101 }; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
102 |
| 347 | 103 struct line_expr_s |
| 104 { | |
| 105 lw_expr_t expr; | |
| 106 int id; | |
| 107 struct line_expr_s *next; | |
| 108 }; | |
| 109 | |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
110 typedef struct line_s line_t; |
|
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
111 |
| 356 | 112 typedef struct exportlist_s exportlist_t; |
| 113 struct exportlist_s | |
| 114 { | |
| 115 char *symbol; // symbol to export | |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
116 line_t *line; // line the export is on |
| 356 | 117 exportlist_t *next; // next in the export list |
| 118 }; | |
| 119 | |
| 120 typedef struct importlist_s importlist_t; | |
| 121 struct importlist_s | |
| 122 { | |
| 123 char *symbol; // symbol to import | |
| 124 importlist_t *next; // next in the import list | |
| 125 }; | |
| 126 | |
| 337 | 127 struct line_s |
| 128 { | |
| 129 lw_expr_t addr; // assembly address of the line | |
| 130 int len; // the "size" this line occupies (address space wise) (-1 if unknown) | |
| 131 int insn; // number of insn in insn table | |
| 342 | 132 int symset; // set if the line symbol was consumed by the instruction |
| 340 | 133 char *sym; // symbol, if any, on the line |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
134 unsigned char *output; // output bytes |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
135 int outputl; // size of output |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
136 int outputbl; // size of output buffer |
| 351 | 137 int dpval; // direct page value |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
138 lwasm_error_t *err; // list of errors |
| 351 | 139 lwasm_error_t *warn; // list of errors |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
140 line_t *prev; // previous line |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
141 line_t *next; // next line |
| 354 | 142 int inmod; // inside a module? |
| 143 sectiontab_t *csect; // which section are we in? | |
| 347 | 144 struct line_expr_s *exprs; // expressions used during parsing |
| 349 | 145 char *lstr; // string passed forward |
| 357 | 146 int pb; // pass forward post byte |
| 147 int lint; // pass forward integer | |
| 361 | 148 int lint2; // another pass forward integer |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
149 asmstate_t *as; // assembler state data ptr |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
150 int pragmas; // pragmas in effect for the line |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
151 int context; // the symbol context number |
| 337 | 152 }; |
| 153 | |
| 342 | 154 enum |
| 155 { | |
| 156 symbol_flag_set = 1, // symbol was used with "set" | |
| 157 symbol_flag_none = 0 // no flags | |
| 158 }; | |
| 159 | |
| 160 struct symtabe | |
| 161 { | |
| 162 char *symbol; // the name of the symbol | |
| 163 int context; // symbol context (-1 for global) | |
| 164 int version; // version of the symbol (for "set") | |
| 165 int flags; // flags for the symbol | |
| 166 lw_expr_t value; // symbol value | |
| 167 struct symtabe *next; // next symbol in the table | |
| 168 }; | |
| 169 | |
| 170 typedef struct | |
| 171 { | |
| 172 struct symtabe *head; // start of symbol table | |
| 173 } symtab_t; | |
| 174 | |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
175 typedef struct macrotab_s macrotab_t; |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
176 struct macrotab_s |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
177 { |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
178 char *name; // name of macro |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
179 char **lines; // macro lines |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
180 int numlines; // number lines in macro |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
181 macrotab_t *next; // next macro in list |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
182 }; |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
183 struct asmstate_s |
| 323 | 184 { |
| 324 | 185 int output_format; // output format |
| 186 int target; // assembly target | |
| 187 int debug_level; // level of debugging requested | |
| 325 | 188 int flags; // assembly flags |
| 189 int pragmas; // pragmas currently in effect | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
190 int errorcount; // number of errors encountered |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
191 int inmacro; // are we in a macro? |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
192 int skipcond; // skipping a condition? |
| 351 | 193 int skipcount; // depth of "skipping" |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
194 int skipmacro; // are we skipping in a macro? |
| 347 | 195 int endseen; // have we seen an "end" pseudo? |
| 196 int execaddr; // address from "end" | |
| 354 | 197 int inmod; // inside an os9 module? |
| 198 unsigned char crc[3]; // crc accumulator | |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
199 int badsymerr; // throw error on undef sym if set |
| 325 | 200 |
| 337 | 201 line_t *line_head; // start of lines list |
| 202 line_t *line_tail; // tail of lines list | |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
203 |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
204 line_t *cl; // current line pointer |
| 342 | 205 |
| 353 | 206 sectiontab_t *csect; // current section |
| 207 | |
| 342 | 208 int context; // the current "context" |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
209 int nextcontext; // the next available context |
|
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
210 |
| 342 | 211 symtab_t symtab; // meta data for the symbol table |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
212 macrotab_t *macros; // macro table |
| 353 | 213 sectiontab_t *sections; // section table |
| 356 | 214 exportlist_t *exportlist; // list of exported symbols |
| 215 importlist_t *importlist; // list of imported symbols | |
| 325 | 216 char *list_file; // name of file to list to |
| 217 char *output_file; // output file name | |
| 324 | 218 lw_stringlist_t input_files; // files to assemble |
| 330 | 219 void *input_data; // opaque data used by the input system |
| 325 | 220 lw_stringlist_t include_list; // include paths |
| 329 | 221 lw_stack_t file_dir; // stack of the "current file" dir |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
222 }; |
| 323 | 223 |
| 342 | 224 #ifndef ___symbol_c_seen___ |
| 225 | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
226 extern struct symtabe *register_symbol(asmstate_t *as, line_t *cl, char *sym, lw_expr_t value, int flags); |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
227 extern struct symtabe *lookup_symbol(asmstate_t *as, line_t *cl, char *sym); |
| 342 | 228 |
| 229 #endif | |
| 230 | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
231 #ifndef ___lwasm_c_seen___ |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
232 |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
233 extern void lwasm_register_error(asmstate_t *as, line_t *cl, const char *msg, ...); |
| 351 | 234 extern void lwasm_register_warning(asmstate_t *as, line_t *cl, const char *msg, ...); |
|
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
235 extern int lwasm_next_context(asmstate_t *as); |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
236 extern void lwasm_emit(line_t *cl, int byte); |
|
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
237 extern void lwasm_emitop(line_t *cl, int opc); |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
238 |
| 347 | 239 extern void lwasm_save_expr(line_t *cl, int id, lw_expr_t expr); |
| 240 extern lw_expr_t lwasm_fetch_expr(line_t *cl, int id); | |
| 241 extern lw_expr_t lwasm_parse_expr(asmstate_t *as, char **p); | |
| 242 extern int lwasm_emitexpr(line_t *cl, lw_expr_t expr, int s); | |
| 243 | |
| 244 extern void skip_operand(char **p); | |
| 245 | |
| 357 | 246 extern int lwasm_lookupreg2(const char *rlist, char **p); |
| 359 | 247 extern int lwasm_lookupreg3(const char *rlist, char **p); |
| 357 | 248 |
|
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
249 extern void lwasm_show_errors(asmstate_t *as); |
|
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
250 |
|
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
251 extern int lwasm_reduce_expr(asmstate_t *as, lw_expr_t expr); |
|
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
252 |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
253 #endif |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
254 |
|
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
255 #define OPLEN(op) (((op)>0xFF)?2:1) |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
256 #define CURPRAGMA(l,p) (((l)->pragmas & (p)) ? 1 : 0) |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
257 |
| 324 | 258 #endif /* ___lwasm_h_seen___ */ |