|
OpenADFortTk (basic)
|
00001 #ifndef CleanUpWhirl_H_INCLUDED 00002 #define CleanUpWhirl_H_INCLUDED 00003 00004 #include "Open64BasicTypes.h" 00005 00012 class CleanUpWhirl { 00013 00014 public : 00015 00016 static void forPUInfoForest(PU_Info* aPUInfoForest_p); 00017 00018 private: 00019 00020 static void forPUInfoTree(PU_Info* aPUInfoTree_p, 00021 PU_Info* aTopPUInfo_p); 00022 00023 static void forPUInfo(PU_Info* aPUInfo_p, 00024 PU_Info* aTopPUInfo_p); 00025 00026 static PU_Info* findModulePU(PU_Info* aPUInfoForest_p, 00027 ST* moduleName_ST_p); 00028 00029 static ST* findModuleSymbol(ST* moduleName_ST_p, 00030 ST* dummyLocal_ST_p, 00031 PU_Info* aTopPUInfo_p); 00032 }; 00033 00034 #endif