Changeset fc12f05 for src/GenPoly/GenPoly.h
- Timestamp:
- Nov 13, 2023, 3:43:43 AM (23 months ago)
- Branches:
- master
- Children:
- 25f2798
- Parents:
- 0030b508 (diff), 2174191 (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. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/GenPoly/GenPoly.h
r0030b508 rfc12f05 23 23 #include "AST/Fwd.hpp" // for ApplicationExpr, BaseInstType, Func... 24 24 #include "SymTab/Mangler.h" // for Mangler 25 #include "SynTree/Declaration.h" // for TypeDecl::Data, AggregateDecl, Type...26 #include "SynTree/SynTree.h" // for Visitor Nodes27 25 28 26 namespace ast { … … 32 30 namespace GenPoly { 33 31 34 typedef ErasableScopedMap< std::string, TypeDecl::Data > TyVarMap; 35 using TypeVarMap = ErasableScopedMap< ast::TypeEnvKey, ast::TypeData >; 32 struct TypeVarMap : public ErasableScopedMap<ast::TypeEnvKey, ast::TypeData> { 33 TypeVarMap() : ErasableScopedMap( ast::TypeData() ) {} 34 }; 36 35 37 36 /// Replaces a TypeInstType by its referrent in the environment, if applicable 38 Type* replaceTypeInst( Type* type, const TypeSubstitution* env );39 const Type* replaceTypeInst( const Type* type, const TypeSubstitution* env );40 37 const ast::Type * replaceTypeInst( const ast::Type *, const ast::TypeSubstitution * ); 41 38 42 39 /// returns polymorphic type if is polymorphic type, NULL otherwise; will look up substitution in env if provided 43 Type *isPolyType( Type *type, const TypeSubstitution *env = 0 );44 40 const ast::Type * isPolyType(const ast::Type * type, const ast::TypeSubstitution * env = nullptr); 45 41 46 42 /// returns polymorphic type if is polymorphic type in tyVars, NULL otherwise; will look up substitution in env if provided 47 Type *isPolyType( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 );48 43 const ast::Type * isPolyType( const ast::Type * type, const TypeVarMap & typeVars, const ast::TypeSubstitution * subst = nullptr ); 49 44 50 45 /// returns dynamic-layout type if is dynamic-layout type in tyVars, NULL otherwise; will look up substitution in env if provided 51 ReferenceToType *isDynType( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 );52 46 const ast::BaseInstType *isDynType( const ast::Type * type, const TypeVarMap & typeVars, const ast::TypeSubstitution * subst = 0 ); 53 47 54 48 /// true iff function has dynamic-layout return type under the given type variable map 55 ReferenceToType *isDynRet( FunctionType *function, const TyVarMap &tyVars );56 49 const ast::BaseInstType *isDynRet( const ast::FunctionType * type, const TypeVarMap & typeVars ); 57 50 58 51 /// true iff function has dynamic-layout return type under the type variable map generated from its forall-parameters 59 ReferenceToType *isDynRet( FunctionType *function );60 52 const ast::BaseInstType *isDynRet( const ast::FunctionType * func ); 61 53 62 54 /// A function needs an adapter if it returns a dynamic-layout value or if any of its parameters have dynamic-layout type 63 bool needsAdapter( FunctionType *adaptee, const TyVarMap &tyVarr );64 55 bool needsAdapter( ast::FunctionType const * adaptee, const TypeVarMap & typeVars ); 65 56 66 /// returns polymorphic type if is pointer to polymorphic type, NULL otherwise; will look up substitution in env if provided67 Type *isPolyPtr( Type *type, const TypeSubstitution *env = 0 );68 69 57 /// returns polymorphic type if is pointer to polymorphic type in tyVars, NULL otherwise; will look up substitution in env if provided 70 Type *isPolyPtr( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 );71 58 const ast::Type * isPolyPtr( const ast::Type * type, const TypeVarMap & typeVars, const ast::TypeSubstitution * env = 0 ); 72 73 /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type, returns the base type, NULL otherwise;74 /// N will be stored in levels, if provided, will look up substitution in env if provided75 Type *hasPolyBase( Type *type, int *levels = 0, const TypeSubstitution *env = 0 );76 59 77 60 /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type in tyVars, returns the base type, NULL otherwise; 78 61 /// N will be stored in levels, if provided, will look up substitution in env if provided 79 Type *hasPolyBase( Type *type, const TyVarMap &tyVars, int *levels = 0, const TypeSubstitution *env = 0 );80 62 const ast::Type * hasPolyBase( const ast::Type * type, const TypeVarMap & typeVars, int * levels = 0, const ast::TypeSubstitution * env = 0 ); 81 63 82 /// true iff this type or some base of this type after dereferencing pointers is either polymorphic or a generic type with at least one83 /// polymorphic parameter; will look up substitution in env if provided.84 bool includesPolyType( Type *type, const TypeSubstitution *env = 0 );85 86 /// true iff this type or some base of this type after dereferencing pointers is either polymorphic in tyVars, or a generic type with87 /// at least one polymorphic parameter in tyVars; will look up substitution in env if provided.88 bool includesPolyType( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 );89 90 64 /// Returns a pointer to the base FunctionType if ty is the type of a function (or pointer to one), NULL otherwise 91 FunctionType *getFunctionType( Type *ty );92 65 const ast::FunctionType * getFunctionType( const ast::Type * ty ); 93 66 94 /// If expr (after dereferencing N >= 0 pointers) is a variable expression, returns the variable expression, NULL otherwise;95 /// N will be stored in levels, if provided96 VariableExpr *getBaseVar( Expression *expr, int *levels = 0 );97 98 67 /// true iff types are structurally identical, where TypeInstType's match any type. 99 bool typesPolyCompatible( Type *aty, Type *bty );100 68 bool typesPolyCompatible( ast::Type const * lhs, ast::Type const * rhs ); 101 69 102 70 /// true if arg requires boxing given exprTyVars 103 bool needsBoxing( Type * param, Type * arg, const TyVarMap &exprTyVars, const TypeSubstitution * env );104 71 bool needsBoxing( const ast::Type * param, const ast::Type * arg, const TypeVarMap & typeVars, const ast::TypeSubstitution * subst ); 105 72 106 73 /// true if arg requires boxing in the call to appExpr 107 bool needsBoxing( Type * param, Type * arg, ApplicationExpr * appExpr, const TypeSubstitution * env );108 74 bool needsBoxing( const ast::Type * param, const ast::Type * arg, const ast::ApplicationExpr * expr, const ast::TypeSubstitution * subst ); 109 75 110 76 /// Adds the type variable `tyVar` to `tyVarMap` 111 void addToTyVarMap( TypeDecl * tyVar, TyVarMap &tyVarMap );112 77 void addToTypeVarMap( const ast::TypeDecl * type, TypeVarMap & typeVars ); 113 78 void addToTypeVarMap( const ast::TypeInstType * type, TypeVarMap & typeVars ); 114 79 115 80 /// Adds the declarations in the forall list of type (and its pointed-to type if it's a pointer type) to `tyVarMap` 116 void makeTyVarMap( Type *type, TyVarMap &tyVarMap );117 81 void makeTypeVarMap( const ast::Type * type, TypeVarMap & typeVars ); 118 82 void makeTypeVarMap( const ast::FunctionDecl * decl, TypeVarMap & typeVars ); 119 120 /// Prints type variable map121 void printTyVarMap( std::ostream &os, const TyVarMap &tyVarMap );122 123 /// Gets the mangled name of this type; alias for SymTab::Mangler::mangleType().124 inline std::string mangleType( const Type *ty ) { return SymTab::Mangler::mangleType( ty ); }125 83 126 84 /// Gets the name of the sizeof parameter for the type, given its mangled name … … 134 92 135 93 /// Gets the name of the layout function for a given aggregate type, given its declaration 136 inline std::string layoutofName( AggregateDecl *decl ) { return std::string( "_layoutof_" ) + decl->get_name(); }137 94 inline std::string layoutofName( ast::AggregateDecl const * decl ) { 138 95 return std::string( "_layoutof_" ) + decl->name;
Note:
See TracChangeset
for help on using the changeset viewer.