From: Chris Hanson Date: Sun, 6 Nov 1988 14:55:10 +0000 (+0000) Subject: Improve generic arithmetic by adding branch preferences to type, X-Git-Tag: 20090517-FFI~12426 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=07f1e7e00e4ceb915e63967a2aefc4d95f828b44;p=mit-scheme.git Improve generic arithmetic by adding branch preferences to type, range, and overflow tests. These preferences cause the linearizer to attempt to optimize for the preferred branch. --- diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index 928dbbe03..61b74e580 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.27 1988/11/02 22:02:08 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.28 1988/11/06 14:55:10 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -41,4 +41,4 @@ MIT in each case. |# ((package/reference (find-package name) 'INITIALIZE-PACKAGE!))) '((COMPILER MACROS) (COMPILER DECLARATIONS))) -(add-system! (make-system "Liar" 4 27 '())) \ No newline at end of file +(add-system! (make-system "Liar" 4 28 '())) \ No newline at end of file