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,