[51587aa] | 1 | // |
---|
| 2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo |
---|
| 3 | // |
---|
| 4 | // The contents of this file are covered under the licence agreement in the |
---|
| 5 | // file "LICENCE" distributed with Cforall. |
---|
| 6 | // |
---|
[01aeade] | 7 | // GenPoly.h -- |
---|
[51587aa] | 8 | // |
---|
| 9 | // Author : Richard C. Bilson |
---|
| 10 | // Created On : Mon May 18 07:44:20 2015 |
---|
[bdf1954] | 11 | // Last Modified By : Rob Schluntz |
---|
| 12 | // Last Modified On : Tue Nov 24 15:24:38 2015 |
---|
| 13 | // Update Count : 6 |
---|
[51587aa] | 14 | // |
---|
[51b7345] | 15 | |
---|
[b1a6d6b] | 16 | #ifndef GENPOLY_H |
---|
| 17 | #define GENPOLY_H |
---|
| 18 | |
---|
[51b7345] | 19 | #include <string> |
---|
| 20 | #include <iostream> |
---|
[8488c715] | 21 | #include <utility> |
---|
[ffad73a] | 22 | |
---|
[bfae637] | 23 | #include "ErasableScopedMap.h" |
---|
| 24 | |
---|
[adc6781] | 25 | #include "SymTab/Mangler.h" |
---|
| 26 | |
---|
[51b7345] | 27 | #include "SynTree/Declaration.h" |
---|
[aadc9a4] | 28 | #include "SynTree/Type.h" |
---|
[ffad73a] | 29 | #include "SynTree/TypeSubstitution.h" |
---|
[51b7345] | 30 | |
---|
| 31 | namespace GenPoly { |
---|
[bfae637] | 32 | typedef ErasableScopedMap< std::string, TypeDecl::Kind > TyVarMap; |
---|
[e24955a] | 33 | |
---|
[ffad73a] | 34 | /// A function needs an adapter if it returns a polymorphic value or if any of its |
---|
| 35 | /// parameters have polymorphic type |
---|
[01aeade] | 36 | bool needsAdapter( FunctionType *adaptee, const TyVarMap &tyVarr ); |
---|
[ffad73a] | 37 | |
---|
| 38 | /// true iff function has polymorphic return type |
---|
[aadc9a4] | 39 | ReferenceToType *isPolyRet( FunctionType *function ); |
---|
[bdf1954] | 40 | |
---|
[c2ad3c9] | 41 | /// Replaces a TypeInstType by its referrent in the environment, if applicable |
---|
| 42 | Type* replaceTypeInst( Type* type, const TypeSubstitution* env ); |
---|
| 43 | |
---|
[ffad73a] | 44 | /// returns polymorphic type if is polymorphic type, NULL otherwise; will look up substitution in env if provided |
---|
[0f889a77] | 45 | Type *isPolyType( Type *type, const TypeSubstitution *env = 0 ); |
---|
| 46 | |
---|
| 47 | /// returns polymorphic type if is polymorphic type in tyVars, NULL otherwise; will look up substitution in env if provided |
---|
[ffad73a] | 48 | Type *isPolyType( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 ); |
---|
| 49 | |
---|
| 50 | /// returns polymorphic type if is pointer to polymorphic type, NULL otherwise; will look up substitution in env if provided |
---|
[0f889a77] | 51 | Type *isPolyPtr( Type *type, const TypeSubstitution *env = 0 ); |
---|
| 52 | |
---|
| 53 | /// returns polymorphic type if is pointer to polymorphic type in tyVars, NULL otherwise; will look up substitution in env if provided |
---|
[ffad73a] | 54 | Type *isPolyPtr( Type *type, const TyVarMap &tyVars, const TypeSubstitution *env = 0 ); |
---|
| 55 | |
---|
[8488c715] | 56 | /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type, returns the base type, NULL otherwise; |
---|
| 57 | /// N will be stored in levels, if provided, will look up substitution in env if provided |
---|
| 58 | Type *hasPolyBase( Type *type, int *levels = 0, const TypeSubstitution *env = 0 ); |
---|
[05d47278] | 59 | |
---|
[8488c715] | 60 | /// if the base type (after dereferencing N >= 0 pointers) is a polymorphic type in tyVars, returns the base type, NULL otherwise; |
---|
| 61 | /// N will be stored in levels, if provided, will look up substitution in env if provided |
---|
| 62 | Type *hasPolyBase( Type *type, const TyVarMap &tyVars, int *levels = 0, const TypeSubstitution *env = 0 ); |
---|
[05d47278] | 63 | |
---|
[7754cde] | 64 | /// Returns a pointer to the base FunctionType if ty is the type of a function (or pointer to one), NULL otherwise |
---|
[05d47278] | 65 | FunctionType *getFunctionType( Type *ty ); |
---|
| 66 | |
---|
[8488c715] | 67 | /// If expr (after dereferencing N >= 0 pointers) is a variable expression, returns the variable expression, NULL otherwise; |
---|
| 68 | /// N will be stored in levels, if provided |
---|
| 69 | VariableExpr *getBaseVar( Expression *expr, int *levels = 0 ); |
---|
[7754cde] | 70 | |
---|
[aadc9a4] | 71 | /// Adds the declarations in the forall list of type (and its pointed-to type if it's a pointer type) to `tyVarMap` |
---|
| 72 | void makeTyVarMap( Type *type, TyVarMap &tyVarMap ); |
---|
| 73 | |
---|
[ffad73a] | 74 | /// Prints type variable map |
---|
[01aeade] | 75 | void printTyVarMap( std::ostream &os, const TyVarMap &tyVarMap ); |
---|
[ffad73a] | 76 | |
---|
[adc6781] | 77 | /// Gets the mangled name of this type; alias for SymTab::Mangler::mangleType(). |
---|
| 78 | inline std::string mangleType( Type *ty ) { return SymTab::Mangler::mangleType( ty ); } |
---|
| 79 | |
---|
| 80 | /// Gets the name of the sizeof parameter for the type, given its mangled name |
---|
| 81 | inline std::string sizeofName( const std::string &name ) { return std::string( "_sizeof_" ) + name; } |
---|
| 82 | |
---|
| 83 | /// Gets the name of the alignof parameter for the type, given its mangled name |
---|
| 84 | inline std::string alignofName( const std::string &name ) { return std::string( "_alignof_" ) + name; } |
---|
[ffad73a] | 85 | |
---|
[adc6781] | 86 | /// Gets the name of the offsetof parameter for the type, given its mangled name |
---|
| 87 | inline std::string offsetofName( const std::string &name ) { return std::string( "_offsetof_" ) + name; } |
---|
[05d47278] | 88 | |
---|
[adc6781] | 89 | /// Gets the name of the layout function for a given aggregate type, given its declaration |
---|
| 90 | inline std::string layoutofName( AggregateDecl *decl ) { return std::string( "_layoutof_" ) + decl->get_name(); } |
---|
| 91 | |
---|
[51b7345] | 92 | } // namespace GenPoly |
---|
[b1a6d6b] | 93 | |
---|
[01aeade] | 94 | #endif // GENPOLY_H |
---|
| 95 | |
---|
[51587aa] | 96 | // Local Variables: // |
---|
| 97 | // tab-width: 4 // |
---|
| 98 | // mode: c++ // |
---|
| 99 | // compile-command: "make install" // |
---|
| 100 | // End: // |
---|