blob: 4c7afeb2a439f250a188e9a0ee1633f71560d0ad [file] [log] [blame]
// { dg-do assemble }
// GROUPS passed ptolemy-bugs
class Tcl_Interp;
class PTcl {
public:
PTcl(Tcl_Interp* interp = 0);
~PTcl();
int alias(int argc,char** argv);
};
typedef int (PTcl::*InterpFuncP)(int,char**);
struct InterpTableEntry {
char* name;
InterpFuncP func;
};
static InterpTableEntry funcTable[] = {
{ "alias" , &PTcl::alias } ,
0, 0
};