(print): Make the printing understand EMACS_INTs

that are longs as well as ints.

(print): Make the printing understand EMACS_INTs
that are longs as well as ints.
b8180922 · Richard M. Stallman · d9780682 · b8180922
Commit b8180922 authored May 05, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

src/print.c src/print.c +6 -1

No files found.
--- a/src/print.c
+++ b/src/print.c
@@ -755,7 +755,12 @@ print (obj, printcharfun, escapeflag)
  switch (XGCTYPE (obj))
    {
    case Lisp_Int:
-      sprintf (buf, "%d", XINT (obj));
+      if (sizeof (int) == sizeof (EMACS_INT))
+	sprintf (buf, "%d", XINT (obj));
+      else if (sizeof (long) == sizeof (EMACS_INT))
+	sprintf (buf, "%ld", XINT (obj));
+      else
+	abort ();
      strout (buf, -1, printcharfun);
      break;