source: src/GenPoly/ScrubTyVars.cc @ db0b3ce

aaron-thesisarm-ehcleanup-dtorsctordeferred_resndemanglergc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerresolv-newstringwith_gc
Last change on this file since db0b3ce was db0b3ce, checked in by Aaron Moss <a3moss@…>, 6 years ago

Initial draft of switch-over of size/align names

  • Property mode set to 100644
File size: 2.5 KB
Line 
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//
7// ScrubTyVars.cc --
8//
9// Author           : Richard C. Bilson
10// Created On       : Mon May 18 07:44:20 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Tue May 19 16:42:42 2015
13// Update Count     : 2
14//
15
16#include <string>
17
18#include "GenPoly.h"
19#include "ScrubTyVars.h"
20
21#include "SynTree/Mutator.h"
22#include "SynTree/Type.h"
23#include "SynTree/Expression.h"
24
25namespace GenPoly {
26        Type * ScrubTyVars::mutate( TypeInstType *typeInst ) {
27                TyVarMap::const_iterator tyVar = tyVars.find( typeInst->get_name() );
28                if ( doAll || tyVar != tyVars.end() ) {
29                        switch ( tyVar->second ) {
30                          case TypeDecl::Any:
31                          case TypeDecl::Dtype:
32                                {
33                                        PointerType *ret = new PointerType( Type::Qualifiers(), new VoidType( typeInst->get_qualifiers() ) );
34                                        delete typeInst;
35                                        return ret;
36                                }
37                          case TypeDecl::Ftype:
38                                delete typeInst;
39                                return new PointerType( Type::Qualifiers(), new FunctionType( Type::Qualifiers(), true ) );
40                        } // switch
41                } // if
42                return typeInst;
43        }
44
45        Expression * ScrubTyVars::mutate( SizeofExpr *szeof ) {
46                // sizeof( T ) => _sizeof_T parameter, which is the size of T
47                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType * >( szeof->get_type() ) ) {
48                        Expression *expr = new NameExpr( std::string("_sizeof_") + typeInst->get_name() );
49                        return expr;
50                } else {
51                        return Mutator::mutate( szeof );
52                } // if
53        }
54
55        Expression * ScrubTyVars::mutate( AlignofExpr *algnof ) {
56                // alignof( T ) => _alignof_T parameter, which is the alignment of T
57                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType * >( algnof->get_type() ) ) {
58                        Expression *expr = new NameExpr( std::string("_alignof_") + typeInst->get_name() );
59                        return expr;
60                } else {
61                        return Mutator::mutate( algnof );
62                } // if
63        }
64
65        Type * ScrubTyVars::mutate( PointerType *pointer ) {
66                if ( TypeInstType *typeInst = dynamic_cast< TypeInstType * >( pointer->get_base() ) ) {
67                        if ( doAll || tyVars.find( typeInst->get_name() ) != tyVars.end() ) {
68                                Type *ret = mutate( typeInst );
69                                ret->get_qualifiers() += pointer->get_qualifiers();
70                                pointer->set_base( 0 );
71                                delete pointer;
72                                return ret;
73                        } // if
74                } // if
75                return Mutator::mutate( pointer );
76        }
77} // namespace GenPoly
78
79// Local Variables: //
80// tab-width: 4 //
81// mode: c++ //
82// compile-command: "make install" //
83// End: //
Note: See TracBrowser for help on using the repository browser.