|
OpenADFortTk (basic)
|
00001 // -*-Mode: C++;-*- 00002 // $Header: /m_home/m_utkej/Argonne/cvs2svn/cvs/OpenADFortTk/src/lib/support/Diagnostics.cxx,v 1.1 2007-10-08 18:28:32 utke Exp $ 00003 00004 #include "Diagnostics.h" 00005 00006 namespace fortTkSupport { 00007 00008 int Diagnostics::ourUserDebugLevel = 0; 00009 const char* Diagnostics::Unimplemented = "Unimplemented feature: "; 00010 const char* Diagnostics::UnexpectedInput = "Unexpected input: "; 00011 const char* Diagnostics::UnexpectedOpr = "Unexpected operator: "; 00012 00013 void Diagnostics::setDiagnosticFilterLevel(int lvl) { 00014 ourUserDebugLevel = lvl; 00015 } 00016 00017 int Diagnostics::getDiagnosticFilterLevel() { 00018 return ourUserDebugLevel; 00019 } 00020 00021 void Diagnostics::theMostVisitedBreakpointInHistory(const char* filenm, unsigned int lineno) { 00022 // Prevent this routine from ever being inlined 00023 static unsigned count = 0; 00024 count++; 00025 } 00026 00027 }