Changeset 41c19b4 for src/ResolvExpr/CandidateFinder.cpp

Timestamp:

Nov 30, 2020, 2:42:35 PM (3 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

4a8f150, 6d1790c

Parents:

d738aeb (diff), 4f0c520 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

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

File:

• src/ResolvExpr/CandidateFinder.cpp (modified) (4 diffs)

src/ResolvExpr/CandidateFinder.cpp

@@ -1645 +1645 @@
         /// Prunes a list of candidates down to those that have the minimum conversion cost for a given
         /// return type. Skips ambiguous candidates.
-        CandidateList pruneCandidates( CandidateList & candidates ) {
-                struct PruneStruct {
-                        CandidateRef candidate;
-                        bool ambiguous;
-
-                        PruneStruct() = default;
-                        PruneStruct( const CandidateRef & c ) : candidate( c ), ambiguous( false ) {}
-                };
-
-                // find lowest-cost candidate for each type
-                std::unordered_map< std::string, PruneStruct > selected;
-                for ( CandidateRef & candidate : candidates ) {
-                        std::string mangleName;
+
+} // anonymous namespace
+
+bool CandidateFinder::pruneCandidates( CandidateList & candidates, CandidateList & out, std::vector<std::string> & errors ) {
+        struct PruneStruct {
+                CandidateRef candidate;
+                bool ambiguous;
+
+                PruneStruct() = default;
+                PruneStruct( const CandidateRef & c ) : candidate( c ), ambiguous( false ) {}
+        };
+
+        // find lowest-cost candidate for each type
+        std::unordered_map< std::string, PruneStruct > selected;
+        // attempt to skip satisfyAssertions on more expensive alternatives if better options have been found
+        std::sort(candidates.begin(), candidates.end(), [](const CandidateRef & x, const CandidateRef & y){return x->cost < y->cost;});
+        for ( CandidateRef & candidate : candidates ) {
+                std::string mangleName;
+                {
+                        ast::ptr< ast::Type > newType = candidate->expr->result;
+                        assertf(candidate->expr->result, "Result of expression %p for candidate is null", candidate->expr.get());
+                        candidate->env.apply( newType );
+                        mangleName = Mangle::mangle( newType );
+                }
+
+                auto found = selected.find( mangleName );
+                if (found != selected.end() && found->second.candidate->cost < candidate->cost) {
+                        PRINT(
+                                std::cerr << "cost " << candidate->cost << " loses to "
+                                        << found->second.candidate->cost << std::endl;
+                        )
+                        continue;
+                }
+
+                // xxx - when do satisfyAssertions produce more than 1 result?
+                // this should only happen when initial result type contains
+                // unbound type parameters, then it should never be pruned by
+                // the previous step, since renameTyVars guarantees the mangled name
+                // is unique.
+                CandidateList satisfied;
+                bool needRecomputeKey = false;
+                if (candidate->need.empty()) {
+                        satisfied.emplace_back(candidate);
+                }
+                else {
+                        satisfyAssertions(candidate, localSyms, satisfied, errors);
+                        needRecomputeKey = true;
+                }
+
+                for (auto & newCand : satisfied) {
+                        // recomputes type key, if satisfyAssertions changed it
+                        if (needRecomputeKey)
                         {
-                                ast::ptr< ast::Type > newType = candidate->expr->result;
-                                assertf(candidate->expr->result, "Result of expression %p for candidate is null", candidate->expr.get());
-                                candidate->env.apply( newType );
+                                ast::ptr< ast::Type > newType = newCand->expr->result;
+                                assertf(newCand->expr->result, "Result of expression %p for candidate is null", newCand->expr.get());
+                                newCand->env.apply( newType );
                                 mangleName = Mangle::mangle( newType );
                         }
-
                         auto found = selected.find( mangleName );
                         if ( found != selected.end() ) {
-                                if ( candidate->cost < found->second.candidate->cost ) {
+                                if ( newCand->cost < found->second.candidate->cost ) {
                                         PRINT(
-                                                std::cerr << "cost " << candidate->cost << " beats "
+                                                std::cerr << "cost " << newCand->cost << " beats "
                                                         << found->second.candidate->cost << std::endl;
                                         )
 
-                                        found->second = PruneStruct{ candidate };
-                                } else if ( candidate->cost == found->second.candidate->cost ) {
+                                        found->second = PruneStruct{ newCand };
+                                } else if ( newCand->cost == found->second.candidate->cost ) {
                                         // if one of the candidates contains a deleted identifier, can pick the other,
                                         // since deleted expressions should not be ambiguous if there is another option
                                         // that is at least as good
-                                        if ( findDeletedExpr( candidate->expr ) ) {
+                                        if ( findDeletedExpr( newCand->expr ) ) {
                                                 // do nothing
                                                 PRINT( std::cerr << "candidate is deleted" << std::endl; )
                                         } else if ( findDeletedExpr( found->second.candidate->expr ) ) {
                                                 PRINT( std::cerr << "current is deleted" << std::endl; )
-                                                found->second = PruneStruct{ candidate };
+                                                found->second = PruneStruct{ newCand };
                                         } else {
                                                 PRINT( std::cerr << "marking ambiguous" << std::endl; )
                                                 found->second.ambiguous = true;
                                         }
-                                } else {
+                                } else { 
+                                        // xxx - can satisfyAssertions increase the cost?
                                         PRINT(
-                                                std::cerr << "cost " << candidate->cost << " loses to "
+                                                std::cerr << "cost " << newCand->cost << " loses to "
                                                         << found->second.candidate->cost << std::endl;
-                                        )
+                                        )       
                                 }
                         } else {
-                                selected.emplace_hint( found, mangleName, candidate );
-                        }
-                }
-
-                // report unambiguous min-cost candidates
-                CandidateList out;
-                for ( auto & target : selected ) {
-                        if ( target.second.ambiguous ) continue;
-
-                        CandidateRef cand = target.second.candidate;
-
-                        ast::ptr< ast::Type > newResult = cand->expr->result;
-                        cand->env.applyFree( newResult );
-                        cand->expr = ast::mutate_field(
-                                cand->expr.get(), &ast::Expr::result, move( newResult ) );
-
-                        out.emplace_back( cand );
-                }
-                return out;
+                                selected.emplace_hint( found, mangleName, newCand );
+                        }
+                }
         }
 
-} // anonymous namespace
+        // report unambiguous min-cost candidates
+        // CandidateList out;
+        for ( auto & target : selected ) {
+                if ( target.second.ambiguous ) continue;
+
+                CandidateRef cand = target.second.candidate;
+
+                ast::ptr< ast::Type > newResult = cand->expr->result;
+                cand->env.applyFree( newResult );
+                cand->expr = ast::mutate_field(
+                        cand->expr.get(), &ast::Expr::result, move( newResult ) );
+
+                out.emplace_back( cand );
+        }
+        // if everything is lost in satisfyAssertions, report the error
+        return !selected.empty();
+}
 
 void CandidateFinder::find( const ast::Expr * expr, ResolvMode mode ) {
@@ -1739 +1778 @@
         }
 
