simarg.cc

来自「一个mips虚拟机非常好代码,使用C++来编写的,希望大家多学学,」· CC 代码 · 共 21 行

#include "simarg.hh"


// The Tcl interpreter.
Tcl_Interp *sulima_tcl;


// Destroy a ScriptError object.
ScriptError::~ScriptError()
{
    Tcl_DecrRefCount(obj);
}


// Display an error message stored in a Tcl object.
const char *
ScriptError::what() const
{
    return Tcl_GetStringFromObj(obj, NULL); 
}