Mercurial > hg-old > index.cgi
annotate lwasm/pragma.c @ 151:427e268e876b
renamed src to lwasm to better reflect its purpose
| author | lost |
|---|---|
| date | Fri, 30 Jan 2009 04:01:55 +0000 |
| parents | src/pragma.c@006d737756fd |
| children | b061350c17e4 |
| 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 pragma.c |
|
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 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
21 This file contains stuff associated with lwasm specific strangeness |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
22 */ |
| 0 | 23 |
| 24 #include <ctype.h> | |
| 25 #include <stdlib.h> | |
| 26 #include <string.h> | |
| 27 #include "lwasm.h" | |
| 73 | 28 #include "instab.h" |
| 0 | 29 |
| 30 /* | |
| 31 A pragma is a means of controlling code generation. | |
| 32 | |
| 33 The pseudo op "*pragma" which will be treated as a comment by an assembler | |
| 34 that doesn't recognize it and thus will not cause assembly errors. This is | |
| 35 the preferred way of flagging a pragma if it will not cause incorrect | |
| 36 execution of the program. | |
| 37 | |
| 38 The pseudo op "pragma" which will cause an error on an assembler that does | |
| 39 not understand it. | |
| 40 | |
| 41 In the case of "*pragma", unrecognized pragmas MUST be silently ignored. In | |
| 42 the case of "pragma", unrecognized pragmas should raise an error. | |
| 43 | |
| 44 LWASM understands the following pragmas: | |
| 45 | |
| 46 index0tonone | |
| 47 noindex0tonone | |
| 48 | |
| 49 When set (index0tonone), an expression that evaluates to 0, other than a | |
| 50 bare constant, in a <offset>,r operand will cause the code for ",r" to be | |
| 51 emitted rather than "0,r". If not set (noindex0tonone), the "0,r" output | |
| 52 will be emitted. The default is to perform the optimization. | |
| 53 | |
| 54 This particular optimization will save a cycle for a direct operation. For | |
| 55 an indirect operation, however, it will save several cycles and a program byte | |
| 56 which may be very useful. | |
| 57 */ | |
| 58 | |
| 73 | 59 void pseudo_pragma_real(asmstate_t *as, lwasm_line_t *cl, char **optr, int error) |
| 0 | 60 { |
| 61 char pragma[128]; | |
| 62 int c = 0; | |
| 63 | |
| 64 while (isspace(**optr)) | |
| 65 (*optr)++; | |
| 66 | |
| 67 while (c < 127 && **optr && !isspace(**optr)) | |
| 68 { | |
| 69 pragma[c++] = **optr; | |
| 70 (*optr)++; | |
| 71 } | |
| 72 | |
| 73 if (c == 0 || (**optr && !isspace(**optr))) | |
| 74 { | |
| 75 if (error) | |
| 73 | 76 { |
| 77 register_error(as, cl, 1, "Unrecognized pragma"); | |
| 78 } | |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
79 if (error == 2) |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
80 { |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
81 *optr = NULL; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
82 } |
| 0 | 83 return; |
| 84 } | |
| 85 pragma[c] = 0; | |
| 144 | 86 if (!strcasecmp(pragma, "noindex0tonone")) |
| 0 | 87 { |
| 88 as -> pragmas |= PRAGMA_NOINDEX0TONONE; | |
| 89 } | |
| 144 | 90 else if (!strcasecmp(pragma, "index0tonone")) |
| 0 | 91 { |
| 92 as -> pragmas &= ~PRAGMA_NOINDEX0TONONE; | |
| 93 } | |
| 144 | 94 else if (!strcasecmp(pragma, "undefextern")) |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
95 { |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
96 as -> pragmas |= PRAGMA_UNDEFEXTERN; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
97 } |
| 144 | 98 else if (!strcasecmp(pragma, "noundefextern")) |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
99 { |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
100 as -> pragmas &= ~PRAGMA_UNDEFEXTERN; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
101 } |
| 0 | 102 else |
| 103 { | |
| 104 if (error) | |
| 73 | 105 { |
| 106 register_error(as, cl, 1, "Unrecognized pragma"); | |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
107 if (error == 2) |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
108 { |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
109 *optr = NULL; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
73
diff
changeset
|
110 } |
| 73 | 111 } |
| 0 | 112 } |
| 113 } | |
| 114 | |
| 73 | 115 OPFUNC(pseudo_pragma) |
| 0 | 116 { |
| 73 | 117 pseudo_pragma_real(as, l, p, 1); |
| 0 | 118 } |
| 119 | |
| 73 | 120 OPFUNC(pseudo_starpragma) |
| 0 | 121 { |
| 73 | 122 pseudo_pragma_real(as, l, p, 0); |
| 0 | 123 } |