| // { 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 { | |
| const char* name; | |
| InterpFuncP func; | |
| }; | |
| static InterpTableEntry funcTable[] = { | |
| { "alias" , &PTcl::alias } , | |
| 0, 0 | |
| }; |