[pkgsrc/trunk]: pkgsrc/lang/tinyscheme Fix LP64 issues with a patch from Rich...

[kristerw <kristerw%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/b4f049b19778
branches:  trunk
changeset: 472321:b4f049b19778
user:      kristerw <kristerw%pkgsrc.org@localhost>
date:      Thu Apr 08 15:47:49 2004 +0000

description:
Fix LP64 issues with a patch from Richard Rauch in PR 24757.

Bump PKGREVISION.

diffstat:

 lang/tinyscheme/Makefile         |   3 +-
 lang/tinyscheme/distinfo         |   4 +-
 lang/tinyscheme/patches/patch-ab |  42 +++++++++++++++++++++++++++++++++++++--
 3 files changed, 43 insertions(+), 6 deletions(-)

diffs (78 lines):

diff -r 63b704f6cdd4 -r b4f049b19778 lang/tinyscheme/Makefile
--- a/lang/tinyscheme/Makefile  Thu Apr 08 15:04:36 2004 +0000
+++ b/lang/tinyscheme/Makefile  Thu Apr 08 15:47:49 2004 +0000
@@ -1,6 +1,7 @@
-# $NetBSD: Makefile,v 1.4 2003/07/17 21:45:32 grant Exp $
+# $NetBSD: Makefile,v 1.5 2004/04/08 15:47:49 kristerw Exp $
 
 DISTNAME=      tinyscheme-1.33
+PKGREVISION=   1
 CATEGORIES=    lang
 MASTER_SITES=  http://tinyscheme.sourceforge.net/
 
diff -r 63b704f6cdd4 -r b4f049b19778 lang/tinyscheme/distinfo
--- a/lang/tinyscheme/distinfo  Thu Apr 08 15:04:36 2004 +0000
+++ b/lang/tinyscheme/distinfo  Thu Apr 08 15:47:49 2004 +0000
@@ -1,6 +1,6 @@
-$NetBSD: distinfo,v 1.3 2003/06/29 23:55:01 jtb Exp $
+$NetBSD: distinfo,v 1.4 2004/04/08 15:47:49 kristerw Exp $
 
 SHA1 (tinyscheme-1.33.tar.gz) = c596b428487c001d31f812137673a2683b352fae
 Size (tinyscheme-1.33.tar.gz) = 52733 bytes
 SHA1 (patch-aa) = d5e9006396c3d894f78a56a49b0d67bf18a1b6f2
-SHA1 (patch-ab) = b8577bc0659b88561bd8fe488e531ba7c69656b4
+SHA1 (patch-ab) = 4c0a07947323410c26760128ba86cac99a662549
diff -r 63b704f6cdd4 -r b4f049b19778 lang/tinyscheme/patches/patch-ab
--- a/lang/tinyscheme/patches/patch-ab  Thu Apr 08 15:04:36 2004 +0000
+++ b/lang/tinyscheme/patches/patch-ab  Thu Apr 08 15:47:49 2004 +0000
@@ -1,7 +1,7 @@
-$NetBSD: patch-ab,v 1.1.1.1 2002/10/28 09:04:02 agc Exp $
+$NetBSD: patch-ab,v 1.2 2004/04/08 15:47:49 kristerw Exp $
 
---- scheme.c   2002/10/24 11:01:22     1.1
-+++ scheme.c   2002/10/24 11:03:17
+--- scheme.c.orig      2003-01-07 20:40:51.000000000 +0100
++++ scheme.c   2004-04-08 17:40:03.000000000 +0200
 @@ -91,8 +91,16 @@
  # define prompt "> "
  #endif
@@ -20,3 +20,39 @@
  #endif
  
  #ifndef FIRST_CELLSEGS
+@@ -569,7 +577,7 @@
+         i = ++sc->last_cell_seg ;
+         sc->alloc_seg[i] = cp;
+         /* adjust in TYPE_BITS-bit boundary */
+-        if(((int)cp)%adj!=0) {
++        if(((long)cp)%adj!=0) {
+           cp=(char*)(adj*((long)cp/adj+1));
+         }
+         /* insert new segment in address order */
+@@ -2055,7 +2063,7 @@
+ 
+ static void s_save(scheme *sc, enum scheme_opcodes op, pointer args, pointer code) 
+ { 
+-  int nframes = (int)sc->dump; 
++  long nframes = (long)sc->dump; 
+   struct dump_stack_frame *next_frame; 
+ 
+   /* enough room for the next frame? */ 
+@@ -2075,7 +2083,7 @@
+ 
+ static pointer _s_return(scheme *sc, pointer a) 
+ { 
+-  int nframes = (int)sc->dump; 
++  long nframes = (long)sc->dump; 
+   struct dump_stack_frame *frame; 
+ 
+   sc->value = (a); 
+@@ -2115,7 +2123,7 @@
+ 
+ static INLINE void dump_stack_mark(scheme *sc) 
+ { 
+-  int nframes = (int)sc->dump;
++  long nframes = (long)sc->dump;
+   int i;
+   for(i=0; i<nframes; i++) {
+     struct dump_stack_frame *frame;