1 // { dg-do assemble  }
2 // GROUPS passed ptolemy-bugs
3 class Tcl_Interp;
4 
5 class PTcl {
6 public:
7 	PTcl(Tcl_Interp* interp = 0);
8 	~PTcl();
9 	int alias(int argc,char** argv);
10 };
11 
12 typedef int (PTcl::*InterpFuncP)(int,char**);
13 
14 struct InterpTableEntry {
15 	const char* name;
16 	InterpFuncP func;
17 };
18 
19 
20 static InterpTableEntry funcTable[] = {
21 	{ "alias" , &PTcl::alias  } ,
22 	0, 0
23 };
24