[Tclresource-commits] Source tclResourceOSX.c,1.13,1.14

[Bernard D. <bde...@us...>]

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;
 		}
 	    }