|
OpenADFortTk (basic)
|
#include <AdjustInterfaces.h>
Public Member Functions | |
| AdjustInterfaces (PU_Info *aPUInfoForest_p) | |
| void | doIt () |
Private Member Functions | |
| void | forPUInfoTree (PU_Info *aPUInfoTree_p) |
| void | forPUInfo (PU_Info *aPUInfo_p) |
| TY_IDX | findPUSymbolType (ST *puName_ST_p, ST *dummyLocal_ST_p, INT wnKidIdx) |
| PU_Info * | findPU (ST *puName_ST_p) |
Private Attributes | |
| PU_Info * | myPUInfoForest_p |
for local explicit interfaces the front-end generates references to local symbol table that do not reflect type changes made to definitions if they exist in the input source. We need to adjust the type information.
Definition at line 13 of file AdjustInterfaces.h.
| AdjustInterfaces::AdjustInterfaces | ( | PU_Info * | aPUInfoForest_p | ) | [inline] |
Definition at line 17 of file AdjustInterfaces.h.
| void AdjustInterfaces::doIt | ( | ) |
top level routine that does it for the forest of PU trees
Definition at line 5 of file AdjustInterfaces.cxx.
References forPUInfoTree(), and myPUInfoForest_p.
Referenced by xaif2whirl::real_main().

| PU_Info * AdjustInterfaces::findPU | ( | ST * | puName_ST_p | ) | [private] |
find a PU in the forest
Definition at line 169 of file AdjustInterfaces.cxx.
References FORTTK_ASSERT_WARN, and myPUInfoForest_p.
Referenced by findPUSymbolType().
| TY_IDX AdjustInterfaces::findPUSymbolType | ( | ST * | puName_ST_p, |
| ST * | dummyLocal_ST_p, | ||
| INT | wnKidIdx | ||
| ) | [private] |
Definition at line 134 of file AdjustInterfaces.cxx.
References findPU(), FORTTK_ASSERT_WARN, FORTTK_MSG, and PU_SetGlobalState().
Referenced by forPUInfo().

| void AdjustInterfaces::forPUInfo | ( | PU_Info * | aPUInfo_p | ) | [private] |
for each PU within a tree of PUs
Definition at line 72 of file AdjustInterfaces.cxx.
References copyTypeAdjust(), findPUSymbolType(), FORTTK_ASSERT, FORTTK_MSG, PU_SetGlobalState(), and SexpTags::ST.
Referenced by forPUInfoTree().

| void AdjustInterfaces::forPUInfoTree | ( | PU_Info * | aPUInfoTree_p | ) | [private] |
recursively for each (sub) tree of PUs
Definition at line 14 of file AdjustInterfaces.cxx.
References forPUInfo().
Referenced by doIt().

PU_Info* AdjustInterfaces::myPUInfoForest_p [private] |
we don't own this
Definition at line 50 of file AdjustInterfaces.h.