Changes in / [ae8b942:d3b7937]

Location:

src

Files:

• CodeGen/CodeGenerator.cc (modified) (34 diffs)
• CodeGen/CodeGenerator.h (modified) (1 diff)
• GenPoly/Box.cc (modified) (26 diffs)
• GenPoly/GenPoly.cc (modified) (4 diffs)
• GenPoly/GenPoly.h (modified) (4 diffs)
• GenPoly/PolyMutator.cc (modified) (1 diff)
• GenPoly/PolyMutator.h (modified) (1 diff)
• GenPoly/ScopedMap.h (deleted)
• GenPoly/ScrubTyVars.cc (modified) (3 diffs)
• GenPoly/ScrubTyVars.h (modified) (2 diffs)
• InitTweak/InitModel.h (modified) (1 diff)
• ResolvExpr/AlternativeFinder.cc (modified) (1 diff)
• ResolvExpr/AlternativeFinder.h (modified) (1 diff)
• SymTab/Indexer.cc (modified) (1 diff)
• SymTab/Indexer.h (modified) (1 diff)
• SymTab/Validate.cc (modified) (7 diffs)
• SynTree/Expression.cc (modified) (3 diffs)
• SynTree/Expression.h (modified) (1 diff)
• SynTree/Initializer.h (modified) (1 diff)
• SynTree/Mutator.cc (modified) (1 diff)
• SynTree/Mutator.h (modified) (1 diff)
• SynTree/SynTree.h (modified) (1 diff)
• SynTree/Visitor.cc (modified) (1 diff)
• SynTree/Visitor.h (modified) (1 diff)
• Tuples/FlattenTuple.cc (modified) (1 diff)
• Tuples/FlattenTuple.h (modified) (1 diff)
• main.cc (modified) (3 diffs)

src/CodeGen/CodeGenerator.cc

@@ -5 +5 @@
 // file "LICENCE" distributed with Cforall.
 //
-// CodeGenerator.cc -- 
+// CodeGenerator.cc --
 //
 // Author           : Richard C. Bilson
@@ -98 +98 @@
                 handleStorageClass( objectDecl );
                 output << genType( objectDecl->get_type(), mangleName( objectDecl ) );
-        
+
                 if ( objectDecl->get_init() ) {
                         output << " = ";
@@ -112 +112 @@
                 if ( aggDecl->get_name() != "" )
                         output << aggDecl->get_name();
-        
+
                 std::list< Declaration * > &memb = aggDecl->get_members();
 
@@ -118 +118 @@
                         output << " {" << endl;
 
-                        cur_indent += CodeGenerator::tabsize; 
+                        cur_indent += CodeGenerator::tabsize;
                         for ( std::list< Declaration* >::iterator i = memb.begin(); i != memb.end();  i++) {
-                                output << indent; 
+                                output << indent;
                                 (*i)->accept( *this );
                                 output << ";" << endl;
                         }
 
-                        cur_indent -= CodeGenerator::tabsize; 
+                        cur_indent -= CodeGenerator::tabsize;
 
                         output << indent << "}";
@@ -140 +140 @@
                 handleAggregate( aggregateDecl );
         }
-  
+
         void CodeGenerator::visit( EnumDecl *aggDecl ) {
                 output << "enum ";
@@ -146 +146 @@
                 if ( aggDecl->get_name() != "" )
                         output << aggDecl->get_name();
-        
+
                 std::list< Declaration* > &memb = aggDecl->get_members();
 
@@ -152 +152 @@
                         output << " {" << endl;
 
-                        cur_indent += CodeGenerator::tabsize; 
+                        cur_indent += CodeGenerator::tabsize;
                         for ( std::list< Declaration* >::iterator i = memb.begin(); i != memb.end();  i++) {
                                 ObjectDecl *obj = dynamic_cast< ObjectDecl* >( *i );
                                 assert( obj );
-                                output << indent << mangleName( obj ); 
+                                output << indent << mangleName( obj );
                                 if ( obj->get_init() ) {
                                         output << " = ";
@@ -164 +164 @@
                         } // for
 
-                        cur_indent -= CodeGenerator::tabsize; 
+                        cur_indent -= CodeGenerator::tabsize;
 
                         output << indent << "}";
                 } // if
         }
-  
+
         void CodeGenerator::visit( ContextDecl *aggregateDecl ) {}
-  
+
         void CodeGenerator::visit( TypedefDecl *typeDecl ) {
                 output << "typedef ";
                 output << genType( typeDecl->get_base(), typeDecl->get_name() );
         }
-  
+
         void CodeGenerator::visit( TypeDecl *typeDecl ) {
                 // really, we should mutate this into something that isn't a TypeDecl but that requires large-scale changes,
@@ -216 +216 @@
         }
 
-        void CodeGenerator::visit( Constant *constant ) { 
+        void CodeGenerator::visit( Constant *constant ) {
                 output << constant->get_value() ;
         }
@@ -233 +233 @@
                                                 assert( arg != applicationExpr->get_args().end() );
                                                 if ( AddressExpr *addrExpr = dynamic_cast< AddressExpr * >( *arg ) ) {
-                
+
                                                         *arg = addrExpr->get_arg();
                                                 } else {
@@ -242 +242 @@
                                                 break;
                                         }
-              
+
                                   default:
                                         // do nothing
                                         ;
                                 }
-            
+
                                 switch ( opInfo.type ) {
                                   case OT_INDEX:
@@ -256 +256 @@
                                         output << "]";
                                         break;
-              
+
                                   case OT_CALL:
                                         // there are no intrinsic definitions of the function call operator
                                         assert( false );
                                         break;
-              
+
                                   case OT_PREFIX:
                                   case OT_PREFIXASSIGN:
@@ -270 +270 @@
                                         output << ")";
                                         break;
-              
+
                                   case OT_POSTFIX:
                                   case OT_POSTFIXASSIGN:
@@ -287 +287 @@
                                         output << ")";
                                         break;
-              
+
                                   case OT_CONSTANT:
                                   case OT_LABELADDRESS:
@@ -306 +306 @@
                 } // if
         }
-  
+
         void CodeGenerator::visit( UntypedExpr *untypedExpr ) {
                 if ( NameExpr *nameExpr = dynamic_cast< NameExpr* >( untypedExpr->get_function() ) ) {
@@ -320 +320 @@
                                         output << "]";
                                         break;
-              
+
                                   case OT_CALL:
                                         assert( false );
                                         break;
-              
+
                                   case OT_PREFIX:
                                   case OT_PREFIXASSIGN:
@@ -334 +334 @@
                                         output << ")";
                                         break;
-              
+
                                   case OT_POSTFIX:
                                   case OT_POSTFIXASSIGN:
@@ -341 +341 @@
                                         output << opInfo.symbol;
                                         break;
-  
+
                                   case OT_INFIX:
                                   case OT_INFIXASSIGN:
@@ -351 +351 @@
                                         output << ")";
                                         break;
-                                        
+
                                   case OT_CONSTANT:
                                         // there are no intrinsic definitions of 0 or 1 as functions
@@ -369 +369 @@
                 } // if
         }
-  
+
         void CodeGenerator::visit( NameExpr *nameExpr ) {
                 OperatorInfo opInfo;
@@ -379 +379 @@
                 } // if
         }
-  
+
         void CodeGenerator::visit( AddressExpr *addressExpr ) {
                 output << "(&";
@@ -408 +408 @@
                 output << ")";
         }
-  
+
         void CodeGenerator::visit( UntypedMemberExpr *memberExpr ) {
                 assert( false );
         }
-  
+
         void CodeGenerator::visit( MemberExpr *memberExpr ) {
                 memberExpr->get_aggregate()->accept( *this );
                 output << "." << mangleName( memberExpr->get_member() );
         }
-  
+
         void CodeGenerator::visit( VariableExpr *variableExpr ) {
                 OperatorInfo opInfo;
@@ -426 +426 @@
                 } // if
         }
-  
+
         void CodeGenerator::visit( ConstantExpr *constantExpr ) {
                 assert( constantExpr->get_constant() );
                 constantExpr->get_constant()->accept( *this );
         }
-  
+
         void CodeGenerator::visit( SizeofExpr *sizeofExpr ) {
                 output << "sizeof(";
@@ -442 +442 @@
         }
 
