From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Oct 2000 15:15:20 +0000 (+0000)
Subject: Slight tweak of the code to appease Amdahl UTS cc.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acae6be1f32a6bf45b1a288fd7cc5a9d4c047132;p=p5sagit%2Fp5-mst-13.2.git

Slight tweak of the code to appease Amdahl UTS cc.

p4raw-id: //depot/perl@7218
---

diff --git a/pp.c b/pp.c
index 8877d8a..389d12b 100644
--- a/pp.c
+++ b/pp.c
@@ -4812,8 +4812,9 @@ PP(pp_pack)
 		    do {
 			double next = floor(adouble / 128);
 			*--in = (unsigned char)(adouble - (next * 128)) | 0x80;
-			if (--in < buf)  /* this cannot happen ;-) */
+			if (in <= buf)  /* this cannot happen ;-) */
 			    DIE(aTHX_ "Cannot compress integer");
+			in--;
 			adouble = next;
 		    } while (adouble > 0);
 		    buf[sizeof(buf) - 1] &= 0x7f; /* clear continue bit */