changeset 4078:6f05405e63fc

[xemacs-hg @ 2007-07-26 11:15:04 by aidan] Fix the union build; thank you Robert Delius Royar.
author aidan
date Thu, 26 Jul 2007 11:15:08 +0000
parents 52d406aab70c
children ec4186bc44d0
files src/ChangeLog src/mule-ccl.c
diffstat 2 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Wed Jul 25 21:51:21 2007 +0000
+++ b/src/ChangeLog	Thu Jul 26 11:15:08 2007 +0000
@@ -1,3 +1,10 @@
+2007-07-26  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule-ccl.c (ccl_driver):
+	op is an integer, not a Lisp_Object; don't use it to temporarily
+	store a Lisp_Object. This change fixes the union build; thank you
+	for the report, Robert Delius Royar. 
+
 2007-07-23  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* text.c:
--- a/src/mule-ccl.c	Wed Jul 25 21:51:21 2007 +0000
+++ b/src/mule-ccl.c	Thu Jul 26 11:15:08 2007 +0000
@@ -1562,10 +1562,9 @@
 
 		if (!HTENTRY_CLEAR_P(e))
 		  {
-                    op = e->value;
-		    if (!INTP (op))
+		    if (!INTP (e->value))
 		      CCL_INVALID_CMD;
-		    reg[RRR] = XCHAR_OR_INT (op);
+		    reg[RRR] = XCHAR_OR_INT (e->value);
 		    reg[7] = 1; /* r7 true for success */
 		  }
 		else