+        /*
         if ( mode.satisfyAssns || mode.prune ) {
                 // trim candidates to just those where the assertions are satisfiable
@@ -1761 +1801 @@
                 candidates = move( satisfied );
         }
+        */
 
         if ( mode.prune ) {
@@ -1769 +1810 @@
                 )
 
-                CandidateList pruned = pruneCandidates( candidates );
+                CandidateList pruned;
+                std::vector<std::string> errors;
+                bool found = pruneCandidates( candidates, pruned, errors );
 
                 if ( mode.failFast && pruned.empty() ) {
                         std::ostringstream stream;
-                        CandidateList winners = findMinCost( candidates );
-                        stream << "Cannot choose between " << winners.size() << " alternatives for "
-                                "expression\n";
-                        ast::print( stream, expr );
-                        stream << " Alternatives are:\n";
-                        print( stream, winners, 1 );
-                        SemanticError( expr->location, stream.str() );
+                        if (found) {            
+                                CandidateList winners = findMinCost( candidates );
+                                stream << "Cannot choose between " << winners.size() << " alternatives for "
+                                        "expression\n";
+                                ast::print( stream, expr );
+                                stream << " Alternatives are:\n";
+                                print( stream, winners, 1 );
+                                SemanticError( expr->location, stream.str() );
+                        }
+                        else {
+                                stream << "No alternatives with satisfiable assertions for " << expr << "\n";
+                                for ( const auto& err : errors ) {
+                                        stream << err;
+                                }
+                                SemanticError( expr->location, stream.str() );
+                        }
                 }