[Poet-commit] SF.net SVN: poet:[43] trunk
Brought to you by:
mercurio
|
From: <mer...@us...> - 2008-10-27 20:28:18
|
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.
|