|
OpenADFortTk (basic)
|
00001 #include "Open64IRInterface/Open64BasicTypes.h" 00002 #include "Open64IRInterface/stab_attr.h" 00003 #include "Open64IRInterface/wn_attr.h" 00004 #include "Diagnostics.h" 00005 #include "Symbol.h" 00006 00007 00008 namespace fortTkSupport { 00009 00010 Symbol::Symbol() 00011 : st(NULL), active(false) 00012 { 00013 } 00014 00015 Symbol::Symbol(const ST* st_, WNId wnid_, bool act_) 00016 { 00017 SetST(st_); 00018 SetPathVorlage(wnid_); 00019 SetActive(act_); 00020 } 00021 00022 Symbol::~Symbol() 00023 { 00024 } 00025 00026 void 00027 Symbol::Dump(std::ostream& o) const 00028 { 00029 o << "Symbol\n"; 00030 } 00031 00032 void 00033 Symbol::DDump() const 00034 { 00035 Dump(std::cerr); 00036 } 00037 00038 }