diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 12:11:20 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:44 +1000 |
| commit | 9652302fec62f76bf894c6b9eb849bda6994c293 (patch) | |
| tree | ca40df6d8ea59c853066b7c5361238d8fdc6be49 /jim-regexp.c | |
| parent | a7335808c5725934d81dbe68247b62a6ab08bf2f (diff) | |
| download | jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.zip jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.tar.gz jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.tar.bz2 | |
Various general fixes and cleanups
Add lsearch -command, update case to use lsearch
Rename tcl6.tcl to tclcompat.tcl
Remove // style comments
Expand some tabs to spaces
Fix some compiler warnings
Remove some unused functions
Don't close fd=-1 in exec
Diffstat (limited to 'jim-regexp.c')
| -rw-r--r-- | jim-regexp.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/jim-regexp.c b/jim-regexp.c index 3c36ae9..deffb50 100644 --- a/jim-regexp.c +++ b/jim-regexp.c @@ -238,8 +238,6 @@ int Jim_RegexpCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) * index information in those variables. */ - //fprintf(stderr, "source_str=%s, [0].rm_eo=%d\n", source_str, pmatch[0].rm_eo); - j = 0; for (i += 2; opt_inline ? pmatch[j].rm_so != -1 : i < argc; i++, j++) { Jim_Obj *resultObj; |