Mercurial > hg-old > index.cgi
annotate lwasm/symbol.c @ 360:7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
| author | lost@starbug |
|---|---|
| date | Thu, 01 Apr 2010 18:39:40 -0600 |
| parents | a82c55070624 |
| children | d96c30e60ddf |
| rev | line source |
|---|---|
| 342 | 1 /* |
| 2 symbol.c | |
| 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 #include <config.h> | |
| 23 | |
| 24 #include <stdlib.h> | |
| 25 #include <string.h> | |
| 26 | |
| 27 #include <lw_alloc.h> | |
| 28 #include <lw_expr.h> | |
| 29 | |
| 30 #include "lwasm.h" | |
| 31 | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
32 struct symtabe *register_symbol(asmstate_t *as, line_t *cl, char *sym, lw_expr_t val, int flags) |
| 342 | 33 { |
| 34 struct symtabe *se; | |
| 35 int islocal = 0; | |
| 36 int context = -1; | |
| 37 int version = -1; | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
38 char *cp; |
| 342 | 39 |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
40 if (*sym < 0x80 && !strchr(SSYMCHARS, *sym)) |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
41 { |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
42 lwasm_register_error(as, cl, "Bad symbol (%s)", sym); |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
43 return NULL; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
44 } |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
45 |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
46 if ((*sym == '$' || *sym == '@') && (sym[1] >= '0' && sym[1] <= '9')) |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
47 { |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
48 lwasm_register_error(as, cl, "Bad symbol (%s)", sym); |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
49 return NULL; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
50 } |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
51 |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
52 for (cp = sym; *cp; cp++) |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
53 { |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
54 if (*cp == '@' || *cp == '?') |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
55 islocal = 1; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
346
diff
changeset
|
56 if (*cp == '$' && !(CURPRAGMA(cl, PRAGMA_DOLLARNOTLOCAL))) |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
57 islocal = 1; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
58 |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
59 // bad symbol |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
60 if (*cp < 0x80 && !strchr(SYMCHARS, *cp)) |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
61 { |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
62 lwasm_register_error(as, cl, "Bad symbol (%s)", sym); |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
63 return NULL; |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
64 } |
|
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
65 } |
| 342 | 66 |
| 67 if (islocal) | |
| 68 context = as -> context; | |
| 69 | |
| 70 // first, look up symbol to see if it is already defined | |
| 71 for (se = as -> symtab.head; se; se = se -> next) | |
| 72 { | |
| 73 if (!strcmp(sym, se -> symbol)) | |
| 74 { | |
| 75 if (se -> context != context) | |
| 76 continue; | |
| 77 if ((flags & symbol_flag_set) && (se -> flags & symbol_flag_set)) | |
| 78 { | |
| 79 if (version < se -> version) | |
| 80 version = se -> version; | |
| 81 continue; | |
| 82 } | |
| 83 break; | |
| 84 } | |
| 85 } | |
| 86 if (se) | |
| 87 { | |
| 88 // multiply defined symbol | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
89 lwasm_register_error(as, cl, "Multiply defined symbol (%s)", sym); |
| 342 | 90 return NULL; |
| 91 } | |
| 92 | |
| 93 if (flags & symbol_flag_set) | |
| 94 { | |
| 95 version++; | |
| 96 } | |
| 97 | |
| 98 se = lw_alloc(sizeof(struct symtabe)); | |
| 99 se -> next = as -> symtab.head; | |
| 100 as -> symtab.head = se; | |
| 101 se -> context = context; | |
| 102 se -> version = version; | |
| 103 se -> flags = flags; | |
| 104 se -> value = lw_expr_copy(val); | |
| 105 return se; | |
| 106 } | |
| 107 | |
|
344
0215a0fbf61b
Added assembly error system and additional checks for symbol syntax
lost@starbug
parents:
342
diff
changeset
|
108 struct symtabe * lookup_symbol(asmstate_t *as, line_t *cl, char *sym, int context, int version) |
| 342 | 109 { |
| 110 return NULL; | |
| 111 } |