1 //===-- LanguageRuntime.cpp -------------------------------------------------*- C++ -*-===// 2 // 3 // The LLVM Compiler Infrastructure 4 // 5 // This file is distributed under the University of Illinois Open Source 6 // License. See LICENSE.TXT for details. 7 // 8 //===----------------------------------------------------------------------===// 9 10 #include "lldb/Target/LanguageRuntime.h" 11 #include "lldb/Target/Target.h" 12 #include "lldb/Core/PluginManager.h" 13 14 using namespace lldb; 15 using namespace lldb_private; 16 17 LanguageRuntime* 18 LanguageRuntime::FindPlugin (Process *process, lldb::LanguageType language) 19 { 20 std::auto_ptr<LanguageRuntime> language_runtime_ap; 21 LanguageRuntimeCreateInstance create_callback; 22 23 for (uint32_t idx = 0; 24 (create_callback = PluginManager::GetLanguageRuntimeCreateCallbackAtIndex(idx)) != NULL; 25 ++idx) 26 { 27 language_runtime_ap.reset (create_callback(process, language)); 28 29 if (language_runtime_ap.get()) 30 return language_runtime_ap.release(); 31 } 32 33 return NULL; 34 } 35 36 //---------------------------------------------------------------------- 37 // Constructor 38 //---------------------------------------------------------------------- 39 LanguageRuntime::LanguageRuntime(Process *process) : 40 m_process (process) 41 { 42 } 43 44 //---------------------------------------------------------------------- 45 // Destructor 46 //---------------------------------------------------------------------- 47 LanguageRuntime::~LanguageRuntime() 48 { 49 } 50 51 BreakpointSP 52 LanguageRuntime::CreateExceptionBreakpoint( 53 Target &target, 54 lldb::LanguageType language, 55 bool catch_bp, 56 bool throw_bp, 57 bool is_internal) 58 { 59 BreakpointSP exc_breakpt_sp; 60 BreakpointResolverSP resolver_sp(new ExceptionBreakpointResolver(NULL, language, catch_bp, throw_bp)); 61 SearchFilterSP filter_sp(target.GetSearchFilterForModule(NULL)); 62 63 exc_breakpt_sp = target.CreateBreakpoint (filter_sp, resolver_sp, is_internal); 64 65 return exc_breakpt_sp; 66 } 67 68 LanguageRuntime::ExceptionBreakpointResolver::ExceptionBreakpointResolver (Breakpoint *bkpt, 69 LanguageType language, 70 bool catch_bp, 71 bool throw_bp) : 72 BreakpointResolver (bkpt, BreakpointResolver::ExceptionResolver), 73 m_language (language), 74 m_catch_bp (catch_bp), 75 m_throw_bp (throw_bp) 76 77 { 78 } 79 80 void 81 LanguageRuntime::ExceptionBreakpointResolver::GetDescription (Stream *s) 82 { 83 s->Printf ("Exception breakpoint (catch: %s throw: %s)", 84 m_catch_bp ? "on" : "off", 85 m_throw_bp ? "on" : "off"); 86 87 SetActualResolver(); 88 if (m_actual_resolver_sp) 89 { 90 s->Printf (" using: "); 91 m_actual_resolver_sp->GetDescription (s); 92 } 93 else 94 s->Printf (" the correct runtime exception handler will be determined when you run"); 95 } 96 97 bool 98 LanguageRuntime::ExceptionBreakpointResolver::SetActualResolver() 99 { 100 ProcessSP process_sp = m_process_wp.lock(); 101 102 // See if our process weak pointer is still good: 103 if (!process_sp) 104 { 105 // If not, our resolver is no good, so chuck that. Then see if we can get the 106 // target's new process. 107 m_actual_resolver_sp.reset(); 108 if (m_breakpoint) 109 { 110 Target &target = m_breakpoint->GetTarget(); 111 process_sp = target.GetProcessSP(); 112 if (process_sp) 113 { 114 m_process_wp = process_sp; 115 process_sp = m_process_wp.lock(); 116 } 117 } 118 } 119 120 if (process_sp) 121 { 122 if (m_actual_resolver_sp) 123 return true; 124 else 125 { 126 // If we have a process but not a resolver, set one now. 127 LanguageRuntime *runtime = process_sp->GetLanguageRuntime(m_language); 128 if (runtime) 129 { 130 m_actual_resolver_sp = runtime->CreateExceptionResolver (m_breakpoint, m_catch_bp, m_throw_bp); 131 return (bool) m_actual_resolver_sp; 132 } 133 else 134 return false; 135 } 136 } 137 else 138 return false; 139 } 140 141 Searcher::CallbackReturn 142 LanguageRuntime::ExceptionBreakpointResolver::SearchCallback (SearchFilter &filter, 143 SymbolContext &context, 144 Address *addr, 145 bool containing) 146 { 147 148 if (!SetActualResolver()) 149 { 150 return eCallbackReturnStop; 151 } 152 else 153 return m_actual_resolver_sp->SearchCallback (filter, context, addr, containing); 154 } 155 156 Searcher::Depth 157 LanguageRuntime::ExceptionBreakpointResolver::GetDepth () 158 { 159 if (!SetActualResolver()) 160 return eDepthTarget; 161 else 162 return m_actual_resolver_sp->GetDepth(); 163 } 164 165 /* 166 typedef enum LanguageType 167 { 168 eLanguageTypeUnknown = 0x0000, ///< Unknown or invalid language value. 169 eLanguageTypeC89 = 0x0001, ///< ISO C:1989. 170 eLanguageTypeC = 0x0002, ///< Non-standardized C, such as K&R. 171 eLanguageTypeAda83 = 0x0003, ///< ISO Ada:1983. 172 eLanguageTypeC_plus_plus = 0x0004, ///< ISO C++:1998. 173 eLanguageTypeCobol74 = 0x0005, ///< ISO Cobol:1974. 174 eLanguageTypeCobol85 = 0x0006, ///< ISO Cobol:1985. 175 eLanguageTypeFortran77 = 0x0007, ///< ISO Fortran 77. 176 eLanguageTypeFortran90 = 0x0008, ///< ISO Fortran 90. 177 eLanguageTypePascal83 = 0x0009, ///< ISO Pascal:1983. 178 eLanguageTypeModula2 = 0x000a, ///< ISO Modula-2:1996. 179 eLanguageTypeJava = 0x000b, ///< Java. 180 eLanguageTypeC99 = 0x000c, ///< ISO C:1999. 181 eLanguageTypeAda95 = 0x000d, ///< ISO Ada:1995. 182 eLanguageTypeFortran95 = 0x000e, ///< ISO Fortran 95. 183 eLanguageTypePLI = 0x000f, ///< ANSI PL/I:1976. 184 eLanguageTypeObjC = 0x0010, ///< Objective-C. 185 eLanguageTypeObjC_plus_plus = 0x0011, ///< Objective-C++. 186 eLanguageTypeUPC = 0x0012, ///< Unified Parallel C. 187 eLanguageTypeD = 0x0013, ///< D. 188 eLanguageTypePython = 0x0014 ///< Python. 189 } LanguageType; 190 */ 191 192 struct language_name_pair { 193 const char *name; 194 LanguageType type; 195 }; 196 197 struct language_name_pair language_names[] = 198 { 199 // To allow GetNameForLanguageType to be a simple array lookup, the first 200 // part of this array must follow enum LanguageType exactly. 201 { "unknown", eLanguageTypeUnknown }, 202 { "c89", eLanguageTypeC89 }, 203 { "c", eLanguageTypeC }, 204 { "ada83", eLanguageTypeAda83 }, 205 { "c++", eLanguageTypeC_plus_plus }, 206 { "cobol74", eLanguageTypeCobol74 }, 207 { "cobol85", eLanguageTypeCobol85 }, 208 { "fortran77", eLanguageTypeFortran77 }, 209 { "fortran90", eLanguageTypeFortran90 }, 210 { "pascal83", eLanguageTypePascal83 }, 211 { "modula2", eLanguageTypeModula2 }, 212 { "java", eLanguageTypeJava }, 213 { "c99", eLanguageTypeC99 }, 214 { "ada95", eLanguageTypeAda95 }, 215 { "fortran95", eLanguageTypeFortran95 }, 216 { "pli", eLanguageTypePLI }, 217 { "objective-c", eLanguageTypeObjC }, 218 { "objective-c++", eLanguageTypeObjC_plus_plus }, 219 { "upc", eLanguageTypeUPC }, 220 { "d", eLanguageTypeD }, 221 { "python", eLanguageTypePython }, 222 // Now synonyms, in arbitrary order 223 { "objc", eLanguageTypeObjC }, 224 { "objc++", eLanguageTypeObjC_plus_plus } 225 }; 226 227 static uint32_t num_languages = sizeof(language_names) / sizeof (struct language_name_pair); 228 229 LanguageType 230 LanguageRuntime::GetLanguageTypeFromString (const char *string) 231 { 232 for (uint32_t i = 0; i < num_languages; i++) 233 { 234 if (strcasecmp (language_names[i].name, string) == 0) 235 return (LanguageType) language_names[i].type; 236 } 237 return eLanguageTypeUnknown; 238 } 239 240 const char * 241 LanguageRuntime::GetNameForLanguageType (LanguageType language) 242 { 243 if (language < num_languages) 244 return language_names[language].name; 245 else 246 return language_names[eLanguageTypeUnknown].name; 247 } 248 249