From 8e44c331f2ed4514f528b4c8797c7d74c2b6437a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 29 Sep 1995 19:57:46 +0000 Subject: [PATCH] Performed by SRA: Add some declarations to increase performance. --- v7/src/runtime/cpress.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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 -- 2.25.1