From 75e78abe56ede12e3b06e4ea26fe2c7e7359664a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Thu, 16 Jul 2009 12:55:02 +0000 Subject: [PATCH] Oops. Forgot a few places to set up c_symbol_name for non-Unicode builds. --- lisp/os-common.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/os-common.c b/lisp/os-common.c index e872b6efa..9739ce5b0 100644 --- a/lisp/os-common.c +++ b/lisp/os-common.c @@ -1,6 +1,6 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.28 2009/06/11 16:04:01 rtoy Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.29 2009/07/16 12:55:02 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. @@ -259,6 +259,8 @@ os_resolve_data_linkage(void) char c_symbol_name[1000]; convert_lisp_string(c_symbol_name, symbol_name->data, (symbol_name->length >> 2)); +#else +#define c_symbol_name ((char*) symbol_name->data) #endif if (type == 2 && lib_list != NIL) { void *target_addr = os_dlsym(c_symbol_name, lib_list); @@ -306,6 +308,8 @@ os_link_one_symbol(long entry) #ifdef UNICODE convert_lisp_string(c_symbol_name, symbol_name->data, (symbol_name->length >> 2)); +#else +#define c_symbol_name ((char*) symbol_name->data) #endif target_addr = os_dlsym(c_symbol_name, -- GitLab