From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 23 Jul 1992 12:30:49 +0000 (+0000)
Subject: int->long for 64-bit systems.
X-Git-Tag: 20090517-FFI~9208
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2602f1e6f95c7e1f6be9a148d269de44e035d284;p=mit-scheme.git

int->long for 64-bit systems.
---

diff --git a/v7/src/microcode/obstack.c b/v7/src/microcode/obstack.c
index 09a75082e..7c07b1483 100644
--- a/v7/src/microcode/obstack.c
+++ b/v7/src/microcode/obstack.c
@@ -25,7 +25,8 @@ Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 /* Determine default alignment.  */
 struct fooalign {char x; double d;};
-#define DEFAULT_ALIGNMENT ((char *)&((struct fooalign *) 0)->d - (char *)0)
+#define DEFAULT_ALIGNMENT	\
+  ((long) ((char *)&((struct fooalign *) 0)->d - (char *)0))
 /* If malloc were really smart, it would round addresses to DEFAULT_ALIGNMENT.
    But in fact it might be less smart and round addresses to as much as
    DEFAULT_ROUNDING.  So we prepare for it to do that.  */
@@ -54,7 +55,7 @@ void
 _obstack_begin (h, size, alignment, chunkfun, freefun)
      struct obstack *h;
      int size;
-     int alignment;
+     long alignment;
      POINTER EXFUN ((*chunkfun), (long));
      void EXFUN ((*freefun), (PTR));
 {