annotate dmd/EnumDeclaration.d @ 77:ad4792a1cfd6

more D-ification container accessing
author Eldar Insafutdinov <e.insafutdinov@gmail.com>
date Sun, 29 Aug 2010 14:36:55 +0100
parents 2e2a5c3f943a
children 43073c7c7769
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1 module dmd.EnumDeclaration;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
2
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
3 import dmd.ScopeDsymbol;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
4 import dmd.AddExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
5 import dmd.Type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
6 import dmd.CmpExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
7 import dmd.IntegerExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
8 import dmd.EqualExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
9 import dmd.TOK;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
10 import dmd.Id;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
11 import dmd.TY;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
12 import dmd.DsymbolTable;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
13 import dmd.STC;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
14 import dmd.Expression;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
15 import dmd.Identifier;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
16 import dmd.Dsymbol;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
17 import dmd.Scope;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
18 import dmd.OutBuffer;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
19 import dmd.HdrGenState;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
20 import dmd.Global;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
21 import dmd.Loc;
22
fd4acc376c45 Implemented object file output and linking on linux.
Robert Clipsham <robert@octarineparrot.com>
parents: 20
diff changeset
22 import dmd.Module;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
23 import dmd.TypeEnum;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
24 import dmd.EnumMember;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
25 import dmd.DYNCAST;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
26 import dmd.WANT;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
27 import dmd.Id;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
28 import dmd.Lexer;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
29
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
30 import dmd.backend.SC;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
31 import dmd.backend.FL;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
32 import dmd.backend.Util;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
33 import dmd.backend.Symbol;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
34 import dmd.backend.Classsym;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
35 import dmd.backend.SFL;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
36 import dmd.backend.LIST;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
37 import dmd.codegen.Util;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
38
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
39 import std.stdio : writef;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
40
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
41 class EnumDeclaration : ScopeDsymbol
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
42 { /* enum ident : memtype { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
43 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
44 Type type; // the TypeEnum
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
45 Type memtype; // type of the members
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
46
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
47 version (DMDV1) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
48 ulong maxval;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
49 ulong minval;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
50 ulong defaultval; // default initializer
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
51 } else {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
52 Expression maxval;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
53 Expression minval;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
54 Expression defaultval; // default initializer
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
55 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
56 bool isdeprecated;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
57
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
58 this(Loc loc, Identifier id, Type memtype)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
59 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
60 super(id);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
61 this.loc = loc;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
62 type = new TypeEnum(this);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
63 this.memtype = memtype;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
64 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
65
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
66 override Dsymbol syntaxCopy(Dsymbol s)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
67 {
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
68 Type t = null;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
69 if (memtype)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
70 t = memtype.syntaxCopy();
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
71
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
72 EnumDeclaration ed;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
73 if (s)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
74 { ed = cast(EnumDeclaration)s;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
75 ed.memtype = t;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
76 }
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
77 else
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
78 ed = new EnumDeclaration(loc, ident, t);
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
79 ScopeDsymbol.syntaxCopy(ed);
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
80 return ed;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
81 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
82
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
83 override void semantic(Scope sc)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
84 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
85 Type t;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
86 Scope sce;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
87
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
88 //writef("EnumDeclaration.semantic(sd = %p, '%s') %s\n", sc.scopesym, sc.scopesym.toChars(), toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
89 //writef("EnumDeclaration.semantic() %s\n", toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
90 if (!members) // enum ident;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
91 return;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
92
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
93 if (!memtype && !isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
94 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
95 // Set memtype if we can to reduce fwd reference errors
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
96 memtype = Type.tint32; // case 1) enum ident { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
97 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
98
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
99 if (symtab) // if already done
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
100 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
101 if (!scope_)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
102 return; // semantic() already completed
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
103 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
104 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
105 symtab = new DsymbolTable();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
106
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
107 Scope scx = null;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
108 if (scope_)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
109 { sc = scope_;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
110 scx = scope_; // save so we don't make redundant copies
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
111 scope_ = null;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
112 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
113
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
114 if (sc.stc & STC.STCdeprecated)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
115 isdeprecated = true;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
116
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
117 parent = sc.parent;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
118
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
119 /* The separate, and distinct, cases are:
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
120 * 1. enum { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
121 * 2. enum : memtype { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
122 * 3. enum ident { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
123 * 4. enum ident : memtype { ... }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
124 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
125
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
126 if (memtype)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
127 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
128 memtype = memtype.semantic(loc, sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
129
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
130 /* Check to see if memtype is forward referenced
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
131 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
132 if (memtype.ty == TY.Tenum)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
133 { EnumDeclaration sym = cast(EnumDeclaration)memtype.toDsymbol(sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
134 if (!sym.memtype || !sym.members || !sym.symtab || sym.scope_)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
135 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
136 // memtype is forward referenced, so try again later
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
137 scope_ = scx ? scx : new Scope(sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
138 scope_.setNoFree();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
139 scope_.module_.addDeferredSemantic(this);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
140 writef("\tdeferring %s\n", toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
141 return;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
142 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
143 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
144 static if (false) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
145 // Decided to abandon this restriction for D 2.0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
146 if (!memtype.isintegral())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
147 { error("base type must be of integral type, not %s", memtype.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
148 memtype = Type.tint32;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
149 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
150 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
151 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
152
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
153 type = type.semantic(loc, sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
154 if (isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
155 sce = sc;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
156 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
157 { sce = sc.push(this);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
158 sce.parent = this;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
159 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
160 if (members.dim == 0)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
161 error("enum %s must have at least one member", toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
162 int first = 1;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
163 Expression elast = null;
77
ad4792a1cfd6 more D-ification container accessing
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 72
diff changeset
164 foreach (Dsymbol s; members)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
165 {
77
ad4792a1cfd6 more D-ification container accessing
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 72
diff changeset
166 EnumMember em = s.isEnumMember();
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
167 Expression e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
168
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
169 if (!em)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
170 /* The e.semantic(sce) can insert other symbols, such as
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
171 * template instances and function literals.
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
172 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
173 continue;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
174
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
175 //printf(" Enum member '%s'\n",em.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
176 if (em.type)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
177 em.type = em.type.semantic(em.loc, sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
178 e = em.value;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
179 if (e)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
180 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
181 assert(e.dyncast() == DYNCAST.DYNCAST_EXPRESSION);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
182 e = e.semantic(sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
183 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
184 if (memtype)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
185 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
186 e = e.implicitCastTo(sce, memtype);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
187 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
188 if (!isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
189 e = e.castTo(sce, type);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
190 t = memtype;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
191 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
192 else if (em.type)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
193 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
194 e = e.implicitCastTo(sce, em.type);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
195 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
196 assert(isAnonymous());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
197 t = e.type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
198 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
199 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
200 t = e.type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
201 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
202 else if (first)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
203 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
204 if (memtype)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
205 t = memtype;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
206 else if (em.type)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
207 t = em.type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
208 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
209 t = Type.tint32;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
210 e = new IntegerExp(em.loc, 0, Type.tint32);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
211 e = e.implicitCastTo(sce, t);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
212 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
213 if (!isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
214 e = e.castTo(sce, type);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
215 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
216 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
217 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
218 // Set value to (elast + 1).
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
219 // But first check that (elast != t.max)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
220 assert(elast);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
221 e = new EqualExp(TOK.TOKequal, em.loc, elast, t.getProperty(Loc(0), Id.max));
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
222 e = e.semantic(sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
223 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
224 if (e.toInteger())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
225 error("overflow of enum value %s", elast.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
226
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
227 // Now set e to (elast + 1)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
228 e = new AddExp(em.loc, elast, new IntegerExp(em.loc, 1, Type.tint32));
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
229 e = e.semantic(sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
230 e = e.castTo(sce, elast.type);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
231 e = e.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
232 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
233 elast = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
234 em.value = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
235
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
236 // Add to symbol table only after evaluating 'value'
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
237 if (isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
238 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
239 /* Anonymous enum members get added to enclosing scope.
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
240 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
241 for (Scope scxx = sce; scxx; scxx = scxx.enclosing)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
242 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
243 if (scxx.scopesym)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
244 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
245 if (!scxx.scopesym.symtab)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
246 scxx.scopesym.symtab = new DsymbolTable();
13
427f8aa74d28 On the road to make Phobos compilable
korDen
parents: 0
diff changeset
247 em.addMember(sce, scxx.scopesym, true);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
248 break;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
249 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
250 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
251 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
252 else
13
427f8aa74d28 On the road to make Phobos compilable
korDen
parents: 0
diff changeset
253 em.addMember(sc, this, true);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
254
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
255 /* Compute .min, .max and .default values.
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
256 * If enum doesn't have a name, we can never identify the enum type,
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
257 * so there is no purpose for a .min, .max or .default
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
258 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
259 if (!isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
260 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
261 if (first)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
262 { defaultval = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
263 minval = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
264 maxval = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
265 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
266 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
267 { Expression ec;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
268
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
269 /* In order to work successfully with UDTs,
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
270 * build expressions to do the comparisons,
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
271 * and let the semantic analyzer and constant
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
272 * folder give us the result.
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
273 */
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
274
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
275 // Compute if(e < minval)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
276 ec = new CmpExp(TOK.TOKlt, em.loc, e, minval);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
277 ec = ec.semantic(sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
278 ec = ec.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
279 if (ec.toInteger())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
280 minval = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
281
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
282 ec = new CmpExp(TOK.TOKgt, em.loc, e, maxval);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
283 ec = ec.semantic(sce);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
284 ec = ec.optimize(WANT.WANTvalue | WANT.WANTinterpret);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
285 if (ec.toInteger())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
286 maxval = e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
287 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
288 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
289 first = 0;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
290 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
291 //printf("defaultval = %lld\n", defaultval);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
292
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
293 //if (defaultval) printf("defaultval: %s %s\n", defaultval.toChars(), defaultval.type.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
294 if (sc != sce)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
295 sce.pop();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
296 //members.print();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
297 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
298
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
299 override bool oneMember(Dsymbol* ps)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
300 {
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
301 if (isAnonymous())
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
302 return Dsymbol.oneMembers(members, ps);
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
303 return Dsymbol.oneMember(ps);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
304 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
305
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
306 override void toCBuffer(OutBuffer buf, HdrGenState* hgs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
307 {
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
308 int i;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
309
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
310 buf.writestring("enum ");
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
311 if (ident)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
312 { buf.writestring(ident.toChars());
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
313 buf.writeByte(' ');
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
314 }
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
315 if (memtype)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
316 {
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
317 buf.writestring(": ");
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
318 memtype.toCBuffer(buf, null, hgs);
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
319 }
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
320 if (!members)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
321 {
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
322 buf.writeByte(';');
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
323 buf.writenl();
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
324 return;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
325 }
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
326 buf.writenl();
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
327 buf.writeByte('{');
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
328 buf.writenl();
77
ad4792a1cfd6 more D-ification container accessing
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 72
diff changeset
329 foreach(Dsymbol s; members)
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
330 {
77
ad4792a1cfd6 more D-ification container accessing
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 72
diff changeset
331 EnumMember em = s.isEnumMember();
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
332 if (!em)
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
333 continue;
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
334 //buf.writestring(" ");
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
335 em.toCBuffer(buf, hgs);
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
336 buf.writeByte(',');
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
337 buf.writenl();
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
338 }
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
339 buf.writeByte('}');
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
340 buf.writenl();
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
341 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
342
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
343 override Type getType()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
344 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
345 return type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
346 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
347
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
348 override string kind()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
349 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
350 return "enum";
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
351 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
352
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
353 version (DMDV2) {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
354 override Dsymbol search(Loc, Identifier ident, int flags)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
355 {
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
356 //printf("%s.EnumDeclaration.search('%s')\n", toChars(), ident.toChars());
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
357 if (scope_)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
358 // Try one last time to resolve this enum
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
359 semantic(scope_);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
360
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
361 if (!members || !symtab || scope_)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
362 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
363 error("is forward referenced when looking for '%s'", ident.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
364 //*(char*)0=0;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
365 return null;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
366 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
367
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
368 return ScopeDsymbol.search(loc, ident, flags);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
369 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
370 }
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
371 override bool isDeprecated() // is Dsymbol deprecated?
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
372 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
373 return isdeprecated;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
374 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
375
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
376 override void emitComment(Scope sc)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
377 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
378 assert(false);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
379 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
380
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
381 override void toDocBuffer(OutBuffer buf)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
382 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
383 assert(false);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
384 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
385
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
386 override EnumDeclaration isEnumDeclaration() { return this; }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
387
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
388 override void toObjFile(int multiobj) // compile to .obj file
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
389 {
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
390 //printf("EnumDeclaration.toObjFile('%s')\n", toChars());
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
391 version (DMDV2) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
392 if (isAnonymous())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
393 return;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
394 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
395
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
396 if (global.params.symdebug)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
397 toDebug();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
398
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
399 type.getTypeInfo(null); // generate TypeInfo
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
400
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
401 TypeEnum tc = cast(TypeEnum)type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
402 if (!tc.sym.defaultval || type.isZeroInit(Loc(0))) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
403 ;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
404 } else {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
405 SC scclass = SCglobal;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
406 if (inTemplateInstance())
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
407 scclass = SCcomdat;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
408
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
409 // Generate static initializer
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
410 toInitializer();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
411 sinit.Sclass = scclass;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
412 sinit.Sfl = FLdata;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
413 version (ELFOBJ) { // Burton
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
414 sinit.Sseg = Segment.CDATA;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
415 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
416 version (MACHOBJ) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
417 sinit.Sseg = Segment.DATA;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
418 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
419 version (DMDV1) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
420 dtnbytes(&sinit.Sdt, tc.size(0), cast(char*)&tc.sym.defaultval);
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
421 //sinit.Sdt = tc.sym.init.toDt();
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
422 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
423 version (DMDV2) {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
424 tc.sym.defaultval.toDt(&sinit.Sdt);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
425 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
426 outdata(sinit);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
427 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
428 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
429
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
430 void toDebug()
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
431 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
432 assert(false);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
433 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
434
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 23
diff changeset
435 override int cvMember(ubyte* p)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
436 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
437 assert(false);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
438 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
439
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
440 Symbol* sinit;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
441
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
442 Symbol* toInitializer()
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
443 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
444 Symbol* s;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
445 Classsym* stag;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
446
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
447 if (!sinit)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
448 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
449 stag = fake_classsym(Id.ClassInfo);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
450 Identifier ident_save = ident;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
451 if (!ident)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
452 ident = Lexer.uniqueId("__enum");
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
453 s = toSymbolX("__init", SCextern, stag.Stype, "Z");
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
454 ident = ident_save;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
455 s.Sfl = FLextern;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
456 s.Sflags |= SFLnodebug;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
457 slist_add(s);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
458 sinit = s;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
459 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
460
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
461 return sinit;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
462 }
20
1628b221808d Fleshed out more unimplemented methods.
Robert Clipsham <robert@octarineparrot.com>
parents: 0
diff changeset
463 };