source: src/ResolvExpr/AlternativeFinder.cc@ 4a60488

ADT arm-eh ast-experimental enum forall-pointer-decay jacob/cs343-translation new-ast new-ast-unique-expr pthread-emulation qualifiedEnum
Last change on this file since 4a60488 was 1118b8b, checked in by Thierry Delisle <tdelisle@…>, 6 years ago

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

  • Property mode set to 100644
File size: 68.9 KB
RevLine 
[a32b204]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//
[6ed1d4b]7// AlternativeFinder.cc --
[a32b204]8//
9// Author : Richard C. Bilson
10// Created On : Sat May 16 23:52:08 2015
[7d01cf44]11// Last Modified By : Andrew Beach
12// Last Modified On : Thu Aug 8 16:35:00 2019
13// Update Count : 38
[a32b204]14//
15
[ea6332d]16#include <algorithm> // for copy
[e3e16bc]17#include <cassert> // for strict_dynamic_cast, assert, assertf
[403b388]18#include <cstddef> // for size_t
[ea6332d]19#include <iostream> // for operator<<, cerr, ostream, endl
20#include <iterator> // for back_insert_iterator, back_inserter
21#include <list> // for _List_iterator, list, _List_const_...
22#include <map> // for _Rb_tree_iterator, map, _Rb_tree_c...
[403b388]23#include <memory> // for allocator_traits<>::value_type, unique_ptr
[ea6332d]24#include <utility> // for pair
[aeb75b1]25#include <vector> // for vector
[51b73452]26
[3bbd012]27#include "CompilationState.h" // for resolvep
[ea6332d]28#include "Alternative.h" // for AltList, Alternative
[51b73452]29#include "AlternativeFinder.h"
[d76c588]30#include "AST/Expr.hpp"
[4b7cce6]31#include "AST/SymbolTable.hpp"
[d76c588]32#include "AST/Type.hpp"
[ea6332d]33#include "Common/SemanticError.h" // for SemanticError
34#include "Common/utility.h" // for deleteAll, printAll, CodeLocation
35#include "Cost.h" // for Cost, Cost::zero, operator<<, Cost...
[a8b27c6]36#include "ExplodedActual.h" // for ExplodedActual
[ea6332d]37#include "InitTweak/InitTweak.h" // for getFunctionName
38#include "RenameVars.h" // for RenameVars, global_renamer
[6d6e829]39#include "ResolveAssertions.h" // for resolveAssertions
[ea6332d]40#include "ResolveTypeof.h" // for resolveTypeof
41#include "Resolver.h" // for resolveStmtExpr
42#include "SymTab/Indexer.h" // for Indexer
43#include "SymTab/Mangler.h" // for Mangler
44#include "SymTab/Validate.h" // for validateType
45#include "SynTree/Constant.h" // for Constant
46#include "SynTree/Declaration.h" // for DeclarationWithType, TypeDecl, Dec...
47#include "SynTree/Expression.h" // for Expression, CastExpr, NameExpr
48#include "SynTree/Initializer.h" // for SingleInit, operator<<, Designation
49#include "SynTree/SynTree.h" // for UniqueId
50#include "SynTree/Type.h" // for Type, FunctionType, PointerType
51#include "Tuples/Explode.h" // for explode
52#include "Tuples/Tuples.h" // for isTtype, handleTupleAssignment
53#include "Unify.h" // for unify
54#include "typeops.h" // for adjustExprType, polyCost, castCost
[51b73452]55
[6ed1d4b]56#define PRINT( text ) if ( resolvep ) { text }
[51b73452]57//#define DEBUG_COST
58
59namespace ResolvExpr {
[13deae88]60 struct AlternativeFinder::Finder : public WithShortCircuiting {
61 Finder( AlternativeFinder & altFinder ) : altFinder( altFinder ), indexer( altFinder.indexer ), alternatives( altFinder.alternatives ), env( altFinder.env ), targetType( altFinder.targetType ) {}
62
63 void previsit( BaseSyntaxNode * ) { visit_children = false; }
64
65 void postvisit( ApplicationExpr * applicationExpr );
66 void postvisit( UntypedExpr * untypedExpr );
67 void postvisit( AddressExpr * addressExpr );
68 void postvisit( LabelAddressExpr * labelExpr );
69 void postvisit( CastExpr * castExpr );
70 void postvisit( VirtualCastExpr * castExpr );
71 void postvisit( UntypedMemberExpr * memberExpr );
72 void postvisit( MemberExpr * memberExpr );
73 void postvisit( NameExpr * variableExpr );
74 void postvisit( VariableExpr * variableExpr );
75 void postvisit( ConstantExpr * constantExpr );
76 void postvisit( SizeofExpr * sizeofExpr );
77 void postvisit( AlignofExpr * alignofExpr );
78 void postvisit( UntypedOffsetofExpr * offsetofExpr );
79 void postvisit( OffsetofExpr * offsetofExpr );
80 void postvisit( OffsetPackExpr * offsetPackExpr );
81 void postvisit( LogicalExpr * logicalExpr );
82 void postvisit( ConditionalExpr * conditionalExpr );
83 void postvisit( CommaExpr * commaExpr );
84 void postvisit( ImplicitCopyCtorExpr * impCpCtorExpr );
85 void postvisit( ConstructorExpr * ctorExpr );
86 void postvisit( RangeExpr * rangeExpr );
87 void postvisit( UntypedTupleExpr * tupleExpr );
88 void postvisit( TupleExpr * tupleExpr );
89 void postvisit( TupleIndexExpr * tupleExpr );
90 void postvisit( TupleAssignExpr * tupleExpr );
91 void postvisit( UniqueExpr * unqExpr );
92 void postvisit( StmtExpr * stmtExpr );
93 void postvisit( UntypedInitExpr * initExpr );
[c71b256]94 void postvisit( InitExpr * initExpr );
95 void postvisit( DeletedExpr * delExpr );
[d807ca28]96 void postvisit( GenericExpr * genExpr );
[13deae88]97
98 /// Adds alternatives for anonymous members
99 void addAnonConversions( const Alternative & alt );
100 /// Adds alternatives for member expressions, given the aggregate, conversion cost for that aggregate, and name of the member
[6d6e829]101 template< typename StructOrUnionType > void addAggMembers( StructOrUnionType *aggInst, Expression *expr, const Alternative &alt, const Cost &newCost, const std::string & name );
[13deae88]102 /// Adds alternatives for member expressions where the left side has tuple type
[6d6e829]103 void addTupleMembers( TupleType *tupleType, Expression *expr, const Alternative &alt, const Cost &newCost, Expression *member );
[13deae88]104 /// Adds alternatives for offsetof expressions, given the base type and name of the member
105 template< typename StructOrUnionType > void addOffsetof( StructOrUnionType *aggInst, const std::string &name );
106 /// Takes a final result and checks if its assertions can be satisfied
107 template<typename OutputIterator>
108 void validateFunctionAlternative( const Alternative &func, ArgPack& result, const std::vector<ArgPack>& results, OutputIterator out );
109 /// Finds matching alternatives for a function, given a set of arguments
110 template<typename OutputIterator>
[432ce7a]111 void makeFunctionAlternatives( const Alternative &func, FunctionType *funcType, const ExplodedArgs_old& args, OutputIterator out );
[0b00df0]112 /// Sets up parameter inference for an output alternative
[13deae88]113 template< typename OutputIterator >
[0b00df0]114 void inferParameters( Alternative &newAlt, OutputIterator out );
[13deae88]115 private:
116 AlternativeFinder & altFinder;
117 const SymTab::Indexer &indexer;
118 AltList & alternatives;
119 const TypeEnvironment &env;
120 Type *& targetType;
121 };
122
[908cc83]123 Cost sumCost( const AltList &in ) {
[89be1c68]124 Cost total = Cost::zero;
[908cc83]125 for ( AltList::const_iterator i = in.begin(); i != in.end(); ++i ) {
126 total += i->cost;
127 }
128 return total;
129 }
130
[1e8bbac9]131 void printAlts( const AltList &list, std::ostream &os, unsigned int indentAmt ) {
[99d4584]132 Indenter indent = { indentAmt };
[1e8bbac9]133 for ( AltList::const_iterator i = list.begin(); i != list.end(); ++i ) {
134 i->print( os, indent );
135 os << std::endl;
[a32b204]136 }
[1e8bbac9]137 }
[d9a0e76]138
[1e8bbac9]139 namespace {
[a32b204]140 void makeExprList( const AltList &in, std::list< Expression* > &out ) {
141 for ( AltList::const_iterator i = in.begin(); i != in.end(); ++i ) {
142 out.push_back( i->expr->clone() );
143 }
144 }
[d9a0e76]145
[a32b204]146 struct PruneStruct {
147 bool isAmbiguous;
148 AltList::iterator candidate;
149 PruneStruct() {}
150 PruneStruct( AltList::iterator candidate ): isAmbiguous( false ), candidate( candidate ) {}
151 };
152
[0f19d763]153 /// Prunes a list of alternatives down to those that have the minimum conversion cost for a given return type; skips ambiguous interpretations
[a32b204]154 template< typename InputIterator, typename OutputIterator >
[d7dc824]155 void pruneAlternatives( InputIterator begin, InputIterator end, OutputIterator out ) {
[a32b204]156 // select the alternatives that have the minimum conversion cost for a particular set of result types
157 std::map< std::string, PruneStruct > selected;
158 for ( AltList::iterator candidate = begin; candidate != end; ++candidate ) {
159 PruneStruct current( candidate );
160 std::string mangleName;
[906e24d]161 {
162 Type * newType = candidate->expr->get_result()->clone();
[a32b204]163 candidate->env.apply( newType );
[906e24d]164 mangleName = SymTab::Mangler::mangle( newType );
[a32b204]165 delete newType;
166 }
167 std::map< std::string, PruneStruct >::iterator mapPlace = selected.find( mangleName );
168 if ( mapPlace != selected.end() ) {
169 if ( candidate->cost < mapPlace->second.candidate->cost ) {
170 PRINT(
[6ed1d4b]171 std::cerr << "cost " << candidate->cost << " beats " << mapPlace->second.candidate->cost << std::endl;
[7c64920]172 )
[0f19d763]173 selected[ mangleName ] = current;
[a32b204]174 } else if ( candidate->cost == mapPlace->second.candidate->cost ) {
[630bcb5]175 // if one of the candidates contains a deleted identifier, can pick the other, since
176 // deleted expressions should not be ambiguous if there is another option that is at least as good
177 if ( findDeletedExpr( candidate->expr ) ) {
178 // do nothing
179 PRINT( std::cerr << "candidate is deleted" << std::endl; )
180 } else if ( findDeletedExpr( mapPlace->second.candidate->expr ) ) {
181 PRINT( std::cerr << "current is deleted" << std::endl; )
182 selected[ mangleName ] = current;
183 } else {
184 PRINT(
185 std::cerr << "marking ambiguous" << std::endl;
186 )
187 mapPlace->second.isAmbiguous = true;
188 }
[b0837e4]189 } else {
190 PRINT(
191 std::cerr << "cost " << candidate->cost << " loses to " << mapPlace->second.candidate->cost << std::endl;
192 )
[a32b204]193 }
194 } else {
195 selected[ mangleName ] = current;
196 }
197 }
[d9a0e76]198
[0f19d763]199 // accept the alternatives that were unambiguous
200 for ( std::map< std::string, PruneStruct >::iterator target = selected.begin(); target != selected.end(); ++target ) {
201 if ( ! target->second.isAmbiguous ) {
202 Alternative &alt = *target->second.candidate;
[906e24d]203 alt.env.applyFree( alt.expr->get_result() );
[0f19d763]204 *out++ = alt;
[a32b204]205 }
[0f19d763]206 }
[d9a0e76]207 }
[a32b204]208
209 void renameTypes( Expression *expr ) {
[ad51cc2]210 renameTyVars( expr->result );
[e76acbe]211 }
[1dcd9554]212 } // namespace
[b1bead1]213
[a181494]214 void referenceToRvalueConversion( Expression *& expr, Cost & cost ) {
[1dcd9554]215 if ( dynamic_cast< ReferenceType * >( expr->get_result() ) ) {
216 // cast away reference from expr
217 expr = new CastExpr( expr, expr->get_result()->stripReferences()->clone() );
[a181494]218 cost.incReference();
[b1bead1]219 }
[1dcd9554]220 }
[d9a0e76]221
[a32b204]222 template< typename InputIterator, typename OutputIterator >
223 void AlternativeFinder::findSubExprs( InputIterator begin, InputIterator end, OutputIterator out ) {
224 while ( begin != end ) {
225 AlternativeFinder finder( indexer, env );
226 finder.findWithAdjustment( *begin );
227 // XXX either this
228 //Designators::fixDesignations( finder, (*begin++)->get_argName() );
229 // or XXX this
230 begin++;
231 PRINT(
[6ed1d4b]232 std::cerr << "findSubExprs" << std::endl;
233 printAlts( finder.alternatives, std::cerr );
[7c64920]234 )
[0f19d763]235 *out++ = finder;
[a32b204]236 }
[d9a0e76]237 }
238
[a32b204]239 AlternativeFinder::AlternativeFinder( const SymTab::Indexer &indexer, const TypeEnvironment &env )
240 : indexer( indexer ), env( env ) {
[d9a0e76]241 }
[51b73452]242
[59cf83b]243 void AlternativeFinder::find( Expression *expr, ResolvMode mode ) {
[13deae88]244 PassVisitor<Finder> finder( *this );
245 expr->accept( finder );
[59cf83b]246 if ( mode.failFast && alternatives.empty() ) {
[83882e9]247 PRINT(
248 std::cerr << "No reasonable alternatives for expression " << expr << std::endl;
249 )
[a16764a6]250 SemanticError( expr, "No reasonable alternatives for expression " );
[a32b204]251 }
[396037d]252 if ( mode.satisfyAssns || mode.prune ) {
[6d6e829]253 // trim candidates just to those where the assertions resolve
[fbecee5]254 // - necessary pre-requisite to pruning
[6d6e829]255 AltList candidates;
[4d2d45f9]256 std::list<std::string> errors;
[6d6e829]257 for ( unsigned i = 0; i < alternatives.size(); ++i ) {
[4d2d45f9]258 resolveAssertions( alternatives[i], indexer, candidates, errors );
[6d6e829]259 }
260 // fail early if none such
261 if ( mode.failFast && candidates.empty() ) {
262 std::ostringstream stream;
[4d2d45f9]263 stream << "No alternatives with satisfiable assertions for " << expr << "\n";
264 // << "Alternatives with failing assertions are:\n";
265 // printAlts( alternatives, stream, 1 );
266 for ( const auto& err : errors ) {
267 stream << err;
268 }
[6d6e829]269 SemanticError( expr->location, stream.str() );
270 }
271 // reset alternatives
272 alternatives = std::move( candidates );
273 }
[59cf83b]274 if ( mode.prune ) {
[b0837e4]275 auto oldsize = alternatives.size();
[b6fe7e6]276 PRINT(
277 std::cerr << "alternatives before prune:" << std::endl;
278 printAlts( alternatives, std::cerr );
279 )
[bd4f2e9]280 AltList pruned;
281 pruneAlternatives( alternatives.begin(), alternatives.end(), back_inserter( pruned ) );
[59cf83b]282 if ( mode.failFast && pruned.empty() ) {
[b6fe7e6]283 std::ostringstream stream;
284 AltList winners;
285 findMinCost( alternatives.begin(), alternatives.end(), back_inserter( winners ) );
[50377a4]286 stream << "Cannot choose between " << winners.size() << " alternatives for expression\n";
[5a824c2]287 expr->print( stream );
[93401f8]288 stream << " Alternatives are:\n";
[50377a4]289 printAlts( winners, stream, 1 );
[a16764a6]290 SemanticError( expr->location, stream.str() );
[b6fe7e6]291 }
[bd4f2e9]292 alternatives = move(pruned);
[b0837e4]293 PRINT(
294 std::cerr << "there are " << oldsize << " alternatives before elimination" << std::endl;
295 )
[b6fe7e6]296 PRINT(
297 std::cerr << "there are " << alternatives.size() << " alternatives after elimination" << std::endl;
298 )
[a32b204]299 }
[954ef5b]300 // adjust types after pruning so that types substituted by pruneAlternatives are correctly adjusted
[59cf83b]301 if ( mode.adjust ) {
302 for ( Alternative& i : alternatives ) {
303 adjustExprType( i.expr->get_result(), i.env, indexer );
[954ef5b]304 }
305 }
[8e9cbb2]306
[64ac636]307 // Central location to handle gcc extension keyword, etc. for all expression types.
[8e9cbb2]308 for ( Alternative &iter: alternatives ) {
309 iter.expr->set_extension( expr->get_extension() );
[64ac636]310 iter.expr->location = expr->location;
[8e9cbb2]311 } // for
[0f19d763]312 }
[d9a0e76]313
[4e66a18]314 void AlternativeFinder::findWithAdjustment( Expression *expr ) {
[59cf83b]315 find( expr, ResolvMode::withAdjustment() );
[4e66a18]316 }
317
318 void AlternativeFinder::findWithoutPrune( Expression * expr ) {
[59cf83b]319 find( expr, ResolvMode::withoutPrune() );
[4e66a18]320 }
321
322 void AlternativeFinder::maybeFind( Expression * expr ) {
[59cf83b]323 find( expr, ResolvMode::withoutFailFast() );
[d9a0e76]324 }
[a32b204]325
[13deae88]326 void AlternativeFinder::Finder::addAnonConversions( const Alternative & alt ) {
[4b0f997]327 // adds anonymous member interpretations whenever an aggregate value type is seen.
[d1685588]328 // it's okay for the aggregate expression to have reference type -- cast it to the base type to treat the aggregate as the referenced value
329 std::unique_ptr<Expression> aggrExpr( alt.expr->clone() );
[25fcb84]330 alt.env.apply( aggrExpr->result );
331 Type * aggrType = aggrExpr->result;
[d1685588]332 if ( dynamic_cast< ReferenceType * >( aggrType ) ) {
333 aggrType = aggrType->stripReferences();
334 aggrExpr.reset( new CastExpr( aggrExpr.release(), aggrType->clone() ) );
335 }
336
[6f096d2]337 if ( StructInstType * structInst = dynamic_cast< StructInstType* >( aggrExpr->result ) ) {
[6d6e829]338 addAggMembers( structInst, aggrExpr.get(), alt, alt.cost+Cost::safe, "" );
[6f096d2]339 } else if ( UnionInstType * unionInst = dynamic_cast< UnionInstType* >( aggrExpr->result ) ) {
[6d6e829]340 addAggMembers( unionInst, aggrExpr.get(), alt, alt.cost+Cost::safe, "" );
[4b0f997]341 } // if
342 }
[77971f6]343
[a32b204]344 template< typename StructOrUnionType >
[6f096d2]345 void AlternativeFinder::Finder::addAggMembers( StructOrUnionType * aggInst, Expression * expr, const Alternative& alt, const Cost &newCost, const std::string & name ) {
[bf32bb8]346 std::list< Declaration* > members;
347 aggInst->lookup( name, members );
[4b0f997]348
[5de1e2c]349 for ( Declaration * decl : members ) {
[6f096d2]350 if ( DeclarationWithType * dwt = dynamic_cast< DeclarationWithType* >( decl ) ) {
[5de1e2c]351 // addAnonAlternatives uses vector::push_back, which invalidates references to existing elements, so
352 // can't construct in place and use vector::back
[6d6e829]353 Alternative newAlt{ alt, new MemberExpr{ dwt, expr->clone() }, newCost };
[5de1e2c]354 renameTypes( newAlt.expr );
355 addAnonConversions( newAlt ); // add anonymous member interpretations whenever an aggregate value type is seen as a member expression.
356 alternatives.push_back( std::move(newAlt) );
[bf32bb8]357 } else {
358 assert( false );
[a32b204]359 }
360 }
[d9a0e76]361 }
[a32b204]362
[6f096d2]363 void AlternativeFinder::Finder::addTupleMembers( TupleType * tupleType, Expression * expr, const Alternative &alt, const Cost &newCost, Expression * member ) {
[848ce71]364 if ( ConstantExpr * constantExpr = dynamic_cast< ConstantExpr * >( member ) ) {
365 // get the value of the constant expression as an int, must be between 0 and the length of the tuple type to have meaning
[2a6c115]366 auto val = constantExpr->intValue();
[848ce71]367 std::string tmp;
[2a6c115]368 if ( val >= 0 && (unsigned long long)val < tupleType->size() ) {
[6f096d2]369 alternatives.push_back( Alternative{
[6d6e829]370 alt, new TupleIndexExpr( expr->clone(), val ), newCost } );
[2a6c115]371 } // if
[848ce71]372 } // if
373 }
374
[6f096d2]375 void AlternativeFinder::Finder::postvisit( ApplicationExpr * applicationExpr ) {
[6d6e829]376 alternatives.push_back( Alternative{ applicationExpr->clone(), env } );
[d9a0e76]377 }
378
[7d01cf44]379 Cost computeConversionCost( Type * actualType, Type * formalType, bool actualIsLvalue,
380 const SymTab::Indexer &indexer, const TypeEnvironment & env ) {
[ddf8a29]381 PRINT(
382 std::cerr << std::endl << "converting ";
383 actualType->print( std::cerr, 8 );
384 std::cerr << std::endl << " to ";
385 formalType->print( std::cerr, 8 );
386 std::cerr << std::endl << "environment is: ";
387 env.print( std::cerr, 8 );
388 std::cerr << std::endl;
389 )
[7d01cf44]390 Cost convCost = conversionCost( actualType, formalType, actualIsLvalue, indexer, env );
[ddf8a29]391 PRINT(
[d06c808]392 std::cerr << std::endl << "cost is " << convCost << std::endl;
[ddf8a29]393 )
394 if ( convCost == Cost::infinity ) {
395 return convCost;
396 }
397 convCost.incPoly( polyCost( formalType, env, indexer ) + polyCost( actualType, env, indexer ) );
[d06c808]398 PRINT(
399 std::cerr << "cost with polycost is " << convCost << std::endl;
400 )
[ddf8a29]401 return convCost;
402 }
403
404 Cost computeExpressionConversionCost( Expression *& actualExpr, Type * formalType, const SymTab::Indexer &indexer, const TypeEnvironment & env ) {
[7d01cf44]405 Cost convCost = computeConversionCost(
406 actualExpr->result, formalType, actualExpr->get_lvalue(), indexer, env );
[ddf8a29]407
[bb666f64]408 // if there is a non-zero conversion cost, ignoring poly cost, then the expression requires conversion.
409 // ignore poly cost for now, since this requires resolution of the cast to infer parameters and this
410 // does not currently work for the reason stated below.
[ddf8a29]411 Cost tmpCost = convCost;
412 tmpCost.incPoly( -tmpCost.get_polyCost() );
413 if ( tmpCost != Cost::zero ) {
414 Type *newType = formalType->clone();
415 env.apply( newType );
416 actualExpr = new CastExpr( actualExpr, newType );
417 // xxx - SHOULD be able to resolve this cast, but at the moment pointers are not castable to zero_t, but are implicitly convertible. This is clearly
418 // inconsistent, once this is fixed it should be possible to resolve the cast.
419 // xxx - this isn't working, it appears because type1 (the formal type) is seen as widenable, but it shouldn't be, because this makes the conversion from DT* to DT* since commontype(zero_t, DT*) is DT*, rather than just nothing.
420
421 // AlternativeFinder finder( indexer, env );
422 // finder.findWithAdjustment( actualExpr );
423 // assertf( finder.get_alternatives().size() > 0, "Somehow castable expression failed to find alternatives." );
424 // assertf( finder.get_alternatives().size() == 1, "Somehow got multiple alternatives for known cast expression." );
425 // Alternative & alt = finder.get_alternatives().front();
426 // delete actualExpr;
427 // actualExpr = alt.expr->clone();
428 }
429 return convCost;
430 }
431
432 Cost computeApplicationConversionCost( Alternative &alt, const SymTab::Indexer &indexer ) {
[e3e16bc]433 ApplicationExpr *appExpr = strict_dynamic_cast< ApplicationExpr* >( alt.expr );
[1dd1bd2]434 PointerType *pointer = strict_dynamic_cast< PointerType* >( appExpr->function->result );
435 FunctionType *function = strict_dynamic_cast< FunctionType* >( pointer->base );
[a32b204]436
[89be1c68]437 Cost convCost = Cost::zero;
[1dd1bd2]438 std::list< DeclarationWithType* >& formals = function->parameters;
[a32b204]439 std::list< DeclarationWithType* >::iterator formal = formals.begin();
[1dd1bd2]440 std::list< Expression* >& actuals = appExpr->args;
[0362d42]441
[1dd1bd2]442 for ( Expression*& actualExpr : actuals ) {
443 Type * actualType = actualExpr->result;
[a32b204]444 PRINT(
[6ed1d4b]445 std::cerr << "actual expression:" << std::endl;
[1dd1bd2]446 actualExpr->print( std::cerr, 8 );
[6ed1d4b]447 std::cerr << "--- results are" << std::endl;
[53e3b4a]448 actualType->print( std::cerr, 8 );
[7c64920]449 )
[53e3b4a]450 if ( formal == formals.end() ) {
[1dd1bd2]451 if ( function->isVarArgs ) {
[89be1c68]452 convCost.incUnsafe();
[d06c808]453 PRINT( std::cerr << "end of formals with varargs function: inc unsafe: " << convCost << std::endl; ; )
[b1bead1]454 // convert reference-typed expressions to value-typed expressions
[1dd1bd2]455 referenceToRvalueConversion( actualExpr, convCost );
[53e3b4a]456 continue;
457 } else {
458 return Cost::infinity;
[7c64920]459 }
[53e3b4a]460 }
[1dd1bd2]461 if ( DefaultArgExpr * def = dynamic_cast< DefaultArgExpr * >( actualExpr ) ) {
[0f79853]462 // default arguments should be free - don't include conversion cost.
463 // Unwrap them here because they are not relevant to the rest of the system.
[1dd1bd2]464 actualExpr = def->expr;
[0f79853]465 ++formal;
466 continue;
467 }
[1dd1bd2]468 // mark conversion cost to formal and also specialization cost of formal type
[53e3b4a]469 Type * formalType = (*formal)->get_type();
[1dd1bd2]470 convCost += computeExpressionConversionCost( actualExpr, formalType, indexer, alt.env );
471 convCost.decSpec( specCost( formalType ) );
[53e3b4a]472 ++formal; // can't be in for-loop update because of the continue
[d9a0e76]473 }
[a32b204]474 if ( formal != formals.end() ) {
475 return Cost::infinity;
[d9a0e76]476 }
477
[6f096d2]478 // specialization cost of return types can't be accounted for directly, it disables
[bd78797]479 // otherwise-identical calls, like this example based on auto-newline in the I/O lib:
480 //
481 // forall(otype OS) {
482 // void ?|?(OS&, int); // with newline
483 // OS& ?|?(OS&, int); // no newline, always chosen due to more specialization
484 // }
[1dd1bd2]485
486 // mark type variable and specialization cost of forall clause
487 convCost.incVar( function->forall.size() );
488 for ( TypeDecl* td : function->forall ) {
489 convCost.decSpec( td->assertions.size() );
490 }
491
[a32b204]492 return convCost;
493 }
[d9a0e76]494
[8c84ebd]495 /// Adds type variables to the open variable set and marks their assertions
[a32b204]496 void makeUnifiableVars( Type *type, OpenVarSet &unifiableVars, AssertionSet &needAssertions ) {
[43bd69d]497 for ( Type::ForallList::const_iterator tyvar = type->forall.begin(); tyvar != type->forall.end(); ++tyvar ) {
[2c57025]498 unifiableVars[ (*tyvar)->get_name() ] = TypeDecl::Data{ *tyvar };
[43bd69d]499 for ( std::list< DeclarationWithType* >::iterator assert = (*tyvar)->assertions.begin(); assert != (*tyvar)->assertions.end(); ++assert ) {
[6c3a988f]500 needAssertions[ *assert ].isUsed = true;
[a32b204]501 }
[d9a0e76]502 }
503 }
[a32b204]504
[9d5089e]505 /// Unique identifier for matching expression resolutions to their requesting expression (located in CandidateFinder.cpp)
506 extern UniqueId globalResnSlot;
[0b00df0]507
[a32b204]508 template< typename OutputIterator >
[0b00df0]509 void AlternativeFinder::Finder::inferParameters( Alternative &newAlt, OutputIterator out ) {
510 // Set need bindings for any unbound assertions
511 UniqueId crntResnSlot = 0; // matching ID for this expression's assertions
512 for ( auto& assn : newAlt.need ) {
513 // skip already-matched assertions
514 if ( assn.info.resnSlot != 0 ) continue;
515 // assign slot for expression if needed
516 if ( crntResnSlot == 0 ) { crntResnSlot = ++globalResnSlot; }
517 // fix slot to assertion
518 assn.info.resnSlot = crntResnSlot;
519 }
520 // pair slot to expression
521 if ( crntResnSlot != 0 ) { newAlt.expr->resnSlots.push_back( crntResnSlot ); }
522
523 // add to output list, assertion resolution is deferred
[6d6e829]524 *out++ = newAlt;
[d9a0e76]525 }
526
[aeb75b1]527 /// Gets a default value from an initializer, nullptr if not present
528 ConstantExpr* getDefaultValue( Initializer* init ) {
529 if ( SingleInit* si = dynamic_cast<SingleInit*>( init ) ) {
[630bcb5]530 if ( CastExpr* ce = dynamic_cast<CastExpr*>( si->value ) ) {
531 return dynamic_cast<ConstantExpr*>( ce->arg );
532 } else {
533 return dynamic_cast<ConstantExpr*>( si->value );
[aeb75b1]534 }
535 }
536 return nullptr;
537 }
538
539 /// State to iteratively build a match of parameter expressions to arguments
540 struct ArgPack {
[452747a]541 std::size_t parent; ///< Index of parent pack
[403b388]542 std::unique_ptr<Expression> expr; ///< The argument stored here
543 Cost cost; ///< The cost of this argument
544 TypeEnvironment env; ///< Environment for this pack
545 AssertionSet need; ///< Assertions outstanding for this pack
546 AssertionSet have; ///< Assertions found for this pack
547 OpenVarSet openVars; ///< Open variables for this pack
548 unsigned nextArg; ///< Index of next argument in arguments list
549 unsigned tupleStart; ///< Number of tuples that start at this index
[a8b27c6]550 unsigned nextExpl; ///< Index of next exploded element
551 unsigned explAlt; ///< Index of alternative for nextExpl > 0
[403b388]552
553 ArgPack()
[ad51cc2]554 : parent(0), expr(), cost(Cost::zero), env(), need(), have(), openVars(), nextArg(0),
[a8b27c6]555 tupleStart(0), nextExpl(0), explAlt(0) {}
[aeb75b1]556
[11094d9]557 ArgPack(const TypeEnvironment& env, const AssertionSet& need, const AssertionSet& have,
[aeb75b1]558 const OpenVarSet& openVars)
[452747a]559 : parent(0), expr(), cost(Cost::zero), env(env), need(need), have(have),
[a8b27c6]560 openVars(openVars), nextArg(0), tupleStart(0), nextExpl(0), explAlt(0) {}
[11094d9]561
[452747a]562 ArgPack(std::size_t parent, Expression* expr, TypeEnvironment&& env, AssertionSet&& need,
563 AssertionSet&& have, OpenVarSet&& openVars, unsigned nextArg,
[178e4ec]564 unsigned tupleStart = 0, Cost cost = Cost::zero, unsigned nextExpl = 0,
[a8b27c6]565 unsigned explAlt = 0 )
[452747a]566 : parent(parent), expr(expr->clone()), cost(cost), env(move(env)), need(move(need)),
[403b388]567 have(move(have)), openVars(move(openVars)), nextArg(nextArg), tupleStart(tupleStart),
[a8b27c6]568 nextExpl(nextExpl), explAlt(explAlt) {}
[452747a]569
570 ArgPack(const ArgPack& o, TypeEnvironment&& env, AssertionSet&& need, AssertionSet&& have,
[73a5cadb]571 OpenVarSet&& openVars, unsigned nextArg, Cost added )
[452747a]572 : parent(o.parent), expr(o.expr ? o.expr->clone() : nullptr), cost(o.cost + added),
573 env(move(env)), need(move(need)), have(move(have)), openVars(move(openVars)),
[a8b27c6]574 nextArg(nextArg), tupleStart(o.tupleStart), nextExpl(0), explAlt(0) {}
[73a5cadb]575
[a8b27c6]576 /// true iff this pack is in the middle of an exploded argument
577 bool hasExpl() const { return nextExpl > 0; }
[aeb75b1]578
[a8b27c6]579 /// Gets the list of exploded alternatives for this pack
[432ce7a]580 const ExplodedActual& getExpl( const ExplodedArgs_old& args ) const {
[a8b27c6]581 return args[nextArg-1][explAlt];
582 }
[aeb75b1]583
584 /// Ends a tuple expression, consolidating the appropriate actuals
[403b388]585 void endTuple( const std::vector<ArgPack>& packs ) {
586 // add all expressions in tuple to list, summing cost
[aeb75b1]587 std::list<Expression*> exprs;
[403b388]588 const ArgPack* pack = this;
589 if ( expr ) { exprs.push_front( expr.release() ); }
590 while ( pack->tupleStart == 0 ) {
591 pack = &packs[pack->parent];
592 exprs.push_front( pack->expr->clone() );
593 cost += pack->cost;
[aeb75b1]594 }
[403b388]595 // reset pack to appropriate tuple
596 expr.reset( new TupleExpr( exprs ) );
597 tupleStart = pack->tupleStart - 1;
598 parent = pack->parent;
[aeb75b1]599 }
[4b6ef70]600 };
[aeb75b1]601
602 /// Instantiates an argument to match a formal, returns false if no results left
[11094d9]603 bool instantiateArgument( Type* formalType, Initializer* initializer,
[432ce7a]604 const ExplodedArgs_old& args, std::vector<ArgPack>& results, std::size_t& genStart,
[a8b27c6]605 const SymTab::Indexer& indexer, unsigned nTuples = 0 ) {
[3d2ae8d]606 if ( TupleType * tupleType = dynamic_cast<TupleType*>( formalType ) ) {
[aeb75b1]607 // formalType is a TupleType - group actuals into a TupleExpr
[403b388]608 ++nTuples;
[aeb75b1]609 for ( Type* type : *tupleType ) {
610 // xxx - dropping initializer changes behaviour from previous, but seems correct
[3d2ae8d]611 // ^^^ need to handle the case where a tuple has a default argument
[452747a]612 if ( ! instantiateArgument(
613 type, nullptr, args, results, genStart, indexer, nTuples ) )
[aeb75b1]614 return false;
[403b388]615 nTuples = 0;
616 }
617 // re-consititute tuples for final generation
618 for ( auto i = genStart; i < results.size(); ++i ) {
619 results[i].endTuple( results );
[aeb75b1]620 }
621 return true;
[3d2ae8d]622 } else if ( TypeInstType * ttype = Tuples::isTtype( formalType ) ) {
[aeb75b1]623 // formalType is a ttype, consumes all remaining arguments
624 // xxx - mixing default arguments with variadic??
[403b388]625
626 // completed tuples; will be spliced to end of results to finish
627 std::vector<ArgPack> finalResults{};
628
[aeb75b1]629 // iterate until all results completed
[403b388]630 std::size_t genEnd;
631 ++nTuples;
632 do {
633 genEnd = results.size();
634
[aeb75b1]635 // add another argument to results
[403b388]636 for ( std::size_t i = genStart; i < genEnd; ++i ) {
[a8b27c6]637 auto nextArg = results[i].nextArg;
[452747a]638
[62194cb]639 // use next element of exploded tuple if present
[a8b27c6]640 if ( results[i].hasExpl() ) {
641 const ExplodedActual& expl = results[i].getExpl( args );
[403b388]642
[a8b27c6]643 unsigned nextExpl = results[i].nextExpl + 1;
[62194cb]644 if ( nextExpl == expl.exprs.size() ) {
[a8b27c6]645 nextExpl = 0;
646 }
[403b388]647
648 results.emplace_back(
[178e4ec]649 i, expl.exprs[results[i].nextExpl].get(), copy(results[i].env),
650 copy(results[i].need), copy(results[i].have),
651 copy(results[i].openVars), nextArg, nTuples, Cost::zero, nextExpl,
[62194cb]652 results[i].explAlt );
[452747a]653
[403b388]654 continue;
655 }
[452747a]656
[aeb75b1]657 // finish result when out of arguments
[a8b27c6]658 if ( nextArg >= args.size() ) {
[452747a]659 ArgPack newResult{
660 results[i].env, results[i].need, results[i].have,
[403b388]661 results[i].openVars };
[a8b27c6]662 newResult.nextArg = nextArg;
[403b388]663 Type* argType;
664
[7faab5e]665 if ( nTuples > 0 || ! results[i].expr ) {
[ad51cc2]666 // first iteration or no expression to clone,
[7faab5e]667 // push empty tuple expression
[403b388]668 newResult.parent = i;
669 std::list<Expression*> emptyList;
670 newResult.expr.reset( new TupleExpr( emptyList ) );
671 argType = newResult.expr->get_result();
[aeb75b1]672 } else {
[403b388]673 // clone result to collect tuple
674 newResult.parent = results[i].parent;
675 newResult.cost = results[i].cost;
676 newResult.tupleStart = results[i].tupleStart;
677 newResult.expr.reset( results[i].expr->clone() );
678 argType = newResult.expr->get_result();
679
680 if ( results[i].tupleStart > 0 && Tuples::isTtype( argType ) ) {
[452747a]681 // the case where a ttype value is passed directly is special,
[403b388]682 // e.g. for argument forwarding purposes
[452747a]683 // xxx - what if passing multiple arguments, last of which is
[403b388]684 // ttype?
[452747a]685 // xxx - what would happen if unify was changed so that unifying
686 // tuple
687 // types flattened both before unifying lists? then pass in
[403b388]688 // TupleType (ttype) below.
689 --newResult.tupleStart;
690 } else {
691 // collapse leftover arguments into tuple
692 newResult.endTuple( results );
693 argType = newResult.expr->get_result();
694 }
[aeb75b1]695 }
[403b388]696
[aeb75b1]697 // check unification for ttype before adding to final
[452747a]698 if ( unify( ttype, argType, newResult.env, newResult.need, newResult.have,
[403b388]699 newResult.openVars, indexer ) ) {
700 finalResults.push_back( move(newResult) );
[aeb75b1]701 }
[452747a]702
[aeb75b1]703 continue;
704 }
705
706 // add each possible next argument
[a8b27c6]707 for ( std::size_t j = 0; j < args[nextArg].size(); ++j ) {
708 const ExplodedActual& expl = args[nextArg][j];
[178e4ec]709
[403b388]710 // fresh copies of parent parameters for this iteration
711 TypeEnvironment env = results[i].env;
712 OpenVarSet openVars = results[i].openVars;
713
[a8b27c6]714 env.addActual( expl.env, openVars );
[11094d9]715
[a8b27c6]716 // skip empty tuple arguments by (near-)cloning parent into next gen
[62194cb]717 if ( expl.exprs.empty() ) {
[73a5cadb]718 results.emplace_back(
[452747a]719 results[i], move(env), copy(results[i].need),
[a8b27c6]720 copy(results[i].have), move(openVars), nextArg + 1, expl.cost );
[452747a]721
[403b388]722 continue;
[4b6ef70]723 }
[11094d9]724
[403b388]725 // add new result
726 results.emplace_back(
[178e4ec]727 i, expl.exprs.front().get(), move(env), copy(results[i].need),
728 copy(results[i].have), move(openVars), nextArg + 1,
[62194cb]729 nTuples, expl.cost, expl.exprs.size() == 1 ? 0 : 1, j );
[aeb75b1]730 }
731 }
732
733 // reset for next round
[403b388]734 genStart = genEnd;
735 nTuples = 0;
736 } while ( genEnd != results.size() );
737
738 // splice final results onto results
739 for ( std::size_t i = 0; i < finalResults.size(); ++i ) {
740 results.push_back( move(finalResults[i]) );
[aeb75b1]741 }
[403b388]742 return ! finalResults.empty();
[aeb75b1]743 }
[11094d9]744
[aeb75b1]745 // iterate each current subresult
[403b388]746 std::size_t genEnd = results.size();
747 for ( std::size_t i = genStart; i < genEnd; ++i ) {
[a8b27c6]748 auto nextArg = results[i].nextArg;
749
[403b388]750 // use remainder of exploded tuple if present
[a8b27c6]751 if ( results[i].hasExpl() ) {
752 const ExplodedActual& expl = results[i].getExpl( args );
[62194cb]753 Expression* expr = expl.exprs[results[i].nextExpl].get();
[452747a]754
[403b388]755 TypeEnvironment env = results[i].env;
756 AssertionSet need = results[i].need, have = results[i].have;
757 OpenVarSet openVars = results[i].openVars;
[4b6ef70]758
[62194cb]759 Type* actualType = expr->get_result();
[4b6ef70]760
761 PRINT(
762 std::cerr << "formal type is ";
763 formalType->print( std::cerr );
764 std::cerr << std::endl << "actual type is ";
765 actualType->print( std::cerr );
766 std::cerr << std::endl;
767 )
[11094d9]768
[403b388]769 if ( unify( formalType, actualType, env, need, have, openVars, indexer ) ) {
[a8b27c6]770 unsigned nextExpl = results[i].nextExpl + 1;
[62194cb]771 if ( nextExpl == expl.exprs.size() ) {
[a8b27c6]772 nextExpl = 0;
773 }
[178e4ec]774
[452747a]775 results.emplace_back(
[178e4ec]776 i, expr, move(env), move(need), move(have), move(openVars), nextArg,
[62194cb]777 nTuples, Cost::zero, nextExpl, results[i].explAlt );
[4b6ef70]778 }
779
780 continue;
[403b388]781 }
[452747a]782
[403b388]783 // use default initializers if out of arguments
[a8b27c6]784 if ( nextArg >= args.size() ) {
[aeb75b1]785 if ( ConstantExpr* cnstExpr = getDefaultValue( initializer ) ) {
786 if ( Constant* cnst = dynamic_cast<Constant*>( cnstExpr->get_constant() ) ) {
[403b388]787 TypeEnvironment env = results[i].env;
788 AssertionSet need = results[i].need, have = results[i].have;
789 OpenVarSet openVars = results[i].openVars;
790
[452747a]791 if ( unify( formalType, cnst->get_type(), env, need, have, openVars,
[403b388]792 indexer ) ) {
793 results.emplace_back(
[0f79853]794 i, new DefaultArgExpr( cnstExpr ), move(env), move(need), move(have),
[a8b27c6]795 move(openVars), nextArg, nTuples );
[aeb75b1]796 }
797 }
798 }
[403b388]799
[aeb75b1]800 continue;
801 }
802
803 // Check each possible next argument
[a8b27c6]804 for ( std::size_t j = 0; j < args[nextArg].size(); ++j ) {
805 const ExplodedActual& expl = args[nextArg][j];
806
[403b388]807 // fresh copies of parent parameters for this iteration
808 TypeEnvironment env = results[i].env;
809 AssertionSet need = results[i].need, have = results[i].have;
810 OpenVarSet openVars = results[i].openVars;
811
[a8b27c6]812 env.addActual( expl.env, openVars );
[4b6ef70]813
[a8b27c6]814 // skip empty tuple arguments by (near-)cloning parent into next gen
[62194cb]815 if ( expl.exprs.empty() ) {
[73a5cadb]816 results.emplace_back(
[178e4ec]817 results[i], move(env), move(need), move(have), move(openVars),
[a8b27c6]818 nextArg + 1, expl.cost );
[73a5cadb]819
[4b6ef70]820 continue;
821 }
[aeb75b1]822
[4b6ef70]823 // consider only first exploded actual
[62194cb]824 Expression* expr = expl.exprs.front().get();
[3d2ae8d]825 Type* actualType = expr->result->clone();
[a585396]826
[4b6ef70]827 PRINT(
828 std::cerr << "formal type is ";
829 formalType->print( std::cerr );
830 std::cerr << std::endl << "actual type is ";
831 actualType->print( std::cerr );
832 std::cerr << std::endl;
833 )
[aeb75b1]834
[4b6ef70]835 // attempt to unify types
[403b388]836 if ( unify( formalType, actualType, env, need, have, openVars, indexer ) ) {
837 // add new result
838 results.emplace_back(
[178e4ec]839 i, expr, move(env), move(need), move(have), move(openVars), nextArg + 1,
[62194cb]840 nTuples, expl.cost, expl.exprs.size() == 1 ? 0 : 1, j );
[4b6ef70]841 }
[aeb75b1]842 }
843 }
844
845 // reset for next parameter
[403b388]846 genStart = genEnd;
[11094d9]847
[403b388]848 return genEnd != results.size();
849 }
850
851 template<typename OutputIterator>
[13deae88]852 void AlternativeFinder::Finder::validateFunctionAlternative( const Alternative &func, ArgPack& result,
[403b388]853 const std::vector<ArgPack>& results, OutputIterator out ) {
854 ApplicationExpr *appExpr = new ApplicationExpr( func.expr->clone() );
855 // sum cost and accumulate actuals
[3d2ae8d]856 std::list<Expression*>& args = appExpr->args;
[8a62d04]857 Cost cost = func.cost;
[403b388]858 const ArgPack* pack = &result;
859 while ( pack->expr ) {
860 args.push_front( pack->expr->clone() );
861 cost += pack->cost;
862 pack = &results[pack->parent];
863 }
864 // build and validate new alternative
[2c187378]865 Alternative newAlt{ appExpr, result.env, result.openVars, result.need, cost };
[403b388]866 PRINT(
867 std::cerr << "instantiate function success: " << appExpr << std::endl;
868 std::cerr << "need assertions:" << std::endl;
869 printAssertionSet( result.need, std::cerr, 8 );
870 )
[0b00df0]871 inferParameters( newAlt, out );
[11094d9]872 }
[aeb75b1]873
874 template<typename OutputIterator>
[13deae88]875 void AlternativeFinder::Finder::makeFunctionAlternatives( const Alternative &func,
[432ce7a]876 FunctionType *funcType, const ExplodedArgs_old &args, OutputIterator out ) {
[aeb75b1]877 OpenVarSet funcOpenVars;
878 AssertionSet funcNeed, funcHave;
[3f7e12cb]879 TypeEnvironment funcEnv( func.env );
[aeb75b1]880 makeUnifiableVars( funcType, funcOpenVars, funcNeed );
[11094d9]881 // add all type variables as open variables now so that those not used in the parameter
[aeb75b1]882 // list are still considered open.
[3d2ae8d]883 funcEnv.add( funcType->forall );
[11094d9]884
[3d2ae8d]885 if ( targetType && ! targetType->isVoid() && ! funcType->returnVals.empty() ) {
[ea83e00a]886 // attempt to narrow based on expected target type
[3d2ae8d]887 Type * returnType = funcType->returnVals.front()->get_type();
[11094d9]888 if ( ! unify( returnType, targetType, funcEnv, funcNeed, funcHave, funcOpenVars,
[aeb75b1]889 indexer ) ) {
890 // unification failed, don't pursue this function alternative
[ea83e00a]891 return;
892 }
893 }
894
[aeb75b1]895 // iteratively build matches, one parameter at a time
[403b388]896 std::vector<ArgPack> results;
897 results.push_back( ArgPack{ funcEnv, funcNeed, funcHave, funcOpenVars } );
898 std::size_t genStart = 0;
899
[3d2ae8d]900 for ( DeclarationWithType* formal : funcType->parameters ) {
[aeb75b1]901 ObjectDecl* obj = strict_dynamic_cast< ObjectDecl* >( formal );
[11094d9]902 if ( ! instantiateArgument(
[3d2ae8d]903 obj->type, obj->init, args, results, genStart, indexer ) )
[aeb75b1]904 return;
905 }
906
907 if ( funcType->get_isVarArgs() ) {
[403b388]908 // append any unused arguments to vararg pack
909 std::size_t genEnd;
910 do {
911 genEnd = results.size();
912
913 // iterate results
914 for ( std::size_t i = genStart; i < genEnd; ++i ) {
[a8b27c6]915 auto nextArg = results[i].nextArg;
[452747a]916
[403b388]917 // use remainder of exploded tuple if present
[a8b27c6]918 if ( results[i].hasExpl() ) {
919 const ExplodedActual& expl = results[i].getExpl( args );
[403b388]920
[a8b27c6]921 unsigned nextExpl = results[i].nextExpl + 1;
[62194cb]922 if ( nextExpl == expl.exprs.size() ) {
[a8b27c6]923 nextExpl = 0;
924 }
[403b388]925
926 results.emplace_back(
[178e4ec]927 i, expl.exprs[results[i].nextExpl].get(), copy(results[i].env),
928 copy(results[i].need), copy(results[i].have),
929 copy(results[i].openVars), nextArg, 0, Cost::zero, nextExpl,
[62194cb]930 results[i].explAlt );
[452747a]931
[403b388]932 continue;
933 }
934
935 // finish result when out of arguments
[a8b27c6]936 if ( nextArg >= args.size() ) {
[403b388]937 validateFunctionAlternative( func, results[i], results, out );
[fae6f21]938
[aeb75b1]939 continue;
940 }
941
942 // add each possible next argument
[a8b27c6]943 for ( std::size_t j = 0; j < args[nextArg].size(); ++j ) {
944 const ExplodedActual& expl = args[nextArg][j];
945
[403b388]946 // fresh copies of parent parameters for this iteration
947 TypeEnvironment env = results[i].env;
948 OpenVarSet openVars = results[i].openVars;
949
[a8b27c6]950 env.addActual( expl.env, openVars );
[d551d0a]951
[a8b27c6]952 // skip empty tuple arguments by (near-)cloning parent into next gen
[62194cb]953 if ( expl.exprs.empty() ) {
[452747a]954 results.emplace_back(
955 results[i], move(env), copy(results[i].need),
[a8b27c6]956 copy(results[i].have), move(openVars), nextArg + 1, expl.cost );
[178e4ec]957
[403b388]958 continue;
959 }
[d551d0a]960
[403b388]961 // add new result
962 results.emplace_back(
[178e4ec]963 i, expl.exprs.front().get(), move(env), copy(results[i].need),
964 copy(results[i].have), move(openVars), nextArg + 1, 0,
[62194cb]965 expl.cost, expl.exprs.size() == 1 ? 0 : 1, j );
[aeb75b1]966 }
967 }
968
[403b388]969 genStart = genEnd;
970 } while ( genEnd != results.size() );
[aeb75b1]971 } else {
972 // filter out results that don't use all the arguments
[403b388]973 for ( std::size_t i = genStart; i < results.size(); ++i ) {
974 ArgPack& result = results[i];
[a8b27c6]975 if ( ! result.hasExpl() && result.nextArg >= args.size() ) {
[403b388]976 validateFunctionAlternative( func, result, results, out );
[aeb75b1]977 }
978 }
979 }
[d9a0e76]980 }
981
[13deae88]982 void AlternativeFinder::Finder::postvisit( UntypedExpr *untypedExpr ) {
[6ccfb7f]983 AlternativeFinder funcFinder( indexer, env );
[3d2ae8d]984 funcFinder.findWithAdjustment( untypedExpr->function );
[6ccfb7f]985 // if there are no function alternatives, then proceeding is a waste of time.
[630bcb5]986 // xxx - findWithAdjustment throws, so this check and others like it shouldn't be necessary.
[6ccfb7f]987 if ( funcFinder.alternatives.empty() ) return;
988
[aeb75b1]989 std::vector< AlternativeFinder > argAlternatives;
[13deae88]990 altFinder.findSubExprs( untypedExpr->begin_args(), untypedExpr->end_args(),
[aeb75b1]991 back_inserter( argAlternatives ) );
[d9a0e76]992
[5af62f1]993 // take care of possible tuple assignments
994 // if not tuple assignment, assignment is taken care of as a normal function call
[13deae88]995 Tuples::handleTupleAssignment( altFinder, untypedExpr, argAlternatives );
[c43c171]996
[6ccfb7f]997 // find function operators
[4e66a18]998 static NameExpr *opExpr = new NameExpr( "?()" );
[6ccfb7f]999 AlternativeFinder funcOpFinder( indexer, env );
[4e66a18]1000 // it's ok if there aren't any defined function ops
[00ac42e]1001 funcOpFinder.maybeFind( opExpr );
[6ccfb7f]1002 PRINT(
1003 std::cerr << "known function ops:" << std::endl;
[50377a4]1004 printAlts( funcOpFinder.alternatives, std::cerr, 1 );
[6ccfb7f]1005 )
1006
[a8b27c6]1007 // pre-explode arguments
[432ce7a]1008 ExplodedArgs_old argExpansions;
[a8b27c6]1009 argExpansions.reserve( argAlternatives.size() );
1010
1011 for ( const AlternativeFinder& arg : argAlternatives ) {
1012 argExpansions.emplace_back();
1013 auto& argE = argExpansions.back();
[d286cf68]1014 // argE.reserve( arg.alternatives.size() );
[178e4ec]1015
[a8b27c6]1016 for ( const Alternative& actual : arg ) {
1017 argE.emplace_back( actual, indexer );
1018 }
1019 }
1020
[a32b204]1021 AltList candidates;
[a16764a6]1022 SemanticErrorException errors;
[b1bead1]1023 for ( AltList::iterator func = funcFinder.alternatives.begin(); func != funcFinder.alternatives.end(); ++func ) {
[91b8a17]1024 try {
1025 PRINT(
1026 std::cerr << "working on alternative: " << std::endl;
1027 func->print( std::cerr, 8 );
1028 )
1029 // check if the type is pointer to function
[3d2ae8d]1030 if ( PointerType *pointer = dynamic_cast< PointerType* >( func->expr->result->stripReferences() ) ) {
1031 if ( FunctionType *function = dynamic_cast< FunctionType* >( pointer->base ) ) {
[326338ae]1032 Alternative newFunc( *func );
[a181494]1033 referenceToRvalueConversion( newFunc.expr, newFunc.cost );
[a8b27c6]1034 makeFunctionAlternatives( newFunc, function, argExpansions,
[aeb75b1]1035 std::back_inserter( candidates ) );
[b1bead1]1036 }
[3d2ae8d]1037 } else if ( TypeInstType *typeInst = dynamic_cast< TypeInstType* >( func->expr->result->stripReferences() ) ) { // handle ftype (e.g. *? on function pointer)
[00ac42e]1038 if ( const EqvClass *eqvClass = func->env.lookup( typeInst->name ) ) {
1039 if ( FunctionType *function = dynamic_cast< FunctionType* >( eqvClass->type ) ) {
[326338ae]1040 Alternative newFunc( *func );
[a181494]1041 referenceToRvalueConversion( newFunc.expr, newFunc.cost );
[a8b27c6]1042 makeFunctionAlternatives( newFunc, function, argExpansions,
[aeb75b1]1043 std::back_inserter( candidates ) );
[a32b204]1044 } // if
1045 } // if
[11094d9]1046 }
[a16764a6]1047 } catch ( SemanticErrorException &e ) {
[91b8a17]1048 errors.append( e );
1049 }
[a32b204]1050 } // for
1051
[aeb75b1]1052 // try each function operator ?() with each function alternative
1053 if ( ! funcOpFinder.alternatives.empty() ) {
[a8b27c6]1054 // add exploded function alternatives to front of argument list
1055 std::vector<ExplodedActual> funcE;
1056 funcE.reserve( funcFinder.alternatives.size() );
1057 for ( const Alternative& actual : funcFinder ) {
1058 funcE.emplace_back( actual, indexer );
1059 }
1060 argExpansions.insert( argExpansions.begin(), move(funcE) );
[aeb75b1]1061
1062 for ( AltList::iterator funcOp = funcOpFinder.alternatives.begin();
1063 funcOp != funcOpFinder.alternatives.end(); ++funcOp ) {
1064 try {
1065 // check if type is a pointer to function
[11094d9]1066 if ( PointerType* pointer = dynamic_cast<PointerType*>(
[3d2ae8d]1067 funcOp->expr->result->stripReferences() ) ) {
[11094d9]1068 if ( FunctionType* function =
[3d2ae8d]1069 dynamic_cast<FunctionType*>( pointer->base ) ) {
[aeb75b1]1070 Alternative newFunc( *funcOp );
[a181494]1071 referenceToRvalueConversion( newFunc.expr, newFunc.cost );
[a8b27c6]1072 makeFunctionAlternatives( newFunc, function, argExpansions,
[aeb75b1]1073 std::back_inserter( candidates ) );
1074 }
1075 }
[a16764a6]1076 } catch ( SemanticErrorException &e ) {
[aeb75b1]1077 errors.append( e );
1078 }
1079 }
1080 }
1081
[91b8a17]1082 // Implement SFINAE; resolution errors are only errors if there aren't any non-erroneous resolutions
1083 if ( candidates.empty() && ! errors.isEmpty() ) { throw errors; }
1084
[4b0f997]1085 // compute conversionsion costs
[bd4f2e9]1086 for ( Alternative& withFunc : candidates ) {
1087 Cost cvtCost = computeApplicationConversionCost( withFunc, indexer );
[a32b204]1088
1089 PRINT(
[bd4f2e9]1090 ApplicationExpr *appExpr = strict_dynamic_cast< ApplicationExpr* >( withFunc.expr );
[3d2ae8d]1091 PointerType *pointer = strict_dynamic_cast< PointerType* >( appExpr->function->result );
1092 FunctionType *function = strict_dynamic_cast< FunctionType* >( pointer->base );
1093 std::cerr << "Case +++++++++++++ " << appExpr->function << std::endl;
[6ed1d4b]1094 std::cerr << "formals are:" << std::endl;
[3d2ae8d]1095 printAll( function->parameters, std::cerr, 8 );
[6ed1d4b]1096 std::cerr << "actuals are:" << std::endl;
[3d2ae8d]1097 printAll( appExpr->args, std::cerr, 8 );
[6ed1d4b]1098 std::cerr << "bindings are:" << std::endl;
[bd4f2e9]1099 withFunc.env.print( std::cerr, 8 );
[04cccaf]1100 std::cerr << "cost is: " << withFunc.cost << std::endl;
[6ed1d4b]1101 std::cerr << "cost of conversion is:" << cvtCost << std::endl;
[7c64920]1102 )
1103 if ( cvtCost != Cost::infinity ) {
[bd4f2e9]1104 withFunc.cvtCost = cvtCost;
1105 alternatives.push_back( withFunc );
[7c64920]1106 } // if
[a32b204]1107 } // for
[4b0f997]1108
[bd4f2e9]1109 candidates = move(alternatives);
[a32b204]1110
[11094d9]1111 // use a new list so that alternatives are not examined by addAnonConversions twice.
1112 AltList winners;
1113 findMinCost( candidates.begin(), candidates.end(), std::back_inserter( winners ) );
[ea83e00a]1114
[452747a]1115 // function may return struct or union value, in which case we need to add alternatives
[73ac10e]1116 // for implicit conversions to each of the anonymous members, must happen after findMinCost
[bd4f2e9]1117 // since anon conversions are never the cheapest expression
[11094d9]1118 for ( const Alternative & alt : winners ) {
[ca946a4]1119 addAnonConversions( alt );
1120 }
[bd4f2e9]1121 spliceBegin( alternatives, winners );
[ca946a4]1122
[ea83e00a]1123 if ( alternatives.empty() && targetType && ! targetType->isVoid() ) {
1124 // xxx - this is a temporary hack. If resolution is unsuccessful with a target type, try again without a
1125 // target type, since it will sometimes succeed when it wouldn't easily with target type binding. For example,
1126 // forall( otype T ) lvalue T ?[?]( T *, ptrdiff_t );
1127 // const char * x = "hello world";
1128 // unsigned char ch = x[0];
1129 // Fails with simple return type binding. First, T is bound to unsigned char, then (x: const char *) is unified
1130 // with unsigned char *, which fails because pointer base types must be unified exactly. The new resolver should
1131 // fix this issue in a more robust way.
1132 targetType = nullptr;
[13deae88]1133 postvisit( untypedExpr );
[ea83e00a]1134 }
[a32b204]1135 }
1136
1137 bool isLvalue( Expression *expr ) {
[906e24d]1138 // xxx - recurse into tuples?
[2d80111]1139 return expr->result && ( expr->get_lvalue() || dynamic_cast< ReferenceType * >( expr->result ) );
[a32b204]1140 }
1141
[13deae88]1142 void AlternativeFinder::Finder::postvisit( AddressExpr *addressExpr ) {
[a32b204]1143 AlternativeFinder finder( indexer, env );
1144 finder.find( addressExpr->get_arg() );
[bd4f2e9]1145 for ( Alternative& alt : finder.alternatives ) {
1146 if ( isLvalue( alt.expr ) ) {
[452747a]1147 alternatives.push_back(
[6d6e829]1148 Alternative{ alt, new AddressExpr( alt.expr->clone() ), alt.cost } );
[a32b204]1149 } // if
1150 } // for
1151 }
1152
[13deae88]1153 void AlternativeFinder::Finder::postvisit( LabelAddressExpr * expr ) {
[6d6e829]1154 alternatives.push_back( Alternative{ expr->clone(), env } );
[5809461]1155 }
1156
[c0bf94e]1157 Expression * restructureCast( Expression * argExpr, Type * toType, bool isGenerated ) {
[e6cee92]1158 if ( argExpr->get_result()->size() > 1 && ! toType->isVoid() && ! dynamic_cast<ReferenceType *>( toType ) ) {
1159 // Argument expression is a tuple and the target type is not void and not a reference type.
1160 // Cast each member of the tuple to its corresponding target type, producing the tuple of those
1161 // cast expressions. If there are more components of the tuple than components in the target type,
1162 // then excess components do not come out in the result expression (but UniqueExprs ensure that
1163 // side effects will still be done).
[5ccb10d]1164 if ( Tuples::maybeImpureIgnoreUnique( argExpr ) ) {
[62423350]1165 // expressions which may contain side effects require a single unique instance of the expression.
1166 argExpr = new UniqueExpr( argExpr );
1167 }
1168 std::list< Expression * > componentExprs;
1169 for ( unsigned int i = 0; i < toType->size(); i++ ) {
1170 // cast each component
1171 TupleIndexExpr * idx = new TupleIndexExpr( argExpr->clone(), i );
[c0bf94e]1172 componentExprs.push_back( restructureCast( idx, toType->getComponent( i ), isGenerated ) );
[62423350]1173 }
1174 delete argExpr;
1175 assert( componentExprs.size() > 0 );
1176 // produce the tuple of casts
1177 return new TupleExpr( componentExprs );
1178 } else {
1179 // handle normally
[c0bf94e]1180 CastExpr * ret = new CastExpr( argExpr, toType->clone() );
1181 ret->isGenerated = isGenerated;
1182 return ret;
[62423350]1183 }
1184 }
1185
[13deae88]1186 void AlternativeFinder::Finder::postvisit( CastExpr *castExpr ) {
[906e24d]1187 Type *& toType = castExpr->get_result();
[7933351]1188 assert( toType );
[906e24d]1189 toType = resolveTypeof( toType, indexer );
[cc4218f]1190 assert(!dynamic_cast<TypeofType *>(toType));
[906e24d]1191 SymTab::validateType( toType, &indexer );
1192 adjustExprType( toType, env, indexer );
[a32b204]1193
1194 AlternativeFinder finder( indexer, env );
[7933351]1195 finder.targetType = toType;
[95642c9]1196 finder.findWithAdjustment( castExpr->arg );
[a32b204]1197
1198 AltList candidates;
[452747a]1199 for ( Alternative & alt : finder.alternatives ) {
[6d6e829]1200 AssertionSet needAssertions( alt.need.begin(), alt.need.end() );
1201 AssertionSet haveAssertions;
1202 OpenVarSet openVars{ alt.openVars };
[a32b204]1203
[a8706fc]1204 alt.env.extractOpenVars( openVars );
1205
[a32b204]1206 // It's possible that a cast can throw away some values in a multiply-valued expression. (An example is a
1207 // cast-to-void, which casts from one value to zero.) Figure out the prefix of the subexpression results
1208 // that are cast directly. The candidate is invalid if it has fewer results than there are types to cast
1209 // to.
[95642c9]1210 int discardedValues = alt.expr->result->size() - castExpr->result->size();
[a32b204]1211 if ( discardedValues < 0 ) continue;
[7933351]1212 // xxx - may need to go into tuple types and extract relevant types and use unifyList. Note that currently, this does not
1213 // allow casting a tuple to an atomic type (e.g. (int)([1, 2, 3]))
[adcdd2f]1214 // unification run for side-effects
[95642c9]1215 unify( castExpr->result, alt.expr->result, alt.env, needAssertions,
[bd4f2e9]1216 haveAssertions, openVars, indexer );
[7d01cf44]1217 Cost thisCost = castCost( alt.expr->result, castExpr->result, alt.expr->get_lvalue(),
1218 indexer, alt.env );
[7e4c4f4]1219 PRINT(
1220 std::cerr << "working on cast with result: " << castExpr->result << std::endl;
[452747a]1221 std::cerr << "and expr type: " << alt.expr->result << std::endl;
1222 std::cerr << "env: " << alt.env << std::endl;
[7e4c4f4]1223 )
[a32b204]1224 if ( thisCost != Cost::infinity ) {
[7e4c4f4]1225 PRINT(
1226 std::cerr << "has finite cost." << std::endl;
1227 )
[a32b204]1228 // count one safe conversion for each value that is thrown away
[89be1c68]1229 thisCost.incSafe( discardedValues );
[6f096d2]1230 Alternative newAlt{
1231 restructureCast( alt.expr->clone(), toType, castExpr->isGenerated ),
[bd78797]1232 alt.env, openVars, needAssertions, alt.cost, alt.cost + thisCost };
[0b00df0]1233 inferParameters( newAlt, back_inserter( candidates ) );
[a32b204]1234 } // if
1235 } // for
1236
1237 // findMinCost selects the alternatives with the lowest "cost" members, but has the side effect of copying the
1238 // cvtCost member to the cost member (since the old cost is now irrelevant). Thus, calling findMinCost twice
1239 // selects first based on argument cost, then on conversion cost.
1240 AltList minArgCost;
1241 findMinCost( candidates.begin(), candidates.end(), std::back_inserter( minArgCost ) );
1242 findMinCost( minArgCost.begin(), minArgCost.end(), std::back_inserter( alternatives ) );
1243 }
1244
[13deae88]1245 void AlternativeFinder::Finder::postvisit( VirtualCastExpr * castExpr ) {
[6d6e829]1246 assertf( castExpr->get_result(), "Implicit virtual cast targets not yet supported." );
[a5f0529]1247 AlternativeFinder finder( indexer, env );
1248 // don't prune here, since it's guaranteed all alternatives will have the same type
[4e66a18]1249 finder.findWithoutPrune( castExpr->get_arg() );
[a5f0529]1250 for ( Alternative & alt : finder.alternatives ) {
[6d6e829]1251 alternatives.push_back( Alternative{
1252 alt, new VirtualCastExpr{ alt.expr->clone(), castExpr->get_result()->clone() },
1253 alt.cost } );
[a5f0529]1254 }
1255 }
1256
[00ac42e]1257 namespace {
1258 /// Gets name from untyped member expression (member must be NameExpr)
1259 const std::string& get_member_name( UntypedMemberExpr *memberExpr ) {
[30ee9efc]1260 if ( dynamic_cast< ConstantExpr * >( memberExpr->get_member() ) ) {
1261 SemanticError( memberExpr, "Indexed access to struct fields unsupported: " );
1262 } // if
[00ac42e]1263 NameExpr * nameExpr = dynamic_cast< NameExpr * >( memberExpr->get_member() );
1264 assert( nameExpr );
1265 return nameExpr->get_name();
1266 }
1267 }
1268
[13deae88]1269 void AlternativeFinder::Finder::postvisit( UntypedMemberExpr *memberExpr ) {
[a32b204]1270 AlternativeFinder funcFinder( indexer, env );
1271 funcFinder.findWithAdjustment( memberExpr->get_aggregate() );
1272 for ( AltList::const_iterator agg = funcFinder.alternatives.begin(); agg != funcFinder.alternatives.end(); ++agg ) {
[a61ad31]1273 // it's okay for the aggregate expression to have reference type -- cast it to the base type to treat the aggregate as the referenced value
[a181494]1274 Cost cost = agg->cost;
1275 Expression * aggrExpr = agg->expr->clone();
1276 referenceToRvalueConversion( aggrExpr, cost );
1277 std::unique_ptr<Expression> guard( aggrExpr );
1278
[a61ad31]1279 // find member of the given type
1280 if ( StructInstType *structInst = dynamic_cast< StructInstType* >( aggrExpr->get_result() ) ) {
[6d6e829]1281 addAggMembers( structInst, aggrExpr, *agg, cost, get_member_name(memberExpr) );
[a61ad31]1282 } else if ( UnionInstType *unionInst = dynamic_cast< UnionInstType* >( aggrExpr->get_result() ) ) {
[6d6e829]1283 addAggMembers( unionInst, aggrExpr, *agg, cost, get_member_name(memberExpr) );
[a61ad31]1284 } else if ( TupleType * tupleType = dynamic_cast< TupleType * >( aggrExpr->get_result() ) ) {
[6d6e829]1285 addTupleMembers( tupleType, aggrExpr, *agg, cost, memberExpr->get_member() );
[a32b204]1286 } // if
1287 } // for
1288 }
1289
[13deae88]1290 void AlternativeFinder::Finder::postvisit( MemberExpr *memberExpr ) {
[6d6e829]1291 alternatives.push_back( Alternative{ memberExpr->clone(), env } );
[a32b204]1292 }
1293
[13deae88]1294 void AlternativeFinder::Finder::postvisit( NameExpr *nameExpr ) {
[a40d503]1295 std::list< SymTab::Indexer::IdData > declList;
[490ff5c3]1296 indexer.lookupId( nameExpr->name, declList );
1297 PRINT( std::cerr << "nameExpr is " << nameExpr->name << std::endl; )
[a40d503]1298 for ( auto & data : declList ) {
[a181494]1299 Cost cost = Cost::zero;
1300 Expression * newExpr = data.combine( cost );
[5de1e2c]1301
1302 // addAnonAlternatives uses vector::push_back, which invalidates references to existing elements, so
1303 // can't construct in place and use vector::back
[6d6e829]1304 Alternative newAlt{ newExpr, env, OpenVarSet{}, AssertionList{}, Cost::zero, cost };
[0f19d763]1305 PRINT(
1306 std::cerr << "decl is ";
[a40d503]1307 data.id->print( std::cerr );
[0f19d763]1308 std::cerr << std::endl;
1309 std::cerr << "newExpr is ";
[a40d503]1310 newExpr->print( std::cerr );
[0f19d763]1311 std::cerr << std::endl;
[7c64920]1312 )
[5de1e2c]1313 renameTypes( newAlt.expr );
1314 addAnonConversions( newAlt ); // add anonymous member interpretations whenever an aggregate value type is seen as a name expression.
1315 alternatives.push_back( std::move(newAlt) );
[0f19d763]1316 } // for
[a32b204]1317 }
1318
[13deae88]1319 void AlternativeFinder::Finder::postvisit( VariableExpr *variableExpr ) {
[85517ddb]1320 // not sufficient to clone here, because variable's type may have changed
1321 // since the VariableExpr was originally created.
[6d6e829]1322 alternatives.push_back( Alternative{ new VariableExpr{ variableExpr->var }, env } );
[a32b204]1323 }
1324
[13deae88]1325 void AlternativeFinder::Finder::postvisit( ConstantExpr *constantExpr ) {
[6d6e829]1326 alternatives.push_back( Alternative{ constantExpr->clone(), env } );
[a32b204]1327 }
1328
[13deae88]1329 void AlternativeFinder::Finder::postvisit( SizeofExpr *sizeofExpr ) {
[a32b204]1330 if ( sizeofExpr->get_isType() ) {
[322b97e]1331 Type * newType = sizeofExpr->get_type()->clone();
[6f096d2]1332 alternatives.push_back( Alternative{
[6d6e829]1333 new SizeofExpr{ resolveTypeof( newType, indexer ) }, env } );
[a32b204]1334 } else {
1335 // find all alternatives for the argument to sizeof
1336 AlternativeFinder finder( indexer, env );
1337 finder.find( sizeofExpr->get_expr() );
1338 // find the lowest cost alternative among the alternatives, otherwise ambiguous
1339 AltList winners;
1340 findMinCost( finder.alternatives.begin(), finder.alternatives.end(), back_inserter( winners ) );
1341 if ( winners.size() != 1 ) {
[a16764a6]1342 SemanticError( sizeofExpr->get_expr(), "Ambiguous expression in sizeof operand: " );
[a32b204]1343 } // if
1344 // return the lowest cost alternative for the argument
1345 Alternative &choice = winners.front();
[a181494]1346 referenceToRvalueConversion( choice.expr, choice.cost );
[6f096d2]1347 alternatives.push_back( Alternative{
[6d6e829]1348 choice, new SizeofExpr( choice.expr->clone() ), Cost::zero } );
[47534159]1349 } // if
1350 }
1351
[13deae88]1352 void AlternativeFinder::Finder::postvisit( AlignofExpr *alignofExpr ) {
[47534159]1353 if ( alignofExpr->get_isType() ) {
[322b97e]1354 Type * newType = alignofExpr->get_type()->clone();
[6f096d2]1355 alternatives.push_back( Alternative{
[6d6e829]1356 new AlignofExpr{ resolveTypeof( newType, indexer ) }, env } );
[47534159]1357 } else {
1358 // find all alternatives for the argument to sizeof
1359 AlternativeFinder finder( indexer, env );
1360 finder.find( alignofExpr->get_expr() );
1361 // find the lowest cost alternative among the alternatives, otherwise ambiguous
1362 AltList winners;
1363 findMinCost( finder.alternatives.begin(), finder.alternatives.end(), back_inserter( winners ) );
1364 if ( winners.size() != 1 ) {
[a16764a6]1365 SemanticError( alignofExpr->get_expr(), "Ambiguous expression in alignof operand: " );
[47534159]1366 } // if
1367 // return the lowest cost alternative for the argument
1368 Alternative &choice = winners.front();
[a181494]1369 referenceToRvalueConversion( choice.expr, choice.cost );
[6f096d2]1370 alternatives.push_back( Alternative{
[6d6e829]1371 choice, new AlignofExpr{ choice.expr->clone() }, Cost::zero } );
[a32b204]1372 } // if
1373 }
1374
[2a4b088]1375 template< typename StructOrUnionType >
[13deae88]1376 void AlternativeFinder::Finder::addOffsetof( StructOrUnionType *aggInst, const std::string &name ) {
[2a4b088]1377 std::list< Declaration* > members;
1378 aggInst->lookup( name, members );
1379 for ( std::list< Declaration* >::const_iterator i = members.begin(); i != members.end(); ++i ) {
1380 if ( DeclarationWithType *dwt = dynamic_cast< DeclarationWithType* >( *i ) ) {
[6f096d2]1381 alternatives.push_back( Alternative{
[6d6e829]1382 new OffsetofExpr{ aggInst->clone(), dwt }, env } );
[2a4b088]1383 renameTypes( alternatives.back().expr );
1384 } else {
1385 assert( false );
1386 }
1387 }
1388 }
[6ed1d4b]1389
[13deae88]1390 void AlternativeFinder::Finder::postvisit( UntypedOffsetofExpr *offsetofExpr ) {
[2a4b088]1391 AlternativeFinder funcFinder( indexer, env );
[85517ddb]1392 // xxx - resolveTypeof?
[2a4b088]1393 if ( StructInstType *structInst = dynamic_cast< StructInstType* >( offsetofExpr->get_type() ) ) {
[490ff5c3]1394 addOffsetof( structInst, offsetofExpr->member );
[2a4b088]1395 } else if ( UnionInstType *unionInst = dynamic_cast< UnionInstType* >( offsetofExpr->get_type() ) ) {
[490ff5c3]1396 addOffsetof( unionInst, offsetofExpr->member );
[2a4b088]1397 }
1398 }
[6ed1d4b]1399
[13deae88]1400 void AlternativeFinder::Finder::postvisit( OffsetofExpr *offsetofExpr ) {
[6d6e829]1401 alternatives.push_back( Alternative{ offsetofExpr->clone(), env } );
[afc1045]1402 }
1403
[13deae88]1404 void AlternativeFinder::Finder::postvisit( OffsetPackExpr *offsetPackExpr ) {
[6d6e829]1405 alternatives.push_back( Alternative{ offsetPackExpr->clone(), env } );
[25a054f]1406 }
1407
[6f096d2]1408 void AlternativeFinder::Finder::postvisit( LogicalExpr * logicalExpr ) {
[a32b204]1409 AlternativeFinder firstFinder( indexer, env );
1410 firstFinder.findWithAdjustment( logicalExpr->get_arg1() );
[fee651f]1411 if ( firstFinder.alternatives.empty() ) return;
1412 AlternativeFinder secondFinder( indexer, env );
1413 secondFinder.findWithAdjustment( logicalExpr->get_arg2() );
1414 if ( secondFinder.alternatives.empty() ) return;
[490ff5c3]1415 for ( const Alternative & first : firstFinder.alternatives ) {
1416 for ( const Alternative & second : secondFinder.alternatives ) {
[6d6e829]1417 TypeEnvironment compositeEnv{ first.env };
[490ff5c3]1418 compositeEnv.simpleCombine( second.env );
[6d6e829]1419 OpenVarSet openVars{ first.openVars };
1420 mergeOpenVars( openVars, second.openVars );
[2c187378]1421 AssertionSet need;
1422 cloneAll( first.need, need );
1423 cloneAll( second.need, need );
[6d6e829]1424
[6f096d2]1425 LogicalExpr *newExpr = new LogicalExpr{
[6d6e829]1426 first.expr->clone(), second.expr->clone(), logicalExpr->get_isAnd() };
[6f096d2]1427 alternatives.push_back( Alternative{
1428 newExpr, std::move(compositeEnv), std::move(openVars),
[2c187378]1429 AssertionList( need.begin(), need.end() ), first.cost + second.cost } );
[d9a0e76]1430 }
1431 }
1432 }
[51b73452]1433
[13deae88]1434 void AlternativeFinder::Finder::postvisit( ConditionalExpr *conditionalExpr ) {
[32b8144]1435 // find alternatives for condition
[a32b204]1436 AlternativeFinder firstFinder( indexer, env );
[624b722d]1437 firstFinder.findWithAdjustment( conditionalExpr->arg1 );
[ebcb7ba]1438 if ( firstFinder.alternatives.empty() ) return;
1439 // find alternatives for true expression
1440 AlternativeFinder secondFinder( indexer, env );
[624b722d]1441 secondFinder.findWithAdjustment( conditionalExpr->arg2 );
[ebcb7ba]1442 if ( secondFinder.alternatives.empty() ) return;
1443 // find alterantives for false expression
1444 AlternativeFinder thirdFinder( indexer, env );
[624b722d]1445 thirdFinder.findWithAdjustment( conditionalExpr->arg3 );
[ebcb7ba]1446 if ( thirdFinder.alternatives.empty() ) return;
[624b722d]1447 for ( const Alternative & first : firstFinder.alternatives ) {
1448 for ( const Alternative & second : secondFinder.alternatives ) {
1449 for ( const Alternative & third : thirdFinder.alternatives ) {
[6d6e829]1450 TypeEnvironment compositeEnv{ first.env };
[624b722d]1451 compositeEnv.simpleCombine( second.env );
1452 compositeEnv.simpleCombine( third.env );
[6d6e829]1453 OpenVarSet openVars{ first.openVars };
1454 mergeOpenVars( openVars, second.openVars );
1455 mergeOpenVars( openVars, third.openVars );
[2c187378]1456 AssertionSet need;
1457 cloneAll( first.need, need );
1458 cloneAll( second.need, need );
1459 cloneAll( third.need, need );
1460 AssertionSet have;
[6f096d2]1461
[32b8144]1462 // unify true and false types, then infer parameters to produce new alternatives
[668e971a]1463 Type* commonType = nullptr;
[6f096d2]1464 if ( unify( second.expr->result, third.expr->result, compositeEnv,
[2c187378]1465 need, have, openVars, indexer, commonType ) ) {
[6f096d2]1466 ConditionalExpr *newExpr = new ConditionalExpr{
[6d6e829]1467 first.expr->clone(), second.expr->clone(), third.expr->clone() };
[624b722d]1468 newExpr->result = commonType ? commonType : second.expr->result->clone();
[ddf8a29]1469 // convert both options to the conditional result type
[6d6e829]1470 Cost cost = first.cost + second.cost + third.cost;
[6f096d2]1471 cost += computeExpressionConversionCost(
[6d6e829]1472 newExpr->arg2, newExpr->result, indexer, compositeEnv );
[6f096d2]1473 cost += computeExpressionConversionCost(
[6d6e829]1474 newExpr->arg3, newExpr->result, indexer, compositeEnv );
1475 // output alternative
[6f096d2]1476 Alternative newAlt{
1477 newExpr, std::move(compositeEnv), std::move(openVars),
[2c187378]1478 AssertionList( need.begin(), need.end() ), cost };
[0b00df0]1479 inferParameters( newAlt, back_inserter( alternatives ) );
[a32b204]1480 } // if
1481 } // for
1482 } // for
1483 } // for
1484 }
1485
[13deae88]1486 void AlternativeFinder::Finder::postvisit( CommaExpr *commaExpr ) {
[a32b204]1487 TypeEnvironment newEnv( env );
1488 Expression *newFirstArg = resolveInVoidContext( commaExpr->get_arg1(), indexer, newEnv );
1489 AlternativeFinder secondFinder( indexer, newEnv );
1490 secondFinder.findWithAdjustment( commaExpr->get_arg2() );
[490ff5c3]1491 for ( const Alternative & alt : secondFinder.alternatives ) {
[6f096d2]1492 alternatives.push_back( Alternative{
[6d6e829]1493 alt, new CommaExpr{ newFirstArg->clone(), alt.expr->clone() }, alt.cost } );
[a32b204]1494 } // for
1495 delete newFirstArg;
1496 }
1497
[13deae88]1498 void AlternativeFinder::Finder::postvisit( RangeExpr * rangeExpr ) {
[32b8144]1499 // resolve low and high, accept alternatives whose low and high types unify
1500 AlternativeFinder firstFinder( indexer, env );
[490ff5c3]1501 firstFinder.findWithAdjustment( rangeExpr->low );
[fee651f]1502 if ( firstFinder.alternatives.empty() ) return;
1503 AlternativeFinder secondFinder( indexer, env );
[490ff5c3]1504 secondFinder.findWithAdjustment( rangeExpr->high );
[fee651f]1505 if ( secondFinder.alternatives.empty() ) return;
[490ff5c3]1506 for ( const Alternative & first : firstFinder.alternatives ) {
1507 for ( const Alternative & second : secondFinder.alternatives ) {
[6d6e829]1508 TypeEnvironment compositeEnv{ first.env };
[490ff5c3]1509 compositeEnv.simpleCombine( second.env );
[6d6e829]1510 OpenVarSet openVars{ first.openVars };
1511 mergeOpenVars( openVars, second.openVars );
[2c187378]1512 AssertionSet need;
1513 cloneAll( first.need, need );
1514 cloneAll( second.need, need );
1515 AssertionSet have;
[6d6e829]1516
[32b8144]1517 Type* commonType = nullptr;
[6f096d2]1518 if ( unify( first.expr->result, second.expr->result, compositeEnv, need, have,
[2c187378]1519 openVars, indexer, commonType ) ) {
[6f096d2]1520 RangeExpr * newExpr =
[6d6e829]1521 new RangeExpr{ first.expr->clone(), second.expr->clone() };
[490ff5c3]1522 newExpr->result = commonType ? commonType : first.expr->result->clone();
[6f096d2]1523 Alternative newAlt{
1524 newExpr, std::move(compositeEnv), std::move(openVars),
[2c187378]1525 AssertionList( need.begin(), need.end() ), first.cost + second.cost };
[0b00df0]1526 inferParameters( newAlt, back_inserter( alternatives ) );
[32b8144]1527 } // if
1528 } // for
1529 } // for
1530 }
1531
[13deae88]1532 void AlternativeFinder::Finder::postvisit( UntypedTupleExpr *tupleExpr ) {
[bd4f2e9]1533 std::vector< AlternativeFinder > subExprAlternatives;
[13deae88]1534 altFinder.findSubExprs( tupleExpr->get_exprs().begin(), tupleExpr->get_exprs().end(),
[bd4f2e9]1535 back_inserter( subExprAlternatives ) );
1536 std::vector< AltList > possibilities;
[452747a]1537 combos( subExprAlternatives.begin(), subExprAlternatives.end(),
[bd4f2e9]1538 back_inserter( possibilities ) );
1539 for ( const AltList& alts : possibilities ) {
[907eccb]1540 std::list< Expression * > exprs;
[bd4f2e9]1541 makeExprList( alts, exprs );
[a32b204]1542
1543 TypeEnvironment compositeEnv;
[6d6e829]1544 OpenVarSet openVars;
1545 AssertionSet need;
1546 for ( const Alternative& alt : alts ) {
1547 compositeEnv.simpleCombine( alt.env );
1548 mergeOpenVars( openVars, alt.openVars );
[2c187378]1549 cloneAll( alt.need, need );
[6d6e829]1550 }
[6f096d2]1551
1552 alternatives.push_back( Alternative{
1553 new TupleExpr{ exprs }, std::move(compositeEnv), std::move(openVars),
[6d6e829]1554 AssertionList( need.begin(), need.end() ), sumCost( alts ) } );
[a32b204]1555 } // for
[d9a0e76]1556 }
[dc2e7e0]1557
[13deae88]1558 void AlternativeFinder::Finder::postvisit( TupleExpr *tupleExpr ) {
[6d6e829]1559 alternatives.push_back( Alternative{ tupleExpr->clone(), env } );
[907eccb]1560 }
1561
[13deae88]1562 void AlternativeFinder::Finder::postvisit( ImplicitCopyCtorExpr * impCpCtorExpr ) {
[6d6e829]1563 alternatives.push_back( Alternative{ impCpCtorExpr->clone(), env } );
[dc2e7e0]1564 }
[b6fe7e6]1565
[13deae88]1566 void AlternativeFinder::Finder::postvisit( ConstructorExpr * ctorExpr ) {
[b6fe7e6]1567 AlternativeFinder finder( indexer, env );
1568 // don't prune here, since it's guaranteed all alternatives will have the same type
1569 // (giving the alternatives different types is half of the point of ConstructorExpr nodes)
[4e66a18]1570 finder.findWithoutPrune( ctorExpr->get_callExpr() );
[b6fe7e6]1571 for ( Alternative & alt : finder.alternatives ) {
[6f096d2]1572 alternatives.push_back( Alternative{
[6d6e829]1573 alt, new ConstructorExpr( alt.expr->clone() ), alt.cost } );
[b6fe7e6]1574 }
1575 }
[8f7cea1]1576
[13deae88]1577 void AlternativeFinder::Finder::postvisit( TupleIndexExpr *tupleExpr ) {
[6d6e829]1578 alternatives.push_back( Alternative{ tupleExpr->clone(), env } );
[8f7cea1]1579 }
[aa8f9df]1580
[13deae88]1581 void AlternativeFinder::Finder::postvisit( TupleAssignExpr *tupleAssignExpr ) {
[6d6e829]1582 alternatives.push_back( Alternative{ tupleAssignExpr->clone(), env } );
[aa8f9df]1583 }
[bf32bb8]1584
[13deae88]1585 void AlternativeFinder::Finder::postvisit( UniqueExpr *unqExpr ) {
[bf32bb8]1586 AlternativeFinder finder( indexer, env );
1587 finder.findWithAdjustment( unqExpr->get_expr() );
1588 for ( Alternative & alt : finder.alternatives ) {
[141b786]1589 // ensure that the id is passed on to the UniqueExpr alternative so that the expressions are "linked"
[77971f6]1590 UniqueExpr * newUnqExpr = new UniqueExpr( alt.expr->clone(), unqExpr->get_id() );
[6d6e829]1591 alternatives.push_back( Alternative{ alt, newUnqExpr, alt.cost } );
[bf32bb8]1592 }
1593 }
1594
[13deae88]1595 void AlternativeFinder::Finder::postvisit( StmtExpr *stmtExpr ) {
[722617d]1596 StmtExpr * newStmtExpr = stmtExpr->clone();
1597 ResolvExpr::resolveStmtExpr( newStmtExpr, indexer );
1598 // xxx - this env is almost certainly wrong, and needs to somehow contain the combined environments from all of the statements in the stmtExpr...
[6d6e829]1599 alternatives.push_back( Alternative{ newStmtExpr, env } );
[722617d]1600 }
1601
[13deae88]1602 void AlternativeFinder::Finder::postvisit( UntypedInitExpr *initExpr ) {
[62423350]1603 // handle each option like a cast
[e4d829b]1604 AltList candidates;
[13deae88]1605 PRINT(
1606 std::cerr << "untyped init expr: " << initExpr << std::endl;
1607 )
[e4d829b]1608 // O(N^2) checks of d-types with e-types
[62423350]1609 for ( InitAlternative & initAlt : initExpr->get_initAlts() ) {
[228099e]1610 Type * toType = resolveTypeof( initAlt.type->clone(), indexer );
[62423350]1611 SymTab::validateType( toType, &indexer );
1612 adjustExprType( toType, env, indexer );
1613 // Ideally the call to findWithAdjustment could be moved out of the loop, but unfortunately it currently has to occur inside or else
1614 // polymorphic return types are not properly bound to the initialization type, since return type variables are only open for the duration of resolving
1615 // the UntypedExpr. This is only actually an issue in initialization contexts that allow more than one possible initialization type, but it is still suboptimal.
1616 AlternativeFinder finder( indexer, env );
1617 finder.targetType = toType;
[3d2ae8d]1618 finder.findWithAdjustment( initExpr->expr );
[62423350]1619 for ( Alternative & alt : finder.get_alternatives() ) {
1620 TypeEnvironment newEnv( alt.env );
[2c187378]1621 AssertionSet need;
1622 cloneAll( alt.need, need );
1623 AssertionSet have;
[6f096d2]1624 OpenVarSet openVars( alt.openVars );
1625 // xxx - find things in env that don't have a "representative type" and claim
[6d6e829]1626 // those are open vars?
[13deae88]1627 PRINT(
1628 std::cerr << " @ " << toType << " " << initAlt.designation << std::endl;
[3d2ae8d]1629 )
[6f096d2]1630 // It's possible that a cast can throw away some values in a multiply-valued
1631 // expression. (An example is a cast-to-void, which casts from one value to
1632 // zero.) Figure out the prefix of the subexpression results that are cast
1633 // directly. The candidate is invalid if it has fewer results than there are
[6d6e829]1634 // types to cast to.
[3d2ae8d]1635 int discardedValues = alt.expr->result->size() - toType->size();
[e4d829b]1636 if ( discardedValues < 0 ) continue;
[6f096d2]1637 // xxx - may need to go into tuple types and extract relevant types and use
1638 // unifyList. Note that currently, this does not allow casting a tuple to an
[6d6e829]1639 // atomic type (e.g. (int)([1, 2, 3]))
[6f096d2]1640
[e4d829b]1641 // unification run for side-effects
[2c187378]1642 unify( toType, alt.expr->result, newEnv, need, have, openVars, indexer );
[6d6e829]1643 // xxx - do some inspecting on this line... why isn't result bound to initAlt.type?
[e4d829b]1644
[7d01cf44]1645 Cost thisCost = castCost( alt.expr->result, toType, alt.expr->get_lvalue(),
1646 indexer, newEnv );
[e4d829b]1647 if ( thisCost != Cost::infinity ) {
1648 // count one safe conversion for each value that is thrown away
[89be1c68]1649 thisCost.incSafe( discardedValues );
[6f096d2]1650 Alternative newAlt{
1651 new InitExpr{
1652 restructureCast( alt.expr->clone(), toType, true ), initAlt.designation->clone() },
1653 std::move(newEnv), std::move(openVars),
[2c187378]1654 AssertionList( need.begin(), need.end() ), alt.cost, thisCost };
[0b00df0]1655 inferParameters( newAlt, back_inserter( candidates ) );
[e4d829b]1656 }
1657 }
1658 }
1659
1660 // findMinCost selects the alternatives with the lowest "cost" members, but has the side effect of copying the
1661 // cvtCost member to the cost member (since the old cost is now irrelevant). Thus, calling findMinCost twice
1662 // selects first based on argument cost, then on conversion cost.
1663 AltList minArgCost;
1664 findMinCost( candidates.begin(), candidates.end(), std::back_inserter( minArgCost ) );
1665 findMinCost( minArgCost.begin(), minArgCost.end(), std::back_inserter( alternatives ) );
1666 }
[c71b256]1667
1668 void AlternativeFinder::Finder::postvisit( InitExpr * ) {
1669 assertf( false, "AlternativeFinder should never see a resolved InitExpr." );
1670 }
1671
1672 void AlternativeFinder::Finder::postvisit( DeletedExpr * ) {
1673 assertf( false, "AlternativeFinder should never see a DeletedExpr." );
1674 }
[d807ca28]1675
1676 void AlternativeFinder::Finder::postvisit( GenericExpr * ) {
1677 assertf( false, "_Generic is not yet supported." );
1678 }
[51b73452]1679} // namespace ResolvExpr
[a32b204]1680
1681// Local Variables: //
1682// tab-width: 4 //
1683// mode: c++ //
1684// compile-command: "make install" //
1685// End: //
Note: See TracBrowser for help on using the repository browser.