From 5c4867c3a73603a7fe0945091b2b8ec8625b7b5d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 27 Nov 1989 21:57:01 +0000 Subject: [PATCH] Fix a bug in bignum printing. --- v7/src/microcode/bintopsb.c | 4 ++-- v8/src/microcode/bintopsb.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c index 2449c2063..ca21a642e 100644 --- a/v7/src/microcode/bintopsb.c +++ b/v7/src/microcode/bintopsb.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.41 1989/10/28 15:37:45 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -1196,7 +1196,7 @@ print_external_objects(from, count) break; case TC_BIG_FIXNUM: - print_a_bignum (*from++); + print_a_bignum (++from); from += (1 + OBJECT_DATUM (*from)); break; diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c index 7265dcfdd..0429e2188 100644 --- a/v8/src/microcode/bintopsb.c +++ b/v8/src/microcode/bintopsb.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.41 1989/10/28 15:37:45 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -1196,7 +1196,7 @@ print_external_objects(from, count) break; case TC_BIG_FIXNUM: - print_a_bignum (*from++); + print_a_bignum (++from); from += (1 + OBJECT_DATUM (*from)); break; -- 2.25.1