Changeset 22274 for v6

Timestamp:

09/18/08 12:02:00 (2 months ago)

Author:

pmurias

Message:

[smop] SMOP_RELEASE and SMOP_REFERENCE print line,function and file with SMOP_LOWLEVEL_MEM_DEBUG

Location:

v6/smop

Files:

• CMakeLists.txt (modified) (1 diff)
• include/smop_base.h (modified) (4 diffs)
• src/smop_s1p_io.ri (modified) (1 diff)

v6/smop/CMakeLists.txt

@@ -1 +1 @@
 project (smop)
-SET( CMAKE_C_FLAGS "-O0 -g3 -DSMOP_LOWLEVEL_MEM_TRACE" )
+SET( CMAKE_C_FLAGS "-O0 -g3 -DSMOP_LOWLEVEL_MEM_DEBUG -DSMOP_LOWLEVEL_MEM_TRACE" )
 SET( CMAKE_ALLOW_LOOSE_LOOP_CONSTRUCTS TRUE )
 cmake_minimum_required (VERSION 2.6)

v6/smop/include/smop_base.h

@@ -1 @@
-
+#include <stdio.h>
 #ifndef SMOP_BASE_H
 #define SMOP_BASE_H
@@ -83 +83 @@
       ))
 
+#ifdef SMOP_LOWLEVEL_MEM_DEBUG
+#define SMOP_REFERENCE(interpreter, object) \
+      (fprintf(stderr,"SMOP_REFERENCE(%p) at %s line %d file %s\n",object,__func__,__LINE__,__FILE__),\
+      (((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object))->REFERENCE( (SMOP__Object*)interpreter, \
+          ((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object)), \
+          (SMOP__Object*)object \
+      )))
+
+#define SMOP_RELEASE(interpreter, object) \
+      (fprintf(stderr,"SMOP_RELEASE(%p) at %s line %d file %s\n",object,__func__,__LINE__,__FILE__), \
+      (((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object))->RELEASE( (SMOP__Object*)interpreter, \
+          ((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object)), \
+          (SMOP__Object*)object \
+      )))
+#else
 #define SMOP_REFERENCE(interpreter, object) \
       (((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object))->REFERENCE( (SMOP__Object*)interpreter, \
@@ -88 +103 @@
           (SMOP__Object*)object \
       ))
-
 #define SMOP_RELEASE(interpreter, object) \
       (((SMOP__ResponderInterface*)(((SMOP__Object*)object)->RI)?(((SMOP__Object*)object)->RI):((SMOP__ResponderInterface*)object))->RELEASE( (SMOP__Object*)interpreter, \
@@ -94 +108 @@
           (SMOP__Object*)object \
       ))
+#endif
 
 

v6/smop/src/smop_s1p_io.ri

@@ -31 +31 @@
             printf("%.*s",len,str);
         } else {
-            fprintf(stderr,"unsupported object (%s) passed to S1P::IO.print\n",SMOP_RI(obj)->id);
+            printf("unsupported object %p (%s) passed to S1P::IO.print\n",obj,SMOP_RI(obj)->id);
         }