From acae6be1f32a6bf45b1a288fd7cc5a9d4c047132 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 13 Oct 2000 15:15:20 +0000 Subject: Slight tweak of the code to appease Amdahl UTS cc. p4raw-id: //depot/perl@7218 --- pp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index 8877d8a469..389d12b2f5 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 */ -- cgit v1.2.1