Mercurial > hg-old > index.cgi

annotate lwasm/pragma.c @ 208:06effa2faea1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added some info on building gcc6809 to use lwtools
author lost
date Tue, 21 Apr 2009 02:57:37 +0000
parents 3f9d299d2477
children bae1e3ecdce1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
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
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
23
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
24 #include <ctype.h>
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
25 #include <stdlib.h>
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
26 #include <string.h>
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
27 #include "lwasm.h"
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
28 #include "instab.h"
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
29
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
30 /*
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
31 A pragma is a means of controlling code generation.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
32
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
33 The pseudo op "*pragma" which will be treated as a comment by an assembler
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
34 that doesn't recognize it and thus will not cause assembly errors. This is
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
35 the preferred way of flagging a pragma if it will not cause incorrect
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
36 execution of the program.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
37
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
38 The pseudo op "pragma" which will cause an error on an assembler that does
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
39 not understand it.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
40
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
41 In the case of "*pragma", unrecognized pragmas MUST be silently ignored. In
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
42 the case of "pragma", unrecognized pragmas should raise an error.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
43
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
44 LWASM understands the following pragmas:
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
45
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
46 index0tonone
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
47 noindex0tonone
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
48
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
49 When set (index0tonone), an expression that evaluates to 0, other than a
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
50 bare constant, in a <offset>,r operand will cause the code for ",r" to be
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
51 emitted rather than "0,r". If not set (noindex0tonone), the "0,r" output
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
52 will be emitted. The default is to perform the optimization.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
53
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
54 This particular optimization will save a cycle for a direct operation. For
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
55 an indirect operation, however, it will save several cycles and a program byte
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
56 which may be very useful.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
57 */
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
58
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
59 void pseudo_pragma_real(asmstate_t *as, lwasm_line_t *cl, char **optr, int error)
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
60 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
61 char pragma[128];
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
62 int c = 0;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
63
200
3f9d299d2477 Fixed crash on unrecognized pragma
lost
parents: 198
diff changeset
64 while (**optr && isspace(**optr))
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
65 (*optr)++;
165
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
66
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
67 pragmaagain:
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
68 c = 0;
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
69 while (c < 127 && **optr && **optr != ',' && !isspace(**optr))
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
70 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
71 pragma[c++] = **optr;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
72 (*optr)++;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
73 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
74
165
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
75 if (c == 0 || (**optr && **optr != ',' && !isspace(**optr)))
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
76 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
77 if (error)
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
78 {
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
79 register_error(as, cl, 1, "Unrecognized pragma");
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
80 }
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
81 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
82 {
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
83 *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
84 }
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
85 return;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
86 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
87 pragma[c] = 0;
144
006d737756fd Made pragmas not be case sensitive
lost
parents: 143
diff changeset
88 if (!strcasecmp(pragma, "noindex0tonone"))
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
89 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
90 as -> pragmas |= PRAGMA_NOINDEX0TONONE;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
91 }
144
006d737756fd Made pragmas not be case sensitive
lost
parents: 143
diff changeset
92 else if (!strcasecmp(pragma, "index0tonone"))
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
93 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
94 as -> pragmas &= ~PRAGMA_NOINDEX0TONONE;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
95 }
144
006d737756fd Made pragmas not be case sensitive
lost
parents: 143
diff changeset
96 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
97 {
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
98 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
99 }
144
006d737756fd Made pragmas not be case sensitive
lost
parents: 143
diff changeset
100 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
101 {
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
102 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
103 }
160
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
104 else if (!strcasecmp(pragma, "cescapes"))
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
105 {
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
106 as -> pragmas |= PRAGMA_CESCAPES;
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
107 }
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
108 else if (!strcasecmp(pragma, "nocescapes"))
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
109 {
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
110 as -> pragmas &= ~PRAGMA_CESCAPES;
b061350c17e4 Added cescapes pragma and a few other compatibility pseudo ops
lost
parents: 151
diff changeset
111 }
198
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
112 else if (!strcasecmp(pragma, "importundefexport"))
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
113 {
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
114 as -> pragmas |= PRAGMA_IMPORTUNDEFEXPORT;
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
115 }
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
116 else if (!strcasecmp(pragma, "noimportundefexport"))
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
117 {
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
118 as -> pragmas &= ~PRAGMA_IMPORTUNDEFEXPORT;
6ddc861a07d4 Allow export to import undefined symbols
lost
parents: 165
diff changeset
119 }
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
120 else
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
121 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
122 if (error)
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
123 {
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
124 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
125 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
126 {
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
127 *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
128 }
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
129 }
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
130 }
200
3f9d299d2477 Fixed crash on unrecognized pragma
lost
parents: 198
diff changeset
131 if (*optr && **optr == ',')
165
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
132 {
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
133 (*optr)++;
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
134 goto pragmaagain;
566943f98f8d Made pragma actually take multiple pragmas on one line
lost
parents: 160
diff changeset
135 }
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
136 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
137
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
138 OPFUNC(pseudo_pragma)
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
139 {
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
140 pseudo_pragma_real(as, l, p, 1);
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
141 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
142
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
143 OPFUNC(pseudo_starpragma)
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
144 {
73
4b37f17624a7 Added pragma directives
lost
parents: 4
diff changeset
145 pseudo_pragma_real(as, l, p, 0);
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
146 }