Mercurial > hg-old > index.cgi
annotate lwasm/lwasm.h @ 211:51511cf1c9f8
Prepare for gnulib integration
| author | lost |
|---|---|
| date | Fri, 24 Apr 2009 06:27:00 +0000 |
| parents | 048ebb85f6ef |
| children | 59a138df0401 |
| rev | line source |
|---|---|
| 0 | 1 /* |
|
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
2 lwasm.h |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
3 Copyright © 2008 William Astle |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
4 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
5 This file is part of LWASM. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
6 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
7 LWASM is free software: you can redistribute it and/or modify it under the |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
8 terms of the GNU General Public License as published by the Free Software |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
9 Foundation, either version 3 of the License, or (at your option) any later |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
10 version. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
11 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
12 This program is distributed in the hope that it will be useful, but WITHOUT |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
15 more details. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
16 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
17 You should have received a copy of the GNU General Public License along with |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
18 this program. If not, see <http://www.gnu.org/licenses/>. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
19 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
20 Contains the main defs used by the assembler |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
21 */ |
| 0 | 22 |
| 23 | |
| 24 #ifndef __lwasm_h_seen__ | |
| 25 #define __lwasm_h_seen__ | |
| 26 | |
| 58 | 27 #include <stdio.h> |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
28 #include "expr.h" |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
29 |
| 0 | 30 #define OUTPUT_DECB 0 // DECB multirecord format |
| 31 #define OUTPUT_RAW 1 // raw sequence of bytes | |
| 21 | 32 #define OUTPUT_OBJ 2 // proprietary object file format |
| 46 | 33 #define OUTPUT_RAWREL 3 // raw bytes where ORG causes a SEEK in the file |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
34 |
| 74 | 35 // structure for tracking sections |
| 86 | 36 typedef struct section_reloc_list_s section_reloc_list_t; |
| 37 struct section_reloc_list_s | |
| 38 { | |
| 39 int offset; // offset into section | |
|
204
048ebb85f6ef
Added 8 bit external references for base page addressing mode
lost
parents:
198
diff
changeset
|
40 int relocsize; // size of relocation in bytes |
| 86 | 41 lwasm_expr_stack_t *expr; // value definition |
|
91
718998b673ee
Added incomplete references to object output and added support for section base terms in expression handler
lost
parents:
90
diff
changeset
|
42 int context; // symbol context (for local syms) |
| 86 | 43 section_reloc_list_t *next; // next relocation |
| 44 }; | |
| 45 | |
| 90 | 46 typedef struct export_list_s export_list_t; |
| 47 struct export_list_s | |
| 48 { | |
| 49 int offset; // offset of symbol | |
| 50 char *sym; // name of symbol | |
| 51 export_list_t *next; // next export | |
| 52 }; | |
| 53 | |
| 74 | 54 #define SECTION_BSS 1 // the section contains no actual code - just uninit vars |
| 55 typedef struct sectiontab_s sectiontab_t; | |
| 56 struct sectiontab_s | |
| 57 { | |
| 58 char *name; // name of the section | |
| 59 int offset; // current offset in the section | |
| 60 int flags; // section flags | |
| 61 sectiontab_t *next; // next section | |
| 86 | 62 // the following are used during code output |
| 85 | 63 unsigned char *obytes; // output bytes |
| 64 int oblen; // how many bytes output so far? | |
| 65 int obsize; // how big is output buffer so far? | |
| 86 | 66 section_reloc_list_t *rl; // relocation list |
| 90 | 67 export_list_t *exports; // export list for the section |
| 74 | 68 }; |
| 69 | |
| 57 | 70 // structure for tracking macros |
| 71 typedef struct macrotab_s macrotab_t; | |
| 72 struct macrotab_s | |
| 73 { | |
| 74 char *name; | |
| 75 char **lines; | |
| 76 int numlines; | |
| 77 macrotab_t *next; | |
| 78 }; | |
| 79 | |
| 26 | 80 // structure for tracking errors |
| 81 typedef struct lwasm_error_s lwasm_error_t; | |
| 82 struct lwasm_error_s | |
| 83 { | |
| 84 char *mess; // the actual error message | |
| 85 lwasm_error_t *next; // ptr to next error | |
| 86 }; | |
| 87 | |
| 21 | 88 // structure for keeping track of lines |
| 77 | 89 // it also as space for 4 expressions which is enough for all known |
| 90 // instructions and addressing modes | |
| 91 // on pass 1, the expressions are parsed, on pass 2 they are re-evaluated | |
| 92 // to determine constancy | |
| 21 | 93 typedef struct lwasm_line_s lwasm_line_t; |
| 94 struct lwasm_line_s { | |
| 95 char *text; // the actual text of the line | |
| 96 int lineno; // line number within the file | |
| 97 char *filename; // file name reference | |
| 98 lwasm_line_t *next; // next line | |
| 99 lwasm_line_t *prev; // previous line | |
| 26 | 100 lwasm_error_t *err; // error messages |
| 28 | 101 int fsize; // forced size (0 = no forced size) |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
102 char *sym; // scratch area to record the presence of a symbol |
| 42 | 103 unsigned char *bytes; // actual bytes emitted |
| 104 int codelen; // number of bytes emitted | |
| 105 int codesize; // the size of the code buffer | |
| 44 | 106 int codeaddr; // address the code goes at |
| 46 | 107 int nocodelen; // for "RMB" type instructions |
|
49
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
46
diff
changeset
|
108 int addrset; // set if this instruction sets the assembly address |
|
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
46
diff
changeset
|
109 int symaddr; // set if this instruction sets a symbol addr with EQU or the like |
| 67 | 110 int badop; // bad operation - ignore it |
|
91
718998b673ee
Added incomplete references to object output and added support for section base terms in expression handler
lost
parents:
90
diff
changeset
|
111 int context; // the symbol context for this line |
| 190 | 112 int forceglobal; // force a "global" symbol definition if constant |
| 74 | 113 |
| 114 // the following are used for obj format - for external references, inter-section | |
| 115 // references, and intrasection relocations | |
| 116 int relocoff; // offset into insn where relocation value goes | |
|
204
048ebb85f6ef
Added 8 bit external references for base page addressing mode
lost
parents:
198
diff
changeset
|
117 int reloc8bit; // size of relocation (0 = 16 bit, 1 = 8 bit) |
| 77 | 118 lwasm_expr_stack_t *exprs[4]; // non-constant expression values |
| 119 int exprvals[4]; // constant expression values | |
| 120 char *exprends[4]; // pointer to character after end of expression | |
| 85 | 121 |
| 122 sectiontab_t *sect; // which section is the line in? | |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
123 }; |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
124 |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
125 // for keeping track of symbols |
|
75
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
126 #define SYMBOL_SET 1 // the symbol was used for "SET" |
|
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
127 #define SYMBOL_COMPLEX 2 // register symbol as a complex symbol (from l -> expr) |
|
78
121bf4a588ea
Checkpointing deployment of non-constant expression handling
lost
parents:
77
diff
changeset
|
128 #define SYMBOL_FORCE 4 // force resetting the symbol value if it already exists on pass 2 |
|
75
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
129 #define SYMBOL_NORM 0 // no flags |
| 82 | 130 #define SYMBOL_EXTERN 8 // the symbol is an external reference |
| 190 | 131 #define SYMBOL_GLOBAL 16 // force global if non-complex symbol |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
132 typedef struct lwasm_symbol_ent_s lwasm_symbol_ent_t; |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
133 struct lwasm_symbol_ent_s |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
134 { |
|
75
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
135 char *sym; // the symbol |
|
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
136 int context; // the context number of the symbol (-1 for global) |
|
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
137 int value; // the value of the symbol |
|
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
138 int flags; // flags for the symbol |
| 82 | 139 char *externalname; // for external references that are aliased locally |
|
75
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
140 sectiontab_t *sect; // the section the symbol exists in; NULL for none |
|
92eb93bffa28
Rejigged symbol system to be able to handle non-constant references
lost
parents:
74
diff
changeset
|
141 lwasm_expr_stack_t *expr; // expression for a symbol that is not constant NULL for const |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
142 lwasm_symbol_ent_t *next; // next symbol in the table |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
143 lwasm_symbol_ent_t *prev; // previous symbol in the table |
| 21 | 144 }; |
| 0 | 145 |
| 146 // keep track of current assembler state | |
| 147 typedef struct { | |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
148 int dpval; // current dp value (setdp) |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
149 int addr; // current address |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
150 int context; // context counter (for local symbols) |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
151 int errorcount; // error count |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
152 int passnum; // which pass are we on? |
| 21 | 153 int execaddr; // execution address for the program (END ....) |
| 154 int pragmas; // what pragmas are in effect? | |
| 155 | |
| 156 lwasm_line_t *lineshead; // first line of source code | |
| 157 lwasm_line_t *linestail; // last line of source code | |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
158 |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
159 lwasm_symbol_ent_t *symhead; // first entry in symbol table |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
160 lwasm_symbol_ent_t *symtail; // last entry in symbol table |
| 57 | 161 |
| 162 macrotab_t *macros; // macro table | |
| 21 | 163 |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
164 const char *infile; // input file |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
165 const char *outfile; // output file |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
166 const char *listfile; // output listing file |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
4
diff
changeset
|
167 int outformat; // output format type |
| 21 | 168 char **filelist; // files that have been read |
| 169 int filelistlen; // number of files in the list | |
|
54
360d53062bb9
Fixed typo in instruction table and added END directive
lost
parents:
49
diff
changeset
|
170 |
|
360d53062bb9
Fixed typo in instruction table and added END directive
lost
parents:
49
diff
changeset
|
171 int endseen; // set to true if "end" has been seen |
| 57 | 172 int skipcond; // skipping a condition? |
| 173 int skipcount; // how many? | |
| 174 int skipmacro; // skipping a macro? | |
| 175 int inmacro; // are we currently in a macro? | |
| 176 int macroex; // current depth of macro expansion | |
| 177 int nextcontext; // next context number | |
| 178 int skiplines; // number of lines to skip | |
| 74 | 179 |
| 180 // items used only for the "object" target | |
| 181 sectiontab_t *sections; // pointer to section table | |
| 182 sectiontab_t *csect; // current section - NULL if not in one | |
| 0 | 183 } asmstate_t; |
| 184 | |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
101
diff
changeset
|
185 // do not rewrite XXX,r to ,r if XXX evaluates to 0 |
| 0 | 186 #define PRAGMA_NOINDEX0TONONE 1 |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
101
diff
changeset
|
187 // any undefined symbols are considered external |
|
160
b061350c17e4
Added cescapes pragma and a few other compatibility pseudo ops
lost
parents:
151
diff
changeset
|
188 #define PRAGMA_UNDEFEXTERN 2 |
|
b061350c17e4
Added cescapes pragma and a few other compatibility pseudo ops
lost
parents:
151
diff
changeset
|
189 // allow C-style escapes in fcc, fcs, and fcn directives |
|
b061350c17e4
Added cescapes pragma and a few other compatibility pseudo ops
lost
parents:
151
diff
changeset
|
190 #define PRAGMA_CESCAPES 4 |
| 0 | 191 |
| 198 | 192 // allow "export <undefsym>" to import the symbol |
| 193 #define PRAGMA_IMPORTUNDEFEXPORT 8 | |
| 194 | |
| 26 | 195 #ifndef __lwasm_c_seen__ |
| 196 #define __lwasm_E__ extern | |
| 197 #else | |
| 198 #define __lwasm_E__ | |
| 199 #endif | |
| 200 | |
| 38 | 201 __lwasm_E__ int debug_level; |
| 202 | |
| 26 | 203 __lwasm_E__ int register_error(asmstate_t *as, lwasm_line_t *l, int pass, const char *fmt, ...); |
| 38 | 204 __lwasm_E__ void debug_message(int level, const char *fmt, ...); |
| 26 | 205 |
|
27
f736579569b4
Added handlers for inherent and register to register instructions
lost
parents:
26
diff
changeset
|
206 __lwasm_E__ void lwasm_emit(asmstate_t *as, lwasm_line_t *l, int b); |
|
f736579569b4
Added handlers for inherent and register to register instructions
lost
parents:
26
diff
changeset
|
207 __lwasm_E__ void lwasm_emitop(asmstate_t *as, lwasm_line_t *l, int o); |
|
f736579569b4
Added handlers for inherent and register to register instructions
lost
parents:
26
diff
changeset
|
208 __lwasm_E__ int lwasm_lookupreg2(const char *reglist, char **str); |
| 32 | 209 __lwasm_E__ int lwasm_lookupreg3(const char *rlist, const char **str); |
|
27
f736579569b4
Added handlers for inherent and register to register instructions
lost
parents:
26
diff
changeset
|
210 |
|
101
f59c0916753d
Fixed relative branches and PCR addressing to handle constant intra-section references properly
lost
parents:
98
diff
changeset
|
211 __lwasm_E__ lwasm_expr_stack_t *lwasm_evaluate_expr(asmstate_t *as, lwasm_line_t *l, const char *inp, const char **outp, int flags); |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
212 |
| 55 | 213 |
| 57 | 214 // return next context number and update it |
| 215 __lwasm_E__ int lwasm_next_context(asmstate_t *as); | |
| 216 | |
| 55 | 217 // also throw an error on expression eval failure |
| 76 | 218 // return 0 on ok, -1 on error, 1 if a complex expression was returned |
| 55 | 219 #define EXPR_NOFLAG 0 |
| 76 | 220 #define EXPR_PASS1CONST 1 // no forward references on pass 1 |
|
101
f59c0916753d
Fixed relative branches and PCR addressing to handle constant intra-section references properly
lost
parents:
98
diff
changeset
|
221 #define EXPR_SECTCONST 2 // resolve symbols local to section |
|
f59c0916753d
Fixed relative branches and PCR addressing to handle constant intra-section references properly
lost
parents:
98
diff
changeset
|
222 #define EXPR_REEVAL 4 // re-evaluate the expression |
| 55 | 223 __lwasm_E__ int lwasm_expr_result(asmstate_t *as, lwasm_line_t *l, char **inp, int flag, int *val); |
| 77 | 224 __lwasm_E__ int lwasm_expr_result2(asmstate_t *as, lwasm_line_t *l, char **inp, int flag, int *val, int slot); |
| 55 | 225 |
| 26 | 226 #undef __lwasm_E__ |
| 227 | |
| 228 | |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
229 #ifndef __symbol_c_seen__ |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
230 #define __lwasm_E__ extern |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
231 #else |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
232 #define __lwasm_E__ |
| 0 | 233 #endif |
| 234 | |
| 64 | 235 __lwasm_E__ int lwasm_register_symbol(asmstate_t *as, lwasm_line_t *l, char *sym, int val, int flags); |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
236 __lwasm_E__ lwasm_symbol_ent_t *lwasm_find_symbol(asmstate_t *as, char *sym, int scontext); |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
237 __lwasm_E__ int lwasm_set_symbol(asmstate_t *as, char *sym, int scontext, int val); |
| 58 | 238 __lwasm_E__ void lwasm_list_symbols(asmstate_t *as, FILE *f); |
|
37
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
239 #undef __lwasm_E__ |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
240 |
|
538e15927776
Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents:
32
diff
changeset
|
241 |
| 0 | 242 |
| 243 #endif //__lwasm_h_seen__ |