Mercurial > emacs
changeset 8818:0996472bb39d
(reset_buffer_local_variables, Fbuffer_local_variables)
(init_buffer_once): Use EMACS_INT.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Sep 1994 00:26:43 +0000 |
| parents | 48ff00bebef6 |
| children | 18e94112cf67 |
| files | src/buffer.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/buffer.c Sat Sep 17 00:25:35 1994 +0000 +++ b/src/buffer.c Sat Sep 17 00:26:43 1994 +0000 @@ -351,9 +351,9 @@ for (offset = (char *)&buffer_local_flags.name - (char *)&buffer_local_flags; offset < sizeof (struct buffer); - offset += sizeof (Lisp_Object)) /* sizeof int == sizeof Lisp_Object */ - if (*(int *)(offset + (char *) &buffer_local_flags) > 0 - || *(int *)(offset + (char *) &buffer_local_flags) == -2) + offset += sizeof (Lisp_Object)) /* sizeof EMACS_INT == sizeof Lisp_Object */ + if (*(EMACS_INT *)(offset + (char *) &buffer_local_flags) > 0 + || *(EMACS_INT *)(offset + (char *) &buffer_local_flags) == -2) *(Lisp_Object *)(offset + (char *)b) = *(Lisp_Object *)(offset + (char *)&buffer_defaults); } @@ -479,9 +479,9 @@ for (offset = (char *)&buffer_local_symbols.name - (char *)&buffer_local_symbols; offset < sizeof (struct buffer); - offset += (sizeof (int))) /* sizeof int == sizeof Lisp_Object */ + offset += (sizeof (EMACS_INT))) /* sizeof EMACS_INT == sizeof Lisp_Object */ { - mask = *(int *)(offset + (char *) &buffer_local_flags); + mask = *(EMACS_INT *)(offset + (char *) &buffer_local_flags); if (mask == -1 || (buf->local_var_flags & mask)) if (XTYPE (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols)) == Lisp_Symbol) @@ -2372,7 +2372,7 @@ The local flag bits are in the local_var_flags slot of the buffer. */ /* Nothing can work if this isn't true */ - if (sizeof (int) != sizeof (Lisp_Object)) abort (); + if (sizeof (EMACS_INT) != sizeof (Lisp_Object)) abort (); /* 0 means not a lisp var, -1 means always local, else mask */ bzero (&buffer_local_flags, sizeof buffer_local_flags);