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