From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Sep 1995 19:57:46 +0000 (+0000)
Subject: Performed by SRA: Add some declarations to increase performance.
X-Git-Tag: 20090517-FFI~5927
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8e44c331f2ed4514f528b4c8797c7d74c2b6437a;p=mit-scheme.git

Performed by SRA: Add some declarations to increase performance.
---

diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm
index ae6937178..c347e27e1 100644
--- a/v7/src/runtime/cpress.scm
+++ b/v7/src/runtime/cpress.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: cpress.scm,v 1.6 1994/07/16 21:12:36 cph Exp $
+$Id: cpress.scm,v 1.7 1995/09/29 19:57:46 cph Exp $
 
-Copyright (c) 1992-94 Massachusetts Institute of Technology
+Copyright (c) 1992-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -35,6 +35,14 @@ MIT in each case. |#
 ;;;; Data Compressor
 
 (declare (usual-integrations))
+
+;; This declaration is worth up to 30% speedup
+(declare
+ (ignore-reference-traps
+  (set root-nodes oldest-node newest-node window-filled? byte-buffer)))
+
+;; This does not seem to make much difference:
+(declare (ignore-reference-traps (set current-pointer current-bp command-bp)))
 
 ;;; This compression program is based on the algorithm described in
 ;;; "Data Compression with Finite Windows", by Edward R. Fiala and