Performed by SRA: Add some declarations to increase performance.

diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm
index ae6937178126ce262bd28b1174490b9ca4e6c7a5..c347e27e102f00f30d0547dcacab41a528620751 100644 (file)
--- 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)))
 \f
 ;;; This compression program is based on the algorithm described in
 ;;; "Data Compression with Finite Windows", by Edward R. Fiala and