|
OpenADFortTk (basic)
|
00001 #ifndef ADJUSTINTERFACES_H_INCLUDED 00002 #define ADJUSTINTERFACES_H_INCLUDED 00003 00004 #include "Open64IRInterface/Open64BasicTypes.h" 00005 00013 class AdjustInterfaces{ 00014 00015 public : 00016 00017 AdjustInterfaces(PU_Info* aPUInfoForest_p): myPUInfoForest_p(aPUInfoForest_p){ 00018 }; 00019 00024 void doIt(); 00025 00026 private: 00027 00031 void forPUInfoTree(PU_Info* aPUInfoTree_p); 00032 00036 void forPUInfo(PU_Info* aPUInfo_p); 00037 00038 TY_IDX findPUSymbolType(ST* puName_ST_p, 00039 ST* dummyLocal_ST_p, 00040 INT wnKidIdx); 00041 00045 PU_Info* findPU(ST* puName_ST_p); 00046 00050 PU_Info* myPUInfoForest_p; 00051 00052 00053 }; 00054 00055 #endif