projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U-000262D9): Integrate U-0002F975.
[chise/xemacs-chise.git.1]
/
src
/
data.c
diff --git
a/src/data.c
b/src/data.c
index
21e5d26
..
197842e
100644
(file)
--- a/
src/data.c
+++ b/
src/data.c
@@
-173,10
+173,10
@@
EMACS_INT sign_extend_lisp_int (EMACS_INT num);
EMACS_INT
sign_extend_lisp_int (EMACS_INT num)
{
EMACS_INT
sign_extend_lisp_int (EMACS_INT num)
{
- if (num & (1L << (VALBITS - 1)))
- return num | ((-1L) << VALBITS);
+ if (num & (1L << (INT_VALBITS - 1)))
+ return num | ((-1L) << INT_VALBITS);
else
else
- return num & ((1L << VALBITS) - 1);
+ return num & (EMACS_INT) ((1UL << INT_VALBITS) - 1);
}
\f
}
\f
@@
-1780,7
+1780,7
@@
finish_marking_weak_lists (void)
break;
default:
break;
default:
- abort ();
+ ABORT ();
}
if (need_to_mark_elem && ! marked_p (elem))
}
if (need_to_mark_elem && ! marked_p (elem))
@@
-1936,7
+1936,7
@@
encode_weak_list_type (enum weak_list_type type)
case WEAK_LIST_VALUE_ASSOC: return Qvalue_assoc;
case WEAK_LIST_FULL_ASSOC: return Qfull_assoc;
default:
case WEAK_LIST_VALUE_ASSOC: return Qvalue_assoc;
case WEAK_LIST_FULL_ASSOC: return Qfull_assoc;
default:
- abort ();
+ ABORT ();
}
return Qnil; /* not reached */
}
return Qnil; /* not reached */