From: Guillermo J. Rozas Date: Mon, 22 Jan 1990 19:16:44 +0000 (+0000) Subject: Fix typo. print_a_bignum used && rather than &, causing all sorts of X-Git-Tag: 20090517-FFI~11577 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0f69448f99afddc0a922a5faab92cbc99eb68052;p=mit-scheme.git Fix typo. print_a_bignum used && rather than &, causing all sorts of problems. --- diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c index eed809a97..822a7d308 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.43 1989/11/30 05:32:10 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.44 1990/01/22 19:16:44 jinx Exp $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -443,7 +443,7 @@ print_a_bignum (bignum) accumulator = (*scan++); fprintf (portable_file, "%01lx", (carry | - ((accumulator && ((1 << diff_bits) - 1)) << + ((accumulator & ((1 << diff_bits) - 1)) << bits_in_digit))); length_in_bits -= 4; bits_in_digit = (BIGNUM_DIGIT_LENGTH - diff_bits); diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c index e03a9b6f9..9a3aa7d75 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.43 1989/11/30 05:32:10 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.44 1990/01/22 19:16:44 jinx Exp $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -443,7 +443,7 @@ print_a_bignum (bignum) accumulator = (*scan++); fprintf (portable_file, "%01lx", (carry | - ((accumulator && ((1 << diff_bits) - 1)) << + ((accumulator & ((1 << diff_bits) - 1)) << bits_in_digit))); length_in_bits -= 4; bits_in_digit = (BIGNUM_DIGIT_LENGTH - diff_bits);