Mercurial > projects > ddmd

annotate dmd/CastExp.d @ 130:60bb0fe4563e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dmdfe 2.037 first main iteration
author Eldar Insafutdinov <e.insafutdinov@gmail.com>
date Thu, 09 Sep 2010 22:51:44 +0100
parents 010eb8f0e18d
children af1bebfd96a4
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
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
186 if (tobn.isTypeBasic() && tobn.size() < t1bn.size()) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
187 // Allow things like casting a long* to an int*
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
188 ;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
189 } else if (tobn.ty != TY.Tvoid) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
190 // Cast to a pointer other than void*
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
191 goto Lunsafe;
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 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
194
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
195 // 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
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 e = e1.castTo(sc, to);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
199 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
200 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
201
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
202 override MATCH implicitConvTo(Type t)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
203 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
204 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
205 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
206 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
207 MATCH result = type.implicitConvTo(t);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
208
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
209 if (result == MATCHnomatch)
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 if (t.isintegral() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
212 e1.type.isintegral() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
213 e1.implicitConvTo(t) != MATCHnomatch)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
214 result = MATCHconvert;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
215 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
216 result = Expression.implicitConvTo(t);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
217 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
218 return result;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
219 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
220
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
221 override IntRange getIntRange()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
222 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
223 IntRange ir;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
224 ir = e1.getIntRange();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
225 // Do sign extension
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
226 switch (e1.type.toBasetype().ty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
227 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
228 case Tint8:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
229 if (ir.imax & 0x80)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
230 ir.imax |= 0xFFFFFFFFFFFFFF00UL;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
231 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
232 case Tint16:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
233 if (ir.imax & 0x8000)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
234 ir.imax |= 0xFFFFFFFFFFFF0000UL;
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 Tint32:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
237 if (ir.imax & 0x80000000)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
238 ir.imax |= 0xFFFFFFFF00000000UL;
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 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
241 }
73
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
242
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
243 if (type.isintegral())
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
244 {
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
245 ir.imin &= type.sizemask();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
246 ir.imax &= type.sizemask();
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
247 }
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
248
ef02e2e203c2 Updating to dmd2.033
korDen
parents: 72
diff changeset
249 //printf("CastExp: imin = x%llx, imax = x%llx\n", ir.imin, ir.imax);
53
a8b50ff7f201 ForeachStatement.syntaxCopy
korDen
parents: 12
diff changeset
250 return ir;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
251 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
252
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
253 override Expression optimize(int result)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
254 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
255 //printf("CastExp.optimize(result = %d) %s\n", result, toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
256 //printf("from %s to %s\n", type.toChars(), to.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
257 //printf("from %s\n", type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
258 //printf("e1.type %s\n", e1.type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
259 //printf("type = %p\n", type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
260 assert(type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
261 TOK op1 = e1.op;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
262
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
263 Expression e1old = e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
264 e1 = e1.optimize(result);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
265 e1 = fromConstInitializer(result, e1);
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 if (e1 == e1old &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
268 e1.op == TOK.TOKarrayliteral &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
269 type.toBasetype().ty == TY.Tpointer &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
270 e1.type.toBasetype().ty != TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
271 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
272 // Casting this will result in the same expression, and
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
273 // infinite loop because of Expression.implicitCastTo()
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
274 return this; // no change
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
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
277 if ((e1.op == TOK.TOKstring || e1.op == TOK.TOKarrayliteral) &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
278 (type.ty == TY.Tpointer || type.ty == TY.Tarray) &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
279 e1.type.nextOf().size() == type.nextOf().size()
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 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
282 Expression e = e1.castTo(null, type);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
283
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
284 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
285 printf(" returning1 %s\n", e.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
286 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
287 return e;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
288 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
289
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
290 if (e1.op == TOK.TOKstructliteral &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
291 e1.type.implicitConvTo(type) >= MATCH.MATCHconst)
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 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
294 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
295 printf(" returning2 %s\n", e1.toChars());
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 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
298 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
299
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
300 /* The first test here is to prevent infinite loops
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
301 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
302 if (op1 != TOK.TOKarrayliteral && e1.op == TOK.TOKarrayliteral)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
303 return e1.castTo(null, to);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
304 if (e1.op == TOK.TOKnull &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
305 (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
306 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
307 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
308 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
309 printf(" returning3 %s\n", e1.toChars());
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 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
312 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
313
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
314 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
315 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
316 // See if we can remove an unnecessary cast
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
317 ClassDeclaration cdfrom;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
318 ClassDeclaration cdto;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
319 int offset;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
320
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
321 cdfrom = e1.type.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
322 cdto = type.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
323 if (cdto.isBaseOf(cdfrom, &offset) && offset == 0)
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 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
326 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
327 printf(" returning4 %s\n", e1.toChars());
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 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
330 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
331 }
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 // We can convert 'head const' to mutable
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
334 if (to.constOf().equals(e1.type.constOf()))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
335 // if (to.constConv(e1.type) >= MATCHconst)
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 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
338 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
339 printf(" returning5 %s\n", e1.toChars());
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 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
342 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
343
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
344 Expression e;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
345
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
346 if (e1.isConst())
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 if (e1.op == TOK.TOKsymoff)
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 (type.size() == e1.type.size() &&
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
351 type.toBasetype().ty != TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
352 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
353 e1.type = type;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
354 return e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
355 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
356 return this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
357 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
358 if (to.toBasetype().ty == TY.Tvoid)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
359 e = this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
360 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
361 e = Cast(type, to, e1);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
362 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
363 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
364 e = this;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
365 static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
366 printf(" returning6 %s\n", e.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
367 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
368 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
369 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
370
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
371 override Expression interpret(InterState istate)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
372 {
129
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
373 Expression e;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
374 Expression e1;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
375
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
376 version (LOG) {
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
377 printf("CastExp.interpret() %.*s\n", toChars());
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
378 }
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
379 e1 = this.e1.interpret(istate);
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
380 if (e1 is EXP_CANT_INTERPRET)
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
381 goto Lcant;
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
382 return Cast(type, to, e1);
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
383
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
384 Lcant:
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
385 version (LOG) {
010eb8f0e18d further work on dmd test suite
korDen
parents: 123
diff changeset
386 printf("CastExp.interpret() %.*s CANT\n", toChars());
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 return EXP_CANT_INTERPRET;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
389 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
390
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
391 override bool checkSideEffect(int flag)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
392 {
123
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
393 /* if not:
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
394 * cast(void)
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
395 * cast(classtype)func()
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
396 */
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
397 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
398 return Expression.checkSideEffect(flag);
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
399
9e39c7de8438 Make dmd test suite compile
korDen
parents: 114
diff changeset
400 return true;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
401 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
402
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
403 override void checkEscape()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
404 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
405 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
406 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
407 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
408 VarExp ve = cast(VarExp)e1;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
409 VarDeclaration v = ve.var.isVarDeclaration();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
410 if (v)
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 if (!v.isDataseg() && !v.isParameter())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
413 error("escaping reference to local %s", v.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
414 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
415 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
416 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
417
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
418 override void toCBuffer(OutBuffer buf, HdrGenState* hgs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
419 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
420 buf.writestring("cast(");
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
421 version (DMDV1) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
422 to.toCBuffer(buf, null, hgs);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
423 } else {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
424 if (to)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
425 to.toCBuffer(buf, null, hgs);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
426 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
427 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
428 switch (mod)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
429 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
430 case MODundefined:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
431 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
432 case MODconst:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
433 buf.writestring(Token.tochars[TOKconst]);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
434 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
435 case MODinvariant:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
436 buf.writestring(Token.tochars[TOKimmutable]);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
437 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
438 case MODshared:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
439 buf.writestring(Token.tochars[TOKshared]);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
440 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
441 case MODshared | MODconst:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
442 buf.writestring(Token.tochars[TOKshared]);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
443 buf.writeByte(' ');
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
444 buf.writestring(Token.tochars[TOKconst]);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
445 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
446 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
447 assert(0);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
448 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
449 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
450 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
451 buf.writeByte(')');
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
452 expToCBuffer(buf, hgs, e1, precedence[op]);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
453 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
454
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
455 override void buildArrayIdent(OutBuffer buf, Expressions arguments)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
456 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
457 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
458 if (tb.ty == Tarray || tb.ty == Tsarray)
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 e1.buildArrayIdent(buf, arguments);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
461 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
462 else
12
832f71e6f96c *Exp and *AssignExp arrayOp implementation added (might be a bit incomplete)
korDen
parents: 0
diff changeset
463 Expression.buildArrayIdent(buf, arguments);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
464 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
465
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 129
diff changeset
466 override Expression buildArrayLoop(Parameters fparams)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
467 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
468 Type tb = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
469 if (tb.ty == Tarray || tb.ty == Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
470 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
471 return e1.buildArrayLoop(fparams);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
472 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
473 else
12
832f71e6f96c *Exp and *AssignExp arrayOp implementation added (might be a bit incomplete)
korDen
parents: 0
diff changeset
474 return Expression.buildArrayLoop(fparams);
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
475 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
476
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
477 static int X(int fty, int tty) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
478 return ((fty) * TY.TMAX + (tty));
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
479 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
480
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
481 override elem* toElem(IRState* irs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
482 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
483 TY fty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
484 TY tty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
485 tym_t ftym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
486 tym_t ttym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
487 OPER eop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
488
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
489 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
490 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
491 printf("CastExp::toElem()\n");
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
492 print();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
493 printf("\tfrom: %s\n", e1.type.toChars());
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
494 printf("\tto : %s\n", to.toChars());
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
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
497 elem* e = e1.toElem(irs);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
498 Type tfrom = e1.type.toBasetype();
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
499 Type t = to.toBasetype(); // skip over typedef's
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
500 if (t.equals(tfrom))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
501 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
502
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
503 fty = tfrom.ty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
504 //printf("fty = %d\n", fty);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
505 tty = t.ty;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
506
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
507 if (tty == TY.Tpointer && fty == TY.Tarray
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
508 ///static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
509 /// && (t.next.ty == Tvoid || t.next.equals(e1.type.next))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
510 ///}
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 (e.Eoper == OPER.OPvar)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
514 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
515 // e1 . *(&e1 + 4)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
516 e = el_una(OPER.OPaddr, TYM.TYnptr, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
517 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
518 e = el_una(OPER.OPind, t.totym(),e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
519 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
520 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
521 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
522 // e1 . (unsigned)(e1 >> 32)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
523 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
524 e = el_una(OPER.OP64_32, t.totym(), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
525 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
526 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
527 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
528
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
529 if (tty == TY.Tpointer && fty == TY.Tsarray
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
530 ///static if (false) {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
531 /// && (t.next.ty == Tvoid || t.next.equals(e1.type.next))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
532 ///}
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 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
535 // e1 . &e1
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
536 e = el_una(OPER.OPaddr, TYM.TYnptr, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
537 goto Lret;
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
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
540 // Convert from static array to dynamic array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
541 if (tty == TY.Tarray && fty == TY.Tsarray)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
542 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
543 e = sarray_toDarray(loc, tfrom, t, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
544 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
545 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
546
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
547 // Convert from dynamic array to dynamic array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
548 if (tty == TY.Tarray && fty == TY.Tarray)
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 uint fsize = cast(uint)tfrom.nextOf().size();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
551 uint tsize = cast(uint)t.nextOf().size();
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 if (fsize != tsize)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
554 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
555 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
556 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
557 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
558 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
559 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
560
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
561 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
562 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
563 // Convert from dynamic array string literal to static array
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
564 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
565 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
566 goto Lret; // treat as a 'paint'
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
567 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
568 }
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 // 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
571 if (fty == TY.Tclass && tty == TY.Tclass)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
572 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
573 // 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
574 ClassDeclaration cdfrom;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
575 ClassDeclaration cdto;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
576 int offset;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
577 int rtl = RTLSYM.RTLSYM_DYNAMIC_CAST;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
578
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
579 cdfrom = tfrom.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
580 cdto = t.isClassHandle();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
581 if (cdfrom.isInterfaceDeclaration())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
582 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
583 rtl = RTLSYM.RTLSYM_INTERFACE_CAST;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
584 if (cdfrom.isCPPinterface())
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 if (cdto.isCPPinterface())
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
587 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
588 /* Casting from a C++ interface to a C++ interface
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
589 * is always a 'paint' operation
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
590 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
591 goto Lret; // no-op
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
592 }
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 /* Casting from a C++ interface to a class
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
595 * always results in null because there is no runtime
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
596 * information available to do it.
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 * Casting from a C++ interface to a non-C++ interface
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
599 * always results in null because there's no way one
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
600 * can be derived from the other.
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
601 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
602 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
603 goto Lret;
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 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
606 if (cdto.isBaseOf(cdfrom, &offset) && offset != OFFSET_RUNTIME)
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 /* The offset from cdfrom=>cdto is known at compile time.
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
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
611 //printf("offset = %d\n", offset);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
612 if (offset)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
613 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
614 /* Rewrite cast as (e ? e + offset : null)
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 elem* etmp;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
617 elem* ex;
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 if (e1.op == TOK.TOKthis)
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 // Assume 'this' is never null, so skip null check
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
622 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
623 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
624 else
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
625 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
626 etmp = el_same(&e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
627 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
628 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
629 e = el_bin(OPER.OPcond, TYM.TYnptr, e, ex);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
630 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
631 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
632 goto Lret; // no-op
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
633 }
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 /* 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
636 */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
637 elem* ep;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
638
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
639 ep = el_param(el_ptr(cdto.toSymbol()), e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
640 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
641 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
642 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
643
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
644 ftym = tybasic(e.Ety);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
645 ttym = tybasic(t.totym());
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
646 if (ftym == ttym)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
647 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
648
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
649 switch (tty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
650 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
651 case TY.Tpointer:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
652 if (fty == TY.Tdelegate)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
653 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
654 tty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
655 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
656
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
657 case TY.Tchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
658 tty = TY.Tuns8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
659 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
660 case TY.Twchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
661 tty = TY.Tuns16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
662 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
663 case TY.Tdchar:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
664 tty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
665 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
666 case TY.Tvoid:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
667 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
668
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
669 case TY.Tbool:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
670 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
671 // Construct e?true:false
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
672 elem* eq;
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 e = el_una(OPER.OPbool, ttym, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
675 goto Lret;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
676 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
677
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
678 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
679 break; ///
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
680 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
681
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
682 switch (fty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
683 {
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
684 case TY.Tpointer: fty = TY.Tuns32; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
685 case TY.Tchar: fty = TY.Tuns8; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
686 case TY.Twchar: fty = TY.Tuns16; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
687 case TY.Tdchar: fty = TY.Tuns32; break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
688 default: break; ///
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
689 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
690
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
691 Lagain:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
692 switch (X(fty,tty))
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
693 {
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
694 static if (false)
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
695 {
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
696 case X(TY.Tbit,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
697 case X(TY.Tbit,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
698 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
699 case X(TY.Tbit,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
700 case X(TY.Tbit,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
701 case X(TY.Tbit,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
702 case X(TY.Tbit,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
703 eop = OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
704 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
705 case X(TY.Tbit,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
706 case X(TY.Tbit,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
707 case X(TY.Tbit,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
708 case X(TY.Tbit,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
709 case X(TY.Tbit,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
710 case X(TY.Tbit,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
711 case X(TY.Tbit,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
712 case X(TY.Tbit,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
713 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
714 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
715 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
716 case X(Tbit,Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
717 case X(Tbit,Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
718 case X(Tbit,Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
719 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
720 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
721 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
722
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
723 case X(TY.Tbool,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
724 case X(TY.Tbool,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
725 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
726 case X(TY.Tbool,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
727 case X(TY.Tbool,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
728 case X(TY.Tbool,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
729 case X(TY.Tbool,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
730 eop = OPER.OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
731 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
732 case X(TY.Tbool,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
733 case X(TY.Tbool,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
734 case X(TY.Tbool,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
735 case X(TY.Tbool,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
736 case X(TY.Tbool,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
737 case X(TY.Tbool,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
738 case X(TY.Tbool,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
739 case X(TY.Tbool,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
740 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
741 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
742 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
743 case X(TY.Tbool,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
744 case X(TY.Tbool,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
745 case X(TY.Tbool,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
746 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
747
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
748 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
749
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
750 case X(TY.Tint8,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
751 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
752 case X(TY.Tint8,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
753 case X(TY.Tint8,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
754 case X(TY.Tint8,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
755 case X(TY.Tint8,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
756 eop = OPER.OPs8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
757 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
758 case X(TY.Tint8,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
759 case X(TY.Tint8,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
760 case X(TY.Tint8,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
761 case X(TY.Tint8,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
762 case X(TY.Tint8,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
763 case X(TY.Tint8,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
764 case X(TY.Tint8,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
765 case X(TY.Tint8,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
766 e = el_una(OPER.OPs8_16, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
767 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
768 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
769 case X(TY.Tint8,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
770 case X(TY.Tint8,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
771 case X(TY.Tint8,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
772 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
773
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
774 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
775
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
776 case X(TY.Tuns8,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
777 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
778 case X(TY.Tuns8,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
779 case X(TY.Tuns8,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
780 case X(TY.Tuns8,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
781 case X(TY.Tuns8,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
782 eop = OPER.OPu8_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
783 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
784 case X(TY.Tuns8,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
785 case X(TY.Tuns8,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
786 case X(TY.Tuns8,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
787 case X(TY.Tuns8,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
788 case X(TY.Tuns8,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
789 case X(TY.Tuns8,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
790 case X(TY.Tuns8,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
791 case X(TY.Tuns8,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
792 e = el_una(OPER.OPu8_16, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
793 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
794 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
795 case X(TY.Tuns8,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
796 case X(TY.Tuns8,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
797 case X(TY.Tuns8,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
798 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
799
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
800 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
801
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
802 case X(TY.Tint16,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
803 case X(TY.Tint16,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
804 eop = OPER.OP16_8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
805 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
806 case X(TY.Tint16,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
807 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
808 case X(TY.Tint16,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
809 case X(TY.Tint16,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
810 eop = OPER.OPs16_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
811 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
812 case X(TY.Tint16,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
813 case X(TY.Tint16,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
814 e = el_una(OPER.OPs16_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
815 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
816 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
817 case X(TY.Tint16,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
818 case X(TY.Tint16,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
819 case X(TY.Tint16,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
820 case X(TY.Tint16,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
821 case X(TY.Tint16,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
822 case X(TY.Tint16,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
823 e = el_una(OPER.OPs16_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
824 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
825 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
826 case X(TY.Tint16,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
827 case X(TY.Tint16,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
828 case X(TY.Tint16,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
829 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
830
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
831 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
832
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
833 case X(TY.Tuns16,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
834 case X(TY.Tuns16,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
835 eop = OPER.OP16_8;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
836 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
837 case X(TY.Tuns16,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
838 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
839 case X(TY.Tuns16,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
840 case X(TY.Tuns16,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
841 eop = OPER.OPu16_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
842 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
843 case X(TY.Tuns16,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
844 case X(TY.Tuns16,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
845 case X(TY.Tuns16,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
846 case X(TY.Tuns16,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
847 case X(TY.Tuns16,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
848 case X(TY.Tuns16,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
849 case X(TY.Tuns16,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
850 case X(TY.Tuns16,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
851 e = el_una(OPER.OPu16_32, TYM.TYuint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
852 fty = TY.Tuns32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
853 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
854 case X(TY.Tuns16,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
855 case X(TY.Tuns16,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
856 case X(TY.Tuns16,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
857 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
858
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
859 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
860
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
861 case X(TY.Tint32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
862 case X(TY.Tint32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
863 e = el_una(OPER.OP32_16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
864 fty = TY.Tint16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
865 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
866 case X(TY.Tint32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
867 case X(TY.Tint32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
868 eop = OPER.OP32_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
869 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
870 case X(TY.Tint32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
871 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
872 case X(TY.Tint32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
873 case X(TY.Tint32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
874 eop = OPER.OPs32_64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
875 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
876 case X(TY.Tint32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
877 case X(TY.Tint32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
878 case X(TY.Tint32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
879 case X(TY.Tint32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
880 case X(TY.Tint32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
881 case X(TY.Tint32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
882 e = el_una(OPER.OPs32_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
883 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
884 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
885 case X(TY.Tint32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
886 case X(TY.Tint32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
887 case X(TY.Tint32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
888 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
889
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
890 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
891
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
892 case X(TY.Tuns32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
893 case X(TY.Tuns32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
894 e = el_una(OPER.OP32_16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
895 fty = TY.Tuns16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
896 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
897 case X(TY.Tuns32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
898 case X(TY.Tuns32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
899 eop = OPER.OP32_16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
900 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
901 case X(TY.Tuns32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
902 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
903 case X(TY.Tuns32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
904 case X(TY.Tuns32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
905 eop = OPER.OPu32_64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
906 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
907 case X(TY.Tuns32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
908 case X(TY.Tuns32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
909 case X(TY.Tuns32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
910 case X(TY.Tuns32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
911 case X(TY.Tuns32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
912 case X(TY.Tuns32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
913 e = el_una(OPER.OPu32_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
914 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
915 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
916 case X(TY.Tuns32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
917 case X(TY.Tuns32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
918 case X(TY.Tuns32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
919 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
920
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
921 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
922
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
923 case X(TY.Tint64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
924 case X(TY.Tint64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
925 case X(TY.Tint64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
926 case X(TY.Tint64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
927 e = el_una(OPER.OP64_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
928 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
929 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
930 case X(TY.Tint64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
931 case X(TY.Tint64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
932 eop = OPER.OP64_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
933 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
934 case X(TY.Tint64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
935 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
936 case X(TY.Tint64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
937 case X(TY.Tint64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
938 case X(TY.Tint64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
939 case X(TY.Tint64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
940 case X(TY.Tint64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
941 case X(TY.Tint64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
942 e = el_una(OPER.OPs64_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
943 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
944 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
945 case X(TY.Tint64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
946 case X(TY.Tint64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
947 case X(TY.Tint64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
948 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
949
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
950 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
951
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
952 case X(TY.Tuns64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
953 case X(TY.Tuns64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
954 case X(TY.Tuns64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
955 case X(TY.Tuns64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
956 e = el_una(OPER.OP64_32, TYM.TYint, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
957 fty = TY.Tint32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
958 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
959 case X(TY.Tuns64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
960 case X(TY.Tuns64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
961 eop = OPER.OP64_32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
962 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
963 case X(TY.Tuns64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
964 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
965 case X(TY.Tuns64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
966 case X(TY.Tuns64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
967 case X(TY.Tuns64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
968 case X(TY.Tuns64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
969 case X(TY.Tuns64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
970 case X(TY.Tuns64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
971 e = el_una(OPER.OPu64_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
972 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
973 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
974 case X(TY.Tuns64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
975 case X(TY.Tuns64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
976 case X(TY.Tuns64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
977 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
978
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
979 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
980
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
981 case X(TY.Tfloat32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
982 case X(TY.Tfloat32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
983 case X(TY.Tfloat32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
984 case X(TY.Tfloat32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
985 case X(TY.Tfloat32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
986 case X(TY.Tfloat32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
987 case X(TY.Tfloat32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
988 case X(TY.Tfloat32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
989 case X(TY.Tfloat32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
990 e = el_una(OPER.OPf_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
991 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
992 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
993 case X(TY.Tfloat32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
994 eop = OPER.OPf_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
995 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
996 case X(TY.Tfloat32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
997 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
998 case X(TY.Tfloat32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
999 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1000 case X(TY.Tfloat32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1001 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1002 case X(TY.Tfloat32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1003 case X(TY.Tfloat32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1004 case X(TY.Tfloat32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1005 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
1006 fty = TY.Tcomplex32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1007 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1008
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1009 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1010
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1011 case X(TY.Tfloat64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1012 case X(TY.Tfloat64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1013 e = el_una(OPER.OPd_s16, TYM.TYshort, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1014 fty = TY.Tint16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1015 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1016 case X(TY.Tfloat64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1017 eop = OPER.OPd_s16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1018 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1019 case X(TY.Tfloat64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1020 eop = OPER.OPd_u16;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1021 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1022 case X(TY.Tfloat64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1023 eop = OPER.OPd_s32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1024 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1025 case X(TY.Tfloat64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1026 eop = OPER.OPd_u32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1027 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1028 case X(TY.Tfloat64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1029 eop = OPER.OPd_s64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1030 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1031 case X(TY.Tfloat64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1032 eop = OPER.OPd_u64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1033 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1034 case X(TY.Tfloat64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1035 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1036 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1037 case X(TY.Tfloat64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1038 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1039 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1040 case X(TY.Tfloat64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1041 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1042 case X(TY.Tfloat64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1043 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1044 case X(TY.Tfloat64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1045 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1046 case X(TY.Tfloat64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1047 case X(TY.Tfloat64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1048 case X(TY.Tfloat64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1049 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
1050 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1051 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1052
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1053 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1054
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1055 case X(TY.Tfloat80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1056 case X(TY.Tfloat80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1057 case X(TY.Tfloat80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1058 case X(TY.Tfloat80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1059 case X(TY.Tfloat80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1060 case X(TY.Tfloat80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1061 case X(TY.Tfloat80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1062 case X(TY.Tfloat80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1063 e = el_una(OPER.OPld_d, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1064 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1065 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1066 case X(TY.Tfloat80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1067 eop = OPER.OPld_u64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1068 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1069 case X(TY.Tfloat80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1070 eop = OPER.OPld_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1071 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1072 case X(TY.Tfloat80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1073 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1074 case X(TY.Tfloat80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1075 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1076 case X(TY.Tfloat80,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1077 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1078 case X(TY.Tfloat80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1079 case X(TY.Tfloat80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1080 case X(TY.Tfloat80,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1081 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
1082 fty = TY.Tcomplex80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1083 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1084
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1085 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1086
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1087 case X(TY.Timaginary32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1088 case X(TY.Timaginary32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1089 case X(TY.Timaginary32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1090 case X(TY.Timaginary32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1091 case X(TY.Timaginary32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1092 case X(TY.Timaginary32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1093 case X(TY.Timaginary32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1094 case X(TY.Timaginary32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1095 case X(TY.Timaginary32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1096 case X(TY.Timaginary32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1097 case X(TY.Timaginary32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1098 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1099 case X(TY.Timaginary32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1100 eop = OPER.OPf_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1101 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1102 case X(TY.Timaginary32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1103 e = el_una(OPER.OPf_d, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1104 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1105 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1106 case X(TY.Timaginary32,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1107 case X(TY.Timaginary32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1108 case X(TY.Timaginary32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1109 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
1110 fty = TY.Tcomplex32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1111 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1112
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1113 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1114
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1115 case X(TY.Timaginary64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1116 case X(TY.Timaginary64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1117 case X(TY.Timaginary64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1118 case X(TY.Timaginary64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1119 case X(TY.Timaginary64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1120 case X(TY.Timaginary64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1121 case X(TY.Timaginary64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1122 case X(TY.Timaginary64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1123 case X(TY.Timaginary64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1124 case X(TY.Timaginary64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1125 case X(TY.Timaginary64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1126 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1127 case X(TY.Timaginary64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1128 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1129 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1130 case X(TY.Timaginary64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1131 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1132 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1133 case X(TY.Timaginary64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1134 case X(TY.Timaginary64,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1135 case X(TY.Timaginary64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1136 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
1137 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1138 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1139
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1140 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1141
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1142 case X(TY.Timaginary80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1143 case X(TY.Timaginary80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1144 case X(TY.Timaginary80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1145 case X(TY.Timaginary80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1146 case X(TY.Timaginary80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1147 case X(TY.Timaginary80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1148 case X(TY.Timaginary80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1149 case X(TY.Timaginary80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1150 case X(TY.Timaginary80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1151 case X(TY.Timaginary80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1152 case X(TY.Timaginary80,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1153 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1154 case X(TY.Timaginary80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1155 e = el_una(OPER.OPf_d, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1156 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1157 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1158 case X(TY.Timaginary80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1159 eop = OPER.OPld_d;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1160 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1161 case X(TY.Timaginary80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1162 case X(TY.Timaginary80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1163 case X(TY.Timaginary80,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1164 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
1165 fty = TY.Tcomplex80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1166 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1167
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1168 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1169
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1170 case X(TY.Tcomplex32,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1171 case X(TY.Tcomplex32,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1172 case X(TY.Tcomplex32,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1173 case X(TY.Tcomplex32,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1174 case X(TY.Tcomplex32,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1175 case X(TY.Tcomplex32,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1176 case X(TY.Tcomplex32,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1177 case X(TY.Tcomplex32,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1178 case X(TY.Tcomplex32,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1179 case X(TY.Tcomplex32,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1180 case X(TY.Tcomplex32,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1181 e = el_una(OPER.OPc_r, TYM.TYfloat, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1182 fty = TY.Tfloat32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1183 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1184 case X(TY.Tcomplex32,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1185 case X(TY.Tcomplex32,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1186 case X(TY.Tcomplex32,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1187 e = el_una(OPER.OPc_i, TYM.TYifloat, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1188 fty = TY.Timaginary32;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1189 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1190 case X(TY.Tcomplex32,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1191 case X(TY.Tcomplex32,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1192 e = el_una(OPER.OPf_d, TYM.TYcdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1193 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1194 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1195
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1196 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1197
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1198 case X(TY.Tcomplex64,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1199 case X(TY.Tcomplex64,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1200 case X(TY.Tcomplex64,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1201 case X(TY.Tcomplex64,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1202 case X(TY.Tcomplex64,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1203 case X(TY.Tcomplex64,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1204 case X(TY.Tcomplex64,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1205 case X(TY.Tcomplex64,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1206 case X(TY.Tcomplex64,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1207 case X(TY.Tcomplex64,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1208 case X(TY.Tcomplex64,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1209 e = el_una(OPER.OPc_r, TYM.TYdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1210 fty = TY.Tfloat64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1211 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1212 case X(TY.Tcomplex64,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1213 case X(TY.Tcomplex64,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1214 case X(TY.Tcomplex64,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1215 e = el_una(OPER.OPc_i, TYM.TYidouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1216 fty = TY.Timaginary64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1217 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1218 case X(TY.Tcomplex64,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1219 eop = OPER.OPd_f;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1220 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1221 case X(TY.Tcomplex64,TY.Tcomplex80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1222 eop = OPER.OPd_ld;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1223 goto Leop;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1224
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1225 /* ============================= */
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1226
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1227 case X(TY.Tcomplex80,TY.Tint8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1228 case X(TY.Tcomplex80,TY.Tuns8):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1229 case X(TY.Tcomplex80,TY.Tint16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1230 case X(TY.Tcomplex80,TY.Tuns16):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1231 case X(TY.Tcomplex80,TY.Tint32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1232 case X(TY.Tcomplex80,TY.Tuns32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1233 case X(TY.Tcomplex80,TY.Tint64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1234 case X(TY.Tcomplex80,TY.Tuns64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1235 case X(TY.Tcomplex80,TY.Tfloat32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1236 case X(TY.Tcomplex80,TY.Tfloat64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1237 case X(TY.Tcomplex80,TY.Tfloat80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1238 e = el_una(OPER.OPc_r, TYM.TYldouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1239 fty = TY.Tfloat80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1240 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1241 case X(TY.Tcomplex80,TY.Timaginary32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1242 case X(TY.Tcomplex80,TY.Timaginary64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1243 case X(TY.Tcomplex80,TY.Timaginary80):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1244 e = el_una(OPER.OPc_i, TYM.TYildouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1245 fty = TY.Timaginary80;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1246 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1247 case X(TY.Tcomplex80,TY.Tcomplex32):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1248 case X(TY.Tcomplex80,TY.Tcomplex64):
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1249 e = el_una(OPER.OPld_d, TYM.TYcdouble, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1250 fty = TY.Tcomplex64;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1251 goto Lagain;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1252
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1253 /* ============================= */
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 default:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1256 if (fty == tty)
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1257 goto Lpaint;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1258 //dump(0);
79
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
1259 //writef("fty = %d, tty = %d, %d\n", fty, tty, t.ty);
43073c7c7769 updated to 2.035
Trass3r
parents: 73
diff changeset
1260 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
1261 goto Lzero;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1262
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1263 Lzero:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1264 e = el_long(ttym, 0);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1265 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1266
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1267 Lpaint:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1268 e.Ety = ttym;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1269 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1270
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1271 Leop:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1272 e = el_una(eop, ttym, e);
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1273 break;
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1274 }
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1275 Lret:
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1276 // Adjust for any type paints
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1277 t = type.toBasetype();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1278 e.Ety = t.totym();
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1279
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1280 el_setLoc(e,loc);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1281 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1282 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1283
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
1284 override Identifier opId()
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1285 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1286 return Id.cast_;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1287 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1288 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1289