[49326] trunk/base/src/tclobjc1.0/tclobjc_types.m

[toby at macports.org]

Revision: 49326
          http://trac.macports.org/changeset/49326
Author:   toby at macports.org
Date:     2009-04-07 09:02:13 -0700 (Tue, 07 Apr 2009)
Log Message:
-----------
revert accidental commit

Modified Paths:
--------------
    trunk/base/src/tclobjc1.0/tclobjc_types.m

Modified: trunk/base/src/tclobjc1.0/tclobjc_types.m
===================================================================
--- trunk/base/src/tclobjc1.0/tclobjc_types.m	2009-04-07 16:01:29 UTC (rev 49325)
+++ trunk/base/src/tclobjc1.0/tclobjc_types.m	2009-04-07 16:02:13 UTC (rev 49326)
@@ -82,20 +82,13 @@
  * Release the internal objective-c instance.
  */
 static void free_objc_internalrep(Tcl_Obj *objPtr UNUSED) {
-	id objcId = objPtr->internalRep.otherValuePtr;
-	if (Tcl_IsShared(objPtr)) {
-		NSLog(@"shared  %@ %p", [objcId class], objcId);
-		return;
-	}
-	NSLog(@"release %@ %p", [objcId class], objcId);
-	[objcId release];
+    /* TODO cleanup */
 }
 
 /**
  * Duplicate the internal objective-c pointer.
  */
 static void dup_objc_internalrep(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr) {
-	printf("dup_objc_internalrep: %p\n", srcPtr->internalRep.otherValuePtr);
 	dupPtr->internalRep.otherValuePtr = srcPtr->internalRep.otherValuePtr;
 }
 
@@ -151,7 +144,6 @@
 		oldTypePtr->freeIntRepProc(objPtr);
 	}
 
-	printf("set_objc_fromstring: %p\n", (void *)objcId);
 	objPtr->internalRep.otherValuePtr = objcId;
 	objPtr->typePtr = &tclObjcIdType;
 
@@ -182,7 +174,6 @@
 
 	objPtr->bytes = NULL;
 
-	NSLog(@"retain  %@ %p", [objcId class], objcId);
 	objPtr->internalRep.otherValuePtr = [objcId retain]; /* this is a leak */
 	objPtr->typePtr = &tclObjcIdType;
 	return (objPtr);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090407/602282ed/attachment-0001.html>