Context Navigation

source: src/ResolvExpr/ConversionCost.cc @ 31468a2

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc

Last change on this file since 31468a2 was a436947, checked in by Rob Schluntz <rschlunt@…>, 8 years ago
change type of enumerator to EnumInstType?, allow casting between EnumInstType? and BasicType?, add common type code for EnumInstType? and BasicType?
Property mode set to `100644`
File size: 9.6 KB

Line
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 : Peter A. Buhr
12	// Last Modified On : Wed Mar 2 17:35:46 2016
13	// Update Count : 6
14	//
15
16	#include "ConversionCost.h"
17	#include "typeops.h"
18	#include "SynTree/Type.h"
19	#include "SynTree/Visitor.h"
20	#include "SymTab/Indexer.h"
21
22	namespace ResolvExpr {
23	const Cost Cost::zero = Cost( 0, 0, 0 );
24	const Cost Cost::infinity = Cost( -1, -1, -1 );
25
26	Cost conversionCost( Type src, Type dest, const SymTab::Indexer &indexer, const TypeEnvironment &env ) {
27	if ( TypeInstType destAsTypeInst = dynamic_cast< TypeInstType >( dest ) ) {
28	EqvClass eqvClass;
29	NamedTypeDecl *namedType;
30	/// std::cout << "type inst " << destAsTypeInst->get_name();
31	if ( env.lookup( destAsTypeInst->get_name(), eqvClass ) ) {
32	return conversionCost( src, eqvClass.type, indexer, env );
33	} else if ( ( namedType = indexer.lookupType( destAsTypeInst->get_name() ) ) ) {
34	/// std::cout << " found" << std::endl;
35	TypeDecl type = dynamic_cast< TypeDecl >( namedType );
36	// all typedefs should be gone by this point
37	assert( type );
38	if ( type->get_base() ) {
39	return conversionCost( src, type->get_base(), indexer, env ) + Cost( 0, 0, 1 );
40	} // if
41	} // if
42	/// std::cout << " not found" << std::endl;
43	} // if
44	/// std::cout << "src is ";
45	/// src->print( std::cout );
46	/// std::cout << std::endl << "dest is ";
47	/// dest->print( std::cout );
48	/// std::cout << std::endl << "env is" << std::endl;
49	/// env.print( std::cout, 8 );
50	if ( typesCompatibleIgnoreQualifiers( src, dest, indexer, env ) ) {
51	/// std::cout << "compatible!" << std::endl;
52	return Cost( 0, 0, 0 );
53	} else if ( dynamic_cast< VoidType* >( dest ) ) {
54	return Cost( 0, 0, 1 );
55	} else {
56	ConversionCost converter( dest, indexer, env );
57	src->accept( converter );
58	if ( converter.get_cost() == Cost::infinity ) {
59	return Cost::infinity;
60	} else {
61	return converter.get_cost() + Cost( 0, 0, 0 );
62	} // if
63	} // if
64	}
65
66	ConversionCost::ConversionCost( Type *dest, const SymTab::Indexer &indexer, const TypeEnvironment &env )
67	: dest( dest ), indexer( indexer ), cost( Cost::infinity ), env( env ) {
68	}
69
70	/*
71	Old
72	===
73	Double
74	\|
75	Float
76	\|
77	ULong
78	/ \
79	UInt Long
80	\ /
81	Int
82	\|
83	Ushort
84	\|
85	Short
86	\|
87	Uchar
88	/ \
89	Schar Char
90
91	New
92	===
93	+-----LongDoubleComplex--+
94	LongDouble--+ \| +-LongDoubleImag
95	\| +---DoubleComplex---+ \|
96	Double------+ \| +----DoubleImag
97	\| +-FloatComplex-+ \|
98	Float---------+ +-------FloatImag
99	\|
100	ULongLong
101	\|
102	LongLong
103	\|
104	ULong
105	/ \
106	UInt Long
107	\ /
108	Int
109	\|
110	Ushort
111	\|
112	Short
113	\|
114	Uchar
115	/ \
116	Schar Char
117	\ /
118	Bool
119	*/
120
121	static const int costMatrix[ BasicType::NUMBER_OF_BASIC_TYPES ][ BasicType::NUMBER_OF_BASIC_TYPES ] =
122	{
123	/* Src \ Dest: Bool Char SChar UChar Short UShort Int UInt Long ULong LLong ULLong Float Double LDbl FCplex DCplex LDCplex FImag DImag LDImag */
124	/* Bool */ { 0, 1, 1, 2, 3, 4, 5, 6, 6, 7, 8, 9, 10, 11, 12, 11, 12, 13, -1, -1, -1 },
125	/* Char */ { -1, 0, -1, 1, 2, 3, 4, 5, 5, 6, 7, 8, 9, 10, 11, 10, 11, 12, -1, -1, -1 },
126	/* SChar */ { -1, -1, 0, 1, 2, 3, 4, 5, 5, 6, 7, 8, 9, 10, 11, 10, 11, 12, -1, -1, -1 },
127	/* UChar */ { -1, -1, -1, 0, 1, 2, 3, 4, 4, 5, 6, 7, 8, 9, 10, 9, 10, 11, -1, -1, -1 },
128	/* Short */ { -1, -1, -1, -1, 0, 1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 8, 9, 10, -1, -1, -1 },
129	/* UShort */{ -1, -1, -1, -1, -1, 0, 1, 2, 2, 3, 4, 5, 6, 7, 8, 7, 8, 9, -1, -1, -1 },
130	/* Int */ { -1, -1, -1, -1, -1, -1, 0, 1, 1, 2, 3, 4, 5, 6, 7, 6, 7, 8, -1, -1, -1 },
131	/* UInt */ { -1, -1, -1, -1, -1, -1, -1, 0, -1, 1, 2, 3, 4, 5, 6, 5, 6, 7, -1, -1, -1 },
132	/* Long */ { -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 4, 5, 6, 5, 6, 7, -1, -1, -1 },
133	/* ULong */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 4, 5, 4, 5, 6, -1, -1, -1 },
134	/* LLong */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 4, 3, 4, 5, -1, -1, -1 },
135	/* ULLong */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 2, 3, 4, -1, -1, -1 },
136	/* Float */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 1, 2, 3, -1, -1, -1 },
137	/* Double */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, -1, 1, 2, -1, -1, -1 },
138	/* LDbl */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, 1, -1, -1, -1 },
139	/* FCplex */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, -1, -1, -1 },
140	/* DCplex */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, -1, -1, -1 },
141	/* LDCplex */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, -1 },
142	/* FImag */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 2, 3, 0, 1, 2 },
143	/* DImag */ { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 2, -1, 0, 1 },
144	/* LDImag */{ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, -1, -1, 0 }
145	};
146
147	void ConversionCost::visit(VoidType *voidType) {
148	cost = Cost::infinity;
149	}
150
151	void ConversionCost::visit(BasicType *basicType) {
152	if ( BasicType destAsBasic = dynamic_cast< BasicType >( dest ) ) {
153	int tableResult = costMatrix[ basicType->get_kind() ][ destAsBasic->get_kind() ];
154	if ( tableResult == -1 ) {
155	cost = Cost( 1, 0, 0 );
156	} else {
157	cost = Cost( 0, 0, tableResult );
158	} // if
159	} else if ( dynamic_cast< EnumInstType *>( dest ) ) {
160	// xxx - not positive this is correct, but appears to allow casting int => enum
161	cost = Cost( 1, 0, 0 );
162	} // if
163	}
164
165	void ConversionCost::visit(PointerType *pointerType) {
166	if ( PointerType destAsPtr = dynamic_cast< PointerType >( dest ) ) {
167	if ( pointerType->get_base()->get_qualifiers() <= destAsPtr->get_base()->get_qualifiers() && typesCompatibleIgnoreQualifiers( pointerType->get_base(), destAsPtr->get_base(), indexer, env ) ) {
168	cost = Cost( 0, 0, 1 );
169	} else {
170	int assignResult = ptrsAssignable( pointerType->get_base(), destAsPtr->get_base(), env );
171	if ( assignResult < 0 ) {
172	cost = Cost( 0, 0, 1 );
173	} else if ( assignResult > 0 ) {
174	cost = Cost( 1, 0, 0 );
175	} // if
176	} // if
177	} // if
178	}
179
180	void ConversionCost::visit(ArrayType *arrayType) {
181	}
182
183	void ConversionCost::visit(FunctionType *functionType) {
184	}
185
186	void ConversionCost::visit(StructInstType *inst) {
187	if ( StructInstType destAsInst = dynamic_cast< StructInstType >( dest ) ) {
188	if ( inst->get_name() == destAsInst->get_name() ) {
189	cost = Cost::zero;
190	} // if
191	} // if
192	}
193
194	void ConversionCost::visit(UnionInstType *inst) {
195	if ( StructInstType destAsInst = dynamic_cast< StructInstType >( dest ) ) {
196	if ( inst->get_name() == destAsInst->get_name() ) {
197	cost = Cost::zero;
198	} // if
199	} // if
200	}
201
202	void ConversionCost::visit(EnumInstType *inst) {
203	static Type::Qualifiers q;
204	static BasicType integer( q, BasicType::SignedInt );
205	integer.accept( *this );
206	if ( cost < Cost( 1, 0, 0 ) ) {
207	cost.incSafe();
208	} // if
209	}
210
211	void ConversionCost::visit(TraitInstType *inst) {
212	}
213
214	void ConversionCost::visit(TypeInstType *inst) {
215	EqvClass eqvClass;
216	NamedTypeDecl *namedType;
217	if ( env.lookup( inst->get_name(), eqvClass ) ) {
218	cost = conversionCost( eqvClass.type, dest, indexer, env );
219	} else if ( TypeInstType destAsInst = dynamic_cast< TypeInstType >( dest ) ) {
220	if ( inst->get_name() == destAsInst->get_name() ) {
221	cost = Cost::zero;
222	}
223	} else if ( ( namedType = indexer.lookupType( inst->get_name() ) ) ) {
224	TypeDecl type = dynamic_cast< TypeDecl >( namedType );
225	// all typedefs should be gone by this point
226	assert( type );
227	if ( type->get_base() ) {
228	cost = conversionCost( type->get_base(), dest, indexer, env ) + Cost( 0, 0, 1 );
229	} // if
230	} // if
231	}
232
233	void ConversionCost::visit(TupleType *tupleType) {
234	Cost c;
235	if ( TupleType destAsTuple = dynamic_cast< TupleType >( dest ) ) {
236	std::list< Type* >::const_iterator srcIt = tupleType->get_types().begin();
237	std::list< Type* >::const_iterator destIt = destAsTuple->get_types().begin();
238	while ( srcIt != tupleType->get_types().end() ) {
239	Cost newCost = conversionCost( srcIt++, destIt++, indexer, env );
240	if ( newCost == Cost::infinity ) {
241	return;
242	} // if
243	c += newCost;
244	} // while
245	if ( destIt != destAsTuple->get_types().end() ) {
246	cost = Cost::infinity;
247	} else {
248	cost = c;
249	} // if
250	} // if
251	}
252
253	void ConversionCost::visit(VarArgsType *varArgsType) {
254	if ( dynamic_cast< VarArgsType* >( dest ) ) {
255	cost = Cost::zero;
256	}
257	}
258	} // namespace ResolvExpr
259
260	// Local Variables: //
261	// tab-width: 4 //
262	// mode: c++ //
263	// compile-command: "make install" //
264	// End: //

Note: See TracBrowser for help on using the repository browser.

Download in other formats: