[Poet-commit] SF.net SVN: poet:[43] trunk

[<mer...@us...>]

Revision: 43
          http://poet.svn.sourceforge.net/poet/?rev=43&view=rev
Author:   mercurio
Date:     2008-10-27 20:28:14 +0000 (Mon, 27 Oct 2008)

Log Message:
-----------
Added DEBUG_FINDOBJ to C code

Modified Paths:
--------------
    trunk/generic/poet.c
    trunk/generic/poet.h
    trunk/win/Poet21-84.dll
    trunk/win/Poet21-85.dll
    trunk/win/libPoet21.a
    trunk/win/poet.def

Modified: trunk/generic/poet.c
===================================================================
--- trunk/generic/poet.c	2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/generic/poet.c	2008-10-27 20:28:14 UTC (rev 43)
@@ -800,12 +800,25 @@
 	Tcl_CmdInfo	ci;
 	Poet_Obj* po;
 
+#ifdef DEBUG_FINDOBJ
+	debug_print("FindPoetObj: obj = %x\n",obj);
+	if(obj != NULL) debug_print("Poet_FindPoetObj: looking for %s\n",Str(obj));
+#endif
+
 	if(obj == NULL) return(NULL);
 
-	if(!Tcl_GetCommandInfoFromToken(Tcl_GetCommandFromObj(interp,obj),&ci)) 
+	if(!Tcl_GetCommandInfoFromToken(Tcl_GetCommandFromObj(interp,obj),&ci)) {
+#ifdef DEBUG_FINDOBJ
+	debug_print("Poet_FindPoetObj: Tcl_GetCommandInfoFromToken failed\n");
+#endif
 		return(NULL);
+	}
 	else {
 		po = (Poet_Obj*)ci.objClientData;
+#ifdef DEBUG_FINDOBJ
+	debug_print("Poet_FindPoetObj: po = %x\n",po);
+	if(po != NULL) debug_print("Poet_FindPoetObj: po->magic = %x, POET_MAGIC = %x\n",po->magic,POET_MAGIC);
+#endif
 		if(po == NULL || po->magic != POET_MAGIC) 
 			return(NULL);
 		else 

Modified: trunk/generic/poet.h
===================================================================
--- trunk/generic/poet.h	2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/generic/poet.h	2008-10-27 20:28:14 UTC (rev 43)
@@ -20,6 +20,7 @@
 #define DEBUG_TRAVERSAL 
 #define DEBUG_STACK
 #define DEBUG_MEMORY
+#define DEBUG_FINDOBJ 
  */
 
 /* 

Modified: trunk/win/Poet21-84.dll
===================================================================
(Binary files differ)

Modified: trunk/win/Poet21-85.dll
===================================================================
(Binary files differ)

Modified: trunk/win/libPoet21.a
===================================================================
(Binary files differ)

Modified: trunk/win/poet.def
===================================================================
--- trunk/win/poet.def	2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/win/poet.def	2008-10-27 20:28:14 UTC (rev 43)
@@ -86,4 +86,6 @@
 	Poet_slotNodeInfo @ 84
 	Poet_slotUnconstrain @ 85
 	Poet_slotUnlink @ 86
-	pdoeCompare @ 87
+	debug_chanInit @ 87
+	debug_print @ 88
+	pdoeCompare @ 89


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.