[cmucl-cvs] CMUCL commit: cross-sparc-branch src/lisp (os-common.c)

[Raymond Toy]

    Date: Tuesday, November 16, 2010 @ 17:06:31
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp
     Tag: cross-sparc-branch

Modified: os-common.c

Add some debugging prints, but not activated.


-------------+
 os-common.c |   33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)


Index: src/lisp/os-common.c
diff -u src/lisp/os-common.c:1.31 src/lisp/os-common.c:1.31.10.1
--- src/lisp/os-common.c:1.31	Mon Feb  1 14:27:07 2010
+++ src/lisp/os-common.c	Tue Nov 16 17:06:29 2010
@@ -1,6 +1,6 @@
 /*
 
- $Header: /project/cmucl/cvsroot/src/lisp/os-common.c,v 1.31 2010-02-01 19:27:07 rtoy Rel $
+ $Header: /project/cmucl/cvsroot/src/lisp/os-common.c,v 1.31.10.1 2010-11-16 22:06:29 rtoy Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -195,6 +195,23 @@
 	 */
 
         convert_lisp_string(c_symbol_name, symbol_name->data, (symbol_name->length >> 2));
+
+#if 0
+        fprintf(stderr, "i =%2d:  %s\n", i, c_symbol_name);
+        {
+            int k;
+            unsigned short int* wide_string;
+                
+            fprintf(stderr, "  symbol_name->data = ");
+
+            wide_string = (unsigned short int *) symbol_name->data;
+                
+            for (k = 0; k < (symbol_name->length >> 2); ++k) {
+                fprintf(stderr, "%4x ", wide_string[k]);
+            }
+            fprintf(stderr, "\n");
+        }
+#endif        
 	if (i == 0) {
 #if defined(sparc)
 	    if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, "call_into_c")) {
@@ -226,6 +243,20 @@
 	    void *target_addr = os_dlsym(c_symbol_name, NIL);
 
 	    if (!target_addr) {
+#if 0
+                int k;
+                unsigned short int* wide_string;
+                
+                fprintf(stderr, "c_symbol_name = `%s'\n", c_symbol_name);
+                fprintf(stderr, "symbol_name->data = \n");
+
+                wide_string = (unsigned short int *) symbol_name->data;
+                
+                for (k = 0; k < (symbol_name->length >> 2); ++k) {
+                    fprintf(stderr, "%4x ", wide_string[k]);
+                }
+                fprintf(stderr, "\n");
+#endif                
 		lose("%s is not defined.\n",  c_symbol_name);
 	    }
 	    arch_make_linkage_entry(i / LINKAGE_DATA_ENTRY_SIZE, target_addr,