.

DrTimothyAldenDavis · Feb 20, 2024 · e5032b0 · e5032b0
1 parent 45eff02
commit e5032b0
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 12 deletions.
diff --git a/SPEX/SPEX_Cholesky/Source/spex_cholesky_factor.c b/SPEX/SPEX_Cholesky/Source/spex_cholesky_factor.c
@@ -9,11 +9,11 @@
 
 //------------------------------------------------------------------------------
 
-# define SPEX_FREE_ALL                   \
+#define SPEX_FREE_ALL                    \
 {                                        \
-    HERE ; \
+    HERE2("A") ; \
     SPEX_factorization_free(&F, option); \
-    HERE ; \
+    HERE2("B") ; \
 }
 
 
@@ -149,6 +149,7 @@ HERE
     // Set outputs, return ok
     //--------------------------------------------------------------------------
 
+HERE
     (*F_handle) = F ;
 HERE
     return SPEX_OK;

diff --git a/SPEX/SPEX_Cholesky/Source/spex_cholesky_up_factor.c b/SPEX/SPEX_Cholesky/Source/spex_cholesky_up_factor.c
@@ -11,26 +11,26 @@
 
 #define SPEX_FREE_WORKSPACE         \
 {                                   \
-    HERE ; \
+    HERE2 ("1") ; \
     SPEX_matrix_free(&x, NULL);     \
-    HERE ; \
+    HERE2 ("2") ; \
     SPEX_FREE(xi);                  \
-    HERE ; \
+    HERE2 ("3") ; \
     SPEX_FREE(h);                   \
-    HERE ; \
+    HERE2 ("4") ; \
     SPEX_FREE(c);                   \
-    HERE ; \
+    HERE2 ("5") ; \
 }
 
 #define SPEX_FREE_ALL               \
 {                                   \
-    HERE ; \
+    HERE2 ("a") ; \
     SPEX_matrix_free(&L, NULL);     \
-    HERE ; \
+    HERE2 ("b") ; \
     SPEX_matrix_free(&rhos, NULL);  \
-    HERE ; \
+    HERE2 ("c") ; \
     SPEX_FREE_WORKSPACE             \
-    HERE ; \
+    HERE2 ("d") ; \
 }
 
 #include "spex_cholesky_internal.h"

diff --git a/SPEX/SPEX_Utilities/Source/spex_util_internal.h b/SPEX/SPEX_Utilities/Source/spex_util_internal.h
@@ -614,5 +614,13 @@ SPEX_info spex_amd
     fflush (stderr) ; \
 }
 
+#define HERE2(s) \
+{ \
+    /* printf ("here: %4d %s\n", __LINE__, __FILE__) ; */ \
+    fprintf (stderr, "HERE %s: %4d %s\n", s, __LINE__, __FILE__) ; \
+    fflush (stdout) ; \
+    fflush (stderr) ; \
+}
+
 #endif