1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
--- generic/mysqltcl.c Mon Dec 27 07:34:33 2004
+++ generic/mysqltcl.c Sun Jul 31 19:43:08 2005
@@ -184,5 +184,4 @@
{
Tcl_ObjType *oldTypePtr = objPtr->typePtr;
- Tcl_HashEntry *entryPtr;
if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
@@ -1389,6 +1388,6 @@
{
MysqltclState *statePtr = (MysqltclState *)clientData;
- int code ;
- int count ;
+ int code = TCL_ERROR;
+ int count = 0;
MysqlTclHandle *handle;
@@ -1398,5 +1397,4 @@
MYSQL_ROW row ;
int *val = NULL;
- int breakLoop = 0;
unsigned long *lengths;
@@ -1456,13 +1454,7 @@
case TCL_CONTINUE:
case TCL_OK:
- break ;
- case TCL_BREAK:
- breakLoop=1;
- break;
+ continue;
- default:
- breakLoop=1;
- break;
}
- if (breakLoop==1) break;
+ break;
}
}
@@ -2150,5 +2143,4 @@
static int Mysqltcl_NewNull(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
- Tcl_Obj *objPtr;
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, "");
|
