1 | //
|
---|
2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
|
---|
3 | //
|
---|
4 | // The contents of this file are covered under the licence agreement in the
|
---|
5 | // file "LICENCE" distributed with Cforall.
|
---|
6 | //
|
---|
7 | // ConversionCost.cc --
|
---|
8 | //
|
---|
9 | // Author : Richard C. Bilson
|
---|
10 | // Created On : Sun May 17 07:06:19 2015
|
---|
11 | // Last Modified By : Andrew Beach
|
---|
12 | // Last Modified On : Wed Jul 29 16:11:00 2020
|
---|
13 | // Update Count : 28
|
---|
14 | //
|
---|
15 |
|
---|
16 | #include "ConversionCost.h"
|
---|
17 |
|
---|
18 | #include <cassert> // for assert
|
---|
19 | #include <list> // for list, list<>::const_iterator
|
---|
20 | #include <string> // for operator==, string
|
---|
21 |
|
---|
22 | #include "ResolvExpr/Cost.h" // for Cost
|
---|
23 | #include "ResolvExpr/TypeEnvironment.h" // for EqvClass, TypeEnvironment
|
---|
24 | #include "ResolvExpr/Unify.h" // for typesCompatibleIgnoreQualifiers
|
---|
25 | #include "ResolvExpr/PtrsAssignable.hpp" // for ptrsAssignable
|
---|
26 | #include "SymTab/Indexer.h" // for Indexer
|
---|
27 | #include "SynTree/Declaration.h" // for TypeDecl, NamedTypeDecl
|
---|
28 | #include "SynTree/Type.h" // for Type, BasicType, TypeInstType
|
---|
29 |
|
---|
30 |
|
---|
31 | namespace ResolvExpr {
|
---|
32 | #if 0
|
---|
33 | const Cost Cost::zero = Cost{ 0, 0, 0, 0, 0, 0, 0 };
|
---|
34 | const Cost Cost::infinity = Cost{ -1, -1, -1, -1, -1, 1, -1 };
|
---|
35 | const Cost Cost::unsafe = Cost{ 1, 0, 0, 0, 0, 0, 0 };
|
---|
36 | const Cost Cost::poly = Cost{ 0, 1, 0, 0, 0, 0, 0 };
|
---|
37 | const Cost Cost::safe = Cost{ 0, 0, 1, 0, 0, 0, 0 };
|
---|
38 | const Cost Cost::sign = Cost{ 0, 0, 0, 1, 0, 0, 0 };
|
---|
39 | const Cost Cost::var = Cost{ 0, 0, 0, 0, 1, 0, 0 };
|
---|
40 | const Cost Cost::spec = Cost{ 0, 0, 0, 0, 0, -1, 0 };
|
---|
41 | const Cost Cost::reference = Cost{ 0, 0, 0, 0, 0, 0, 1 };
|
---|
42 | #endif
|
---|
43 |
|
---|
44 | #if 0
|
---|
45 | #define PRINT(x) x
|
---|
46 | #else
|
---|
47 | #define PRINT(x)
|
---|
48 | #endif
|
---|
49 |
|
---|
50 | Cost conversionCost( const Type * src, const Type * dest, bool srcIsLvalue,
|
---|
51 | const SymTab::Indexer &indexer, const TypeEnvironment &env ) {
|
---|
52 | if ( const TypeInstType * destAsTypeInst = dynamic_cast< const TypeInstType * >( dest ) ) {
|
---|
53 | PRINT( std::cerr << "type inst " << destAsTypeInst->name; )
|
---|
54 | if ( const EqvClass * eqvClass = env.lookup( destAsTypeInst->name ) ) {
|
---|
55 | if ( eqvClass->type ) {
|
---|
56 | return conversionCost( src, eqvClass->type, srcIsLvalue, indexer, env );
|
---|
57 | } else {
|
---|
58 | return Cost::infinity;
|
---|
59 | }
|
---|
60 | } else if ( const NamedTypeDecl * namedType = indexer.lookupType( destAsTypeInst->name ) ) {
|
---|
61 | PRINT( std::cerr << " found" << std::endl; )
|
---|
62 | const TypeDecl * type = dynamic_cast< const TypeDecl * >( namedType );
|
---|
63 | // all typedefs should be gone by this point
|
---|
64 | assert( type );
|
---|
65 | if ( type->base ) {
|
---|
66 | return conversionCost( src, type->base, srcIsLvalue, indexer, env )
|
---|
67 | + Cost::safe;
|
---|
68 | } // if
|
---|
69 | } // if
|
---|
70 | PRINT( std::cerr << " not found" << std::endl; )
|
---|
71 | } // if
|
---|
72 | PRINT(
|
---|
73 | std::cerr << "src is ";
|
---|
74 | src->print( std::cerr );
|
---|
75 | std::cerr << std::endl << "dest is ";
|
---|
76 | dest->print( std::cerr );
|
---|
77 | std::cerr << std::endl << "env is" << std::endl;
|
---|
78 | env.print( std::cerr, 8 );
|
---|
79 | )
|
---|
80 | if ( typesCompatibleIgnoreQualifiers( src, dest, indexer, env ) ) {
|
---|
81 | PRINT( std::cerr << "compatible!" << std::endl; )
|
---|
82 | return Cost::zero;
|
---|
83 | } else if ( dynamic_cast< const VoidType * >( dest ) ) {
|
---|
84 | return Cost::safe;
|
---|
85 | } else if ( const ReferenceType * refType = dynamic_cast< const ReferenceType * > ( dest ) ) {
|
---|
86 | PRINT( std::cerr << "conversionCost: dest is reference" << std::endl; )
|
---|
87 | return convertToReferenceCost( src, refType, srcIsLvalue, indexer, env, [](const Type * const t1, const Type * t2, const SymTab::Indexer &, const TypeEnvironment & env ){
|
---|
88 | return ptrsAssignable( t1, t2, env );
|
---|
89 | });
|
---|
90 | } else {
|
---|
91 | PassVisitor<ConversionCost> converter(
|
---|
92 | dest, srcIsLvalue, indexer, env,
|
---|
93 | (Cost (*)(const Type *, const Type *, bool, const SymTab::Indexer&, const TypeEnvironment&))
|
---|
94 | conversionCost );
|
---|
95 | src->accept( converter );
|
---|
96 | if ( converter.pass.get_cost() == Cost::infinity ) {
|
---|
97 | return Cost::infinity;
|
---|
98 | } else {
|
---|
99 | return converter.pass.get_cost() + Cost::zero;
|
---|
100 | } // if
|
---|
101 | } // if
|
---|
102 | }
|
---|
103 |
|
---|
104 | static Cost convertToReferenceCost( const Type * src, const Type * dest, bool srcIsLvalue,
|
---|
105 | int diff, const SymTab::Indexer & indexer, const TypeEnvironment & env, PtrsFunction func ) {
|
---|
106 | PRINT( std::cerr << "convert to reference cost... diff " << diff << " " << src << " / " << dest << std::endl; )
|
---|
107 | if ( diff > 0 ) {
|
---|
108 | // TODO: document this
|
---|
109 | Cost cost = convertToReferenceCost(
|
---|
110 | strict_dynamic_cast< const ReferenceType * >( src )->base, dest, srcIsLvalue,
|
---|
111 | diff-1, indexer, env, func );
|
---|
112 | cost.incReference();
|
---|
113 | return cost;
|
---|
114 | } else if ( diff < -1 ) {
|
---|
115 | // TODO: document this
|
---|
116 | Cost cost = convertToReferenceCost(
|
---|
117 | src, strict_dynamic_cast< const ReferenceType * >( dest )->base, srcIsLvalue,
|
---|
118 | diff+1, indexer, env, func );
|
---|
119 | cost.incReference();
|
---|
120 | return cost;
|
---|
121 | } else if ( diff == 0 ) {
|
---|
122 | const ReferenceType * srcAsRef = dynamic_cast< const ReferenceType * >( src );
|
---|
123 | const ReferenceType * destAsRef = dynamic_cast< const ReferenceType * >( dest );
|
---|
124 | if ( srcAsRef && destAsRef ) { // pointer-like conversions between references
|
---|
125 | PRINT( std::cerr << "converting between references" << std::endl; )
|
---|
126 | Type::Qualifiers tq1 = srcAsRef->base->tq;
|
---|
127 | Type::Qualifiers tq2 = destAsRef->base->tq;
|
---|
128 | if ( tq1 <= tq2 && typesCompatibleIgnoreQualifiers( srcAsRef->base, destAsRef->base, indexer, env ) ) {
|
---|
129 | PRINT( std::cerr << " :: compatible and good qualifiers" << std::endl; )
|
---|
130 | if ( tq1 == tq2 ) {
|
---|
131 | // types are the same
|
---|
132 | return Cost::zero;
|
---|
133 | } else {
|
---|
134 | // types are the same, except otherPointer has more qualifiers
|
---|
135 | return Cost::safe;
|
---|
136 | }
|
---|
137 | } else { // xxx - this discards reference qualifiers from consideration -- reducing qualifiers is a safe conversion; is this right?
|
---|
138 | int assignResult = func( srcAsRef->base, destAsRef->base, indexer, env );
|
---|
139 | PRINT( std::cerr << "comparing references: " << assignResult << " " << srcAsRef << " " << destAsRef << std::endl; )
|
---|
140 | if ( assignResult > 0 ) {
|
---|
141 | return Cost::safe;
|
---|
142 | } else if ( assignResult < 0 ) {
|
---|
143 | return Cost::unsafe;
|
---|
144 | } // if
|
---|
145 | } // if
|
---|
146 | } else {
|
---|
147 | PRINT( std::cerr << "reference to rvalue conversion" << std::endl; )
|
---|
148 | PassVisitor<ConversionCost> converter(
|
---|
149 | dest, srcIsLvalue, indexer, env,
|
---|
150 | (Cost (*)(const Type *, const Type *, bool, const SymTab::Indexer&, const TypeEnvironment&))
|
---|
151 | conversionCost );
|
---|
152 | src->accept( converter );
|
---|
153 | return converter.pass.get_cost();
|
---|
154 | } // if
|
---|
155 | } else {
|
---|
156 | const ReferenceType * destAsRef = dynamic_cast< const ReferenceType * >( dest );
|
---|
157 | assert( diff == -1 && destAsRef );
|
---|
158 | PRINT( std::cerr << "dest is: " << dest << " / src is: " << src << std::endl; )
|
---|
159 | if ( typesCompatibleIgnoreQualifiers( src, destAsRef->base, indexer, env ) ) {
|
---|
160 | PRINT( std::cerr << "converting compatible base type" << std::endl; )
|
---|
161 | if ( srcIsLvalue ) {
|
---|
162 | PRINT(
|
---|
163 | std::cerr << "lvalue to reference conversion" << std::endl;
|
---|
164 | std::cerr << src << " => " << destAsRef << std::endl;
|
---|
165 | )
|
---|
166 | // lvalue-to-reference conversion: cv lvalue T => cv T &
|
---|
167 | if ( src->tq == destAsRef->base->tq ) {
|
---|
168 | return Cost::reference; // cost needs to be non-zero to add cast
|
---|
169 | } if ( src->tq < destAsRef->base->tq ) {
|
---|
170 | return Cost::safe; // cost needs to be higher than previous cast to differentiate adding qualifiers vs. keeping same
|
---|
171 | } else {
|
---|
172 | return Cost::unsafe;
|
---|
173 | } // if
|
---|
174 | } else if ( destAsRef->base->get_const() ) {
|
---|
175 | PRINT( std::cerr << "rvalue to const ref conversion" << std::endl; )
|
---|
176 | // rvalue-to-const-reference conversion: T => const T &
|
---|
177 | return Cost::safe;
|
---|
178 | } else {
|
---|
179 | PRINT( std::cerr << "rvalue to non-const reference conversion" << std::endl; )
|
---|
180 | // rvalue-to-reference conversion: T => T &
|
---|
181 | return Cost::unsafe;
|
---|
182 | } // if
|
---|
183 | } // if
|
---|
184 | PRINT( std::cerr << "attempting to convert from incompatible base type -- fail" << std::endl; )
|
---|
185 | }
|
---|
186 | return Cost::infinity;
|
---|
187 | }
|
---|
188 |
|
---|
189 | Cost convertToReferenceCost( const Type * src, const ReferenceType * dest, bool srcIsLvalue,
|
---|
190 | const SymTab::Indexer & indexer, const TypeEnvironment & env, PtrsFunction func ) {
|
---|
191 | int sdepth = src->referenceDepth(), ddepth = dest->referenceDepth();
|
---|
192 | Cost cost = convertToReferenceCost( src, dest, srcIsLvalue, sdepth-ddepth, indexer, env, func );
|
---|
193 | PRINT( std::cerr << "convertToReferenceCost result: " << cost << std::endl; )
|
---|
194 | return cost;
|
---|
195 | }
|
---|
196 |
|
---|
197 | ConversionCost::ConversionCost( const Type * dest, bool srcIsLvalue, const SymTab::Indexer &indexer, const TypeEnvironment &env, CostFunction costFunc )
|
---|
198 | : dest( dest ), srcIsLvalue( srcIsLvalue ), indexer( indexer ), cost( Cost::infinity ), env( env ), costFunc( costFunc ) {
|
---|
199 | }
|
---|
200 |
|
---|
201 | // GENERATED START, DO NOT EDIT
|
---|
202 | // GENERATED BY BasicTypes-gen.cc
|
---|
203 | /* EXTENDED INTEGRAL RANK HIERARCHY (root to leaves)
|
---|
204 | _Bool
|
---|
205 | char signed char unsigned char
|
---|
206 | signed short int unsigned short int
|
---|
207 | signed int unsigned int
|
---|
208 | signed long int unsigned long int
|
---|
209 | signed long long int unsigned long long int
|
---|
210 | __int128 unsigned __int128
|
---|
211 | _Float16 _Float16 _Complex
|
---|
212 | _Float32 _Float32 _Complex
|
---|
213 | float float _Complex
|
---|
214 | _Float32x _Float32x _Complex
|
---|
215 | _Float64 _Float64 _Complex
|
---|
216 | double double _Complex
|
---|
217 | _Float64x _Float64x _Complex
|
---|
218 | __float80
|
---|
219 | _Float128 _Float128 _Complex
|
---|
220 | __float128
|
---|
221 | long double long double _Complex
|
---|
222 | _Float128x _Float128x _Complex
|
---|
223 | */
|
---|
224 | // GENERATED END
|
---|
225 |
|
---|
226 | // GENERATED START, DO NOT EDIT
|
---|
227 | // GENERATED BY BasicTypes-gen.cc
|
---|
228 | static const int costMatrix[BasicType::NUMBER_OF_BASIC_TYPES][BasicType::NUMBER_OF_BASIC_TYPES] = { // path length from root to node
|
---|
229 | /* B C SC UC SI SUI I UI LI LUI LLI LLUI IB UIB _FH _FH _F _FC F FC _FX _FXC FD _FDC D DC F80X_FDXC F80 _FB_FLDC FB LD LDC _FBX_FLDXC */
|
---|
230 | /* B */ { 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 17, 16, 18, 17, },
|
---|
231 | /* C */ { -1, 0, 1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 16, 15, 17, 16, },
|
---|
232 | /* SC */ { -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 16, 15, 17, 16, },
|
---|
233 | /* UC */ { -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 16, 15, 17, 16, },
|
---|
234 | /* SI */ { -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 15, 14, 16, 15, },
|
---|
235 | /* SUI */ { -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 15, 14, 16, 15, },
|
---|
236 | /* I */ { -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 14, 13, 15, 14, },
|
---|
237 | /* UI */ { -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 14, 13, 15, 14, },
|
---|
238 | /* LI */ { -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 13, 12, 14, 13, },
|
---|
239 | /* LUI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 13, 12, 14, 13, },
|
---|
240 | /* LLI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 12, 11, 13, 12, },
|
---|
241 | /* LLUI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 12, 11, 13, 12, },
|
---|
242 | /* IB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 11, 10, 12, 11, },
|
---|
243 | /* UIB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 11, 10, 12, 11, },
|
---|
244 | /* _FH */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 10, 9, 11, 10, },
|
---|
245 | /* _FH */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, 2, -1, 3, -1, 4, -1, 5, -1, 6, -1, -1, 7, -1, -1, 8, -1, 9, },
|
---|
246 | /* _F */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 8, 10, 9, },
|
---|
247 | /* _FC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, 2, -1, 3, -1, 4, -1, 5, -1, -1, 6, -1, -1, 7, -1, 8, },
|
---|
248 | /* F */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 8, 7, 9, 8, },
|
---|
249 | /* FC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, 2, -1, 3, -1, 4, -1, -1, 5, -1, -1, 6, -1, 7, },
|
---|
250 | /* _FX */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 6, 8, 7, },
|
---|
251 | /* _FXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, 2, -1, 3, -1, -1, 4, -1, -1, 5, -1, 6, },
|
---|
252 | /* FD */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 6, 5, 7, 6, },
|
---|
253 | /* _FDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, 2, -1, -1, 3, -1, -1, 4, -1, 5, },
|
---|
254 | /* D */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, 4, 5, 4, 6, 5, },
|
---|
255 | /* DC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, -1, -1, 2, -1, -1, 3, -1, 4, },
|
---|
256 | /* F80X */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 4, 3, 5, 4, },
|
---|
257 | /* _FDXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, 1, -1, -1, 2, -1, 3, },
|
---|
258 | /* F80 */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 0, 1, 2, 2, 3, 3, 4, 4, },
|
---|
259 | /* _FB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 2, 3, 3, },
|
---|
260 | /* _FLDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, 1, -1, 2, },
|
---|
261 | /* FB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 0, 1, 2, 2, 3, },
|
---|
262 | /* LD */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, },
|
---|
263 | /* LDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, },
|
---|
264 | /* _FBX */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, },
|
---|
265 | /* _FLDXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, },
|
---|
266 | }; // costMatrix
|
---|
267 | static const int maxIntCost = 15;
|
---|
268 | // GENERATED END
|
---|
269 | static_assert(
|
---|
270 | sizeof(costMatrix)/sizeof(costMatrix[0][0]) == BasicType::NUMBER_OF_BASIC_TYPES * BasicType::NUMBER_OF_BASIC_TYPES,
|
---|
271 | "Missing row in the cost matrix"
|
---|
272 | );
|
---|
273 |
|
---|
274 | // GENERATED START, DO NOT EDIT
|
---|
275 | // GENERATED BY BasicTypes-gen.cc
|
---|
276 | static const int signMatrix[BasicType::NUMBER_OF_BASIC_TYPES][BasicType::NUMBER_OF_BASIC_TYPES] = { // number of sign changes in safe conversion
|
---|
277 | /* B C SC UC SI SUI I UI LI LUI LLI LLUI IB UIB _FH _FH _F _FC F FC _FX _FXC FD _FDC D DC F80X_FDXC F80 _FB_FLDC FB LD LDC _FBX_FLDXC */
|
---|
278 | /* B */ { 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
279 | /* C */ { -1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
280 | /* SC */ { -1, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
281 | /* UC */ { -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
282 | /* SI */ { -1, -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
283 | /* SUI */ { -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
284 | /* I */ { -1, -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
285 | /* UI */ { -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
286 | /* LI */ { -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
287 | /* LUI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
288 | /* LLI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
289 | /* LLUI */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
290 | /* IB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
291 | /* UIB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
292 | /* _FH */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
293 | /* _FH */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
294 | /* _F */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
295 | /* _FC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
296 | /* F */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
297 | /* FC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
298 | /* _FX */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
299 | /* _FXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
300 | /* FD */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
301 | /* _FDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
302 | /* D */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
303 | /* DC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
304 | /* F80X */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
305 | /* _FDXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
306 | /* F80 */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
|
---|
307 | /* _FB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, },
|
---|
308 | /* _FLDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, 0, -1, 0, },
|
---|
309 | /* FB */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, },
|
---|
310 | /* LD */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, },
|
---|
311 | /* LDC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, 0, },
|
---|
312 | /* _FBX */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, },
|
---|
313 | /* _FLDXC */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, },
|
---|
314 | }; // signMatrix
|
---|
315 | // GENERATED END
|
---|
316 | static_assert(
|
---|
317 | sizeof(signMatrix)/sizeof(signMatrix[0][0]) == BasicType::NUMBER_OF_BASIC_TYPES * BasicType::NUMBER_OF_BASIC_TYPES,
|
---|
318 | "Missing row in the sign matrix"
|
---|
319 | );
|
---|
320 |
|
---|
321 | void ConversionCost::postvisit( const VoidType * ) {
|
---|
322 | cost = Cost::infinity;
|
---|
323 | }
|
---|
324 |
|
---|
325 | // refactor for code resue
|
---|
326 | void ConversionCost::conversionCostFromBasicToBasic(const BasicType * src, const BasicType * dest) {
|
---|
327 | int tableResult = costMatrix[ src->kind ][ dest->kind ];
|
---|
328 | if ( tableResult == -1 ) {
|
---|
329 | cost = Cost::unsafe;
|
---|
330 | } else {
|
---|
331 | cost = Cost::zero;
|
---|
332 | cost.incSafe( tableResult );
|
---|
333 | cost.incSign( signMatrix[ src->kind ][ dest->kind ] );
|
---|
334 | } // if
|
---|
335 | } // ConversionCost::conversionCostFromBasicToBasic
|
---|
336 |
|
---|
337 | void ConversionCost::postvisit(const BasicType * basicType) {
|
---|
338 | if ( const BasicType * destAsBasic = dynamic_cast< const BasicType * >( dest ) ) {
|
---|
339 | conversionCostFromBasicToBasic(basicType, destAsBasic);
|
---|
340 | } else if ( const EnumInstType * enumInst = dynamic_cast< const EnumInstType * >( dest ) ) {
|
---|
341 | const EnumDecl * base_enum = enumInst->baseEnum;
|
---|
342 | if ( const Type * base = base_enum->base ) {
|
---|
343 | if ( const BasicType * enumBaseAstBasic = dynamic_cast< const BasicType *> (base) ) {
|
---|
344 | conversionCostFromBasicToBasic(basicType, enumBaseAstBasic);
|
---|
345 | } else {
|
---|
346 | cost = Cost::infinity;
|
---|
347 | } // if
|
---|
348 | } else {
|
---|
349 | cost = Cost::unsafe;
|
---|
350 | } // if
|
---|
351 | } // if
|
---|
352 | // no cases for zero_t/one_t because it should not be possible to convert int, etc. to zero_t/one_t.
|
---|
353 | }
|
---|
354 |
|
---|
355 | void ConversionCost::postvisit( const PointerType * pointerType ) {
|
---|
356 | if ( const PointerType * destAsPtr = dynamic_cast< const PointerType * >( dest ) ) {
|
---|
357 | PRINT( std::cerr << pointerType << " ===> " << destAsPtr << std::endl; )
|
---|
358 | Type::Qualifiers tq1 = pointerType->base->tq;
|
---|
359 | Type::Qualifiers tq2 = destAsPtr->base->tq;
|
---|
360 | if ( tq1 <= tq2 && typesCompatibleIgnoreQualifiers( pointerType->base, destAsPtr->base, indexer, env ) ) {
|
---|
361 | PRINT( std::cerr << " :: compatible and good qualifiers" << std::endl; )
|
---|
362 | if ( tq1 == tq2 ) {
|
---|
363 | // types are the same
|
---|
364 | cost = Cost::zero;
|
---|
365 | } else {
|
---|
366 | // types are the same, except otherPointer has more qualifiers
|
---|
367 | cost = Cost::safe;
|
---|
368 | } // if
|
---|
369 | } else {
|
---|
370 | int assignResult = ptrsAssignable( pointerType->base, destAsPtr->base, env );
|
---|
371 | PRINT( std::cerr << " :: " << assignResult << std::endl; )
|
---|
372 | if ( assignResult > 0 && tq1 <= tq2 ) {
|
---|
373 | // xxx - want the case where qualifiers are added to be more expensive than the case where qualifiers are the same. Is 1 safe vs. 2 safe correct?
|
---|
374 | if ( tq1 == tq2 ) {
|
---|
375 | cost = Cost::safe;
|
---|
376 | } else if ( tq1 < tq2 ) {
|
---|
377 | cost = Cost::safe+Cost::safe;
|
---|
378 | }
|
---|
379 | } else if ( assignResult < 0 ) {
|
---|
380 | cost = Cost::unsafe;
|
---|
381 | } // if
|
---|
382 | // assignResult == 0 means Cost::Infinity
|
---|
383 | } // if
|
---|
384 | // case case for zero_t because it should not be possible to convert pointers to zero_t.
|
---|
385 | } // if
|
---|
386 | }
|
---|
387 |
|
---|
388 | void ConversionCost::postvisit( const ArrayType * ) {}
|
---|
389 |
|
---|
390 | void ConversionCost::postvisit( const ReferenceType * refType ) {
|
---|
391 | // Note: dest can never be a reference, since it would have been caught in an earlier check
|
---|
392 | assert( ! dynamic_cast< const ReferenceType * >( dest ) );
|
---|
393 | // convert reference to rvalue: cv T1 & => T2
|
---|
394 | // recursively compute conversion cost from T1 to T2.
|
---|
395 | // cv can be safely dropped because of 'implicit dereference' behavior.
|
---|
396 | cost = costFunc( refType->base, dest, srcIsLvalue, indexer, env );
|
---|
397 | if ( refType->base->tq == dest->tq ) {
|
---|
398 | cost.incReference(); // prefer exact qualifiers
|
---|
399 | } else if ( refType->base->tq < dest->tq ) {
|
---|
400 | cost.incSafe(); // then gaining qualifiers
|
---|
401 | } else {
|
---|
402 | cost.incUnsafe(); // lose qualifiers as last resort
|
---|
403 | }
|
---|
404 | PRINT( std::cerr << refType << " ==> " << dest << " " << cost << std::endl; )
|
---|
405 | }
|
---|
406 |
|
---|
407 | void ConversionCost::postvisit( const FunctionType * ) {}
|
---|
408 |
|
---|
409 | void ConversionCost::postvisit( const EnumInstType * enumInst) {
|
---|
410 | const EnumDecl * enumDecl = enumInst -> baseEnum;
|
---|
411 | if ( const Type * enumType = enumDecl -> base ) { // if it is a typed enum
|
---|
412 | cost = costFunc( enumType, dest, srcIsLvalue, indexer, env );
|
---|
413 | } else {
|
---|
414 | static Type::Qualifiers q;
|
---|
415 | static BasicType integer( q, BasicType::SignedInt );
|
---|
416 | cost = costFunc( &integer, dest, srcIsLvalue, indexer, env ); // safe if dest >= int
|
---|
417 | } // if
|
---|
418 | if ( cost < Cost::unsafe ) {
|
---|
419 | cost.incSafe();
|
---|
420 | } // if
|
---|
421 | }
|
---|
422 |
|
---|
423 | void ConversionCost::postvisit( const TraitInstType * ) {}
|
---|
424 |
|
---|
425 | void ConversionCost::postvisit( const TypeInstType * inst ) {
|
---|
426 | if ( const EqvClass * eqvClass = env.lookup( inst->name ) ) {
|
---|
427 | cost = costFunc( eqvClass->type, dest, srcIsLvalue, indexer, env );
|
---|
428 | } else if ( const TypeInstType * destAsInst = dynamic_cast< const TypeInstType * >( dest ) ) {
|
---|
429 | if ( inst->name == destAsInst->name ) {
|
---|
430 | cost = Cost::zero;
|
---|
431 | }
|
---|
432 | } else if ( const NamedTypeDecl * namedType = indexer.lookupType( inst->name ) ) {
|
---|
433 | const TypeDecl * type = dynamic_cast< const TypeDecl * >( namedType );
|
---|
434 | // all typedefs should be gone by this point
|
---|
435 | assert( type );
|
---|
436 | if ( type->base ) {
|
---|
437 | cost = costFunc( type->base, dest, srcIsLvalue, indexer, env ) + Cost::safe;
|
---|
438 | } // if
|
---|
439 | } // if
|
---|
440 | }
|
---|
441 |
|
---|
442 | void ConversionCost::postvisit( const TupleType * tupleType ) {
|
---|
443 | Cost c = Cost::zero;
|
---|
444 | if ( const TupleType * destAsTuple = dynamic_cast< const TupleType * >( dest ) ) {
|
---|
445 | std::list< Type * >::const_iterator srcIt = tupleType->types.begin();
|
---|
446 | std::list< Type * >::const_iterator destIt = destAsTuple->types.begin();
|
---|
447 | while ( srcIt != tupleType->types.end() && destIt != destAsTuple->types.end() ) {
|
---|
448 | Cost newCost = costFunc( * srcIt++, * destIt++, srcIsLvalue, indexer, env );
|
---|
449 | if ( newCost == Cost::infinity ) {
|
---|
450 | return;
|
---|
451 | } // if
|
---|
452 | c += newCost;
|
---|
453 | } // while
|
---|
454 | if ( destIt != destAsTuple->types.end() ) {
|
---|
455 | cost = Cost::infinity;
|
---|
456 | } else {
|
---|
457 | cost = c;
|
---|
458 | } // if
|
---|
459 | } // if
|
---|
460 | }
|
---|
461 |
|
---|
462 | void ConversionCost::postvisit( const VarArgsType * ) {
|
---|
463 | if ( dynamic_cast< const VarArgsType * >( dest ) ) {
|
---|
464 | cost = Cost::zero;
|
---|
465 | }
|
---|
466 | }
|
---|
467 |
|
---|
468 | void ConversionCost::postvisit( const ZeroType * ) {
|
---|
469 | if ( dynamic_cast< const ZeroType * >( dest ) ) {
|
---|
470 | cost = Cost::zero;
|
---|
471 | } else if ( const BasicType * destAsBasic = dynamic_cast< const BasicType * >( dest ) ) {
|
---|
472 | // copied from visit(BasicType *) for signed int, but +1 for safe conversions
|
---|
473 | int tableResult = costMatrix[ BasicType::SignedInt ][ destAsBasic->kind ];
|
---|
474 | if ( tableResult == -1 ) {
|
---|
475 | cost = Cost::unsafe;
|
---|
476 | } else {
|
---|
477 | cost = Cost::zero;
|
---|
478 | cost.incSafe( tableResult + 1 );
|
---|
479 | cost.incSign( signMatrix[ BasicType::SignedInt ][ destAsBasic->kind ] );
|
---|
480 | } // if
|
---|
481 | } else if ( dynamic_cast< const PointerType * >( dest ) ) {
|
---|
482 | cost = Cost::zero;
|
---|
483 | cost.incSafe( maxIntCost + 2 ); // +1 for zero_t -> int, +1 for disambiguation
|
---|
484 | } // if
|
---|
485 | }
|
---|
486 |
|
---|
487 | void ConversionCost::postvisit( const OneType * ) {
|
---|
488 | if ( dynamic_cast< const OneType * >( dest ) ) {
|
---|
489 | cost = Cost::zero;
|
---|
490 | } else if ( const BasicType * destAsBasic = dynamic_cast< const BasicType * >( dest ) ) {
|
---|
491 | // copied from visit(BasicType *) for signed int, but +1 for safe conversions
|
---|
492 | int tableResult = costMatrix[ BasicType::SignedInt ][ destAsBasic->kind ];
|
---|
493 | if ( tableResult == -1 ) {
|
---|
494 | cost = Cost::unsafe;
|
---|
495 | } else {
|
---|
496 | cost = Cost::zero;
|
---|
497 | cost.incSafe( tableResult + 1 );
|
---|
498 | cost.incSign( signMatrix[ BasicType::SignedInt ][ destAsBasic->kind ] );
|
---|
499 | } // if
|
---|
500 | } // if
|
---|
501 | }
|
---|
502 |
|
---|
503 | namespace {
|
---|
504 | # warning For overload resolution between the two versions.
|
---|
505 | int localPtrsAssignable(const ast::Type * t1, const ast::Type * t2,
|
---|
506 | const ast::SymbolTable &, const ast::TypeEnvironment & env ) {
|
---|
507 | return ptrsAssignable( t1, t2, env );
|
---|
508 | }
|
---|
509 | Cost localConversionCost(
|
---|
510 | const ast::Type * src, const ast::Type * dst, bool srcIsLvalue,
|
---|
511 | const ast::SymbolTable & symtab, const ast::TypeEnvironment & env
|
---|
512 | ) { return conversionCost( src, dst, srcIsLvalue, symtab, env ); }
|
---|
513 | }
|
---|
514 |
|
---|
515 | Cost conversionCost(
|
---|
516 | const ast::Type * src, const ast::Type * dst, bool srcIsLvalue,
|
---|
517 | const ast::SymbolTable & symtab, const ast::TypeEnvironment & env
|
---|
518 | ) {
|
---|
519 | if ( const ast::TypeInstType * inst = dynamic_cast< const ast::TypeInstType * >( dst ) ) {
|
---|
520 | if ( const ast::EqvClass * eqv = env.lookup( *inst ) ) {
|
---|
521 | if ( eqv->bound ) {
|
---|
522 | return conversionCost(src, eqv->bound, srcIsLvalue, symtab, env );
|
---|
523 | } else {
|
---|
524 | return Cost::infinity;
|
---|
525 | }
|
---|
526 | } else if ( const ast::NamedTypeDecl * named = symtab.lookupType( inst->name ) ) {
|
---|
527 | const ast::TypeDecl * type = dynamic_cast< const ast::TypeDecl * >( named );
|
---|
528 | assertf( type, "Unexpected typedef." );
|
---|
529 | if ( type->base ) {
|
---|
530 | return conversionCost( src, type->base, srcIsLvalue, symtab, env ) + Cost::safe;
|
---|
531 | }
|
---|
532 | }
|
---|
533 | }
|
---|
534 | if ( typesCompatibleIgnoreQualifiers( src, dst, symtab, env ) ) {
|
---|
535 | return Cost::zero;
|
---|
536 | } else if ( dynamic_cast< const ast::VoidType * >( dst ) ) {
|
---|
537 | return Cost::safe;
|
---|
538 | } else if ( const ast::ReferenceType * refType =
|
---|
539 | dynamic_cast< const ast::ReferenceType * >( dst ) ) {
|
---|
540 | return convertToReferenceCost( src, refType, srcIsLvalue, symtab, env, localPtrsAssignable );
|
---|
541 | } else {
|
---|
542 | return ast::Pass<ConversionCost_new>::read( src, dst, srcIsLvalue, symtab, env, localConversionCost );
|
---|
543 | }
|
---|
544 | }
|
---|
545 |
|
---|
546 | static Cost convertToReferenceCost( const ast::Type * src, const ast::Type * dst, bool srcIsLvalue,
|
---|
547 | int diff, const ast::SymbolTable & symtab, const ast::TypeEnvironment & env,
|
---|
548 | PtrsCalculation func ) {
|
---|
549 | if ( 0 < diff ) {
|
---|
550 | Cost cost = convertToReferenceCost(
|
---|
551 | strict_dynamic_cast< const ast::ReferenceType * >( src )->base, dst,
|
---|
552 | srcIsLvalue, (diff - 1), symtab, env, func );
|
---|
553 | cost.incReference();
|
---|
554 | return cost;
|
---|
555 | } else if ( diff < -1 ) {
|
---|
556 | Cost cost = convertToReferenceCost(
|
---|
557 | src, strict_dynamic_cast< const ast::ReferenceType * >( dst )->base,
|
---|
558 | srcIsLvalue, (diff + 1), symtab, env, func );
|
---|
559 | cost.incReference();
|
---|
560 | return cost;
|
---|
561 | } else if ( 0 == diff ) {
|
---|
562 | const ast::ReferenceType * srcAsRef = dynamic_cast< const ast::ReferenceType * >( src );
|
---|
563 | const ast::ReferenceType * dstAsRef = dynamic_cast< const ast::ReferenceType * >( dst );
|
---|
564 | if ( srcAsRef && dstAsRef ) {
|
---|
565 | ast::CV::Qualifiers tq1 = srcAsRef->base->qualifiers;
|
---|
566 | ast::CV::Qualifiers tq2 = dstAsRef->base->qualifiers;
|
---|
567 | if ( tq1 <= tq2 && typesCompatibleIgnoreQualifiers(
|
---|
568 | srcAsRef->base, dstAsRef->base, symtab, env ) ) {
|
---|
569 | if ( tq1 == tq2 ) {
|
---|
570 | return Cost::zero;
|
---|
571 | } else {
|
---|
572 | return Cost::safe;
|
---|
573 | }
|
---|
574 | } else {
|
---|
575 | int assignResult = func( srcAsRef->base, dstAsRef->base, symtab, env );
|
---|
576 | if ( 0 < assignResult ) {
|
---|
577 | return Cost::safe;
|
---|
578 | } else if ( assignResult < 0 ) {
|
---|
579 | return Cost::unsafe;
|
---|
580 | }
|
---|
581 | }
|
---|
582 | } else {
|
---|
583 | return ast::Pass<ConversionCost_new>::read( src, dst, srcIsLvalue, symtab, env, localConversionCost );
|
---|
584 | }
|
---|
585 | } else {
|
---|
586 | assert( -1 == diff );
|
---|
587 | const ast::ReferenceType * dstAsRef = dynamic_cast< const ast::ReferenceType * >( dst );
|
---|
588 | assert( dstAsRef );
|
---|
589 | if ( typesCompatibleIgnoreQualifiers( src, dstAsRef->base, symtab, env ) ) {
|
---|
590 | if ( srcIsLvalue ) {
|
---|
591 | if ( src->qualifiers == dstAsRef->base->qualifiers ) {
|
---|
592 | return Cost::reference;
|
---|
593 | } else if ( src->qualifiers < dstAsRef->base->qualifiers ) {
|
---|
594 | return Cost::safe;
|
---|
595 | } else {
|
---|
596 | return Cost::unsafe;
|
---|
597 | }
|
---|
598 | } else if ( dstAsRef->base->is_const() ) {
|
---|
599 | return Cost::safe;
|
---|
600 | } else {
|
---|
601 | return Cost::unsafe;
|
---|
602 | }
|
---|
603 | }
|
---|
604 | }
|
---|
605 | return Cost::infinity;
|
---|
606 | }
|
---|
607 |
|
---|
608 | Cost convertToReferenceCost( const ast::Type * src, const ast::ReferenceType * dst,
|
---|
609 | bool srcIsLvalue, const ast::SymbolTable & symtab, const ast::TypeEnvironment & env,
|
---|
610 | PtrsCalculation func ) {
|
---|
611 | int sdepth = src->referenceDepth(), ddepth = dst->referenceDepth();
|
---|
612 | return convertToReferenceCost( src, dst, srcIsLvalue, sdepth - ddepth, symtab, env, func );
|
---|
613 | }
|
---|
614 |
|
---|
615 | void ConversionCost_new::postvisit( const ast::VoidType * voidType ) {
|
---|
616 | (void)voidType;
|
---|
617 | cost = Cost::infinity;
|
---|
618 | }
|
---|
619 |
|
---|
620 | void ConversionCost_new::conversionCostFromBasicToBasic( const ast::BasicType * src, const ast::BasicType* dest ) {
|
---|
621 | int tableResult = costMatrix[ src->kind ][ dest->kind ];
|
---|
622 | if ( tableResult == -1 ) {
|
---|
623 | cost = Cost::unsafe;
|
---|
624 | } else {
|
---|
625 | cost = Cost::zero;
|
---|
626 | cost.incSafe( tableResult );
|
---|
627 | cost.incSign( signMatrix[ src->kind ][ dest->kind ] );
|
---|
628 | }
|
---|
629 | }
|
---|
630 |
|
---|
631 | void ConversionCost_new::postvisit( const ast::BasicType * basicType ) {
|
---|
632 | if ( const ast::BasicType * dstAsBasic = dynamic_cast< const ast::BasicType * >( dst ) ) {
|
---|
633 | conversionCostFromBasicToBasic( basicType, dstAsBasic );
|
---|
634 | } else if ( const ast::EnumInstType * enumInst = dynamic_cast< const ast::EnumInstType * >( dst ) ) {
|
---|
635 | const ast::EnumDecl * enumDecl = enumInst->base.get();
|
---|
636 | if ( enumDecl->isTyped && !enumDecl->base.get() ) {
|
---|
637 | cost = Cost::infinity;
|
---|
638 | } else if ( const ast::Type * enumType = enumDecl->base.get() ) {
|
---|
639 | if ( const ast::BasicType * enumTypeAsBasic = dynamic_cast<const ast::BasicType *>(enumType) ) {
|
---|
640 | conversionCostFromBasicToBasic( basicType, enumTypeAsBasic );
|
---|
641 | } else {
|
---|
642 | cost = Cost::infinity;
|
---|
643 | }
|
---|
644 | } else {
|
---|
645 | cost = Cost::unsafe;
|
---|
646 | }
|
---|
647 | }
|
---|
648 | }
|
---|
649 |
|
---|
650 | void ConversionCost_new::postvisit( const ast::PointerType * pointerType ) {
|
---|
651 | if ( const ast::PointerType * dstAsPtr = dynamic_cast< const ast::PointerType * >( dst ) ) {
|
---|
652 | ast::CV::Qualifiers tq1 = pointerType->base->qualifiers;
|
---|
653 | ast::CV::Qualifiers tq2 = dstAsPtr->base->qualifiers;
|
---|
654 | if ( tq1 <= tq2 && typesCompatibleIgnoreQualifiers(
|
---|
655 | pointerType->base, dstAsPtr->base, symtab, env ) ) {
|
---|
656 | if ( tq1 == tq2 ) {
|
---|
657 | cost = Cost::zero;
|
---|
658 | } else {
|
---|
659 | cost = Cost::safe;
|
---|
660 | }
|
---|
661 | }
|
---|
662 | /*
|
---|
663 | else if ( const ast::FunctionType * dstFunc = dstAsPtr->base.as<ast::FunctionType>()) {
|
---|
664 | if (const ast::FunctionType * srcFunc = pointerType->base.as<ast::FunctionType>()) {
|
---|
665 | if (dstFunc->params.empty() && dstFunc->isVarArgs ) {
|
---|
666 | cost = Cost::unsafe; // assign any function to variadic fptr
|
---|
667 | }
|
---|
668 | }
|
---|
669 | else {
|
---|
670 | ast::AssertionSet need, have; // unused
|
---|
671 | ast::OpenVarSet open;
|
---|
672 | env.extractOpenVars(open);
|
---|
673 | ast::TypeEnvironment tenv = env;
|
---|
674 | if ( unify(dstAsPtr->base, pointerType->base, tenv, need, have, open, symtab) ) {
|
---|
675 | cost = Cost::safe;
|
---|
676 | }
|
---|
677 | }
|
---|
678 | // else infinity
|
---|
679 | }
|
---|
680 | */
|
---|
681 | else {
|
---|
682 | int assignResult = ptrsAssignable( pointerType->base, dstAsPtr->base, env );
|
---|
683 | if ( 0 < assignResult && tq1 <= tq2 ) {
|
---|
684 | if ( tq1 == tq2 ) {
|
---|
685 | cost = Cost::safe;
|
---|
686 | } else {
|
---|
687 | cost = Cost::safe + Cost::safe;
|
---|
688 | }
|
---|
689 | } else if ( assignResult < 0 ) {
|
---|
690 | cost = Cost::unsafe;
|
---|
691 | } // else Cost::infinity
|
---|
692 | }
|
---|
693 | }
|
---|
694 | }
|
---|
695 |
|
---|
696 | void ConversionCost_new::postvisit( const ast::ArrayType * arrayType ) {
|
---|
697 | (void)arrayType;
|
---|
698 | }
|
---|
699 |
|
---|
700 | void ConversionCost_new::postvisit( const ast::ReferenceType * refType ) {
|
---|
701 | assert( nullptr == dynamic_cast< const ast::ReferenceType * >( dst ) );
|
---|
702 |
|
---|
703 | cost = costCalc( refType->base, dst, srcIsLvalue, symtab, env );
|
---|
704 | if ( refType->base->qualifiers == dst->qualifiers ) {
|
---|
705 | cost.incReference();
|
---|
706 | } else if ( refType->base->qualifiers < dst->qualifiers ) {
|
---|
707 | cost.incSafe();
|
---|
708 | } else {
|
---|
709 | cost.incUnsafe();
|
---|
710 | }
|
---|
711 | }
|
---|
712 |
|
---|
713 | void ConversionCost_new::postvisit( const ast::FunctionType * functionType ) {
|
---|
714 | (void)functionType;
|
---|
715 | }
|
---|
716 |
|
---|
717 | void ConversionCost_new::postvisit( const ast::EnumInstType * enumInstType ) {
|
---|
718 | const ast::EnumDecl * baseEnum = enumInstType->base;
|
---|
719 | if ( const ast::Type * baseType = baseEnum->base ) {
|
---|
720 | costCalc( baseType, dst, srcIsLvalue, symtab, env );
|
---|
721 | } else {
|
---|
722 | static ast::ptr<ast::BasicType> integer = { new ast::BasicType( ast::BasicType::SignedInt ) };
|
---|
723 | cost = costCalc( integer, dst, srcIsLvalue, symtab, env );
|
---|
724 | }
|
---|
725 | if ( cost < Cost::unsafe ) {
|
---|
726 | cost.incSafe();
|
---|
727 | }
|
---|
728 | }
|
---|
729 |
|
---|
730 | void ConversionCost_new::postvisit( const ast::TraitInstType * traitInstType ) {
|
---|
731 | (void)traitInstType;
|
---|
732 | }
|
---|
733 |
|
---|
734 | void ConversionCost_new::postvisit( const ast::TypeInstType * typeInstType ) {
|
---|
735 | if ( const ast::EqvClass * eqv = env.lookup( *typeInstType ) ) {
|
---|
736 | cost = costCalc( eqv->bound, dst, srcIsLvalue, symtab, env );
|
---|
737 | } else if ( const ast::TypeInstType * dstAsInst =
|
---|
738 | dynamic_cast< const ast::TypeInstType * >( dst ) ) {
|
---|
739 | if ( *typeInstType == *dstAsInst ) {
|
---|
740 | cost = Cost::zero;
|
---|
741 | }
|
---|
742 | } else if ( const ast::NamedTypeDecl * namedType = symtab.lookupType( typeInstType->name ) ) {
|
---|
743 | const ast::TypeDecl * type = dynamic_cast< const ast::TypeDecl * >( namedType );
|
---|
744 | assertf( type, "Unexpected typedef.");
|
---|
745 | if ( type->base ) {
|
---|
746 | cost = costCalc( type->base, dst, srcIsLvalue, symtab, env ) + Cost::safe;
|
---|
747 | }
|
---|
748 | }
|
---|
749 | }
|
---|
750 |
|
---|
751 | void ConversionCost_new::postvisit( const ast::TupleType * tupleType ) {
|
---|
752 | Cost c = Cost::zero;
|
---|
753 | if ( const ast::TupleType * dstAsTuple = dynamic_cast< const ast::TupleType * >( dst ) ) {
|
---|
754 | auto srcIt = tupleType->types.begin();
|
---|
755 | auto dstIt = dstAsTuple->types.begin();
|
---|
756 | auto srcEnd = tupleType->types.end();
|
---|
757 | auto dstEnd = dstAsTuple->types.end();
|
---|
758 | while ( srcIt != srcEnd && dstIt != dstEnd ) {
|
---|
759 | Cost newCost = costCalc( * srcIt++, * dstIt++, srcIsLvalue, symtab, env );
|
---|
760 | if ( newCost == Cost::infinity ) {
|
---|
761 | return;
|
---|
762 | }
|
---|
763 | c += newCost;
|
---|
764 | }
|
---|
765 | if ( dstIt != dstEnd ) {
|
---|
766 | cost = Cost::infinity;
|
---|
767 | } else {
|
---|
768 | cost = c;
|
---|
769 | }
|
---|
770 | }
|
---|
771 | }
|
---|
772 |
|
---|
773 | void ConversionCost_new::postvisit( const ast::VarArgsType * varArgsType ) {
|
---|
774 | (void)varArgsType;
|
---|
775 | if ( dynamic_cast< const ast::VarArgsType * >( dst ) ) {
|
---|
776 | cost = Cost::zero;
|
---|
777 | }
|
---|
778 | }
|
---|
779 |
|
---|
780 | void ConversionCost_new::postvisit( const ast::ZeroType * zeroType ) {
|
---|
781 | (void)zeroType;
|
---|
782 | if ( dynamic_cast< const ast::ZeroType * >( dst ) ) {
|
---|
783 | cost = Cost::zero;
|
---|
784 | } else if ( const ast::BasicType * dstAsBasic =
|
---|
785 | dynamic_cast< const ast::BasicType * >( dst ) ) {
|
---|
786 | int tableResult = costMatrix[ ast::BasicType::SignedInt ][ dstAsBasic->kind ];
|
---|
787 | if ( -1 == tableResult ) {
|
---|
788 | cost = Cost::unsafe;
|
---|
789 | } else {
|
---|
790 | cost = Cost::zero;
|
---|
791 | cost.incSafe( tableResult + 1 );
|
---|
792 | cost.incSign( signMatrix[ ast::BasicType::SignedInt ][ dstAsBasic->kind ] );
|
---|
793 | }
|
---|
794 | } else if ( dynamic_cast< const ast::PointerType * >( dst ) ) {
|
---|
795 | cost = Cost::zero;
|
---|
796 | // +1 for zero_t ->, +1 for disambiguation
|
---|
797 | cost.incSafe( maxIntCost + 2 );
|
---|
798 | }
|
---|
799 | }
|
---|
800 |
|
---|
801 | void ConversionCost_new::postvisit( const ast::OneType * oneType ) {
|
---|
802 | (void)oneType;
|
---|
803 | if ( dynamic_cast< const ast::OneType * >( dst ) ) {
|
---|
804 | cost = Cost::zero;
|
---|
805 | } else if ( const ast::BasicType * dstAsBasic =
|
---|
806 | dynamic_cast< const ast::BasicType * >( dst ) ) {
|
---|
807 | int tableResult = costMatrix[ ast::BasicType::SignedInt ][ dstAsBasic->kind ];
|
---|
808 | if ( -1 == tableResult ) {
|
---|
809 | cost = Cost::unsafe;
|
---|
810 | } else {
|
---|
811 | cost = Cost::zero;
|
---|
812 | cost.incSafe( tableResult + 1 );
|
---|
813 | cost.incSign( signMatrix[ ast::BasicType::SignedInt ][ dstAsBasic->kind ] );
|
---|
814 | }
|
---|
815 | }
|
---|
816 | }
|
---|
817 | // size_t ConversionCost_new::traceId = Stats::Heap::new_stacktrace_id("ConversionCost");
|
---|
818 |
|
---|
819 | } // namespace ResolvExpr
|
---|
820 |
|
---|
821 | // Local Variables: //
|
---|
822 | // tab-width: 4 //
|
---|
823 | // mode: c++ //
|
---|
824 | // compile-command: "make install" //
|
---|
825 | // End: //
|
---|