From 15454dd9a3ad959ac7083b90ffca95095d149c03 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 6 Oct 2005 21:52:53 +0000
Subject: [PATCH] Remove some (char *) casts because gcc 4.0.1 gives an error
 about "invalid lvalue".  From Rex Dieter, cmucl-imp, 2005/10/06.

---
 lisp/x86-arch.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c
index c1bd01cc4..bde056b74 100644
--- a/lisp/x86-arch.c
+++ b/lisp/x86-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.24 2005/09/15 18:26:53 rtoy Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.25 2005/10/06 21:52:53 rtoy Exp $ 
  *
  */
 
@@ -56,7 +56,7 @@ arch_skip_instruction(os_context_t * context)
 	  vlen = *(char *) SC_PC(context)++;
 	  /* Skip lisp error arg data bytes */
 	  while (vlen-- > 0)
-	      ((char *) SC_PC(context))++;
+	      SC_PC(context)++;
 	  break;
 
       case trap_Breakpoint:
@@ -271,7 +271,7 @@ sigtrap_handler(HANDLER_ARGS)
 #if 0
 	  fprintf(stderr, "*C break\n");
 #endif
-	  (char *) SC_PC(context) -= 1;
+	  SC_PC(context) -= 1;
 
 	  handle_breakpoint(signal, code, context);
 #if 0
@@ -280,7 +280,7 @@ sigtrap_handler(HANDLER_ARGS)
 	  break;
 
       case trap_FunctionEndBreakpoint:
-	  (char *) SC_PC(context) -= 1;
+	  SC_PC(context) -= 1;
 	  SC_PC(context) =
 	      (int) handle_function_end_breakpoint(signal, code, context);
 	  break;
-- 
GitLab