-        void CodeGenerator::visit( AlignofExpr *alignofExpr ) {
+        void CodeGenerator::visit( AlignofExpr *sizeofExpr ) {
                 // use GCC extension to avoid bumping std to C11
                 output << "__alignof__(";
-                if ( alignofExpr->get_isType() ) {
-                        output << genType( alignofExpr->get_type(), "" );
-                } else {
-                        alignofExpr->get_expr()->accept( *this );
+                if ( sizeofExpr->get_isType() ) {
+                        output << genType( sizeofExpr->get_type(), "" );
+                } else {
+                        sizeofExpr->get_expr()->accept( *this );
                 } // if
                 output << ")";
         }
 
-        void CodeGenerator::visit( OffsetofExpr *offsetofExpr ) {
-                // use GCC builtin
-                output << "__builtin_offsetof(";
-                output << genType( offsetofExpr->get_type(), "" );
-                output << ", " << mangleName( offsetofExpr->get_member() );
-                output << ")";
-        }
-  
         void CodeGenerator::visit( LogicalExpr *logicalExpr ) {
                 output << "(";
@@ -472 +464 @@
                 output << ")";
         }
-  
+
         void CodeGenerator::visit( ConditionalExpr *conditionalExpr ) {
                 output << "(";
@@ -482 +474 @@
                 output << ")";
         }
-  
+
         void CodeGenerator::visit( CommaExpr *commaExpr ) {
                 output << "(";
@@ -490 +482 @@
                 output << ")";
         }
-  
+
         void CodeGenerator::visit( TupleExpr *tupleExpr ) {}
-  
+
         void CodeGenerator::visit( TypeExpr *typeExpr ) {}
 
@@ -523 +515 @@
                         }
                 }
-                cur_indent -= CodeGenerator::tabsize; 
+                cur_indent -= CodeGenerator::tabsize;
 
                 output << indent << "}";
@@ -529 +521 @@
 
         void CodeGenerator::visit( ExprStmt *exprStmt ) {
-                // I don't see why this check is necessary. 
-                // If this starts to cause problems then put it back in, 
+                // I don't see why this check is necessary.
+                // If this starts to cause problems then put it back in,
                 // with an explanation
                 assert( exprStmt );
@@ -580 +572 @@
                 switchStmt->get_condition()->accept( *this );
                 output << " ) ";
-                
+
                 output << "{" << std::endl;
                 cur_indent += CodeGenerator::tabsize;
@@ -600 +592 @@
                 } // if
                 output << ":\n";
-                
+
                 std::list<Statement *> sts = caseStmt->get_statements();
 
@@ -617 +609 @@
                         if ( ! branchStmt->get_target().empty() )
                                 output << "goto " << branchStmt->get_target();
