Mercurial > hg-old > index.cgi
annotate lwasm/lwasm.h @ 374:d99322ef6f21
Stage 1: actually do output
author | lost@starbug |
---|---|
date | Sat, 24 Apr 2010 14:15:18 -0600 |
parents | 90de73ba0cac |
children | 3498b2d88376 |
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 | |
374 | 87 typedef struct reloctab_s reloctab_t; |
88 struct reloctab_s | |
89 { | |
90 int offset; // offset of relocation | |
91 int size; // size of relocation | |
92 lw_expr_t *expr; // relocation expression | |
93 reloctab_t *next; | |
94 }; | |
95 | |
354 | 96 typedef struct sectiontab_s sectiontab_t; |
97 struct sectiontab_s | |
98 { | |
99 char *name; // section name | |
100 int flags; // section flags; | |
101 lw_expr_t offset; // offset for next instance | |
374 | 102 int oblen; // size of section output |
103 int obsize; // size of output buffer | |
104 unsigned char *obytes; // output buffer | |
105 reloctab_t *reloctab; // table of relocations | |
354 | 106 sectiontab_t *next; |
107 }; | |
108 | |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
109 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
|
110 struct lwasm_error_s |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
111 { |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
112 char *mess; // actual error message |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
113 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
|
114 }; |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
115 |
347 | 116 struct line_expr_s |
117 { | |
118 lw_expr_t expr; | |
119 int id; | |
120 struct line_expr_s *next; | |
121 }; | |
122 | |
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
123 typedef struct line_s line_t; |
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
124 |
356 | 125 typedef struct exportlist_s exportlist_t; |
126 struct exportlist_s | |
127 { | |
128 char *symbol; // symbol to export | |
374 | 129 struct symtabe *se; // symbol table entry |
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
130 line_t *line; // line the export is on |
356 | 131 exportlist_t *next; // next in the export list |
132 }; | |
133 | |
134 typedef struct importlist_s importlist_t; | |
135 struct importlist_s | |
136 { | |
137 char *symbol; // symbol to import | |
138 importlist_t *next; // next in the import list | |
139 }; | |
140 | |
337 | 141 struct line_s |
142 { | |
143 lw_expr_t addr; // assembly address of the line | |
144 int len; // the "size" this line occupies (address space wise) (-1 if unknown) | |
145 int insn; // number of insn in insn table | |
342 | 146 int symset; // set if the line symbol was consumed by the instruction |
340 | 147 char *sym; // symbol, if any, on the line |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
148 unsigned char *output; // output bytes |
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
149 int outputl; // size of output |
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
150 int outputbl; // size of output buffer |
351 | 151 int dpval; // direct page value |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
152 lwasm_error_t *err; // list of errors |
351 | 153 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
|
154 line_t *prev; // previous line |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
155 line_t *next; // next line |
354 | 156 int inmod; // inside a module? |
157 sectiontab_t *csect; // which section are we in? | |
347 | 158 struct line_expr_s *exprs; // expressions used during parsing |
349 | 159 char *lstr; // string passed forward |
357 | 160 int pb; // pass forward post byte |
161 int lint; // pass forward integer | |
361 | 162 int lint2; // another pass forward integer |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
163 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
|
164 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
|
165 int context; // the symbol context number |
337 | 166 }; |
167 | |
342 | 168 enum |
169 { | |
170 symbol_flag_set = 1, // symbol was used with "set" | |
171 symbol_flag_none = 0 // no flags | |
172 }; | |
173 | |
174 struct symtabe | |
175 { | |
176 char *symbol; // the name of the symbol | |
177 int context; // symbol context (-1 for global) | |
178 int version; // version of the symbol (for "set") | |
179 int flags; // flags for the symbol | |
374 | 180 sectiontab_t *section; // section the symbol is defined in |
342 | 181 lw_expr_t value; // symbol value |
182 struct symtabe *next; // next symbol in the table | |
183 }; | |
184 | |
185 typedef struct | |
186 { | |
187 struct symtabe *head; // start of symbol table | |
188 } symtab_t; | |
189 | |
345
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
190 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
|
191 struct macrotab_s |
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
192 { |
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
193 char *name; // name of macro |
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
194 char **lines; // macro lines |
7416c3f9c321
Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents:
344
diff
changeset
|
195 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
|
196 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
|
197 }; |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
198 struct asmstate_s |
323 | 199 { |
324 | 200 int output_format; // output format |
201 int target; // assembly target | |
202 int debug_level; // level of debugging requested | |
372
90de73ba0cac
Created a useful debug framework and adjusted lw_expr_print() to return a "static" dynamic string
lost@starbug
parents:
367
diff
changeset
|
203 FILE *debug_file; // FILE * to output debug messages to |
325 | 204 int flags; // assembly flags |
205 int pragmas; // pragmas currently in effect | |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
206 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
|
207 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
|
208 int skipcond; // skipping a condition? |
351 | 209 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
|
210 int skipmacro; // are we skipping in a macro? |
347 | 211 int endseen; // have we seen an "end" pseudo? |
212 int execaddr; // address from "end" | |
354 | 213 int inmod; // inside an os9 module? |
214 unsigned char crc[3]; // crc accumulator | |
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
215 int badsymerr; // throw error on undef sym if set |
325 | 216 |
337 | 217 line_t *line_head; // start of lines list |
218 line_t *line_tail; // tail of lines list | |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
219 |
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
220 line_t *cl; // current line pointer |
342 | 221 |
353 | 222 sectiontab_t *csect; // current section |
223 | |
342 | 224 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
|
225 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
|
226 |
342 | 227 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
|
228 macrotab_t *macros; // macro table |
353 | 229 sectiontab_t *sections; // section table |
356 | 230 exportlist_t *exportlist; // list of exported symbols |
231 importlist_t *importlist; // list of imported symbols | |
325 | 232 char *list_file; // name of file to list to |
233 char *output_file; // output file name | |
324 | 234 lw_stringlist_t input_files; // files to assemble |
330 | 235 void *input_data; // opaque data used by the input system |
325 | 236 lw_stringlist_t include_list; // include paths |
329 | 237 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
|
238 }; |
323 | 239 |
342 | 240 #ifndef ___symbol_c_seen___ |
241 | |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
242 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
|
243 extern struct symtabe *lookup_symbol(asmstate_t *as, line_t *cl, char *sym); |
342 | 244 |
245 #endif | |
246 | |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
247 #ifndef ___lwasm_c_seen___ |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
248 |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
249 extern void lwasm_register_error(asmstate_t *as, line_t *cl, const char *msg, ...); |
351 | 250 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
|
251 extern int lwasm_next_context(asmstate_t *as); |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
252 extern void lwasm_emit(line_t *cl, int byte); |
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
253 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
|
254 |
347 | 255 extern void lwasm_save_expr(line_t *cl, int id, lw_expr_t expr); |
256 extern lw_expr_t lwasm_fetch_expr(line_t *cl, int id); | |
257 extern lw_expr_t lwasm_parse_expr(asmstate_t *as, char **p); | |
258 extern int lwasm_emitexpr(line_t *cl, lw_expr_t expr, int s); | |
259 | |
260 extern void skip_operand(char **p); | |
261 | |
357 | 262 extern int lwasm_lookupreg2(const char *rlist, char **p); |
359 | 263 extern int lwasm_lookupreg3(const char *rlist, char **p); |
357 | 264 |
363
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
265 extern void lwasm_show_errors(asmstate_t *as); |
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
266 |
d96c30e60ddf
Added pass2 and various supporting logic including symbol lookups
lost@starbug
parents:
361
diff
changeset
|
267 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
|
268 |
372
90de73ba0cac
Created a useful debug framework and adjusted lw_expr_print() to return a "static" dynamic string
lost@starbug
parents:
367
diff
changeset
|
269 extern void debug_message(asmstate_t *as, int level, const char *fmt, ...); |
90de73ba0cac
Created a useful debug framework and adjusted lw_expr_print() to return a "static" dynamic string
lost@starbug
parents:
367
diff
changeset
|
270 extern void dump_state(asmstate_t *as); |
90de73ba0cac
Created a useful debug framework and adjusted lw_expr_print() to return a "static" dynamic string
lost@starbug
parents:
367
diff
changeset
|
271 |
90de73ba0cac
Created a useful debug framework and adjusted lw_expr_print() to return a "static" dynamic string
lost@starbug
parents:
367
diff
changeset
|
272 |
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
273 #endif |
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
274 |
346
a82c55070624
Added expression parsing infrastructure and misc fixes
lost@starbug
parents:
345
diff
changeset
|
275 #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
|
276 #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
|
277 |
324 | 278 #endif /* ___lwasm_h_seen___ */ |