| [0dd3a2f] | 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 | //
 | 
|---|
| [40e636a] | 7 | // FixFunction.cc --
 | 
|---|
| [0dd3a2f] | 8 | //
 | 
|---|
 | 9 | // Author           : Richard C. Bilson
 | 
|---|
 | 10 | // Created On       : Sun May 17 16:19:49 2015
 | 
|---|
 | 11 | // Last Modified By : Peter A. Buhr
 | 
|---|
| [a7c90d4] | 12 | // Last Modified On : Mon Mar  6 23:36:59 2017
 | 
|---|
 | 13 | // Update Count     : 6
 | 
|---|
| [0dd3a2f] | 14 | //
 | 
|---|
 | 15 | 
 | 
|---|
| [51b73452] | 16 | #include "FixFunction.h"
 | 
|---|
| [30f9072] | 17 | 
 | 
|---|
 | 18 | #include <list>                   // for list
 | 
|---|
 | 19 | 
 | 
|---|
 | 20 | #include "Common/utility.h"       // for maybeClone
 | 
|---|
 | 21 | #include "SynTree/Declaration.h"  // for FunctionDecl, ObjectDecl, Declarati...
 | 
|---|
| [c3acf0aa] | 22 | #include "SynTree/Expression.h"   // for Expression
 | 
|---|
| [30f9072] | 23 | #include "SynTree/Type.h"         // for ArrayType, PointerType, Type, Basic...
 | 
|---|
| [51b73452] | 24 | 
 | 
|---|
 | 25 | namespace SymTab {
 | 
|---|
| [a7c90d4] | 26 |         FixFunction::FixFunction() : isVoid( false ) {}
 | 
|---|
| [51b73452] | 27 | 
 | 
|---|
| [21b7161] | 28 | 
 | 
|---|
 | 29 |         DeclarationWithType * FixFunction::postmutate(FunctionDecl *functionDecl) {
 | 
|---|
| [8b11840] | 30 |                 // can't delete function type because it may contain assertions, so transfer ownership to new object
 | 
|---|
| [21b7161] | 31 |                 ObjectDecl *pointer = new ObjectDecl( functionDecl->name, functionDecl->get_storageClasses(), functionDecl->linkage, nullptr, new PointerType( Type::Qualifiers(), functionDecl->type ), nullptr, functionDecl->attributes );
 | 
|---|
 | 32 |                 functionDecl->attributes.clear();
 | 
|---|
| [8b11840] | 33 |                 functionDecl->type = nullptr;
 | 
|---|
| [0dd3a2f] | 34 |                 delete functionDecl;
 | 
|---|
 | 35 |                 return pointer;
 | 
|---|
 | 36 |         }
 | 
|---|
| [51b73452] | 37 | 
 | 
|---|
| [21b7161] | 38 |         Type * FixFunction::postmutate(ArrayType *arrayType) {
 | 
|---|
| [40e636a] | 39 |                 // need to recursively mutate the base type in order for multi-dimensional arrays to work.
 | 
|---|
| [21b7161] | 40 |                 PointerType *pointerType = new PointerType( arrayType->get_qualifiers(), arrayType->base, arrayType->dimension, arrayType->isVarLen, arrayType->isStatic );
 | 
|---|
 | 41 |                 arrayType->base = nullptr;
 | 
|---|
 | 42 |                 arrayType->dimension = nullptr;
 | 
|---|
| [0dd3a2f] | 43 |                 delete arrayType;
 | 
|---|
 | 44 |                 return pointerType;
 | 
|---|
 | 45 |         }
 | 
|---|
| [51b73452] | 46 | 
 | 
|---|
| [21b7161] | 47 |         void FixFunction::premutate(VoidType *) {
 | 
|---|
 | 48 |                 isVoid = true;
 | 
|---|
| [89e6ffc] | 49 |         }
 | 
|---|
 | 50 | 
 | 
|---|
| [21b7161] | 51 |         void FixFunction::premutate(FunctionDecl *) { visit_children = false; }
 | 
|---|
| [954ef5b] | 52 |         void FixFunction::premutate(ArrayType *) { visit_children = false; }
 | 
|---|
| [21b7161] | 53 |         void FixFunction::premutate(BasicType *) { visit_children = false; }
 | 
|---|
 | 54 |         void FixFunction::premutate(PointerType *) { visit_children = false; }
 | 
|---|
 | 55 |         void FixFunction::premutate(StructInstType *) { visit_children = false; }
 | 
|---|
 | 56 |         void FixFunction::premutate(UnionInstType *) { visit_children = false; }
 | 
|---|
 | 57 |         void FixFunction::premutate(EnumInstType *) { visit_children = false; }
 | 
|---|
 | 58 |         void FixFunction::premutate(TraitInstType *) { visit_children = false; }
 | 
|---|
 | 59 |         void FixFunction::premutate(TypeInstType *) { visit_children = false; }
 | 
|---|
 | 60 |         void FixFunction::premutate(TupleType *) { visit_children = false; }
 | 
|---|
 | 61 |         void FixFunction::premutate(VarArgsType *) { visit_children = false; }
 | 
|---|
 | 62 |         void FixFunction::premutate(ZeroType *) { visit_children = false; }
 | 
|---|
 | 63 |         void FixFunction::premutate(OneType *) { visit_children = false; }
 | 
|---|
| [51b73452] | 64 | } // namespace SymTab
 | 
|---|
| [0dd3a2f] | 65 | 
 | 
|---|
 | 66 | // Local Variables: //
 | 
|---|
 | 67 | // tab-width: 4 //
 | 
|---|
 | 68 | // mode: c++ //
 | 
|---|
 | 69 | // compile-command: "make install" //
 | 
|---|
 | 70 | // End: //
 | 
|---|