diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2010-09-25 07:55:30 -0400 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2010-09-25 07:55:30 -0400 |
| commit | da43f02119eb86ff8a4ee8ce7454b10d261ef714 (patch) | |
| tree | 8b42c4a38e55c29603b7bab7421d75ede479040f /src/print.c | |
| parent | 41118bd30dd303cf60a70990c5347a6cfdfca1ef (diff) | |
| download | emacs-da43f02119eb86ff8a4ee8ce7454b10d261ef714.tar.gz | |
Fix int/EMACS_INT use in lread.c, marker.c, minibuf.c, print.c
print.c (print_object, print_string, strout): Use EMACS_INT for
string indices.
minibuf.c (string_to_object): Use EMACS_INT for string position
and size.
marker.c (verify_bytepos): Use EMACS_INT for buffer positions.
lread.c <read_from_string_index, read_from_string_index_byte>
<read_from_string_limit, readchar_count>: Define EMACS_INT.
(readchar, unreadchar, read_internal_start): Use EMACS_INT for
buffer positions and string length.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/print.c b/src/print.c index 560bca8178f..46132ff1e47 100644 --- a/src/print.c +++ b/src/print.c @@ -395,7 +395,7 @@ strout (const char *ptr, EMACS_INT size, EMACS_INT size_byte, else { /* PRINTCHARFUN is a Lisp function. */ - int i = 0; + EMACS_INT i = 0; if (size == size_byte) { @@ -489,7 +489,7 @@ print_string (Lisp_Object string, Lisp_Object printcharfun) { /* Otherwise, string may be relocated by printing one char. So re-fetch the string address for each character. */ - int i; + EMACS_INT i; EMACS_INT size = SCHARS (string); EMACS_INT size_byte = SBYTES (string); struct gcpro gcpro1; @@ -1563,7 +1563,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag print_string (obj, printcharfun); else { - register int i, i_byte; + register EMACS_INT i, i_byte; struct gcpro gcpro1; unsigned char *str; EMACS_INT size_byte; |