diff --git a/lisp/os-common.c b/lisp/os-common.c index 822ea3e44aaf4268a78301a75e8a0e9dce16f8fc..7023e48af89d1572d948bec17f7f28b0292fef07 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.24 2007/07/31 11:50:17 cshapiro Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.25 2007/12/10 21:14:16 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. @@ -168,7 +168,7 @@ os_foreign_linkage_init(void) (char *) symbol_name->data); lose("First element of linkage_data is bogus.\n"); } - arch_make_linkage_entry(i, &call_into_c, 1); + arch_make_linkage_entry(i, (void*) call_into_c, 1); #elif (defined(DARWIN) && defined(__ppc__)) if (type != 1 || strcmp((char *) symbol_name->data, "_call_into_c")) { fprintf(stderr, "linkage_data is %s but expected call_into_c\n",