Mercurial > projects > ddmd

annotate dmd/CastExp.d @ 135:af1bebfd96a4 dmd2037

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dmd 2.038
author Eldar Insafutdinov <e.insafutdinov@gmail.com>
date Mon, 13 Sep 2010 22:19:42 +0100
parents 60bb0fe4563e
children e3afd1303184
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1 module dmd.CastExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
2
114
e28b18c23469 added a module dmd.common for commonly used stuff
Trass3r
parents: 109
diff changeset
3 import dmd.common;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
4 import dmd.Expression;
129
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
5 import dmd.GlobalExpressions;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
6 import dmd.TY;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
7 import dmd.TypeStruct;
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
8 import dmd.ErrorExp;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
9 import dmd.TypeExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
10 import dmd.DotIdExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
11 import dmd.CallExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
12 import dmd.Global;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
13 import dmd.Id;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
14 import dmd.Identifier;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
15 import dmd.BinExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
16 import dmd.UnaExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
17 import dmd.VarExp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
18 import dmd.Token;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
19 import dmd.VarDeclaration;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
20 import dmd.InterState;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
21 import dmd.MATCH;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
22 import dmd.Type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
23 import dmd.OutBuffer;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
24 import dmd.Loc;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
25 import dmd.Scope;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
26 import dmd.IntRange;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
27 import dmd.IRState;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
28 import dmd.ArrayTypes;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
29 import dmd.HdrGenState;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
30 import dmd.MOD;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
31 import dmd.TOK;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
32 import dmd.WANT;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
33 import dmd.ClassDeclaration;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
34
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
35 import dmd.Optimize;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
36 import dmd.PREC;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
37 import dmd.Cast;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
38
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
39 import dmd.codegen.Util;
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
40 import dmd.backend.elem;
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
41 import dmd.backend.mTY;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
42 import dmd.backend.Util;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
43 import dmd.backend.TYM;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
44 import dmd.backend.OPER;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
45 import dmd.backend.RTLSYM;
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
46 import dmd.expression.Util;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
47
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
48 class CastExp : UnaExp
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
49 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
50 // Possible to cast to one type while painting to another type
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
51 Type to; // type to cast to
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
52 MOD mod; // MODxxxxx
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
53
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
54 this(Loc loc, Expression e, Type t)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
55 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
56 super(loc, TOK.TOKcast, CastExp.sizeof, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
57 to = t;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
58 this.mod = cast(MOD)~0;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
59 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
60
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
61 this(Loc loc, Expression e, MOD mod)
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
62 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
63 super(loc, TOK.TOKcast, CastExp.sizeof, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
64 to = null;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
65 this.mod = mod;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
66 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
67
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
68 override Expression syntaxCopy()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
69 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
70 return to ? new CastExp(loc, e1.syntaxCopy(), to.syntaxCopy())
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
71 : new CastExp(loc, e1.syntaxCopy(), mod);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
72 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
73
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
74 override Expression semantic(Scope sc)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
75 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
76 Expression e;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
77 BinExp b;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
78 UnaExp u;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
79
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
80 version (LOGSEMANTIC) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
81 printf("CastExp.semantic('%s')\n", toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
82 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
83
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
84 //static int x; assert(++x < 10);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
85
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
86 if (type)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
87 return this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
88 super.semantic(sc);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
89 if (e1.type) // if not a tuple
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
90 {
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
91 e1 = resolveProperties(sc, e1);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
92
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
93 if (!to)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
94 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
95 /* Handle cast(const) and cast(immutable), etc.
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
96 */
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
97 to = e1.type.castMod(mod);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
98 }
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
99 else
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
100 to = to.semantic(loc, sc);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
101
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
102 if (!to.equals(e1.type))
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
103 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
104 e = op_overload(sc);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
105 if (e)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
106 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
107 return e.implicitCastTo(sc, to);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
108 }
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
109 }
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
110
109
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
111 if (e1.op == TOKtemplate)
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
112 {
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
113 error("cannot cast template %s to type %s", e1.toChars(), to.toChars());
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
114 return new ErrorExp();
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
115 }
ceda59b4d255 expression.c changes, now only ddoc should be left
Trass3r
parents: 79
diff changeset
116
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
117 Type t1b = e1.type.toBasetype();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
118 Type tob = to.toBasetype();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
119 if (tob.ty == TY.Tstruct &&
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
120 !tob.equals(t1b) &&
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
121 (cast(TypeStruct)tob).sym.search(Loc(0), Id.call, 0)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
122 )
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
123 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
124 /* Look to replace:
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
125 * cast(S)t
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
126 * with:
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
127 * S(t)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
128 */
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
129
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
130 // Rewrite as to.call(e1)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
131 e = new TypeExp(loc, to);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
132 e = new DotIdExp(loc, e, Id.call);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
133 e = new CallExp(loc, e, e1);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
134 e = e.semantic(sc);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
135 return e;
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
136 }
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
137
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
138 // Struct casts are possible only when the sizes match
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
139 if (tob.ty == Tstruct || t1b.ty == Tstruct)
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
140 {
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
141 size_t fromsize = cast(size_t)t1b.size(loc);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
142 size_t tosize = cast(size_t)tob.size(loc);
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
143 if (fromsize != tosize)
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
144 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
145 error("cannot cast from %s to %s", e1.type.toChars(), to.toChars());
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
146 return new ErrorExp();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
147 }
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
148 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
149 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
150 else if (!to)
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
151 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
152 error("cannot cast tuple");
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
153 to = Type.terror;
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
154 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
155
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
156 //static if (true) {
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
157 if (sc.func && sc.func.isSafe() && !sc.intypeof)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
158 //} else {
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
159 // if (global.params.safe && !sc.module_.safe && !sc.intypeof)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
160 //}
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
161 { // Disallow unsafe casts
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
162 Type tob = to.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
163 Type t1b = e1.type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
164 if (!t1b.isMutable() && tob.isMutable())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
165 { // Cast not mutable to mutable
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
166 Lunsafe:
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
167 error("cast from %s to %s not allowed in safe code", e1.type.toChars(), to.toChars());
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
168 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
169 else if (t1b.isShared() && !tob.isShared())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
170 // Cast away shared
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
171 goto Lunsafe;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
172 else if (tob.ty == TY.Tpointer)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
173 { if (t1b.ty != TY.Tpointer)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
174 goto Lunsafe;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
175 Type tobn = tob.nextOf().toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
176 Type t1bn = t1b.nextOf().toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
177
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
178 if (!t1bn.isMutable() && tobn.isMutable())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
179 // Cast away pointer to not mutable
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
180 goto Lunsafe;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
181
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
182 if (t1bn.isShared() && !tobn.isShared())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
183 // Cast away pointer to shared
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
184 goto Lunsafe;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
185
135
af1bebfd96a4 dmd 2.038
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 130
diff changeset
186 if (t1bn.isWild() && !tobn.isConst() && !tobn.isWild())
af1bebfd96a4 dmd 2.038
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 130
diff changeset
187 // Cast wild to anything but const | wild
af1bebfd96a4 dmd 2.038
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 130
diff changeset
188 goto Lunsafe;
af1bebfd96a4 dmd 2.038
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 130
diff changeset
189
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
190 if (tobn.isTypeBasic() && tobn.size() < t1bn.size()) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
191 // Allow things like casting a long* to an int*
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
192 ;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
193 } else if (tobn.ty != TY.Tvoid) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
194 // Cast to a pointer other than void*
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
195 goto Lunsafe;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
196 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
197 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
198
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
199 // BUG: Check for casting array types, such as void[] to int*[]
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
200 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
201
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
202 e = e1.castTo(sc, to);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
203 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
204 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
205
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
206 override MATCH implicitConvTo(Type t)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
207 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
208 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
209 printf("CastExp::implicitConvTo(this=%s, type=%s, t=%s)\n", toChars(), type.toChars(), t.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
210 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
211 MATCH result = type.implicitConvTo(t);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
212
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
213 if (result == MATCHnomatch)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
214 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
215 if (t.isintegral() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
216 e1.type.isintegral() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
217 e1.implicitConvTo(t) != MATCHnomatch)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
218 result = MATCHconvert;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
219 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
220 result = Expression.implicitConvTo(t);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
221 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
222 return result;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
223 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
224
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
225 override IntRange getIntRange()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
226 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
227 IntRange ir;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
228 ir = e1.getIntRange();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
229 // Do sign extension
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
230 switch (e1.type.toBasetype().ty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
231 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
232 case Tint8:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
233 if (ir.imax & 0x80)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
234 ir.imax |= 0xFFFFFFFFFFFFFF00UL;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
235 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
236 case Tint16:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
237 if (ir.imax & 0x8000)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
238 ir.imax |= 0xFFFFFFFFFFFF0000UL;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
239 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
240 case Tint32:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
241 if (ir.imax & 0x80000000)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
242 ir.imax |= 0xFFFFFFFF00000000UL;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
243 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
244 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
245 }
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
246
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
247 if (type.isintegral())
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
248 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
249 ir.imin &= type.sizemask();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
250 ir.imax &= type.sizemask();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
251 }
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
252
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
253 //printf("CastExp: imin = x%llx, imax = x%llx\n", ir.imin, ir.imax);
53
a8b50ff7f201 ForeachStatement.syntaxCopy
korDen
parents: 12
diff changeset
254 return ir;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
255 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
256
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
257 override Expression optimize(int result)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
258 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
259 //printf("CastExp.optimize(result = %d) %s\n", result, toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
260 //printf("from %s to %s\n", type.toChars(), to.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
261 //printf("from %s\n", type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
262 //printf("e1.type %s\n", e1.type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
263 //printf("type = %p\n", type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
264 assert(type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
265 TOK op1 = e1.op;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
266
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
267 Expression e1old = e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
268 e1 = e1.optimize(result);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
269 e1 = fromConstInitializer(result, e1);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
270
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
271 if (e1 == e1old &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
272 e1.op == TOK.TOKarrayliteral &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
273 type.toBasetype().ty == TY.Tpointer &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
274 e1.type.toBasetype().ty != TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
275 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
276 // Casting this will result in the same expression, and
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
277 // infinite loop because of Expression.implicitCastTo()
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
278 return this; // no change
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
279 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
280
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
281 if ((e1.op == TOK.TOKstring || e1.op == TOK.TOKarrayliteral) &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
282 (type.ty == TY.Tpointer || type.ty == TY.Tarray) &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
283 e1.type.nextOf().size() == type.nextOf().size()
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
284 )
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
285 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
286 Expression e = e1.castTo(null, type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
287
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
288 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
289 printf(" returning1 %s\n", e.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
290 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
291 return e;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
292 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
293
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
294 if (e1.op == TOK.TOKstructliteral &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
295 e1.type.implicitConvTo(type) >= MATCH.MATCHconst)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
296 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
297 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
298 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
299 printf(" returning2 %s\n", e1.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
300 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
301 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
302 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
303
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
304 /* The first test here is to prevent infinite loops
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
305 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
306 if (op1 != TOK.TOKarrayliteral && e1.op == TOK.TOKarrayliteral)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
307 return e1.castTo(null, to);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
308 if (e1.op == TOK.TOKnull &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
309 (type.ty == TY.Tpointer || type.ty == TY.Tclass || type.ty == TY.Tarray))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
310 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
311 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
312 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
313 printf(" returning3 %s\n", e1.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
314 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
315 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
316 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
317
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
318 if (result & WANT.WANTflags && type.ty == TY.Tclass && e1.type.ty == TY.Tclass)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
319 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
320 // See if we can remove an unnecessary cast
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
321 ClassDeclaration cdfrom;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
322 ClassDeclaration cdto;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
323 int offset;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
324
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
325 cdfrom = e1.type.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
326 cdto = type.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
327 if (cdto.isBaseOf(cdfrom, &offset) && offset == 0)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
328 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
329 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
330 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
331 printf(" returning4 %s\n", e1.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
332 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
333 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
334 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
335 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
336
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
337 // We can convert 'head const' to mutable
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
338 if (to.constOf().equals(e1.type.constOf()))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
339 // if (to.constConv(e1.type) >= MATCHconst)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
340 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
341 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
342 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
343 printf(" returning5 %s\n", e1.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
344 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
345 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
346 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
347
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
348 Expression e;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
349
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
350 if (e1.isConst())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
351 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
352 if (e1.op == TOK.TOKsymoff)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
353 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
354 if (type.size() == e1.type.size() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
355 type.toBasetype().ty != TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
356 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
357 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
358 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
359 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
360 return this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
361 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
362 if (to.toBasetype().ty == TY.Tvoid)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
363 e = this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
364 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
365 e = Cast(type, to, e1);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
366 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
367 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
368 e = this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
369 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
370 printf(" returning6 %s\n", e.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
371 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
372 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
373 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
374
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
375 override Expression interpret(InterState istate)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
376 {
129
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
377 Expression e;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
378 Expression e1;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
379
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
380 version (LOG) {
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
381 printf("CastExp.interpret() %.*s\n", toChars());
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
382 }
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
383 e1 = this.e1.interpret(istate);
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
384 if (e1 is EXP_CANT_INTERPRET)
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
385 goto Lcant;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
386 return Cast(type, to, e1);
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
387
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
388 Lcant:
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
389 version (LOG) {
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
390 printf("CastExp.interpret() %.*s CANT\n", toChars());
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
391 }
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
392 return EXP_CANT_INTERPRET;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
393 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
394
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
395 override bool checkSideEffect(int flag)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
396 {
123
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
397 /* if not:
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
398 * cast(void)
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
399 * cast(classtype)func()
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
400 */
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
401 if (!to.equals(Type.tvoid) && !(to.ty == Tclass && e1.op == TOKcall && e1.type.ty == Tclass))
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
402 return Expression.checkSideEffect(flag);
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
403
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
404 return true;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
405 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
406
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
407 override void checkEscape()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
408 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
409 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
410 if (tb.ty == TY.Tarray && e1.op == TOK.TOKvar && e1.type.toBasetype().ty ==TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
411 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
412 VarExp ve = cast(VarExp)e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
413 VarDeclaration v = ve.var.isVarDeclaration();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
414 if (v)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
415 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
416 if (!v.isDataseg() && !v.isParameter())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
417 error("escaping reference to local %s", v.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
418 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
419 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
420 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
421
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
422 override void toCBuffer(OutBuffer buf, HdrGenState* hgs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
423 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
424 buf.writestring("cast(");
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
425 version (DMDV1) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
426 to.toCBuffer(buf, null, hgs);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
427 } else {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
428 if (to)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
429 to.toCBuffer(buf, null, hgs);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
430 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
431 {
135
af1bebfd96a4 dmd 2.038
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 130
diff changeset
432 MODtoBuffer(buf, mod);
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
433 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
434 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
435 buf.writeByte(')');
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
436 expToCBuffer(buf, hgs, e1, precedence[op]);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
437 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
438
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
439 override void buildArrayIdent(OutBuffer buf, Expressions arguments)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
440 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
441 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
442 if (tb.ty == Tarray || tb.ty == Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
443 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
444 e1.buildArrayIdent(buf, arguments);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
445 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
446 else
12
832f71e6f96c *Exp and *AssignExp arrayOp implementation added (might be a bit incomplete)
korDen
parents: 0
diff changeset
447 Expression.buildArrayIdent(buf, arguments);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
448 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
449
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
450 override Expression buildArrayLoop(Parameters fparams)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
451 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
452 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
453 if (tb.ty == Tarray || tb.ty == Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
454 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
455 return e1.buildArrayLoop(fparams);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
456 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
457 else
12
832f71e6f96c *Exp and *AssignExp arrayOp implementation added (might be a bit incomplete)
korDen
parents: 0
diff changeset
458 return Expression.buildArrayLoop(fparams);
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
459 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
460
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
461 static int X(int fty, int tty) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
462 return ((fty) * TY.TMAX + (tty));
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
463 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
464
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
465 override elem* toElem(IRState* irs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
466 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
467 TY fty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
468 TY tty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
469 tym_t ftym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
470 tym_t ttym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
471 OPER eop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
472
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
473 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
474 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
475 printf("CastExp::toElem()\n");
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
476 print();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
477 printf("\tfrom: %s\n", e1.type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
478 printf("\tto : %s\n", to.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
479 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
480
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
481 elem* e = e1.toElem(irs);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
482 Type tfrom = e1.type.toBasetype();
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
483 Type t = to.toBasetype(); // skip over typedef's
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
484 if (t.equals(tfrom))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
485 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
486
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
487 fty = tfrom.ty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
488 //printf("fty = %d\n", fty);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
489 tty = t.ty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
490
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
491 if (tty == TY.Tpointer && fty == TY.Tarray
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
492 ///static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
493 /// && (t.next.ty == Tvoid || t.next.equals(e1.type.next))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
494 ///}
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
495 )
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
496 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
497 if (e.Eoper == OPER.OPvar)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
498 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
499 // e1 . *(&e1 + 4)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
500 e = el_una(OPER.OPaddr, TYM.TYnptr, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
501 e = el_bin(OPER.OPadd, TYM.TYnptr, e, el_long(TYM.TYint, 4));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
502 e = el_una(OPER.OPind, t.totym(),e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
503 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
504 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
505 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
506 // e1 . (unsigned)(e1 >> 32)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
507 e = el_bin(OPER.OPshr, TYM.TYullong, e, el_long(TYM.TYint, 32));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
508 e = el_una(OPER.OP64_32, t.totym(), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
509 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
510 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
511 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
512
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
513 if (tty == TY.Tpointer && fty == TY.Tsarray
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
514 ///static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
515 /// && (t.next.ty == Tvoid || t.next.equals(e1.type.next))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
516 ///}
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
517 )
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
518 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
519 // e1 . &e1
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
520 e = el_una(OPER.OPaddr, TYM.TYnptr, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
521 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
522 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
523
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
524 // Convert from static array to dynamic array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
525 if (tty == TY.Tarray && fty == TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
526 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
527 e = sarray_toDarray(loc, tfrom, t, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
528 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
529 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
530
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
531 // Convert from dynamic array to dynamic array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
532 if (tty == TY.Tarray && fty == TY.Tarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
533 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
534 uint fsize = cast(uint)tfrom.nextOf().size();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
535 uint tsize = cast(uint)t.nextOf().size();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
536
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
537 if (fsize != tsize)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
538 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
539 elem* ep = el_params(e, el_long(TYM.TYint, fsize), el_long(TYM.TYint, tsize), null);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
540 e = el_bin(OPER.OPcall, type.totym(), el_var(rtlsym[RTLSYM.RTLSYM_ARRAYCAST]), ep);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
541 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
542 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
543 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
544
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
545 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
546 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
547 // Convert from dynamic array string literal to static array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
548 if (tty == TY.Tsarray && fty == TY.Tarray && e1.op == TOK.TOKstring)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
549 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
550 goto Lret; // treat as a 'paint'
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
551 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
552 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
553
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
554 // Casting from base class to derived class requires a runtime check
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
555 if (fty == TY.Tclass && tty == TY.Tclass)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
556 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
557 // Casting from derived class to base class is a no-op
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
558 ClassDeclaration cdfrom;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
559 ClassDeclaration cdto;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
560 int offset;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
561 int rtl = RTLSYM.RTLSYM_DYNAMIC_CAST;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
562
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
563 cdfrom = tfrom.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
564 cdto = t.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
565 if (cdfrom.isInterfaceDeclaration())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
566 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
567 rtl = RTLSYM.RTLSYM_INTERFACE_CAST;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
568 if (cdfrom.isCPPinterface())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
569 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
570 if (cdto.isCPPinterface())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
571 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
572 /* Casting from a C++ interface to a C++ interface
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
573 * is always a 'paint' operation
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
574 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
575 goto Lret; // no-op
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
576 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
577
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
578 /* Casting from a C++ interface to a class
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
579 * always results in null because there is no runtime
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
580 * information available to do it.
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
581 *
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
582 * Casting from a C++ interface to a non-C++ interface
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
583 * always results in null because there's no way one
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
584 * can be derived from the other.
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
585 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
586 e = el_bin(OPER.OPcomma, TYM.TYnptr, e, el_long(TYM.TYnptr, 0));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
587 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
588 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
589 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
590 if (cdto.isBaseOf(cdfrom, &offset) && offset != OFFSET_RUNTIME)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
591 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
592 /* The offset from cdfrom=>cdto is known at compile time.
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
593 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
594
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
595 //printf("offset = %d\n", offset);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
596 if (offset)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
597 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
598 /* Rewrite cast as (e ? e + offset : null)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
599 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
600 elem* etmp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
601 elem* ex;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
602
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
603 if (e1.op == TOK.TOKthis)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
604 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
605 // Assume 'this' is never null, so skip null check
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
606 e = el_bin(OPER.OPadd, TYM.TYnptr, e, el_long(TYM.TYint, offset));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
607 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
608 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
609 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
610 etmp = el_same(&e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
611 ex = el_bin(OPER.OPadd, TYM.TYnptr, etmp, el_long(TYM.TYint, offset));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
612 ex = el_bin(OPER.OPcolon, TYM.TYnptr, ex, el_long(TYM.TYnptr, 0));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
613 e = el_bin(OPER.OPcond, TYM.TYnptr, e, ex);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
614 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
615 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
616 goto Lret; // no-op
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
617 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
618
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
619 /* The offset from cdfrom=>cdto can only be determined at runtime.
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
620 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
621 elem* ep;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
622
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
623 ep = el_param(el_ptr(cdto.toSymbol()), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
624 e = el_bin(OPER.OPcall, TYM.TYnptr, el_var(rtlsym[rtl]), ep);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
625 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
626 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
627
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
628 ftym = tybasic(e.Ety);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
629 ttym = tybasic(t.totym());
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
630 if (ftym == ttym)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
631 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
632
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
633 switch (tty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
634 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
635 case TY.Tpointer:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
636 if (fty == TY.Tdelegate)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
637 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
638 tty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
639 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
640
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
641 case TY.Tchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
642 tty = TY.Tuns8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
643 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
644 case TY.Twchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
645 tty = TY.Tuns16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
646 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
647 case TY.Tdchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
648 tty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
649 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
650 case TY.Tvoid:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
651 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
652
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
653 case TY.Tbool:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
654 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
655 // Construct e?true:false
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
656 elem* eq;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
657
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
658 e = el_una(OPER.OPbool, ttym, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
659 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
660 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
661
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
662 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
663 break; ///
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
664 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
665
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
666 switch (fty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
667 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
668 case TY.Tpointer: fty = TY.Tuns32; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
669 case TY.Tchar: fty = TY.Tuns8; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
670 case TY.Twchar: fty = TY.Tuns16; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
671 case TY.Tdchar: fty = TY.Tuns32; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
672 default: break; ///
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
673 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
674
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
675 Lagain:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
676 switch (X(fty,tty))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
677 {
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
678 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
679 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
680 case X(TY.Tbit,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
681 case X(TY.Tbit,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
682 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
683 case X(TY.Tbit,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
684 case X(TY.Tbit,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
685 case X(TY.Tbit,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
686 case X(TY.Tbit,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
687 eop = OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
688 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
689 case X(TY.Tbit,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
690 case X(TY.Tbit,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
691 case X(TY.Tbit,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
692 case X(TY.Tbit,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
693 case X(TY.Tbit,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
694 case X(TY.Tbit,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
695 case X(TY.Tbit,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
696 case X(TY.Tbit,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
697 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
698 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
699 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
700 case X(Tbit,Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
701 case X(Tbit,Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
702 case X(Tbit,Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
703 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
704 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
705 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
706
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
707 case X(TY.Tbool,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
708 case X(TY.Tbool,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
709 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
710 case X(TY.Tbool,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
711 case X(TY.Tbool,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
712 case X(TY.Tbool,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
713 case X(TY.Tbool,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
714 eop = OPER.OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
715 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
716 case X(TY.Tbool,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
717 case X(TY.Tbool,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
718 case X(TY.Tbool,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
719 case X(TY.Tbool,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
720 case X(TY.Tbool,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
721 case X(TY.Tbool,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
722 case X(TY.Tbool,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
723 case X(TY.Tbool,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
724 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
725 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
726 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
727 case X(TY.Tbool,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
728 case X(TY.Tbool,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
729 case X(TY.Tbool,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
730 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
731
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
732 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
733
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
734 case X(TY.Tint8,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
735 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
736 case X(TY.Tint8,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
737 case X(TY.Tint8,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
738 case X(TY.Tint8,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
739 case X(TY.Tint8,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
740 eop = OPER.OPs8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
741 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
742 case X(TY.Tint8,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
743 case X(TY.Tint8,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
744 case X(TY.Tint8,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
745 case X(TY.Tint8,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
746 case X(TY.Tint8,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
747 case X(TY.Tint8,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
748 case X(TY.Tint8,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
749 case X(TY.Tint8,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
750 e = el_una(OPER.OPs8_16, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
751 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
752 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
753 case X(TY.Tint8,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
754 case X(TY.Tint8,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
755 case X(TY.Tint8,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
756 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
757
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
758 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
759
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
760 case X(TY.Tuns8,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
761 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
762 case X(TY.Tuns8,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
763 case X(TY.Tuns8,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
764 case X(TY.Tuns8,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
765 case X(TY.Tuns8,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
766 eop = OPER.OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
767 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
768 case X(TY.Tuns8,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
769 case X(TY.Tuns8,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
770 case X(TY.Tuns8,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
771 case X(TY.Tuns8,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
772 case X(TY.Tuns8,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
773 case X(TY.Tuns8,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
774 case X(TY.Tuns8,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
775 case X(TY.Tuns8,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
776 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
777 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
778 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
779 case X(TY.Tuns8,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
780 case X(TY.Tuns8,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
781 case X(TY.Tuns8,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
782 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
783
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
784 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
785
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
786 case X(TY.Tint16,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
787 case X(TY.Tint16,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
788 eop = OPER.OP16_8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
789 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
790 case X(TY.Tint16,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
791 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
792 case X(TY.Tint16,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
793 case X(TY.Tint16,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
794 eop = OPER.OPs16_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
795 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
796 case X(TY.Tint16,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
797 case X(TY.Tint16,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
798 e = el_una(OPER.OPs16_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
799 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
800 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
801 case X(TY.Tint16,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
802 case X(TY.Tint16,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
803 case X(TY.Tint16,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
804 case X(TY.Tint16,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
805 case X(TY.Tint16,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
806 case X(TY.Tint16,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
807 e = el_una(OPER.OPs16_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
808 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
809 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
810 case X(TY.Tint16,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
811 case X(TY.Tint16,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
812 case X(TY.Tint16,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
813 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
814
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
815 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
816
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
817 case X(TY.Tuns16,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
818 case X(TY.Tuns16,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
819 eop = OPER.OP16_8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
820 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
821 case X(TY.Tuns16,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
822 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
823 case X(TY.Tuns16,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
824 case X(TY.Tuns16,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
825 eop = OPER.OPu16_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
826 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
827 case X(TY.Tuns16,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
828 case X(TY.Tuns16,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
829 case X(TY.Tuns16,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
830 case X(TY.Tuns16,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
831 case X(TY.Tuns16,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
832 case X(TY.Tuns16,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
833 case X(TY.Tuns16,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
834 case X(TY.Tuns16,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
835 e = el_una(OPER.OPu16_32, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
836 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
837 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
838 case X(TY.Tuns16,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
839 case X(TY.Tuns16,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
840 case X(TY.Tuns16,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
841 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
842
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
843 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
844
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
845 case X(TY.Tint32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
846 case X(TY.Tint32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
847 e = el_una(OPER.OP32_16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
848 fty = TY.Tint16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
849 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
850 case X(TY.Tint32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
851 case X(TY.Tint32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
852 eop = OPER.OP32_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
853 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
854 case X(TY.Tint32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
855 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
856 case X(TY.Tint32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
857 case X(TY.Tint32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
858 eop = OPER.OPs32_64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
859 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
860 case X(TY.Tint32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
861 case X(TY.Tint32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
862 case X(TY.Tint32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
863 case X(TY.Tint32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
864 case X(TY.Tint32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
865 case X(TY.Tint32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
866 e = el_una(OPER.OPs32_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
867 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
868 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
869 case X(TY.Tint32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
870 case X(TY.Tint32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
871 case X(TY.Tint32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
872 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
873
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
874 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
875
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
876 case X(TY.Tuns32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
877 case X(TY.Tuns32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
878 e = el_una(OPER.OP32_16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
879 fty = TY.Tuns16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
880 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
881 case X(TY.Tuns32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
882 case X(TY.Tuns32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
883 eop = OPER.OP32_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
884 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
885 case X(TY.Tuns32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
886 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
887 case X(TY.Tuns32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
888 case X(TY.Tuns32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
889 eop = OPER.OPu32_64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
890 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
891 case X(TY.Tuns32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
892 case X(TY.Tuns32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
893 case X(TY.Tuns32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
894 case X(TY.Tuns32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
895 case X(TY.Tuns32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
896 case X(TY.Tuns32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
897 e = el_una(OPER.OPu32_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
898 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
899 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
900 case X(TY.Tuns32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
901 case X(TY.Tuns32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
902 case X(TY.Tuns32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
903 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
904
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
905 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
906
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
907 case X(TY.Tint64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
908 case X(TY.Tint64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
909 case X(TY.Tint64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
910 case X(TY.Tint64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
911 e = el_una(OPER.OP64_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
912 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
913 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
914 case X(TY.Tint64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
915 case X(TY.Tint64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
916 eop = OPER.OP64_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
917 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
918 case X(TY.Tint64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
919 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
920 case X(TY.Tint64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
921 case X(TY.Tint64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
922 case X(TY.Tint64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
923 case X(TY.Tint64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
924 case X(TY.Tint64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
925 case X(TY.Tint64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
926 e = el_una(OPER.OPs64_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
927 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
928 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
929 case X(TY.Tint64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
930 case X(TY.Tint64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
931 case X(TY.Tint64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
932 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
933
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
934 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
935
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
936 case X(TY.Tuns64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
937 case X(TY.Tuns64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
938 case X(TY.Tuns64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
939 case X(TY.Tuns64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
940 e = el_una(OPER.OP64_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
941 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
942 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
943 case X(TY.Tuns64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
944 case X(TY.Tuns64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
945 eop = OPER.OP64_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
946 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
947 case X(TY.Tuns64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
948 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
949 case X(TY.Tuns64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
950 case X(TY.Tuns64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
951 case X(TY.Tuns64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
952 case X(TY.Tuns64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
953 case X(TY.Tuns64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
954 case X(TY.Tuns64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
955 e = el_una(OPER.OPu64_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
956 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
957 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
958 case X(TY.Tuns64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
959 case X(TY.Tuns64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
960 case X(TY.Tuns64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
961 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
962
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
963 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
964
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
965 case X(TY.Tfloat32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
966 case X(TY.Tfloat32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
967 case X(TY.Tfloat32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
968 case X(TY.Tfloat32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
969 case X(TY.Tfloat32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
970 case X(TY.Tfloat32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
971 case X(TY.Tfloat32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
972 case X(TY.Tfloat32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
973 case X(TY.Tfloat32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
974 e = el_una(OPER.OPf_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
975 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
976 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
977 case X(TY.Tfloat32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
978 eop = OPER.OPf_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
979 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
980 case X(TY.Tfloat32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
981 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
982 case X(TY.Tfloat32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
983 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
984 case X(TY.Tfloat32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
985 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
986 case X(TY.Tfloat32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
987 case X(TY.Tfloat32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
988 case X(TY.Tfloat32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
989 e = el_bin(OPER.OPadd,TYM.TYcfloat,el_long(TYM.TYifloat,0),e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
990 fty = TY.Tcomplex32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
991 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
992
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
993 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
994
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
995 case X(TY.Tfloat64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
996 case X(TY.Tfloat64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
997 e = el_una(OPER.OPd_s16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
998 fty = TY.Tint16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
999 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1000 case X(TY.Tfloat64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1001 eop = OPER.OPd_s16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1002 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1003 case X(TY.Tfloat64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1004 eop = OPER.OPd_u16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1005 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1006 case X(TY.Tfloat64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1007 eop = OPER.OPd_s32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1008 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1009 case X(TY.Tfloat64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1010 eop = OPER.OPd_u32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1011 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1012 case X(TY.Tfloat64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1013 eop = OPER.OPd_s64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1014 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1015 case X(TY.Tfloat64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1016 eop = OPER.OPd_u64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1017 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1018 case X(TY.Tfloat64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1019 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1020 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1021 case X(TY.Tfloat64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1022 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1023 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1024 case X(TY.Tfloat64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1025 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1026 case X(TY.Tfloat64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1027 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1028 case X(TY.Tfloat64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1029 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1030 case X(TY.Tfloat64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1031 case X(TY.Tfloat64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1032 case X(TY.Tfloat64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1033 e = el_bin(OPER.OPadd,TYM.TYcfloat,el_long(TYM.TYidouble,0),e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1034 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1035 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1036
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1037 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1038
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1039 case X(TY.Tfloat80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1040 case X(TY.Tfloat80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1041 case X(TY.Tfloat80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1042 case X(TY.Tfloat80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1043 case X(TY.Tfloat80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1044 case X(TY.Tfloat80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1045 case X(TY.Tfloat80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1046 case X(TY.Tfloat80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1047 e = el_una(OPER.OPld_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1048 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1049 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1050 case X(TY.Tfloat80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1051 eop = OPER.OPld_u64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1052 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1053 case X(TY.Tfloat80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1054 eop = OPER.OPld_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1055 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1056 case X(TY.Tfloat80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1057 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1058 case X(TY.Tfloat80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1059 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1060 case X(TY.Tfloat80,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1061 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1062 case X(TY.Tfloat80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1063 case X(TY.Tfloat80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1064 case X(TY.Tfloat80,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1065 e = el_bin(OPER.OPadd,TYM.TYcldouble,e,el_long(TYM.TYildouble,0));
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1066 fty = TY.Tcomplex80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1067 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1068
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1069 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1070
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1071 case X(TY.Timaginary32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1072 case X(TY.Timaginary32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1073 case X(TY.Timaginary32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1074 case X(TY.Timaginary32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1075 case X(TY.Timaginary32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1076 case X(TY.Timaginary32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1077 case X(TY.Timaginary32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1078 case X(TY.Timaginary32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1079 case X(TY.Timaginary32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1080 case X(TY.Timaginary32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1081 case X(TY.Timaginary32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1082 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1083 case X(TY.Timaginary32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1084 eop = OPER.OPf_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1085 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1086 case X(TY.Timaginary32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1087 e = el_una(OPER.OPf_d, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1088 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1089 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1090 case X(TY.Timaginary32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1091 case X(TY.Timaginary32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1092 case X(TY.Timaginary32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1093 e = el_bin(OPER.OPadd,TYM.TYcfloat,el_long(TYM.TYfloat,0),e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1094 fty = TY.Tcomplex32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1095 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1096
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1097 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1098
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1099 case X(TY.Timaginary64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1100 case X(TY.Timaginary64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1101 case X(TY.Timaginary64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1102 case X(TY.Timaginary64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1103 case X(TY.Timaginary64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1104 case X(TY.Timaginary64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1105 case X(TY.Timaginary64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1106 case X(TY.Timaginary64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1107 case X(TY.Timaginary64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1108 case X(TY.Timaginary64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1109 case X(TY.Timaginary64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1110 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1111 case X(TY.Timaginary64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1112 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1113 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1114 case X(TY.Timaginary64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1115 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1116 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1117 case X(TY.Timaginary64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1118 case X(TY.Timaginary64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1119 case X(TY.Timaginary64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1120 e = el_bin(OPER.OPadd, TYM.TYcdouble, el_long(TYM.TYdouble,0), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1121 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1122 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1123
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1124 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1125
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1126 case X(TY.Timaginary80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1127 case X(TY.Timaginary80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1128 case X(TY.Timaginary80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1129 case X(TY.Timaginary80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1130 case X(TY.Timaginary80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1131 case X(TY.Timaginary80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1132 case X(TY.Timaginary80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1133 case X(TY.Timaginary80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1134 case X(TY.Timaginary80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1135 case X(TY.Timaginary80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1136 case X(TY.Timaginary80,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1137 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1138 case X(TY.Timaginary80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1139 e = el_una(OPER.OPf_d, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1140 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1141 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1142 case X(TY.Timaginary80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1143 eop = OPER.OPld_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1144 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1145 case X(TY.Timaginary80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1146 case X(TY.Timaginary80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1147 case X(TY.Timaginary80,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1148 e = el_bin(OPER.OPadd, TYM.TYcldouble, el_long(TYM.TYldouble,0), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1149 fty = TY.Tcomplex80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1150 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1151
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1152 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1153
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1154 case X(TY.Tcomplex32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1155 case X(TY.Tcomplex32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1156 case X(TY.Tcomplex32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1157 case X(TY.Tcomplex32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1158 case X(TY.Tcomplex32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1159 case X(TY.Tcomplex32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1160 case X(TY.Tcomplex32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1161 case X(TY.Tcomplex32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1162 case X(TY.Tcomplex32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1163 case X(TY.Tcomplex32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1164 case X(TY.Tcomplex32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1165 e = el_una(OPER.OPc_r, TYM.TYfloat, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1166 fty = TY.Tfloat32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1167 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1168 case X(TY.Tcomplex32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1169 case X(TY.Tcomplex32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1170 case X(TY.Tcomplex32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1171 e = el_una(OPER.OPc_i, TYM.TYifloat, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1172 fty = TY.Timaginary32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1173 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1174 case X(TY.Tcomplex32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1175 case X(TY.Tcomplex32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1176 e = el_una(OPER.OPf_d, TYM.TYcdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1177 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1178 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1179
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1180 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1181
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1182 case X(TY.Tcomplex64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1183 case X(TY.Tcomplex64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1184 case X(TY.Tcomplex64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1185 case X(TY.Tcomplex64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1186 case X(TY.Tcomplex64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1187 case X(TY.Tcomplex64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1188 case X(TY.Tcomplex64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1189 case X(TY.Tcomplex64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1190 case X(TY.Tcomplex64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1191 case X(TY.Tcomplex64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1192 case X(TY.Tcomplex64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1193 e = el_una(OPER.OPc_r, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1194 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1195 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1196 case X(TY.Tcomplex64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1197 case X(TY.Tcomplex64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1198 case X(TY.Tcomplex64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1199 e = el_una(OPER.OPc_i, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1200 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1201 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1202 case X(TY.Tcomplex64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1203 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1204 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1205 case X(TY.Tcomplex64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1206 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1207 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1208
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1209 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1210
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1211 case X(TY.Tcomplex80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1212 case X(TY.Tcomplex80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1213 case X(TY.Tcomplex80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1214 case X(TY.Tcomplex80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1215 case X(TY.Tcomplex80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1216 case X(TY.Tcomplex80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1217 case X(TY.Tcomplex80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1218 case X(TY.Tcomplex80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1219 case X(TY.Tcomplex80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1220 case X(TY.Tcomplex80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1221 case X(TY.Tcomplex80,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1222 e = el_una(OPER.OPc_r, TYM.TYldouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1223 fty = TY.Tfloat80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1224 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1225 case X(TY.Tcomplex80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1226 case X(TY.Tcomplex80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1227 case X(TY.Tcomplex80,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1228 e = el_una(OPER.OPc_i, TYM.TYildouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1229 fty = TY.Timaginary80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1230 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1231 case X(TY.Tcomplex80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1232 case X(TY.Tcomplex80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1233 e = el_una(OPER.OPld_d, TYM.TYcdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1234 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1235 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1236
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1237 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1238
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1239 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1240 if (fty == tty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1241 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1242 //dump(0);
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
1243 //writef("fty = %d, tty = %d, %d\n", fty, tty, t.ty);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
1244 error("e2ir: cannot cast %s of type %s to type %s", e1.toChars(), e1.type.toChars(), t.toChars());
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1245 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1246
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1247 Lzero:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1248 e = el_long(ttym, 0);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1249 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1250
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1251 Lpaint:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1252 e.Ety = ttym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1253 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1254
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1255 Leop:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1256 e = el_una(eop, ttym, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1257 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1258 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1259 Lret:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1260 // Adjust for any type paints
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1261 t = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1262 e.Ety = t.totym();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1263
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1264 el_setLoc(e,loc);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1265 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1266 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1267
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1268 override Identifier opId()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1269 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1270 return Id.cast_;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1271 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1272 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1273