Mercurial > hg-old > index.cgi

annotate src/pragma.c @ 17:df0c4a46af8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Started adding expression handling infrastructure
author lost
date Thu, 01 Jan 2009 02:26:26 +0000
parents 34568fab6058
children 4b37f17624a7
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"
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
28
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
29 /*
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
30 A pragma is a means of controlling code generation.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
31
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
32 The pseudo op "*pragma" which will be treated as a comment by an assembler
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
33 that doesn't recognize it and thus will not cause assembly errors. This is
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
34 the preferred way of flagging a pragma if it will not cause incorrect
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
35 execution of the program.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
36
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
37 The pseudo op "pragma" which will cause an error on an assembler that does
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
38 not understand it.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
39
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
40 In the case of "*pragma", unrecognized pragmas MUST be silently ignored. In
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
41 the case of "pragma", unrecognized pragmas should raise an error.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
42
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
43 LWASM understands the following pragmas:
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
44
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
45 index0tonone
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
46 noindex0tonone
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
47
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
48 When set (index0tonone), an expression that evaluates to 0, other than a
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
49 bare constant, in a <offset>,r operand will cause the code for ",r" to be
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
50 emitted rather than "0,r". If not set (noindex0tonone), the "0,r" output
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
51 will be emitted. The default is to perform the optimization.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
52
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
53 This particular optimization will save a cycle for a direct operation. For
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
54 an indirect operation, however, it will save several cycles and a program byte
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
55 which may be very useful.
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
56 */
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
57
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
58 void pseudo_pragma_real(asmstate_t *as, sourceline_t *cl, char **optr, int error)
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
59 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
60 char pragma[128];
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
61 int c = 0;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
62
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
63 while (isspace(**optr))
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
64 (*optr)++;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
65
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
66 while (c < 127 && **optr && !isspace(**optr))
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
67 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
68 pragma[c++] = **optr;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
69 (*optr)++;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
70 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
71
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
72 if (c == 0 || (**optr && !isspace(**optr)))
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
73 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
74 if (error)
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
75 errorp1(ERR_PRAGMA);
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
76 return;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
77 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
78 pragma[c] = 0;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
79 if (!strcmp(pragma, "noindex0tonone"))
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
80 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
81 as -> pragmas |= PRAGMA_NOINDEX0TONONE;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
82 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
83 else if (!strcmp(pragma, "index0tonone"))
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
84 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
85 as -> pragmas &= ~PRAGMA_NOINDEX0TONONE;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
86 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
87 else
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
88 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
89 if (error)
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
90 errorp1(ERR_PRAGMA);
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
91 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
92 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
93
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
94 void pseudo_pragma(asmstate_t *as, sourceline_t *cl, char **optr)
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
95 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
96 pseudo_pragma_real(as, cl, optr, 1);
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
97 }
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
98
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
99 void pseudo_starpragma(asmstate_t *as, sourceline_t *cl, char **optr)
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
100 {
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
101 pseudo_pragma_real(as, cl, optr, 0);
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
102 }