From: Bruno H. <br...@cl...> - 2005-03-10 12:09:02
|
These warnings are not dangerous, but clutter up the build log. gcc -Dppc -g -Wall -O2 -no-cpp-precomp -I. -c -o interrupt.o interrupt.c interrupt.c: In function `arrange_return_to_lisp_function': interrupt.c:721: warning: assignment makes integer from pointer without a cast interrupt.c:723: warning: assignment makes integer from pointer without a cast interrupt.c:725: warning: assignment makes integer from pointer without a cast interrupt.c: In function `handle_guard_page_triggered': interrupt.c:795: warning: comparison of distinct pointer types lacks a cast interrupt.c:796: warning: comparison of distinct pointer types lacks a cast Here is a fix. *** sbcl-0.8.20/src/runtime/interrupt.c.bak Sun Feb 13 15:27:11 2005 --- sbcl-0.8.20/src/runtime/interrupt.c Sun Mar 6 12:53:02 2005 *************** *** 718,728 **** #else /* this much of the calling convention is common to all non-x86 ports */ ! *os_context_pc_addr(context) = code; *os_context_register_addr(context,reg_NARGS) = 0; ! *os_context_register_addr(context,reg_LIP) = code; *os_context_register_addr(context,reg_CFP) = ! current_control_frame_pointer; #endif #ifdef ARCH_HAS_NPC_REGISTER *os_context_npc_addr(context) = --- 718,728 ---- #else /* this much of the calling convention is common to all non-x86 ports */ ! *os_context_pc_addr(context) = (unsigned long) code; *os_context_register_addr(context,reg_NARGS) = 0; ! *os_context_register_addr(context,reg_LIP) = (unsigned long) code; *os_context_register_addr(context,reg_CFP) = ! (unsigned long) current_control_frame_pointer; #endif #ifdef ARCH_HAS_NPC_REGISTER *os_context_npc_addr(context) = *************** *** 792,799 **** protect_control_stack_return_guard_page(th->pid,0); return 1; } ! else if (addr >= undefined_alien_address && ! addr < undefined_alien_address + os_vm_page_size) { arrange_return_to_lisp_function (context, SymbolFunction(UNDEFINED_ALIEN_VARIABLE_ERROR)); return 1; --- 792,799 ---- protect_control_stack_return_guard_page(th->pid,0); return 1; } ! else if ((os_vm_address_t) addr >= undefined_alien_address && ! (os_vm_address_t) addr < undefined_alien_address + os_vm_page_size) { arrange_return_to_lisp_function (context, SymbolFunction(UNDEFINED_ALIEN_VARIABLE_ERROR)); return 1; |