Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26142
Modified Files:
tclResourceOSX.c
Log Message:
Tcl_SetIntObj to return attributes value
Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- tclResourceOSX.c 6 Sep 2004 05:08:10 -0000 1.13
+++ tclResourceOSX.c 6 Sep 2004 21:40:29 -0000 1.14
@@ -394,7 +394,7 @@
(char *) NULL);
return TCL_ERROR;
} else {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(theAttrs) );
+ Tcl_SetIntObj(resultPtr, theAttrs);
return TCL_OK;
}
}
@@ -554,7 +554,7 @@
result = TCL_ERROR;
goto attributesDone;
} else {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(theAttrs) );
+ Tcl_SetIntObj(resultPtr, theAttrs);
result = TCL_OK;
}
}
|
