diff options
| author | Dimitri van Heesch <dimitri@stack.nl> | 2012-04-29 17:51:51 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2012-04-29 17:51:51 (GMT) |
| commit | 44ca9512aaeb19f7fbd07afda88ec4cfe53ce831 (patch) | |
| tree | a8d7cbd0da612bb0b1fa97dcc1bac1838f845338 /src/tclscanner.l | |
| parent | f3e0c94b327d47e5c3d3a36a9a6300cee8d2a537 (diff) | |
| download | Doxygen-44ca9512aaeb19f7fbd07afda88ec4cfe53ce831.zip Doxygen-44ca9512aaeb19f7fbd07afda88ec4cfe53ce831.tar.gz Doxygen-44ca9512aaeb19f7fbd07afda88ec4cfe53ce831.tar.bz2 | |
Release-1.8.0-20120429
Diffstat (limited to 'src/tclscanner.l')
| -rw-r--r-- | src/tclscanner.l | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/tclscanner.l b/src/tclscanner.l index 4975b8f..0749012 100644 --- a/src/tclscanner.l +++ b/src/tclscanner.l @@ -54,23 +54,23 @@ //! Application error. #define tcl_err \ - printf("Error %d %s() in %s line %d! ",__LINE__,__FUNCTION__,tcl.file_name.data(),yylineno); \ + printf("Error %d %s() at line %d! ",__LINE__,tcl.file_name.data(),yylineno); \ yy_push_state(ERROR); \ yyless(0); \ printf //! Application warning. #define tcl_war \ - printf("Warning %d %s() in %s line %d: ",__LINE__,__FUNCTION__,tcl.file_name.data(),yylineno); \ + printf("Warning %d %s() at line %d: ",__LINE__,tcl.file_name.data(),yylineno); \ printf //! Application message. #define tcl_inf \ - if (0) printf("--- %.4d %s() %d@%d: ",__LINE__,__FUNCTION__,yylineno,yy_start_stack_ptr) && printf + if (0) printf("--- %.4d %d@%d: ",__LINE__,yylineno,yy_start_stack_ptr) && printf //! Debug message. #define D\ - if (0) printf("--- %.4d %s() %d@%d: %s\n",__LINE__,__FUNCTION__,yylineno,yy_start_stack_ptr,yytext); + if (0) printf("--- %.4d %d@%d: %s\n",__LINE__,yylineno,yy_start_stack_ptr,yytext); // BEGIN of copy from tclUtil.c // - Tcl_Interp removed |