-                        else { 
+                        else {
                                 if ( branchStmt->get_computedTarget() != 0 ) {
                                         output << "goto *";
@@ -668 +660 @@
 
         void CodeGenerator::visit( ForStmt *forStmt ) {
-                // initialization is always hoisted, so don't 
-                // bother doing anything with that 
+                // initialization is always hoisted, so don't
+                // bother doing anything with that
                 output << "for (;";
 
@@ -693 +685 @@
         void CodeGenerator::visit( DeclStmt *declStmt ) {
                 declStmt->get_decl()->accept( *this );
-        
+
                 if ( doSemicolon( declStmt->get_decl() ) ) {
                         output << ";";

src/CodeGen/CodeGenerator.h

@@ -61 +61 @@
                 virtual void visit( SizeofExpr *sizeofExpr );
                 virtual void visit( AlignofExpr *alignofExpr );
-                virtual void visit( OffsetofExpr *offsetofExpr );
                 virtual void visit( LogicalExpr *logicalExpr );
                 virtual void visit( ConditionalExpr *conditionalExpr );

src/GenPoly/Box.cc

@@ -22 +22 @@
 
 #include "Box.h"
-#include "InstantiateGeneric.h"
 #include "PolyMutator.h"
 #include "FindFunction.h"
-#include "ScopedMap.h"
 #include "ScrubTyVars.h"
 
@@ -71 +69 @@
                         virtual void doEndScope();
                   private:
-                        /// Makes a new temporary array holding the offsets of the fields of `type`, and returns a new variable expression referencing it
-                        Expression *makeOffsetArray( StructInstType *type );
-                        /// passes extra type parameters into a polymorphic function application
                         void passTypeVars( ApplicationExpr *appExpr, std::list< Expression *>::iterator &arg, const TyVarMap &exprTyVars );
-                        /// wraps a function application with a new temporary for the out-parameter return value
                         Expression *addRetParam( ApplicationExpr *appExpr, FunctionType *function, Type *retType, std::list< Expression *>::iterator &arg );
-                        /// Replaces all the type parameters of a generic type with their concrete equivalents under the current environment
-                        void replaceParametersWithConcrete( ApplicationExpr *appExpr, std::list< Expression* >& params );
-                        /// Replaces a polymorphic type with its concrete equivalant under the current environment (returns itself if concrete).
-                        /// If `doClone` is set to false, will not clone interior types
-                        Type *replaceWithConcrete( ApplicationExpr *appExpr, Type *type, bool doClone = true );
-                        /// wraps a function application returning a polymorphic type with a new temporary for the out-parameter return value
-                        Expression *addPolyRetParam( ApplicationExpr *appExpr, FunctionType *function, ReferenceToType *polyType, std::list< Expression *>::iterator &arg );
+                        Expression *addPolyRetParam( ApplicationExpr *appExpr, FunctionType *function, std::string typeName, std::list< Expression *>::iterator &arg );
                         Expression *applyAdapter( ApplicationExpr *appExpr, FunctionType *function, std::list< Expression *>::iterator &arg, const TyVarMap &exprTyVars );
                         void boxParam( Type *formal, Expression *&arg, const TyVarMap &exprTyVars );
                         void boxParams( ApplicationExpr *appExpr, FunctionType *function, std::list< Expression *>::iterator &arg, const TyVarMap &exprTyVars );
                         void addInferredParams( ApplicationExpr *appExpr, FunctionType *functionType, std::list< Expression *>::iterator &arg, const TyVarMap &tyVars );
-                        /// Stores assignment operators from assertion list in local map of assignment operations
                         void findAssignOps( const std::list< TypeDecl *> &forall );
                         void passAdapters( ApplicationExpr *appExpr, FunctionType *functionType, const TyVarMap &exprTyVars );
                         FunctionDecl *makeAdapter( FunctionType *adaptee, FunctionType *realType, const std::string &mangleName, const TyVarMap &tyVars );
-                        /// Replaces intrinsic operator functions with their arithmetic desugaring
                         Expression *handleIntrinsics( ApplicationExpr *appExpr );
-                        /// Inserts a new temporary variable into the current scope with an auto-generated name
                         ObjectDecl *makeTemporary( Type *type );
 
                         typedef std::map< std::string, DeclarationWithType *> AdapterMap;
                         std::map< std::string, DeclarationWithType *> assignOps;
-                        ScopedMap< std::string, DeclarationWithType *> scopedAssignOps;
                         std::stack< AdapterMap > adapters;
                         DeclarationWithType *retval;
@@ -123 +107 @@
                 };
 
-                /// Replaces member expressions for polymorphic types with calculated add-field-offset-and-dereference
-                class MemberExprFixer : public PolyMutator {
+                /// Replaces initialization of polymorphic values with alloca, declaration of dtype/ftype with appropriate void expression, and sizeof expressions of polymorphic types with the proper variable
+                class Pass3 : public PolyMutator {
                   public:
                         template< typename DeclClass >
@@ -135 +119 @@
                         virtual Type *mutate( PointerType *pointerType );
                         virtual Type *mutate( FunctionType *funcType );
-                        virtual Expression *mutate( MemberExpr *memberExpr );
-                };
-                
-                /// Replaces initialization of polymorphic values with alloca, declaration of dtype/ftype with appropriate void expression, and sizeof expressions of polymorphic types with the proper variable
-                class Pass3 : public PolyMutator {
-                  public:
-                        template< typename DeclClass >
-                        DeclClass *handleDecl( DeclClass *decl, Type *type );
-                        virtual DeclarationWithType *mutate( FunctionDecl *functionDecl );
-                        virtual ObjectDecl *mutate( ObjectDecl *objectDecl );
-                        virtual TypedefDecl *mutate( TypedefDecl *objectDecl );
-                        virtual TypeDecl *mutate( TypeDecl *objectDecl );
-                        virtual Type *mutate( PointerType *pointerType );
-                        virtual Type *mutate( FunctionType *funcType );
                   private:
                 };
@@ -163 +133 @@
         }
 
-        /// version of mutateAll with special handling for translation unit so you can check the end of the prelude when debugging
-        template< typename MutatorType >
-        inline void mutateTranslationUnit( std::list< Declaration* > &translationUnit, MutatorType &mutator ) {
-                bool seenIntrinsic = false;
-                SemanticError errors;
-                for ( typename std::list< Declaration* >::iterator i = translationUnit.begin(); i != translationUnit.end(); ++i ) {
-                        try {
-                                if ( *i ) {
-                                        if ( (*i)->get_linkage() == LinkageSpec::Intrinsic ) {
-                                                seenIntrinsic = true;
-                                        } else if ( seenIntrinsic ) {
-                                                seenIntrinsic = false; // break on this line when debugging for end of prelude
-                                        }
-                                        
-                                        *i = dynamic_cast< Declaration* >( (*i)->acceptMutator( mutator ) );
-                                        assert( *i );
-                                } // if
-                        } catch( SemanticError &e ) {
-                                errors.append( e );
-                        } // try
-                } // for
-                if ( ! errors.isEmpty() ) {
-                        throw errors;
-                } // if
-        }
-
         void box( std::list< Declaration *>& translationUnit ) {
                 Pass1 pass1;
                 Pass2 pass2;
-                MemberExprFixer memberFixer;
                 Pass3 pass3;
-                mutateTranslationUnit/*All*/( translationUnit, pass1 );
-                mutateTranslationUnit/*All*/( translationUnit, pass2 );
-                instantiateGeneric( translationUnit );
-                mutateTranslationUnit/*All*/( translationUnit, memberFixer );
-                mutateTranslationUnit/*All*/( translationUnit, pass3 );
+                mutateAll( translationUnit, pass1 );
+                mutateAll( translationUnit, pass2 );
+                mutateAll( translationUnit, pass3 );
         }
 
@@ -244 +185 @@
                 }
 
-                /// returns T if the given declaration is: (*?=?)(T *, T) for some T (return not checked, but maybe should be), NULL otherwise
-                ReferenceToType *isAssignment( DeclarationWithType *decl ) {
+                // returns true if the given declaration is: (*?=?)(T *, T) for some T (return not checked, but maybe should be)
+                bool checkAssignment( DeclarationWithType *decl, std::string &name ) {
                         if ( decl->get_name() == "?=?" ) {
-                                if ( FunctionType *funType = getFunctionType( decl->get_type() ) ) {
-                                        if ( funType->get_parameters().size() == 2 ) {
-                                                if ( PointerType *pointer = dynamic_cast< PointerType *>( funType->get_parameters().front()->get_type() ) ) {
-                                                        if ( ReferenceToType *refType = dynamic_cast< ReferenceToType *>( pointer->get_base() ) ) {
-                                                                if ( ReferenceToType *refType2 = dynamic_cast< ReferenceToType *>( funType->get_parameters().back()->get_type() ) ) {
-                                                                        if ( refType->get_name() == refType2->get_name() ) {
-                                                                                return refType;
+                                if ( PointerType *ptrType = dynamic_cast< PointerType *>( decl->get_type() ) ) {
+                                        if ( FunctionType *funType = dynamic_cast< FunctionType *>( ptrType->get_base() ) ) {
+                                                if ( funType->get_parameters().size() == 2 ) {
+                                                        if ( PointerType *pointer = dynamic_cast< PointerType *>( funType->get_parameters().front()->get_type() ) ) {
+                                                                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType *>( pointer->get_base() ) ) {
+                                                                        if ( TypeInstType *typeInst2 = dynamic_cast< TypeInstType *>( funType->get_parameters().back()->get_type() ) ) {
+                                                                                if ( typeInst->get_name() == typeInst2->get_name() ) {
+                                                                                        name = typeInst->get_name();
+                                                                                        return true;
+                                                                                } // if
                                                                         } // if
                                                                 } // if
@@ -261 +205 @@
                                 } // if
                         } // if
-                        return 0;
+                        return false;
                 }
 
@@ -270 +214 @@
                                 for ( std::list< DeclarationWithType *>::const_iterator assert = (*i)->get_assertions().begin(); assert != (*i)->get_assertions().end(); ++assert ) {
                                         std::string typeName;
-                                        if ( TypeInstType *typeInst = dynamic_cast< TypeInstType* >( isAssignment( *assert ) ) ) {
-                                                assignOps[ typeInst->get_name() ] = *assert;
+                                        if ( checkAssignment( *assert, typeName ) ) {
+                                                assignOps[ typeName ] = *assert;
                                         } // if
                                 } // for
@@ -278 +222 @@
 
                 DeclarationWithType *Pass1::mutate( FunctionDecl *functionDecl ) {
-                        // if this is a polymorphic assignment function, put it in the map for this scope
-                        if ( ReferenceToType *refType = isAssignment( functionDecl ) ) {
-                                if ( ! dynamic_cast< TypeInstType* >( refType ) ) {
-                                        scopedAssignOps.insert( refType->get_name(), functionDecl );
-                                }
-                        }
-                        
                         if ( functionDecl->get_statements() ) {         // empty routine body ?
                                 doBeginScope();
@@ -294 +231 @@
                                 // process polymorphic return value
                                 retval = 0;
-                                if ( isPolyRet( functionDecl->get_functionType() ) && functionDecl->get_linkage() == LinkageSpec::Cforall ) {
+                                std::string typeName;
+                                if ( isPolyRet( functionDecl->get_functionType(), typeName ) && functionDecl->get_linkage() == LinkageSpec::Cforall ) {
                                         retval = functionDecl->get_functionType()->get_returnVals().front();
 
@@ -318 +256 @@
                                         findFunction( (*arg)->get_type(), functions, scopeTyVars, needsAdapter );
                                 } // for
-                                
                                 AdapterMap & adapters = Pass1::adapters.top();
                                 for ( std::list< FunctionType *>::iterator funType = functions.begin(); funType != functions.end(); ++funType ) {
@@ -369 +306 @@
                 }
 
-                Expression *Pass1::makeOffsetArray( StructInstType *ty ) {
-                        std::list< Declaration* > &baseMembers = ty->get_baseStruct()->get_members();
-                        
-                        // make a new temporary array
-                        Type *offsetType = new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt );
-                        std::stringstream lenGen;
-                        lenGen << baseMembers.size();
-                        ConstantExpr *lenExpr = new ConstantExpr( Constant( offsetType->clone(), lenGen.str() ) );
-                        ObjectDecl *arrayTemp = makeTemporary( new ArrayType( Type::Qualifiers(), offsetType, lenExpr, false, false ) );
-
-                        // build initializer list for temporary
-                        std::list< Initializer* > inits;
-                        for ( std::list< Declaration* >::const_iterator member = baseMembers.begin(); member != baseMembers.end(); ++member ) {
-                                DeclarationWithType *memberDecl;
-                                if ( DeclarationWithType *origMember = dynamic_cast< DeclarationWithType* >( *member ) ) {
-                                        memberDecl = origMember->clone();
-                                } else {
-                                        memberDecl = new ObjectDecl( (*member)->get_name(), DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, offsetType->clone(), 0 );
-                                }
-                                inits.push_back( new SingleInit( new OffsetofExpr( ty->clone(), memberDecl ) ) );
-                        }
-                        arrayTemp->set_init( new ListInit( inits ) );
-
-                        // return variable pointing to temporary
-                        return new VariableExpr( arrayTemp );
-                }
-                
                 void Pass1::passTypeVars( ApplicationExpr *appExpr, std::list< Expression *>::iterator &arg, const TyVarMap &exprTyVars ) {
                         // pass size/align for type variables
@@ -415 +325 @@
 
                         // add size/align for generic types to parameter list
+                        //assert( ! appExpr->get_function()->get_results().empty() );
                         if ( appExpr->get_function()->get_results().empty() ) return;
                         FunctionType *funcType = getFunctionType( appExpr->get_function()->get_results().front() );
@@ -423 +334 @@
                         std::set< std::string > seenTypes; //< names for generic types we've seen
                         for ( ; fnParm != funcType->get_parameters().end() && fnArg != appExpr->get_args().end(); ++fnParm, ++fnArg ) {
-                                Type *polyBase = hasPolyBase( (*fnParm)->get_type(), exprTyVars );
-                                if ( polyBase && ! dynamic_cast< TypeInstType* >( polyBase ) ) {
-                                        std::string sizeName = sizeofName( polyBase );
+                                Type *parmType = (*fnParm)->get_type();
+                                if ( ! dynamic_cast< TypeInstType* >( parmType ) && isPolyType( parmType, exprTyVars ) ) {
+                                        std::string sizeName = sizeofName( parmType );
                                         if ( seenTypes.count( sizeName ) ) continue;
 
-                                        VariableExpr *fnArgBase = getBaseVar( *fnArg );
-                                        assert( fnArgBase && ! fnArgBase->get_results().empty() );
-                                        Type *argBaseType = fnArgBase->get_results().front();
-                                        arg = appExpr->get_args().insert( arg, new SizeofExpr( argBaseType->clone() ) );
+                                        assert( ! (*fnArg)->get_results().empty() );
+                                        Type *argType = (*fnArg)->get_results().front();
+                                        arg = appExpr->get_args().insert( arg, new SizeofExpr( argType->clone() ) );
                                         arg++;
-                                        arg = appExpr->get_args().insert( arg, new AlignofExpr( argBaseType->clone() ) );
+                                        arg = appExpr->get_args().insert( arg, new AlignofExpr( argType->clone() ) );
                                         arg++;
-                                        if ( dynamic_cast< StructInstType* >( polyBase ) ) {
-                                                if ( StructInstType *argBaseStructType = dynamic_cast< StructInstType* >( argBaseType ) ) {
-                                                        arg = appExpr->get_args().insert( arg, makeOffsetArray( argBaseStructType ) );
-                                                        arg++;
-                                                } else {
-                                                        throw SemanticError( "Cannot pass non-struct type for generic struct" );
-                                                }
-                                        }
 
                                         seenTypes.insert( sizeName );
@@ -484 +386 @@
                 }
 
-                void Pass1::replaceParametersWithConcrete( ApplicationExpr *appExpr, std::list< Expression* >& params ) {
-                        for ( std::list< Expression* >::iterator param = params.begin(); param != params.end(); ++param ) {
-                                TypeExpr *paramType = dynamic_cast< TypeExpr* >( *param );
-                                assert(paramType && "Aggregate parameters should be type expressions");
-                                paramType->set_type( replaceWithConcrete( appExpr, paramType->get_type(), false ) );
-                        }
-                }
-                
-                Type *Pass1::replaceWithConcrete( ApplicationExpr *appExpr, Type *type, bool doClone ) {
-                        if ( TypeInstType *typeInst = dynamic_cast< TypeInstType * >( type ) ) {
-                                Type *concrete = env->lookup( typeInst->get_name() );
-                                if ( concrete == 0 ) {
-                                        throw SemanticError( "Unbound type variable " + typeInst->get_name() + " in ", appExpr );
-                                } // if
-                                return concrete;
-                        } else if ( StructInstType *structType = dynamic_cast< StructInstType* >( type ) ) {
-                                if ( doClone ) {
-                                        structType = structType->clone();
-                                }
-                                replaceParametersWithConcrete( appExpr, structType->get_parameters() );
-                                return structType;
-                        } else if ( UnionInstType *unionType = dynamic_cast< UnionInstType* >( type ) ) {
-                                if ( doClone ) {
-                                        unionType = unionType->clone();
-                                }
-                                replaceParametersWithConcrete( appExpr, unionType->get_parameters() );
-                                return unionType;
-                        }
-                        return type;
-                }
-
-                Expression *Pass1::addPolyRetParam( ApplicationExpr *appExpr, FunctionType *function, ReferenceToType *polyType, std::list< Expression *>::iterator &arg ) {
+                Expression *Pass1::addPolyRetParam( ApplicationExpr *appExpr, FunctionType *function, std::string typeName, std::list< Expression *>::iterator &arg ) {
+                        ResolvExpr::EqvClass eqvClass;
                         assert( env );
-                        Type *concrete = replaceWithConcrete( appExpr, polyType );
+                        Type *concrete = env->lookup( typeName );
+                        if ( concrete == 0 ) {
+                                throw SemanticError( "Unbound type variable " + typeName + " in ", appExpr );
+                        } // if
                         return addRetParam( appExpr, function, concrete, arg );
                 }
@@ -617 +492 @@
                         assert( arg );
                         if ( isPolyType( realParam->get_type(), tyVars ) ) {
+//     if ( dynamic_cast< PointerType *>( arg->get_type() ) ) {
+//       return new CastExpr( new VariableExpr( param ), arg->get_type()->clone() );
+//     } else {
                                 if ( dynamic_cast<TypeInstType *>(arg->get_type()) == NULL ) {
                                         UntypedExpr *deref = new UntypedExpr( new NameExpr( "*?" ) );
@@ -623 +501 @@
                                         return deref;
                                 } // if
+//     }
                         } // if
                         return new VariableExpr( param );
@@ -912 +791 @@
                         std::list< Expression *>::iterator paramBegin = appExpr->get_args().begin();
 
-                        if ( ReferenceToType *polyType = isPolyRet( function ) ) {
-                                ret = addPolyRetParam( appExpr, function, polyType, arg );
+                        std::string typeName;
+                        if ( isPolyRet( function, typeName ) ) {
+                                ret = addPolyRetParam( appExpr, function, typeName, arg );
                         } else if ( needsAdapter( function, scopeTyVars ) ) {
                                 // std::cerr << "needs adapter: ";
@@ -1000 +880 @@
                                         delete castExpr;
                                 } //while
-
-                                // find assignment operator for (polymorphic) return type
-                                DeclarationWithType *assignDecl = 0;
-                                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType *>( retval->get_type() ) ) {
-                                        std::map< std::string, DeclarationWithType *>::const_iterator assignIter = assignOps.find( typeInst->get_name() );
-                                        if ( assignIter == assignOps.end() ) {
-                                                throw SemanticError( "Attempt to return dtype or ftype object in ", returnStmt->get_expr() );
-                                        } // if
-                                        assignDecl = assignIter->second;
-                                } else if ( ReferenceToType *refType = dynamic_cast< ReferenceToType *>( retval->get_type() ) ) {
-                                        ScopedMap< std::string, DeclarationWithType *>::const_iterator assignIter = scopedAssignOps.find( refType->get_name() );
-                                        if ( assignIter == scopedAssignOps.end() ) {
-                                                throw SemanticError( "Attempt to return dtype or ftype generic object in ", returnStmt->get_expr() );
-                                        }
-                                        DeclarationWithType *functionDecl = assignIter->second;
-                                        // line below cloned from FixFunction.cc
-                                        assignDecl = new ObjectDecl( functionDecl->get_name(), functionDecl->get_storageClass(), functionDecl->get_linkage(), 0,
-                                                                     new PointerType( Type::Qualifiers(), functionDecl->get_type()->clone() ), 0 );
-                                        assignDecl->set_mangleName( functionDecl->get_mangleName() );
-                                }
-                                assert( assignDecl );
-
-                                // replace return statement with appropriate assignment to out parameter
-                                ApplicationExpr *assignExpr = new ApplicationExpr( new VariableExpr( assignDecl ) );
+                                TypeInstType *typeInst = dynamic_cast< TypeInstType *>( retval->get_type() );
+                                assert( typeInst );
+                                std::map< std::string, DeclarationWithType *>::const_iterator assignIter = assignOps.find( typeInst->get_name() );
+                                if ( assignIter == assignOps.end() ) {
+                                        throw SemanticError( "Attempt to return dtype or ftype object in ", returnStmt->get_expr() );
+                                } // if
+                                ApplicationExpr *assignExpr = new ApplicationExpr( new VariableExpr( assignIter->second ) );
                                 Expression *retParm = new NameExpr( retval->get_name() );
                                 retParm->get_results().push_back( new PointerType( Type::Qualifiers(), retval->get_type()->clone() ) );
@@ -1064 +927 @@
                         // push a copy of the current map
                         adapters.push(adapters.top());
-                        scopedAssignOps.beginScope();
                 }
 
                 void Pass1::doEndScope() {
                         adapters.pop();
-                        scopedAssignOps.endScope();
                 }
 
@@ -1137 +998 @@
 
                         // move polymorphic return type to parameter list
-                        if ( isPolyRet( funcType ) ) {
+                        std::string typeName;
+                        if ( isPolyRet( funcType, typeName ) ) {
                                 DeclarationWithType *ret = funcType->get_returnVals().front();
                                 ret->set_type( new PointerType( Type::Qualifiers(), ret->get_type() ) );
@@ -1148 +1010 @@
                         std::list< DeclarationWithType *> inferredParams;
                         ObjectDecl newObj( "", DeclarationNode::NoStorageClass, LinkageSpec::C, 0, new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ), 0 );
-                        ObjectDecl newPtr( "", DeclarationNode::NoStorageClass, LinkageSpec::C, 0,
-                                           new PointerType( Type::Qualifiers(), new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) ), 0 );
 //   ObjectDecl *newFunPtr = new ObjectDecl( "", DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, new PointerType( Type::Qualifiers(), new FunctionType( Type::Qualifiers(), true ) ), 0 );
                         for ( std::list< TypeDecl *>::const_iterator tyParm = funcType->get_forall().begin(); tyParm != funcType->get_forall().end(); ++tyParm ) {
@@ -1176 +1036 @@
 
                         // add size/align for generic types to parameter list
-                        std::set< std::string > seenTypes; // sizeofName for generic types we've seen
+                        std::set< std::string > seenTypes; //< sizeofName for generic types we've seen
                         for ( std::list< DeclarationWithType* >::const_iterator fnParm = last; fnParm != funcType->get_parameters().end(); ++fnParm ) {
-                                Type *polyBase = hasPolyBase( (*fnParm)->get_type(), scopeTyVars );
-                                if ( polyBase && ! dynamic_cast< TypeInstType* >( polyBase ) ) {
-                                        std::string sizeName = sizeofName( polyBase );
+                                Type *parmType = (*fnParm)->get_type();
+                                if ( ! dynamic_cast< TypeInstType* >( parmType ) && isPolyType( parmType, scopeTyVars ) ) {
+                                        std::string sizeName = sizeofName( parmType );
                                         if ( seenTypes.count( sizeName ) ) continue;
 
-                                        ObjectDecl *sizeParm, *alignParm, *offsetParm;
+                                        ObjectDecl *sizeParm, *alignParm;
                                         sizeParm = newObj.clone();
                                         sizeParm->set_name( sizeName );
@@ -1190 +1050 @@
 
                                         alignParm = newObj.clone();
-                                        alignParm->set_name( alignofName( polyBase ) );
+                                        alignParm->set_name( alignofName( parmType ) );
                                         last = funcType->get_parameters().insert( last, alignParm );
                                         ++last;
-
-                                        if ( dynamic_cast< StructInstType* >( polyBase ) ) {
-                                                offsetParm = newPtr.clone();
-                                                offsetParm->set_name( offsetofName( polyBase ) );
-                                                last = funcType->get_parameters().insert( last, offsetParm );
-                                                ++last;
-                                        }
 
                                         seenTypes.insert( sizeName );
@@ -1213 +1066 @@
                         scopeTyVars = oldtyVars;
                         return funcType;
-                }
-
-////////////////////////////////////////// MemberExprFixer ////////////////////////////////////////////////////
-
-                template< typename DeclClass >
-                DeclClass * MemberExprFixer::handleDecl( DeclClass *decl, Type *type ) {
-                        TyVarMap oldtyVars = scopeTyVars;
-                        makeTyVarMap( type, scopeTyVars );
-
-                        DeclClass *ret = static_cast< DeclClass *>( Mutator::mutate( decl ) );
-
-                        scopeTyVars = oldtyVars;
-                        return ret;
-                }
-
-                ObjectDecl * MemberExprFixer::mutate( ObjectDecl *objectDecl ) {
-                        return handleDecl( objectDecl, objectDecl->get_type() );
-                }
-
-                DeclarationWithType * MemberExprFixer::mutate( FunctionDecl *functionDecl ) {
-                        return handleDecl( functionDecl, functionDecl->get_functionType() );
-                }
-
-                TypedefDecl * MemberExprFixer::mutate( TypedefDecl *typedefDecl ) {
-                        return handleDecl( typedefDecl, typedefDecl->get_base() );
-                }
-
-                TypeDecl * MemberExprFixer::mutate( TypeDecl *typeDecl ) {
-                        scopeTyVars[ typeDecl->get_name() ] = typeDecl->get_kind();
-                        return Mutator::mutate( typeDecl );
-                }
-
-                Type * MemberExprFixer::mutate( PointerType *pointerType ) {
-                        TyVarMap oldtyVars = scopeTyVars;
-                        makeTyVarMap( pointerType, scopeTyVars );
-
-                        Type *ret = Mutator::mutate( pointerType );
-
-                        scopeTyVars = oldtyVars;
-                        return ret;
-                }
-
-                Type * MemberExprFixer::mutate( FunctionType *functionType ) {
-                        TyVarMap oldtyVars = scopeTyVars;
-                        makeTyVarMap( functionType, scopeTyVars );
-
-                        Type *ret = Mutator::mutate( functionType );
-
-                        scopeTyVars = oldtyVars;
-                        return ret;
-                }
-
-                Statement *MemberExprFixer::mutate( DeclStmt *declStmt ) {
-                        if ( ObjectDecl *objectDecl = dynamic_cast< ObjectDecl *>( declStmt->get_decl() ) ) {
-                                if ( isPolyType( objectDecl->get_type(), scopeTyVars ) ) {
-                                        // change initialization of a polymorphic value object
-                                        // to allocate storage with alloca
-                                        Type *declType = objectDecl->get_type();
-                                        UntypedExpr *alloc = new UntypedExpr( new NameExpr( "__builtin_alloca" ) );
-                                        alloc->get_args().push_back( new NameExpr( sizeofName( declType ) ) );
-
-                                        delete objectDecl->get_init();
-
-                                        std::list<Expression*> designators;
-                                        objectDecl->set_init( new SingleInit( alloc, designators ) );
-                                }
-                        }
-                        return Mutator::mutate( declStmt );
-                }
-
-                Expression *MemberExprFixer::mutate( MemberExpr *memberExpr ) {
-                        // mutate, exiting early if no longer MemberExpr
-                        Expression *expr = Mutator::mutate( memberExpr );
-                        memberExpr = dynamic_cast< MemberExpr* >( expr );
-                        if ( ! memberExpr ) return expr;
-
-                        // get declaration for base struct, exiting early if not found
-                        int varDepth;
-                        VariableExpr *varExpr = getBaseVar( memberExpr->get_aggregate(), &varDepth );
-                        if ( ! varExpr ) return memberExpr;
-                        ObjectDecl *objectDecl = dynamic_cast< ObjectDecl* >( varExpr->get_var() );
-                        if ( ! objectDecl ) return memberExpr;
-
-                        // only mutate member expressions for polymorphic types
-                        int tyDepth;
-                        Type *objectType = hasPolyBase( objectDecl->get_type(), scopeTyVars, &tyDepth );
-                        if ( ! objectType ) return memberExpr;
-
-                        // get base aggregate for type so members can be looked up
-                        AggregateDecl *memberBase = 0;
-                        if ( StructInstType *structType = dynamic_cast< StructInstType* >( objectType ) ) {
-                                memberBase = structType->get_baseStruct();
-                        } else if ( UnionInstType *unionType = dynamic_cast< UnionInstType* >( objectType ) ) {
-                                memberBase = unionType->get_baseUnion();
-                        } else return memberExpr;
-
-                        // look up numeric index of member in base aggregate
-                        DeclarationWithType *memberDecl = memberExpr->get_member();
-                        std::list< Declaration* > &baseDecls = memberBase->get_members();
-                        std::list< Declaration* >::const_iterator decl = baseDecls.begin();
-                        unsigned long i = 0;
-                        for( ; decl != baseDecls.end(); ++decl, ++i ) {
-                                if ( memberDecl->get_name() != (*decl)->get_name() ) continue;
-
-                                if ( DeclarationWithType *declWithType = dynamic_cast< DeclarationWithType* >( *decl ) ) {
-                                        if ( memberDecl->get_mangleName() == declWithType->get_mangleName() ) break;
-                                        else continue;
-                                } else break;
-                        }
-                        if ( decl == baseDecls.end() ) return memberExpr;
-
-                        // replace member expression with pointer to base plus offset
-                        // get offset for field
-                        std::stringstream offset_namer;
-                        offset_namer << i;
-                        ConstantExpr *fieldIndex = new ConstantExpr( Constant( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ), offset_namer.str() ) );
-                        UntypedExpr *fieldOffset = new UntypedExpr( new NameExpr( "?[?]" ) );
-                        fieldOffset->get_args().push_back( new NameExpr( offsetofName( objectType ) ) );
-                        fieldOffset->get_args().push_back( fieldIndex );
-                        // build appropriately-dereferenced variable
-                        Expression *derefdVar = varExpr->clone();
-                        for ( int i = 1; i < varDepth; ++i ) {
-                                UntypedExpr *derefExpr = new UntypedExpr( new NameExpr( "*?" ) );
-                                derefExpr->get_args().push_back( derefdVar );
-                                derefdVar = derefExpr;
-                        }
-                        // add offset to deref'd variable
-                        UntypedExpr *fieldLoc = new UntypedExpr( new NameExpr( "?+?" ) );
-                        fieldLoc->get_args().push_back( derefdVar );
-                        fieldLoc->get_args().push_back( fieldOffset );
-
-                        delete memberExpr;
-                        return fieldLoc;
                 }
 
@@ -1406 +1126 @@
                         return ret;
                 }
+
+                Statement *Pass3::mutate( DeclStmt *declStmt ) {
+                        if ( ObjectDecl *objectDecl = dynamic_cast< ObjectDecl *>( declStmt->get_decl() ) ) {
+                                if ( isPolyType( objectDecl->get_type(), scopeTyVars ) ) {
+                                        // change initialization of a polymorphic value object
+                                        // to allocate storage with alloca
+                                        Type *declType = objectDecl->get_type();
+                                        UntypedExpr *alloc = new UntypedExpr( new NameExpr( "__builtin_alloca" ) );
+                                        alloc->get_args().push_back( new NameExpr( sizeofName( declType ) ) );
+
+                                        delete objectDecl->get_init();
+
+                                        std::list<Expression*> designators;
+                                        objectDecl->set_init( new SingleInit( alloc, designators ) );
+                                }
+                        }
+                        return Mutator::mutate( declStmt );
+                }
         } // anonymous namespace
 } // namespace GenPoly

src/GenPoly/GenPoly.cc

@@ -36 +36 @@
         }
 
-        ReferenceToType *isPolyRet( FunctionType *function ) {
+        bool isPolyRet( FunctionType *function, std::string &name, const TyVarMap &otherTyVars ) {
+                bool doTransform = false;
                 if ( ! function->get_returnVals().empty() ) {
-                        TyVarMap forallTypes;
-                        makeTyVarMap( function, forallTypes );
-                        return (ReferenceToType*)isPolyType( function->get_returnVals().front()->get_type(), forallTypes );
+                        if ( TypeInstType *typeInst = dynamic_cast< TypeInstType *>( function->get_returnVals().front()->get_type() ) ) {
+        
+                                // figure out if the return type is specified by a type parameter
+                                for ( std::list< TypeDecl *>::const_iterator tyVar = function->get_forall().begin(); tyVar != function->get_forall().end(); ++tyVar ) {
+                                        if ( (*tyVar)->get_name() == typeInst->get_name() ) {
+                                                doTransform = true;
+                                                name = typeInst->get_name();
+                                                break;
+                                        } // if
+                                } // for
+                                if ( ! doTransform && otherTyVars.find( typeInst->get_name() ) != otherTyVars.end() ) {
+                                        doTransform = true;
+                                } // if
+                        } // if
                 } // if
-                return 0;
+                return doTransform;
+        }
+
+        bool isPolyRet( FunctionType *function, std::string &name ) {
+                TyVarMap dummyTyVars;
+                return isPolyRet( function, name, dummyTyVars );
+        }
+
+        bool isPolyRet( FunctionType *function, const TyVarMap &otherTyVars ) {
+                std::string dummyString;
+                return isPolyRet( function, dummyString, otherTyVars );
         }
 
@@ -127 +149 @@
         }
 
-        Type * hasPolyBase( Type *type, int *levels, const TypeSubstitution *env ) {
-                int dummy;
-                if ( ! levels ) { levels = &dummy; }
-                *levels = 0;
-
-                while ( true ) {
-                        if ( PointerType *ptr = dynamic_cast< PointerType *>( type ) ) {
-                                type = ptr->get_base();
-                                ++(*levels);
-                        } else if ( env ) {
-                                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType *>( type ) ) {
-                                        if ( Type *newType = env->lookup( typeInst->get_name() ) ) {
-                                                type = newType;
-                                        } else break;
-                                } else break;
-                        } else break;
-                }
-
-                return isPolyType( type, env );
-        }
-        
-        Type * hasPolyBase( Type *type, const TyVarMap &tyVars, int *levels, const TypeSubstitution *env ) {
-                int dummy;
-                if ( ! levels ) { levels = &dummy; }
-                *levels = 0;
-
-                while ( true ) {
-                        if ( PointerType *ptr = dynamic_cast< PointerType *>( type ) ) {
-                                type = ptr->get_base();
-                                ++(*levels);
-                        } else if ( env ) {
-                                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType *>( type ) ) {
-                                        if ( Type *newType = env->lookup( typeInst->get_name() ) ) {
-                                                type = newType;
-                                        } else break;
-                                } else break;
-                        } else break;
-                }
-
-                return isPolyType( type, tyVars, env );
-        }
-
         FunctionType * getFunctionType( Type *ty ) {
                 PointerType *ptrType;
@@ -178 +158 @@
         }
 
-        VariableExpr * getBaseVar( Expression *expr, int *levels ) {
-                int dummy;
-                if ( ! levels ) { levels = &dummy; }
-                *levels = 0;
-
-                while ( true ) {
-                        if ( VariableExpr *varExpr = dynamic_cast< VariableExpr* >( expr ) ) {
-                                return varExpr;
-                        } else if ( AddressExpr *addressExpr = dynamic_cast< AddressExpr* >( expr ) ) {
-                                expr = addressExpr->get_arg();
-                        } else if ( UntypedExpr *untypedExpr = dynamic_cast< UntypedExpr* >( expr ) ) {
-                                // look for compiler-inserted dereference operator
-                                NameExpr *fn = dynamic_cast< NameExpr* >( untypedExpr->get_function() );
-                                if ( ! fn || fn->get_name() != std::string("*?") ) return 0;
-                                expr = *untypedExpr->begin_args();
-                        } else break;
-
-                        ++(*levels);
-                }
-
-                return 0;
-        }
-
-        void makeTyVarMap( Type *type, TyVarMap &tyVarMap ) {
-                for ( std::list< TypeDecl* >::const_iterator tyVar = type->get_forall().begin(); tyVar != type->get_forall().end(); ++tyVar ) {
-                        assert( *tyVar );
-                        tyVarMap[ (*tyVar)->get_name() ] = (*tyVar)->get_kind();
-                }
-                if ( PointerType *pointer = dynamic_cast< PointerType* >( type ) ) {
-                        makeTyVarMap( pointer->get_base(), tyVarMap );
-                }
-        }
-        
         void printTyVarMap( std::ostream &os, const TyVarMap &tyVarMap ) {
                 for ( TyVarMap::const_iterator i = tyVarMap.begin(); i != tyVarMap.end(); ++i ) {
@@ -225 +172 @@
                 return std::string( "_alignof_" ) + SymTab::Mangler::mangleType( ty );
         }
-
-        std::string offsetofName( Type* ty ) {
-                return std::string( "_offsetof_" ) + SymTab::Mangler::mangleType( ty );
-        }
-
 } // namespace GenPoly
 

src/GenPoly/GenPoly.h

@@ -20 +20 @@
 #include <string>
 #include <iostream>
-#include <utility>
 
 #include "SynTree/Declaration.h"
-#include "SynTree/Type.h"
 #include "SynTree/TypeSubstitution.h"
 
@@ -34 +32 @@
 
         /// true iff function has polymorphic return type
-        ReferenceToType *isPolyRet( FunctionType *function );
+        bool isPolyRet( FunctionType *function, std::string &name, const TyVarMap &otherTyVars );
+        bool isPolyRet( FunctionType *function, std::string &name );
+        bool isPolyRet( FunctionType *function, const TyVarMap &otherTyVars );
 
         /// returns polymorphic type if is polymorphic type, NULL otherwise; will look up substitution in env if provided
@@ -48 +48 @@
         Type *isPolyPtr( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 );
 
-        /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type, returns the base type, NULL otherwise;
-        /// N will be stored in levels, if provided, will look up substitution in env if provided
-        Type *hasPolyBase( Type *type, int *levels = 0, const TypeSubstitution *env = 0 );
+        /// Returns a pointer to the base FunctionType if ty is the type of a function (or pointer to one), NULL otherwise
+        FunctionType * getFunctionType( Type *ty );
 
-        /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type in tyVars, returns the base type, NULL otherwise;
-        /// N will be stored in levels, if provided, will look up substitution in env if provided
-        Type *hasPolyBase( Type *type, const TyVarMap &tyVars, int *levels = 0, const TypeSubstitution *env = 0 );
-
-        /// Returns a pointer to the base FunctionType if ty is the type of a function (or pointer to one), NULL otherwise
-        FunctionType *getFunctionType( Type *ty );
-
-        /// If expr (after dereferencing N >= 0 pointers) is a variable expression, returns the variable expression, NULL otherwise;
-        /// N will be stored in levels, if provided
-        VariableExpr *getBaseVar( Expression *expr, int *levels = 0 );
-
-        /// Adds the declarations in the forall list of type (and its pointed-to type if it's a pointer type) to `tyVarMap`
-        void makeTyVarMap( Type *type, TyVarMap &tyVarMap );
-        
         /// Prints type variable map
         void printTyVarMap( std::ostream &os, const TyVarMap &tyVarMap );
@@ -74 +59 @@
         /// Gets the name of the alignof parameter for the type
         std::string alignofName( Type *ty );
-
-        /// Gets the name of the offsetof parameter for the type
-        std::string offsetofName( Type *ty );
 } // namespace GenPoly
 

src/GenPoly/PolyMutator.cc

@@ -152 +152 @@
         }
 
+
+        /* static class method */
+        void PolyMutator::makeTyVarMap( Type *type, TyVarMap &tyVarMap ) {
+                for ( std::list< TypeDecl* >::const_iterator tyVar = type->get_forall().begin(); tyVar != type->get_forall().end(); ++tyVar ) {
+                        assert( *tyVar );
+                        tyVarMap[ (*tyVar)->get_name() ] = (*tyVar)->get_kind();
+                }
+                if ( PointerType *pointer = dynamic_cast< PointerType* >( type ) ) {
+                        makeTyVarMap( pointer->get_base(), tyVarMap );
+                }
+        }
 } // namespace GenPoly
 

src/GenPoly/PolyMutator.h

@@ -51 +51 @@
                 virtual void doBeginScope() {}
                 virtual void doEndScope() {}
+                
+                static void makeTyVarMap( Type *type, TyVarMap &tyVarMap );
           protected:
                 void mutateStatementList( std::list< Statement* > &statements );

src/GenPoly/ScrubTyVars.cc

@@ -27 +27 @@
         Type * ScrubTyVars::mutate( TypeInstType *typeInst ) {
                 TyVarMap::const_iterator tyVar = tyVars.find( typeInst->get_name() );
-                if ( tyVar != tyVars.end() ) {
+                if ( doAll || tyVar != tyVars.end() ) {
                         switch ( tyVar->second ) {
                           case TypeDecl::Any:
@@ -42 +42 @@
                 } // if
                 return typeInst;
-        }
-
-        Type * ScrubTyVars::mutateAggregateType( Type *ty ) {
-                if ( isPolyType( ty, tyVars ) ) {
-                        PointerType *ret = new PointerType( Type::Qualifiers(), new VoidType( ty->get_qualifiers() ) );
-                        delete ty;
-                        return ret;
-                }
-                return ty;
-        }
-        
-        Type * ScrubTyVars::mutate( StructInstType *structInst ) {
-                return mutateAggregateType( structInst );
-        }
-
-        Type * ScrubTyVars::mutate( UnionInstType *unionInst ) {
-                return mutateAggregateType( unionInst );
         }
 
@@ -82 +65 @@
 
         Type * ScrubTyVars::mutate( PointerType *pointer ) {
-                if ( Type *polyType = isPolyType( pointer->get_base(), tyVars ) ) {
-                        Type *ret = polyType->acceptMutator( *this );
-                        ret->get_qualifiers() += pointer->get_qualifiers();
-                        pointer->set_base( 0 );
-                        delete pointer;
-                        return ret;
-                }
+                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType * >( pointer->get_base() ) ) {
+                        if ( doAll || tyVars.find( typeInst->get_name() ) != tyVars.end() ) {
+                                Type *ret = mutate( typeInst );
+                                ret->get_qualifiers() += pointer->get_qualifiers();
+                                pointer->set_base( 0 );
+                                delete pointer;
+                                return ret;
+                        } // if
+                } // if
                 return Mutator::mutate( pointer );
         }

src/GenPoly/ScrubTyVars.h

@@ -27 +27 @@
         class ScrubTyVars : public Mutator {
           public:
-                ScrubTyVars( const TyVarMap &tyVars ): tyVars( tyVars ) {}
+                ScrubTyVars( bool doAll, const TyVarMap &tyVars ): doAll( doAll ), tyVars( tyVars ) {}
 
-                /// For all polymorphic types with type variables in `tyVars`, replaces generic types, dtypes, and ftypes with the appropriate void type,
-                /// and sizeof/alignof expressions with the proper variable
+                /// Like scrub( SynTreeClass* ), but only applies to type variables in `tyVars`
                 template< typename SynTreeClass >
                 static SynTreeClass *scrub( SynTreeClass *target, const TyVarMap &tyVars );
-
+                /// Replaces dtypes and ftypes with the appropriate void type, and sizeof expressions of polymorphic types with the proper variable
+                template< typename SynTreeClass >
+                static SynTreeClass *scrub( SynTreeClass *target );
+  
                 virtual Type* mutate( TypeInstType *typeInst );
-                virtual Type* mutate( StructInstType *structInst );
-                virtual Type* mutate( UnionInstType *unionInst );
-                virtual Expression* mutate( SizeofExpr *szeof );
-                virtual Expression* mutate( AlignofExpr *algnof );
+                Expression* mutate( SizeofExpr *szeof );
+                Expression* mutate( AlignofExpr *algnof );
                 virtual Type* mutate( PointerType *pointer );
-
           private:
-                /// Mutates (possibly generic) aggregate types appropriately
-                Type* mutateAggregateType( Type *ty );
-                
+                bool doAll;
                 const TyVarMap &tyVars;
         };
@@ -51 +48 @@
         template< typename SynTreeClass >
         SynTreeClass * ScrubTyVars::scrub( SynTreeClass *target, const TyVarMap &tyVars ) {
-                ScrubTyVars scrubber( tyVars );
+                ScrubTyVars scrubber( false, tyVars );
                 return static_cast< SynTreeClass * >( target->acceptMutator( scrubber ) );
         }
 
+        /* static class method */
+        template< typename SynTreeClass >
+        SynTreeClass * ScrubTyVars::scrub( SynTreeClass *target ) {
+                TyVarMap tyVars;
+                ScrubTyVars scrubber( true, tyVars );
+                return static_cast< SynTreeClass* >( target->acceptMutator( scrubber ) );
+        }
 } // namespace GenPoly
 

src/InitTweak/InitModel.h

@@ -73 +73 @@
                         void visit( SizeofExpr * ) { throw 0; }
                         void visit( AlignofExpr * ) { throw 0; }
-                        void visit( OffsetofExpr * ) { throw 0; }
                         void visit( AttrExpr * ) { throw 0; }
                         void visit( LogicalExpr * ) { throw 0; }

src/ResolvExpr/AlternativeFinder.cc

@@ -811 +811 @@
         }
 
-        void AlternativeFinder::visit( OffsetofExpr *offsetofExpr ) {
-                alternatives.push_back( Alternative( offsetofExpr->clone(), env, Cost::zero ) );
-        }
-
         void AlternativeFinder::resolveAttr( DeclarationWithType *funcDecl, FunctionType *function, Type *argType, const TypeEnvironment &env ) {
                 // assume no polymorphism

src/ResolvExpr/AlternativeFinder.h

@@ -56 +56 @@
                 virtual void visit( ConstantExpr *constantExpr ); 
                 virtual void visit( SizeofExpr *sizeofExpr );
-                virtual void visit( AlignofExpr *alignofExpr );
-                virtual void visit( OffsetofExpr *offsetofExpr );
+                virtual void visit( AlignofExpr *sizeofExpr );
                 virtual void visit( AttrExpr *attrExpr );
                 virtual void visit( LogicalExpr *logicalExpr );

src/SymTab/Indexer.cc

@@ -225 +225 @@
                         maybeAccept( alignofExpr->get_expr(), *this );
                 }
-        }
-
-        void Indexer::visit( OffsetofExpr *offsetofExpr ) {
-                acceptAllNewScope( offsetofExpr->get_results(), *this );
-                maybeAccept( offsetofExpr->get_type(), *this );
-                maybeAccept( offsetofExpr->get_member(), *this );
         }
 

src/SymTab/Indexer.h

@@ -55 +55 @@
                 virtual void visit( SizeofExpr *sizeofExpr );
                 virtual void visit( AlignofExpr *alignofExpr );
-                virtual void visit( OffsetofExpr *offsetofExpr );
                 virtual void visit( AttrExpr *attrExpr );
                 virtual void visit( LogicalExpr *logicalExpr );

src/SymTab/Validate.cc

@@ -585 +585 @@
         }
 
-        template< typename OutputIterator >
-        void makeUnionFieldsAssignment( ObjectDecl *srcParam, ObjectDecl *dstParam, UnionInstType *unionType, OutputIterator out ) {
-                UntypedExpr *copy = new UntypedExpr( new NameExpr( "__builtin_memcpy" ) );
-                copy->get_args().push_back( new VariableExpr( dstParam ) );
-                copy->get_args().push_back( new AddressExpr( new VariableExpr( srcParam ) ) );
-                copy->get_args().push_back( new SizeofExpr( unionType ) );
-
-                *out++ = new ExprStmt( noLabels, copy );
-        }
-
         //E ?=?(E volatile*, int),
         //  ?=?(E _Atomic volatile*, int);
@@ -663 +653 @@
 
                 // Make function polymorphic in same parameters as generic struct, if applicable
-                bool isGeneric = false;  // NOTE this flag is an incredibly ugly kludge; we should fix the assignment signature instead (ditto for union)
                 std::list< TypeDecl* >& genericParams = aggregateDecl->get_parameters();
                 std::list< Expression* > structParams;  // List of matching parameters to put on types
                 for ( std::list< TypeDecl* >::const_iterator param = genericParams.begin(); param != genericParams.end(); ++param ) {
-                        isGeneric = true;
                         TypeDecl *typeParam = (*param)->clone();
                         assignType->get_forall().push_back( typeParam );
@@ -673 +661 @@
                 }
 
-                ObjectDecl *returnVal = new ObjectDecl( "_ret", DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, cloneWithParams( refType, structParams ), 0 );
+                ObjectDecl *returnVal = new ObjectDecl( "", DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, cloneWithParams( refType, structParams ), 0 );
                 assignType->get_returnVals().push_back( returnVal );
 
@@ -703 +691 @@
                                 if ( ArrayType *array = dynamic_cast< ArrayType * >( dwt->get_type() ) ) {
                                         makeArrayAssignment( srcParam, dstParam, dwt, array, back_inserter( assignDecl->get_statements()->get_kids() ) );
-                                        if ( isGeneric ) makeArrayAssignment( srcParam, returnVal, dwt, array, back_inserter( assignDecl->get_statements()->get_kids() ) );
                                 } else {
                                         makeScalarAssignment( srcParam, dstParam, dwt, back_inserter( assignDecl->get_statements()->get_kids() ) );
-                                        if ( isGeneric ) makeScalarAssignment( srcParam, returnVal, dwt, back_inserter( assignDecl->get_statements()->get_kids() ) );
                                 } // if
                         } // if
                 } // for
-                if ( ! isGeneric ) assignDecl->get_statements()->get_kids().push_back( new ReturnStmt( noLabels, new VariableExpr( srcParam ) ) );
+                assignDecl->get_statements()->get_kids().push_back( new ReturnStmt( noLabels, new VariableExpr( srcParam ) ) );
 
                 return assignDecl;
@@ -719 +705 @@
 
                 // Make function polymorphic in same parameters as generic union, if applicable
-                bool isGeneric = false;  // NOTE this flag is an incredibly ugly kludge; we should fix the assignment signature instead (ditto for struct)
                 std::list< TypeDecl* >& genericParams = aggregateDecl->get_parameters();
                 std::list< Expression* > unionParams;  // List of matching parameters to put on types
                 for ( std::list< TypeDecl* >::const_iterator param = genericParams.begin(); param != genericParams.end(); ++param ) {
-                        isGeneric = true;
                         TypeDecl *typeParam = (*param)->clone();
                         assignType->get_forall().push_back( typeParam );
@@ -729 +713 @@
                 }
 
-                ObjectDecl *returnVal = new ObjectDecl( "_ret", DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, cloneWithParams( refType, unionParams ), 0 );
+                ObjectDecl *returnVal = new ObjectDecl( "", DeclarationNode::NoStorageClass, LinkageSpec::Cforall, 0, cloneWithParams( refType, unionParams ), 0 );
                 assignType->get_returnVals().push_back( returnVal );
 
@@ -743 +727 @@
                 assignDecl->fixUniqueId();
 
-                makeUnionFieldsAssignment( srcParam, dstParam, cloneWithParams( refType, unionParams ), back_inserter( assignDecl->get_statements()->get_kids() ) );
-                if ( isGeneric ) makeUnionFieldsAssignment( srcParam, returnVal, cloneWithParams( refType, unionParams ), back_inserter( assignDecl->get_statements()->get_kids() ) );
-                
-                if ( ! isGeneric ) assignDecl->get_statements()->get_kids().push_back( new ReturnStmt( noLabels, new VariableExpr( srcParam ) ) );
+                UntypedExpr *copy = new UntypedExpr( new NameExpr( "__builtin_memcpy" ) );
+                copy->get_args().push_back( new VariableExpr( dstParam ) );
+                copy->get_args().push_back( new AddressExpr( new VariableExpr( srcParam ) ) );
+                copy->get_args().push_back( new SizeofExpr( cloneWithParams( refType, unionParams ) ) );
+
+                assignDecl->get_statements()->get_kids().push_back( new ExprStmt( noLabels, copy ) );
+                assignDecl->get_statements()->get_kids().push_back( new ReturnStmt( noLabels, new VariableExpr( srcParam ) ) );
 
                 return assignDecl;

src/SynTree/Expression.cc

@@ -103 +103 @@
 SizeofExpr::SizeofExpr( Expression *expr_, Expression *_aname ) :
                 Expression( _aname ), expr(expr_), type(0), isType(false) {
-        add_result( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) );
+        add_result( new BasicType( Type::Qualifiers(), BasicType::UnsignedInt ) );
 }
 
 SizeofExpr::SizeofExpr( Type *type_, Expression *_aname ) :
                 Expression( _aname ), expr(0), type(type_), isType(true) {
-        add_result( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) );
+        add_result( new BasicType( Type::Qualifiers(), BasicType::UnsignedInt ) );
 }
 
@@ -134 +134 @@
 AlignofExpr::AlignofExpr( Expression *expr_, Expression *_aname ) :
                 Expression( _aname ), expr(expr_), type(0), isType(false) {
-        add_result( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) );
+        add_result( new BasicType( Type::Qualifiers(), BasicType::UnsignedInt ) );
 }
 
 AlignofExpr::AlignofExpr( Type *type_, Expression *_aname ) :
                 Expression( _aname ), expr(0), type(type_), isType(true) {
-        add_result( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) );
+        add_result( new BasicType( Type::Qualifiers(), BasicType::UnsignedInt ) );
 }
 
@@ -158 +158 @@
         else
                 expr->print(os, indent + 2);
-
-        os << std::endl;
-        Expression::print( os, indent );
-}
-
-OffsetofExpr::OffsetofExpr( Type *type_, DeclarationWithType *member_, Expression *_aname ) :
-                Expression( _aname ), type(type_), member(member_) {
-        add_result( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ) );
-}
-
-OffsetofExpr::OffsetofExpr( const OffsetofExpr &other ) :
-        Expression( other ), type( maybeClone( other.type ) ), member( maybeClone( other.member ) ) {}
-
-OffsetofExpr::~OffsetofExpr() {
-        delete type;
-        delete member;
-}
-
-void OffsetofExpr::print( std::ostream &os, int indent) const {
-        os << std::string( indent, ' ' ) << "Offsetof Expression on member ";
-
-        if ( member ) {
-                os << member->get_name();
-        } else {
-                os << "<NULL>";
-        }
-
-        os << " of ";
-
-        if ( type ) {
-                type->print(os, indent + 2);
-        } else {
-                os << "<NULL>";
-        }
 
         os << std::endl;

src/SynTree/Expression.h

@@ -319 +319 @@
 };
 
-/// OffsetofExpr represents an offsetof expression
-class OffsetofExpr : public Expression {
-  public:
-        OffsetofExpr( Type *type, DeclarationWithType *member, Expression *_aname = 0 );
-        OffsetofExpr( const OffsetofExpr &other );
-        virtual ~OffsetofExpr();
-
-        Type *get_type() const { return type; }
-        void set_type( Type *newValue ) { type = newValue; }
-        DeclarationWithType *get_member() const { return member; }
-        void set_member( DeclarationWithType *newValue ) { member = newValue; }
-
-        virtual OffsetofExpr *clone() const { return new OffsetofExpr( *this ); }
-        virtual void accept( Visitor &v ) { v.visit( this ); }
-        virtual Expression *acceptMutator( Mutator &m ) { return m.mutate( this ); }
-        virtual void print( std::ostream &os, int indent = 0 ) const;
-  private:
-        Type *type;
-        DeclarationWithType *member;
-};
-
 /// AttrExpr represents an @attribute expression (like sizeof, but user-defined)
 class AttrExpr : public Expression {

src/SynTree/Initializer.h

@@ -55 +55 @@
 class SingleInit : public Initializer {
   public:
-        SingleInit( Expression *value, std::list< Expression *> &designators = *(new std::list<Expression *>()) );
+        SingleInit( Expression *value, std::list< Expression *> &designators );
         SingleInit( const SingleInit &other );
         virtual ~SingleInit();

src/SynTree/Mutator.cc

@@ -261 +261 @@
 }
 
-Expression *Mutator::mutate( OffsetofExpr *offsetofExpr ) {
-        mutateAll( offsetofExpr->get_results(), *this );
-        offsetofExpr->set_type( maybeMutate( offsetofExpr->get_type(), *this ) );
-        offsetofExpr->set_member( maybeMutate( offsetofExpr->get_member(), *this ) );
-        return offsetofExpr;
-}
-
 Expression *Mutator::mutate( AttrExpr *attrExpr ) {
         mutateAll( attrExpr->get_results(), *this );

src/SynTree/Mutator.h

@@ -65 +65 @@
         virtual Expression* mutate( SizeofExpr *sizeofExpr );
         virtual Expression* mutate( AlignofExpr *alignofExpr );
-        virtual Expression* mutate( OffsetofExpr *offsetofExpr );
         virtual Expression* mutate( AttrExpr *attrExpr );
         virtual Expression* mutate( LogicalExpr *logicalExpr );

src/SynTree/SynTree.h

@@ -70 +70 @@
 class SizeofExpr;
 class AlignofExpr;
-class OffsetofExpr;
 class AttrExpr;
 class LogicalExpr;

src/SynTree/Visitor.cc

@@ -219 +219 @@
 }
 
-void Visitor::visit( OffsetofExpr *offsetofExpr ) {
-        acceptAll( offsetofExpr->get_results(), *this );
-        maybeAccept( offsetofExpr->get_type(), *this );
-        maybeAccept( offsetofExpr->get_member(), *this );
-}
-
 void Visitor::visit( AttrExpr *attrExpr ) {
         acceptAll( attrExpr->get_results(), *this );

src/SynTree/Visitor.h

@@ -65 +65 @@
         virtual void visit( SizeofExpr *sizeofExpr );
         virtual void visit( AlignofExpr *alignofExpr );
-        virtual void visit( OffsetofExpr *offsetofExpr );
         virtual void visit( AttrExpr *attrExpr );
         virtual void visit( LogicalExpr *logicalExpr );

src/Tuples/FlattenTuple.cc

@@ -47 +47 @@
         void FlattenTuple::CollectArgs::visit( SizeofExpr        *expr )  {  currentArgs.insert( currentArgs.end(), expr );  }
         void FlattenTuple::CollectArgs::visit( AlignofExpr       *expr )  {  currentArgs.insert( currentArgs.end(), expr );  }
-        void FlattenTuple::CollectArgs::visit( OffsetofExpr      *expr )  {  currentArgs.insert( currentArgs.end(), expr );  }
         void FlattenTuple::CollectArgs::visit( AttrExpr          *expr )  {  currentArgs.insert( currentArgs.end(), expr );  }
         void FlattenTuple::CollectArgs::visit( LogicalExpr       *expr )  {  currentArgs.insert( currentArgs.end(), expr );  }

src/Tuples/FlattenTuple.h

@@ -43 +43 @@
                         virtual void visit( SizeofExpr * );
                         virtual void visit( AlignofExpr * );
-                        virtual void visit( OffsetofExpr * );
                         virtual void visit( AttrExpr * );
                         virtual void visit( LogicalExpr * );

src/main.cc

@@ -24 +24 @@
 #include "SynTree/Declaration.h"
 #include "SynTree/Visitor.h"
+#include "GenPoly/InstantiateGeneric.h"
 #include "GenPoly/Lvalue.h"
 #include "GenPoly/Specialize.h"
@@ -270 +271 @@
                 }
 
+                OPTPRINT( "instantiateGeneric" )
+                GenPoly::instantiateGeneric( translationUnit );
                 OPTPRINT( "copyParams" );
                 GenPoly::copyParams( translationUnit );
@@ -278 +281 @@
                 OPTPRINT( "box" )
                 GenPoly::box( translationUnit );
-                
+
                 // print tree right before code generation
                 if ( codegenp ) {